Conversion of standardized ReadMe file for
file /./ftp/cats/J/ApJ/708/584 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-28 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/708/584 SEXSI Spitzer catalog (Eckart+, 2010) *================================================================================ *A comparison of X-ray and mid-infrared selection of obscured active galactic *nuclei. * Eckart M.E., McGreer I.D., Stern D., Harrison F.A., Helfand D.J. * <Astrophys. J., 708, 584-597 (2010)> * =2010ApJ...708..584E C============================================================================= C Internal variables integer*4 i__ c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table2.dat' ! SEXSI-Spitzer catalog integer*4 nr__ parameter (nr__=290) ! Number of records character*187 ar__ ! Full-size record C J2000 position composed of: RAh RAm RAs DE- DEd DEm DEs real*8 RAdeg (nr__) ! (deg) Right Ascension J2000 real*8 DEdeg (nr__) ! (deg) Declination J2000 C ---------------------------------- ! (position vector(s) in degrees) character*16 CXOSEXSI (nr__) ! The IAU-registered name (JHHMMSS.s+DDMMSS) integer*4 RAh (nr__) ! (h) [08,22] Hour of Right Ascension (J2000) (1) integer*4 RAm (nr__) ! (min) Minute of Right Ascension (J2000) (1) real*4 RAs (nr__) ! (s) Second of Right Ascension (J2000) (1) character*1 DE_ (nr__) ! [+] Sign of the Declination (J2000) (1) integer*4 DEd (nr__) ! (deg) [03,67] Degree of Declination (J2000) (1) integer*4 DEm (nr__) ! (arcmin) Arcminute of Declination (J2000) (1) real*4 DEs (nr__) ! (arcsec) Arcsecond of Declination (J2000) (1) real*4 delRA (nr__) ! (arcsec) Corrected X-ray/Spitzer Right Ascension * position difference (2) real*4 delDE (nr__) ! (arcsec) Corrected X-ray/Spitzer Declination * position difference (2) real*8 Hflux (nr__) ! (aW/m2) Galactic absorption adjusted 2-10keV flux; * in units of 10^-15^erg/cm^2^/s real*4 HR (nr__) ! Hardness Ratio (3) character*1 l_Rmag (nr__) ! [0/1] Limit flag on Rmag: 1=Rmag is a lower * limit (0= Rmag is actual) real*4 Rmag (nr__) ! (mag) ? The R band magnitude integer*4 n_Rmag (nr__) ! [1,6] Optical ID Flag (4) real*4 logFxFo (nr__) ! ([-]) ? Log of Hflux (2-10keV) to optical flux ratio character*6 Class (nr__) ! Object type (5) real*4 z (nr__) ! ? Redshift real*4 logLx (nr__) ! ([10-7W]) ? Log of 2-10keV luminosity in erg/s (6) real*4 nH (nr__) ! ([cm-2]) ? Log of H column density character*1 l_nH (nr__) ! [ <]? Flag on nH (7) real*4 F3_6 (nr__) ! (uJy) ? Flux in Spitzer/IRAC 3.6um image real*4 e_F3_6 (nr__) ! (uJy) ? Error in F3.6 integer*4 f_F3_6 (nr__) ! [0,7] Flag on F3.6 (8) real*4 F4_5 (nr__) ! (uJy) ? Flux in Spitzer/IRAC 4.5um image real*4 e_F4_5 (nr__) ! (uJy) ? Error in F4.5 integer*4 f_F4_5 (nr__) ! [0,7] Flag on F4.5 (8) real*4 F5_8 (nr__) ! (uJy) ? Flux in Spitzer/IRAC 5.6um image real*4 e_F5_8 (nr__) ! (uJy) ? Error in F5.8 integer*4 f_F5_8 (nr__) ! [0,8] Flag on F5.8 (8) real*4 F8_0 (nr__) ! (uJy) ? Flux in Spitzer/IRAC 8.0um image real*4 e_F8_0 (nr__) ! (uJy) ? Error in F8.0 integer*4 f_F8_0 (nr__) ! [0,8] Flag on F8.0 (8) real*4 F24 (nr__) ! (uJy) ? Flux in Spitzer/MIPS 24um image real*4 e_F24 (nr__) ! (uJy) ? Error in F24 integer*4 f_F24 (nr__) ! [0,8] Flag on F24 (8) *Note (1): Positions are determined by SExtractor from Spitzer astrometry. *Note (2): Corrected x-ray position determined from * SEXSI II (Cat. J/ApJS/156/35), >0 if Spitzer is greater. *Note (3): Ratio=(H-S)/(H+S) where H is the corrected counts in the 2.0-10keV * band and S is the corrected counts in the 0.5-2.0keV band extracted at * the position of the hard band detection. *Note (4): Optical flag as follows: * 6 = non-detection but near bright source (limiting mag will be incorrect); * 5 = unclear which source is optical counterpart; * 4 = near bright source (magnitude affected); * 3 = bright source - magnitude taken from Guide Star Catalog II; * 2 = upper limit; * 1 = optical identification; * 0 = no optical coverage. *Note (5): Object type as follows: * BLAGN = Broad Line Active Galactic Nucleus; * NLAGN = Narrow Line Active Galactic Nucleus; * ELG = Emission Line Galaxy; * ALG = Absorption Line Galaxy; * unid = No Spectroscopic Observations; * cont = Continuum Only Spectrum; * star = any type of star; *Note (6): See SEXSI III (Cat. J/ApJS/165/19). *Note (7): Flag on nH as follows: * S = Source detected on off-axis ACIS-S chip (2-3) and thus nH is * calculated from HR, not spectral fit. * See SEXSI III (Cat. J/ApJS/165/19), Section 5. * < = When a nH measurement is zero we report '<' in the corresponding flag * column. * > = nH is a lower limit (occurs when HR is a lower limit and nH derived * from HR). * H = Bad XSPEC fit. nH is calculated from HR, not spectral fit. *Note (8): Flag as follows: * 8 = below nominal 5-sigma detection limit; * 7 = likely counterpart outside formal match radius; * 6 = non-detection but near bright source (limiting mag will be incorrect); * 5 = unclear which source is optical counterpart; * 4 = near bright source (magnitude affected); * 3 = not used; * 2 = upper limit; * 1 = infrared identification; * 0 = no infrared coverage. C============================================================================= C Loading file 'table2.dat' ! SEXSI-Spitzer catalog C Format for file interpretation 1 format( + A16,1X,I2,1X,I2,1X,F5.2,1X,A1,I2,1X,I2,1X,F4.1,1X,F4.1,1X, + F4.1,1X,F8.2,1X,F5.2,1X,A1,1X,F5.2,1X,I1,1X,F5.2,1X,A6,1X, + F5.3,1X,F4.1,1X,F4.1,2X,A1,1X,F6.1,1X,F6.1,1X,I1,1X,F6.1,1X, + F6.1,1X,I1,1X,F6.1,1X,F6.1,1X,I1,1X,F6.1,1X,F6.1,1X,I1,1X, + F6.1,1X,F6.1,1X,I1) C Effective file loading open(unit=1,status='old',file= +'table2.dat') write(6,*) '....Loading file: table2.dat' do i__=1,290 read(1,'(A187)')ar__ read(ar__,1) + CXOSEXSI(i__),RAh(i__),RAm(i__),RAs(i__),DE_(i__),DEd(i__), + DEm(i__),DEs(i__),delRA(i__),delDE(i__),Hflux(i__),HR(i__), + l_Rmag(i__),Rmag(i__),n_Rmag(i__),logFxFo(i__),Class(i__), + z(i__),logLx(i__),nH(i__),l_nH(i__),F3_6(i__),e_F3_6(i__), + f_F3_6(i__),F4_5(i__),e_F4_5(i__),f_F4_5(i__),F5_8(i__), + e_F5_8(i__),f_F5_8(i__),F8_0(i__),e_F8_0(i__),f_F8_0(i__), + F24(i__),e_F24(i__),f_F24(i__) if(ar__(69:73) .EQ. '') Rmag(i__) = rNULL__ if(ar__(77:81) .EQ. '') logFxFo(i__) = rNULL__ if(ar__(90:94) .EQ. '') z(i__) = rNULL__ if(ar__(96:99) .EQ. '') logLx(i__) = rNULL__ if(ar__(101:104) .EQ. '') nH(i__) = rNULL__ if(ar__(109:114) .EQ. '') F3_6(i__) = rNULL__ if(ar__(116:121) .EQ. '') e_F3_6(i__) = rNULL__ if(ar__(125:130) .EQ. '') F4_5(i__) = rNULL__ if(ar__(132:137) .EQ. '') e_F4_5(i__) = rNULL__ if(ar__(141:146) .EQ. '') F5_8(i__) = rNULL__ if(ar__(148:153) .EQ. '') e_F5_8(i__) = rNULL__ if(ar__(157:162) .EQ. '') F8_0(i__) = rNULL__ if(ar__(164:169) .EQ. '') e_F8_0(i__) = rNULL__ if(ar__(173:178) .EQ. '') F24(i__) = rNULL__ if(ar__(180:185) .EQ. '') e_F24(i__) = rNULL__ RAdeg(i__) = rNULL__ DEdeg(i__) = rNULL__ c Derive coordinates RAdeg and DEdeg from input data c (RAdeg and DEdeg are set to rNULL__ when unknown) if(RAh(i__) .GT. -180) RAdeg(i__)=RAh(i__)*15. if(RAm(i__) .GT. -180) RAdeg(i__)=RAdeg(i__)+RAm(i__)/4. if(RAs(i__) .GT. -180) RAdeg(i__)=RAdeg(i__)+RAs(i__)/240. if(DEd(i__) .GE. 0) DEdeg(i__)=DEd(i__) if(DEm(i__) .GE. 0) DEdeg(i__)=DEdeg(i__)+DEm(i__)/60. if(DEs(i__) .GE. 0) DEdeg(i__)=DEdeg(i__)+DEs(i__)/3600. if(DE_(i__).EQ.'-'.AND.DEdeg(i__).GE.0) DEdeg(i__)=-DEdeg(i__) c ..............Just test output........... write(6,1) + CXOSEXSI(i__),RAh(i__),RAm(i__),RAs(i__),DE_(i__),DEd(i__), + DEm(i__),DEs(i__),delRA(i__),delDE(i__),Hflux(i__),HR(i__), + l_Rmag(i__),Rmag(i__),n_Rmag(i__),logFxFo(i__),Class(i__), + z(i__),logLx(i__),nH(i__),l_nH(i__),F3_6(i__),e_F3_6(i__), + f_F3_6(i__),F4_5(i__),e_F4_5(i__),f_F4_5(i__),F5_8(i__), + e_F5_8(i__),f_F5_8(i__),F8_0(i__),e_F8_0(i__),f_F8_0(i__), + F24(i__),e_F24(i__),f_F24(i__) write(6,'(6H Pos: 2F8.4)') RAdeg(i__),DEdeg(i__) c .......End.of.Just test output........... end do close(1) C============================================================================= stop end