Conversion of standardized ReadMe file for
file /./ftp/cats/J/ApJ/713/L11 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/713/L11 X-ray properties of Seyfert 1 galaxies (Zhou+, 2010) *================================================================================ *A comparison of hard X-ray photon indices and iron k{alpha} emission lines in *X-ray luminous narrow- and broad-line Seyfert 1 galaxies. * Zhou X.-L., Zhang S.-N. * <Astrophys. J., 713, L11-L15 (2010)> * =2010ApJ...713L..11Z C============================================================================= C Internal variables integer*4 i__ c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table1.dat' ! XMM-Newton flux-limited sample of Seyfert 1 galaxies integer*4 nr__ parameter (nr__=114) ! Number of records character*71 ar__ ! Full-size record character*15 Name ! Source name character*4 Type ! Source type (1) real*4 Flux ! (fW/m2) Absorption-corrected 2-10keV flux in * units of 10^-12^erg/s/cm^2^ real*4 Gamma ! The 2-10keV photon index {Gamma} real*4 e_Gamma ! Uncertainty in Gamma character*2 l_EW ! [<~] Limit flag on EW integer*4 EW ! (eV) ? Equivalent width of 6.4keV narrow Fe * K{alpha} line (2) integer*4 b_EW ! (eV) ? Lower limit value on EW integer*4 B_EW_1 ! (eV) ? Upper limit value on EW real*4 logLX ! ([10-7W]) Log of 2-10keV luminosity calculated from * the 2-10keV flux integer*4 W_Hb ! (km/s) ? FWHM of broad H{beta} line character*1 f_W_Hb ! [a] W(Hb) derived from H{alpha} line (3) real*4 logER ! ([-]) ? Log of Eddington ratio (4) *Note (1): Source type as follows: * NELG = Narrow-emission-line galaxy, * NLS1 = Narrow line Seyfert 1 galaxy, * BLS1 = Broad line Seyfert 1 galaxy. * NELGs are intermediate Seyfert galaxies whose broad line regions are * lightly obscured. We take NELGs with {Gamma}>2.0 as NLS1s in our * analysis. *Note (2): The intrinsic width is fixed at 10eV for the EW measurements. *Note (3): * a = Object with the FWHMH{beta} calculated from the FWHMH{alpha} using the * relation FWHMH{beta}=1070*(FWHMH{alpha}/1000)^1.03^km/s given in * Greene & Ho (2005ApJ...630..122G). This object has the FWHMH{alpha} * measurement but lacks the FWHMH{beta} measurement. FWHMH{alpha} of * these objects are taken from Pietsch et al. (1998A&A...333...48P), * Rodriguez-Ardila et al. (2000ApJS..126...63R) and Piconcelli et al. * (2006A&A...453..839P), respectively. *Note (4): Calculated from the data available in Bianchi et al. (2009, * Cat. J/A+A/495/421). C============================================================================= C Loading file 'table1.dat' ! XMM-Newton flux-limited sample of Seyfert 1 galaxies C Format for file interpretation 1 format( + A15,1X,A4,1X,F6.2,1X,F4.2,1X,F4.2,1X,A2,1X,I3,1X,I3,1X,I3,1X, + F5.2,1X,I4,1X,A1,1X,F5.2) C Effective file loading open(unit=1,status='old',file= +'table1.dat') write(6,*) '....Loading file: table1.dat' do i__=1,114 read(1,'(A71)')ar__ read(ar__,1) + Name,Type,Flux,Gamma,e_Gamma,l_EW,EW,b_EW,B_EW_1,logLX,W_Hb, + f_W_Hb,logER if(ar__(42:44) .EQ. '') EW = iNULL__ if(ar__(46:48) .EQ. '') b_EW = iNULL__ if(ar__(50:52) .EQ. '') B_EW_1 = iNULL__ if(ar__(60:63) .EQ. '') W_Hb = iNULL__ if(ar__(67:71) .EQ. '') logER = rNULL__ c ..............Just test output........... write(6,1) + Name,Type,Flux,Gamma,e_Gamma,l_EW,EW,b_EW,B_EW_1,logLX,W_Hb, + f_W_Hb,logER c .......End.of.Just test output........... end do close(1) C============================================================================= stop end