Conversion of standardized ReadMe file for
file /./ftp/cats/J/ApJ/703/2232 into FORTRAN code for loading all data files into arrays.
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 (nr__) ! [N/L] Bin type: Number, N, or Luminosity, L
real*4 Bin (nr__) ! Mean number or luminosity in bin (1)
real*4 Rad (nr__) ! (Mpc) Radius in units of Mpc/h
real*4 Frac (nr__) ! Fraction of light in the BCG
real*4 M_L (nr__) ! (Msun/Lsun) The mass-to-light ratio (2)
real*4 e_M_L (nr__) ! (Msun/Lsun) Error in M/L (2)
real*4 Corr0 (nr__) ! C_0_ column value of correlation matrix
real*4 Corr1 (nr__) ! C_1_ column value of correlation matrix
real*4 Corr2 (nr__) ! C_2_ column value of correlation matrix
real*4 Corr3 (nr__) ! C_3_ column value of correlation matrix
real*4 Corr4 (nr__) ! C_4_ column value of correlation matrix
real*4 Corr5 (nr__) ! C_5_ column value of correlation matrix
real*4 Corr6 (nr__) ! C_6_ column value of correlation matrix
real*4 Corr7 (nr__) ! C_7_ column value of correlation matrix
real*4 Corr8 (nr__) ! C_8_ column value of correlation matrix
real*4 Corr9 (nr__) ! C_9_ column value of correlation matrix
real*4 Corr10 (nr__) ! C_10_ column value of correlation matrix
real*4 Corr11 (nr__) ! C_11_ column value of correlation matrix
real*4 Corr12 (nr__) ! C_12_ column value of correlation matrix
real*4 Corr13 (nr__) ! C_13_ column value of correlation matrix
real*4 Corr14 (nr__) ! C_14_ column value of correlation matrix
real*4 Corr15 (nr__) ! C_15_ column value of correlation matrix
real*4 Corr16 (nr__) ! C_16_ column value of correlation matrix
real*4 Corr17 (nr__) ! C_17_ column value of correlation matrix
real*4 Corr18 (nr__) ! C_18_ column value of correlation matrix
real*4 Corr19 (nr__) ! 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(i__),Bin(i__),Rad(i__),Frac(i__),M_L(i__),e_M_L(i__),
+ Corr0(i__),Corr1(i__),Corr2(i__),Corr3(i__),Corr4(i__),
+ Corr5(i__),Corr6(i__),Corr7(i__),Corr8(i__),Corr9(i__),
+ Corr10(i__),Corr11(i__),Corr12(i__),Corr13(i__),Corr14(i__),
+ Corr15(i__),Corr16(i__),Corr17(i__),Corr18(i__),Corr19(i__)
c ..............Just test output...........
write(6,1)
+ Type(i__),Bin(i__),Rad(i__),Frac(i__),M_L(i__),e_M_L(i__),
+ Corr0(i__),Corr1(i__),Corr2(i__),Corr3(i__),Corr4(i__),
+ Corr5(i__),Corr6(i__),Corr7(i__),Corr8(i__),Corr9(i__),
+ Corr10(i__),Corr11(i__),Corr12(i__),Corr13(i__),Corr14(i__),
+ Corr15(i__),Corr16(i__),Corr17(i__),Corr18(i__),Corr19(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end