Conversion of standardized ReadMe file for
file /./ftp/cats/J/ApJ/788/125 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-18
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/788/125 An ALMA survey of ECDFS submillimeter galaxies (Simpson+, 2014)
*================================================================================
*An ALMA survey of submillimeter galaxies in the extended Chandra Deep
*Field-South: the redshift distribution and evolution of submillimeter galaxies.
* Simpson J.M., Swinbank A.M., Smail I., Alexander D.M., Brandt W.N.,
* Bertoldi F., de Breuck C., Chapman S.C., Coppin K.E.K., da Cunha E.,
* Danielson A.L.R., Dannerbauer H., Greve T.R., Hodge J.A., Ivison R.J.,
* Karim A., Knudsen K.K., Poggianti B.M., Schinnerer E., Thomson A.P.,
* Walter F., Wardlow J.L., Weiss A., van der Werf P.P.
* <Astrophys. J., 788, 125 (2014)>
* =2014ApJ...788..125S (SIMBAD/NED BibCode)
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table1.dat' ! Summary of Photometry
integer*4 nr__
parameter (nr__=19) ! Number of records
character*98 ar__ ! Full-size record
character*19 Filter ! Filter used in the observation
real*4 lambda ! (um) Effective wavelength
real*4 Limit ! 3{sigma} detection limit in AB mag
character*18 r_Limit ! Detection limit reference
character*19 Bibcode ! Reference bibcode
character*14 Cat ! Catalog reference in VizieR
character*14 Com ! Comment on reference
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table2.dat' ! Photometry
integer*4 nr__1
parameter (nr__1=96) ! Number of records
character*214 ar__1 ! Full-size record
character*5 ALESS ! SMG identifier (NN.NN; NNN.N) (1)
character*1 f_ALESS ! [a] Flag on ALESS (2)
character*1 l_UMmag ! [>] The 3{sigma} upper limit on UMmag
real*4 UMmag ! (mag) ? MUSYC U band magnitude
real*4 e_UMmag ! (mag) ? Uncertainty in UMmag
character*1 l_U38mag ! [>] The 3{sigma} upper limit on U38mag
real*4 U38mag ! (mag) ? MUSYC U38 band magnitude
real*4 e_U38mag ! (mag) ? Uncertainty in U38mag
character*1 l_UVmag ! [>] The 3{sigma} upper limit on UVmag
real*4 UVmag ! (mag) ? VIMOS U band magnitude
real*4 e_UVmag ! (mag) ? Uncertainty in UVmag
character*1 l_Bmag ! [>] The 3{sigma} upper limit on Bmag
real*4 Bmag ! (mag) ? MUSYC WFI B band magnitude
real*4 e_Bmag ! (mag) ? Uncertainty in Bmag
character*1 l_Vmag ! [>] The 3{sigma} upper limit on Vmag
real*4 Vmag ! (mag) ? MUSYC WFI V band magnitude
real*4 e_Vmag ! (mag) ? Uncertainty in Vmag
character*1 l_Rmag ! [>] The 3{sigma} upper limit on Rmag
real*4 Rmag ! (mag) ? MUSYC WFI R band magnitude
real*4 e_Rmag ! (mag) ? Uncertainty in Rmag
character*1 l_Imag ! [>] The 3{sigma} upper limit on Imag
real*4 Imag ! (mag) ? MUSYC WFI I band magnitude
real*4 e_Imag ! (mag) ? Uncertainty in Imag
character*1 l_zmag ! [>] The 3{sigma} upper limit on zmag
real*4 zmag ! (mag) ? MUSYC Mosaic-II z band magnitude
real*4 e_zmag ! (mag) ? Uncertainty in zmag
character*1 l_Jmag ! [>] The 3{sigma} upper limit on Jmag
real*4 Jmag ! (mag) ? J band magnitude (TENIS if nothing in f_Ksmag)
* (3)
real*4 e_Jmag ! (mag) ? Uncertainty in Jmag
character*2 f_Jmag ! Flag on Jmag (4)
character*1 l_Hmag ! [>] The 3{sigma} upper limit on Hmag
real*4 Hmag ! (mag) ? H band magnitude
real*4 e_Hmag ! (mag) ? Uncertainty in Hmag
character*1 l_Ksmag ! [>] The 3{sigma} upper limit on Ksmag
real*4 Ksmag ! (mag) ? K_S_ band magnitude (TENIS if nothing
* in f_Ksmag) (3)
real*4 e_Ksmag ! (mag) ? Uncertainty in Ksmag
character*2 f_Ksmag ! [* **] Flag on Ksmag and Jmag (4)
character*1 l_3_6mag ! [>] The 3{sigma} upper limit on 3.6mag
real*4 v3_6mag ! (mag) SIMPLE/IRAC 3.6 micron band magnitude
real*4 e_3_6mag ! (mag) ? Uncertainty in 3.6mag
character*1 l_4_5mag ! [>] The 3{sigma} upper limit on 4.5mag
real*4 v4_5mag ! (mag) SIMPLE/IRAC 4.5 micron band magnitude
real*4 e_4_5mag ! (mag) ? Uncertainty in 4.5mag
character*1 l_5_8mag ! [>] The 3{sigma} upper limit on 5.8mag
real*4 v5_8mag ! (mag) ? SIMPLE/IRAC 5.8 micron band magnitude
real*4 e_5_8mag ! (mag) ? Uncertainty in 5.8mag
character*1 l_8_0mag ! [>] The 3{sigma} upper limit on 8.0mag
real*4 v8_0mag ! (mag) ? SIMPLE/IRAC 8.0 micron band magnitude
real*4 e_8_0mag ! (mag) ? Uncertainty in 8.0mag
*Note (1): All photometry is left blank where a source is not covered by
* available imaging.
*Note (2): Flag as follows:
* a = Source is within 4" of a 3.6 micron source of comparable, or greater,
* flux.
*Note (3): We measure J and K_S_ photometry from three imaging surveys, but quote
* a single value, in order of 3{sigma} detection limit (see Table 1).
*Note (4): Flag as follows:
* * = Photometry measured from HAWK-I imaging;
* ** = Photometry measured from MUSYC imaging,
* otherwise photometry measured from TENIS imaging.
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table3.dat' ! Derived Properties
integer*4 nr__2
parameter (nr__2=77) ! Number of records
character*84 ar__2 ! Full-size record
C J2000 position composed of: RAh RAm RAs DE- DEd DEm DEs
real*8 RAdeg ! (deg) Right Ascension J2000
real*8 DEdeg ! (deg) Declination J2000
C ---------------------------------- ! (position vector(s) in degrees)
character*6 ALESS_1 ! SMG identifier (NNN.NN)
character*1 f_ALESS_1 ! [a] Flag on ALESS (1)
integer*4 RAh ! (h) Hour of Right Ascension (J2000)
integer*4 RAm ! (min) Minute of Right Ascension (J2000)
real*4 RAs ! (s) Second of Right Ascension (J2000)
character*1 DE_ ! Sign of the Declination (J2000)
integer*4 DEd ! (deg) Degree of Declination (J2000)
integer*4 DEm ! (arcmin) Arcminute of Declination (J2000)
real*4 DEs ! (arcsec) Arcsecond of Declination (J2000)
real*4 zphot ! Photometric redshift
real*4 E_zphot ! Upper limit uncertainty in zphot
real*4 e_zphot_1 ! Lower limit uncertainty in zphot
real*4 zspec ! ? Spectroscopic redshift
character*1 r_zspec ! zspec reference (2)
real*4 Chi2 ! Reduced {Chi}^2^
integer*4 Detec ! Number of detection
integer*4 Obs ! Number of observation
real*4 HMag_1 ! (mag) Absolute H band AB magnitude
real*4 M_L ! (Msun/Lsun) H band mass-to-light ratio
*Note (1): Flag as follows:
* a = As discussed in Section 3.2.1 these SMGs are potential gravitational
* lenses, or have significantly contaminated photometry. We advise that the
* photometric redshifts for these SMGs are treated with extreme caution.
*Note (2): Reference as follows:
* b = Casey et al. (2011MNRAS.411.2739C);
* c = Zheng et al. (2004, J/ApJS/155/73);
* d = Swinbank et al. (2012MNRAS.427.1066S);
* e = Silverman et al. (2010, J/ApJS/191/124);
* f = Kriek et al. (2008ApJ...677..219K);
* g = Coppin et al. (2009MNRAS.395.1905C);
* h = Coppin et al. (2012MNRAS.427..520C); Danielson et al. in prep;
* i = Bonzini et al. (2012, J/ApJS/203/15).
C=============================================================================
C Loading file 'table1.dat' ! Summary of Photometry
C Format for file interpretation
1 format(A19,1X,F4.2,1X,F4.1,1X,A18,1X,A19,1X,A14,1X,A14)
C Effective file loading
open(unit=1,status='old',file=
+'table1.dat')
write(6,*) '....Loading file: table1.dat'
do i__=1,19
read(1,'(A98)')ar__
read(ar__,1)Filter,lambda,Limit,r_Limit,Bibcode,Cat,Com
c ..............Just test output...........
write(6,1)Filter,lambda,Limit,r_Limit,Bibcode,Cat,Com
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table2.dat' ! Photometry
C Format for file interpretation
2 format(
+ 6X,A5,1X,A1,1X,A1,1X,F5.2,1X,F4.2,1X,A1,1X,F5.2,1X,F4.2,1X,A1,
+ 1X,F5.2,1X,F4.2,1X,A1,1X,F5.2,1X,F4.2,1X,A1,1X,F5.2,1X,F4.2,
+ 1X,A1,1X,F5.2,1X,F4.2,1X,A1,1X,F5.2,1X,F4.2,1X,A1,1X,F5.2,1X,
+ F4.2,1X,A1,1X,F5.2,1X,F4.2,1X,A2,1X,A1,1X,F5.2,1X,F4.2,1X,A1,
+ 1X,F5.2,1X,F4.2,1X,A2,1X,A1,1X,F5.2,1X,F4.2,1X,A1,1X,F5.2,1X,
+ F4.2,1X,A1,1X,F5.2,1X,F4.2,1X,A1,1X,F5.2,1X,F4.2)
C Effective file loading
open(unit=1,status='old',file=
+'table2.dat')
write(6,*) '....Loading file: table2.dat'
do i__=1,96
read(1,'(A214)')ar__1
read(ar__1,2)
+ ALESS,f_ALESS,l_UMmag,UMmag,e_UMmag,l_U38mag,U38mag,e_U38mag,
+ l_UVmag,UVmag,e_UVmag,l_Bmag,Bmag,e_Bmag,l_Vmag,Vmag,e_Vmag,
+ l_Rmag,Rmag,e_Rmag,l_Imag,Imag,e_Imag,l_zmag,zmag,e_zmag,
+ l_Jmag,Jmag,e_Jmag,f_Jmag,l_Hmag,Hmag,e_Hmag,l_Ksmag,Ksmag,
+ e_Ksmag,f_Ksmag,l_3_6mag,v3_6mag,e_3_6mag,l_4_5mag,v4_5mag,
+ e_4_5mag,l_5_8mag,v5_8mag,e_5_8mag,l_8_0mag,v8_0mag,e_8_0mag
if(ar__1(17:21) .EQ. '') UMmag = rNULL__
if(ar__1(23:26) .EQ. '') e_UMmag = rNULL__
if(ar__1(30:34) .EQ. '') U38mag = rNULL__
if(ar__1(36:39) .EQ. '') e_U38mag = rNULL__
if(ar__1(43:47) .EQ. '') UVmag = rNULL__
if(ar__1(49:52) .EQ. '') e_UVmag = rNULL__
if(ar__1(56:60) .EQ. '') Bmag = rNULL__
if(ar__1(62:65) .EQ. '') e_Bmag = rNULL__
if(ar__1(69:73) .EQ. '') Vmag = rNULL__
if(ar__1(75:78) .EQ. '') e_Vmag = rNULL__
if(ar__1(82:86) .EQ. '') Rmag = rNULL__
if(ar__1(88:91) .EQ. '') e_Rmag = rNULL__
if(ar__1(95:99) .EQ. '') Imag = rNULL__
if(ar__1(101:104) .EQ. '') e_Imag = rNULL__
if(ar__1(108:112) .EQ. '') zmag = rNULL__
if(ar__1(114:117) .EQ. '') e_zmag = rNULL__
if(ar__1(121:125) .EQ. '') Jmag = rNULL__
if(ar__1(127:130) .EQ. '') e_Jmag = rNULL__
if(ar__1(137:141) .EQ. '') Hmag = rNULL__
if(ar__1(143:146) .EQ. '') e_Hmag = rNULL__
if(ar__1(150:154) .EQ. '') Ksmag = rNULL__
if(ar__1(156:159) .EQ. '') e_Ksmag = rNULL__
if(ar__1(172:175) .EQ. '') e_3_6mag = rNULL__
if(ar__1(185:188) .EQ. '') e_4_5mag = rNULL__
if(ar__1(192:196) .EQ. '') v5_8mag = rNULL__
if(ar__1(198:201) .EQ. '') e_5_8mag = rNULL__
if(ar__1(205:209) .EQ. '') v8_0mag = rNULL__
if(ar__1(211:214) .EQ. '') e_8_0mag = rNULL__
c ..............Just test output...........
write(6,2)
+ ALESS,f_ALESS,l_UMmag,UMmag,e_UMmag,l_U38mag,U38mag,e_U38mag,
+ l_UVmag,UVmag,e_UVmag,l_Bmag,Bmag,e_Bmag,l_Vmag,Vmag,e_Vmag,
+ l_Rmag,Rmag,e_Rmag,l_Imag,Imag,e_Imag,l_zmag,zmag,e_zmag,
+ l_Jmag,Jmag,e_Jmag,f_Jmag,l_Hmag,Hmag,e_Hmag,l_Ksmag,Ksmag,
+ e_Ksmag,f_Ksmag,l_3_6mag,v3_6mag,e_3_6mag,l_4_5mag,v4_5mag,
+ e_4_5mag,l_5_8mag,v5_8mag,e_5_8mag,l_8_0mag,v8_0mag,e_8_0mag
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table3.dat' ! Derived Properties
C Format for file interpretation
3 format(
+ 6X,A6,1X,A1,1X,I2,1X,I2,1X,F5.2,1X,A1,I2,1X,I2,1X,F4.1,1X,
+ F4.2,1X,F4.2,1X,F4.2,1X,F4.2,1X,A1,1X,F5.2,1X,I2,1X,I2,1X,
+ F6.2,1X,F4.2)
C Effective file loading
open(unit=1,status='old',file=
+'table3.dat')
write(6,*) '....Loading file: table3.dat'
do i__=1,77
read(1,'(A84)')ar__2
read(ar__2,3)
+ ALESS_1,f_ALESS_1,RAh,RAm,RAs,DE_,DEd,DEm,DEs,zphot,E_zphot,
+ e_zphot_1,zspec,r_zspec,Chi2,Detec,Obs,HMag_1,M_L
if(ar__2(55:58) .EQ. '') zspec = rNULL__
RAdeg = rNULL__
DEdeg = rNULL__
c Derive coordinates RAdeg and DEdeg from input data
c (RAdeg and DEdeg are set to rNULL__ when unknown)
if(RAh .GT. -180) RAdeg=RAh*15.
if(RAm .GT. -180) RAdeg=RAdeg+RAm/4.
if(RAs .GT. -180) RAdeg=RAdeg+RAs/240.
if(DEd .GE. 0) DEdeg=DEd
if(DEm .GE. 0) DEdeg=DEdeg+DEm/60.
if(DEs .GE. 0) DEdeg=DEdeg+DEs/3600.
if(DE_.EQ.'-'.AND.DEdeg.GE.0) DEdeg=-DEdeg
c ..............Just test output...........
write(6,3)
+ ALESS_1,f_ALESS_1,RAh,RAm,RAs,DE_,DEd,DEm,DEs,zphot,E_zphot,
+ e_zphot_1,zspec,r_zspec,Chi2,Detec,Obs,HMag_1,M_L
write(6,'(6H Pos: 2F8.4)') RAdeg,DEdeg
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end