Conversion of standardized ReadMe file for
file /./ftp/cats/J/ApJS/155/1 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.5, on 2013-May-24
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__=-1.e37) ! NULL real number
parameter (iNULL__=-2147483647) ! NULL int number
C=============================================================================
Cat. J/ApJS/155/1 Phoenix Deep Survey: optical and NIR catalogs (Sullivan+, 2004)
*================================================================================
*The Phoenix Deep Survey: optical and near-infrared imaging catalogs.
* Sullivan M., Hopkins A.M., Afonso J., Georgakakis A., Chan B., Cram L.E.,
* Mobasher B., Almeida C.
* <Astrophys. J. Suppl. Ser., 155, 1-13 (2004)>
* =2004ApJS..155....1S
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table6.dat' ! Photometric data for radio/optical identifications
integer*4 nr__
parameter (nr__=778) ! Number of records
character*113 ar__ ! Full-size record
character*16 PDS ! PDS designation (JHHMMSS.S+DDMMSS)
character*1 l_Umag ! Limit flag on Umag (1)
character*1 q_Umag ! [1] for low signal detection (1)
real*4 Umag ! (mag) ? The U band magnitude
real*4 e_Umag ! (mag) ? Uncertainty in Umag
character*1 l_Bmag ! Limit flag on Bmag (1)
character*1 q_Bmag ! [1] for low signal detection (1)
real*4 Bmag ! (mag) ? The B band magnitude
real*4 e_Bmag ! (mag) ? Uncertainty in Bmag
character*1 l_Vmag ! Limit flag on Vmag (1)
character*1 q_Vmag ! [1] for low signal detection (1)
real*4 Vmag ! (mag) ? The V band magnitude
real*4 e_Vmag ! (mag) ? Uncertainty in Vmag
character*1 l_Rcmag ! Limit flag on Rcmag (1)
character*1 q_Rcmag ! [1] for low signal detection (1)
real*4 Rcmag ! (mag) ? The Cousins R band magnitude
real*4 e_Rcmag ! (mag) ? Uncertainty in Rcmag
character*1 l_Icmag ! Limit flag on Icmag (1)
character*1 q_Icmag ! [1] for low signal detection (1)
real*4 Icmag ! (mag) ? The Cousins I band magnitude
real*4 e_Icmag ! (mag) ? Uncertainty in Icmag
character*1 l_Ksmag ! Limit flag on Ksmag (1)
character*1 q_Ksmag ! [1] for low signal detection (1)
real*4 Ksmag ! (mag) ? The K band magnitude
real*4 e_Ksmag ! (mag) ? Uncertainty in Ksmag
real*4 zspec ! ? Spectroscopic redshift
real*4 zphot ! ? Photometric redshift
real*4 e_zphot ! ? Uncertainty in zphot
*Note (1): when the magnitude measured is below the 5{sigma} detection
* threshold, it is flagged with a '1'; when the net flux is negative,
* the formal 5{sigma} limit is given and the '>' limit is written.
C=============================================================================
C Loading file 'table6.dat' ! Photometric data for radio/optical identifications
C Format for file interpretation
1 format(
+ 3X,A16,1X,A1,A1,F5.2,1X,F4.2,1X,A1,A1,F5.2,1X,F4.2,1X,A1,A1,
+ F5.2,1X,F4.2,1X,A1,A1,F5.2,1X,F4.2,1X,A1,A1,F5.2,1X,F4.2,1X,
+ A1,A1,F5.2,1X,F4.2,1X,F5.3,1X,F4.2,1X,F4.2)
C Effective file loading
open(unit=1,file='table6.dat', status='old')
write(6,*) '....Loading file: table6.dat'
do i__=1,778
read(1,'(A113)')ar__
read(ar__,1)
+ PDS,l_Umag,q_Umag,Umag,e_Umag,l_Bmag,q_Bmag,Bmag,e_Bmag,
+ l_Vmag,q_Vmag,Vmag,e_Vmag,l_Rcmag,q_Rcmag,Rcmag,e_Rcmag,
+ l_Icmag,q_Icmag,Icmag,e_Icmag,l_Ksmag,q_Ksmag,Ksmag,e_Ksmag,
+ zspec,zphot,e_zphot
if(ar__(23:27) .EQ. '') Umag = rNULL__
if(ar__(29:32) .EQ. '') e_Umag = rNULL__
if(ar__(36:40) .EQ. '') Bmag = rNULL__
if(ar__(42:45) .EQ. '') e_Bmag = rNULL__
if(ar__(49:53) .EQ. '') Vmag = rNULL__
if(ar__(55:58) .EQ. '') e_Vmag = rNULL__
if(ar__(62:66) .EQ. '') Rcmag = rNULL__
if(ar__(68:71) .EQ. '') e_Rcmag = rNULL__
if(ar__(75:79) .EQ. '') Icmag = rNULL__
if(ar__(81:84) .EQ. '') e_Icmag = rNULL__
if(ar__(88:92) .EQ. '') Ksmag = rNULL__
if(ar__(94:97) .EQ. '') e_Ksmag = rNULL__
if(ar__(99:103) .EQ. '') zspec = rNULL__
if(ar__(105:108) .EQ. '') zphot = rNULL__
if(ar__(110:113) .EQ. '') e_zphot = rNULL__
c ..............Just test output...........
write(6,1)
+ PDS,l_Umag,q_Umag,Umag,e_Umag,l_Bmag,q_Bmag,Bmag,e_Bmag,
+ l_Vmag,q_Vmag,Vmag,e_Vmag,l_Rcmag,q_Rcmag,Rcmag,e_Rcmag,
+ l_Icmag,q_Icmag,Icmag,e_Icmag,l_Ksmag,q_Ksmag,Ksmag,e_Ksmag,
+ zspec,zphot,e_zphot
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end