Conversion of standardized ReadMe file for
file /./ftp/cats/J/ApJS/230/9 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/ApJS/230/9 Improved multi-band photometry from SERVS (Nyland+, 2017)
*================================================================================
*An application of multi-band forced photometry to one square degree of SERVS:
*accurate photometric redshifts and implications for future science.
* Nyland K., Lacy M., Sajina A., Pforr J., Farrah D., Wilson G., Surace J.,
* Haussler B., Vaccari M., Jarvis M.
* <Astrophys. J. Suppl. Ser., 230, 9-9 (2017)>
* =2017ApJS..230....9N (SIMBAD/NED BibCode)
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 't4_irac.dat' ! *IRAC-selected output Tractor catalogs
integer*4 nr__
parameter (nr__=8441) ! Number of records
character*956 ar__ ! Full-size record
C J2000 position composed of: RAdeg DEdeg
real*8 RAdeg ! (deg) Right Ascension, decimal degrees (J2000)
real*8 DEdeg ! (deg) Declination, decimal degrees (J2000)
real*4 FKs ! (uJy) [-0.6/4660]? VIDEO VISTA Ks-band flux (G1)
real*4 FH ! (uJy) [-0.4/5003]? VIDEO VISTA H-band flux (G1)
real*4 FJ ! (uJy) [-0.4/3790]? VIDEO VISTA J-band flux (G1)
real*4 FY ! (uJy) [-0.4/4660]? VIDEO VISTA Y-band (1.018um)
* flux (G1)
real*4 FZ ! (uJy) [-0.4/3952]? VIDEO VISTA Z-band (0.8762um)
* flux (G1)
real*4 Fi_ ! (uJy) [-4541/880]? CFHTLS-D1 CFHT i'-band flux (G1)
real*4 Fr_ ! (uJy) [-1314/946]? CFHTLS-D1 CFHT r'-band flux (G1)
real*4 Fg_ ! (uJy) [-32524/658]? CFHTLS-D1 CFHT g'-band flux (G1)
real*4 Fz_C ! (uJy) [-2230/88906]? CFHTLS-D1 CFHT z'-band flux (G1)
real*4 Fu_ ! (uJy) [-614934/17565]? CFHTLS-D1 CFHT u'-band
* flux (G1)
real*4 F3_6 ! (uJy) [-108/4470]? SERVS Spitzer/IRAC 3.6um flux (G1)
real*4 F4_5 ! (uJy) [-19/2629]? SERVS Spitzer/IRAC 4.5um flux (G1)
real*8 e_FKs ! (uJy) [0.1/420]? Uncertainty in FKs
real*8 e_FH ! (uJy) [0.07/451]? Uncertainty in FH
real*8 e_FJ ! (uJy) [0.04/342]? Uncertainty in FJ
real*8 e_FY ! (uJy) [0.03/420]? Uncertainty in FY
real*8 e_FZ ! (uJy) [0.02/356]? Uncertainty in FZ
real*8 e_Fi_ ! (uJy) [0.003/137]? Uncertainty in Fi'
real*8 e_Fr_ ! (uJy) [0.002/40]? Uncertainty in Fr'
real*8 e_Fg_ ! (uJy) [0.001/976]? Uncertainty in Fg'
real*8 e_Fz_C ! (uJy) [0.008/2668]? Uncertainty in Fz'C
real*8 e_Fu_ ! (uJy) [0.002/18449]? Uncertainty in Fu'
real*8 e_F3_6 ! (uJy) [0.3/0.9]? Uncertainty in F3.6
real*8 e_F4_5 ! (uJy) [0.5/0.8]? Uncertainty in F4.5
real*8 Ksmag ! (mag) [14.7/36.8]? VIDEO Ks-band AB magnitude
real*8 Hmag ! (mag) [14.6/32.6]? VIDEO H-band AB magnitude
real*8 Jmag ! (mag) [14.9/35.4]? VIDEO J-band AB magnitude
real*8 Ymag ! (mag) [14.7/32.3]? VIDEO Y-band AB magnitude
real*8 Zmag ! (mag) [14.9/36.7]? VIDEO Z-band AB magnitude
real*8 i_mag ! (mag) [16.5/35.1]? CFHTLS-D1 i'-band AB magnitude
real*8 r_mag ! (mag) [16.4/34.5]? CFHTLS-D1 r'-band AB magnitude
real*8 g_mag ! (mag) [16.8/35.5]? CFHTLS-D1 g'-band AB magnitude
real*8 z_Cmag ! (mag) [11.5/33.4]? CFHTLS-D1 z'-band AB magnitude
real*8 u_mag ! (mag) [13.2/35.5]? CFHTLS-D1 u'-band AB magnitude
real*8 v3_6mag ! (mag) [14.7/30.3]? SERVS [3.6] AB magnitude
real*8 v4_5mag ! (mag) [15.3/32.8]? SERVS [4.5] AB magnitude
real*8 e_Ksmag ! (mag) [0.09/15617]? Uncertainty in Ksmag
real*8 e_Hmag ! (mag) [0.09/223]? Uncertainty in Hmag
real*8 e_Jmag ! (mag) [0.09/1905]? Uncertainty in Jmag
real*8 e_Ymag ! (mag) [0.09/105]? Uncertainty in Ymag
real*8 e_Zmag ! (mag) [0.09/3107]? Uncertainty in Zmag
real*8 e_i_mag ! (mag) [0.03/129]? Uncertainty in i'mag
real*8 e_r_mag ! (mag) [0.03/49]? Uncertainty in r'mag
real*8 e_g_mag ! (mag) [0.03/88]? Uncertainty in g'mag
real*8 e_z_Cmag ! (mag) [0.03/56]? Uncertainty in z'Cmag
real*8 e_u_mag ! (mag) [0.03/127]? Uncertainty in u'mag
real*8 e_3_6mag ! (mag) [0.0001/134]? Uncertainty in 3.6mag
real*8 e_4_5mag ! (mag) [0.0003/1836]? Uncertainty in 4.5mag
real*4 rChiKs ! ? Tractor reduced chi squared profile fit, Ks
* (redchi-Ks)
real*4 rChiH ! ? Tractor reduced chi squared profile fit, H
* (redchi-H)
real*4 rChiJ ! ? Tractor reduced chi squared profile fit, J
* (redchi-J)
real*4 rChiZ ! ? Tractor reduced chi squared profile fit, Z
* (redchi-Z)
real*4 rChiY ! ? Tractor reduced chi squared profile fit, Y
* (redchi-Y)
real*4 rChii_ ! ? Tractor reduced chi squared profile fit, i'
* (redchi-i')
real*4 rChir_ ! ? Tractor reduced chi squared profile fit, r'
* (redchi-i')
real*4 rChig_ ! ? Tractor reduced chi squared profile fit, g'
* (redchi-g')
real*4 rChiz_C ! ? Tractor reduced chi squared profile fit, z'C
* (redchi-z'C)
real*4 rChiu_ ! ? Tractor reduced chi squared profile fit, u'
* (redchi-u')
real*4 rChi3_6 ! [0.4/594125]? Tractor reduced chi squared
* profile fit, 3.6um (redchi-3.6)
real*4 rChi4_5 ! [0.4/141297]? Tractor reduced chi squared
* profile fit, 4.5um (redchi-4.5)
character*5 Band ! VIDEO band ([3.6] or [4.5]) used to define
* source model (Fiducialband)
character*5 Mod ! [PtSrc] Source surface brightness profile model
* (all "PtSrc"=point source model) (SourceModel)
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 't4_video.dat' ! *VISTA Deep Extragalactic Observations
(VIDEO)-selected output Tractor catalogs
integer*4 nr__1
parameter (nr__1=117281) ! Number of records
character*988 ar__1 ! Full-size record
C J2000 position composed of: RAdeg DEdeg
real*8 RAdeg_1 ! (deg) Right Ascension, decimal degrees (J2000)
real*8 DEdeg_1 ! (deg) Declination, decimal degrees (J2000)
real*4 FKs_1 ! (uJy) [-56/187650]? VIDEO VISTA Ks-band flux (G1)
real*4 FH_1 ! (uJy) [-44/203387]? VIDEO VISTA H-band flux (G1)
real*4 FJ_1 ! (uJy) [-29/152366]? VIDEO VISTA J-band flux (G1)
real*4 FY_1 ! (uJy) [-23/279636]? VIDEO VISTA Y-band flux (G1)
real*4 FZ_1 ! (uJy) [-17/181329]? VIDEO VISTA Z-band flux (G1)
real*4 Fi__1 ! (uJy) [-16031/31876]? CFHTLS-D1 CFHT i'-band
* flux (G1)
real*4 Fr__1 ! (uJy) [-18950/39642]? CFHTLS-D1 CFHT r'-band
* flux (G1)
real*4 Fg__1 ! (uJy) [-18804/266199]? CFHTLS-D1 CFHT g'-band
* flux (G1)
real*4 Fz_C_1 ! (uJy) [-130457/]? CFHTLS-D1 CFHT z'-band flux (G1)
real*4 Fu__1 ! (uJy) [-14150/34689]? CFHTLS-D1 CFHT u'-band
* flux (G1)
real*4 F3_6_1 ! (uJy) [-50/58703]? SERVS Spitzer/IRAC 3.6um
* flux (G1)
real*4 F4_5_1 ! (uJy) [-152/71428]? SERVS Spitzer/IRAC 4.5um
* flux (G1)
real*8 e_FKs_1 ! (uJy) [0.1/16889]? Uncertainty in FKs
real*8 e_FH_1 ! (uJy) [0.1/18305]? Uncertainty in FH
real*8 e_FJ_1 ! (uJy) [0.08/13713]? Uncertainty in FJ
real*8 e_FY_1 ! (uJy) [0.06/25168]? Uncertainty in FY
real*8 e_FZ_1 ! (uJy) [0.03/16320]? Uncertainty in FZ
real*8 e_Fi__1 ! (uJy) [0.005/957]? Uncertainty in Fi'
real*8 e_Fr__1 ! (uJy) [0.004/1190]? Uncertainty in Fr'
real*8 e_Fg__1 ! (uJy) [0.003/7986]? Uncertainty in Fg'
real*8 e_Fz_C_1 ! (uJy) [0.01/32298]? Uncertainty in Fz'C
real*8 e_Fu__1 ! (uJy) [0.005/1201]? Uncertainty in Fu'
real*8 e_F3_6_1 ! (uJy) [0.3/2.7]? Uncertainty in F3.6
real*8 e_F4_5_1 ! (uJy) [0.2/1.6]? Uncertainty in F4.5
real*8 Ksmag_1 ! (mag) [10.7/31.7]? VIDEO Ks-band AB magnitude
real*8 Hmag_1 ! (mag) [10.6/33.8]? VIDEO H-band AB magnitude
real*8 Jmag_1 ! (mag) [10.9/34.5]? VIDEO J-band AB magnitude
real*8 Ymag_1 ! (mag) [10.2/33]? VIDEO Y-band AB magnitude
real*8 Zmag_1 ! (mag) [10.7/35.4]? VIDEO Z-band AB magnitude
real*8 i_mag_1 ! (mag) [12.6/35.5]? CFHTLS-D1 i'-band AB magnitude
real*8 r_mag_1 ! (mag) [12.4/38]? CFHTLS-D1 r'-band AB magnitude
real*8 g_mag_1 ! (mag) [10.3/37.7]? CFHTLS-D1 g'-band AB magnitude
real*8 z_Cmag_1 ! (mag) [8.8/36.2]? CFHTLS-D1 z'-band AB magnitude
real*8 u_mag_1 ! (mag) [12.5/36.3]? CFHTLS-D1 u'-band AB magnitude
real*8 v3_6mag_1 ! (mag) [11.9/33.5]? SERVS [3.6] AB magnitude
real*8 v4_5mag_1 ! (mag) [11.7/34.6]? SERVS [4.5] AB magnitude
real*8 e_Ksmag_1 ! (mag) [0.09/352]? Uncertainty in Ksmag
real*8 e_Hmag_1 ! (mag) [0.09/1249]? Uncertainty in Hmag
real*8 e_Jmag_1 ! (mag) [0.09/2108]? Uncertainty in Jmag
real*8 e_Ymag_1 ! (mag) [0.09/406]? Uncertainty in Ymag
real*8 e_Zmag_1 ! (mag) [0.09/2106]? Uncertainty in Zmag
real*8 e_i_mag_1 ! (mag) [0.03/390]? Uncertainty in i'mag
real*8 e_r_mag_1 ! (mag) [0.03/3027]? Uncertainty in r'mag
real*8 e_g_mag_1 ! (mag) [0.03/1613]? Uncertainty in g'mag
real*8 e_z_Cmag_1 ! (mag) [0.03/1737]? Uncertainty in z'Cmag
real*8 e_u_mag_1 ! (mag) [0.06/1308]? Uncertainty in u'mag
real*8 e_3_6mag_1 ! (mag) [/2439]? Uncertainty in 3.6mag
real*8 e_4_5mag_1 ! (mag) [/5161]? Uncertainty in 4.5mag
real*4 rChiKs_1 ! ? Tractor reduced chi squared profile fit, Ks
* (redchi-Ks)
real*4 rChiH_1 ! ? Tractor reduced chi squared profile fit, H
* (redchi-H)
real*4 rChiJ_1 ! ? Tractor reduced chi squared profile fit, J
* (redchi-J)
real*4 rChiZ_1 ! ? Tractor reduced chi squared profile fit, Z
* (redchi-Z)
real*4 rChiY_1 ! ? Tractor reduced chi squared profile fit, Y
* (redchi-Y)
real*4 rChii__1 ! ? Tractor reduced chi squared profile fit, i'
* (redchi-i')
real*4 rChir__1 ! ? Tractor reduced chi squared profile fit, r'
* (redchi-r')
real*4 rChig__1 ! ? Tractor reduced chi squared profile fit, g'
* (redchi-g')
real*4 rChiz_C_1 ! ? Tractor reduced chi squared profile fit, z'C
* (redchi-z'C)
real*4 rChiu__1 ! ? Tractor reduced chi squared profile fit, u'
* (redchi-u')
real*4 rChi3_6_1 ! ? Tractor reduced chi squared profile fit,
* 3.6um (redchi-3.6)
real*4 rChi4_5_1 ! ? Tractor reduced chi squared profile fit,
* 4.5um (redchi-4.5)
character*2 Band_1 ! VIDEO band (JHKsYZ) used to define source
* model (Fiducialband)
character*5 Mod_1 ! Source surface brightness profile model
* (SourceModel) (1)
integer*4 f_Ks ! Source saturation flag in Ks (1=saturated)
* (Sat-flag) (2)
integer*4 f_H ! Source saturation flag in H-band (1=saturated)
* (Sat-flag) (2)
integer*4 f_J ! Source saturation flag in J-band (1=saturated)
* (Sat-flag) (2)
integer*4 f_Y ! Source saturation flag in Y-band (1=saturated)
* (Sat-flag) (2)
integer*4 f_Z ! Source saturation flag in Z-band (1=saturated)
* (Sat-flag) (2)
integer*4 f_i_ ! Source saturation flag in i' (1=saturated)
* (Sat-flag) (2)
integer*4 f_r_ ! Source saturation flag in r' (1=saturated)
* (Sat-flag) (2)
integer*4 f_g_ ! Source saturation flag in g' (1=saturated)
* (Sat-flag) (2)
integer*4 f_z_ ! Source saturation flag in z' (1=saturated)
* (Sat-flag) (2)
integer*4 f_u_ ! Source saturation flag in u' (1=saturated)
* (Sat-flag) (2)
integer*4 f_3_6um ! Source saturation flag in 3.6um (1=saturated)
* (Sat-flag) (2)
integer*4 f_4_5um ! Source saturation flag in 4.5um (1=saturated)
* (Sat-flag) (2)
integer*4 Ffit ! Fit flag (Fit-flag) (3)
*Note (1): Source surface brightness profile model as follows:
* Dev = deVaucouleurs profile (50774 occurrences);
* Exp = exponential profile (25748 occurrences);
* PtSrc = point source model (40759 occurrences).
*Note (2): Source saturation flags are a single binary string containing a 0
* (not saturated) or a 1 (saturated) for each band. The Sat-Flag columns are
* only included for the VIDEO-selected catalog since saturation is not an
* issue in the IRAC-selected catalog of intrinsically fainter sources.
*Note (3): Fit-Flag = 1 are instances where the Tractor fit did not converge
* (often related to poor initial constraints from the source properties
* in the fiducial band, e.g., when no source is actually present). In the
* original tabulation the fluxes were +Inf; the magnitudes -Inf.
C=============================================================================
C Loading file 't4_irac.dat' ! *IRAC-selected output Tractor catalogs
C Format for file interpretation
1 format(
+ F9.6,1X,F10.7,1X,E18.11,1X,E18.11,1X,E18.11,1X,E18.11,1X,
+ E18.11,1X,E18.11,1X,E18.11,1X,E18.11,1X,E18.11,1X,E18.11,1X,
+ E18.11,1X,E18.11,1X,F14.10,1X,F14.10,1X,F14.10,1X,F14.10,1X,
+ F14.10,1X,F14.10,1X,F13.10,1X,F14.10,1X,F15.10,1X,F16.10,1X,
+ F12.10,1X,F12.10,1X,F10.7,1X,F10.7,1X,F10.7,1X,F10.7,1X,F10.7,
+ 1X,F10.7,1X,F10.7,1X,F10.7,1X,F10.7,1X,F10.7,1X,F10.7,1X,
+ F10.7,1X,F15.9,1X,F13.9,1X,F14.9,1X,F13.9,1X,F14.9,1X,F13.9,
+ 1X,F12.9,1X,F12.9,1X,F12.9,1X,F13.9,1X,F13.9,1X,F14.9,1X,
+ E17.11,1X,E17.11,1X,E17.11,1X,E17.11,1X,E17.11,1X,E17.11,1X,
+ E17.11,1X,E17.11,1X,E17.11,1X,E17.11,1X,E17.11,1X,E17.11,1X,
+ A5,1X,A5)
C Effective file loading
open(unit=1,status='old',file=
+'t4_irac.dat')
write(6,*) '....Loading file: t4_irac.dat'
do i__=1,8441
read(1,'(A956)')ar__
read(ar__,1)
+ RAdeg,DEdeg,FKs,FH,FJ,FY,FZ,Fi_,Fr_,Fg_,Fz_C,Fu_,F3_6,F4_5,
+ e_FKs,e_FH,e_FJ,e_FY,e_FZ,e_Fi_,e_Fr_,e_Fg_,e_Fz_C,e_Fu_,
+ e_F3_6,e_F4_5,Ksmag,Hmag,Jmag,Ymag,Zmag,i_mag,r_mag,g_mag,
+ z_Cmag,u_mag,v3_6mag,v4_5mag,e_Ksmag,e_Hmag,e_Jmag,e_Ymag,
+ e_Zmag,e_i_mag,e_r_mag,e_g_mag,e_z_Cmag,e_u_mag,e_3_6mag,
+ e_4_5mag,rChiKs,rChiH,rChiJ,rChiZ,rChiY,rChii_,rChir_,rChig_,
+ rChiz_C,rChiu_,rChi3_6,rChi4_5,Band,Mod
if(ar__(22:39) .EQ. '') FKs = rNULL__
if(ar__(41:58) .EQ. '') FH = rNULL__
if(ar__(60:77) .EQ. '') FJ = rNULL__
if(ar__(79:96) .EQ. '') FY = rNULL__
if(ar__(98:115) .EQ. '') FZ = rNULL__
if(ar__(117:134) .EQ. '') Fi_ = rNULL__
if(ar__(136:153) .EQ. '') Fr_ = rNULL__
if(ar__(155:172) .EQ. '') Fg_ = rNULL__
if(ar__(174:191) .EQ. '') Fz_C = rNULL__
if(ar__(193:210) .EQ. '') Fu_ = rNULL__
if(ar__(212:229) .EQ. '') F3_6 = rNULL__
if(ar__(231:248) .EQ. '') F4_5 = rNULL__
if(ar__(250:263) .EQ. '') e_FKs = rNULL__
if(ar__(265:278) .EQ. '') e_FH = rNULL__
if(ar__(280:293) .EQ. '') e_FJ = rNULL__
if(ar__(295:308) .EQ. '') e_FY = rNULL__
if(ar__(310:323) .EQ. '') e_FZ = rNULL__
if(ar__(325:338) .EQ. '') e_Fi_ = rNULL__
if(ar__(340:352) .EQ. '') e_Fr_ = rNULL__
if(ar__(354:367) .EQ. '') e_Fg_ = rNULL__
if(ar__(369:383) .EQ. '') e_Fz_C = rNULL__
if(ar__(385:400) .EQ. '') e_Fu_ = rNULL__
if(ar__(402:413) .EQ. '') e_F3_6 = rNULL__
if(ar__(415:426) .EQ. '') e_F4_5 = rNULL__
if(ar__(428:437) .EQ. '') Ksmag = rNULL__
if(ar__(439:448) .EQ. '') Hmag = rNULL__
if(ar__(450:459) .EQ. '') Jmag = rNULL__
if(ar__(461:470) .EQ. '') Ymag = rNULL__
if(ar__(472:481) .EQ. '') Zmag = rNULL__
if(ar__(483:492) .EQ. '') i_mag = rNULL__
if(ar__(494:503) .EQ. '') r_mag = rNULL__
if(ar__(505:514) .EQ. '') g_mag = rNULL__
if(ar__(516:525) .EQ. '') z_Cmag = rNULL__
if(ar__(527:536) .EQ. '') u_mag = rNULL__
if(ar__(538:547) .EQ. '') v3_6mag = rNULL__
if(ar__(549:558) .EQ. '') v4_5mag = rNULL__
if(ar__(560:574) .EQ. '') e_Ksmag = rNULL__
if(ar__(576:588) .EQ. '') e_Hmag = rNULL__
if(ar__(590:603) .EQ. '') e_Jmag = rNULL__
if(ar__(605:617) .EQ. '') e_Ymag = rNULL__
if(ar__(619:632) .EQ. '') e_Zmag = rNULL__
if(ar__(634:646) .EQ. '') e_i_mag = rNULL__
if(ar__(648:659) .EQ. '') e_r_mag = rNULL__
if(ar__(661:672) .EQ. '') e_g_mag = rNULL__
if(ar__(674:685) .EQ. '') e_z_Cmag = rNULL__
if(ar__(687:699) .EQ. '') e_u_mag = rNULL__
if(ar__(701:713) .EQ. '') e_3_6mag = rNULL__
if(ar__(715:728) .EQ. '') e_4_5mag = rNULL__
if(ar__(730:746) .EQ. '') rChiKs = rNULL__
if(ar__(748:764) .EQ. '') rChiH = rNULL__
if(ar__(766:782) .EQ. '') rChiJ = rNULL__
if(ar__(784:800) .EQ. '') rChiZ = rNULL__
if(ar__(802:818) .EQ. '') rChiY = rNULL__
if(ar__(820:836) .EQ. '') rChii_ = rNULL__
if(ar__(838:854) .EQ. '') rChir_ = rNULL__
if(ar__(856:872) .EQ. '') rChig_ = rNULL__
if(ar__(874:890) .EQ. '') rChiz_C = rNULL__
if(ar__(892:908) .EQ. '') rChiu_ = rNULL__
if(ar__(910:926) .EQ. '') rChi3_6 = rNULL__
if(ar__(928:944) .EQ. '') rChi4_5 = rNULL__
c ..............Just test output...........
write(6,1)
+ RAdeg,DEdeg,FKs,FH,FJ,FY,FZ,Fi_,Fr_,Fg_,Fz_C,Fu_,F3_6,F4_5,
+ e_FKs,e_FH,e_FJ,e_FY,e_FZ,e_Fi_,e_Fr_,e_Fg_,e_Fz_C,e_Fu_,
+ e_F3_6,e_F4_5,Ksmag,Hmag,Jmag,Ymag,Zmag,i_mag,r_mag,g_mag,
+ z_Cmag,u_mag,v3_6mag,v4_5mag,e_Ksmag,e_Hmag,e_Jmag,e_Ymag,
+ e_Zmag,e_i_mag,e_r_mag,e_g_mag,e_z_Cmag,e_u_mag,e_3_6mag,
+ e_4_5mag,rChiKs,rChiH,rChiJ,rChiZ,rChiY,rChii_,rChir_,rChig_,
+ rChiz_C,rChiu_,rChi3_6,rChi4_5,Band,Mod
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 't4_video.dat' ! *VISTA Deep Extragalactic Observations
* (VIDEO)-selected output Tractor catalogs
C Format for file interpretation
2 format(
+ F9.6,1X,F10.7,1X,E18.11,1X,E18.11,1X,E18.11,1X,E18.11,1X,
+ E18.11,1X,E18.11,1X,E18.11,1X,E18.11,1X,E18.11,1X,E18.11,1X,
+ E18.11,1X,E18.11,1X,F16.10,1X,F16.10,1X,F16.10,1X,F16.10,1X,
+ F16.10,1X,F14.10,1X,F15.10,1X,F15.10,1X,F16.10,1X,F15.10,1X,
+ F12.10,1X,F12.10,1X,F10.7,1X,F10.7,1X,F10.7,1X,F10.7,1X,F10.7,
+ 1X,F10.7,1X,F10.7,1X,F10.7,1X,F10.7,1X,F10.7,1X,F10.7,1X,
+ F10.7,1X,F13.9,1X,F14.9,1X,F14.9,1X,F13.9,1X,F14.9,1X,F13.9,
+ 1X,F14.9,1X,F14.9,1X,F14.9,1X,F14.9,1X,F14.9,1X,F14.9,1X,
+ E17.11,1X,E17.11,1X,E17.11,1X,E17.11,1X,E17.11,1X,E17.11,1X,
+ E17.11,1X,E17.11,1X,E17.11,1X,E17.11,1X,E17.11,1X,E17.11,1X,
+ A2,1X,A5,1X,I1,I1,I1,I1,I1,I1,I1,I1,I1,I1,I1,I1,1X,I1)
C Effective file loading
open(unit=1,status='old',file=
+'t4_video.dat')
write(6,*) '....Loading file: t4_video.dat'
do i__=1,117281
read(1,'(A988)')ar__1
read(ar__1,2)
+ RAdeg_1,DEdeg_1,FKs_1,FH_1,FJ_1,FY_1,FZ_1,Fi__1,Fr__1,Fg__1,
+ Fz_C_1,Fu__1,F3_6_1,F4_5_1,e_FKs_1,e_FH_1,e_FJ_1,e_FY_1,
+ e_FZ_1,e_Fi__1,e_Fr__1,e_Fg__1,e_Fz_C_1,e_Fu__1,e_F3_6_1,
+ e_F4_5_1,Ksmag_1,Hmag_1,Jmag_1,Ymag_1,Zmag_1,i_mag_1,r_mag_1,
+ g_mag_1,z_Cmag_1,u_mag_1,v3_6mag_1,v4_5mag_1,e_Ksmag_1,
+ e_Hmag_1,e_Jmag_1,e_Ymag_1,e_Zmag_1,e_i_mag_1,e_r_mag_1,
+ e_g_mag_1,e_z_Cmag_1,e_u_mag_1,e_3_6mag_1,e_4_5mag_1,rChiKs_1,
+ rChiH_1,rChiJ_1,rChiZ_1,rChiY_1,rChii__1,rChir__1,rChig__1,
+ rChiz_C_1,rChiu__1,rChi3_6_1,rChi4_5_1,Band_1,Mod_1,f_Ks,f_H,
+ f_J,f_Y,f_Z,f_i_,f_r_,f_g_,f_z_,f_u_,f_3_6um,f_4_5um,Ffit
if(ar__1(22:39) .EQ. '') FKs_1 = rNULL__
if(ar__1(41:58) .EQ. '') FH_1 = rNULL__
if(ar__1(60:77) .EQ. '') FJ_1 = rNULL__
if(ar__1(79:96) .EQ. '') FY_1 = rNULL__
if(ar__1(98:115) .EQ. '') FZ_1 = rNULL__
if(ar__1(117:134) .EQ. '') Fi__1 = rNULL__
if(ar__1(136:153) .EQ. '') Fr__1 = rNULL__
if(ar__1(155:172) .EQ. '') Fg__1 = rNULL__
if(ar__1(174:191) .EQ. '') Fz_C_1 = rNULL__
if(ar__1(193:210) .EQ. '') Fu__1 = rNULL__
if(ar__1(212:229) .EQ. '') F3_6_1 = rNULL__
if(ar__1(231:248) .EQ. '') F4_5_1 = rNULL__
if(ar__1(250:265) .EQ. '') e_FKs_1 = rNULL__
if(ar__1(267:282) .EQ. '') e_FH_1 = rNULL__
if(ar__1(284:299) .EQ. '') e_FJ_1 = rNULL__
if(ar__1(301:316) .EQ. '') e_FY_1 = rNULL__
if(ar__1(318:333) .EQ. '') e_FZ_1 = rNULL__
if(ar__1(335:348) .EQ. '') e_Fi__1 = rNULL__
if(ar__1(350:364) .EQ. '') e_Fr__1 = rNULL__
if(ar__1(366:380) .EQ. '') e_Fg__1 = rNULL__
if(ar__1(382:397) .EQ. '') e_Fz_C_1 = rNULL__
if(ar__1(399:413) .EQ. '') e_Fu__1 = rNULL__
if(ar__1(415:426) .EQ. '') e_F3_6_1 = rNULL__
if(ar__1(428:439) .EQ. '') e_F4_5_1 = rNULL__
if(ar__1(441:450) .EQ. '') Ksmag_1 = rNULL__
if(ar__1(452:461) .EQ. '') Hmag_1 = rNULL__
if(ar__1(463:472) .EQ. '') Jmag_1 = rNULL__
if(ar__1(474:483) .EQ. '') Ymag_1 = rNULL__
if(ar__1(485:494) .EQ. '') Zmag_1 = rNULL__
if(ar__1(496:505) .EQ. '') i_mag_1 = rNULL__
if(ar__1(507:516) .EQ. '') r_mag_1 = rNULL__
if(ar__1(518:527) .EQ. '') g_mag_1 = rNULL__
if(ar__1(529:538) .EQ. '') z_Cmag_1 = rNULL__
if(ar__1(540:549) .EQ. '') u_mag_1 = rNULL__
if(ar__1(551:560) .EQ. '') v3_6mag_1 = rNULL__
if(ar__1(562:571) .EQ. '') v4_5mag_1 = rNULL__
if(ar__1(573:585) .EQ. '') e_Ksmag_1 = rNULL__
if(ar__1(587:600) .EQ. '') e_Hmag_1 = rNULL__
if(ar__1(602:615) .EQ. '') e_Jmag_1 = rNULL__
if(ar__1(617:629) .EQ. '') e_Ymag_1 = rNULL__
if(ar__1(631:644) .EQ. '') e_Zmag_1 = rNULL__
if(ar__1(646:658) .EQ. '') e_i_mag_1 = rNULL__
if(ar__1(660:673) .EQ. '') e_r_mag_1 = rNULL__
if(ar__1(675:688) .EQ. '') e_g_mag_1 = rNULL__
if(ar__1(690:703) .EQ. '') e_z_Cmag_1 = rNULL__
if(ar__1(705:718) .EQ. '') e_u_mag_1 = rNULL__
if(ar__1(720:733) .EQ. '') e_3_6mag_1 = rNULL__
if(ar__1(735:748) .EQ. '') e_4_5mag_1 = rNULL__
if(ar__1(750:766) .EQ. '') rChiKs_1 = rNULL__
if(ar__1(768:784) .EQ. '') rChiH_1 = rNULL__
if(ar__1(786:802) .EQ. '') rChiJ_1 = rNULL__
if(ar__1(804:820) .EQ. '') rChiZ_1 = rNULL__
if(ar__1(822:838) .EQ. '') rChiY_1 = rNULL__
if(ar__1(840:856) .EQ. '') rChii__1 = rNULL__
if(ar__1(858:874) .EQ. '') rChir__1 = rNULL__
if(ar__1(876:892) .EQ. '') rChig__1 = rNULL__
if(ar__1(894:910) .EQ. '') rChiz_C_1 = rNULL__
if(ar__1(912:928) .EQ. '') rChiu__1 = rNULL__
if(ar__1(930:946) .EQ. '') rChi3_6_1 = rNULL__
if(ar__1(948:964) .EQ. '') rChi4_5_1 = rNULL__
c ..............Just test output...........
write(6,2)
+ RAdeg_1,DEdeg_1,FKs_1,FH_1,FJ_1,FY_1,FZ_1,Fi__1,Fr__1,Fg__1,
+ Fz_C_1,Fu__1,F3_6_1,F4_5_1,e_FKs_1,e_FH_1,e_FJ_1,e_FY_1,
+ e_FZ_1,e_Fi__1,e_Fr__1,e_Fg__1,e_Fz_C_1,e_Fu__1,e_F3_6_1,
+ e_F4_5_1,Ksmag_1,Hmag_1,Jmag_1,Ymag_1,Zmag_1,i_mag_1,r_mag_1,
+ g_mag_1,z_Cmag_1,u_mag_1,v3_6mag_1,v4_5mag_1,e_Ksmag_1,
+ e_Hmag_1,e_Jmag_1,e_Ymag_1,e_Zmag_1,e_i_mag_1,e_r_mag_1,
+ e_g_mag_1,e_z_Cmag_1,e_u_mag_1,e_3_6mag_1,e_4_5mag_1,rChiKs_1,
+ rChiH_1,rChiJ_1,rChiZ_1,rChiY_1,rChii__1,rChir__1,rChig__1,
+ rChiz_C_1,rChiu__1,rChi3_6_1,rChi4_5_1,Band_1,Mod_1,f_Ks,f_H,
+ f_J,f_Y,f_Z,f_i_,f_r_,f_g_,f_z_,f_u_,f_3_6um,f_4_5um,Ffit
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end