Conversion of standardized ReadMe file for
file /./ftp/cats/J/ApJ/697/1842 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-20
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/697/1842 zCOSMOS 10K sample group catalog to z=1 (Knobel+, 2009)
*================================================================================
*An optical group catalog to z = 1 from the zCOSMOS 10 K sample.
* Knobel C., Lilly S.J., Iovino A., Porciani C., Kovac K., Cucciati O.,
* Finoguenov A., Kitzbichler M.G., Carollo C.M., Contini T., Kneib J.-P.,
* Le Fevre O., Mainieri V., Renzini A., Scodeggio M., Zamorani G.,
* Bardelli S., Bolzonella M., Bongiorno A., Caputi K., Coppa G.,
* de la Torre S., de Ravel L., Franzetti P., Garilli B., Kampczyk P.,
* Lamareille F., Le Borgne J.-F., Le Brun V., Maier C., Mignoli M., Pello R.,
* Peng Y., Montero E.P., Ricciardelli E., Silverman J.D., Tanaka M.,
* Tasca L., Tresse L., Vergani D., Zucca E., Abbas U., Bottini D., Cappi A.,
* Cassata P., Cimatti A., Fumana M., Guzzo L., Koekemoer A.M., Leauthaud A.,
* Maccagni D., Marinoni C., McCracken H.J., Memeo P., Meneux B., Oesch P.,
* Pozzetti L., Scaramella R.
* <Astrophys. J., 697, 1842-1860 (2009)>
* =2009ApJ...697.1842K
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table3.dat' ! Group catalog
integer*4 nr__
parameter (nr__=800) ! Number of records
character*48 ar__ ! Full-size record
C J2000 position composed of: RAdeg DEdeg
integer*4 GrpID ! Running identification number
integer*4 N ! Group richness
real*8 RAdeg ! (deg) Right Ascension in decimal degrees (J2000)
real*4 DEdeg ! (deg) Declination in decimal degrees (J2000)
real*4 z ! Group redshift
integer*4 sigma ! (km/s) Final velocity dispersion estimate {sigma}
real*4 Mfudge ! (Msun) The "fudge" mass (1)
real*4 GRP1 ! [0,1] First Group purity parameter (2)
*Note (1): The mass for a group with observed richness N and redshift z is
* simply given by: M_fudge_=<M_halo_(N~,z)> where
* M_halo_(N~,z) denotes the mass of a halo at redshift z
* containing N~ galaxies, N~ is the observed richness of the
* group corrected for sampling and redshift success rate, and the angle
* brackets denote the average over the halos in the 24 mocks. We will
* denote this mass as "fudge mass" to indicate that it is calibrated
* with the mocks. See section 4.4 for further details.
*Note (2): The group purity parameter (GRP_i_) for i=1,2 is defined by the
* fraction of FOF members having a galaxy purity parameter GAP>=i (see
* Note (1) of table 4). For i=1 this is the fraction of FOF members that
* are also 1WM ("one-way-matched") members, and for i=2 that are also
* 2WM ("two-way-matched") members. See section 4.1 for further details.
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table4.dat' ! Group galaxies
integer*4 nr__1
parameter (nr__1=2310) ! Number of records
character*38 ar__1 ! Full-size record
C J2000 position composed of: RAdeg DEdeg
integer*4 zCOSMOS ! Galaxy identification
integer*4 GrpID_1 ! Group identification; see Table 3
integer*4 N_1 ! Group richness
real*8 RAdeg_1 ! (deg) Right Ascension in decimal degrees (J2000)
real*4 DEdeg_1 ! (deg) Declination in decimal degrees (J2000)
real*4 z_1 ! zCOSMOS 10k-bright spectroscopic redshift
* (Lilly et al. 2009, Cat. J/ApJS/184/218)
integer*4 GAP ! [0,2] Galaxy purity parameter (1)
*Note (1): GAP is a flag indicating if a certain group galaxy is contained
* simultaneously in catalogs from FOF (Friends-of-Friends algorithm;
* (Huchra & Geller 1982, Cat. VII/86)) and from VDM (Voronoi-Delaunay
* method adapted by Gerke et al. (2005, Cat. J/ApJ/625/6). For a certain
* FOF group galaxy GAP is defined as follows:
* 0 = If there is no VDM group containing this galaxy.
* 1 = If it is also contained in a VDM group, and the FOF group has a one-way
* match to this VDM group or this VDM group exhibits a one-way match to the
* FOF group.
* 2 = If it is contained in a VDM group, and the FOF group has a two-way match
* to this VDM group.
* See section 3.3.2 for further details.
C=============================================================================
C Loading file 'table3.dat' ! Group catalog
C Format for file interpretation
1 format(I3,1X,I2,1X,F8.4,1X,F6.4,1X,F6.4,1X,I4,1X,E8.2,1X,F4.2)
C Effective file loading
open(unit=1,status='old',file=
+'table3.dat')
write(6,*) '....Loading file: table3.dat'
do i__=1,800
read(1,'(A48)')ar__
read(ar__,1)GrpID,N,RAdeg,DEdeg,z,sigma,Mfudge,GRP1
c ..............Just test output...........
write(6,1)GrpID,N,RAdeg,DEdeg,z,sigma,Mfudge,GRP1
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table4.dat' ! Group galaxies
C Format for file interpretation
2 format(I6,1X,I3,1X,I2,1X,F8.4,1X,F6.4,1X,F6.4,1X,I1)
C Effective file loading
open(unit=1,status='old',file=
+'table4.dat')
write(6,*) '....Loading file: table4.dat'
do i__=1,2310
read(1,'(A38)')ar__1
read(ar__1,2)zCOSMOS,GrpID_1,N_1,RAdeg_1,DEdeg_1,z_1,GAP
c ..............Just test output...........
write(6,2)zCOSMOS,GrpID_1,N_1,RAdeg_1,DEdeg_1,z_1,GAP
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end