Conversion of standardized ReadMe file for
file /./ftp/cats/J/ApJ/826/24 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 2026-Jun-15
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/ApJ/826/24 Water masers in M31. I. Recombination lines (Darling+, 2016)
*================================================================================
*Water masers in the Andromeda galaxy.
*I. A survey for water masers, ammonia, and hydrogen recombination lines.
* Darling J., Gerard B., Amiri N., Lawrence K.
* <Astrophys. J., 826, 24-24 (2016)>
* =2016ApJ...826...24D (SIMBAD/NED BibCode)
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table1.dat' ! M31 line survey results
integer*4 nr__
parameter (nr__=506) ! Number of records
character*45 ar__ ! Full-size record
character*17 Name ! Object name (HHMMSS.s+DDMMSS.s; J2000)
character*1 f_Name ! [abm] Flag on Name (1)
real*4 H2O ! (mJy) [0.7/4.8] H_2_O rm noise value (2)
real*4 NH3_1 ! (mJy) [0.6/5.1] NH_3_ (1,1) rms noise value (2)
real*4 NH3_2 ! (mJy) [0.6/4.8] NH_3_ (2,2) rms noise value (2)
real*4 H66a ! (mJy) [0.5/4.5] H66{alpha} rms noise value (2)
integer*4 Vobs ! (km/s) [-500/-100] The observed central velocity
* tuning of the 632-674km/s (50MHz) bandwidth (3)
integer*4 VCO ! (km/s) [-582/-31]? CO velocity (3)(4)
*Note (1): Flag as follows:
* m = Detected H2O maser regions
* a = Giant star identified by Amiri & Darling (Paper II, 2016, J/ApJ/826/136).
* b = Planetary nebula identified by Merrett et al. (2006, J/MNRAS/369/120).
*Note (2): The rms noise is quoted per 3.1-3.3km/s (244kHz) channels.
*Note (3): All velocities are in the heliocentric reference frame using the
* optical definition.
*Note (4): VCO uncertainties are typically ~1km/s (Nieten+ 2006A&A...453..459N),
* but the CO velocity map shows mean and median dispersions of 19 and
* 13km/s within the GBT beam.
* Every object was manually inspected in the
* Nieten+ (2006A&A...453..459N) CO velocity map to ensure that no mask
* edges, incomplete data, or high (instrumental) velocity dispersion
* regions were included in the stack. All objects in Table 1 that show
* a CO velocity can be considered reliable (see section 3).
C=============================================================================
C Loading file 'table1.dat' ! M31 line survey results
C Format for file interpretation
1 format(A17,1X,A1,1X,F3.1,1X,F3.1,1X,F3.1,1X,F3.1,1X,I4,1X,I4)
C Effective file loading
open(unit=1,status='old',file=
+'table1.dat')
write(6,*) '....Loading file: table1.dat'
do i__=1,506
read(1,'(A45)')ar__
read(ar__,1)Name,f_Name,H2O,NH3_1,NH3_2,H66a,Vobs,VCO
if(ar__(42:45) .EQ. '') VCO = iNULL__
c ..............Just test output...........
write(6,1)Name,f_Name,H2O,NH3_1,NH3_2,H66a,Vobs,VCO
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end