Conversion of standardized ReadMe file for
file /./ftp/cats/J/ApJ/539/577 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-Apr-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/ApJ/539/577 Galaxy morphologies in Cl 1358+62 (Fabricant+, 2000)
*================================================================================
*Galaxy morphologies in the cluster Cl 1358+62 at z=0.33.
* Fabricant D., Franx M., Van Dokkum P.
* <Astrophys. J. 539, 577 (2000)>
* =2000ApJ...539..577F
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table2.dat' ! Morphogical catalog for Cl 1358+62
integer*4 nr__
parameter (nr__=298) ! Number of records
character*41 ar__ ! Full-size record
integer*4 Seq ! Sequential number
real*8 Xpos ! (pix) X position (1)
real*8 Ypos ! (pix) Y position (1)
real*4 Imag ! (mag) I magnitude
integer*4 cz ! (km/s) ? Redshift (2)
integer*4 Type1 ! ?=999 DF/MF/PvD morphological type (3)
integer*4 Type2 ! ?=999 AD (Alan Dressler) morphological type (4)
*Note (1): Each pixel for the X and Y positions corresponds to 0.1", and the
* cluster center is taken to be coincident with the center of galaxy 810
* at 2801.93, 2719.27. This corresponds to 13:58:20.7+62:45:33 (B1950.0).
*Note (2): We consider those galaxies with 94318<cz<102532 to be cluster
* members.
*Note (3): DF/MF/PvD classification -5/9; 15; 99; 999:
* -5 (elliptical), -4 (elliptical or S0), -2 (S0), 0 (S0 or Sa), 1 (Sa),
* 3 (Sb), 5 (Sc), 7 (Sd), 9 (Sm), 10 (Im), and 99 (peculiar or merger).
* Intermediate types (2, 4, 6, and 8) were also assigned, with type 15
* for intermediate late types.
*Note (4): AD classification:
* Following the completion of the DF/MF/PvD classifications, AD
* independently classified the Cl 358+62 galaxies according to
* techniques described in Smail et al. (1997ApJS..110..213S). AD does
* not assign galaxies to the DF/MF/PvD intermediate types -4 (E or S0)
* or 0 (S0 or Sa) in the same fashion, preferring to subdivide these
* into E/S0 (-4), S0/E (-3), S0/Sa (-1), and Sa/S0 (0). When discussing
* the cluster population in broad terms, AD's types -5 and -4 are
* combined into E, types -3, -2, and -1 into S0, and etc. DF/MF/PvD
* split the contents of the -4 bin equally into E and S0, and the 0 bin
* equally into S0 and Sa. When converting AD's descriptive types into
* numerical types, we have placed a few galaxies into the merger (99)
* bin where an individual catalog object corresponds to an interacting
* or merging pair of objects.
C=============================================================================
C Loading file 'table2.dat' ! Morphogical catalog for Cl 1358+62
C Format for file interpretation
1 format(I4,1X,F7.2,1X,F7.2,1X,F5.2,1X,I6,1X,I3,1X,I3)
C Effective file loading
open(unit=1,status='old',file=
+'table2.dat')
write(6,*) '....Loading file: table2.dat'
do i__=1,298
read(1,'(A41)')ar__
read(ar__,1)Seq,Xpos,Ypos,Imag,cz,Type1,Type2
if(ar__(28:33) .EQ. '') cz = iNULL__
c ..............Just test output...........
write(6,1)Seq,Xpos,Ypos,Imag,cz,Type1,Type2
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end