Conversion of standardized ReadMe file for
file /./ftp/cats/J/ApJ/792/45 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/792/45 SPT-SZ survey galaxy clusters optical spectroscopy (Ruel+, 2014)
*================================================================================
*Optical spectroscopy and velocity dispersions of galaxy clusters from
*the SPT-SZ survey.
* Ruel J., Bazin G., Bayliss M., Brodwin M., Foley R.J., Stalder B.,
* Aird K.A., Armstrong R., Ashby M.L.N., Bautz M., Benson B.A., Bleem L.E.,
* Bocquet S., Carlstrom J.E., Chang C.L., Chapman S.C., Cho H.M.,
* Clocchiatti A., Crawford T.M., Crites A.T., De Haan T., Desai S.,
* Dobbs M.A., Dudley J.P., Forman W.R., George E.M., Gladders M.D.,
* Gonzalez A.H., Halverson N.W., Harrington N.L., High F.W., Holder G.P.,
* Holzapfel W.L., Hrubes J.D., Jones C., Joy M., Keisler R., Knox L.,
* Lee A.T., Leitch E.M., Liu J., Lueker M., Luong-Van D., Mantz A.,
* Marrone D.P., McDonald M., McMahon J.J., Mehl J., Meyer S.S., Mocanu L.,
* Mohr J.J., Montroy T.E., Murray S.S., Natoli T., Nurgaliev D., Padin S.,
* Plagge T., Pryke C., Reichardt C.L., Rest A., Ruhl J.E., Saliwanchik B.R.,
* Saro A., Sayre J.T., Schaffer K.K., Shaw L., Shirokoff E., Song J.,
* Suhada R., Spieler H.G., Stanford S.A., Staniszewski Z., Starsk A.A.,
* Story K., Stubbs C.W., van Engelen A., Vanderlinde K., Vieira J.D.,
* Vikhlinin A., Williamson R., Zahn O., Zenteno A.
* <Astrophys. J., 792, 45 (2014)>
* =2014ApJ...792...45R (SIMBAD/NED BibCode)
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table1.dat' ! SPT Properties and Source of Spectroscopic Data
integer*4 nr__
parameter (nr__=75) ! Number of records
character*64 ar__ ! Full-size record
C J2000 position composed of: RAdeg DEdeg
character*10 SPT_CL (nr__) ! SPT identifier of associated cluster (G1)
character*2 n_SPT_CL (nr__) ! [* **] Note on SPT-CL (2)
real*8 RAdeg (nr__) ! (deg) Right Ascension in decimal degrees (J2000)
real*8 DEdeg (nr__) ! (deg) Declination in decimal degrees (J2000)
real*4 z (nr__) ! Redshift
real*4 Signi (nr__) ! ? SPT detection significance
real*4 M500cSPT (nr__) ! (10+14Msun) ? SPT cluster mass estimate
* (in 10+14Msun/h_70_) (3)
real*4 e_M500cSPT (nr__) ! (10+14Msun) ? Error on M500cSPT
character*1 Work (nr__) ! [Y ] Source of spectroscopy in this work
integer*4 Lit (nr__) ! [1/6]? Source of spectroscopy in
* literature (4)
*Note (2): Flag as follows :
* ** = clusters are reported here as SPT detections for the first time;
* * = clusters are new discoveries.
*Note (3): Marginalized over cosmological parameters as in Reichardt et al.
* (2013, J/ApJ/763/127), for those clusters at z >or= 0.3, except for two,
* as described in Section 2.1.
*Note (4): References as follows :
* 1 = Sifon et al. 2013, J/ApJ/772/25;
* 2 = Girardi et al. 1996ApJ...457...61G;
* 3 = Struble & Rood 1999ApJS..125...35S;
* 4 = Barrena et al. 2002A&A...386..816B;
* 5 = Katgert et al. 1998, J/A+AS/129/399;
* 6 = Buckley-Geer et al. 2011, J/ApJ/742/48.
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table3.dat' ! Galaxy redshifts
integer*4 nr__1
parameter (nr__1=2070) ! Number of records
character*84 ar__1 ! Full-size record
C J2000 position composed of: RAdeg DEdeg
character*10 SPT_CL_1 (nr__1) ! SPT identifier of associated cluster (G1)
character*19 Galaxy (nr__1) ! Galaxy designation (2)
real*8 RAdeg_1 (nr__1) ! (deg) Right Ascension in decimal degrees (J2000)
real*8 DEdeg_1 (nr__1) ! (deg) Declination in decimal degrees (J2000)
real*4 z_1 (nr__1) ! Redshift
real*4 e_z (nr__1) ! Error in z
character*8 Method (nr__1) ! Redshift fitting method (3)
integer*4 Spectral (nr__1) ! [1/7] Main spectral features (4)
*Note (2): In the format Jhhmmss.ss+ddmmss.s (J2000; truncated coordinates).
*Note (3): Method as follows:
* rvsao-xc = RVSAO (routine "xcsao") cross-correlation with absorption spectrum;
* rvsao-em = RVSAO (routine "emsao') fit to emission lines;
* template = In-house chi2-minimization SDSS template fitting.
*Note (4): Main spectral features as follows:
* 1 = Ca II H&K
* 2 = O II emission
* 4 = Other emission
* 3 = Ca II H&K and O II emission
* 5 = Ca II H&K and other emission
* 6 = O II emission and other emission
* 7 = O II emission, Ca II H&K and other emission
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table4.dat' ! Cluster Redshifts and Velocity Dispersions
integer*4 nr__2
parameter (nr__2=61) ! Number of records
character*64 ar__2 ! Full-size record
character*10 SPT_CL_2 (nr__2) ! SPT identifier of associated cluster (G1)
character*2 n_SPT_CL_1 (nr__2) ! [*abcde ] Note on SPT-CL (1)
integer*4 N (nr__2) ! [3/78] Number of spectroscopic members as
* determined by iterative 3{sigma} clipping
real*4 ApRad (nr__2) ! ? Aperture radius within which members were
* sampled in units of R_200c,SPT_
real*4 z_2 (nr__2) ! Robust biweight average redshift
real*4 e_z_1 (nr__2) ! Uncertainty in z
integer*4 sigmaSPT (nr__2) ! (km/s) ? The "equivalent dispersion" calculated from
* the SZ-based SPT mass {sigma}_SPT_
* (see Section 3.2.1)
integer*4 sigmaG (nr__2) ! (km/s) ? The measured gapper scale
integer*4 e_sigmaG (nr__2) ! (km/s) ? Uncertainty in sigmaG
integer*4 sigmaBI (nr__2) ! (km/s) ? Biweight dispersion
integer*4 e_sigmaBI (nr__2) ! (km/s) ? Uncertainty in sigmaBI
*Note (1): Note as follows:
* * = Indicates potentially less reliable dispersion measurements
* (see Section 3.2);
* a = For SPT-CL J0205-5829, see also Stalder et al. (2013ApJ...763...93S);
* b = For SPT-CL J0546-5345, see also Brodwin et al. (2010ApJ...721...90B);
* c = For SPT-CL J2040-4451, see also Bayliss et al. (2013, arXiv:1307.2903);
* d = For SPT-CL J2106-5844, see also Foley et al. (2011ApJ...731...86F);
* e = For SPT-CL J2344-4243, see also McDonald et al. (2012Natur.488..349M).
C=============================================================================
C Loading file 'table1.dat' ! SPT Properties and Source of Spectroscopic Data
C Format for file interpretation
1 format(
+ 7X,A10,A2,1X,F8.4,1X,F8.4,1X,F5.3,1X,F5.2,1X,F5.2,1X,F4.2,1X,
+ A1,1X,I1)
C Effective file loading
open(unit=1,status='old',file=
+'table1.dat')
write(6,*) '....Loading file: table1.dat'
do i__=1,75
read(1,'(A64)')ar__
read(ar__,1)
+ SPT_CL(i__),n_SPT_CL(i__),RAdeg(i__),DEdeg(i__),z(i__),
+ Signi(i__),M500cSPT(i__),e_M500cSPT(i__),Work(i__),Lit(i__)
if(ar__(45:49) .EQ. '') Signi(i__) = rNULL__
if(ar__(51:55) .EQ. '') M500cSPT(i__) = rNULL__
if(ar__(57:60) .EQ. '') e_M500cSPT(i__) = rNULL__
if(ar__(64:64) .EQ. '') Lit(i__) = iNULL__
c ..............Just test output...........
write(6,1)
+ SPT_CL(i__),n_SPT_CL(i__),RAdeg(i__),DEdeg(i__),z(i__),
+ Signi(i__),M500cSPT(i__),e_M500cSPT(i__),Work(i__),Lit(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table3.dat' ! Galaxy redshifts
C Format for file interpretation
2 format(
+ 7X,A10,1X,A19,1X,F10.6,1X,F10.6,1X,F6.4,1X,F6.4,1X,A8,1X,I1)
C Effective file loading
open(unit=1,status='old',file=
+'table3.dat')
write(6,*) '....Loading file: table3.dat'
do i__=1,2070
read(1,'(A84)')ar__1
read(ar__1,2)
+ SPT_CL_1(i__),Galaxy(i__),RAdeg_1(i__),DEdeg_1(i__),z_1(i__),
+ e_z(i__),Method(i__),Spectral(i__)
c ..............Just test output...........
write(6,2)
+ SPT_CL_1(i__),Galaxy(i__),RAdeg_1(i__),DEdeg_1(i__),z_1(i__),
+ e_z(i__),Method(i__),Spectral(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table4.dat' ! Cluster Redshifts and Velocity Dispersions
C Format for file interpretation
3 format(
+ 7X,A10,1X,A2,1X,I2,1X,F3.1,1X,F6.4,1X,F6.4,1X,I4,1X,I4,1X,I3,
+ 1X,I4,1X,I3)
C Effective file loading
open(unit=1,status='old',file=
+'table4.dat')
write(6,*) '....Loading file: table4.dat'
do i__=1,61
read(1,'(A64)')ar__2
read(ar__2,3)
+ SPT_CL_2(i__),n_SPT_CL_1(i__),N(i__),ApRad(i__),z_2(i__),
+ e_z_1(i__),sigmaSPT(i__),sigmaG(i__),e_sigmaG(i__),
+ sigmaBI(i__),e_sigmaBI(i__)
if(ar__2(25:27) .EQ. '') ApRad(i__) = rNULL__
if(ar__2(43:46) .EQ. '') sigmaSPT(i__) = iNULL__
if(ar__2(48:51) .EQ. '') sigmaG(i__) = iNULL__
if(ar__2(53:55) .EQ. '') e_sigmaG(i__) = iNULL__
if(ar__2(57:60) .EQ. '') sigmaBI(i__) = iNULL__
if(ar__2(62:64) .EQ. '') e_sigmaBI(i__) = iNULL__
c ..............Just test output...........
write(6,3)
+ SPT_CL_2(i__),n_SPT_CL_1(i__),N(i__),ApRad(i__),z_2(i__),
+ e_z_1(i__),sigmaSPT(i__),sigmaG(i__),e_sigmaG(i__),
+ sigmaBI(i__),e_sigmaBI(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end