Conversion of standardized ReadMe file for
file /./ftp/cats/J/MNRAS/414/3084 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-16
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/MNRAS/414/3084 Multi-waveband analysis of 12um galaxies (Brightman+, 2011)
*================================================================================
*An XMM-Newton spectral survey of 12 {mu}m selected galaxies.
*II. Implications for AGN selection and unification.
* Brightman M., Nandra K.
* <Mon. Not. R. Astron. Soc., 414, 3084-3104 (2011)>
* =2011MNRAS.414.3084B
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table1.dat' ! *Optical-line ratio data compiled from the
literature and nuclear activity classification
integer*4 nr__
parameter (nr__=126) ! Number of records
character*103 ar__ ! Full-size record
character*23 Name ! Galaxy name
real*4 v_OIII__Hb ! ?=- Emission-line flux ratio [OIII]/H{beta}
real*4 v_OI__Ha ! ?=- Emission-line flux ratio [OI]/H{alpha}
real*4 v_NII__Ha ! ?=- Emission-line flux ratio [NII]/H{alpha}
real*4 v_SII__Ha ! ?=- Emission-line flux ratio [SII]/H{alpha}
integer*4 Fobs ! (10-19W/m2) ?=- Observed flux of the [OIII]{lambda}5007
* line (in 10^-16^erg/s/cm2)
real*4 Ha_Hb ! ?=- Balmer decrement H{alpha}/H{beta}
integer*4 Fcor ! (10-19W/m2) ?=- Flux of the [OIII] line corrected for
* absorption using the Balmer decrement
character*4 Ref ! Reference for the line ratio data (1)
character*7 Class1 ! Activity classification based on diagram 1
character*5 Class2 ! Activity classification based on diagram 2
character*5 Class3 ! Activity classification based on diagram 3
character*9 Class ! Adopted activity classification
*Note (1): Reference for the line ratio data as follows:
* 1 = Armus, Heckman & Miley (1989ApJ...347..727A)
* 2 = Baan, Salzer & Lewinter (1998ApJ...509..633B)
* 3 = Corbett et al. (2003ApJ...583..670C)
* 4 = de Grijp et al. (1992, Cat. J/A+AS/96/389)
* 5 = Goncalves, Veron-Cetty & Veron (1999, Cat. J/A+AS/135/437)
* 6 = Ho, Filippenko & Sargent (1997, Cat. J/ApJS/112/315)
* 7 = Kewley et al. (2001, Cat. J/ApJS/132/37)
* 8 = Kim et al. (1995ApJS...98..129K)
* 9 = Kong et al. (2002, Cat. J/A+A/396/503)
* 10 = Kopylov et al. (1976Afz....12..189K)
* 11 = Maia et al. (1987AJ.....93..546M)
* 12 = Rodriguez et al. (in preparation)
* 13 = Sekiguchi & Wolstencroft (1993MNRAS.263..349S)
* 14 = Vaceli et al. (1997AJ....114.1345V)
* 15 = Veron-Cetty & Veron (2006A&A...455..773V, Cat. VII/248)
* 16 = SDSS, http://www.sdss.org
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table3.dat' ! Multi-wavelength data for our sample, which has
been analysed in this paper
integer*4 nr__1
parameter (nr__1=126) ! Number of records
character*65 ar__1 ! Full-size record
character*23 Name_1 ! Galaxy name
character*9 Class_1 ! Optical type as determined in Table 1
character*1 BLR ! [HIB] Broad-line region information taken from
* Veron-Cetty & Veron (2006, Cat. VII/248) (2)
real*4 logLX ! ([10-7W]) Observed 2-10keV luminosity
real*4 logL12 ! ([10-7W]) 12um luminosity
real*4 logL_O3_ ! ([10-7W]) ?=- Absorption-corrected [OIII] luminosity
real*4 logNH ! ([cm-2]) Measured hydrogen column density
real*4 logT ! ([---]) ?=- T=F(2-10keV)/F([OIII]) where F(2-10keV) is
* the observed X-ray flux, and F([OIII]) the
* absorption-corrected [OIII] flux
*Note (2): BLR code as follows:
* H = hidden BLR detected in optical polarized light
* I = broad lines detected in the near-IR
* B = broad lines detected in the optical spectrum of a LINER or HII region
C=============================================================================
C Loading file 'table1.dat' ! *Optical-line ratio data compiled from the
* literature and nuclear activity classification
C Format for file interpretation
1 format(
+ A23,2X,F5.2,1X,F5.2,1X,F4.2,1X,F5.2,1X,I6,1X,F6.1,1X,I6,1X,A4,
+ 1X,A7,1X,A5,1X,A5,1X,A9)
C Effective file loading
open(unit=1,status='old',file=
+'table1.dat')
write(6,*) '....Loading file: table1.dat'
do i__=1,126
read(1,'(A103)')ar__
read(ar__,1)
+ Name,v_OIII__Hb,v_OI__Ha,v_NII__Ha,v_SII__Ha,Fobs,Ha_Hb,Fcor,
+ Ref,Class1,Class2,Class3,Class
if (idig(ar__(26:30)).EQ.0) v_OIII__Hb = rNULL__
if (idig(ar__(32:36)).EQ.0) v_OI__Ha = rNULL__
if (idig(ar__(38:41)).EQ.0) v_NII__Ha = rNULL__
if (idig(ar__(43:47)).EQ.0) v_SII__Ha = rNULL__
if (Fobs .EQ. 45) Fobs = iNULL__
if (idig(ar__(56:61)).EQ.0) Ha_Hb = rNULL__
if (Fcor .EQ. 45) Fcor = iNULL__
c ..............Just test output...........
write(6,1)
+ Name,v_OIII__Hb,v_OI__Ha,v_NII__Ha,v_SII__Ha,Fobs,Ha_Hb,Fcor,
+ Ref,Class1,Class2,Class3,Class
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table3.dat' ! Multi-wavelength data for our sample, which has
* been analysed in this paper
C Format for file interpretation
2 format(A23,1X,A9,1X,A1,1X,F5.2,1X,F5.2,1X,F5.2,1X,F5.2,1X,F5.2)
C Effective file loading
open(unit=1,status='old',file=
+'table3.dat')
write(6,*) '....Loading file: table3.dat'
do i__=1,126
read(1,'(A65)')ar__1
read(ar__1,2)
+ Name_1,Class_1,BLR,logLX,logL12,logL_O3_,logNH,logT
if (idig(ar__1(49:53)).EQ.0) logL_O3_ = rNULL__
if (idig(ar__1(61:65)).EQ.0) logT = rNULL__
c ..............Just test output...........
write(6,2)
+ Name_1,Class_1,BLR,logLX,logL12,logL_O3_,logNH,logT
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end
C Locate position of first digit in string; or return 0
integer function idig(c)
character*(*) c
character*1 c1
integer lc,i
lc=len(c)
idig=0
do i=1,lc
if(c(i:i).ne.' ') go to 1
end do
1 if(i.gt.lc) return
c1=c(i:i)
if(c1.eq.'.'.or.c1.eq.'-'.or.c1.eq.'+') i=i+1
if(i.gt.lc) return
c1=c(i:i)
if(c1.ge.'0'.and.c1.le.'9') idig=i
return
end