Conversion of standardized ReadMe file for
file /./ftp/cats/J/ApJ/634/L1 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/634/L1 16{mu}m sources in the NOAO Bootes field (Kasliwal+, 2005)
*================================================================================
*Identifying silicate-absorbed ULIRGs at z~1-2 in the Bootes field using the
*Spitzer IRS.
* Kasliwal M.M., Charmandaris V., Weedman D., Houck J.R., Le Floc'h E.,
* Higdon S.J.U., Armus L., Teplitz H.I.
* <Astrophys. J., 634, L1-L4 (2005)>
* =2005ApJ...634L...1K
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table1.dat' ! Catalog of the 16{mu}m sources in the
Bootes NOAO Wide Deep Field
integer*4 nr__
parameter (nr__=150) ! Number of records
character*73 ar__ ! Full-size record
integer*4 v_KCW2005_ ! Running identification number
* ([KCW2005] NNN in Simbad)
character*19 SST16 ! Spitzer designation (in Simbad:
* ([KCW2005] SST16 JHHMMSS.ss+DDMMSS.s) (1)
real*4 S16um ! (mJy) The 16{mu}m flux density
real*4 e_S16um ! (mJy) The 1{sigma} error in S16um
real*4 S24um ! (mJy) ? The 24{mu}m flux density
character*1 l_F16_24 ! Limit flag on Ratio
real*4 F16_24 ! The 16{mu}m/24{mu}m flux density ratio (2)
real*4 BWmag ! (mag) ? The B_W_ (NWDFS k1025) band magnitude (3)
real*4 Rmag ! (mag) ? The Harris R band magnitude (3)
real*4 Imag ! (mag) ? The nearly-Mould I band magnitude (3)
*Note (1): SST16 source name derives from discovery with the IRS PU 16{mu}m
* images; coordinates listed are in J2000; 16{mu}m positions with
* typical 3{sigma} uncertainty of +/-1.2"; sources with an optical
* counterpart will also appear in NDWFS catalogs with prefix NDWFS
* and the optical source position; sources with a MIPS 24{mu}m
* counterpart will also appear in MIPS catalog.
*Note (2): Upper limits for 24{mu}m sources are assumed to be 0.18mJy.
*Note (3): Optical magnitudes are Mag-Auto from NDWFS DR3, available at
* http://www.noao.edu/noao/noaodeep/; the NOAO filters characteristics
* are available at http://www.noao.edu/kpno/mosaic/filters/
C=============================================================================
C Loading file 'table1.dat' ! Catalog of the 16{mu}m sources in the
* Bootes NOAO Wide Deep Field
C Format for file interpretation
1 format(
+ I3,7X,A19,1X,F5.3,1X,F5.3,1X,F5.3,1X,A1,F6.2,1X,F5.2,1X,F5.2,
+ 1X,F5.2)
C Effective file loading
open(unit=1,status='old',file=
+'table1.dat')
write(6,*) '....Loading file: table1.dat'
do i__=1,150
read(1,'(A73)')ar__
read(ar__,1)
+ v_KCW2005_,SST16,S16um,e_S16um,S24um,l_F16_24,F16_24,BWmag,
+ Rmag,Imag
if(ar__(43:47) .EQ. '') S24um = rNULL__
if(ar__(57:61) .EQ. '') BWmag = rNULL__
if(ar__(63:67) .EQ. '') Rmag = rNULL__
if(ar__(69:73) .EQ. '') Imag = rNULL__
c ..............Just test output...........
write(6,1)
+ v_KCW2005_,SST16,S16um,e_S16um,S24um,l_F16_24,F16_24,BWmag,
+ Rmag,Imag
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end