Conversion of standardized ReadMe file for
file /./ftp/cats/J/ApJS/216/20 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-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 (nr__) ! Blanco Cosmology Survey tile (HHMM+DDMM)
real*8 RAdeg (nr__) ! (deg) Right Ascension in decimal degrees (J2000) (1)
real*8 DEdeg (nr__) ! (deg) Declination in decimal degrees (J2000) (1)
real*4 gSee (nr__) ! (arcsec) Seeing in g band images (2)
real*4 rSee (nr__) ! (arcsec) Seeing in r band images (2)
real*4 iSee (nr__) ! (arcsec) Seeing in i band images (2)
real*4 zSee (nr__) ! (arcsec) Seeing in z band images (2)
real*4 gDepth (nr__) ! (mag) [22.9/25.1] g band 5{sigma} point source
* depth (3)
real*4 rDepth (nr__) ! (mag) r band 5{sigma} point source depth (3)
real*4 iDepth (nr__) ! (mag) i band 5{sigma} point source depth (3)
real*4 zDepth (nr__) ! (mag) [20.7/22.9] z band 5{sigma} point source
* depth (3)
real*4 Limit (nr__) ! (mag) [20.1/22.5] Star limit (4)
character*15 Com (nr__) ! 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 (nr__1) ! Identifier (JHHMMSS+DDMM.m) (1)
real*8 RAdeg_1 (nr__1) ! (deg) BCG right Ascension in decimal degrees (J2000)
real*8 DEdeg_1 (nr__1) ! (deg) BCG declination in decimal degrees (J2000)
real*4 z (nr__1) ! [0.1/0.8] Red-sequence redshift
real*4 e_z (nr__1) ! [0.02/0.07] Uncertainty in z
real*4 Signi (nr__1) ! [3/7] Detection significance
real*4 OR0_4 (nr__1) ! [10/65] Optical richness {lambda} for z<0.55
integer*4 e_OR0_4 (nr__1) ! Uncertainty in OR0.4
real*4 dOR0_4 (nr__1) ! [0/23] {Delta}{lambda}, amount the optical
* richness was boosted to account for masking
real*4 OR0_2 (nr__1) ! ? {lambda}(0.2L_*_) Optical richness for z<0.55
integer*4 e_OR0_2 (nr__1) ! ? Uncertainty in OR0.2
real*4 dOR0_2 (nr__1) ! ? {Delta}{lambda}(0.2L_*_), amount OR0.2
* was boosted to account for masking
real*4 M200 (nr__1) ! [0/1] Fraction of area masked within 200 kpc
real*4 M500 (nr__1) ! [0/1] Fraction of area masked within 500kpc
integer*4 Edge (nr__1) ! [1]? Edge of tile flag (1=yes, near edge)
character*11 PID (nr__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 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 (nr__2) ! Identifier (JHHMMSS+DDMM.m) (1)
real*8 RAdeg_2 (nr__2) ! (deg) BCG right Ascension in decimal degrees (J2000)
real*8 DEdeg_2 (nr__2) ! (deg) BCG declination in decimal degrees (J2000)
real*4 z_1 (nr__2) ! [0.1/0.8] Red-sequence redshift
real*4 e_z_1 (nr__2) ! [0.02/0.07] Uncertainty in z
real*4 Signi_1 (nr__2) ! [3/7] Detection significance
real*4 OR0_4_1 (nr__2) ! [10/65] Optical richness {lambda} for z<0.55
integer*4 e_OR0_4_1 (nr__2) ! Uncertainty in OR0.4
real*4 dOR0_4_1 (nr__2) ! [0/23] {Delta}{lambda}, amount the optical
* richness was boosted to account for masking
real*4 OR0_2_1 (nr__2) ! ? {lambda}(0.2L_*_) Optical richness for z<0.55
integer*4 e_OR0_2_1 (nr__2) ! ? Uncertainty in OR0.2
real*4 dOR0_2_1 (nr__2) ! ? {Delta}{lambda}(0.2L_*_), amount OR0.2
* was boosted to account for masking
real*4 M200_1 (nr__2) ! [0/1] Fraction of area masked within 200 kpc
real*4 M500_1 (nr__2) ! [0/1] Fraction of area masked within 500kpc
integer*4 Edge_1 (nr__2) ! [1]? Edge of tile flag (1=yes, near edge)
character*11 PID_1 (nr__2) ! 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(i__),RAdeg(i__),DEdeg(i__),gSee(i__),rSee(i__),iSee(i__),
+ zSee(i__),gDepth(i__),rDepth(i__),iDepth(i__),zDepth(i__),
+ Limit(i__),Com(i__)
c ..............Just test output...........
write(6,1)
+ BCS(i__),RAdeg(i__),DEdeg(i__),gSee(i__),rSee(i__),iSee(i__),
+ zSee(i__),gDepth(i__),rDepth(i__),iDepth(i__),zDepth(i__),
+ Limit(i__),Com(i__)
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(i__),RAdeg_1(i__),DEdeg_1(i__),z(i__),e_z(i__),
+ Signi(i__),OR0_4(i__),e_OR0_4(i__),dOR0_4(i__),OR0_2(i__),
+ e_OR0_2(i__),dOR0_2(i__),M200(i__),M500(i__),Edge(i__),
+ PID(i__)
if(ar__1(69:73) .EQ. '') OR0_2(i__) = rNULL__
if(ar__1(75:75) .EQ. '') e_OR0_2(i__) = iNULL__
if(ar__1(77:80) .EQ. '') dOR0_2(i__) = rNULL__
if(ar__1(92:92) .EQ. '') Edge(i__) = iNULL__
c ..............Just test output...........
write(6,2)
+ LCS_CL(i__),RAdeg_1(i__),DEdeg_1(i__),z(i__),e_z(i__),
+ Signi(i__),OR0_4(i__),e_OR0_4(i__),dOR0_4(i__),OR0_2(i__),
+ e_OR0_2(i__),dOR0_2(i__),M200(i__),M500(i__),Edge(i__),
+ PID(i__)
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(i__),RAdeg_2(i__),DEdeg_2(i__),z_1(i__),e_z_1(i__),
+ Signi_1(i__),OR0_4_1(i__),e_OR0_4_1(i__),dOR0_4_1(i__),
+ OR0_2_1(i__),e_OR0_2_1(i__),dOR0_2_1(i__),M200_1(i__),
+ M500_1(i__),Edge_1(i__),PID_1(i__)
if(ar__2(69:73) .EQ. '') OR0_2_1(i__) = rNULL__
if(ar__2(75:75) .EQ. '') e_OR0_2_1(i__) = iNULL__
if(ar__2(77:80) .EQ. '') dOR0_2_1(i__) = rNULL__
if(ar__2(92:92) .EQ. '') Edge_1(i__) = iNULL__
c ..............Just test output...........
write(6,3)
+ LCS_CL_1(i__),RAdeg_2(i__),DEdeg_2(i__),z_1(i__),e_z_1(i__),
+ Signi_1(i__),OR0_4_1(i__),e_OR0_4_1(i__),dOR0_4_1(i__),
+ OR0_2_1(i__),e_OR0_2_1(i__),dOR0_2_1(i__),M200_1(i__),
+ M500_1(i__),Edge_1(i__),PID_1(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end