Conversion of standardized ReadMe file for
file /./ftp/cats/J/ApJ/705/1336 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.5, on 2013-May-26
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__=-1.e37) ! NULL real number
parameter (iNULL__=-2147483647) ! NULL int number
C=============================================================================
Cat. J/ApJ/705/1336 X-ray measurements of ChaMP-SDSS galaxies (Constantin+, 2009)
*================================================================================
*Probing the balance of AGN and star-forming activity in the local universe with
*ChaMP.
* Constantin A., Green P., Aldcroft T., Kim D.-W., Haggard D., Barkhouse W.,
* Anderson S.F.
* <Astrophys. J., 705, 1336-1355 (2009)>
* =2009ApJ...705.1336C
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table1.dat' ! X-ray measurements of ChaMP-SDSS galaxies
integer*4 nr__
parameter (nr__=107) ! Number of records
character*145 ar__ ! Full-size record
character*18 ObjID (nr__) ! SDSS ObjID
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__) ! Spectroscopic redshift
character*16 CXOMP (nr__) ! ChaMP X-ray source ID (JHHMMSS.s+DDMMSS)
real*4 OAA (nr__) ! (arcmin) Chandra off-axis angle
real*4 Cts (nr__) ! (ct) Net 0.5-8keV source counts
real*4 Exp (nr__) ! (ks) Vignetting-corrected exposure time
character*1 Targ (nr__) ! [I] I: intended Chandra PI target
real*4 NHG (nr__) ! (10+20cm-2) Galactic 21cm column
character*1 l_NHi (nr__) ! Limit flag on NHi (1)
real*4 NHi (nr__) ! (10+22cm-2) Best-fit YAXX intrinsic column density (2)
real*4 E_NHi (nr__) ! (10+22cm-2) ? Positive 1{sigma} uncertainty in NHi
real*4 e_NHi_1 (nr__) ! (10+22cm-2) ? Negative 1{sigma} uncertainty in NHi
real*4 Gamma (nr__) ! Best-fit YAXX power-law index {Gamma} (2)
real*4 E_Gamma (nr__) ! Positive 1{sigma} uncertainty in Gamma
real*4 e_Gamma_1 (nr__) ! Negative 1{sigma} uncertainty in Gamma
real*8 Fx (nr__) ! (aW/m2) X-ray flux (0.5-8keV) in units of
* 10^-15^erg/s/cm^2^
real*4 Lx (nr__) ! ([10-7W]) Log X-ray luminosity (0.5-8keV) in erg/s
character*8 Class (nr__) ! Optical spectral classification (3)
*Note (1): Upper limits are at 90% confidence level.
*Note (2): YAXX (Yet Another X-ray Xtractor) from Aldcroft, 2006HEAD....9.1358A.
* Note that only for objects with >200 counts, N^Intr.^_H_, and {Gamma}
* values are the result of fitting simultaneously a power law and absorption.
*Note (3): Classification as follows:
* S = Seyfert
* L = LINER (narrow-lined Low Ionization Nuclear Emission Regions)
* T = Transition Object (properties border on the definition of a starburst
* galaxy and an AGN)
* P = Passive galaxy (lacking optical emission line activity)
C=============================================================================
C Loading file 'table1.dat' ! X-ray measurements of ChaMP-SDSS galaxies
C Format for file interpretation
1 format(
+ A18,1X,F10.6,1X,F9.6,1X,F5.3,7X,A16,1X,F4.1,1X,F6.1,1X,F5.1,
+ 1X,A1,1X,F4.2,1X,A1,F5.2,1X,F4.1,1X,F3.1,1X,F4.1,1X,F3.1,1X,
+ F3.1,1X,F7.2,1X,F5.2,1X,A8)
C Effective file loading
open(unit=1,file='table1.dat', status='old')
write(6,*) '....Loading file: table1.dat'
do i__=1,107
read(1,'(A145)')ar__
read(ar__,1)
+ ObjID(i__),RAdeg(i__),DEdeg(i__),z(i__),CXOMP(i__),OAA(i__),
+ Cts(i__),Exp(i__),Targ(i__),NHG(i__),l_NHi(i__),NHi(i__),
+ E_NHi(i__),e_NHi_1(i__),Gamma(i__),E_Gamma(i__),
+ e_Gamma_1(i__),Fx(i__),Lx(i__),Class(i__)
if(ar__(102:105) .EQ. '') E_NHi(i__) = rNULL__
if(ar__(107:109) .EQ. '') e_NHi_1(i__) = rNULL__
c ..............Just test output...........
write(6,1)
+ ObjID(i__),RAdeg(i__),DEdeg(i__),z(i__),CXOMP(i__),OAA(i__),
+ Cts(i__),Exp(i__),Targ(i__),NHG(i__),l_NHi(i__),NHi(i__),
+ E_NHi(i__),e_NHi_1(i__),Gamma(i__),E_Gamma(i__),
+ e_Gamma_1(i__),Fx(i__),Lx(i__),Class(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end