Conversion of standardized ReadMe file for
file /./ftp/cats/J/AJ/129/220 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-Mar-19 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/AJ/129/220 HI Parkes Zone of Avoidance Survey (Donley+, 2005) *================================================================================ *The H I Parkes zone of avoidance survey: the northern extension. * Donley J.L., Staveley-Smith L., Kraan-Korteweg R.C., Islas-Islas J.M., * Schroeder A., Henning P.A., Koribalski B., Mader S., Stewart I. * <Astron. J., 129, 220-238 (2005)> * =2005AJ....129..220D C============================================================================= C Internal variables integer*4 i__ c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table1.dat' ! HI and derived properties integer*4 nr__ parameter (nr__=77) ! Number of records character*86 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) character*9 HIZOA ! Galaxy name (JHHMM+DDA) integer*4 RAh ! (h) Hour of Right Ascension (J2000) integer*4 RAm ! (min) Minute of Right Ascension (J2000) integer*4 RAs ! (s) [0,60] Second of Right Ascension (J2000) character*1 DE_ ! Sign of the Declination (J2000) integer*4 DEd ! (deg) Degree of Declination (J2000) integer*4 DEm ! (arcmin) Arcminute of Declination (J2000) integer*4 DEs ! (arcsec) [0,60] Arcsecond of Declination (J2000) real*4 GLON ! (deg) Galactic longitude real*4 GLAT ! (deg) Galactic latitude character*1 f_F_HI ! Flag on F(HI) (1) real*4 F_HI ! (Jy.km/s) Integrated HI flux density real*4 e_F_HI ! (Jy.km/s) Error on F(HI) (2) integer*4 cz ! (km/s) Velocity integer*4 e_cz ! (km/s) Error on cz integer*4 V_50_ ! (km/s) 50% velocity width integer*4 e_V_50_ ! (km/s) Error on V(50%) character*1 f_V_20_ ! Flag on V(20%) (3) integer*4 V_20_ ! (km/s) ? 20% velocity width integer*4 e_V_20_ ! (km/s) ? Error on V(20%) integer*4 Dist ! (Mpc) Distance to each galaxy (4) real*4 logMHI ! ([solMass]) Log of the HI mass *Note (1): The flux was calculated over a smaller region to isolate the * galaxy emission from that arising from a nearby galaxy. This may * have led to an underestimation of the total flux. *Note (2): The error we estimate for the integrated flux does not take * into account the uncertainty due to baseline subtraction or the * uncertainty in calibration; the total error on the integrated flux * is likely to be ~10%-15%. *Note (3): The 20% velocity width could not be accurately measured. *Note (4): The distance to each galaxy, Dist=v_LG_/H_0_, was calculated * using its velocity in the Local Group standard of rest, * v_LG_=v_hel_+300sin(l)cos(b). c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table2.dat' ! Multiwavelength counterparts integer*4 nr__1 parameter (nr__1=42) ! Number of records character*123 ar__1 ! Full-size record character*9 HIZOA_1 ! Galaxy name character*1 n_HIZOA ! Individual notes (1) real*4 GLAT_1 ! (deg) ? Galactic latitude real*4 E_B_V ! ? From DIRBE/IRAS 100{mu}m extinction maps * (Schlegel et al., 1998ApJ...500..525S) character*23 CName ! Name of the counterpart (2) real*4 Sep1 ! (arcmin) ? Separation between HIZOA and CName real*4 Delta_v ! (km/s) ? {Delta}v=v(CName)-v(HIZOA) character*18 OName ! Optical counterpart name (2) character*1 n_OName ! Individual note on OName (1) real*4 Sep2 ! (arcmin) ? Separation between HIZOA and OName character*17 v2MASX ! 2MASS counterpart (Cat. <VII/233>) (2) character*1 n_2MASX ! Individual note on 2MASX (1) real*4 Sep3 ! (arcmin) ? Separation between HIZOA and 2MASX character*10 IRAS ! IRAS counterpart (Cat. <II/125>) real*4 Sep4 ! (arcmin) ? Separation between HIZOA and IRAS *Note (1): Flags, defined as follows: * d = There are two possible counterparts to this source, * 2MASS J06254183+0346338 at a separation of 2.3' and * a DSS galaxy at RA=06 25 45.1, DE=03 47 55 (separation = 1.4'). * We do not have enough information to decide between the two. * e = We note that there is another possible 2MASS counterpart, * J06303033+0240026, at a separation of 2.7'. This candidate appears * to be of earlier type than that chosen above, but cannot be excluded. * f = Our HI detection was resolved into two galaxies separated by 4' by * the ADBS (Cat. <J/ApJS/130/177>). We are unable to say to which HI * galaxy the counterpart belongs. * g = In addition to the counterpart listed here, we see another DSS galaxy * at 06:59:38.1+06:25:19 as well as two 2MASS candidates: * J06595034+0623322 (separation = 4.3') and * J06595034+0623322 (separation = 4.4'). * From morphology and separation arguments, we believe the candidate * we have chosen is the most likely, but we can not rule out those * listed here. *Note (2): The references for counterparts are: * ADBS = Rosenberg & Schneider, 2000, Cat. <J/ApJS/130/177> * CAP = Pantoja et al., 1997, Cat. <J/AJ/113/905> * Dw = Henning et al., 1998AJ....115..584H * Rivers, 2000 (Ph.D. thesis, Univ. New Mexico) * HIZSS = Henning et al. 2000AJ....119.2686H * PGC = http://leda.univ-lyon1.fr, Cat. <VII/237> * UGC = Nilson, 1973, Cat. <VII/26> * WEIN = Weinberger, 1980A&AS...40..123W * ZOAG = Seeberger et al., 1996, Cat. <J/A+AS/117/1> * 2MASX J19061820+1256195 = Jarrett et al., 2000AJ....120..298J C============================================================================= C Loading file 'table1.dat' ! HI and derived properties C Format for file interpretation 1 format( + A9,1X,I2,1X,I2,1X,I2,A1,I2,1X,I2,1X,I2,1X,F6.2,1X,F5.2,1X,A1, + 1X,F5.2,1X,F4.2,1X,I4,1X,I2,1X,I3,1X,I2,1X,A1,1X,I3,1X,I2,1X, + I3,1X,F4.1) C Effective file loading open(unit=1,status='old',file= +'table1.dat') write(6,*) '....Loading file: table1.dat' do i__=1,77 read(1,'(A86)')ar__ read(ar__,1) + HIZOA,RAh,RAm,RAs,DE_,DEd,DEm,DEs,GLON,GLAT,f_F_HI,F_HI, + e_F_HI,cz,e_cz,V_50_,e_V_50_,f_V_20_,V_20_,e_V_20_,Dist,logMHI if(ar__(72:74) .EQ. '') V_20_ = iNULL__ if(ar__(76:77) .EQ. '') e_V_20_ = 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) + HIZOA,RAh,RAm,RAs,DE_,DEd,DEm,DEs,GLON,GLAT,f_F_HI,F_HI, + e_F_HI,cz,e_cz,V_50_,e_V_50_,f_V_20_,V_20_,e_V_20_,Dist,logMHI write(6,'(6H Pos: 2F8.4)') RAdeg,DEdeg c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'table2.dat' ! Multiwavelength counterparts C Format for file interpretation 2 format( + A9,1X,A1,1X,F5.2,1X,F4.1,2X,A23,1X,F3.1,1X,F6.1,2X,A18,1X,A1, + 1X,F3.1,1X,A17,1X,A1,1X,F3.1,1X,A10,1X,F3.1) C Effective file loading open(unit=1,status='old',file= +'table2.dat') write(6,*) '....Loading file: table2.dat' do i__=1,42 read(1,'(A123)')ar__1 read(ar__1,2) + HIZOA_1,n_HIZOA,GLAT_1,E_B_V,CName,Sep1,Delta_v,OName,n_OName, + Sep2,v2MASX,n_2MASX,Sep3,IRAS,Sep4 if(ar__1(13:17) .EQ. '') GLAT_1 = rNULL__ if(ar__1(19:22) .EQ. '') E_B_V = rNULL__ if(ar__1(49:51) .EQ. '') Sep1 = rNULL__ if(ar__1(53:58) .EQ. '') Delta_v = rNULL__ if(ar__1(82:84) .EQ. '') Sep2 = rNULL__ if(ar__1(106:108) .EQ. '') Sep3 = rNULL__ if(ar__1(121:123) .EQ. '') Sep4 = rNULL__ c ..............Just test output........... write(6,2) + HIZOA_1,n_HIZOA,GLAT_1,E_B_V,CName,Sep1,Delta_v,OName,n_OName, + Sep2,v2MASX,n_2MASX,Sep3,IRAS,Sep4 c .......End.of.Just test output........... end do close(1) C============================================================================= stop end