Conversion of standardized ReadMe file for
file /./ftp/cats/J/ApJS/216/20 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-Oct-13
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/ApJS/216/20 Blanco Cosmology Survey (BCS) new reduction (Bleem+, 2015)
*================================================================================
*A new reduction of the Blanco Cosmology Survey: an optically selected galaxy
*cluster catalog and a public release of optical data products.
* Bleem L.E., Stalder B., Brodwin M., Busha M.T., Gladders M.D., High F.W.,
* Rest A., Wechsler R.H.
* <Astrophys. J. Suppl. Ser., 216, 20 (2015)>
* =2015ApJS..216...20B
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table3.dat' ! Summary information for BCS data presented in
this work
integer*4 nr__
parameter (nr__=233) ! Number of records
character*94 ar__ ! Full-size record
C J2000 position composed of: RAdeg DEdeg
character*9 BCS ! Blanco Cosmology Survey tile (HHMM+DDMM)
real*8 RAdeg ! (deg) Right Ascension in decimal degrees (J2000) (1)
real*8 DEdeg ! (deg) Declination in decimal degrees (J2000) (1)
real*4 gSee ! (arcsec) Seeing in g band images (2)
real*4 rSee ! (arcsec) Seeing in r band images (2)
real*4 iSee ! (arcsec) Seeing in i band images (2)
real*4 zSee ! (arcsec) Seeing in z band images (2)
real*4 gDepth ! (mag) [22.9/25.1] g band 5{sigma} point source
* depth (3)
real*4 rDepth ! (mag) r band 5{sigma} point source depth (3)
real*4 iDepth ! (mag) i band 5{sigma} point source depth (3)
real*4 zDepth ! (mag) [20.7/22.9] z band 5{sigma} point source
* depth (3)
real*4 Limit ! (mag) [20.1/22.5] Star limit (4)
character*15 Com ! Comments on tile (5)
*Note (1): From the center of the 36'x36' tiles.
*Note (2): The average full width at half maximum of the seeing disk of the
* single epoch images that contribute to the coadded images.
*Note (3): The point source depths are calculated as in Section 2.3.
*Note (4): Corresponds to the faintest i-band magnitude for which we find
* robust morphological separation of stars and galaxies as described
* in Section 2.6.
*Note (5): Comment as follows:
* L = A tile utilized in the low-redshift cluster search.
* H = A tile searched for higher-redshift systems (see Section 3).
* Galactic Cirrus = A tile with prominent Galactic cirrus: poor quality
* tile, not used in the cluster search (see section 3.1).
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table5.dat' ! Optically-selected Galaxy Clusters located in
the 23h BCS field
integer*4 nr__1
parameter (nr__1=349) ! Number of records
character*104 ar__1 ! Full-size record
C J2000 position composed of: RAdeg DEdeg
character*14 LCS_CL ! Identifier (JHHMMSS+DDMM.m) (1)
real*8 RAdeg_1 ! (deg) BCG right Ascension in decimal degrees (J2000)
real*8 DEdeg_1 ! (deg) BCG declination in decimal degrees (J2000)
real*4 z ! [0.1/0.8] Red-sequence redshift
real*4 e_z ! [0.02/0.07] Uncertainty in z
real*4 Signi ! [3/7] Detection significance
real*4 OR0_4 ! [10/65] Optical richness {lambda} for z<0.55
integer*4 e_OR0_4 ! Uncertainty in OR0.4
real*4 dOR0_4 ! [0/23] {Delta}{lambda}, amount the optical
* richness was boosted to account for masking
real*4 OR0_2 ! ? {lambda}(0.2L_*_) Optical richness for z<0.55
integer*4 e_OR0_2 ! ? Uncertainty in OR0.2
real*4 dOR0_2 ! ? {Delta}{lambda}(0.2L_*_), amount OR0.2
* was boosted to account for masking
real*4 M200 ! [0/1] Fraction of area masked within 200 kpc
real*4 M500 ! [0/1] Fraction of area masked within 500kpc
integer*4 Edge ! [1]? Edge of tile flag (1=yes, near edge)
character*11 PID ! Previously identified (2)
*Note (1): LCS = Little Cluster Survey; in light of the ongoing Dark Energy
* Survey (http://www.darkenergysurvey.org/) which is in the midst of
* a 5yr survey that will image 5000deg2 of the southern sky, including
* the BCS region. See section 6.
*Note (2): Previous ID in reference as follows:
* 0 = ACO (Abell et al. 1989, VII/110);
* 1 = REFLEX (Bohringer et al. 2004, J/A+A/425/367);
* 2 = Southern Cosmology Survey (Menanteau et al. 2009ApJ...698.1221M;
* 2010, J/ApJS/191/340; <SCSO JHHMMSS+DDMMSS> in Simbad);
* 3 = SPT-SZ Survey (Vanderlinde et al. 2010ApJ...722.1180V;
* Reichardt et al. 2013, J/ApJ/763/127; <SPT-CL JHHMM+DDMM> in Simbad);
* 4 = Atacama Cosmology Telescope (ACT; Marriage et al. 2011ApJ...737...61M;
* <ACT-CL JHHMM+DDMM> in Simbad);
* 5 = XMM-BCS (Suhada et al. 2012A&A...537A..39S; <[SSB2012] NNN> =
* <XBCS JHHMMSS.s+DDMMSS> in Simbad);
* 6 = PLANCK (Planck Collaboration et al. 2014A&A...571A..29P;
* see Cat. VIII/91);
* 7 = Vikhlinin et al. (1998, J/ApJ/502/558; <[VMF98] NNN> in Simbad);
* 8 = Buckley-Geer et al. (2011, J/ApJ/742/48).
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table6.dat' ! Optically-selected Galaxy Clusters located in
the 5h BCS field
integer*4 nr__2
parameter (nr__2=415) ! Number of records
character*104 ar__2 ! Full-size record
C J2000 position composed of: RAdeg DEdeg
character*14 LCS_CL_1 ! Identifier (JHHMMSS+DDMM.m) (1)
real*8 RAdeg_2 ! (deg) BCG right Ascension in decimal degrees (J2000)
real*8 DEdeg_2 ! (deg) BCG declination in decimal degrees (J2000)
real*4 z_1 ! [0.1/0.8] Red-sequence redshift
real*4 e_z_1 ! [0.02/0.07] Uncertainty in z
real*4 Signi_1 ! [3/7] Detection significance
real*4 OR0_4_1 ! [10/65] Optical richness {lambda} for z<0.55
integer*4 e_OR0_4_1 ! Uncertainty in OR0.4
real*4 dOR0_4_1 ! [0/23] {Delta}{lambda}, amount the optical
* richness was boosted to account for masking
real*4 OR0_2_1 ! ? {lambda}(0.2L_*_) Optical richness for z<0.55
integer*4 e_OR0_2_1 ! ? Uncertainty in OR0.2
real*4 dOR0_2_1 ! ? {Delta}{lambda}(0.2L_*_), amount OR0.2
* was boosted to account for masking
real*4 M200_1 ! [0/1] Fraction of area masked within 200 kpc
real*4 M500_1 ! [0/1] Fraction of area masked within 500kpc
integer*4 Edge_1 ! [1]? Edge of tile flag (1=yes, near edge)
character*11 PID_1 ! Previously identified (2)
*Note (1): LCS = Little Cluster Survey; in light of the ongoing Dark Energy
* Survey (http://www.darkenergysurvey.org/) which is in the midst of
* a 5yr survey that will image 5000deg2 of the southern sky, including
* the BCS region. See section 6.
*Note (2): Previous ID in reference as follows:
* 0 = ACO (Abell et al. 1989, VII/110);
* 1 = REFLEX (Bohringer et al. 2004, J/A+A/425/367);
* 2 = Southern Cosmology Survey (Menanteau et al. 2009ApJ...698.1221M;
* 2010, J/ApJS/191/340; <SCSO JHHMMSS+DDMMSS> in Simbad);
* 3 = SPT-SZ Survey (Vanderlinde et al. 2010ApJ...722.1180V;
* Reichardt et al. 2013, J/ApJ/763/127; <SPT-CL JHHMM+DDMM> in Simbad);
* 4 = Atacama Cosmology Telescope (ACT; Marriage et al. 2011ApJ...737...61M;
* <ACT-CL JHHMM+DDMM> in Simbad);
* 5 = XMM-BCS (Suhada et al. 2012A&A...537A..39S; <[SSB2012] NNN> =
* <XBCS JHHMMSS.s+DDMMSS> in Simbad);
* 6 = PLANCK (Planck Collaboration et al. 2014A&A...571A..29P;
* see Cat. VIII/91);
* 7 = Vikhlinin et al. (1998, J/ApJ/502/558; <[VMF98] NNN> in Simbad);
* 8 = Buckley-Geer et al. (2011, J/ApJ/742/48).
C=============================================================================
C Loading file 'table3.dat' ! Summary information for BCS data presented in
* this work
C Format for file interpretation
1 format(
+ 3X,A9,1X,F7.3,1X,F7.3,1X,F4.2,1X,F4.2,1X,F4.2,1X,F4.2,1X,F5.2,
+ 1X,F5.2,1X,F5.2,1X,F5.2,1X,F5.2,1X,A15)
C Effective file loading
open(unit=1,status='old',file=
+'table3.dat')
write(6,*) '....Loading file: table3.dat'
do i__=1,233
read(1,'(A94)')ar__
read(ar__,1)
+ BCS,RAdeg,DEdeg,gSee,rSee,iSee,zSee,gDepth,rDepth,iDepth,
+ zDepth,Limit,Com
c ..............Just test output...........
write(6,1)
+ BCS,RAdeg,DEdeg,gSee,rSee,iSee,zSee,gDepth,rDepth,iDepth,
+ zDepth,Limit,Com
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table5.dat' ! Optically-selected Galaxy Clusters located in
* the 23h BCS field
C Format for file interpretation
2 format(
+ 7X,A14,1X,F8.4,1X,F8.4,1X,F4.2,1X,F5.3,1X,F4.2,1X,F4.1,1X,I1,
+ 1X,F4.1,1X,F5.1,1X,I1,1X,F4.1,1X,F4.2,1X,F4.2,1X,I1,1X,A11)
C Effective file loading
open(unit=1,status='old',file=
+'table5.dat')
write(6,*) '....Loading file: table5.dat'
do i__=1,349
read(1,'(A104)')ar__1
read(ar__1,2)
+ LCS_CL,RAdeg_1,DEdeg_1,z,e_z,Signi,OR0_4,e_OR0_4,dOR0_4,OR0_2,
+ e_OR0_2,dOR0_2,M200,M500,Edge,PID
if(ar__1(69:73) .EQ. '') OR0_2 = rNULL__
if(ar__1(75:75) .EQ. '') e_OR0_2 = iNULL__
if(ar__1(77:80) .EQ. '') dOR0_2 = rNULL__
if(ar__1(92:92) .EQ. '') Edge = iNULL__
c ..............Just test output...........
write(6,2)
+ LCS_CL,RAdeg_1,DEdeg_1,z,e_z,Signi,OR0_4,e_OR0_4,dOR0_4,OR0_2,
+ e_OR0_2,dOR0_2,M200,M500,Edge,PID
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table6.dat' ! Optically-selected Galaxy Clusters located in
* the 5h BCS field
C Format for file interpretation
3 format(
+ 7X,A14,1X,F8.4,1X,F8.4,1X,F4.2,1X,F5.3,1X,F4.2,1X,F4.1,1X,I1,
+ 1X,F4.1,1X,F5.1,1X,I1,1X,F4.1,1X,F4.2,1X,F4.2,1X,I1,1X,A11)
C Effective file loading
open(unit=1,status='old',file=
+'table6.dat')
write(6,*) '....Loading file: table6.dat'
do i__=1,415
read(1,'(A104)')ar__2
read(ar__2,3)
+ LCS_CL_1,RAdeg_2,DEdeg_2,z_1,e_z_1,Signi_1,OR0_4_1,e_OR0_4_1,
+ dOR0_4_1,OR0_2_1,e_OR0_2_1,dOR0_2_1,M200_1,M500_1,Edge_1,PID_1
if(ar__2(69:73) .EQ. '') OR0_2_1 = rNULL__
if(ar__2(75:75) .EQ. '') e_OR0_2_1 = iNULL__
if(ar__2(77:80) .EQ. '') dOR0_2_1 = rNULL__
if(ar__2(92:92) .EQ. '') Edge_1 = iNULL__
c ..............Just test output...........
write(6,3)
+ LCS_CL_1,RAdeg_2,DEdeg_2,z_1,e_z_1,Signi_1,OR0_4_1,e_OR0_4_1,
+ dOR0_4_1,OR0_2_1,e_OR0_2_1,dOR0_2_1,M200_1,M500_1,Edge_1,PID_1
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end