Conversion of standardized ReadMe file for
file /./ftp/cats/J/A_A/602/A123 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 2026-Oct-15
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/A+A/602/A123 AGN vs. host galaxy properties in COSMOS field (Lanzuisi+, 2017)
*================================================================================
*AGN vs. host galaxy properties in the COSMOS field.
* Lanzuisi G., Delvecchio I., Berta S., Brusa M., Comastri A., Gilli R.,
* Gruppioni C., Marchesi S., Perna M., Pozzi F., Salvato M., Symeonidis M.,
* Vignali C., Vito F., Volonteri M., Zamorani G.
* <Astron. Astrophys. 602, A123 (2017)>
* =2017A&A...602A.123L (SIMBAD/NED BibCode)
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table1.dat' ! Multiwavelength properties of the 692 sources
in the X-FIR sample
integer*4 nr__
parameter (nr__=692) ! Number of records
character*118 ar__ ! Full-size record
C J2000.0 position composed of: RAdeg DEdeg
integer*4 ID ! ID from Capak et al. (2007, Cat. II/284),
* Photo-z COSMOS identifier from
* Ilbert el al. (2009, Cat. J/ApJ/690/1236)
real*8 RAdeg ! (deg) Right ascension (J2000.0)
real*8 DEdeg ! (deg) Declination (J2000.0)
real*4 z ! Redshift
character*4 Flag ! Redshift flag (spectroscopic or photometric)
real*4 logLIR ! ([10-7W]) Log of IR luminosity from SF
real*4 e_logLIR ! ([10-7W]) Error in Log space of LIR
real*4 logM_ ! ([Msun]) Log of the stellar mass
real*4 e_logM_ ! ([Msun]) Error in Log space of M*
real*4 logSFR ! ([Msun/yr]) Log of the Star formation rate
character*1 l_logNH ! Upper limit flag on logNH
real*4 logNH ! ([cm-2]) Log of X-ray column density
real*4 e_logNH ! ([cm-2]) ?=-1 Error low in Log space on column
* density (1)
real*4 E_logNH_1 ! ([cm-2]) ?=-1 Error up in Log space on column
* density (1)
real*4 logLX ! ([10-7W]) Log of X-ray luminosity
real*4 e_logLX ! ([10-7W]) Error in Log space on LX
real*4 logLbol ! ([10-7W]) Log of Bolometric luminosity from Marconi et
* al. (2004MNRAS.351..169M)
integer*4 XMMID ! ? ID from XMM-Cosmos Catalog (Brusa et al.,
* 2010, Cat. J/ApJ/716/348),
* XMMC NNNNN in Simbad
character*9 CHAID ! ID from Chandra-Cosmos Legacy
* (Marchesi et al., 2016ApJ...832...70A, from
* Civano et al., 2016, Cat. J/ApJ/819/62),
* lid_NNNN or cid_NNNN
*Note (1): For sources with e_logNH and E_logNH=-1 the value of LogNH is the
* upper-limit on column density.
C=============================================================================
C Loading file 'table1.dat' ! Multiwavelength properties of the 692 sources
* in the X-FIR sample
C Format for file interpretation
1 format(
+ I7,1X,F9.5,1X,F8.6,1X,F6.4,1X,A4,1X,F5.2,1X,F4.2,1X,F5.2,1X,
+ F4.2,1X,F5.2,1X,A1,F5.2,1X,F5.2,1X,F5.2,1X,F5.2,1X,F4.2,1X,
+ F5.2,1X,I5,1X,A9)
C Effective file loading
open(unit=1,status='old',file=
+'table1.dat')
write(6,*) '....Loading file: table1.dat'
do i__=1,692
read(1,'(A118)')ar__
read(ar__,1)
+ ID,RAdeg,DEdeg,z,Flag,logLIR,e_logLIR,logM_,e_logM_,logSFR,
+ l_logNH,logNH,e_logNH,E_logNH_1,logLX,e_logLX,logLbol,XMMID,
+ CHAID
if(ar__(104:108) .EQ. '') XMMID = iNULL__
c ..............Just test output...........
write(6,1)
+ ID,RAdeg,DEdeg,z,Flag,logLIR,e_logLIR,logM_,e_logM_,logSFR,
+ l_logNH,logNH,e_logNH,E_logNH_1,logLX,e_logLX,logLbol,XMMID,
+ CHAID
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end