Conversion of standardized ReadMe file for
file /./ftp/cats/J/AJ/138/338 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 2026-Oct-12
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/138/338 Arecibo Legacy Fast ALFA Survey. IX. (Stierwalt+, 2009)
*================================================================================
*The Arecibo Legacy Fast ALFA Survey.
*IX. The Leo region H I catalog, group membership, and the H I mass function for
*the Leo I group.
* Stierwalt S., Haynes M.P., Giovanelli R., Kent B.R., Martin A.M.,
* Saintonge A., Karachentsev I.D., Karachentseva V.E.
* <Astron. J., 138, 338-361 (2009)>
* =2009AJ....138..338S
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table1.dat' ! HI Candidate Detections
integer*4 nr__
parameter (nr__=549) ! Number of records
character*101 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)
integer*4 Seq (nr__) ! [1/549] Source identification (5-NNN)
* <ALFALFA 5-NNN> in Simbad
integer*4 AGC (nr__) ! Arecibo General Catalog number
integer*4 RAh (nr__) ! (h) HI position Right Ascension (J2000) (1)
integer*4 RAm (nr__) ! (min) HI position Right Ascension (J2000) (1)
real*4 RAs (nr__) ! (s) HI position Right Ascension (J2000) (1)
character*1 DE_ (nr__) ! HI position Declination sign (J2000) (1)
integer*4 DEd (nr__) ! (deg) HI position Declination (J2000) (1)
integer*4 DEm (nr__) ! (arcmin) HI position Declination (J2000) (1)
integer*4 DEs (nr__) ! (arcsec) HI position Declination (J2000) (1)
integer*4 RAOh (nr__) ! (h) ? Optical position Right Ascension (J2000) (2)
integer*4 RAOm (nr__) ! (min) ? Optical position Right Ascension (J2000) (2)
real*4 RAOs (nr__) ! (s) ? Optical position Right Ascension (J2000) (2)
character*1 DEO_ (nr__) ! Optical position Declination sign (J2000) (2)
integer*4 DEOd (nr__) ! (deg) ? Optical position Declination (J2000) (2)
integer*4 DEOm (nr__) ! (arcmin) ? Optical position Declination (J2000) (2)
integer*4 DEOs (nr__) ! (arcsec) ? Optical position Declination (J2000) (2)
integer*4 cz (nr__) ! (km/s) Heliocentric velocity of HI source (3)
integer*4 W50 (nr__) ! (km/s) Line profile at 50% level velocity width (4)
integer*4 e_W50 (nr__) ! (km/s) Error in W50 (4)
real*4 Fc (nr__) ! (Jy.km/s) Integrated line flux (5)
real*4 S_N (nr__) ! Signal-to-noise (6)
real*4 rms (nr__) ! (mJy) Spatially integrated spectral profile noise
* figure (7)
real*4 Dist (nr__) ! (Mpc) ? Adopted distance (8)
real*4 logM (nr__) ! ([Msun]) ? Log of the HI mass (9)
integer*4 Code (nr__) ! [1/9] Object code (10)
character*1 Note (nr__) ! [*] * indicates a note in notes.dat file
*Note (1): Centroid position after correction for systematic telescope pointing
* errors (see Kent et al. (2008AJ....136..713K) for a description of how
* pointing errors vary with declination for the Arecibo telescope). The
* accuracy of HI positions depends on source strength.
*Note (2): Centroid position of the optical galaxy found to provide the most
* reasonable optical counterpart to the HI detection. Assignments of optical
* identifications are made via the Skyview website and are based on spatial
* proximity, morphology, color, and redshift. Accuracy of centroids is
* estimated to be <=25". For cases with lacking or ambiguous optical
* counterparts, comments are provided as alerted by an asterisk in the
* "Code" column.
*Note (3): Measured as the midpoint between the channels at which the flux
* density drops to 50%. The error can be estimated as half the error on
* the width.
*Note (4): Corrections for broadening but not turbulent motions, disk
* inclination, or cosmological effects are applied. The estimated error on the
* velocity width is estimated by the sum in quadrature of two components: a
* statistical error, principally dependent on the S/N ratio of the feature
* measured, and a systematic error associated with the observer's subjective
* guess at the quality of the chosen spectral extent of the feature. In the
* majority of cases, the statistical error is significantly larger than the
* systematic error; thus the latter is ignored.
*Note (5): This is measured on the integrated spectrum, obtained by spatially
* integrating the source image over a solid angle of at least 7'x7' and
* dividing by the sum of the survey beam values over the same set of image
* pixels (see Shostak & Allen 1980A&A....81..167S).
*Note (6): S/N of the detection, as estimated by
* S/N=(1000Fc/W50){omega}_smo_^1/2^/{sigma}_rms_,
* where Fc is the integrated flux density, as listed in Column 7, the ratio
* of 1000Fc/W50 is the mean flux across the feature in mJy, {omega}_smo_,
* the smoothing width expressed as the number of spectral resolution bins
* of 10km/s bridging half of the signal width, is either W50/(2x10) for
* W50<400km/s or 400/(2x10)=20 for W50>=400km/s, and {sigma}_rms_ is the
* rms noise figure across the spectrum measured in mJy at 10km/s resolution,
* as tabulated in Column "rms".
*Note (7): The noise figure is the r.m.s. as measured over the signal- and
* rfi-free portions of the spectrum, after Hanning smoothing to a spectral
* resolution of 10km/s.
*Note (8): For objects with cz_cmb_>6000, the distance is simply cz_cmb_/H0,
* where cz_cmb_ is the recessional velocity measured in the Cosmic Microwave
* Background reference frame and H0 is the Hubble constant, for which we use
* a value of 70km/s/Mpc. For objects of lower cz_cmb_, we use the
* multiattractor, peculiar velocity model for the local Universe presented in
* Masters (2005, PhD thesis, Cornell Univ). Objects which are thought to be
* parts of clusters or groups (for group membership assignments Springob et al.
* (2007, Cat. J/ApJS/172/599)) are assigned the czcmb of the cluster or group.
* A detailed analysis of group and membership of Leo objects is presented in
* Section 4.
*Note (9): Obtained using M_HI_=2.356x10^5^D^2^_Mpc_F_c_.
*Note (10): object code, defined as follows:
* 1 = refers to sources of S/N and general qualities that make it a reliable
* detection: an approximate S/N threshold of 6.5, a good match between the
* two independent polarizations, and a spatial extent consistent with the
* characteristics of the telescope beam. Thus, some candidate detections
* with S/N 6.5 have been excluded on grounds of polarization mismatch,
* spectral vicinity to RFI features or peculiar spatial properties.
* Likewise, some features of S/N<6.5 are included as reliable detections
* if the source's optical characteristics clearly resemble typical
* galaxies found at the redshift of the HI feature. We estimate that
* detection candidates with S/N<6.5 in Table will be confirmed in
* follow-up observations in better than 95% of cases (Saintonge,
* 2007AJ....133.2087S).
* 2 = refers to sources of low S/N (<6.5), which would ordinarily not be
* considered reliable detections by the criteria set for code 1. However,
* those HI candidate sources are matched with optical counterparts with
* known optical redshifts which, within their respective errors, coincide
* with those measured in the HI line. We refer to these sources
* as "priors."
* 9 = refers to objects assumed to be high-velocity clouds (HVCs) based on
* their low heliocentric velocities (<200km/s) and their lack of an
* optical counterpart; no estimate for their distance is made.
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'notes.dat' ! Individual notes
integer*4 nr__1
parameter (nr__1=138) ! Number of records
character*80 ar__1 ! Full-size record
integer*4 Seq_1 (nr__1) ! [1/549] Source identification (5-NNN)
character*74 Note_1 (nr__1) ! Text of the note
C=============================================================================
C Loading file 'table1.dat' ! HI Candidate Detections
C Format for file interpretation
1 format(
+ 2X,I3,1X,I6,1X,I2,1X,I2,1X,F4.1,1X,A1,I2,1X,I2,1X,I2,1X,I2,1X,
+ I2,1X,F4.1,1X,A1,I2,1X,I2,1X,I2,1X,I5,1X,I3,1X,I3,1X,F5.2,1X,
+ F5.1,1X,F4.2,1X,F5.1,1X,F5.2,1X,I1,1X,A1)
C Effective file loading
open(unit=1,status='old',file=
+'table1.dat')
write(6,*) '....Loading file: table1.dat'
do i__=1,549
read(1,'(A101)')ar__
read(ar__,1)
+ Seq(i__),AGC(i__),RAh(i__),RAm(i__),RAs(i__),DE_(i__),
+ DEd(i__),DEm(i__),DEs(i__),RAOh(i__),RAOm(i__),RAOs(i__),
+ DEO_(i__),DEOd(i__),DEOm(i__),DEOs(i__),cz(i__),W50(i__),
+ e_W50(i__),Fc(i__),S_N(i__),rms(i__),Dist(i__),logM(i__),
+ Code(i__),Note(i__)
if(ar__(35:36) .EQ. '') RAOh(i__) = iNULL__
if(ar__(38:39) .EQ. '') RAOm(i__) = iNULL__
if(ar__(41:44) .EQ. '') RAOs(i__) = rNULL__
if(ar__(47:48) .EQ. '') DEOd(i__) = iNULL__
if(ar__(50:51) .EQ. '') DEOm(i__) = iNULL__
if(ar__(53:54) .EQ. '') DEOs(i__) = iNULL__
if(ar__(87:91) .EQ. '') Dist(i__) = rNULL__
if(ar__(93:97) .EQ. '') logM(i__) = rNULL__
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)
+ Seq(i__),AGC(i__),RAh(i__),RAm(i__),RAs(i__),DE_(i__),
+ DEd(i__),DEm(i__),DEs(i__),RAOh(i__),RAOm(i__),RAOs(i__),
+ DEO_(i__),DEOd(i__),DEOm(i__),DEOs(i__),cz(i__),W50(i__),
+ e_W50(i__),Fc(i__),S_N(i__),rms(i__),Dist(i__),logM(i__),
+ Code(i__),Note(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 'notes.dat' ! Individual notes
C Format for file interpretation
2 format(2X,I3,1X,A74)
C Effective file loading
open(unit=1,status='old',file=
+'notes.dat')
write(6,*) '....Loading file: notes.dat'
do i__=1,138
read(1,'(A80)')ar__1
read(ar__1,2)Seq_1(i__),Note_1(i__)
c ..............Just test output...........
write(6,2)Seq_1(i__),Note_1(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end