Conversion of standardized ReadMe file for
file /./ftp/cats/J/AJ/129/2074 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-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/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_ (nr__) ! Manners et al. (2003, Cat.
* <J/MNRAS/343/293>) identification number
real*8 RAdeg (nr__) ! (deg) Right Ascension in decimal degrees (J2000)
real*8 DEdeg (nr__) ! (deg) Declination in decimal degrees (J2000)
real*4 S3_6um (nr__) ! (mJy) ? IRAC 3.6 micron flux density
real*4 e_S3_6um (nr__) ! (mJy) ? Uncertainty in S3.6um
real*4 S4_5um (nr__) ! (mJy) ? IRAC 4.5 micron flux density
real*4 e_S4_5um (nr__) ! (mJy) ? Uncertainty in S4.5um
real*4 S5_6um (nr__) ! (mJy) ? IRAC 5.6 micron flux density
real*4 e_S5_6um (nr__) ! (mJy) ? Uncertainty in S5.6um
real*8 S8um (nr__) ! (mJy) ? IRAC 8 micron flux density
real*4 e_S8um (nr__) ! (mJy) ? Uncertainty in S8um
real*8 S24um (nr__) ! (mJy) ? MIPS 24 micron flux density
real*4 e_S24um (nr__) ! (mJy) ? Uncertainty in S24um
real*4 Dist (nr__) ! (arcsec) Chandra to Spitzer angular distance
real*4 SX (nr__) ! (mW/m2) Chandra (0.5-8keV) flux in erg/cm^2^/s
real*4 e_SX (nr__) ! (mW/m2) Uncertainty in SX
integer*4 Type (nr__) ! Type from the Optical/IR SED (1)
real*4 HR (nr__) ! X-ray hardness ratio (2)
real*4 e_HR (nr__) ! Uncertainty in HR
real*4 XLum (nr__) ! (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_(i__),RAdeg(i__),DEdeg(i__),S3_6um(i__),
+ e_S3_6um(i__),S4_5um(i__),e_S4_5um(i__),S5_6um(i__),
+ e_S5_6um(i__),S8um(i__),e_S8um(i__),S24um(i__),e_S24um(i__),
+ Dist(i__),SX(i__),e_SX(i__),Type(i__),HR(i__),e_HR(i__),
+ XLum(i__)
if(ar__(24:29) .EQ. '') S3_6um(i__) = rNULL__
if(ar__(31:35) .EQ. '') e_S3_6um(i__) = rNULL__
if(ar__(37:42) .EQ. '') S4_5um(i__) = rNULL__
if(ar__(44:48) .EQ. '') e_S4_5um(i__) = rNULL__
if(ar__(50:55) .EQ. '') S5_6um(i__) = rNULL__
if(ar__(57:61) .EQ. '') e_S5_6um(i__) = rNULL__
if(ar__(63:69) .EQ. '') S8um(i__) = rNULL__
if(ar__(71:75) .EQ. '') e_S8um(i__) = rNULL__
if(ar__(77:84) .EQ. '') S24um(i__) = rNULL__
if(ar__(86:90) .EQ. '') e_S24um(i__) = rNULL__
c ..............Just test output...........
write(6,1)
+ v_MJA2003_(i__),RAdeg(i__),DEdeg(i__),S3_6um(i__),
+ e_S3_6um(i__),S4_5um(i__),e_S4_5um(i__),S5_6um(i__),
+ e_S5_6um(i__),S8um(i__),e_S8um(i__),S24um(i__),e_S24um(i__),
+ Dist(i__),SX(i__),e_SX(i__),Type(i__),HR(i__),e_HR(i__),
+ XLum(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end