Conversion of standardized ReadMe file for
catalog 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-16
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/ApJS/198/1 Photometry catalogs for the Lockman Hole (Fotopoulou+, 2012)
*================================================================================
*Photometry and photometric redshift catalogs for the Lockman Hole deep field.
* Fotopoulou S., Salvato M., Hasinger G., Rovilos E., Brusa M., Egami E.,
* Lutz D., Burwitz V., Henry J.P., Huang J.H., Rigopoulou D., Vaccari M.
* <Astrophys. J. Suppl. Ser., 198, 1 (2012)>
* =2012ApJS..198....1F
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table5.dat' ! Lockman Hole Photometric catalog
integer*4 nr__
parameter (nr__=187611) ! Number of records
character*576 ar__ ! Full-size record
C J2000 position composed of: RAdeg DEdeg
integer*4 ID ! [1,206786] Catalog identifier
* (<[FSH2012] NNNNNN> in Simbad)
real*8 RAdeg ! (deg) Optical Right Ascension (J2000)
real*8 DEdeg ! (deg) Optical Declination (J2000)
real*8 RAGdeg ! (deg) ?=-99 GALEX Right Ascension (J2000)
real*8 DEGdeg ! (deg) ?=-99 GALEX Declination (J2000)
real*8 RAUdeg ! (deg) ?=-99 UKIDSS Right Ascension (J2000)
real*8 DEUdeg ! (deg) ?=-99 UKIDSS Declination (J2000)
real*8 RASdeg ! (deg) ?=-99 SDSS Right Ascension (J2000)
real*8 DESdeg ! (deg) ?=-99 SDSS Declination (J2000)
real*8 RAIdeg ! (deg) ?=-99 IRAC Right Ascension (J2000)
real*8 DEIdeg ! (deg) ?=-99 IRAC Declination (J2000)
real*8 FUVmag ! (mag) ?=-99 GALEX FUV band AB magnitude (1)
real*8 e_FUVmag ! (mag) ?=-99 Error in FUVmag
real*8 NUVmag ! (mag) ?=-99 GALEX NUV band AB magnitude (1)
real*8 e_NUVmag ! (mag) ?=-99 Error in NUVmag
real*8 Umag ! (mag) ?=-99 LBT U band AB magnitude (1)
real*8 e_Umag ! (mag) ?=-99 Error in Umag
real*8 Bmag ! (mag) ?=-99 LBT B band AB magnitude (1)
real*8 e_Bmag ! (mag) ?=-99 Error in Bmag
real*8 Vmag ! (mag) ?=-99 LBT V band AB magnitude (1)
real*8 e_Vmag ! (mag) ?=-99 Error in Vmag
real*8 z_Lmag ! (mag) ?=-99 LBT z' band AB magnitude (1)
real*8 e_z_Lmag ! (mag) ?=-99 Error in z'LBTmag
real*8 Ymag ! (mag) ?=-99 LBT Y band AB magnitude (1)
real*8 e_Ymag ! (mag) ?=-99 Error in Ymag
real*8 Rcmag ! (mag) ?=-99 Subaru R_C_ band magnitude (1)
real*8 e_Rcmag ! (mag) ?=-99 Error in Rmag
real*8 Icmag ! (mag) ?=-99 Subaru I_C_ band magnitude (1)
real*8 e_Icmag ! (mag) ?=-99 Error in Imag
real*8 z_Smag ! (mag) ?=-99 Subaru z' band magnitude (1)
real*8 e_z_Smag ! (mag) ?=-99 Error in z'Submag
real*8 u_mag ! (mag) ?=-99 SDSS u' band magnitude (1)
real*8 e_u_mag ! (mag) ?=-99 Error in u'mag
real*8 g_mag ! (mag) ?=-99 SDSS g' band magnitude (1)
real*8 e_g_mag ! (mag) ?=-99 Error in g'mag
real*8 r_mag ! (mag) ?=-99 SDSS r' band magnitude (1)
real*8 e_r_mag ! (mag) ?=-99 Error in r'mag
real*8 i_mag ! (mag) ?=-99 SDSS i' band magnitude (1)
real*8 e_i_mag ! (mag) ?=-99 Error in i'mag
real*8 z_mag ! (mag) ?=-99 SDSS z' band magnitude (1)
real*8 e_z_mag ! (mag) ?=-99 Error in z'mag
real*8 Jmag ! (mag) ?=-99 UKIDSS J band magnitude (1)
real*8 e_Jmag ! (mag) ?=-99 Error in Jmag
real*8 Kmag ! (mag) ?=-99 UKIDSS K band magnitude (1)
real*8 e_Kmag ! (mag) ?=-99 Error in Kmag
real*8 v_3_6_ ! (mag) ?=-99 Spitzer/IRAC 3.6 micron band magnitude (1)
real*8 e__3_6_ ! (mag) ?=-99 Error in [3.6]
real*8 v_4_5_ ! (mag) ?=-99 Spitzer/IRAC 4.5 micron band magnitude (1)
real*8 e__4_5_ ! (mag) ?=-99 Error in [4.5]
real*8 v_5_8_ ! (mag) ?=-99 Spitzer/IRAC 5.8 micron band magnitude (1)
real*8 e__5_8_ ! (mag) ?=-99 Error in [5.8]
real*8 v_8_0_ ! (mag) ?=-99 Spitzer/IRAC 8.0 micron band magnitude (1)
real*8 e__8_0_ ! (mag) ?=-99 Error in [8.0]
integer*4 Det ! [1,6] Detection flag (2)
integer*4 f_FUVmag ! Photometry flag on FUVmag (3)
integer*4 f_NUVmag ! Photometry flag on NUVmag (3)
integer*4 f_Umag ! Photometry flag on Umag (3)
integer*4 f_Bmag ! Photometry flag on Bmag (3)
integer*4 f_Vmag ! Photometry flag on Vmag (3)
integer*4 f_z_Lmag ! Photometry flag on zLBTmag (3)
integer*4 f_Ymag ! Photometry flag on Ymag (3)
integer*4 f_Rcmag ! Photometry flag on Rmag (3)
integer*4 f_Icmag ! Photometry flag on Imag (3)
integer*4 f_z_Smag ! Photometry flag on z'Smag (3)
integer*4 f__3_6_ ! Photometry flag on [3.6] (3)
integer*4 f__4_5_ ! Photometry flag on [4.5] (3)
integer*4 f__5_8_ ! Photometry flag on [5.8] (3)
integer*4 f__8_0_ ! Photometry flag on [8.0] (3)
integer*4 N ! [0/1] Neighbor flag (1: neighbor within 1.5" or O)
real*4 Class ! [0,1] SExtractor star/galaxy classification
* (1: star, or 0: galaxy) of the corresponding
* detection image
real*8 z ! ?=-99 Spectroscopic redshift (4)
integer*4 r_z ! [1,27]? Reference for z (see refs.dat file)
integer*4 Var ! ?=-99 Variability flag (5)
integer*4 Xray ! X-ray detection flag (6)
integer*4 XID ! [5,2838]?=-99 X-ray identification (XMMNR number
* for 44 sources) (7)
integer*4 Morph ! ?=-99 Morphology (8)
*Note (1): LBT = Large Binocular Telescope.
* Aperture photometry corrected to total (only for GALEX and IRAC
* photometry) for point-like sources.
*Note (2): Detection flag as follows:
* 1 = R_c_ detection (5{sigma});
* 2 = z' detection (5{sigma});
* 3 = B detection (5{sigma});
* 4 = R_c_ detection (3{sigma}),
* 5 = z' detection (3{sigma});
* 6 = B detection (3{sigma}).
*Note (3): Complementary to the flag provided by SExtractor indicating
* saturation, we masked problematic regions on the images which include
* bad pixels and problematic areas close to stars, using 'Weight
* Watcher' (Marmo & Bertin, 2008ASPC..394..619M). For more details,
* refer to the associated description file of the catalog.
* Photometry flag as follows:
* -99 = 99 value produced by SExtractor either for the magnitude or the error,
* or source outside of the field
* -5 = Flag in the UKIDSS catalog marking noise in the JHK bands
* -4 = Saturation or incomplete/corrupted data produced by SExtractor
* -3 = Source inside a stripe, as marked by optical inspection of the images
* -2 = Magnitude error was negative
* -1 = Magnitude error was greater than 1
* 0 = Everything is OK
* 1 = FWHM in the detection band is zero
* 2 = Source inside wings of stars, potentially fake
* 3 = Magnitude greater than the detection limit
*Note (4): We use only the high quality spectroscopic redshifts from the
* original catalogs according to Table 4.
*Note (5): Sources with |Z_var,k_{+/-}{delta}Z_var,k_|>0.2 carry a flag 1,
* while the rest carry a flag 0.
*Note (6): Sources detected in the X-rays are flagged as 1, sources inside the
* XMM area without X-ray detection are flagged as 0, while sources
* outside the XMM area are flagged as -99.
*Note (7): The sources identified as X-ray counterparts will have the
* corresponding X-ray ID number from the XMM catalog (Brunner et al.
* 2008, Cat. J/A+A/479/283, <[BCH2008] NNNN> for Simbad).
*Note (8): As discussed in detail in Section 3.2.3, this column gives the
* merged morphology classification information from the HST and ground
* based images, provided only for the counterparts of the X-ray
* sources. Morphology code as follows:
* -2 = too faint;
* -1 = photometry blended with nearby source;
* 0 = extended source;
* 1 = point-like source.
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table10.dat' ! Lockman Hole Photometric Redshift catalog
integer*4 nr__1
parameter (nr__1=187611) ! Number of records
character*137 ar__1 ! Full-size record
integer*4 ID_1 ! [1,206786] Catalog identifier
* (<[FSH2012] NNNNNN> in Simbad)
real*8 zph ! ?=-99 Best photometric redshift solution
real*8 b_zph ! ?=-99 Lowest redshift at 68% significance
real*8 B_zph_1 ! ?=-99 Highest redshift at 68% significance
real*4 b_90z ! [0,6.8] Lowest redshift at 90% significance
real*4 B_90z_1 ! [0.01,7] Highest redshift at 90% significance
real*4 chi2z ! ?=-99 Lowest {chi}^2^ for best galaxy model
real*8 pr_z ! (%) ? Probability zph is correct photometric redshift
integer*4 mod_z ! [1,31]?=-99 Best model number (9)
integer*4 Ext_z ! [0,4] Extinction-law used to compute zph
* (unexplained)
real*4 E_B_V_1 ! (mag) ?=-99 E(B-V) used to compute zph
integer*4 Nband ! [1,21] Number of bands used in SED fit
real*8 z2 ! ?=-99 Second best photometric redshift solution
real*4 chi2z2 ! ?=-99 Lowest {chi}^2^ for second best galaxy
* model
real*4 pr_z2 ! (%) ? Probability z2 is correct photometric redshift
integer*4 mod_z2 ! [1,31]?=-99 Second best model number (9)
real*4 E_B_V_2 ! ?=-99 E(B-V) used to compute z2
real*4 chi2_ ! ?=-99 Lowest {chi}^2^ for best star model
integer*4 cl ! [0/1] Star flag (1: star or 0: galaxy);
* see section 5.3
*Note (9): Models from Ilbert et al. (2009ApJ...690.1236I) and
* Salvato et al. (2009ApJ...690.1250S).
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'refs.dat' ! Spectroscopic redshift references
integer*4 nr__2
parameter (nr__2=27) ! Number of records
character*86 ar__2 ! Full-size record
integer*4 Ref ! Code reference
character*19 BibCode ! bibcode
character*17 Aut ! First author's name
character*45 Comm ! Comment
C=============================================================================
C Loading file 'table5.dat' ! Lockman Hole Photometric catalog
C Format for file interpretation
1 format(
+ I6,1X,F9.5,1X,F8.5,1X,F9.5,1X,F9.5,1X,F9.5,1X,F9.5,1X,F9.5,1X,
+ F9.5,1X,F9.5,1X,F9.5,1X,F8.4,1X,F8.4,1X,F8.4,1X,F8.4,1X,F8.4,
+ 1X,F8.4,1X,F8.4,1X,F8.4,1X,F8.4,1X,F8.4,1X,F8.4,1X,F8.4,1X,
+ F8.4,1X,F8.4,1X,F8.4,1X,F8.4,1X,F8.4,1X,F8.4,1X,F8.4,1X,F8.4,
+ 1X,F8.4,1X,F8.4,1X,F8.4,1X,F8.4,1X,F8.4,1X,F8.4,1X,F8.4,1X,
+ F8.4,1X,F8.4,1X,F8.4,1X,F8.4,1X,F8.4,1X,F8.4,1X,F8.4,1X,F8.4,
+ 1X,F8.4,1X,F8.4,1X,F8.4,1X,F8.4,1X,F8.4,1X,F8.4,1X,F8.4,1X,I1,
+ 1X,I3,1X,I3,1X,I3,1X,I3,1X,I3,1X,I3,1X,I3,1X,I2,1X,I2,1X,I2,
+ 1X,I3,1X,I3,1X,I3,1X,I3,1X,I1,1X,F5.3,1X,F8.4,2X,I2,1X,I3,1X,
+ I3,1X,I4,1X,I3)
C Effective file loading
open(unit=1,status='old',file=
+'table5.dat')
write(6,*) '....Loading file: table5.dat'
do i__=1,187611
read(1,'(A576)')ar__
read(ar__,1)
+ ID,RAdeg,DEdeg,RAGdeg,DEGdeg,RAUdeg,DEUdeg,RASdeg,DESdeg,
+ RAIdeg,DEIdeg,FUVmag,e_FUVmag,NUVmag,e_NUVmag,Umag,e_Umag,
+ Bmag,e_Bmag,Vmag,e_Vmag,z_Lmag,e_z_Lmag,Ymag,e_Ymag,Rcmag,
+ e_Rcmag,Icmag,e_Icmag,z_Smag,e_z_Smag,u_mag,e_u_mag,g_mag,
+ e_g_mag,r_mag,e_r_mag,i_mag,e_i_mag,z_mag,e_z_mag,Jmag,e_Jmag,
+ Kmag,e_Kmag,v_3_6_,e__3_6_,v_4_5_,e__4_5_,v_5_8_,e__5_8_,
+ v_8_0_,e__8_0_,Det,f_FUVmag,f_NUVmag,f_Umag,f_Bmag,f_Vmag,
+ f_z_Lmag,f_Ymag,f_Rcmag,f_Icmag,f_z_Smag,f__3_6_,f__4_5_,
+ f__5_8_,f__8_0_,N,Class,z,r_z,Var,Xray,XID,Morph
if(ar__(558:559) .EQ. '') r_z = iNULL__
c ..............Just test output...........
write(6,1)
+ ID,RAdeg,DEdeg,RAGdeg,DEGdeg,RAUdeg,DEUdeg,RASdeg,DESdeg,
+ RAIdeg,DEIdeg,FUVmag,e_FUVmag,NUVmag,e_NUVmag,Umag,e_Umag,
+ Bmag,e_Bmag,Vmag,e_Vmag,z_Lmag,e_z_Lmag,Ymag,e_Ymag,Rcmag,
+ e_Rcmag,Icmag,e_Icmag,z_Smag,e_z_Smag,u_mag,e_u_mag,g_mag,
+ e_g_mag,r_mag,e_r_mag,i_mag,e_i_mag,z_mag,e_z_mag,Jmag,e_Jmag,
+ Kmag,e_Kmag,v_3_6_,e__3_6_,v_4_5_,e__4_5_,v_5_8_,e__5_8_,
+ v_8_0_,e__8_0_,Det,f_FUVmag,f_NUVmag,f_Umag,f_Bmag,f_Vmag,
+ f_z_Lmag,f_Ymag,f_Rcmag,f_Icmag,f_z_Smag,f__3_6_,f__4_5_,
+ f__5_8_,f__8_0_,N,Class,z,r_z,Var,Xray,XID,Morph
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table10.dat' ! Lockman Hole Photometric Redshift catalog
C Format for file interpretation
2 format(
+ I6,1X,F8.4,1X,F7.3,1X,F7.3,1X,F5.3,1X,F5.3,1X,E13.6,1X,F7.3,
+ 1X,I3,1X,I1,1X,F6.2,1X,I2,1X,F7.3,1X,E13.6,1X,F6.3,1X,I3,1X,
+ F6.2,1X,E13.6,1X,I1)
C Effective file loading
open(unit=1,status='old',file=
+'table10.dat')
write(6,*) '....Loading file: table10.dat'
do i__=1,187611
read(1,'(A137)')ar__1
read(ar__1,2)
+ ID_1,zph,b_zph,B_zph_1,b_90z,B_90z_1,chi2z,pr_z,mod_z,Ext_z,
+ E_B_V_1,Nband,z2,chi2z2,pr_z2,mod_z2,E_B_V_2,chi2_,cl
if(ar__1(59:65) .EQ. '') pr_z = rNULL__
if(ar__1(105:110) .EQ. '') pr_z2 = rNULL__
c ..............Just test output...........
write(6,2)
+ ID_1,zph,b_zph,B_zph_1,b_90z,B_90z_1,chi2z,pr_z,mod_z,Ext_z,
+ E_B_V_1,Nband,z2,chi2z2,pr_z2,mod_z2,E_B_V_2,chi2_,cl
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'refs.dat' ! Spectroscopic redshift references
C Format for file interpretation
3 format(I2,1X,A19,1X,A17,1X,A45)
C Effective file loading
open(unit=1,status='old',file=
+'refs.dat')
write(6,*) '....Loading file: refs.dat'
do i__=1,27
read(1,'(A86)')ar__2
read(ar__2,3)Ref,BibCode,Aut,Comm
c ..............Just test output...........
write(6,3)Ref,BibCode,Aut,Comm
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end