Conversion of standardized ReadMe file for
file /./ftp/cats/J/AJ/137/2981 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-16
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/137/2981 Northern Optical Cluster Survey. III. (Gal+, 2009)
*================================================================================
*The Northern Sky Optical Cluster Survey.
*III. A cluster catalog covering pi steradians.
* Gal R.R., Lopes P.A.A., De Carvalho R.R., Kohl-Moreira J.L., Capelato H.V.,
* Djorgovski S.G.
* <Astron. J., 137, 2981-2999 (2009)>
* =2009AJ....137.2981G
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table1.dat' ! Cluster Properties
integer*4 nr__
parameter (nr__=15502) ! Number of records
character*90 ar__ ! Full-size record
C J2000 position composed of: RAdeg DEdeg
character*14 NSC ! Cluster identification, JHHMMSS+DDMMSS
real*8 RAdeg ! (deg) Right Ascension in decimal degrees (J2000) (1)
real*8 DEdeg ! (deg) Declination in decimal degrees (J2000) (1)
integer*4 Ndet ! Number of times cluster detected in 11
* detection passes
real*4 v_z_ ! Mean redshift from 10 photo-z runs
real*4 e__z_ ! Error in <z> (2)
real*4 Ng ! Mean richness from ten richness runs
real*4 e_Ng ! Error in Ng
real*4 Lopt ! ([solLum]) The r-band optical luminosity
real*4 e_Lopt ! ([solLum]) Error in Lopt
real*4 v_off_ ! (Mpc) Mean offset from original detected position in
* 10 photo-z runs (3)
real*8 beta ! ? The {beta} substructure parameter (4)
*Note (1): For clusters where the photometric redshift estimator succeeded,
* this is the mean of the recentered positions. Where the photo-z
* failed, this is the original detected position.
*Note (2): Including the contribution from the scatter in the photo-z
* relation and the multiple photo-z runs.
*Note (3): If the photo-z failed, this is left blank.
*Note (4): This was only calculated for clusters at 0.069<=z_phot_<=0.196.
* For a symmetric distribution {beta}~0.
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table2.dat' ! Completeness Functions
integer*4 nr__1
parameter (nr__1=19992) ! Number of records
character*18 ar__1 ! Full-size record
integer*4 Plate ! Plate number (1)
integer*4 Ng_1 ! Richness
real*4 z ! Photometric redshift
real*4 RRate ! (%) Recovery rate of clusters with given z
*Note (1): For each plate, there are 42 entries, using six richnesses
* (Ng=15, 25, 35, 50, 80, 120) given in the second column, at 7
* redshifts (z=0.08 to 0.32 with {delta}z=0.04) given in the third
* column.
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table3.dat' ! Substructure Measurements
integer*4 nr__2
parameter (nr__2=10575) ! Number of records
character*43 ar__2 ! Full-size record
character*14 NSC_1 ! Cluster identification, JHHMMSS+DDMMSS
real*4 beta_1 ! The {beta} substructure parameter (1)
real*4 FE ! The FE substructure parameter (2)
real*4 LEE2D ! The Lee 2D substructure parameter (3)
real*4 AST ! The AST substructure parameter (4)
*Note (1): For a symmetric distribution {beta}~0, while values of {beta}>0
* indicate asymmetries.
*Note (2): Values of this statistic greater than 2.5 indicate significant
* deviations from circularity.
*Note (3): Larger values of this statistic indicate the presence of two
* subclumps in the galaxy distribution.
*Note (4): This statistic takes on values near unity for substructure-free
* systems, and less than 1.0 for clumpy distributions.
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table5.dat' ! X-ray Measurements
integer*4 nr__3
parameter (nr__3=2680) ! Number of records
character*60 ar__3 ! Full-size record
character*14 NSC_2 ! Cluster identification, JHHMMSS+DDMMSS
real*8 LX0_5 ! (10+36W) X-ray luminosity within 0.5h^-1^_70_Mpc
character*1 u_LX0_5 ! Uncertainty flag on LX-0.5
real*4 e_LX0_5 ! (10+36W) Error in LX-0.5
real*4 TX0_5 ! (keV) X-ray temperature within 0.5h^-1^_70_Mpc
real*8 LX1_0 ! (10+36W) X-ray luminosity within 1.0h^-1^_70_Mpc
character*1 u_LX1_0 ! Uncertainty flag on LX-1.0
real*4 e_LX1_0 ! (10+36W) Error in LX-1.0
real*4 TX1_0 ! (keV) X-ray temperature within 1.0h^-1^_70_Mpc
C=============================================================================
C Loading file 'table1.dat' ! Cluster Properties
C Format for file interpretation
1 format(
+ 4X,A14,1X,F9.5,1X,F8.5,1X,I2,1X,F6.4,1X,F6.4,1X,F4.1,1X,F4.1,
+ 1X,F6.3,1X,F5.3,1X,F4.2,1X,F7.2)
C Effective file loading
open(unit=1,status='old',file=
+'table1.dat')
write(6,*) '....Loading file: table1.dat'
do i__=1,15502
read(1,'(A90)')ar__
read(ar__,1)
+ NSC,RAdeg,DEdeg,Ndet,v_z_,e__z_,Ng,e_Ng,Lopt,e_Lopt,v_off_,
+ beta
if(ar__(84:90) .EQ. '') beta = rNULL__
c ..............Just test output...........
write(6,1)
+ NSC,RAdeg,DEdeg,Ndet,v_z_,e__z_,Ng,e_Ng,Lopt,e_Lopt,v_off_,
+ beta
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table2.dat' ! Completeness Functions
C Format for file interpretation
2 format(I3,1X,I3,1X,F4.2,1X,F5.1)
C Effective file loading
open(unit=1,status='old',file=
+'table2.dat')
write(6,*) '....Loading file: table2.dat'
do i__=1,19992
read(1,'(A18)')ar__1
read(ar__1,2)Plate,Ng_1,z,RRate
c ..............Just test output...........
write(6,2)Plate,Ng_1,z,RRate
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table3.dat' ! Substructure Measurements
C Format for file interpretation
3 format(4X,A14,1X,F6.1,1X,F5.3,1X,F6.3,1X,F4.1)
C Effective file loading
open(unit=1,status='old',file=
+'table3.dat')
write(6,*) '....Loading file: table3.dat'
do i__=1,10575
read(1,'(A43)')ar__2
read(ar__2,3)NSC_1,beta_1,FE,LEE2D,AST
c ..............Just test output...........
write(6,3)NSC_1,beta_1,FE,LEE2D,AST
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table5.dat' ! X-ray Measurements
C Format for file interpretation
4 format(
+ 4X,A14,1X,F7.3,A1,1X,F6.3,1X,F4.1,1X,F7.3,A1,1X,F6.3,1X,F4.1)
C Effective file loading
open(unit=1,status='old',file=
+'table5.dat')
write(6,*) '....Loading file: table5.dat'
do i__=1,2680
read(1,'(A60)')ar__3
read(ar__3,4)
+ NSC_2,LX0_5,u_LX0_5,e_LX0_5,TX0_5,LX1_0,u_LX1_0,e_LX1_0,TX1_0
c ..............Just test output...........
write(6,4)
+ NSC_2,LX0_5,u_LX0_5,e_LX0_5,TX0_5,LX1_0,u_LX1_0,e_LX1_0,TX1_0
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end