Conversion of standardized ReadMe file for
file /./ftp/cats/J/ApJ/642/673 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/642/673 IR-selected obscured AGN candidates (Polletta+, 2006)
*================================================================================
*Chandra and Spitzer unveil heavily obscured quasars in the Chandra/SWIRE survey.
* Polletta M.D.C., Wilkes B.J., Siana B., Lonsdale C.J., Kilgard R.,
* Smith H.E., Kim D.-W., Owen F., Efstathiou A., Jarrett T., Stacey G.,
* Franceschini A., Rowan-Robinson M., Babbedge T.S.R., Berta S., Fang F.,
* Farrah D., Gonzalez-Solares E., Morrison G., Surace J.A., Shupe D.L.
* <Astrophys. J., 642, 673-693 (2006)>
* =2006ApJ...642..673P
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table4.dat' ! Properties IR-selected obscured AGN candidates
integer*4 nr__
parameter (nr__=120) ! Number of records
character*105 ar__ ! Full-size record
C J2000 position composed of: RAdeg DEdeg
character*19 SWIRE ! Source name (JHHMMSS.ss+DDMMSS.s)
real*8 RAdeg ! (deg) Right Ascension in decimal degrees (J2000) (1)
real*8 DEdeg ! (deg) Declination in decimal degrees (J2000) (1)
character*1 l_r_mag ! Upper 5{sigma} limit flag on r'mag
real*4 r_mag ! (mag) The r' band Vega magnitude (2)
integer*4 F3_6 ! (uJy) The 3.6 micron flux density (2)
integer*4 F4_5 ! (uJy) The 4.5 micron flux density (2)
character*1 l_F5_8 ! Upper 5{sigma} limit flag on F5.8um
integer*4 F5_8 ! (uJy) The 5.8 micron flux density (2)
character*1 l_F8_0 ! Upper 5{sigma} limit flag on F8.0um
integer*4 F8_0 ! (uJy) The 8.0 micron flux density (2)
character*1 l_F24 ! Upper 5{sigma} limit flag on F24um
integer*4 F24 ! (uJy) The 24 micron flux density (2)
character*1 l_F20cm ! Upper 5{sigma} limit flag on F20um
integer*4 F20cm ! (uJy) ? The 20 cm flux density
integer*4 e_F20cm ! (uJy) ? Uncertainty in F20um
real*4 zsp ! ? Spectroscopic redshift
real*4 zph ! Photometric redshift
character*3 Cl ! Source classification (3)
character*1 X ! [c] Indicates an X-ray detection
*Note (1): Infrared coordinates.
*Note (2): Typical uncertainties to the IR fluxes are ~10% of the measured
* fluxes and to the optical magnitudes are around 0.04mag.
*Note (3): Classes as follows:
* I = Class I sources are characterized by convex IR SED fitted by a
* "Torus" template.
* II = Class II sources show power-law like optical-IR SEDs, similar
* to Mrk 231 or slightly redder (A_V_<1).
* III = Class III sources have power-law like optical-IR SED fitted by
* a reddened QSO template (A_V_=0.6-1.0).
* IV = Class IV sources show signatures from both a starburst and an
* AGN component.
* V = Class V sources area characterized by very red optical SEDs and
* power-law like IR SEDs.
* VI = Class VI objects are detected only in three bands from 3.6 to 24um.
C=============================================================================
C Loading file 'table4.dat' ! Properties IR-selected obscured AGN candidates
C Format for file interpretation
1 format(
+ 6X,A19,1X,F9.5,1X,F9.6,1X,A1,F5.2,1X,I3,1X,I3,1X,A1,I4,1X,A1,
+ I4,1X,A1,I4,1X,A1,I5,1X,I2,1X,F5.3,1X,F4.2,1X,A3,1X,A1)
C Effective file loading
open(unit=1,status='old',file=
+'table4.dat')
write(6,*) '....Loading file: table4.dat'
do i__=1,120
read(1,'(A105)')ar__
read(ar__,1)
+ SWIRE,RAdeg,DEdeg,l_r_mag,r_mag,F3_6,F4_5,l_F5_8,F5_8,l_F8_0,
+ F8_0,l_F24,F24,l_F20cm,F20cm,e_F20cm,zsp,zph,Cl,X
if(ar__(81:85) .EQ. '') F20cm = iNULL__
if(ar__(87:88) .EQ. '') e_F20cm = iNULL__
if(ar__(90:94) .EQ. '') zsp = rNULL__
c ..............Just test output...........
write(6,1)
+ SWIRE,RAdeg,DEdeg,l_r_mag,r_mag,F3_6,F4_5,l_F5_8,F5_8,l_F8_0,
+ F8_0,l_F24,F24,l_F20cm,F20cm,e_F20cm,zsp,zph,Cl,X
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end