Conversion of standardized ReadMe file for
file /./ftp/cats/J/ApJ/642/L13 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-20
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/642/L13 ECDFS MUSYC galaxies UBVRIzNB5000 photometry (Gawiser+, 2006)
*================================================================================
*The physical nature of Ly{alpha}-emitting galaxies at z=3.1.
* Gawiser E., van Dokkum P.G., Gronwall C., Ciardullo R., Blanc G.A.,
* Castander F.J., Feldmeier J., Francke H., Franx M., Haberzettl L.,
* Herrera D., Hickey T., Infante L., Lira P., Maza J., Quadri R.,
* Richardson A., Schawinski K., Schirmer M., Taylor E.N., Treister E.,
* Urry C.M., Virani S.N.
* <Astrophys. J., 642, L13-L16 (2006)>
* =2006ApJ...642L..13G
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'nbdetzo3.dat' ! MUSYC ECDF-S, NB5000(=o3)-detected catalog with
UBVRIzo3 photometry, V1, 2005/15/10
integer*4 nr__
parameter (nr__=28297) ! Number of records
character*715 ar__ ! Full-size record
C J2000 position composed of: RAhour DEdeg
integer*4 Seq (nr__) ! [0/884409] Sequential number (1)
real*8 RAhour (nr__) ! (h) Right ascension in decimal hours (J2000),
* BVR detection image
real*8 DEdeg (nr__) ! (deg) Declination in decimal degrees (J2000),
* BVR detection image
real*8 X (nr__) ! (pix) X barycenter (BVR detection image)
real*8 Y (nr__) ! (pix) Y barycenter (BVR detection image)
real*8 S_G (nr__) ! [0/1] SExtractor star/galaxy classifier
* (0=Galaxy, 1=Star; BVR detection image)
real*8 Rhl (nr__) ! (arcsec) Halflight radius
real*8 A (nr__) ! (arcsec) Flux distribution rms along major axis
real*8 B (nr__) ! (arcsec) Flux distribution rms along minor axis
real*8 theta (nr__) ! (deg) Position angle counterclockwise from x-axis
real*8 Fopt (nr__) ! (uJy) BVR AUTO Sextractor flux
real*8 e_Fopt (nr__) ! (uJy) Uncertainty in flux
real*8 FU (nr__) ! (uJy) U AUTO Sextractor flux
real*8 e_FU (nr__) ! (uJy) Uncertainty in FU
real*8 FB (nr__) ! (uJy) B AUTO Sextractor flux
real*8 e_FB (nr__) ! (uJy) Uncertainty in FB
real*8 FV (nr__) ! (uJy) V AUTO Sextractor flux
real*8 e_FV (nr__) ! (uJy) Uncertainty in FV
real*8 FR (nr__) ! (uJy) R AUTO Sextractor flux
real*8 e_FR (nr__) ! (uJy) Uncertainty in FR
real*8 FI (nr__) ! (uJy) I AUTO Sextractor flux
real*8 e_FI (nr__) ! (uJy) Uncertainty in FI
real*8 Fz (nr__) ! (uJy) z AUTO Sextractor flux
real*8 e_Fz (nr__) ! (uJy) Uncertainty in Fz
real*8 Fo3 (nr__) ! (uJy) NB5000 (o3) AUTO Sextractor flux (3)
real*8 e_Fo3 (nr__) ! (uJy) Uncertainty in Fo3
real*8 Foptap (nr__) ! (uJy) BVR corrected aperture (APCORR) Sextractor flux
real*4 e_Foptap (nr__) ! (uJy) Uncertainty in fluxap
real*8 FUap (nr__) ! (uJy) U corrected aperture (APCORR) Sextractor flux
real*4 e_FUap (nr__) ! (uJy) Uncertainty in FUap
real*8 FBap (nr__) ! (uJy) B corrected aperture (APCORR) Sextractor flux
real*4 e_FBap (nr__) ! (uJy) Uncertainty in FBap
real*8 FVap (nr__) ! (uJy) V corrected aperture (APCORR) Sextractor flux
real*4 e_FVap (nr__) ! (uJy) Uncertainty in FVap
real*8 FRap (nr__) ! (uJy) R corrected aperture (APCORR) Sextractor flux
real*4 e_FRap (nr__) ! (uJy) Uncertainty in FRap
real*4 FIap (nr__) ! (uJy) I corrected aperture (APCORR) Sextractor flux
real*4 e_FIap (nr__) ! (uJy) Uncertainty in FIap
real*4 Fzap (nr__) ! (uJy) z corrected aperture (APCORR) Sextractor flux
real*4 e_Fzap (nr__) ! (uJy) Uncertainty in Fzap
real*8 Fo3ap (nr__) ! (uJy) NB5000 (o3) corrected aperture (APCORR) (3)
* Sextractor flux
real*4 e_Fo3ap (nr__) ! (uJy) Uncertainty in Fo3ap
integer*4 f_opt (nr__) ! SExtractor flags for BVR (2)
integer*4 f_U (nr__) ! SExtractor flags for U (2)
integer*4 f_B (nr__) ! SExtractor flags for B (2)
integer*4 f_V (nr__) ! SExtractor flags for V (2)
integer*4 f_R (nr__) ! SExtractor flags for R (2)
integer*4 f_I (nr__) ! SExtractor flags for I (2)
integer*4 f_Z (nr__) ! SExtractor flags for z (2)
integer*4 f_o3 (nr__) ! SExtractor flags for o3 (2)
character*19 MUSYC (nr__) ! Object MUSYC name (JHHMMSS.ss+DDMMSS.s)
*Note (1): Sources identified as
* <[GVG2006] NB NNNNN> for nbdetzo3.dat catalog,
* <[GVG2006] BRV NNNNN> for ubvrizo3.dat catalog.
*Note (2): SExtractor flag FLAGS contain, coded in additive numbers, all the
* extraction flags as a sum of powers of 2:
* 1 = The object has neighbours, bright and close enough to
* significantly bias the MAG AUTO photometry or bad pixels
* (more than 10% of the integrated area affected)
* 2 = The object was originally blended with another one
* 4 = At least one pixel of the object is saturated (or very close to)
* 8 = The object is truncated (too close to an image boundary)
* 16 = Object's aperture data are incomplete or corrupted
* 32 = Object's isophotal data are incomplete or corrupted
* 64 = A memory overflow occurred during deblending
* 128 = A memory overflow occurred during extraction
*Note (3): NB5000 is a narrow-band filter centered at {lambda}=500nm
* with a FWHM=5nm.
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'ubvrizo3.dat' ! MUSYC ECDF-S, BVR-detected catalog with
UBVRIzo3 photometry, V1, 2005/15/10
integer*4 nr__1
parameter (nr__1=84410) ! Number of records
character*715 ar__1 ! Full-size record
C J2000 position composed of: RAhour DEdeg
integer*4 Seq_1 (nr__1) ! [0/884409] Sequential number (1)
real*8 RAhour_1 (nr__1) ! (h) Right ascension in decimal hours (J2000),
* BVR detection image
real*8 DEdeg_1 (nr__1) ! (deg) Declination in decimal degrees (J2000),
* BVR detection image
real*8 X_1 (nr__1) ! (pix) X barycenter (BVR detection image)
real*8 Y_1 (nr__1) ! (pix) Y barycenter (BVR detection image)
real*8 S_G_1 (nr__1) ! [0/1] SExtractor star/galaxy classifier
* (0=Galaxy, 1=Star; BVR detection image)
real*8 Rhl_1 (nr__1) ! (arcsec) Halflight radius
real*8 A_1 (nr__1) ! (arcsec) Flux distribution rms along major axis
real*8 B_1 (nr__1) ! (arcsec) Flux distribution rms along minor axis
real*8 theta_1 (nr__1) ! (deg) Position angle counterclockwise from x-axis
real*8 Fopt_1 (nr__1) ! (uJy) BVR AUTO Sextractor flux
real*8 e_Fopt_1 (nr__1) ! (uJy) Uncertainty in flux
real*8 FU_1 (nr__1) ! (uJy) U AUTO Sextractor flux
real*8 e_FU_1 (nr__1) ! (uJy) Uncertainty in FU
real*8 FB_1 (nr__1) ! (uJy) B AUTO Sextractor flux
real*8 e_FB_1 (nr__1) ! (uJy) Uncertainty in FB
real*8 FV_1 (nr__1) ! (uJy) V AUTO Sextractor flux
real*8 e_FV_1 (nr__1) ! (uJy) Uncertainty in FV
real*8 FR_1 (nr__1) ! (uJy) R AUTO Sextractor flux
real*8 e_FR_1 (nr__1) ! (uJy) Uncertainty in FR
real*8 FI_1 (nr__1) ! (uJy) I AUTO Sextractor flux
real*8 e_FI_1 (nr__1) ! (uJy) Uncertainty in FI
real*8 Fz_1 (nr__1) ! (uJy) z AUTO Sextractor flux
real*8 e_Fz_1 (nr__1) ! (uJy) Uncertainty in Fz
real*8 Fo3_1 (nr__1) ! (uJy) NB5000 (o3) AUTO Sextractor flux (3)
real*8 e_Fo3_1 (nr__1) ! (uJy) Uncertainty in Fo3
real*8 Foptap_1 (nr__1) ! (uJy) BVR corrected aperture (APCORR) Sextractor flux
real*4 e_Foptap_1 (nr__1) ! (uJy) Uncertainty in fluxap
real*8 FUap_1 (nr__1) ! (uJy) U corrected aperture (APCORR) Sextractor flux
real*4 e_FUap_1 (nr__1) ! (uJy) Uncertainty in FUap
real*8 FBap_1 (nr__1) ! (uJy) B corrected aperture (APCORR) Sextractor flux
real*4 e_FBap_1 (nr__1) ! (uJy) Uncertainty in FBap
real*8 FVap_1 (nr__1) ! (uJy) V corrected aperture (APCORR) Sextractor flux
real*4 e_FVap_1 (nr__1) ! (uJy) Uncertainty in FVap
real*8 FRap_1 (nr__1) ! (uJy) R corrected aperture (APCORR) Sextractor flux
real*4 e_FRap_1 (nr__1) ! (uJy) Uncertainty in FRap
real*4 FIap_1 (nr__1) ! (uJy) I corrected aperture (APCORR) Sextractor flux
real*4 e_FIap_1 (nr__1) ! (uJy) Uncertainty in FIap
real*4 Fzap_1 (nr__1) ! (uJy) z corrected aperture (APCORR) Sextractor flux
real*4 e_Fzap_1 (nr__1) ! (uJy) Uncertainty in Fzap
real*8 Fo3ap_1 (nr__1) ! (uJy) NB5000 (o3) corrected aperture (APCORR) (3)
* Sextractor flux
real*4 e_Fo3ap_1 (nr__1) ! (uJy) Uncertainty in Fo3ap
integer*4 f_opt_1 (nr__1) ! SExtractor flags for BVR (2)
integer*4 f_U_1 (nr__1) ! SExtractor flags for U (2)
integer*4 f_B_1 (nr__1) ! SExtractor flags for B (2)
integer*4 f_V_1 (nr__1) ! SExtractor flags for V (2)
integer*4 f_R_1 (nr__1) ! SExtractor flags for R (2)
integer*4 f_I_1 (nr__1) ! SExtractor flags for I (2)
integer*4 f_Z_1 (nr__1) ! SExtractor flags for z (2)
integer*4 f_o3_1 (nr__1) ! SExtractor flags for o3 (2)
character*19 MUSYC_1 (nr__1) ! Object MUSYC name (JHHMMSS.ss+DDMMSS.s)
*Note (1): Sources identified as
* <[GVG2006] NB NNNNN> for nbdetzo3.dat catalog,
* <[GVG2006] BRV NNNNN> for ubvrizo3.dat catalog.
*Note (2): SExtractor flag FLAGS contain, coded in additive numbers, all the
* extraction flags as a sum of powers of 2:
* 1 = The object has neighbours, bright and close enough to
* significantly bias the MAG AUTO photometry or bad pixels
* (more than 10% of the integrated area affected)
* 2 = The object was originally blended with another one
* 4 = At least one pixel of the object is saturated (or very close to)
* 8 = The object is truncated (too close to an image boundary)
* 16 = Object's aperture data are incomplete or corrupted
* 32 = Object's isophotal data are incomplete or corrupted
* 64 = A memory overflow occurred during deblending
* 128 = A memory overflow occurred during extraction
*Note (3): NB5000 is a narrow-band filter centered at {lambda}=500nm
* with a FWHM=5nm.
C=============================================================================
C Loading file 'nbdetzo3.dat' ! MUSYC ECDF-S, NB5000(=o3)-detected catalog with
* UBVRIzo3 photometry, V1, 2005/15/10
C Format for file interpretation
1 format(
+ I5,1X,F9.7,1X,F10.6,1X,F10.5,1X,F10.5,1X,F8.6,1X,F12.7,1X,
+ F12.7,1X,F12.7,1X,F11.7,1X,F15.8,1X,F12.8,1X,F16.9,1X,F15.10,
+ 1X,F16.9,1X,F15.10,1X,F16.9,1X,F15.10,1X,F16.9,1X,F15.10,1X,
+ F16.9,1X,F15.10,1X,F16.9,1X,F15.10,1X,F16.9,1X,F15.10,1X,
+ F16.9,1X,E18.9,1X,F16.9,1X,E18.9,1X,F16.9,1X,E18.9,1X,F16.9,
+ 1X,E20.9,1X,F16.9,1X,E20.9,1X,E16.9,1X,E22.9,1X,E16.9,1X,
+ E23.9,1X,F16.9,1X,E20.9,1X,I2,1X,I2,1X,I2,1X,I2,1X,I2,1X,I2,
+ 1X,I2,1X,I2,1X,A19)
C Effective file loading
open(unit=1,status='old',file=
+'nbdetzo3.dat')
write(6,*) '....Loading file: nbdetzo3.dat'
do i__=1,28297
read(1,'(A715)')ar__
read(ar__,1)
+ Seq(i__),RAhour(i__),DEdeg(i__),X(i__),Y(i__),S_G(i__),
+ Rhl(i__),A(i__),B(i__),theta(i__),Fopt(i__),e_Fopt(i__),
+ FU(i__),e_FU(i__),FB(i__),e_FB(i__),FV(i__),e_FV(i__),FR(i__),
+ e_FR(i__),FI(i__),e_FI(i__),Fz(i__),e_Fz(i__),Fo3(i__),
+ e_Fo3(i__),Foptap(i__),e_Foptap(i__),FUap(i__),e_FUap(i__),
+ FBap(i__),e_FBap(i__),FVap(i__),e_FVap(i__),FRap(i__),
+ e_FRap(i__),FIap(i__),e_FIap(i__),Fzap(i__),e_Fzap(i__),
+ Fo3ap(i__),e_Fo3ap(i__),f_opt(i__),f_U(i__),f_B(i__),f_V(i__),
+ f_R(i__),f_I(i__),f_Z(i__),f_o3(i__),MUSYC(i__)
c ..............Just test output...........
write(6,1)
+ Seq(i__),RAhour(i__),DEdeg(i__),X(i__),Y(i__),S_G(i__),
+ Rhl(i__),A(i__),B(i__),theta(i__),Fopt(i__),e_Fopt(i__),
+ FU(i__),e_FU(i__),FB(i__),e_FB(i__),FV(i__),e_FV(i__),FR(i__),
+ e_FR(i__),FI(i__),e_FI(i__),Fz(i__),e_Fz(i__),Fo3(i__),
+ e_Fo3(i__),Foptap(i__),e_Foptap(i__),FUap(i__),e_FUap(i__),
+ FBap(i__),e_FBap(i__),FVap(i__),e_FVap(i__),FRap(i__),
+ e_FRap(i__),FIap(i__),e_FIap(i__),Fzap(i__),e_Fzap(i__),
+ Fo3ap(i__),e_Fo3ap(i__),f_opt(i__),f_U(i__),f_B(i__),f_V(i__),
+ f_R(i__),f_I(i__),f_Z(i__),f_o3(i__),MUSYC(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'ubvrizo3.dat' ! MUSYC ECDF-S, BVR-detected catalog with
* UBVRIzo3 photometry, V1, 2005/15/10
C Format for file interpretation
2 format(
+ I5,1X,F9.7,1X,F10.6,1X,F10.5,1X,F10.5,1X,F8.6,1X,F12.7,1X,
+ F12.7,1X,F12.7,1X,F11.7,1X,F15.8,1X,F12.8,1X,F16.9,1X,F15.10,
+ 1X,F16.9,1X,F15.10,1X,F16.9,1X,F15.10,1X,F16.9,1X,F15.10,1X,
+ F16.9,1X,F15.10,1X,F16.9,1X,F15.10,1X,F16.9,1X,F15.10,1X,
+ F16.9,1X,E18.9,1X,F16.9,1X,E18.9,1X,F16.9,1X,E18.9,1X,F16.9,
+ 1X,E20.9,1X,F16.9,1X,E20.9,1X,E16.9,1X,E22.9,1X,E16.9,1X,
+ E23.9,1X,F16.9,1X,E20.9,1X,I2,1X,I2,1X,I2,1X,I2,1X,I2,1X,I2,
+ 1X,I2,1X,I2,1X,A19)
C Effective file loading
open(unit=1,status='old',file=
+'ubvrizo3.dat')
write(6,*) '....Loading file: ubvrizo3.dat'
do i__=1,84410
read(1,'(A715)')ar__1
read(ar__1,2)
+ Seq_1(i__),RAhour_1(i__),DEdeg_1(i__),X_1(i__),Y_1(i__),
+ S_G_1(i__),Rhl_1(i__),A_1(i__),B_1(i__),theta_1(i__),
+ Fopt_1(i__),e_Fopt_1(i__),FU_1(i__),e_FU_1(i__),FB_1(i__),
+ e_FB_1(i__),FV_1(i__),e_FV_1(i__),FR_1(i__),e_FR_1(i__),
+ FI_1(i__),e_FI_1(i__),Fz_1(i__),e_Fz_1(i__),Fo3_1(i__),
+ e_Fo3_1(i__),Foptap_1(i__),e_Foptap_1(i__),FUap_1(i__),
+ e_FUap_1(i__),FBap_1(i__),e_FBap_1(i__),FVap_1(i__),
+ e_FVap_1(i__),FRap_1(i__),e_FRap_1(i__),FIap_1(i__),
+ e_FIap_1(i__),Fzap_1(i__),e_Fzap_1(i__),Fo3ap_1(i__),
+ e_Fo3ap_1(i__),f_opt_1(i__),f_U_1(i__),f_B_1(i__),f_V_1(i__),
+ f_R_1(i__),f_I_1(i__),f_Z_1(i__),f_o3_1(i__),MUSYC_1(i__)
c ..............Just test output...........
write(6,2)
+ Seq_1(i__),RAhour_1(i__),DEdeg_1(i__),X_1(i__),Y_1(i__),
+ S_G_1(i__),Rhl_1(i__),A_1(i__),B_1(i__),theta_1(i__),
+ Fopt_1(i__),e_Fopt_1(i__),FU_1(i__),e_FU_1(i__),FB_1(i__),
+ e_FB_1(i__),FV_1(i__),e_FV_1(i__),FR_1(i__),e_FR_1(i__),
+ FI_1(i__),e_FI_1(i__),Fz_1(i__),e_Fz_1(i__),Fo3_1(i__),
+ e_Fo3_1(i__),Foptap_1(i__),e_Foptap_1(i__),FUap_1(i__),
+ e_FUap_1(i__),FBap_1(i__),e_FBap_1(i__),FVap_1(i__),
+ e_FVap_1(i__),FRap_1(i__),e_FRap_1(i__),FIap_1(i__),
+ e_FIap_1(i__),Fzap_1(i__),e_Fzap_1(i__),Fo3ap_1(i__),
+ e_Fo3ap_1(i__),f_opt_1(i__),f_U_1(i__),f_B_1(i__),f_V_1(i__),
+ f_R_1(i__),f_I_1(i__),f_Z_1(i__),f_o3_1(i__),MUSYC_1(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end