Conversion of standardized ReadMe file for
file /./ftp/cats/J/ApJ/697/1369 into FORTRAN code for loading all data files into arrays.
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/697/1369 GOODS Ks-selected multiwavelength compilations (Bundy+, 2009)
*================================================================================
*The greater impact of mergers on the growth of massive galaxies:
*implications for mass assembly and evolution since z =~ 1.
* Bundy K., Fukugita M., Ellis R.S., Targett T.A., Belli S., Kodama T.
* <Astrophys. J., 697, 1369-1383 (2009)>
* =2009ApJ...697.1369B
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'north.dat' ! KGOODS-N v0.9 matched catalog, 08/02/2009
integer*4 nr__
parameter (nr__=8112) ! Number of records
character*619 ar__ ! Full-size record
C J2000 position composed of: RAdeg DEdeg
integer*4 OBJNO (nr__) ! Object ID number
real*4 RAdeg (nr__) ! (deg) Right ascension in decimal degrees, J2000,
* with respect to ACS registration
real*4 DEdeg (nr__) ! (deg) Declination in decimal degrees, J2000,
* with respect to ACS registration
real*4 zTKRS (nr__) ! ?=-1 TKRS spectroscopic redshift
integer*4 q_zTKRS (nr__) ! ?=-9 TKRS redshift quality
* (high quality = 3 or 4)
real*4 zTT (nr__) ! ?=-1 Spectroscopic redshift from
* Treu et al. (2005ApJ...622L...5T)
integer*4 q_zTT (nr__) ! ?=-9 Treu et al. (2005ApJ...622L...5T)
* redshift quality (same scale as TKRS)
real*4 zCowie (nr__) ! ?=-1 Spectroscopic redshift from Cowie (2004,
* Cat. <J/AJ/124/3137>) compilation
real*4 zReddy (nr__) ! ?=-1 Spectroscopic redshift from Reddy et al.
* (2006, Cat. <J/ApJ/653/1004>) compilation
real*4 zBPZ (nr__) ! ?=-1 BPZ Photo-z estimate from Bundy et al.
* (2009ApJ...697.1369B)
real*4 e_zBPZ (nr__) ! ?=-1 BPZ Photo-z error estimate from
* Bundy et al. (2009ApJ...697.1369B)
real*4 zCapak (nr__) ! ?=-1 Capak HDFN photo-z estimate
real*4 e_zCapak (nr__) ! ?=-1 Capak HDFN photo-z error estimate
integer*4 Morph (nr__) ! ?=99 Visual morphological classification (G1)
real*4 Rmag (nr__) ! (mag) ?=99 TKRS ground-based Rmag (1)
real*4 Kdepth (nr__) ! (mag) MOIRCS K-band 80% completeness depth (Vega) for
* the image corresponding to this source
real*4 Kmag (nr__) ! (mag) [-1] ?=-1 MOIRCS K-band MAG_AUTO (Vega)
real*4 Kmag1 (nr__) ! (mag) MOIRCS K-band 1arcsec diameter aperture
* magnitude (Vega)
real*4 Kmag2 (nr__) ! (mag) MOIRCS K-band 2arcsec diameter aperture
* magnitude (Vega)
real*4 Kmag3 (nr__) ! (mag) MOIRCS K-band 3arcsec diameter aperture
* magnitude (Vega)
real*4 Kmag4 (nr__) ! (mag) MOIRCS K-band 4arcsec diameter aperture
* magnitude (Vega)
real*4 e_Kmag (nr__) ! (mag) ?=99 MOIRCS K-band MAG_AUTO SExtractor error
* (likely underestimate)
real*4 e_Kmag1 (nr__) ! (mag) ?=99 MOIRCS K-band 1arcsec diameter SExtractor
* error (likely underestimate)
real*4 e_Kmag2 (nr__) ! (mag) ?=99 MOIRCS K-band 2arcsec diameter SExtractor
* error (likely underestimate)
real*4 e_Kmag3 (nr__) ! (mag) ?=99 MOIRCS K-band 3arcsec diameter SExtractor
* error (likely underestimate)
real*4 e_Kmag4 (nr__) ! (mag) ?=99 MOIRCS K-band 4arcsec diameter SExtractor
* error (likely underestimate)
real*4 eKmag (nr__) ! (mag) ?=99 MOIRCS K-band robust error from
* simulated sources
real*4 eKmag1 (nr__) ! (mag) ?=99 MOIRCS K-band 1arcsec diameter robust error
* from simulated sources
real*4 eKmag2 (nr__) ! (mag) ?=99 MOIRCS K-band 2arcsec diameter robust error
* from simulated sources
real*4 eKmag3 (nr__) ! (mag) ?=99 MOIRCS K-band 3arcsec diameter robust error
* from simulated sources
real*4 eKmag4 (nr__) ! (mag) ?=99 MOIRCS K-band 4arcsec diameter robust error
* from simulated sources
real*4 Bmag1 (nr__) ! (mag) ?=-99 ACS Bmag (f435w) 1arcsec diameter aperture
* AB mag (v1.19)
real*4 Vmag1 (nr__) ! (mag) ?=-99 ACS Vmag (f606w) 1arcsec diameter aperture
* AB mag (v1.19)
real*4 imag1 (nr__) ! (mag) ?=-99 ACS imag (f775w) 1arcsec diameter aperture
* AB mag (v1.19)
real*4 zmag1 (nr__) ! (mag) ?=-99 ACS zmag (f850lp) 1arcsec diameter
* aperture AB mag (v1.19)
real*4 e_Bmag1 (nr__) ! (mag) ?=-99 ACS Bmag1 SExtractor error
real*4 e_Vmag1 (nr__) ! (mag) ?=-99 ACS Vmag1 SExtractor error
real*4 e_imag1 (nr__) ! (mag) ?=-99 ACS imag1 SExtractor error
real*4 e_zmag1 (nr__) ! (mag) ?=-99 ACS zmag1 SExtractor error
real*4 Bmag2 (nr__) ! (mag) ?=-99 ACS Bmag (f435w) 2arcsec diameter aperture
* AB mag (v1.19)
real*4 Vmag2 (nr__) ! (mag) ?=-99 ACS Vmag (f606w) 2arcsec diameter aperture
* AB mag (v1.19)
real*4 imag2 (nr__) ! (mag) ?=-99 ACS imag (f775w) 2arcsec diameter aperture
* AB mag (v1.19)
real*4 zmag2 (nr__) ! (mag) ?=-99 ACS zmag (f850lp) 2arcsec diameter
* aperture AB mag (v1.19)
real*4 e_Bmag2 (nr__) ! (mag) ?=-99 ACS Bmag2 SExtractor error
real*4 e_Vmag2 (nr__) ! (mag) ?=-99 ACS Vmag2 SExtractor error
real*4 e_imag2 (nr__) ! (mag) ?=-99 ACS imag2 SExtractor error
real*4 e_zmag2 (nr__) ! (mag) ?=-99 ACS zmag2 SExtractor error
integer*4 Flag (nr__) ! [0/3] MOIRCS SExtractor flags
*Note (1): Not used in Bundy et al., 2009ApJ...697.1369B
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'south.dat' ! KGOODS-S v1.0 matched catalog, 08/02/2009
integer*4 nr__1
parameter (nr__1=9043) ! Number of records
character*1006 ar__1 ! Full-size record
C J2000 position composed of: RAdeg DEdeg
integer*4 OBJNO_1 (nr__1) ! Object ID number
real*4 RAdeg_1 (nr__1) ! (deg) Right ascension, in decimal degrees, J2000,
* with respect to ACS registration
real*4 DEdeg_1 (nr__1) ! (deg) Declination, in decimal degrees, J2000,
* with respect to ACS registration
integer*4 Index (nr__1) ! ?=-1 Entry index number in MUSIC compilation
* catalog (Cat. <J/A+A/449/951>) (1)
real*4 zVIMOS (nr__1) ! ?=-1 VIMOS GOODS/ADP spec-z redshift, v1.0
character*3 q_zVIMOS (nr__1) ! [ABCXs N/A] VIMOS redshift quality (2)
real*4 zFORS2 (nr__1) ! ?=-1 FORS2 GOODS/ADP spec-z redshift, v3.0
character*3 q_zFORS2 (nr__1) ! [ABCX N/A] FORS2 redshift quality (2)
real*4 zBPZ_1 (nr__1) ! ?=-1 BPZ photo-z estimated by Bundy et al.
* (2009ApJ...697.1369B)
real*4 e_zBPZ_1 (nr__1) ! ?=-1 BPZ photo-z error
integer*4 Morph_1 (nr__1) ! ?=99 Visual morphological classification (G1)
real*4 Kdepth_1 (nr__1) ! (mag) ISAAC 80% completeness depth for the image
* corresponding to this source
character*12 Jdepth (nr__1) ! (mag) ISAAC 80% completeness depth for the image
* corresponding to this source
real*4 Hdepth (nr__1) ! (mag) ?=-99 ISAAC 80% completeness depth for the
* image corresponding to this source
real*4 Kmag_1 (nr__1) ! (mag) ?=99 ISAAC v2.0 K-band SExtractor MAG_AUTO (AB)
real*4 Kmag1_1 (nr__1) ! (mag) ISAAC v2.0 K-band 1" diameter aperture
* magnitude (AB)
real*4 Kmag2_1 (nr__1) ! (mag) ?=99 ISAAC v2.0 K-band 2" diameter
* aperture magnitude (AB)
real*4 Kmag3_1 (nr__1) ! (mag) ?=99 ISAAC v2.0 K-band 3" diameter
* aperture magnitude (AB)
real*4 Kmag4_1 (nr__1) ! (mag) ?=99 ISAAC v2.0 K-band 4" diameter
* aperture magnitude (AB)
real*4 e_Kmag_1 (nr__1) ! (mag) ?=99 ISAAC v2.0 K-band SExtractor MAG_AUTO
* error (likely an underestimate)
real*4 e_Kmag1_1 (nr__1) ! (mag) ISAAC v2.0 K-band SExtractor aperture mag error
* (likely an underestimate)
real*4 e_Kmag2_1 (nr__1) ! (mag) ?=99 ISAAC v2.0 K-band SExtractor aperture mag
* error (likely an underestimate)
real*4 e_Kmag3_1 (nr__1) ! (mag) ?=99 ISAAC v2.0 K-band SExtractor aperture mag
* error (likely an underestimate)
real*4 e_Kmag4_1 (nr__1) ! (mag) ISAAC v2.0 K-band SExtractor aperture mag error
* (likely an underestimate)
real*4 Jmag (nr__1) ! (mag) ?=-99 ISAAC v2.0 Jband SExtractor MAG_AUTO (AB)
real*4 Jmag1 (nr__1) ! (mag) ?=-99 ISAAC v2.0 J-band 1" diameter
* aperture magnitude (AB)
real*4 Jmag2 (nr__1) ! (mag) ?=-99 ISAAC v2.0 J-band 2" diameter
* aperture magnitude (AB)
real*4 Jmag3 (nr__1) ! (mag) ?=-99 ISAAC v2.0 J-band 3" diameter
* aperture magnitude (AB)
real*4 Jmag4 (nr__1) ! (mag) ?=-99 ISAAC v2.0 J-band 4" diameter
* aperture magnitude (AB)
real*4 e_Jmag (nr__1) ! (mag) ?=-99 ISAAC v2.0 SExtractor errors
* (likely an underestimate)
real*4 e_Jmag1 (nr__1) ! (mag) ?=-99 ISAAC v2.0 SExtractor errors
* (likely an underestimate)
real*4 e_Jmag2 (nr__1) ! (mag) ?=-99 ISAAC v2.0 SExtractor errors
* (likely an underestimate)
real*4 e_Jmag3 (nr__1) ! (mag) ?=-99 ISAAC v2.0 SExtractor errors
* (likely an underestimate)
real*4 e_Jmag4 (nr__1) ! (mag) ?=-99 ISAAC v2.0 SExtractor errors
* (likely an underestimate)
real*4 Hmag (nr__1) ! (mag) ?=-99 ISAAC v2.0 Hband SExtractor MAG_AUTO (AB)
real*4 Hmag1 (nr__1) ! (mag) ?=-99 ISAAC v2.0 H-band 1" diameter
* aperture magnitude (AB)
real*4 Hmag2 (nr__1) ! (mag) ?=-99 ISAAC v2.0 H-band 2" diameter
* aperture magnitude (AB)
real*4 Hmag3 (nr__1) ! (mag) ?=-99 ISAAC v2.0 H-band 3" diameter
* aperture magnitude (AB)
real*4 Hmag4 (nr__1) ! (mag) ?=-99 ISAAC v2.0 H-band 4" diameter
* aperture magnitude (AB)
real*4 e_Hmag (nr__1) ! (mag) ?=-99 ISAAC v2.0 H-band SExtractor errors
* (likely an underestimate)
real*4 e_Hmag1 (nr__1) ! (mag) ?=-99 ISAAC v2.0 H-band 1" diameter SExtractor
* errors (likely an underestimate)
real*4 e_Hmag2 (nr__1) ! (mag) ?=-99 ISAAC v2.0 H-band 2" diameter SExtractor
* errors (likely an underestimate)
real*4 e_Hmag3 (nr__1) ! (mag) ?=-99 ISAAC v2.0 H-band 3" diameter SExtractor
* errors (likely an underestimate)
real*4 e_Hmag4 (nr__1) ! (mag) ?=-99 ISAAC v2.0 H-band 4" diameter SExtractor
* errors (likely an underestimate)
real*4 eKmag_1 (nr__1) ! (mag) Robust K-band errors from simulated sources
real*4 eKmag1_1 (nr__1) ! (mag) Robust K-band 1" diameter errors from simulated
* sources
real*4 eKmag2_1 (nr__1) ! (mag) Robust K-band 2" diameter errors from simulated
* sources
real*4 eKmag3_1 (nr__1) ! (mag) Robust K-band 3" diameter errors from simulated
* sources
real*4 eKmag4_1 (nr__1) ! (mag) Robust K-band 4" diameter errors from simulated
* sources
real*4 eJmag (nr__1) ! (mag) Robust J-band errors from simulated sources
real*4 eJmag1 (nr__1) ! (mag) Robust J-band 1" diameter errors from simulated
* sources
real*4 eJmag2 (nr__1) ! (mag) Robust J-band 2" diameter errors from simulated
* sources
real*4 eJmag3 (nr__1) ! (mag) Robust J-band 3" diameter errors from simulated
* sources
real*4 eJmag4 (nr__1) ! (mag) Robust J-band 4" diameter errors from simulated
* sources
real*4 eHmag (nr__1) ! (mag) ?=-99 Robust H-band errors from simulated
* sources
real*4 eHmag1 (nr__1) ! (mag) ?=-99 Robust H-band 1" diameter errors from
* simulated sources
real*4 eHmag2 (nr__1) ! (mag) ?=-99 Robust H-band 2" diameter errors from
* simulated sources
real*4 eHmag3 (nr__1) ! (mag) ?=-99 Robust H-band 3" diameter errors from
* simulated sources
real*4 eHmag4 (nr__1) ! (mag) ?=-99 Robust H-band 4" diameter errors from
* simulated sources
real*4 Bmag1_1 (nr__1) ! (mag) ?=-99 ACS Bmag (f435w) 1" diameter
* aperture AB mag (v1.1)
real*4 Vmag1_1 (nr__1) ! (mag) ?=-99 ACS Vmag (f606w) 1" diameter
* aperture AB mag (v1.1)
real*4 imag1_1 (nr__1) ! (mag) ?=-99 ACS imag (f775w) 1" diameter
* aperture AB mag (v1.1)
real*4 zmag1_1 (nr__1) ! (mag) ?=-99 ACS zmag (f850lp) 1" diameter
* aperture AB mag (v1.1)
real*4 e_Bmag1_1 (nr__1) ! (mag) ?=-99 ACS B-band 1" diameter SExtractor error
real*4 e_Vmag1_1 (nr__1) ! (mag) ?=-99 ACS V-band 1" diameter SExtractor error
real*4 e_imag1_1 (nr__1) ! (mag) ?=-99 ACS i-band 1" diameter SExtractor error
real*4 e_zmag1_1 (nr__1) ! (mag) ?=-99 ACS z-band 1" diameter SExtractor error
real*4 Bmag2_1 (nr__1) ! (mag) ?=-99 ACS Bmag (f435w) 2" diameter
* aperture AB mag (v1.1)
real*4 Vmag2_1 (nr__1) ! (mag) ?=-99 ACS Vmag (f606w) 2" diameter
* aperture AB mag (v1.1)
real*4 imag2_1 (nr__1) ! (mag) ?=-99 ACS imag (f775w) 2" diameter
* aperture AB mag (v1.1)
real*4 zmag2_1 (nr__1) ! (mag) ?=-99 ACS zmag (f850lp) 2" diameter
* aperture AB mag (v1.1)
real*4 e_Bmag2_1 (nr__1) ! (mag) ?=-99 ACS Bmag 2" diameter SExtractor error
real*4 e_Vmag2_1 (nr__1) ! (mag) ?=-99 ACS Vmag 2" diameter SExtractor error
real*4 e_imag2_1 (nr__1) ! (mag) ?=-99 ACS imag 2" diameter SExtractor error
real*4 e_zmag2_1 (nr__1) ! (mag) ?=-99 ACS zmag 2" diameter SExtractor error
integer*4 FlagJ (nr__1) ! ?=-1 SExtractor flags in J-band
integer*4 FlagH (nr__1) ! ?=-1 SExtractor flags in H-band
integer*4 FlagK (nr__1) ! SExtractor flags in K-band
*Note (1): IDL type, first entry is INDEX=0
*Note (2): A or B indicates a reliable redshift
C=============================================================================
C Loading file 'north.dat' ! KGOODS-N v0.9 matched catalog, 08/02/2009
C Format for file interpretation
1 format(
+ I6,3X,E18.13,1X,E18.13,1X,E13.7,1X,I2,1X,E13.7,1X,I2,1X,E13.7,
+ 1X,E13.7,1X,E13.7,1X,E13.7,1X,E13.7,1X,E13.7,1X,I2,5X,E12.7,
+ 1X,E12.7,1X,E13.7,1X,E12.7,1X,E12.7,1X,E12.7,1X,E12.7,1X,
+ E12.7,1X,E12.7,1X,E12.7,1X,E12.7,1X,E12.7,1X,E12.7,1X,E12.7,
+ 1X,E12.7,1X,E12.7,1X,E12.7,1X,E13.7,1X,E13.7,1X,E13.7,1X,
+ E13.7,1X,E13.7,1X,E13.7,1X,E13.7,1X,E13.7,1X,E13.7,1X,E13.7,
+ 1X,E13.7,1X,E13.7,1X,E13.7,1X,E13.7,1X,E13.7,1X,E13.7,1X,I1)
C Effective file loading
open(unit=1,status='old',file=
+'north.dat')
write(6,*) '....Loading file: north.dat'
do i__=1,8112
read(1,'(A619)')ar__
read(ar__,1)
+ OBJNO(i__),RAdeg(i__),DEdeg(i__),zTKRS(i__),q_zTKRS(i__),
+ zTT(i__),q_zTT(i__),zCowie(i__),zReddy(i__),zBPZ(i__),
+ e_zBPZ(i__),zCapak(i__),e_zCapak(i__),Morph(i__),Rmag(i__),
+ Kdepth(i__),Kmag(i__),Kmag1(i__),Kmag2(i__),Kmag3(i__),
+ Kmag4(i__),e_Kmag(i__),e_Kmag1(i__),e_Kmag2(i__),e_Kmag3(i__),
+ e_Kmag4(i__),eKmag(i__),eKmag1(i__),eKmag2(i__),eKmag3(i__),
+ eKmag4(i__),Bmag1(i__),Vmag1(i__),imag1(i__),zmag1(i__),
+ e_Bmag1(i__),e_Vmag1(i__),e_imag1(i__),e_zmag1(i__),
+ Bmag2(i__),Vmag2(i__),imag2(i__),zmag2(i__),e_Bmag2(i__),
+ e_Vmag2(i__),e_imag2(i__),e_zmag2(i__),Flag(i__)
c ..............Just test output...........
write(6,1)
+ OBJNO(i__),RAdeg(i__),DEdeg(i__),zTKRS(i__),q_zTKRS(i__),
+ zTT(i__),q_zTT(i__),zCowie(i__),zReddy(i__),zBPZ(i__),
+ e_zBPZ(i__),zCapak(i__),e_zCapak(i__),Morph(i__),Rmag(i__),
+ Kdepth(i__),Kmag(i__),Kmag1(i__),Kmag2(i__),Kmag3(i__),
+ Kmag4(i__),e_Kmag(i__),e_Kmag1(i__),e_Kmag2(i__),e_Kmag3(i__),
+ e_Kmag4(i__),eKmag(i__),eKmag1(i__),eKmag2(i__),eKmag3(i__),
+ eKmag4(i__),Bmag1(i__),Vmag1(i__),imag1(i__),zmag1(i__),
+ e_Bmag1(i__),e_Vmag1(i__),e_imag1(i__),e_zmag1(i__),
+ Bmag2(i__),Vmag2(i__),imag2(i__),zmag2(i__),e_Bmag2(i__),
+ e_Vmag2(i__),e_imag2(i__),e_zmag2(i__),Flag(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'south.dat' ! KGOODS-S v1.0 matched catalog, 08/02/2009
C Format for file interpretation
2 format(
+ I6,3X,E18.13,1X,E19.13,1X,I5,1X,E13.7,1X,A3,1X,E13.7,1X,A3,1X,
+ E13.7,1X,E13.7,1X,I2,5X,E12.7,1X,A12,1X,E13.7,1X,E12.7,1X,
+ E12.7,1X,E12.7,1X,E12.7,1X,E12.7,1X,E12.7,1X,E12.7,1X,E12.7,
+ 1X,E12.7,1X,E12.7,1X,E13.7,1X,E13.7,1X,E13.7,1X,E13.7,1X,
+ E13.7,1X,E13.7,1X,E13.7,1X,E13.7,1X,E13.7,1X,E13.7,1X,E13.7,
+ 1X,E13.7,1X,E13.7,1X,E13.7,1X,E13.7,1X,E13.7,1X,E13.7,1X,
+ E13.7,1X,E13.7,1X,E13.7,1X,E12.7,1X,E12.7,1X,E12.7,1X,E12.7,
+ 1X,E12.7,1X,E12.7,1X,E12.7,1X,E12.7,1X,E12.7,1X,E12.7,1X,
+ E13.7,1X,E13.7,1X,E13.7,1X,E13.7,1X,E13.7,1X,E13.7,1X,E13.7,
+ 1X,E13.7,1X,E13.7,1X,E13.7,1X,E13.7,1X,E13.7,1X,E13.7,1X,
+ E13.7,1X,E13.7,1X,E13.7,1X,E13.7,1X,E13.7,1X,E13.7,1X,E13.7,
+ 1X,E13.7,1X,I2,1X,I2,1X,I1)
C Effective file loading
open(unit=1,status='old',file=
+'south.dat')
write(6,*) '....Loading file: south.dat'
do i__=1,9043
read(1,'(A1006)')ar__1
read(ar__1,2)
+ OBJNO_1(i__),RAdeg_1(i__),DEdeg_1(i__),Index(i__),zVIMOS(i__),
+ q_zVIMOS(i__),zFORS2(i__),q_zFORS2(i__),zBPZ_1(i__),
+ e_zBPZ_1(i__),Morph_1(i__),Kdepth_1(i__),Jdepth(i__),
+ Hdepth(i__),Kmag_1(i__),Kmag1_1(i__),Kmag2_1(i__),
+ Kmag3_1(i__),Kmag4_1(i__),e_Kmag_1(i__),e_Kmag1_1(i__),
+ e_Kmag2_1(i__),e_Kmag3_1(i__),e_Kmag4_1(i__),Jmag(i__),
+ Jmag1(i__),Jmag2(i__),Jmag3(i__),Jmag4(i__),e_Jmag(i__),
+ e_Jmag1(i__),e_Jmag2(i__),e_Jmag3(i__),e_Jmag4(i__),Hmag(i__),
+ Hmag1(i__),Hmag2(i__),Hmag3(i__),Hmag4(i__),e_Hmag(i__),
+ e_Hmag1(i__),e_Hmag2(i__),e_Hmag3(i__),e_Hmag4(i__),
+ eKmag_1(i__),eKmag1_1(i__),eKmag2_1(i__),eKmag3_1(i__),
+ eKmag4_1(i__),eJmag(i__),eJmag1(i__),eJmag2(i__),eJmag3(i__),
+ eJmag4(i__),eHmag(i__),eHmag1(i__),eHmag2(i__),eHmag3(i__),
+ eHmag4(i__),Bmag1_1(i__),Vmag1_1(i__),imag1_1(i__),
+ zmag1_1(i__),e_Bmag1_1(i__),e_Vmag1_1(i__),e_imag1_1(i__),
+ e_zmag1_1(i__),Bmag2_1(i__),Vmag2_1(i__),imag2_1(i__),
+ zmag2_1(i__),e_Bmag2_1(i__),e_Vmag2_1(i__),e_imag2_1(i__),
+ e_zmag2_1(i__),FlagJ(i__),FlagH(i__),FlagK(i__)
c ..............Just test output...........
write(6,2)
+ OBJNO_1(i__),RAdeg_1(i__),DEdeg_1(i__),Index(i__),zVIMOS(i__),
+ q_zVIMOS(i__),zFORS2(i__),q_zFORS2(i__),zBPZ_1(i__),
+ e_zBPZ_1(i__),Morph_1(i__),Kdepth_1(i__),Jdepth(i__),
+ Hdepth(i__),Kmag_1(i__),Kmag1_1(i__),Kmag2_1(i__),
+ Kmag3_1(i__),Kmag4_1(i__),e_Kmag_1(i__),e_Kmag1_1(i__),
+ e_Kmag2_1(i__),e_Kmag3_1(i__),e_Kmag4_1(i__),Jmag(i__),
+ Jmag1(i__),Jmag2(i__),Jmag3(i__),Jmag4(i__),e_Jmag(i__),
+ e_Jmag1(i__),e_Jmag2(i__),e_Jmag3(i__),e_Jmag4(i__),Hmag(i__),
+ Hmag1(i__),Hmag2(i__),Hmag3(i__),Hmag4(i__),e_Hmag(i__),
+ e_Hmag1(i__),e_Hmag2(i__),e_Hmag3(i__),e_Hmag4(i__),
+ eKmag_1(i__),eKmag1_1(i__),eKmag2_1(i__),eKmag3_1(i__),
+ eKmag4_1(i__),eJmag(i__),eJmag1(i__),eJmag2(i__),eJmag3(i__),
+ eJmag4(i__),eHmag(i__),eHmag1(i__),eHmag2(i__),eHmag3(i__),
+ eHmag4(i__),Bmag1_1(i__),Vmag1_1(i__),imag1_1(i__),
+ zmag1_1(i__),e_Bmag1_1(i__),e_Vmag1_1(i__),e_imag1_1(i__),
+ e_zmag1_1(i__),Bmag2_1(i__),Vmag2_1(i__),imag2_1(i__),
+ zmag2_1(i__),e_Bmag2_1(i__),e_Vmag2_1(i__),e_imag2_1(i__),
+ e_zmag2_1(i__),FlagJ(i__),FlagH(i__),FlagK(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end