Conversion of standardized ReadMe file for
file /./ftp/cats/J/AJ/129/220 into FORTRAN code for loading all data files into arrays.
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 (nr__) ! (deg) Right Ascension J2000 real*8 DEdeg (nr__) ! (deg) Declination J2000 C ---------------------------------- ! (position vector(s) in degrees) character*9 HIZOA (nr__) ! Galaxy name (JHHMM+DDA) integer*4 RAh (nr__) ! (h) Hour of Right Ascension (J2000) integer*4 RAm (nr__) ! (min) Minute of Right Ascension (J2000) integer*4 RAs (nr__) ! (s) [0,60] Second of Right Ascension (J2000) character*1 DE_ (nr__) ! Sign of the Declination (J2000) integer*4 DEd (nr__) ! (deg) Degree of Declination (J2000) integer*4 DEm (nr__) ! (arcmin) Arcminute of Declination (J2000) integer*4 DEs (nr__) ! (arcsec) [0,60] Arcsecond of Declination (J2000) real*4 GLON (nr__) ! (deg) Galactic longitude real*4 GLAT (nr__) ! (deg) Galactic latitude character*1 f_F_HI (nr__) ! Flag on F(HI) (1) real*4 F_HI (nr__) ! (Jy.km/s) Integrated HI flux density real*4 e_F_HI (nr__) ! (Jy.km/s) Error on F(HI) (2) integer*4 cz (nr__) ! (km/s) Velocity integer*4 e_cz (nr__) ! (km/s) Error on cz integer*4 V_50_ (nr__) ! (km/s) 50% velocity width integer*4 e_V_50_ (nr__) ! (km/s) Error on V(50%) character*1 f_V_20_ (nr__) ! Flag on V(20%) (3) integer*4 V_20_ (nr__) ! (km/s) ? 20% velocity width integer*4 e_V_20_ (nr__) ! (km/s) ? Error on V(20%) integer*4 Dist (nr__) ! (Mpc) Distance to each galaxy (4) real*4 logMHI (nr__) ! ([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 (nr__1) ! Galaxy name character*1 n_HIZOA (nr__1) ! Individual notes (1) real*4 GLAT_1 (nr__1) ! (deg) ? Galactic latitude real*4 E_B_V (nr__1) ! ? From DIRBE/IRAS 100{mu}m extinction maps * (Schlegel et al., 1998ApJ...500..525S) character*23 CName (nr__1) ! Name of the counterpart (2) real*4 Sep1 (nr__1) ! (arcmin) ? Separation between HIZOA and CName real*4 Delta_v (nr__1) ! (km/s) ? {Delta}v=v(CName)-v(HIZOA) character*18 OName (nr__1) ! Optical counterpart name (2) character*1 n_OName (nr__1) ! Individual note on OName (1) real*4 Sep2 (nr__1) ! (arcmin) ? Separation between HIZOA and OName character*17 v2MASX (nr__1) ! 2MASS counterpart (Cat. <VII/233>) (2) character*1 n_2MASX (nr__1) ! Individual note on 2MASX (1) real*4 Sep3 (nr__1) ! (arcmin) ? Separation between HIZOA and 2MASX character*10 IRAS (nr__1) ! IRAS counterpart (Cat. <II/125>) real*4 Sep4 (nr__1) ! (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(i__),RAh(i__),RAm(i__),RAs(i__),DE_(i__),DEd(i__), + DEm(i__),DEs(i__),GLON(i__),GLAT(i__),f_F_HI(i__),F_HI(i__), + e_F_HI(i__),cz(i__),e_cz(i__),V_50_(i__),e_V_50_(i__), + f_V_20_(i__),V_20_(i__),e_V_20_(i__),Dist(i__),logMHI(i__) if(ar__(72:74) .EQ. '') V_20_(i__) = iNULL__ if(ar__(76:77) .EQ. '') e_V_20_(i__) = iNULL__ RAdeg(i__) = rNULL__ DEdeg(i__) = rNULL__ c Derive coordinates RAdeg and DEdeg from input data c (RAdeg and DEdeg are set to rNULL__ when unknown) if(RAh(i__) .GT. -180) RAdeg(i__)=RAh(i__)*15. if(RAm(i__) .GT. -180) RAdeg(i__)=RAdeg(i__)+RAm(i__)/4. if(RAs(i__) .GT. -180) RAdeg(i__)=RAdeg(i__)+RAs(i__)/240. if(DEd(i__) .GE. 0) DEdeg(i__)=DEd(i__) if(DEm(i__) .GE. 0) DEdeg(i__)=DEdeg(i__)+DEm(i__)/60. if(DEs(i__) .GE. 0) DEdeg(i__)=DEdeg(i__)+DEs(i__)/3600. if(DE_(i__).EQ.'-'.AND.DEdeg(i__).GE.0) DEdeg(i__)=-DEdeg(i__) c ..............Just test output........... write(6,1) + HIZOA(i__),RAh(i__),RAm(i__),RAs(i__),DE_(i__),DEd(i__), + DEm(i__),DEs(i__),GLON(i__),GLAT(i__),f_F_HI(i__),F_HI(i__), + e_F_HI(i__),cz(i__),e_cz(i__),V_50_(i__),e_V_50_(i__), + f_V_20_(i__),V_20_(i__),e_V_20_(i__),Dist(i__),logMHI(i__) write(6,'(6H Pos: 2F8.4)') RAdeg(i__),DEdeg(i__) 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(i__),n_HIZOA(i__),GLAT_1(i__),E_B_V(i__),CName(i__), + Sep1(i__),Delta_v(i__),OName(i__),n_OName(i__),Sep2(i__), + v2MASX(i__),n_2MASX(i__),Sep3(i__),IRAS(i__),Sep4(i__) if(ar__1(13:17) .EQ. '') GLAT_1(i__) = rNULL__ if(ar__1(19:22) .EQ. '') E_B_V(i__) = rNULL__ if(ar__1(49:51) .EQ. '') Sep1(i__) = rNULL__ if(ar__1(53:58) .EQ. '') Delta_v(i__) = rNULL__ if(ar__1(82:84) .EQ. '') Sep2(i__) = rNULL__ if(ar__1(106:108) .EQ. '') Sep3(i__) = rNULL__ if(ar__1(121:123) .EQ. '') Sep4(i__) = rNULL__ c ..............Just test output........... write(6,2) + HIZOA_1(i__),n_HIZOA(i__),GLAT_1(i__),E_B_V(i__),CName(i__), + Sep1(i__),Delta_v(i__),OName(i__),n_OName(i__),Sep2(i__), + v2MASX(i__),n_2MASX(i__),Sep3(i__),IRAS(i__),Sep4(i__) c .......End.of.Just test output........... end do close(1) C============================================================================= stop end