Conversion of standardized ReadMe file for
file /./ftp/cats/J/ApJ/681/113 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-Mar-29 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 (nr__) ! Sequential number character*12 SWIFT (nr__) ! SWIFT designation (JHHMM.m+DDMM) (1) character*1 m_SWIFT (nr__) ! [ab] Multiplicity index on SWIFT character*1 n_SWIFT (nr__) ! [l] 3-month survey detection (2) character*24 OID (nr__) ! Identification of counterpart (3) real*8 RAdeg (nr__) ! (deg) Right ascension in decimal degrees (J2000) (4) real*8 DEdeg (nr__) ! (deg) Declination in decimal degrees (J2000) (4) character*2 Flag (nr__) ! ">15{deg}" flag (5) real*4 SNR (nr__) ! Signal-to-noise ratio real*4 fBAT (nr__) ! (10-14W/m2) BAT fluxes in the 14-195keV band real*8 z (nr__) ! ? Redshift real*4 logL (nr__) ! ([10-7W]) ? Luminosity in the 14-195keV band (6) character*1 l_logNH (nr__) ! Limit flag on lognH real*4 logNH (nr__) ! ([cm-2]) ? Hydrogen column density integer*4 r_logNH (nr__) ! ? logNH references, in refs.dat file character*1 Cplx (nr__) ! [y] y indicates that the spectrum differs * significantly from a simple power law * with absorption and an Fe line character*10 Type (nr__) ! Optically derived type (7) character*1 n_Type (nr__) ! [+*] Estimated classification (8) integer*4 r_Type (nr__) ! ? Reference for the type and/or z, where this * is not from NED, in refs.dat file real*4 Jmag (nr__) ! (mag) ? 2MASS J magnitude real*4 fROSAT (nr__) ! (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 (nr__1) ! Reference number character*18 Survey (nr__1) ! Survey or database character*21 Aut (nr__1) ! Author's name character*19 BibCode (nr__1) ! BibCode character*40 Com (nr__1) ! 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(i__),SWIFT(i__),m_SWIFT(i__),n_SWIFT(i__),OID(i__), + RAdeg(i__),DEdeg(i__),Flag(i__),SNR(i__),fBAT(i__),z(i__), + logL(i__),l_logNH(i__),logNH(i__),r_logNH(i__),Cplx(i__), + Type(i__),n_Type(i__),r_Type(i__),Jmag(i__),fROSAT(i__) if(ar__(83:90) .EQ. '') z(i__) = rNULL__ if(ar__(92:96) .EQ. '') logL(i__) = rNULL__ if(ar__(99:103) .EQ. '') logNH(i__) = rNULL__ if(ar__(105:106) .EQ. '') r_logNH(i__) = iNULL__ if(ar__(122:123) .EQ. '') r_Type(i__) = iNULL__ if(ar__(125:129) .EQ. '') Jmag(i__) = rNULL__ if(ar__(131:136) .EQ. '') fROSAT(i__) = rNULL__ c ..............Just test output........... write(6,1) + Seq(i__),SWIFT(i__),m_SWIFT(i__),n_SWIFT(i__),OID(i__), + RAdeg(i__),DEdeg(i__),Flag(i__),SNR(i__),fBAT(i__),z(i__), + logL(i__),l_logNH(i__),logNH(i__),r_logNH(i__),Cplx(i__), + Type(i__),n_Type(i__),r_Type(i__),Jmag(i__),fROSAT(i__) 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(i__),Survey(i__),Aut(i__),BibCode(i__),Com(i__) c ..............Just test output........... write(6,2) + Ref(i__),Survey(i__),Aut(i__),BibCode(i__),Com(i__) c .......End.of.Just test output........... end do close(1) C============================================================================= stop end