Conversion of standardized ReadMe file for
file /./ftp/cats/J/ApJ/742/125 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/ApJ/742/125 Galaxies in X-ray groups. I. COSMOS memberships (George+, 2011)
*================================================================================
*Galaxies in X-ray groups.
*I. Robust membership assignment and the impact of group environments on
*quenching.
* George M.R., Leauthaud A., Bundy K., Finoguenov A., Tinker J., Lin Y.-T.,
* Mei S., Kneib J.-P., Aussel H., Behroozi P.S., Busha M.T., Capak P.,
* Coccato L., Covone G., Faure C., Fiorenza S.L., Ilbert O., Le Floc'h E.,
* Koekemoer A.M., Tanaka M., Wechsler R.H., Wolk M.
* <Astrophys. J., 742, 125 (2011)>
* =2011ApJ...742..125G
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'xgroups.dat' ! COSMOS X-ray group membership catalog
integer*4 nr__
parameter (nr__=183) ! Number of records
character*433 ar__ ! Full-size record
C J2000 position composed of: RAdeg DEdeg
integer*4 GID (nr__) ! [11/345] Group ID number
* (<[GLB2011] Group NNN> in Simbad)
* (GROUP_ID)
real*4 RAdeg (nr__) ! (deg) [149.4/151] X-ray right ascension (J2000)
* (RA)
real*4 DEdeg (nr__) ! (deg) [1.5/3] X-ray declination (J2000) (DEC)
real*4 ePos (nr__) ! (deg) [0.00014/0.009] Position uncertainty
* of X-ray source (XRAY_POS_ERR)
real*4 z (nr__) ! [0.078/1] Group redshift (REDSHIFT) (1)
real*4 e_z (nr__) ! [0.00013/0.014] z uncertainty (REDSHIFT_ERR)
real*4 logLx (nr__) ! ([10-7W]) [41.3/44.1] Log of X-ray luminosity
* in the rest-frame 0.1-2.4keV band;
* in erg/s units (LX)
real*4 e_logLx (nr__) ! ([10-7W]) [40.7/42.9] logLx uncertainty (LX_ERR)
real*4 LxScale (nr__) ! [41.3/43.9] log of scaled X-ray luminosity
* (Lx/E(z)) (LX_SCALE)
real*4 Fx (nr__) ! ([mW/m2]) [-15.5/-12.7] log of extrapolated 0.5-2kev
* flux within R500 in ergs/s/cm^2^
* (XRAY_FLUX)
real*4 e_Fx (nr__) ! ([mW/m2]) [-15.7/-14.3] Fx uncertainty (XRAY_FLUX_ERR)
integer*4 Mask (nr__) ! [0/1] Mask flag (1=masked, 0=clean)
* (FLAG_MASK)
integer*4 Poor (nr__) ! [0/1] Poor group flag (1=three or fewer
* members, 0=4+ members) (FLAG_POOR)
integer*4 Merger (nr__) ! [0/4] Merger flag (N=number of
* overlapping groups) (FLAG_MERGER)
integer*4 Qual (nr__) ! [0/1] Combined quality flag (1=good
* (129 occurrences) or 0=bad) (FLAG_INCLUDE)
real*4 logM200c (nr__) ! ([Msun]) [12.8/14.4] log Mass M_200c_ (M200C)
real*4 R200c (nr__) ! (Mpc) [0.36/1.1] Physical radius R_200c_
* (R200C_MPC)
real*4 AR200c (nr__) ! (arcsec) [53/347.1] Angular radius at group redshift
* (R200C_AS)
real*4 Conc200c (nr__) ! [3.5/5.4] Concentration c_200c_
* (C=R200/Rscale)
integer*4 Nmm (nr__) ! [0/219] Number of group members (P_MEM>0.5)
* (NMEM)
real*4 Pmm (nr__) ! [0/166.418] Sum of P_MEM over all galaxies
* (NMEM_W)
real*4 RAMdeg (nr__) ! (deg) [149.4/151]?=-999 Right ascension of Most
* Massive Group Galaxy within NFW scale
* radius (J2000) (RA_MMGGS)
real*4 DEMdeg (nr__) ! (deg) [1.6/3]?=-999 Declination of Most Massive
* Group Galaxy within NFW scale radius
* (J2000) (DEC_MMGGS)
integer*4 MMGGS (nr__) ! [1050/200932]?=-1 ID number of Most Massive
* Group Galaxy within Navarro-Frenk-White
* (NFW) scale radius (MMGGS) (ID_MMGGS)
real*4 logMM (nr__) ! ([Msun]) [9/12]?=-1 Log of stellar mass of MMGGS
* (SM_MMGGS)
real*4 RAZdeg (nr__) ! (deg) [149.4/151]?=-999 RA_MMGGS using
* spectroscopic redshift (RA_MMGGS_ZBEST)
real*4 DEZdeg (nr__) ! (deg) [1.6/3]?=-999 DEC_MMGGS using
* spectroscopic redshift (DEC_MMGGS_ZBEST)
integer*4 IDzM (nr__) ! [1050/200991]?=-1 ID_MMGGS using
* spectroscopic redshift (ID_MMGGS_ZBEST)
character*26 v_GLB2011_ (nr__) ! COSMOS CL JHHMMSS.s+DDMMSS name (NAME)
integer*4 xFlag (nr__) ! [1/3] X-ray quality flag (2)
*Note (1): Group redshifts have been determined by searching for red sequence
* overdensities within 500kpc of the X-ray centers and are refined by
* using spectroscopic redshifts when available. We use groups with z<1
* to ensure good optical identifications and small photoz uncertainties.
*Note (2): A quality flag is assigned to the reliability of the optical
* counterpart, with flags 1 and 2 indicating a secure association (165 groups),
* and higher flags indicating potential problems due to projections with
* other sources or bad photometry due to bright stars in the foreground.
* Code as follows:
* 1 = can use X-ray center, all good
* 2 = good ID, but cannot use X-ray center
* 3 = ID needs to be checked spectroscopically
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'xgal.dat' ! COSMOS galaxy membership catalog
integer*4 nr__1
parameter (nr__1=115844) ! Number of records
character*253 ar__1 ! Full-size record
C J2000 position composed of: RAdeg DEdeg
integer*4 ID (nr__1) ! [2/1443962] Galaxy ID number
* (<[GLB2011] Galaxy NNNNNNN> in Simbad)
* (GAL_ID)
real*4 F814mag (nr__1) ! (mag) [15/24.2] HST/ACS F814W SExtractor AB
* magnitude (Leauthaud+, 2007ApJS..172..219L)
* (MAG_AUTO)
real*4 RAdeg_1 (nr__1) ! (deg) [149.4/150.8] Right ascension (J2000) (RA)
real*4 DEdeg_1 (nr__1) ! (deg) [1.5/2.9] Declination (J2000) (DEC)
real*4 logM (nr__1) ! ([Msun]) [5.1/12.1] Log of stellar mass (SM)
real*4 e_logM (nr__1) ! ([Msun]) [4.7e-7/0.4] LogM uncertainty (EM_ERR)
real*4 zphot (nr__1) ! [0.001/4.7]?=-99 Photometric redshift
* from Ilbert+, 2009, J/ApJ/690/1236
real*4 e_zphot (nr__1) ! [0.0015/4.7]?=-99 Lower uncertainty on zphot
* (ZPHOT_ERRLO)
real*4 E_zphot_1 (nr__1) ! [0.008/5]?=-99 Upper uncertainty on zphot
* (ZPHOT_ERRHI)
integer*4 MMGGS_1 (nr__1) ! [0/1] Most Massive Group Galaxy within
* Navarro-Frenk-White (NFW) scale radius
* (Rs=R_200c_/c_200c_)
real*4 Pmm_1 (nr__1) ! [0/1] Membership probability (P_MEM)
integer*4 GID_1 (nr__1) ! [11/345]?=-1 Group ID number of most likely
* group (GROUP_ID)
integer*4 f_GID (nr__1) ! [0/1] Group flag (1=good, 0=bad) (GROUP_FLAG)
real*4 Dist (nr__1) ! (pc) [0/1]?=-1 Projected distance to MMGGS
* of Group ID (R/R200) (DIST_MMGGS)
integer*4 MMGGz (nr__1) ! [0/1] MMGGS using GAL_ID's
* spectroscopic redshift (MMGGS_ZBEST)
real*4 PMMGGz (nr__1) ! [0/1] Membership probability using
* GAL_ID's spectroscopic redshift (P_MEM_ZBEST)
integer*4 GIDz (nr__1) ! [11/345]?=-1 GROUP_ID using GAL_ID's
* spectroscopic redshift (GROUP_ID_ZBEST)
integer*4 f_GIDz (nr__1) ! [0/1] Group flag using GAL_ID's
* spectroscopic redshift (GROUP_FLAG_ZBEST)
real*4 Distz (nr__1) ! [0/1]?=-1 DIST_MMGGS using GAL_ID's
* spectroscopic redshift (R/R200)
* (DIST_MMGGS_ZBEST)
real*4 NUV_R (nr__1) ! (mag) [-0.85/6.4] NUV-R color index (MNUV_MR)
C=============================================================================
C Loading file 'xgroups.dat' ! COSMOS X-ray group membership catalog
C Format for file interpretation
1 format(
+ I3,1X,E23.18,1X,E23.18,1X,E15.10,1X,E15.10,1X,E15.10,1X,
+ E15.10,1X,E15.10,1X,E15.10,1X,E16.10,1X,E16.10,1X,I1,1X,I1,1X,
+ I1,1X,I1,1X,E15.10,1X,E15.10,1X,E15.10,1X,E15.10,1X,I3,1X,
+ E15.10,1X,E24.18,1X,E24.18,1X,I6,1X,E16.10,1X,E24.18,1X,
+ E24.18,1X,I6,1X,A26,1X,I1)
C Effective file loading
open(unit=1,status='old',file=
+'xgroups.dat')
write(6,*) '....Loading file: xgroups.dat'
do i__=1,183
read(1,'(A433)')ar__
read(ar__,1)
+ GID(i__),RAdeg(i__),DEdeg(i__),ePos(i__),z(i__),e_z(i__),
+ logLx(i__),e_logLx(i__),LxScale(i__),Fx(i__),e_Fx(i__),
+ Mask(i__),Poor(i__),Merger(i__),Qual(i__),logM200c(i__),
+ R200c(i__),AR200c(i__),Conc200c(i__),Nmm(i__),Pmm(i__),
+ RAMdeg(i__),DEMdeg(i__),MMGGS(i__),logMM(i__),RAZdeg(i__),
+ DEZdeg(i__),IDzM(i__),v_GLB2011_(i__),xFlag(i__)
c ..............Just test output...........
write(6,1)
+ GID(i__),RAdeg(i__),DEdeg(i__),ePos(i__),z(i__),e_z(i__),
+ logLx(i__),e_logLx(i__),LxScale(i__),Fx(i__),e_Fx(i__),
+ Mask(i__),Poor(i__),Merger(i__),Qual(i__),logM200c(i__),
+ R200c(i__),AR200c(i__),Conc200c(i__),Nmm(i__),Pmm(i__),
+ RAMdeg(i__),DEMdeg(i__),MMGGS(i__),logMM(i__),RAZdeg(i__),
+ DEZdeg(i__),IDzM(i__),v_GLB2011_(i__),xFlag(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'xgal.dat' ! COSMOS galaxy membership catalog
C Format for file interpretation
2 format(
+ I7,1X,E15.10,1X,E23.18,1X,E23.18,1X,E15.10,1X,E15.10,1X,
+ E16.10,1X,E16.10,1X,E16.10,1X,I1,1X,E15.10,1X,I3,1X,I1,1X,
+ E16.10,1X,I1,1X,E15.10,1X,I3,1X,I1,1X,E16.10,1X,E16.10)
C Effective file loading
open(unit=1,status='old',file=
+'xgal.dat')
write(6,*) '....Loading file: xgal.dat'
do i__=1,115844
read(1,'(A253)')ar__1
read(ar__1,2)
+ ID(i__),F814mag(i__),RAdeg_1(i__),DEdeg_1(i__),logM(i__),
+ e_logM(i__),zphot(i__),e_zphot(i__),E_zphot_1(i__),
+ MMGGS_1(i__),Pmm_1(i__),GID_1(i__),f_GID(i__),Dist(i__),
+ MMGGz(i__),PMMGGz(i__),GIDz(i__),f_GIDz(i__),Distz(i__),
+ NUV_R(i__)
c ..............Just test output...........
write(6,2)
+ ID(i__),F814mag(i__),RAdeg_1(i__),DEdeg_1(i__),logM(i__),
+ e_logM(i__),zphot(i__),e_zphot(i__),E_zphot_1(i__),
+ MMGGS_1(i__),Pmm_1(i__),GID_1(i__),f_GID(i__),Dist(i__),
+ MMGGz(i__),PMMGGz(i__),GIDz(i__),f_GIDz(i__),Distz(i__),
+ NUV_R(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end