Conversion of standardized ReadMe file for
file /./ftp/cats/J/A_A/391/887 into FORTRAN code for reading data files line by line.
Note that special values are assigned to unknown or unspecified
numbers (also called NULL numbers);
when necessary, the coordinate components making up the right ascension
and declination are converted into floating-point numbers
representing these angles in degrees.
program load_ReadMe
C=============================================================================
C F77-compliant program generated by readme2f_1.81 (2015-09-23), on 2024-Apr-20
C=============================================================================
* This code was generated from the ReadMe file documenting a catalogue
* according to the "Standard for Documentation of Astronomical Catalogues"
* currently in use by the Astronomical Data Centers (CDS, ADC, A&A)
* (see full documentation at URL http://vizier.u-strasbg.fr/doc/catstd.htx)
* Please report problems or questions to
C=============================================================================
implicit none
* Unspecified or NULL values, generally corresponding to blank columns,
* are assigned one of the following special values:
* rNULL__ for unknown or NULL floating-point values
* iNULL__ for unknown or NULL integer values
real*4 rNULL__
integer*4 iNULL__
parameter (rNULL__=--2147483648.) ! NULL real number
parameter (iNULL__=(-2147483647-1)) ! NULL int number
integer idig ! testing NULL number
C=============================================================================
Cat. J/A+A/391/887 Redshifts in the Hydra/Antlia Extension (Kraan-Korteweg+, 2002)
*================================================================================
*Parkes HI observations of galaxies. behind the southern Milky Way.
*I. The Hydra/Antlia region (l=~266{deg} to 296{deg}).
* Kraan-Korteweg R.C., Henning P.A., Schroeder A.C.
* <Astron. Astrophys. 391, 887 (2002)>
* =2002A&A...391..887K
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table1.dat' ! HI-properties of galaxies detected in the
ZOA with the Parkes radio telescope
integer*4 nr__
parameter (nr__=66) ! Number of records
character*134 ar__ ! Full-size record
C J2000 position composed of: RAh RAm RAs DE- DEd DEm DEs
real*8 RAdeg ! (deg) Right Ascension J2000
real*8 DEdeg ! (deg) Declination J2000
C ---------------------------------- ! (position vector(s) in degrees)
integer*4 RKK ! ? Identification as in Kraan-Korteweg, 1995,
* Cat. <J/A+A/297/617>
character*1 n_RKK ! [BOa] Remark (G1)
character*8 OName ! Other identification (1)
character*1 IRAS ! [I] Code for counterpart in IRAS Point Source
* Catalog <II/125> (G2)
integer*4 RAh ! (h) Right ascension (J2000)
integer*4 RAm ! (min) Right ascension (J2000)
real*4 RAs ! (s) Right ascension (J2000)
character*1 DE_ ! Declination sign (J2000)
integer*4 DEd ! (deg) Declination (J2000)
integer*4 DEm ! (arcmin) Declination (J2000)
integer*4 DEs ! (arcsec) Declination (J2000)
character*1 u_DEs ! Uncertainty flag on position
real*4 GLON ! (deg) Galactic longitude
real*4 GLAT ! (deg) Galactic latitude
character*4 MType ! Morphological type
integer*4 MajAxis ! (arcsec) ? Major axis
integer*4 MinAxis ! (arcsec) ? Minor axis
real*4 Bmag ! (mag) ? B magnitude estimated from the
* IIIaJ ESO/SRC film copy
real*4 E_B_V ! (mag) ? Extinction according to Schlegel et al.,
* 1998ApJ...500..525S
integer*4 Diamec ! (arcsec) ? Extinction-corrected large diameter
real*4 Bmagec ! (mag) ? Extinction-corrected magnitude
integer*4 HRV ! (km/s) Heliocentric HI radial velocity
character*1 u_HRV ! [*:] Code for uncertainty (1)
integer*4 V50_ ! (km/s) Velocity width at 50%
character*1 u_V50_ ! [*:] Code for uncertainty (1)
integer*4 V20_ ! (km/s) Velocity width at 20%
character*1 u_V20_ ! [*:] Code for uncertainty (1)
real*4 FHI ! (Jy.km/s) HI flux
character*1 u_FHI ! [*:] Code for uncertainty (2)
real*4 rms ! (mJy) rms noise level
integer*4 Vel ! (km/s) ? Independent velocity determination
character*1 r_Vel ! [1-9] Source of individual velocity
* determination (G3)
*Note (1): In three of the pointed observations (RKK1037, RKK1919 and RKK1947)
* more than one 21-cm detection was identified within the beam and
* covered velocity range. Some of these HI detections do not have an
* optical counterpart (INV#). RKK1919B INV1 has no position.
*Note (2): Code for uncertainty :
* ":" for uncertainty value
* "*" for slightly underestimated value
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table2.dat' ! Galaxies observed with the Parkes radio telescope
but not detected
integer*4 nr__1
parameter (nr__1=87) ! Number of records
character*135 ar__1 ! Full-size record
C J2000 position composed of: RAh RAm RAs DE- DEd DEm DEs
real*8 RAdeg_1 ! (deg) Right Ascension J2000
real*8 DEdeg_1 ! (deg) Declination J2000
C ---------------------------------- ! (position vector(s) in degrees)
integer*4 RKK_1 ! ? Identification as in Kraan-Korteweg, 1995,
* Cat. <J/A+A/297/617>
character*1 n_RKK_1 ! [BOa] Remark (G1)
character*1 Note ! [*] Note (1)
character*8 OName_1 ! Other identification
character*1 IRAS_1 ! [IQP] Code for counterpart in IRAS Point
* Source Catalog <II/125> (G2)
integer*4 RAh_1 ! (h) Right ascension (J2000)
integer*4 RAm_1 ! (min) Right ascension (J2000)
real*4 RAs_1 ! (s) Right ascension (J2000)
character*1 DE__1 ! Declination sign (J2000)
integer*4 DEd_1 ! (deg) Declination (J2000)
integer*4 DEm_1 ! (arcmin) Declination (J2000)
integer*4 DEs_1 ! (arcsec) Declination (J2000)
character*1 u_DEs_1 ! Uncertainty flag on position
real*4 GLON_1 ! (deg) Galactic longitude
real*4 GLAT_1 ! (deg) Galactic latitude
character*4 MType_1 ! Morphological type
integer*4 MajAxis_1 ! (arcsec) ? Major axis
integer*4 MinAxis_1 ! (arcsec) ? Minor axis
real*4 Bmag_1 ! (mag) ? B magnitude estimated from the
* IIIaJ ESO/SRC film copy
real*4 E_B_V_1 ! (mag) ? Extinction according to Schlegel et al.,
* 1998ApJ...500..525S
integer*4 Diamec_1 ! (arcsec) ? Extinction-corrected large diameter
real*4 Bmagec_1 ! (mag) ? Extinction-corrected magnitude
integer*4 Vlowlim ! (km/s) ? Low velocity limit of searched
* velocity range
integer*4 Vhighlim ! (km/s) ? High velocity limit of searched
* velocity range
real*4 rms_1 ! (mJy) ? rms of searched velocity range
integer*4 Vlowend ! (km/s) ? Low velocity end of perturbed
* velocity interval
character*1 u_Vlowend ! [)] Uncertainty flag on Vlowend
integer*4 Vhighend ! (km/s) ? High velocity end of perturbed
* velocity interval
character*1 u_Vhighend ! [)] Uncertainty flag on Vhighend
integer*4 Vel_1 ! (km/s) ? Independent velocity determination
character*1 r_Vel_1 ! [1-6 M] Source of individual velocity
* determination (G3)
*Note (1): Some of the spectra of the non-detections listed in Table 2 do
* reveal a positive signal. Comparing the recession velocities with
* independent optical data proves, however, that the observed HI
* emission in four of the pointings does not originate from the targeted
* object but from a neighbour at close angular distance. An "*"
* indicates these HI emissions.
C=============================================================================
C Loading file 'table1.dat' ! HI-properties of galaxies detected in the
* ZOA with the Parkes radio telescope
C Format for file interpretation
1 format(
+ 3X,I4,A1,1X,A8,1X,A1,1X,I2,1X,I2,1X,F4.1,1X,A1,I2,1X,I2,1X,I2,
+ A1,1X,F6.2,1X,F6.2,2X,A4,2X,I3,1X,I3,2X,F4.1,2X,F4.2,2X,I3,2X,
+ F4.1,2X,I5,A1,1X,I3,A1,1X,I3,A1,1X,F5.2,A1,1X,F4.1,2X,I5,2X,A1)
C Effective file loading
open(unit=1,status='old',file=
+'table1.dat')
write(6,*) '....Loading file: table1.dat'
do i__=1,66
read(1,'(A134)')ar__
read(ar__,1)
+ RKK,n_RKK,OName,IRAS,RAh,RAm,RAs,DE_,DEd,DEm,DEs,u_DEs,GLON,
+ GLAT,MType,MajAxis,MinAxis,Bmag,E_B_V,Diamec,Bmagec,HRV,u_HRV,
+ V50_,u_V50_,V20_,u_V20_,FHI,u_FHI,rms,Vel,r_Vel
if(ar__(4:7) .EQ. '') RKK = iNULL__
if(ar__(64:66) .EQ. '') MajAxis = iNULL__
if(ar__(68:70) .EQ. '') MinAxis = iNULL__
if(ar__(73:76) .EQ. '') Bmag = rNULL__
if(ar__(79:82) .EQ. '') E_B_V = rNULL__
if(ar__(85:87) .EQ. '') Diamec = iNULL__
if(ar__(90:93) .EQ. '') Bmagec = rNULL__
if(ar__(126:130) .EQ. '') Vel = iNULL__
RAdeg = rNULL__
DEdeg = rNULL__
c Derive coordinates RAdeg and DEdeg from input data
c (RAdeg and DEdeg are set to rNULL__ when unknown)
if(RAh .GT. -180) RAdeg=RAh*15.
if(RAm .GT. -180) RAdeg=RAdeg+RAm/4.
if(RAs .GT. -180) RAdeg=RAdeg+RAs/240.
if(DEd .GE. 0) DEdeg=DEd
if(DEm .GE. 0) DEdeg=DEdeg+DEm/60.
if(DEs .GE. 0) DEdeg=DEdeg+DEs/3600.
if(DE_.EQ.'-'.AND.DEdeg.GE.0) DEdeg=-DEdeg
c ..............Just test output...........
write(6,1)
+ RKK,n_RKK,OName,IRAS,RAh,RAm,RAs,DE_,DEd,DEm,DEs,u_DEs,GLON,
+ GLAT,MType,MajAxis,MinAxis,Bmag,E_B_V,Diamec,Bmagec,HRV,u_HRV,
+ V50_,u_V50_,V20_,u_V20_,FHI,u_FHI,rms,Vel,r_Vel
write(6,'(6H Pos: 2F8.4)') RAdeg,DEdeg
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table2.dat' ! Galaxies observed with the Parkes radio telescope
* but not detected
C Format for file interpretation
2 format(
+ 3X,I4,A1,A1,A8,1X,A1,1X,I2,1X,I2,1X,F4.1,1X,A1,I2,1X,I2,1X,I2,
+ A1,1X,F6.2,1X,F6.2,2X,A4,2X,I3,1X,I3,2X,F4.1,2X,F4.2,2X,I3,2X,
+ F4.1,2X,I4,3X,I5,1X,F3.1,1X,I5,A1,2X,I5,A1,I5,2X,A1)
C Effective file loading
open(unit=1,status='old',file=
+'table2.dat')
write(6,*) '....Loading file: table2.dat'
do i__=1,87
read(1,'(A135)')ar__1
read(ar__1,2)
+ RKK_1,n_RKK_1,Note,OName_1,IRAS_1,RAh_1,RAm_1,RAs_1,DE__1,
+ DEd_1,DEm_1,DEs_1,u_DEs_1,GLON_1,GLAT_1,MType_1,MajAxis_1,
+ MinAxis_1,Bmag_1,E_B_V_1,Diamec_1,Bmagec_1,Vlowlim,Vhighlim,
+ rms_1,Vlowend,u_Vlowend,Vhighend,u_Vhighend,Vel_1,r_Vel_1
if(ar__1(4:7) .EQ. '') RKK_1 = iNULL__
if(ar__1(64:66) .EQ. '') MajAxis_1 = iNULL__
if(ar__1(68:70) .EQ. '') MinAxis_1 = iNULL__
if(ar__1(73:76) .EQ. '') Bmag_1 = rNULL__
if(ar__1(79:82) .EQ. '') E_B_V_1 = rNULL__
if(ar__1(85:87) .EQ. '') Diamec_1 = iNULL__
if(ar__1(90:93) .EQ. '') Bmagec_1 = rNULL__
if(ar__1(96:99) .EQ. '') Vlowlim = iNULL__
if(ar__1(103:107) .EQ. '') Vhighlim = iNULL__
if(ar__1(109:111) .EQ. '') rms_1 = rNULL__
if(ar__1(113:117) .EQ. '') Vlowend = iNULL__
if(ar__1(121:125) .EQ. '') Vhighend = iNULL__
if(ar__1(127:131) .EQ. '') Vel_1 = iNULL__
RAdeg_1 = rNULL__
DEdeg_1 = rNULL__
c Derive coordinates RAdeg_1 and DEdeg_1 from input data
c (RAdeg_1 and DEdeg_1 are set to rNULL__ when unknown)
if(RAh_1 .GT. -180) RAdeg_1=RAh_1*15.
if(RAm_1 .GT. -180) RAdeg_1=RAdeg_1+RAm_1/4.
if(RAs_1 .GT. -180) RAdeg_1=RAdeg_1+RAs_1/240.
if(DEd_1 .GE. 0) DEdeg_1=DEd_1
if(DEm_1 .GE. 0) DEdeg_1=DEdeg_1+DEm_1/60.
if(DEs_1 .GE. 0) DEdeg_1=DEdeg_1+DEs_1/3600.
if(DE__1.EQ.'-'.AND.DEdeg_1.GE.0) DEdeg_1=-DEdeg_1
c ..............Just test output...........
write(6,2)
+ RKK_1,n_RKK_1,Note,OName_1,IRAS_1,RAh_1,RAm_1,RAs_1,DE__1,
+ DEd_1,DEm_1,DEs_1,u_DEs_1,GLON_1,GLAT_1,MType_1,MajAxis_1,
+ MinAxis_1,Bmag_1,E_B_V_1,Diamec_1,Bmagec_1,Vlowlim,Vhighlim,
+ rms_1,Vlowend,u_Vlowend,Vhighend,u_Vhighend,Vel_1,r_Vel_1
write(6,'(6H Pos: 2F8.4)') RAdeg_1,DEdeg_1
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end