Conversion of standardized ReadMe file for
file /./ftp/cats/J/AJ/130/968 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/AJ/130/968 SDSS-C4 cluster catalog (Miller+, 2005)
*================================================================================
*The C4 clustering algorithm: clusters of galaxies in the Sloan Digital Sky
*Survey.
* Miller C.J., Nichol R.C., Reichart D., Wechsler R.H., Evrard A.E.,
* Annis J., McKay T.A., Bahcall N.A., Bernardi M., Boehringer H.,
* Connolly A.J., Goto T., Kniazev A., Lamb D., Postman M., Schneider D.P.,
* Sheth R.K., Voges W.
* <Astron. J., 130, 968-1001 (2005)>
* =2005AJ....130..968M
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table2.dat' ! The SDSS-C4 cluster catalog (DR2)
integer*4 nr__
parameter (nr__=748) ! Number of records
character*147 ar__ ! Full-size record
C J2000 position composed of: RA1deg DE1deg
integer*4 SDSS_C4 (nr__) ! Source SDSS C4 identification
real*8 RA1deg (nr__) ! (deg) Right Ascension from Method 1 (J2000) (1)
real*8 DE1deg (nr__) ! (deg) Declination from Method 1 (J2000) (1)
real*8 RA2deg (nr__) ! (deg) Right Ascension from Method 2 (J2000) (1)
real*8 DE2deg (nr__) ! (deg) Declination from Method 2 (J2000) (1)
real*8 RAbdeg (nr__) ! (deg) Right Ascension of Brightest galaxy (J2000) (1)
real*8 DEbdeg (nr__) ! (deg) Declination of Brightest galaxy (J2000) (1)
real*8 z (nr__) ! Mean cluster redshift
integer*4 sigma (nr__) ! (km/s) Velocity dispersion (2)
integer*4 Rich (nr__) ! Richness
real*4 Lr (nr__) ! (solLum) Summed r-band cluster luminosity (3)
integer*4 SCF (nr__) ! [0,2] Structure Contamination Flag (4)
real*4 DS (nr__) ! Dressler-Shectman substructure statistics (a low
* value indicates a significant substructure)
character*50 ONames (nr__) ! Other names (5)
*Note (1): In decimal degrees. Method 1 uses the peak in the C4 density field as
* cluster centroid. Method 2 uses the luminosity-weighted mean centroid.
*Note (2): To convert to the rest-frame of the cluster, divide by 1+z.
*Note (3): Corrected for missed targets.
*Note (4): We define a "structure contamination flag" (SCF) to measure the degree
* of isolation in redshift space for each cluster. We assign an SCF
* based on the ratio of the standard deviation of the dispersions over
* the mean of the velocity dispersions. A cluster with SCF=0 has a ratio
* of less than 15%, whereas SCF=2 has a ratio >30%.
*Note (5): Matched to within 10 arcminute of the cluster centroid.
C=============================================================================
C Loading file 'table2.dat' ! The SDSS-C4 cluster catalog (DR2)
C Format for file interpretation
1 format(
+ I4,1X,F8.4,1X,F8.4,1X,F8.4,1X,F8.4,1X,F8.4,1X,F8.4,1X,F7.5,1X,
+ I4,1X,I3,1X,E12.6,1X,I1,1X,F4.2,1X,A50)
C Effective file loading
open(unit=1,status='old',file=
+'table2.dat')
write(6,*) '....Loading file: table2.dat'
do i__=1,748
read(1,'(A147)')ar__
read(ar__,1)
+ SDSS_C4(i__),RA1deg(i__),DE1deg(i__),RA2deg(i__),DE2deg(i__),
+ RAbdeg(i__),DEbdeg(i__),z(i__),sigma(i__),Rich(i__),Lr(i__),
+ SCF(i__),DS(i__),ONames(i__)
c ..............Just test output...........
write(6,1)
+ SDSS_C4(i__),RA1deg(i__),DE1deg(i__),RA2deg(i__),DE2deg(i__),
+ RAbdeg(i__),DEbdeg(i__),z(i__),sigma(i__),Rich(i__),Lr(i__),
+ SCF(i__),DS(i__),ONames(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end