Conversion of standardized ReadMe file for
file /./ftp/cats/J/ApJ/681/113 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-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/ApJ/681/113 Swift BAT survey of AGNs (Tueller+, 2008) *================================================================================ *Swift BAT survey of AGNs. * Tueller J., Mushotzky R.F., Barthelmy S., Cannizzo J.K., Gehrels N., * Markwardt C.B., Skinner G.K., Winter L.M. * <Astrophys. J., 681, 113-127 (2008)> * =2008ApJ...681..113T C============================================================================= C Internal variables integer*4 i__ c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table1.dat' ! Swift Survey Table integer*4 nr__ parameter (nr__=154) ! Number of records character*136 ar__ ! Full-size record C J2000 position composed of: RAdeg DEdeg integer*4 Seq ! Sequential number character*12 SWIFT ! SWIFT designation (JHHMM.m+DDMM) (1) character*1 m_SWIFT ! [ab] Multiplicity index on SWIFT character*1 n_SWIFT ! [l] 3-month survey detection (2) character*24 OID ! Identification of counterpart (3) real*8 RAdeg ! (deg) Right ascension in decimal degrees (J2000) (4) real*8 DEdeg ! (deg) Declination in decimal degrees (J2000) (4) character*2 Flag ! ">15{deg}" flag (5) real*4 SNR ! Signal-to-noise ratio real*4 fBAT ! (10-14W/m2) BAT fluxes in the 14-195keV band real*8 z ! ? Redshift real*4 logL ! ([10-7W]) ? Luminosity in the 14-195keV band (6) character*1 l_logNH ! Limit flag on lognH real*4 logNH ! ([cm-2]) ? Hydrogen column density integer*4 r_logNH ! ? logNH references, in refs.dat file character*1 Cplx ! [y] y indicates that the spectrum differs * significantly from a simple power law * with absorption and an Fe line character*10 Type ! Optically derived type (7) character*1 n_Type ! [+*] Estimated classification (8) integer*4 r_Type ! ? Reference for the type and/or z, where this * is not from NED, in refs.dat file real*4 Jmag ! (mag) ? 2MASS J magnitude real*4 fROSAT ! (ct/s) ? ROSAT flux from the HEASARC database, * Schwope et al., 2000, Cat. J/AN/231/1 (9) *Note (1): The Swift name given is based on the source coordinates from * the latest analysis of Swift data except that where a name has been * previously published it is kept to avoid confusion. *Note (2): l = Sources detected in the 3 month survey (Markwardt et al., * 2005, Cat. J/ApJ/633/L77) *Note (3): The ID name given is that of the entry in the NED database * (except in those few cases there is none) *Note (4): J2000.0 coordinates for the identified counterpart. *Note (5): Flag for sources included in the quantitative analysis: * y = source is at |b|>15{deg} * y* = source is at |b|>15{deg} and SNR is also >4.8{sigma} *Note (6): Distances for luminosity were calculated using the measured * redshift and assuming it was due to Hubble flow. Luminosity errors * must include the error in measured flux and the error in distance due * to the random velocity of galaxies (~500km/s). *Note (7): For well-studied AGNs, the optical type was derived from * Veron-Cetty & Veron (2006, Cat. <VII/248>). For the remaining sources, * we determined type by examining the spectrum from archival data or * from our own observations. *Note (8): Flag as follows: * + = few remaining AGNs without an accessible spectrum * * = we classify 2MASX J09180027+0425066 as a QSO because its * luminosity is greater than 10^44.5^erg/cm2/s, and as type II * because of its very strong narrow OIII lines in SSDS. *Note (9): The J band is better to use than the K band because it is * expected to have a better sensitivity in detecting local AGNs. * The colors of hard X-ray selected AGNs have J/K values ~1 at low * redshifts, and galaxies at low z also have J/K~1 (Watanabe et al., * 2004, Cat. J/ApJ/610/128). The 2MASS survey is more sensitive in J (see * http://www.ipac.caltech.edu/2mass/releases/second/doc/figures/secvi2af5.gif, * where it is shown that the survey goes ~1mag more sensitive in J than K). c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'refs.dat' ! References integer*4 nr__1 parameter (nr__1=50) ! Number of records character*103 ar__1 ! Full-size record integer*4 Ref ! Reference number character*18 Survey ! Survey or database character*21 Aut ! Author's name character*19 BibCode ! BibCode character*40 Com ! Comments C============================================================================= C Loading file 'table1.dat' ! Swift Survey Table C Format for file interpretation 1 format( + I3,7X,A12,A1,A1,1X,A24,1X,F8.4,1X,F8.4,1X,A2,1X,F5.2,1X,F4.1, + 1X,F8.6,1X,F5.2,1X,A1,F5.2,1X,I2,1X,A1,1X,A10,A1,1X,I2,1X, + F5.2,1X,F6.3) C Effective file loading open(unit=1,status='old',file= +'table1.dat') write(6,*) '....Loading file: table1.dat' do i__=1,154 read(1,'(A136)')ar__ read(ar__,1) + Seq,SWIFT,m_SWIFT,n_SWIFT,OID,RAdeg,DEdeg,Flag,SNR,fBAT,z, + logL,l_logNH,logNH,r_logNH,Cplx,Type,n_Type,r_Type,Jmag,fROSAT if(ar__(83:90) .EQ. '') z = rNULL__ if(ar__(92:96) .EQ. '') logL = rNULL__ if(ar__(99:103) .EQ. '') logNH = rNULL__ if(ar__(105:106) .EQ. '') r_logNH = iNULL__ if(ar__(122:123) .EQ. '') r_Type = iNULL__ if(ar__(125:129) .EQ. '') Jmag = rNULL__ if(ar__(131:136) .EQ. '') fROSAT = rNULL__ c ..............Just test output........... write(6,1) + Seq,SWIFT,m_SWIFT,n_SWIFT,OID,RAdeg,DEdeg,Flag,SNR,fBAT,z, + logL,l_logNH,logNH,r_logNH,Cplx,Type,n_Type,r_Type,Jmag,fROSAT c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'refs.dat' ! References C Format for file interpretation 2 format(I2,1X,A18,1X,A21,1X,A19,A40) C Effective file loading open(unit=1,status='old',file= +'refs.dat') write(6,*) '....Loading file: refs.dat' do i__=1,50 read(1,'(A103)')ar__1 read(ar__1,2)Ref,Survey,Aut,BibCode,Com c ..............Just test output........... write(6,2)Ref,Survey,Aut,BibCode,Com c .......End.of.Just test output........... end do close(1) C============================================================================= stop end