Conversion of standardized ReadMe file for
file /./ftp/cats/J/AJ/134/1103 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/AJ/134/1103 MUSYC deep near-infrared imaging (Quadri+, 2007)
*================================================================================
*The Multiwavelength Survey by Yale-Chile (MUSYC):
*deep near-infrared imaging and the selection of distant galaxies.
* Quadri R., Marchesini D., Van Dokkum P., Gawiser E., Franx M., Lira P.,
* Rudnick G., Urry C.M., Maza J., Kriek M., Barrientos L.F., Blanc G.A.,
* Castander F.J., Christlein D., Coppi P.S., Hall P.B., Herrera D.,
* Infante L., Taylor E.N., Treister E., Willis J.P.
* <Astron. J., 134, 1103-1117 (2007)>
* =2007AJ....134.1103Q
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'cw1255.dat' ! MUSYC 1255, K-selected catalog with
UBVRIzJHK photometry
integer*4 nr__
parameter (nr__=2444) ! Number of records
character*416 ar__ ! Full-size record
C J2000 position composed of: RAdeg DEdeg
integer*4 Seq ! Sequential number, in the field
real*8 Xpos ! (pix) x barycenter
real*8 ypos ! (pix) y barycenter
real*8 RAdeg ! (deg) Right ascension, in decimal degrees (J2000)
real*8 DEdeg ! (deg) Declination, in decimal degrees (J2000)
integer*4 F ! [4-7] Internal field code:
* 4=HDFS1, 5=HDFS2, 6=1030, 7=1255
real*8 Uflux ! U band ADU flux in color aperture
real*4 e_Uflux ! Uncertainty in Uflux
real*8 Bflux ! B band ADU flux in color aperture
real*4 e_Bflux ! Uncertainty in Bflux
real*8 Vflux ! V band ADU flux in color aperture
real*4 e_Vflux ! Uncertainty in Vflux
real*8 Rflux ! R band ADU flux in color aperture
real*4 e_Rflux ! Uncertainty in Rflux
real*8 Iflux ! I band ADU flux in color aperture
real*4 e_Iflux ! Uncertainty in Iflux
real*8 zflux ! z band ADU flux in color aperture
real*4 e_zflux ! Uncertainty in zflux
real*8 Jflux ! J band ADU flux in color aperture
real*4 e_Jflux ! Uncertainty in Jflux
real*8 Hflux ! H band ADU flux in color aperture
real*4 e_Hflux ! Uncertainty in Hflux
real*8 Kflux ! K band ADU flux in color aperture
real*4 e_Kflux ! Uncertainty in Kflux
real*8 Ktot ! Aperture-corrected AUTO ADU flux in K band
real*4 e_Ktot ! Uncertainty in Ktot
real*4 Uw ! [1] U band exposure time (currently =1) (3)
real*4 Bw ! [1] B band exposure time (currently =1) (3)
real*4 Vw ! [1] V band exposure time (currently =1) (3)
real*4 Rw ! [1] R band exposure time (currently =1) (3)
real*4 Iw ! [1] I band exposure time (currently =1) (3)
real*4 zw ! [1] z band exposure time (currently =1) (3)
real*4 Jw ! J band exposure time (3)
real*4 Hw ! H band exposure time (3)
real*4 Kw ! K band exposure time (3)
real*4 cDiam ! (arcsec) Color aperture diameter
real*4 Diam ! (arcsec) AUTO aperture diameter (1)
integer*4 f1 ! [0/1] Object was originally blended with
* another (SExtractor's "blend") (2)
integer*4 f2 ! [0/1] Object's neighbors may significantly bias AUTO
* photometry (SExtractor's "bias") (2)
real*4 Kr50 ! (arcsec) Halflight radius
real*4 Keps ! Ellipticity
real*4 KPA ! (deg) [-92/95] Position angle measured
* counterclockwise from north
* (SExtractor's THETA_J2000)
real*4 apCor ! Aperture correction to convert AUTO ADU flux
* to total ADU flux (in K band)
real*4 KS_G ! [0,1] SExtractor star/galaxy classifier in
* K band (1 for a point-like source)
integer*4 fmax ! Maximum SExtractor flag for bands UBVRIzJH
integer*4 Kf ! SExtractor flag for K band
*Note (1): The diameter of the AUTO aperture is taken as the geometric mean of
* the major and minor axes.
*Note (2): 1 = blended, 0 = unblended
*Note (3): exposure time normalized to median object
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'ehdfs1.dat' ! MUSYC HDFS1, K-selected catalog with
UBVRIzJHK photometry
integer*4 nr__1
parameter (nr__1=2996) ! Number of records
character*416 ar__1 ! Full-size record
C J2000 position composed of: RAdeg DEdeg
integer*4 Seq_1 ! Sequential number, in the field
real*8 Xpos_1 ! (pix) x barycenter
real*8 ypos_1 ! (pix) y barycenter
real*8 RAdeg_1 ! (deg) Right ascension, in decimal degrees (J2000)
real*8 DEdeg_1 ! (deg) Declination, in decimal degrees (J2000)
integer*4 F_1 ! [4-7] Internal field code:
* 4=HDFS1, 5=HDFS2, 6=1030, 7=1255
real*8 Uflux_1 ! U band ADU flux in color aperture
real*4 e_Uflux_1 ! Uncertainty in Uflux
real*8 Bflux_1 ! B band ADU flux in color aperture
real*4 e_Bflux_1 ! Uncertainty in Bflux
real*8 Vflux_1 ! V band ADU flux in color aperture
real*4 e_Vflux_1 ! Uncertainty in Vflux
real*8 Rflux_1 ! R band ADU flux in color aperture
real*4 e_Rflux_1 ! Uncertainty in Rflux
real*8 Iflux_1 ! I band ADU flux in color aperture
real*4 e_Iflux_1 ! Uncertainty in Iflux
real*8 zflux_1 ! z band ADU flux in color aperture
real*4 e_zflux_1 ! Uncertainty in zflux
real*8 Jflux_1 ! J band ADU flux in color aperture
real*4 e_Jflux_1 ! Uncertainty in Jflux
real*8 Hflux_1 ! H band ADU flux in color aperture
real*4 e_Hflux_1 ! Uncertainty in Hflux
real*8 Kflux_1 ! K band ADU flux in color aperture
real*4 e_Kflux_1 ! Uncertainty in Kflux
real*8 Ktot_1 ! Aperture-corrected AUTO ADU flux in K band
real*4 e_Ktot_1 ! Uncertainty in Ktot
real*4 Uw_1 ! [1] U band exposure time (currently =1) (3)
real*4 Bw_1 ! [1] B band exposure time (currently =1) (3)
real*4 Vw_1 ! [1] V band exposure time (currently =1) (3)
real*4 Rw_1 ! [1] R band exposure time (currently =1) (3)
real*4 Iw_1 ! [1] I band exposure time (currently =1) (3)
real*4 zw_1 ! [1] z band exposure time (currently =1) (3)
real*4 Jw_1 ! J band exposure time (3)
real*4 Hw_1 ! H band exposure time (3)
real*4 Kw_1 ! K band exposure time (3)
real*4 cDiam_1 ! (arcsec) Color aperture diameter
real*4 Diam_1 ! (arcsec) AUTO aperture diameter (1)
integer*4 f1_1 ! [0/1] Object was originally blended with
* another (SExtractor's "blend") (2)
integer*4 f2_1 ! [0/1] Object's neighbors may significantly bias AUTO
* photometry (SExtractor's "bias") (2)
real*4 Kr50_1 ! (arcsec) Halflight radius
real*4 Keps_1 ! Ellipticity
real*4 KPA_1 ! (deg) [-92/95] Position angle measured
* counterclockwise from north
* (SExtractor's THETA_J2000)
real*4 apCor_1 ! Aperture correction to convert AUTO ADU flux
* to total ADU flux (in K band)
real*4 KS_G_1 ! [0,1] SExtractor star/galaxy classifier in
* K band (1 for a point-like source)
integer*4 fmax_1 ! Maximum SExtractor flag for bands UBVRIzJH
integer*4 Kf_1 ! SExtractor flag for K band
*Note (1): The diameter of the AUTO aperture is taken as the geometric mean of
* the major and minor axes.
*Note (2): 1 = blended, 0 = unblended
*Note (3): exposure time normalized to median object
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'ehdfs2.dat' ! MUSYC HDFS2, K-selected catalog with
UBVRIzJHK photometry
integer*4 nr__2
parameter (nr__2=2118) ! Number of records
character*416 ar__2 ! Full-size record
C J2000 position composed of: RAdeg DEdeg
integer*4 Seq_2 ! Sequential number, in the field
real*8 Xpos_2 ! (pix) x barycenter
real*8 ypos_2 ! (pix) y barycenter
real*8 RAdeg_2 ! (deg) Right ascension, in decimal degrees (J2000)
real*8 DEdeg_2 ! (deg) Declination, in decimal degrees (J2000)
integer*4 F_2 ! [4-7] Internal field code:
* 4=HDFS1, 5=HDFS2, 6=1030, 7=1255
real*8 Uflux_2 ! U band ADU flux in color aperture
real*4 e_Uflux_2 ! Uncertainty in Uflux
real*8 Bflux_2 ! B band ADU flux in color aperture
real*4 e_Bflux_2 ! Uncertainty in Bflux
real*8 Vflux_2 ! V band ADU flux in color aperture
real*4 e_Vflux_2 ! Uncertainty in Vflux
real*8 Rflux_2 ! R band ADU flux in color aperture
real*4 e_Rflux_2 ! Uncertainty in Rflux
real*8 Iflux_2 ! I band ADU flux in color aperture
real*4 e_Iflux_2 ! Uncertainty in Iflux
real*8 zflux_2 ! z band ADU flux in color aperture
real*4 e_zflux_2 ! Uncertainty in zflux
real*8 Jflux_2 ! J band ADU flux in color aperture
real*4 e_Jflux_2 ! Uncertainty in Jflux
real*8 Hflux_2 ! H band ADU flux in color aperture
real*4 e_Hflux_2 ! Uncertainty in Hflux
real*8 Kflux_2 ! K band ADU flux in color aperture
real*4 e_Kflux_2 ! Uncertainty in Kflux
real*8 Ktot_2 ! Aperture-corrected AUTO ADU flux in K band
real*4 e_Ktot_2 ! Uncertainty in Ktot
real*4 Uw_2 ! [1] U band exposure time (currently =1) (3)
real*4 Bw_2 ! [1] B band exposure time (currently =1) (3)
real*4 Vw_2 ! [1] V band exposure time (currently =1) (3)
real*4 Rw_2 ! [1] R band exposure time (currently =1) (3)
real*4 Iw_2 ! [1] I band exposure time (currently =1) (3)
real*4 zw_2 ! [1] z band exposure time (currently =1) (3)
real*4 Jw_2 ! J band exposure time (3)
real*4 Hw_2 ! H band exposure time (3)
real*4 Kw_2 ! K band exposure time (3)
real*4 cDiam_2 ! (arcsec) Color aperture diameter
real*4 Diam_2 ! (arcsec) AUTO aperture diameter (1)
integer*4 f1_2 ! [0/1] Object was originally blended with
* another (SExtractor's "blend") (2)
integer*4 f2_2 ! [0/1] Object's neighbors may significantly bias AUTO
* photometry (SExtractor's "bias") (2)
real*4 Kr50_2 ! (arcsec) Halflight radius
real*4 Keps_2 ! Ellipticity
real*4 KPA_2 ! (deg) [-92/95] Position angle measured
* counterclockwise from north
* (SExtractor's THETA_J2000)
real*4 apCor_2 ! Aperture correction to convert AUTO ADU flux
* to total ADU flux (in K band)
real*4 KS_G_2 ! [0,1] SExtractor star/galaxy classifier in
* K band (1 for a point-like source)
integer*4 fmax_2 ! Maximum SExtractor flag for bands UBVRIzJH
integer*4 Kf_2 ! SExtractor flag for K band
*Note (1): The diameter of the AUTO aperture is taken as the geometric mean of
* the major and minor axes.
*Note (2): 1 = blended, 0 = unblended
*Note (3): exposure time normalized to median object
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'sdss1030.dat' ! MUSYC 1030, K-selected catalog with
UBVRIzJHK photometry
integer*4 nr__3
parameter (nr__3=3273) ! Number of records
character*416 ar__3 ! Full-size record
C J2000 position composed of: RAdeg DEdeg
integer*4 Seq_3 ! Sequential number, in the field
real*8 Xpos_3 ! (pix) x barycenter
real*8 ypos_3 ! (pix) y barycenter
real*8 RAdeg_3 ! (deg) Right ascension, in decimal degrees (J2000)
real*8 DEdeg_3 ! (deg) Declination, in decimal degrees (J2000)
integer*4 F_3 ! [4-7] Internal field code:
* 4=HDFS1, 5=HDFS2, 6=1030, 7=1255
real*8 Uflux_3 ! U band ADU flux in color aperture
real*4 e_Uflux_3 ! Uncertainty in Uflux
real*8 Bflux_3 ! B band ADU flux in color aperture
real*4 e_Bflux_3 ! Uncertainty in Bflux
real*8 Vflux_3 ! V band ADU flux in color aperture
real*4 e_Vflux_3 ! Uncertainty in Vflux
real*8 Rflux_3 ! R band ADU flux in color aperture
real*4 e_Rflux_3 ! Uncertainty in Rflux
real*8 Iflux_3 ! I band ADU flux in color aperture
real*4 e_Iflux_3 ! Uncertainty in Iflux
real*8 zflux_3 ! z band ADU flux in color aperture
real*4 e_zflux_3 ! Uncertainty in zflux
real*8 Jflux_3 ! J band ADU flux in color aperture
real*4 e_Jflux_3 ! Uncertainty in Jflux
real*8 Hflux_3 ! H band ADU flux in color aperture
real*4 e_Hflux_3 ! Uncertainty in Hflux
real*8 Kflux_3 ! K band ADU flux in color aperture
real*4 e_Kflux_3 ! Uncertainty in Kflux
real*8 Ktot_3 ! Aperture-corrected AUTO ADU flux in K band
real*4 e_Ktot_3 ! Uncertainty in Ktot
real*4 Uw_3 ! [1] U band exposure time (currently =1) (3)
real*4 Bw_3 ! [1] B band exposure time (currently =1) (3)
real*4 Vw_3 ! [1] V band exposure time (currently =1) (3)
real*4 Rw_3 ! [1] R band exposure time (currently =1) (3)
real*4 Iw_3 ! [1] I band exposure time (currently =1) (3)
real*4 zw_3 ! [1] z band exposure time (currently =1) (3)
real*4 Jw_3 ! J band exposure time (3)
real*4 Hw_3 ! H band exposure time (3)
real*4 Kw_3 ! K band exposure time (3)
real*4 cDiam_3 ! (arcsec) Color aperture diameter
real*4 Diam_3 ! (arcsec) AUTO aperture diameter (1)
integer*4 f1_3 ! [0/1] Object was originally blended with
* another (SExtractor's "blend") (2)
integer*4 f2_3 ! [0/1] Object's neighbors may significantly bias AUTO
* photometry (SExtractor's "bias") (2)
real*4 Kr50_3 ! (arcsec) Halflight radius
real*4 Keps_3 ! Ellipticity
real*4 KPA_3 ! (deg) [-92/95] Position angle measured
* counterclockwise from north
* (SExtractor's THETA_J2000)
real*4 apCor_3 ! Aperture correction to convert AUTO ADU flux
* to total ADU flux (in K band)
real*4 KS_G_3 ! [0,1] SExtractor star/galaxy classifier in
* K band (1 for a point-like source)
integer*4 fmax_3 ! Maximum SExtractor flag for bands UBVRIzJH
integer*4 Kf_3 ! SExtractor flag for K band
*Note (1): The diameter of the AUTO aperture is taken as the geometric mean of
* the major and minor axes.
*Note (2): 1 = blended, 0 = unblended
*Note (3): exposure time normalized to median object
C=============================================================================
C Loading file 'cw1255.dat' ! MUSYC 1255, K-selected catalog with
* UBVRIzJHK photometry
C Format for file interpretation
1 format(
+ I5,2X,F7.2,2X,F7.2,2X,F10.6,2X,F10.6,6X,I1,1X,F8.2,5X,F4.2,1X,
+ F8.2,5X,F4.2,1X,F8.2,5X,F4.2,1X,F8.2,5X,F4.2,1X,F8.2,5X,F4.2,
+ 1X,F8.2,5X,F4.2,1X,F8.2,5X,F4.2,1X,F8.2,5X,F4.2,1X,F8.2,5X,
+ F4.2,1X,F8.2,4X,F5.2,5X,F4.2,5X,F4.2,5X,F4.2,5X,F4.2,5X,F4.2,
+ 5X,F4.2,5X,F4.2,5X,F4.2,5X,F4.2,5X,F4.2,4X,F5.2,6X,I1,6X,I1,
+ 5X,F4.2,5X,F4.2,3X,F6.2,4X,F5.3,5X,F4.2,10X,I2,10X,I2)
C Effective file loading
open(unit=1,status='old',file=
+'cw1255.dat')
write(6,*) '....Loading file: cw1255.dat'
do i__=1,2444
read(1,'(A416)')ar__
read(ar__,1)
+ Seq,Xpos,ypos,RAdeg,DEdeg,F,Uflux,e_Uflux,Bflux,e_Bflux,Vflux,
+ e_Vflux,Rflux,e_Rflux,Iflux,e_Iflux,zflux,e_zflux,Jflux,
+ e_Jflux,Hflux,e_Hflux,Kflux,e_Kflux,Ktot,e_Ktot,Uw,Bw,Vw,Rw,
+ Iw,zw,Jw,Hw,Kw,cDiam,Diam,f1,f2,Kr50,Keps,KPA,apCor,KS_G,fmax,
+ Kf
c ..............Just test output...........
write(6,1)
+ Seq,Xpos,ypos,RAdeg,DEdeg,F,Uflux,e_Uflux,Bflux,e_Bflux,Vflux,
+ e_Vflux,Rflux,e_Rflux,Iflux,e_Iflux,zflux,e_zflux,Jflux,
+ e_Jflux,Hflux,e_Hflux,Kflux,e_Kflux,Ktot,e_Ktot,Uw,Bw,Vw,Rw,
+ Iw,zw,Jw,Hw,Kw,cDiam,Diam,f1,f2,Kr50,Keps,KPA,apCor,KS_G,fmax,
+ Kf
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'ehdfs1.dat' ! MUSYC HDFS1, K-selected catalog with
* UBVRIzJHK photometry
C Format for file interpretation
2 format(
+ I5,2X,F7.2,2X,F7.2,2X,F10.6,2X,F10.6,6X,I1,1X,F8.2,5X,F4.2,1X,
+ F8.2,5X,F4.2,1X,F8.2,5X,F4.2,1X,F8.2,5X,F4.2,1X,F8.2,5X,F4.2,
+ 1X,F8.2,5X,F4.2,1X,F8.2,5X,F4.2,1X,F8.2,5X,F4.2,1X,F8.2,5X,
+ F4.2,1X,F8.2,4X,F5.2,5X,F4.2,5X,F4.2,5X,F4.2,5X,F4.2,5X,F4.2,
+ 5X,F4.2,5X,F4.2,5X,F4.2,5X,F4.2,5X,F4.2,4X,F5.2,6X,I1,6X,I1,
+ 5X,F4.2,5X,F4.2,3X,F6.2,4X,F5.3,5X,F4.2,10X,I2,10X,I2)
C Effective file loading
open(unit=1,status='old',file=
+'ehdfs1.dat')
write(6,*) '....Loading file: ehdfs1.dat'
do i__=1,2996
read(1,'(A416)')ar__1
read(ar__1,2)
+ Seq_1,Xpos_1,ypos_1,RAdeg_1,DEdeg_1,F_1,Uflux_1,e_Uflux_1,
+ Bflux_1,e_Bflux_1,Vflux_1,e_Vflux_1,Rflux_1,e_Rflux_1,Iflux_1,
+ e_Iflux_1,zflux_1,e_zflux_1,Jflux_1,e_Jflux_1,Hflux_1,
+ e_Hflux_1,Kflux_1,e_Kflux_1,Ktot_1,e_Ktot_1,Uw_1,Bw_1,Vw_1,
+ Rw_1,Iw_1,zw_1,Jw_1,Hw_1,Kw_1,cDiam_1,Diam_1,f1_1,f2_1,Kr50_1,
+ Keps_1,KPA_1,apCor_1,KS_G_1,fmax_1,Kf_1
c ..............Just test output...........
write(6,2)
+ Seq_1,Xpos_1,ypos_1,RAdeg_1,DEdeg_1,F_1,Uflux_1,e_Uflux_1,
+ Bflux_1,e_Bflux_1,Vflux_1,e_Vflux_1,Rflux_1,e_Rflux_1,Iflux_1,
+ e_Iflux_1,zflux_1,e_zflux_1,Jflux_1,e_Jflux_1,Hflux_1,
+ e_Hflux_1,Kflux_1,e_Kflux_1,Ktot_1,e_Ktot_1,Uw_1,Bw_1,Vw_1,
+ Rw_1,Iw_1,zw_1,Jw_1,Hw_1,Kw_1,cDiam_1,Diam_1,f1_1,f2_1,Kr50_1,
+ Keps_1,KPA_1,apCor_1,KS_G_1,fmax_1,Kf_1
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'ehdfs2.dat' ! MUSYC HDFS2, K-selected catalog with
* UBVRIzJHK photometry
C Format for file interpretation
3 format(
+ I5,2X,F7.2,2X,F7.2,2X,F10.6,2X,F10.6,6X,I1,1X,F8.2,5X,F4.2,1X,
+ F8.2,5X,F4.2,1X,F8.2,5X,F4.2,1X,F8.2,5X,F4.2,1X,F8.2,5X,F4.2,
+ 1X,F8.2,5X,F4.2,1X,F8.2,5X,F4.2,1X,F8.2,5X,F4.2,1X,F8.2,5X,
+ F4.2,1X,F8.2,4X,F5.2,5X,F4.2,5X,F4.2,5X,F4.2,5X,F4.2,5X,F4.2,
+ 5X,F4.2,5X,F4.2,5X,F4.2,5X,F4.2,5X,F4.2,4X,F5.2,6X,I1,6X,I1,
+ 5X,F4.2,5X,F4.2,3X,F6.2,4X,F5.3,5X,F4.2,10X,I2,10X,I2)
C Effective file loading
open(unit=1,status='old',file=
+'ehdfs2.dat')
write(6,*) '....Loading file: ehdfs2.dat'
do i__=1,2118
read(1,'(A416)')ar__2
read(ar__2,3)
+ Seq_2,Xpos_2,ypos_2,RAdeg_2,DEdeg_2,F_2,Uflux_2,e_Uflux_2,
+ Bflux_2,e_Bflux_2,Vflux_2,e_Vflux_2,Rflux_2,e_Rflux_2,Iflux_2,
+ e_Iflux_2,zflux_2,e_zflux_2,Jflux_2,e_Jflux_2,Hflux_2,
+ e_Hflux_2,Kflux_2,e_Kflux_2,Ktot_2,e_Ktot_2,Uw_2,Bw_2,Vw_2,
+ Rw_2,Iw_2,zw_2,Jw_2,Hw_2,Kw_2,cDiam_2,Diam_2,f1_2,f2_2,Kr50_2,
+ Keps_2,KPA_2,apCor_2,KS_G_2,fmax_2,Kf_2
c ..............Just test output...........
write(6,3)
+ Seq_2,Xpos_2,ypos_2,RAdeg_2,DEdeg_2,F_2,Uflux_2,e_Uflux_2,
+ Bflux_2,e_Bflux_2,Vflux_2,e_Vflux_2,Rflux_2,e_Rflux_2,Iflux_2,
+ e_Iflux_2,zflux_2,e_zflux_2,Jflux_2,e_Jflux_2,Hflux_2,
+ e_Hflux_2,Kflux_2,e_Kflux_2,Ktot_2,e_Ktot_2,Uw_2,Bw_2,Vw_2,
+ Rw_2,Iw_2,zw_2,Jw_2,Hw_2,Kw_2,cDiam_2,Diam_2,f1_2,f2_2,Kr50_2,
+ Keps_2,KPA_2,apCor_2,KS_G_2,fmax_2,Kf_2
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'sdss1030.dat' ! MUSYC 1030, K-selected catalog with
* UBVRIzJHK photometry
C Format for file interpretation
4 format(
+ I5,2X,F7.2,2X,F7.2,2X,F10.6,2X,F10.6,6X,I1,1X,F8.2,5X,F4.2,1X,
+ F8.2,5X,F4.2,1X,F8.2,5X,F4.2,1X,F8.2,5X,F4.2,1X,F8.2,5X,F4.2,
+ 1X,F8.2,5X,F4.2,1X,F8.2,5X,F4.2,1X,F8.2,5X,F4.2,1X,F8.2,5X,
+ F4.2,1X,F8.2,4X,F5.2,5X,F4.2,5X,F4.2,5X,F4.2,5X,F4.2,5X,F4.2,
+ 5X,F4.2,5X,F4.2,5X,F4.2,5X,F4.2,5X,F4.2,4X,F5.2,6X,I1,6X,I1,
+ 5X,F4.2,5X,F4.2,3X,F6.2,4X,F5.3,5X,F4.2,10X,I2,10X,I2)
C Effective file loading
open(unit=1,status='old',file=
+'sdss1030.dat')
write(6,*) '....Loading file: sdss1030.dat'
do i__=1,3273
read(1,'(A416)')ar__3
read(ar__3,4)
+ Seq_3,Xpos_3,ypos_3,RAdeg_3,DEdeg_3,F_3,Uflux_3,e_Uflux_3,
+ Bflux_3,e_Bflux_3,Vflux_3,e_Vflux_3,Rflux_3,e_Rflux_3,Iflux_3,
+ e_Iflux_3,zflux_3,e_zflux_3,Jflux_3,e_Jflux_3,Hflux_3,
+ e_Hflux_3,Kflux_3,e_Kflux_3,Ktot_3,e_Ktot_3,Uw_3,Bw_3,Vw_3,
+ Rw_3,Iw_3,zw_3,Jw_3,Hw_3,Kw_3,cDiam_3,Diam_3,f1_3,f2_3,Kr50_3,
+ Keps_3,KPA_3,apCor_3,KS_G_3,fmax_3,Kf_3
c ..............Just test output...........
write(6,4)
+ Seq_3,Xpos_3,ypos_3,RAdeg_3,DEdeg_3,F_3,Uflux_3,e_Uflux_3,
+ Bflux_3,e_Bflux_3,Vflux_3,e_Vflux_3,Rflux_3,e_Rflux_3,Iflux_3,
+ e_Iflux_3,zflux_3,e_zflux_3,Jflux_3,e_Jflux_3,Hflux_3,
+ e_Hflux_3,Kflux_3,e_Kflux_3,Ktot_3,e_Ktot_3,Uw_3,Bw_3,Vw_3,
+ Rw_3,Iw_3,zw_3,Jw_3,Hw_3,Kw_3,cDiam_3,Diam_3,f1_3,f2_3,Kr50_3,
+ Keps_3,KPA_3,apCor_3,KS_G_3,fmax_3,Kf_3
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end