Conversion of standardized ReadMe file for
file /./ftp/cats/J/ApJS/102/289 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.5, on 2013-May-25
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__
ter (rNULL__=-1.e37) ! NULL real number
parameter (iNULL__=-2147483647) ! NULL int number
C=============================================================================
Cat. J/ApJS/102/289 CNOC cluster redshift survey catalogs. II. (Yee+, 1996)
*================================================================================
*The CNOC cluster redshift survey catalogs. II. Abell 2390.
* Yee H.K.C., Ellington E., Abraham R.G., Gravel P., Carlberg R.G.,
* Smecker-Hane T.A., Schade D., Rigler M.
* <Astrophys. J. Suppl. Ser. 102, 289 (1996)>
* =1996ApJS..102..289Y (SIMBAD/NED BibCode)
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table2' ! Abell 2390 catalog
integer*4 nr__
parameter (nr__=536) ! Number of records
character*65 ar__ ! Full-size record
integer*4 PPP ! Object number (1)
real*8 oRA ! (arcsec) Offset in right ascension (2)
real*4 oDE ! (arcsec) Offset in declination (2)
real*4 rmag ! (mag) r magnitude
real*4 g_r ! (mag) ? g-r color index
real*8 z ! ? Heliocentric redshift
integer*4 e_z ! (10-5) ? rms uncertainty on z
real*4 R ! ? Correlation significance parameter
integer*4 SpClass ! ? Spectral classification of object (3)
real*4 Wm ! Magnitude selection weight
real*4 Wxy ! Geometric selection weight
*Note (1): The identification number is made of:
* - The first digit denotes the field of origin for the galaxy with
* the numbers 1, 2, 3, 4, and 5 representing the central, east 1,
* west 1, east 2 and west 2 field, respectively.
* - The second digit indicates whether the object is observed in one
* field or in an overlapping area from two fields. In the former,
* the second digit is 0; and in the latter, the second digit
* represents the field number of the overlapping field.
* - The last four digits denote the object number for each object
* within its own field, starting from the southern edge of the
* field, increasing to the north.
*Note (2): Offset from the first rank galaxy (positive is east and north).
* 1 pix = 0.3128"
*Note (3): the classification is:
* 1 and 2: elliptical
* 3: E+A
* 4: Sbc
* 5: emission-line (Irr)
* 6: active galactic nucleus/ quasar
* 77: star
* 99: observed spectroscopically but no redshift obtained
C=============================================================================
C Loading file 'table2' ! Abell 2390 catalog
C Format for file interpretation
1 format(
+ I6,1X,F7.1,1X,F6.1,1X,F5.2,1X,F5.2,1X,F7.5,1X,I3,1X,F4.1,1X,
+ I2,1X,F5.2,1X,F4.2)
C Effective file loading
open(unit=1,file='table2', status='old')
write(6,*) '....Loading file: table2'
do i__=1,536
read(1,'(A65)')ar__
read(ar__,1)PPP,oRA,oDE,rmag,g_r,z,e_z,R,SpClass,Wm,Wxy
if(ar__(29:33) .EQ. '') g_r = rNULL__
if(ar__(35:41) .EQ. '') z = rNULL__
if(ar__(43:45) .EQ. '') e_z = iNULL__
if(ar__(47:50) .EQ. '') R = rNULL__
if(ar__(52:53) .EQ. '') SpClass = iNULL__
c ..............Just test output...........
write(6,1)PPP,oRA,oDE,rmag,g_r,z,e_z,R,SpClass,Wm,Wxy
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end