Conversion of standardized ReadMe file for
file /./ftp/cats/J/ApJ/681/1163 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 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/681/1163 Late-type galaxies in Chandra deep fields (Lehmer+, 2008)
*================================================================================
*Tracing the mass-dependent star formation history of late-type galaxies using
*X-ray emission: results from the Chandra deep fields.
* Lehmer B.D., Brandt W.N., Alexander D.M., Bell E.F., Hornschemeier A.E.,
* McIntosh D.H., Bauer F.E., Gilli R., Mainieri V., Schneider D.P.,
* Silverman J.D., Steffen A.T., Tozzi P., Wolf C.
* <Astrophys. J., 681, 1163-1182 (2008)>
* =2008ApJ...681.1163L
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table1.dat' ! X-ray detected late-type galaxies: source properties
integer*4 nr__
parameter (nr__=225) ! Number of records
character*139 ar__ ! Full-size record
character*19 CXO ! Chandra source name (JHHMMSS.ss+DDMMSS.s) (1)
real*4 zmag ! (mag) HST/ACS F850LP (z_850_ band) magnitude
real*4 z ! Redshift estimated from litterature
character*1 f_z ! [SP] Redshift: Spectroscopic or Photometric
real*4 logB ! ([Lsun]) Log of B band luminosity
real*4 logM ! ([Msun]) Log of stellar mass
character*1 l_SFR ! Limit flag on SFR
real*4 SFR ! (Msun/yr) Star-Formation Rate
character*8 Field ! Chandra detection field (2)
integer*4 Exp ! (ks) Full band (0.5-8keV) effective exposure time
character*1 l_logFF ! Limit flag on logFF
real*4 logFF ! ([mW/m2]) Log of Full band (0.5-8keV) flux
character*1 l_logSF ! Limit flag on logSF
real*4 logSF ! ([mW/m2]) Log of Soft band (0.5-2keV) flux
character*1 l_logHF ! Limit flag on logHF
real*4 logHF ! ([mW/m2]) Log of Hard band (2-8keV) flux
character*1 l_logFL ! Limit flag on logFL
real*4 logFL ! ([10-7W]) Log of Full band (0.5-8keV) luminosity
character*1 l_logSL ! Limit flag on logSL
real*4 logSL ! ([10-7W]) Log of Soft band (0.5-2keV) luminosity
character*1 l_logHL ! Limit flag on logHL
real*4 logHL ! ([10-7W]) Log of Hard band (2-8keV) luminosity
character*1 f_Gamma ! Limit or approximate flag on Gamma
real*4 Gamma ! Effective photon index {Gamma}
character*1 l_logR ! Limit flag on log R
real*4 logR ! ([-]) Log of 0.5-8keV to R band flux ratio
character*1 AGN_ ! [YN] AGN candidate?
character*9 n_AGN_ ! AGN criterion (3)
*Note (1): Sources are <CXOU JHHMMSS.s+DDMMSS> in Simbad.
*Note (2): For E-CDF-S identifications, the associated field number (1 to 4)
* indicates the Chandra pointing within which the source was detected
* (see Lehmer et al., 2005, Cat. J/ApJS/161/21 for details).
*Note (3): AGN candidates identified according criteria as follows:
* 1 = X-ray hardness to identify luminous obscured source;
* 2 = X-ray-to-optical flux ratio;
* 3 = X-ray-to-SFR correlation;
* 4 = Infrared and Radio properties;
* 5 = Optical spectroscopy.
* See section 4.1 for further details.
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table2.dat' ! Stacked late-type normal galaxies: mean properties
integer*4 nr__1
parameter (nr__1=44) ! Number of records
character*182 ar__1 ! Full-size record
character*16 Type ! Physical property used to select stacked
* sample (logL_B_, logM_*_ or SFR)
real*4 z_1 ! Mean redshift
integer*4 Ngal ! Number of stacked galaxies
integer*4 Nx ! Number of X-ray detected normal
* stacked galaxies
real*4 Fnet ! (ct) Net 0.5-8keV band source counts
real*4 Snet ! (ct) Net 0.5-2keV band source counts
real*4 Hnet ! (ct) Net 2-8keV band source counts
real*4 FS_N ! The 0.5-8keV band signal-to-noise
real*4 SS_N ! The 0.5-2keV band signal-to-noise
real*4 HS_N ! The 2-8keV band signal-to-noise
real*4 logFF_1 ! ([mW/m2]) Log of mean 0.5-8keV band flux
real*4 logSF_1 ! ([mW/m2]) Log of mean 0.5-2keV band flux
character*1 l_logHF_1 ! Limit flag on logHF
real*4 logHF_1 ! ([mW/m2]) Log of mean 2-8keV band flux
character*1 l_Fgal ! Limit flag on Fgal
real*4 Fgal ! Fraction of mean 0.5-8keV band flux
* from X-ray undetected galaxies
character*1 l_Sgal ! Limit flag on Sgal
real*4 Sgal ! Fraction of mean 0.5-2keV band flux
* from X-ray undetected galaxies
character*1 l_Hgal ! Limit flag on Hgal
real*4 Hgal ! ? Fraction of mean 2-8keV band flux
* from X-ray undetected galaxies
real*4 logFL_1 ! ([10-7W]) Log of mean 0.5-8keV band
* rest-frame luminosity
real*4 logSL_1 ! ([10-7W]) Log of mean 0.5-2keV band
* rest-frame luminosity
character*1 l_logHL_1 ! Limit flag on logHL
real*4 logHL_1 ! ([10-7W]) Log of mean 2-8keV band
* rest-frame luminosity
character*1 l_Gamma ! Limit on Gamma
real*4 Gamma_1 ! Mean effective photon index {Gamma}
real*4 logR_1 ! ([-]) Log of mean 0.5-8keV to R band flux ratio
real*4 logB_1 ! ([Lsun]) ? Log of mean B band luminosity
real*4 logM_1 ! ([Msun]) ? Log of mean stellar mass
real*4 logSFR ! ([Msun/yr]) ? Log of mean star formation rate
real*4 logXB ! ([10-7W/Lsun]) ? Log of mean X-ray to B band
* luminosity ratio
real*4 logXM ! ([10-7W/Msun]) ? Log of mean X-ray luminosity to
* stellar mass ratio
real*4 logXSFR ! ([10-7W/Msun/yr]) ? Log of mean X-ray luminosity to
* star formation rate ratio
real*4 Fagn ! Estimated Fraction of 0.5-8keV
* luminosity attributed to AGNs
real*4 Sagn ! Estimated Fraction of 0.5-2keV
* luminosity attributed to AGNs
character*1 l_Hagn ! Limit flag on Hagn
real*4 Hagn ! Estimated Fraction of 2-8keV
* luminosity attributed to AGNs
C=============================================================================
C Loading file 'table1.dat' ! X-ray detected late-type galaxies: source properties
C Format for file interpretation
1 format(
+ 3X,A19,1X,F5.2,1X,F4.2,A1,1X,F5.2,1X,F5.2,1X,A1,F6.2,1X,A8,1X,
+ I4,1X,A1,F6.2,1X,A1,F6.2,1X,A1,F6.2,1X,A1,F5.2,1X,A1,F5.2,1X,
+ A1,F5.2,1X,A1,F5.2,1X,A1,F5.2,1X,A1,1X,A9)
C Effective file loading
open(unit=1,status='old',file=
+'table1.dat')
write(6,*) '....Loading file: table1.dat'
do i__=1,225
read(1,'(A139)')ar__
read(ar__,1)
+ CXO,zmag,z,f_z,logB,logM,l_SFR,SFR,Field,Exp,l_logFF,logFF,
+ l_logSF,logSF,l_logHF,logHF,l_logFL,logFL,l_logSL,logSL,
+ l_logHL,logHL,f_Gamma,Gamma,l_logR,logR,AGN_,n_AGN_
c ..............Just test output...........
write(6,1)
+ CXO,zmag,z,f_z,logB,logM,l_SFR,SFR,Field,Exp,l_logFF,logFF,
+ l_logSF,logSF,l_logHF,logHF,l_logFL,logFL,l_logSL,logSL,
+ l_logHL,logHL,f_Gamma,Gamma,l_logR,logR,AGN_,n_AGN_
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table2.dat' ! Stacked late-type normal galaxies: mean properties
C Format for file interpretation
2 format(
+ A16,1X,F4.2,1X,I3,1X,I2,1X,F5.1,1X,F5.1,1X,F5.1,1X,F4.1,1X,
+ F4.1,1X,F3.1,1X,F6.2,1X,F6.2,1X,A1,F6.2,1X,A1,F4.2,1X,A1,F4.2,
+ 1X,A1,F4.2,1X,F5.2,1X,F5.2,1X,A1,F5.2,1X,A1,F4.2,1X,F5.2,1X,
+ F5.2,1X,F5.2,1X,F4.2,1X,F5.2,1X,F5.2,1X,F5.2,1X,F4.2,1X,F4.2,
+ 1X,A1,F4.2)
C Effective file loading
open(unit=1,status='old',file=
+'table2.dat')
write(6,*) '....Loading file: table2.dat'
do i__=1,44
read(1,'(A182)')ar__1
read(ar__1,2)
+ Type,z_1,Ngal,Nx,Fnet,Snet,Hnet,FS_N,SS_N,HS_N,logFF_1,
+ logSF_1,l_logHF_1,logHF_1,l_Fgal,Fgal,l_Sgal,Sgal,l_Hgal,Hgal,
+ logFL_1,logSL_1,l_logHL_1,logHL_1,l_Gamma,Gamma_1,logR_1,
+ logB_1,logM_1,logSFR,logXB,logXM,logXSFR,Fagn,Sagn,l_Hagn,Hagn
if(ar__1(97:100) .EQ. '') Hgal = rNULL__
if(ar__1(133:137) .EQ. '') logB_1 = rNULL__
if(ar__1(139:143) .EQ. '') logM_1 = rNULL__
if(ar__1(145:148) .EQ. '') logSFR = rNULL__
if(ar__1(150:154) .EQ. '') logXB = rNULL__
if(ar__1(156:160) .EQ. '') logXM = rNULL__
if(ar__1(162:166) .EQ. '') logXSFR = rNULL__
c ..............Just test output...........
write(6,2)
+ Type,z_1,Ngal,Nx,Fnet,Snet,Hnet,FS_N,SS_N,HS_N,logFF_1,
+ logSF_1,l_logHF_1,logHF_1,l_Fgal,Fgal,l_Sgal,Sgal,l_Hgal,Hgal,
+ logFL_1,logSL_1,l_logHL_1,logHL_1,l_Gamma,Gamma_1,logR_1,
+ logB_1,logM_1,logSFR,logXB,logXM,logXSFR,Fagn,Sagn,l_Hagn,Hagn
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end