Conversion of standardized ReadMe file for
file /./ftp/cats/J/ApJ/703/2232 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-10
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/703/2232 Weak lensing of SDSS galaxy clusters. III. (Sheldon+, 2009)
*================================================================================
*Cross-correlation weak lensing of SDSS galaxy clusters.
*III. Mass-to-Light ratios.
* Sheldon E.S., Johnston D.E., Masjedi M., McKay T.A., Blanton M.R.,
* Scranton R., Wechsler R.H., Koester B.P., Hansen S.M., Frieman J.A.,
* Annis J.
* <Astrophys. J., 703, 2232-2248 (2009)>
* =2009ApJ...703.2232S
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table3.dat' ! Mass-to-light ratio data for MaxBCG clusters
integer*4 nr__
parameter (nr__=560) ! Number of records
character*347 ar__ ! Full-size record
character*1 Type ! [N/L] Bin type: Number, N, or Luminosity, L
real*4 Bin ! Mean number or luminosity in bin (1)
real*4 Rad ! (Mpc) Radius in units of Mpc/h
real*4 Frac ! Fraction of light in the BCG
real*4 M_L ! (Msun/Lsun) The mass-to-light ratio (2)
real*4 e_M_L ! (Msun/Lsun) Error in M/L (2)
real*4 Corr0 ! C_0_ column value of correlation matrix
real*4 Corr1 ! C_1_ column value of correlation matrix
real*4 Corr2 ! C_2_ column value of correlation matrix
real*4 Corr3 ! C_3_ column value of correlation matrix
real*4 Corr4 ! C_4_ column value of correlation matrix
real*4 Corr5 ! C_5_ column value of correlation matrix
real*4 Corr6 ! C_6_ column value of correlation matrix
real*4 Corr7 ! C_7_ column value of correlation matrix
real*4 Corr8 ! C_8_ column value of correlation matrix
real*4 Corr9 ! C_9_ column value of correlation matrix
real*4 Corr10 ! C_10_ column value of correlation matrix
real*4 Corr11 ! C_11_ column value of correlation matrix
real*4 Corr12 ! C_12_ column value of correlation matrix
real*4 Corr13 ! C_13_ column value of correlation matrix
real*4 Corr14 ! C_14_ column value of correlation matrix
real*4 Corr15 ! C_15_ column value of correlation matrix
real*4 Corr16 ! C_16_ column value of correlation matrix
real*4 Corr17 ! C_17_ column value of correlation matrix
real*4 Corr18 ! C_18_ column value of correlation matrix
real*4 Corr19 ! C_19_ column value of correlation matrix
*Note (1): The units are 10^10^L{sun}/h^2^ for the Luminosity bins.
*Note (2): In units of h*M{sun}/L{sun}
C=============================================================================
C Loading file 'table3.dat' ! Mass-to-light ratio data for MaxBCG clusters
C Format for file interpretation
1 format(
+ A1,1X,E12.6,1X,E12.6,1X,E12.6,1X,E13.6,1X,E12.6,1X,E13.6,1X,
+ E13.6,1X,E13.6,1X,E13.6,1X,E13.6,1X,E13.6,1X,E13.6,1X,E13.6,
+ 1X,E13.6,1X,E13.6,1X,E13.6,1X,E13.6,1X,E13.6,1X,E13.6,1X,
+ E13.6,1X,E13.6,1X,E13.6,1X,E13.6,1X,E13.6,1X,E13.6)
C Effective file loading
open(unit=1,status='old',file=
+'table3.dat')
write(6,*) '....Loading file: table3.dat'
do i__=1,560
read(1,'(A347)')ar__
read(ar__,1)
+ Type,Bin,Rad,Frac,M_L,e_M_L,Corr0,Corr1,Corr2,Corr3,Corr4,
+ Corr5,Corr6,Corr7,Corr8,Corr9,Corr10,Corr11,Corr12,Corr13,
+ Corr14,Corr15,Corr16,Corr17,Corr18,Corr19
c ..............Just test output...........
write(6,1)
+ Type,Bin,Rad,Frac,M_L,e_M_L,Corr0,Corr1,Corr2,Corr3,Corr4,
+ Corr5,Corr6,Corr7,Corr8,Corr9,Corr10,Corr11,Corr12,Corr13,
+ Corr14,Corr15,Corr16,Corr17,Corr18,Corr19
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end