Conversion of standardized ReadMe file for
file /./ftp/cats/J/ApJ/841/102 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-20
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/841/102 Type 2 AGN host galaxies in Chandra-COSMOS (Suh+, 2017)
*================================================================================
*Type 2 AGN host galaxies in the Chandra-COSMOS Legacy Survey:
*no evidence of AGN-driven quenching.
* Suh H., Civano F., Hasinger G., Lusso E., Lanzuisi G., Marchesi S.,
* Trakhtenbrot B., Allevato V., Cappelluti N., Capak P.L., Elvis M.,
* Griffiths R.E., Laigle C., Lira P., Riguccini L., Rosario D.J., Salvato M.,
* Schawinski K., Vignali C.
* <Astrophys. J., 841, 102-102 (2017)>
* =2017ApJ...841..102S (SIMBAD/NED BibCode)
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table2.dat' ! Type 2 AGN host galaxy properties derived from
the SED fitting
integer*4 nr__
parameter (nr__=2028) ! Number of records
character*74 ar__ ! Full-size record
character*9 ID ! Chandra source identifier (1)
real*4 logM_ ! ([Msun]) [8.8/12.6] log host galaxy stellar mass
real*4 E_logM_ ! ([Msun]) [0/2] Upper uncertainty in logM*
real*4 e_logM__1 ! ([Msun]) [0/2] Lower uncertainty in logM*
real*4 logSFR ! ([Msun/yr]) [-0.7/3.7] log host galaxy star formation
* rate
real*4 E_logSFR ! ([Msun/yr]) [0/2] Upper uncertainty in logSFR
real*4 e_logSFR_1 ! ([Msun/yr]) [0/3] Lower uncertainty in logSFR
real*4 logL2_10 ! ([10-7W]) [42/45.5]?=99 log absorption-corrected
* 2-10keV luminosity (in erg/s)
real*4 logL2300 ! ([10-7W]) [41.8/47] log rest-frame UV luminosity
* at 2300A (3)
real*4 logL5100 ! ([10-7W]) [42.4/45.8] log rest-frame UV luminosity
* at 5100A (3)
real*4 logL6 ! ([10-7W]) [42/46.2]?=0 log rest-frame 6um
* luminosity (4)
real*4 logLIR ! ([10-7W]) [-46.6/46.4] log 8-1000um luminosity (5)
*Note (1): From Civano et al. (2016, J/ApJ/819/62 ;
* <[CMC2016] lid NNNNN> in Simbad or
* for cid_NNNNN: <[ECV2009] NNNNN> in Simbad)
*Note (3): Of the host galaxy component. In units of erg/s.
*Note (4): Of the AGN component. In units of erg/s.
*Note (5): Of the start-burst components. In units of erg/s. Negative values
* represent the maximum SFRs of the Herschel-undetected sources.
C=============================================================================
C Loading file 'table2.dat' ! Type 2 AGN host galaxy properties derived from
* the SED fitting
C Format for file interpretation
1 format(
+ A9,2X,F5.2,1X,F4.2,1X,F4.2,1X,F6.3,1X,F4.2,1X,F4.2,1X,F5.2,1X,
+ F5.2,1X,F5.2,1X,F5.2,1X,F6.2)
C Effective file loading
open(unit=1,status='old',file=
+'table2.dat')
write(6,*) '....Loading file: table2.dat'
do i__=1,2028
read(1,'(A74)')ar__
read(ar__,1)
+ ID,logM_,E_logM_,e_logM__1,logSFR,E_logSFR,e_logSFR_1,
+ logL2_10,logL2300,logL5100,logL6,logLIR
c ..............Just test output...........
write(6,1)
+ ID,logM_,E_logM_,e_logM__1,logSFR,E_logSFR,e_logSFR_1,
+ logL2_10,logL2300,logL5100,logL6,logLIR
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end