Conversion of standardized ReadMe file for
file /./ftp/cats/J/ApJ/703/2217 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 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/703/2217 Lensing measurement of SDSS galaxy clusters. I. (Sheldon+, 2009)
*================================================================================
*Cross-correlation weak lensing of SDSS galaxy clusters.
*I. Measurements.
* Sheldon E.S., Johnston D.E., Scranton R., Koester B.P., McKay T.A.,
* Oyaizu H., Cunha C., Lima M., Lin H., Frieman J.A., Wechsler R.H.,
* Annis J., Mandelbaum R., Bahcall N.A., Fukugita M.
* <Astrophys. J., 703, 2217-2231 (2009)>
* =2009ApJ...703.2217S
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table1.dat' ! The {Delta}{Sigma} data for MaxBCG clusters
integer*4 nr__
parameter (nr__=588) ! Number of records
character*348 ar__ ! Full-size record
character*1 Type (nr__) ! [L/N] 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 DelSig (nr__) ! (Msun/pc2) Lensing measurement {Delta}{Sigma} (2)
real*4 e_DelSig (nr__) ! (Msun/pc2) The 1{sigma} error in Delsig (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
real*4 Corr20 (nr__) ! C_20_ 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}/pc^2^.
C=============================================================================
C Loading file 'table1.dat' ! The {Delta}{Sigma} data for MaxBCG clusters
C Format for file interpretation
1 format(
+ A1,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,1X,E13.6)
C Effective file loading
open(unit=1,status='old',file=
+'table1.dat')
write(6,*) '....Loading file: table1.dat'
do i__=1,588
read(1,'(A348)')ar__
read(ar__,1)
+ Type(i__),Bin(i__),Rad(i__),DelSig(i__),e_DelSig(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__),
+ Corr20(i__)
c ..............Just test output...........
write(6,1)
+ Type(i__),Bin(i__),Rad(i__),DelSig(i__),e_DelSig(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__),
+ Corr20(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end