Conversion of standardized ReadMe file for
file /./ftp/cats/J/AJ/135/2470 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/AJ/135/2470 Radio observations of the HDFS region. IV. (Huynh+, 2008)
*================================================================================
*Radio observations of the Hubble Deep Field-South region.
*IV. Optical properties of the faint radio population.
* Huynh M.T., Jackson C.A., Norris R.P., Fernandez-Soto A.
* <Astron. J., 135, 2470-2495 (2008)>
* =2008AJ....135.2470H
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table1.dat' ! CTIO properties of the catalogued ATHDFS sources
integer*4 nr__
parameter (nr__=473) ! Number of records
character*102 ar__ ! Full-size record
character*16 ATHDFS ! ATHDFS name (JHHMMSS.s+DDMMSS)
character*1 m_ATHDFS ! [ABC] Multiplicity index on ATHDFS
character*3 f_CTIO ! CTIO counterpart (1)
integer*4 CTIO ! ? CTIO catalog identification
real*4 Umag ! (mag) ? U band magnitude (in AB system)
real*4 e_Umag ! (mag) ? RMS error in Umag
real*4 Bmag ! (mag) ? B band magnitude (in AB system)
real*4 e_Bmag ! (mag) ? RMS error in Bmag
real*4 Vmag ! (mag) ? V band magnitude (in AB system)
real*4 e_Vmag ! (mag) ? RMS error in Vmag
real*4 Rmag ! (mag) ? R band magnitude (in AB system)
real*4 e_Rmag ! (mag) ? RMS error in Rmag
real*4 Imag ! (mag) ? I band magnitude (in AB system)
real*4 e_Imag ! (mag) ? RMS error in Imag
real*4 z ! ? CTIO photometric redshift
real*4 e_z ! ? Uncertainty in z
*Note (1): Flag on CTIO as follows:
* YES = a CTIO counterpart within the 1.8 arcsec matching radius
* NO = no CTIO counterpart within the 1.8 arcsec matching radius
* S = a nearby bright star which may affect the photometry
* OUT = source outside of the CTIO images
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table2.dat' ! WFPC2 counterparts (tables 2 and 5 of the paper)
integer*4 nr__1
parameter (nr__1=28) ! Number of records
character*107 ar__1 ! Full-size record
integer*4 Tab ! [2/5] Original table number (1)
character*16 ATHDFS_1 ! ATHDFS name (JHHMMSS.s+DDMMSS)
character*5 FFID ! Flanking field ID (table5 only)
real*4 F300W ! (mag) ? HST F300W magnitude (in AB system)
real*4 e_F300W ! (mag) ? HST F300W rms error
real*4 F450W ! (mag) ? HST F450W magnitude (in AB system)
real*4 e_F450W ! (mag) ? HST F450W rms error
real*4 F606W ! (mag) ? HST F606W magnitude (in AB system)
real*4 e_F606W ! (mag) ? HST F606W rms error
real*4 F814W ! (mag) HST F814W magnitude (in AB system)
real*4 e_F814W ! (mag) HST F814W rms error
character*31 Rem ! Morphological information
*Note (1): Code as follows:
* 2 = Summary of WFPC2 counterparts
* 5 = Summary of WFPC2 flanking field counterparts
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table3.dat' ! NICMOS counterparts (tables 3 and 5 of the paper)
integer*4 nr__2
parameter (nr__2=5) ! Number of records
character*91 ar__2 ! Full-size record
character*1 Tab_1 ! [3/5] Original table number (1)
character*16 ATHDFS_2 ! ATHDFS name (JHHMMSS.s+DDMMSS)
character*5 FFID_1 ! Flanking field ID (table5 only)
real*4 F110W ! (mag) ? HST/NICMOS F110W magnitude (in AB system)
real*4 e_F110W ! (mag) ? HST/NICMOS F110W rms error
real*4 F160W ! (mag) ? HST F160W magnitude (in AB system)
real*4 e_F160W ! (mag) ? HST F160W rms error
real*4 F222W ! (mag) ? HST F222W magnitude (in AB system)
real*4 e_F222W ! (mag) ? HST F222W rms error
character*26 Rem_1 ! Morphological information
*Note (1): Tab code as follows:
* 3 = Summary of NICMOS counterparts
* 5 = Summary of NICMOS flanking field counterparts
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table4.dat' ! STIS Counterparts (tables 4 and 5 of the paper)
integer*4 nr__3
parameter (nr__3=4) ! Number of records
character*124 ar__3 ! Full-size record
integer*4 Tab_2 ! [4/5] Original table number (1)
character*16 ATHDFS_3 ! ATHDFS name (JHHMMSS.s+DDMMSS)
character*5 FFID_2 ! Flanking field ID (table5 only)
real*4 v50CCD ! (mag) STIS 50CCD detector (2500{AA}) magnitude
real*4 e_50CCD ! (mag) STIS 50CCD detector rms error
real*4 LP ! (mag) ? STIS F28X50LP filter (5500{AA}) magnitude
real*4 e_LP ! (mag) ? STIS F28X50LP filter rms error
real*4 NUV ! (mag) ? GALEX/NUV magnitude
real*4 e_NUV ! (mag) ? NUV rms error
real*4 FUV ! (mag) ? GALEX/FUV magnitude
real*4 e_FUV ! (mag) ? FUV rms error
character*48 Rem_2 ! Morphological information
*Note (1): Code as follows:
* 4 = Summary of STIS Counterparts
* 5 = Summary of STIS flanking field Counterparts
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table10.dat' ! Summary of 2dF spectral properties for ATHDFS
sources with 2dF redshifts
integer*4 nr__4
parameter (nr__4=98) ! Number of records
character*129 ar__4 ! Full-size record
character*16 ATHDFS_4 ! ATHDFS name (JHHMMSS.s+DDMMSS)
character*1 m_ATHDFS_1 ! [ABC] Multiplicity index on ATHDFS
real*4 z_1 ! 2dF redshift
integer*4 q_z ! quality of z (1)
character*3 Cl ! Spectral type (2)
character*1 l_FHb ! Limit flag on FHb
integer*4 FHb ! (ct) ? H{beta} line flux (CCD counts)
integer*4 e_FHb ! (ct) ? Uncertainty in FHb (CCD counts)
character*1 l_FOIII ! Limit flag on FOIII
integer*4 FOIII ! (ct) ? OIII (5007) line flux (CCD counts)
integer*4 e_FOIII ! (ct) ? Uncertainty in FOIII (CCD counts)
integer*4 FHa ! (ct) ? H{alpha} line flux (CCD counts)
integer*4 e_FHa ! (ct) ? Uncertainty in FHa (CCD counts)
character*1 l_FNII ! Limit flag on FNII
integer*4 FNII ! (ct) ? NII (6584) line flux (CCD counts)
integer*4 e_FNII ! (ct) ? Uncertainty in FNII (CCD counts)
character*42 Comm ! Additional comments
*Note (1): A value of 3 indicates three or more lines were identified, so
* the redshift is very well determined. Two, one or no lines identified
* are indicated by Q = 2, 1 or 0, respectively.
*Note (2): Spectral type code as follows:
* abs = galaxy with absorption lines
* sf = star-forming galaxy
* sy = Seyfert
* BL = broad-line AGN
* unc = unclassified
C=============================================================================
C Loading file 'table1.dat' ! CTIO properties of the catalogued ATHDFS sources
C Format for file interpretation
1 format(
+ 7X,A16,A1,1X,A3,1X,I5,1X,F5.2,1X,F5.2,1X,F5.2,1X,F5.2,1X,F5.2,
+ 1X,F4.2,1X,F5.2,1X,F4.2,1X,F5.2,1X,F5.2,1X,F4.2,1X,F4.2)
C Effective file loading
open(unit=1,status='old',file=
+'table1.dat')
write(6,*) '....Loading file: table1.dat'
do i__=1,473
read(1,'(A102)')ar__
read(ar__,1)
+ ATHDFS,m_ATHDFS,f_CTIO,CTIO,Umag,e_Umag,Bmag,e_Bmag,Vmag,
+ e_Vmag,Rmag,e_Rmag,Imag,e_Imag,z,e_z
if(ar__(30:34) .EQ. '') CTIO = iNULL__
if(ar__(36:40) .EQ. '') Umag = rNULL__
if(ar__(42:46) .EQ. '') e_Umag = rNULL__
if(ar__(48:52) .EQ. '') Bmag = rNULL__
if(ar__(54:58) .EQ. '') e_Bmag = rNULL__
if(ar__(60:64) .EQ. '') Vmag = rNULL__
if(ar__(66:69) .EQ. '') e_Vmag = rNULL__
if(ar__(71:75) .EQ. '') Rmag = rNULL__
if(ar__(77:80) .EQ. '') e_Rmag = rNULL__
if(ar__(82:86) .EQ. '') Imag = rNULL__
if(ar__(88:92) .EQ. '') e_Imag = rNULL__
if(ar__(94:97) .EQ. '') z = rNULL__
if(ar__(99:102) .EQ. '') e_z = rNULL__
c ..............Just test output...........
write(6,1)
+ ATHDFS,m_ATHDFS,f_CTIO,CTIO,Umag,e_Umag,Bmag,e_Bmag,Vmag,
+ e_Vmag,Rmag,e_Rmag,Imag,e_Imag,z,e_z
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table2.dat' ! WFPC2 counterparts (tables 2 and 5 of the paper)
C Format for file interpretation
2 format(
+ I1,8X,A16,1X,A5,1X,F5.2,1X,F4.2,1X,F5.2,1X,F4.2,1X,F5.2,1X,
+ F4.2,1X,F5.2,1X,F4.2,1X,A31)
C Effective file loading
open(unit=1,status='old',file=
+'table2.dat')
write(6,*) '....Loading file: table2.dat'
do i__=1,28
read(1,'(A107)')ar__1
read(ar__1,2)
+ Tab,ATHDFS_1,FFID,F300W,e_F300W,F450W,e_F450W,F606W,e_F606W,
+ F814W,e_F814W,Rem
if(ar__1(33:37) .EQ. '') F300W = rNULL__
if(ar__1(39:42) .EQ. '') e_F300W = rNULL__
if(ar__1(44:48) .EQ. '') F450W = rNULL__
if(ar__1(50:53) .EQ. '') e_F450W = rNULL__
if(ar__1(55:59) .EQ. '') F606W = rNULL__
if(ar__1(61:64) .EQ. '') e_F606W = rNULL__
c ..............Just test output...........
write(6,2)
+ Tab,ATHDFS_1,FFID,F300W,e_F300W,F450W,e_F450W,F606W,e_F606W,
+ F814W,e_F814W,Rem
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table3.dat' ! NICMOS counterparts (tables 3 and 5 of the paper)
C Format for file interpretation
3 format(
+ A1,8X,A16,1X,A5,1X,F5.2,1X,F4.2,1X,F5.2,1X,F4.2,1X,F5.2,1X,
+ F4.2,1X,A26)
C Effective file loading
open(unit=1,status='old',file=
+'table3.dat')
write(6,*) '....Loading file: table3.dat'
do i__=1,5
read(1,'(A91)')ar__2
read(ar__2,3)
+ Tab_1,ATHDFS_2,FFID_1,F110W,e_F110W,F160W,e_F160W,F222W,
+ e_F222W,Rem_1
if(ar__2(33:37) .EQ. '') F110W = rNULL__
if(ar__2(39:42) .EQ. '') e_F110W = rNULL__
if(ar__2(44:48) .EQ. '') F160W = rNULL__
if(ar__2(50:53) .EQ. '') e_F160W = rNULL__
if(ar__2(55:59) .EQ. '') F222W = rNULL__
if(ar__2(61:64) .EQ. '') e_F222W = rNULL__
c ..............Just test output...........
write(6,3)
+ Tab_1,ATHDFS_2,FFID_1,F110W,e_F110W,F160W,e_F160W,F222W,
+ e_F222W,Rem_1
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table4.dat' ! STIS Counterparts (tables 4 and 5 of the paper)
C Format for file interpretation
4 format(
+ I1,8X,A16,1X,A5,1X,F5.2,1X,F4.2,1X,F5.2,1X,F4.2,1X,F5.2,1X,
+ F4.2,1X,F5.2,1X,F4.2,1X,A48)
C Effective file loading
open(unit=1,status='old',file=
+'table4.dat')
write(6,*) '....Loading file: table4.dat'
do i__=1,4
read(1,'(A124)')ar__3
read(ar__3,4)
+ Tab_2,ATHDFS_3,FFID_2,v50CCD,e_50CCD,LP,e_LP,NUV,e_NUV,FUV,
+ e_FUV,Rem_2
if(ar__3(44:48) .EQ. '') LP = rNULL__
if(ar__3(50:53) .EQ. '') e_LP = rNULL__
if(ar__3(55:59) .EQ. '') NUV = rNULL__
if(ar__3(61:64) .EQ. '') e_NUV = rNULL__
if(ar__3(66:70) .EQ. '') FUV = rNULL__
if(ar__3(72:75) .EQ. '') e_FUV = rNULL__
c ..............Just test output...........
write(6,4)
+ Tab_2,ATHDFS_3,FFID_2,v50CCD,e_50CCD,LP,e_LP,NUV,e_NUV,FUV,
+ e_FUV,Rem_2
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table10.dat' ! Summary of 2dF spectral properties for ATHDFS
* sources with 2dF redshifts
C Format for file interpretation
5 format(
+ 7X,A16,A1,1X,F6.4,1X,I1,1X,A3,1X,A1,I5,1X,I4,1X,A1,I5,1X,I4,
+ 1X,I6,1X,I4,1X,A1,I6,1X,I4,1X,A42)
C Effective file loading
open(unit=1,status='old',file=
+'table10.dat')
write(6,*) '....Loading file: table10.dat'
do i__=1,98
read(1,'(A129)')ar__4
read(ar__4,5)
+ ATHDFS_4,m_ATHDFS_1,z_1,q_z,Cl,l_FHb,FHb,e_FHb,l_FOIII,FOIII,
+ e_FOIII,FHa,e_FHa,l_FNII,FNII,e_FNII,Comm
if(ar__4(40:44) .EQ. '') FHb = iNULL__
if(ar__4(46:49) .EQ. '') e_FHb = iNULL__
if(ar__4(52:56) .EQ. '') FOIII = iNULL__
if(ar__4(58:61) .EQ. '') e_FOIII = iNULL__
if(ar__4(63:68) .EQ. '') FHa = iNULL__
if(ar__4(70:73) .EQ. '') e_FHa = iNULL__
if(ar__4(76:81) .EQ. '') FNII = iNULL__
if(ar__4(83:86) .EQ. '') e_FNII = iNULL__
c ..............Just test output...........
write(6,5)
+ ATHDFS_4,m_ATHDFS_1,z_1,q_z,Cl,l_FHb,FHb,e_FHb,l_FOIII,FOIII,
+ e_FOIII,FHa,e_FHa,l_FNII,FNII,e_FNII,Comm
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end