Conversion of standardized ReadMe file for
file /./ftp/cats/J/PASJ/53/445 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 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/PASJ/53/445 ASCA Deep survey in Lockman Hole Field (Ishisaki+, 2001)
*================================================================================
*ASCA Deep survey in the Lockman Hole Field
* Ishisaki Y., Ueda Y., Yamashita A., Ohashi T., Lehmann I., Hasinger G.
* <Publ. Astron. Soc. Jap., 53, 445 (2001)>
* =2001PASJ...53..445I
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table2.dat' ! ASCA properties of the X-ray sources in the
Lockman Hole Field
integer*4 nr__
parameter (nr__=50) ! Number of records
character*109 ar__ ! Full-size record
C J2000 position composed of: RAdeg DEdeg
integer*4 v_IUY2001_ (nr__) ! Sequential number
character*2 n__IUY2001_(nr__) ! [* ] **: variable source
real*8 RAdeg (nr__) ! (deg) Right ascension (J2000)
real*8 DEdeg (nr__) ! (deg) Declination (J2000)
real*4 z (nr__) ! ? Redshift
character*2 n_z (nr__) ! [+ ] ++: Photometric redshift from Lehmann
* et al., 2001, Cat. <J/A+A/371/833>)
character*4 Class (nr__) ! Classification (1)
character*11 OthClass (nr__) ! Classification from other works (2)
character*1 l_F1_7keV (nr__) ! Limit flag on F1-7keV
real*4 F1_7keV (nr__) ! (10-16W/m2) X-flux at 1-7keV, in 10^-13^erg/s/cm^2^ (3)
real*4 e_F1_7keV (nr__) ! (10-16W/m2) ? rms uncertainty on F1-7keV
character*1 l_F1_2keV (nr__) ! Limit flag on F1-2keV
real*4 F1_2keV (nr__) ! (10-16W/m2) X-flux at 1-2keV, in 10^-13^erg/s/cm^2^ (3)
real*4 e_F1_2keV (nr__) ! (10-16W/m2) ? rms uncertainty on F1-2keV
character*1 l_F2_7keV (nr__) ! Limit flag on F2-7keV
real*4 F2_7keV (nr__) ! (10-16W/m2) X-flux at 2-7keV, in 10^-13^erg/s/cm^2^ (3)
real*4 e_F2_7keV (nr__) ! (10-16W/m2) ? rms uncertainty on F2-7keV
real*4 SF1_7keV (nr__) ! Detection significance for 1-7keV band (4)
real*4 SF1_2keV (nr__) ! Detection significance for 1-2keV band (4)
real*4 SF2_7keV (nr__) ! Detection significance for 2-7keV band (4)
real*4 HR (nr__) ! Hardness ratio (5)
real*4 e_HR (nr__) ! rms uncertainty on HR
*Note (1): Classification:
* AGN1: AGNs with ID class a-c in Schmidt et al. (1998A&A...329..495S)
* and Lehmann et al. (2000A&A...354...35L)
* AGN2: AGNs with ID class d and e in Schmidt et al. (1998A&A...329..495S)
* and Lehmann et al. (2000A&A...354...35L)
* CLUS: Cluster
* GAL: Galaxy
* GRP:
* STAR: Star
* UnID: Unidentified
*Note (2):
* PSPC-NNN : Classification given in table 4 of Hasinger et al.
* (1998A&A...329..482H)
* HRI-NNN : Classification given in table 3 of Lehmann et al.
* (2001, Cat. <J/A+A/371/833>)
* ASCA-NNN : ASCA classification
*Note (3):
* X-ray flux is calculated from a counting rate in the corresponding
* energy band,assuming a power-law spectrum with {Gamma}=1.7 with no
* intrinsic absorption. Errors or upper limits are 1{sigma}.
*Note (4): Detection significances for 1-7/1-2/2-7keV bands, defined as
* (best fit count rate)/(its 1{sigma} statistical error).
*Note (5): Hardness ratio, calculated as (H-S)/(H+S) where H and S
* represent the SIS vignetting-corrected count rate in the 2-7keV and
* 1-2keV bands, respectively. Errors are 1{sigma}.
C=============================================================================
C Loading file 'table2.dat' ! ASCA properties of the X-ray sources in the
* Lockman Hole Field
C Format for file interpretation
1 format(
+ I2,A2,1X,F7.3,1X,F7.3,1X,F5.3,A2,1X,A4,1X,A11,2X,A1,F5.3,1X,
+ F4.2,1X,A1,F5.3,1X,F5.3,1X,A1,F5.3,1X,F4.2,1X,F4.1,1X,F4.1,1X,
+ F4.1,1X,F5.2,1X,F4.2)
C Effective file loading
open(unit=1,status='old',file=
+'table2.dat')
write(6,*) '....Loading file: table2.dat'
do i__=1,50
read(1,'(A109)')ar__
read(ar__,1)
+ v_IUY2001_(i__),n__IUY2001_(i__),RAdeg(i__),DEdeg(i__),z(i__),
+ n_z(i__),Class(i__),OthClass(i__),l_F1_7keV(i__),F1_7keV(i__),
+ e_F1_7keV(i__),l_F1_2keV(i__),F1_2keV(i__),e_F1_2keV(i__),
+ l_F2_7keV(i__),F2_7keV(i__),e_F2_7keV(i__),SF1_7keV(i__),
+ SF1_2keV(i__),SF2_7keV(i__),HR(i__),e_HR(i__)
if(ar__(22:26) .EQ. '') z(i__) = rNULL__
if(ar__(55:58) .EQ. '') e_F1_7keV(i__) = rNULL__
if(ar__(67:71) .EQ. '') e_F1_2keV(i__) = rNULL__
if(ar__(80:83) .EQ. '') e_F2_7keV(i__) = rNULL__
c ..............Just test output...........
write(6,1)
+ v_IUY2001_(i__),n__IUY2001_(i__),RAdeg(i__),DEdeg(i__),z(i__),
+ n_z(i__),Class(i__),OthClass(i__),l_F1_7keV(i__),F1_7keV(i__),
+ e_F1_7keV(i__),l_F1_2keV(i__),F1_2keV(i__),e_F1_2keV(i__),
+ l_F2_7keV(i__),F2_7keV(i__),e_F2_7keV(i__),SF1_7keV(i__),
+ SF1_2keV(i__),SF2_7keV(i__),HR(i__),e_HR(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end