Conversion of standardized ReadMe file for
file /./ftp/cats/J/AJ/129/2074 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/AJ/129/2074 Faint Chandra sources in SWIRE (Franceschini+, 2005) *================================================================================ *A complete multiwavelength characterization of faint Chandra X-ray sources seen *in the Spitzer wide-area infrared extragalactic (SWIRE) survey. * Franceschini A., Manners J., Polletta M.D.C., Lonsdale C., * Gonzalez-Solares E., Surace J., Shupe D., Fang F., Xu C.K., Farrah D., * Berta S., Rodighiero G., Perez-Fournon I., Hatziminaoglou E., Smith H.E., * Siana B., Rowan-Robinson M., Nandra K., Babbedge T., Vaccari M., Oliver S., * Wilkes B., Owen F., Padgett D., Frayer D., Jarrett T., Masci F., Stacey G., * Almaini O., McMahon R., Johnson O., Lawrence A., Willott C. * <Astron. J., 129, 2074-2101 (2005)> * =2005AJ....129.2074F C============================================================================= C Internal variables integer*4 i__ c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table2.dat' ! Relevant data on the Spitzer and Chandra source sample integer*4 nr__ parameter (nr__=99) ! Number of records character*136 ar__ ! Full-size record C J2000 position composed of: RAdeg DEdeg integer*4 v_MJA2003_ ! Manners et al. (2003, Cat. * <J/MNRAS/343/293>) identification number real*8 RAdeg ! (deg) Right Ascension in decimal degrees (J2000) real*8 DEdeg ! (deg) Declination in decimal degrees (J2000) real*4 S3_6um ! (mJy) ? IRAC 3.6 micron flux density real*4 e_S3_6um ! (mJy) ? Uncertainty in S3.6um real*4 S4_5um ! (mJy) ? IRAC 4.5 micron flux density real*4 e_S4_5um ! (mJy) ? Uncertainty in S4.5um real*4 S5_6um ! (mJy) ? IRAC 5.6 micron flux density real*4 e_S5_6um ! (mJy) ? Uncertainty in S5.6um real*8 S8um ! (mJy) ? IRAC 8 micron flux density real*4 e_S8um ! (mJy) ? Uncertainty in S8um real*8 S24um ! (mJy) ? MIPS 24 micron flux density real*4 e_S24um ! (mJy) ? Uncertainty in S24um real*4 Dist ! (arcsec) Chandra to Spitzer angular distance real*4 SX ! (mW/m2) Chandra (0.5-8keV) flux in erg/cm^2^/s real*4 e_SX ! (mW/m2) Uncertainty in SX integer*4 Type ! Type from the Optical/IR SED (1) real*4 HR ! X-ray hardness ratio (2) real*4 e_HR ! Uncertainty in HR real*4 XLum ! (10-7W) X-ray (0.5-8keV) luminosity in erg/s *Note (1): Type from the Optical/IR SED, defined as follows: * 1 = type-1 AGN; * 2 = type-2 AGN; * 3 = galaxy; * 4 = early-type galaxy. *Note (2): HR=(H-S)/(H+S) where H and S are the background-subtracted X-ray * counts in the hard (2.0-8.0keV) and soft (0.5-2.0keV) bands, * respectively. C============================================================================= C Loading file 'table2.dat' ! Relevant data on the Spitzer and Chandra source * sample C Format for file interpretation 1 format( + I3,1X,F9.5,1X,F8.5,1X,F6.2,1X,F5.3,1X,F6.2,1X,F5.3,1X,F6.1,1X, + F5.2,1X,F7.1,1X,F5.2,1X,F8.2,1X,F5.2,1X,F4.2,1X,E8.2,1X,E8.2, + 1X,I1,1X,F5.2,1X,F4.2,1X,E8.3) C Effective file loading open(unit=1,status='old',file= +'table2.dat') write(6,*) '....Loading file: table2.dat' do i__=1,99 read(1,'(A136)')ar__ read(ar__,1) + v_MJA2003_,RAdeg,DEdeg,S3_6um,e_S3_6um,S4_5um,e_S4_5um,S5_6um, + e_S5_6um,S8um,e_S8um,S24um,e_S24um,Dist,SX,e_SX,Type,HR,e_HR, + XLum if(ar__(24:29) .EQ. '') S3_6um = rNULL__ if(ar__(31:35) .EQ. '') e_S3_6um = rNULL__ if(ar__(37:42) .EQ. '') S4_5um = rNULL__ if(ar__(44:48) .EQ. '') e_S4_5um = rNULL__ if(ar__(50:55) .EQ. '') S5_6um = rNULL__ if(ar__(57:61) .EQ. '') e_S5_6um = rNULL__ if(ar__(63:69) .EQ. '') S8um = rNULL__ if(ar__(71:75) .EQ. '') e_S8um = rNULL__ if(ar__(77:84) .EQ. '') S24um = rNULL__ if(ar__(86:90) .EQ. '') e_S24um = rNULL__ c ..............Just test output........... write(6,1) + v_MJA2003_,RAdeg,DEdeg,S3_6um,e_S3_6um,S4_5um,e_S4_5um,S5_6um, + e_S5_6um,S8um,e_S8um,S24um,e_S24um,Dist,SX,e_SX,Type,HR,e_HR, + XLum c .......End.of.Just test output........... end do close(1) C============================================================================= stop end