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