Conversion of standardized ReadMe file for
file /./ftp/cats/J/ApJS/270/12 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 2026-Oct-12
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/270/12 The UNCOVER SPS cat. for robust sources up to z~15 (Wang+, 2024)
*================================================================================
*The UNCOVER survey: a first-look HST+JWST catalog of galaxy redshifts and
*stellar population properties spanning 0.2<~z<~15.
* Wang B., Leja J., Labbe I., Bezanson R., Whitaker K.E., Brammer G.,
* Furtak L.J., Weaver J.R., Price S.H., Zitrin A., Atek H., Coe D.,
* Cutler S.E., Dayal P., van Dokkum P., Feldmann R., Marchesini D.,
* Franx M., Forster Schreiber N., Fujimoto S., Geha M., Glazebrook K.,
* de Graaff A., Greene J.E., Juneau S., Kassin S., Kriek M., Khullar G.,
* Maseda M., Mowla L.A., Muzzin A., Nanayakkara T., Nelson E.J., Oesch P.A.,
* Pacifici C., Pan R., Papovich C., Setton D.J., Shapley A.E., Smit R.,
* Stefanon M., Suess K.A., Taylor E.N., Williams C.C.
* <Astrophys. J. Suppl. Ser., 270, 12 (2024)>
* =2024ApJS..270...12W
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'spscat.dat' ! Stellar population catalog based on the DR2 SUPER
photometric catalog
integer*4 nr__
parameter (nr__=61648) ! Number of records
character*806 ar__ ! Full-size record
C J2000 position composed of: RAdeg DEdeg
integer*4 Seq ! [1/61648] Running sequence number as in
* UNCOVER DR2 phot. cat.
* (Weaver+ 2024, J/ApJS/270/7) (id)
real*8 RAdeg ! (deg) [3.4/3.7] Right ascension (J2000) (ra)
real*8 DEdeg ! (deg) [-30.5/-30.2] Declination (J2000) (dec)
integer*4 UsePhot ! 1 if photometry is reliable (use_phot)
real*8 zsp ! [2e-6/6.4]? Spectroscopic redshift (z_spec)
real*8 z16 ! [0.0017/18.8] Redshift posterior, 16%
* (z_16)
real*8 z50 ! [0.0018/19.6] Redshift posterior, 50%
* (z_50)
real*8 z84 ! [0.002/20] Redshift posterior, 84% (z_84)
real*8 logMs16 ! ([Msun]) [5.7/11.4] Log of stellar mass, 16%
* (mstar_16)
real*8 logMs50 ! ([Msun]) [5.7/11.4] Log of stellar mass, 50%
* (mstar_50)
real*8 logMs84 ! ([Msun]) Log of stellar mass, 84% (mstar_84)
real*8 logZ16 ! ([Sun]) [-2/0.2] Stellar metallicity, 16% (met_16)
real*8 logZ50 ! ([Sun]) [-2/0.2] Stellar metallicity, 50% (met_50)
real*8 logZ84 ! ([Sun]) Stellar metallicity, 84% (met_84)
real*8 wAge16 ! (Gyr) [0.01/12.6] Mass-weighted age, 16% (mwa_16)
real*8 wAge50 ! (Gyr) [0.017/13] Mass-weighted age, 50% (mwa_50)
real*8 wAge84 ! (Gyr) Mass-weighted age, 84% (mwa_84)
real*8 dustd16 ! [7.5e-5/4] Optical depth of diffuse dust,
* 16% (dust2_16)
real*8 dustd50 ! [0.00029/4] Optical depth of diffuse dust,
* 50% (dust2_50)
real*8 dustd84 ! Optical depth of diffuse dust, 84%
* (dust2_84)
real*8 dusti16 ! [-1/0.4] Power law index for a
* Calzetti+2000 attenuation curve, 16%
* (dust_index_16)
real*8 dusti50 ! [-1/0.4] Power law index for a
* Calzetti+ 2000ApJ...533..682C
* attenuation curve, 50% (dust_index_50)
real*8 dusti84 ! Power law index for a Calzetti+2000
* attenuation curve, 84% (dust_index_84)
real*4 dustf16 ! [0.001/1.8] Ratio between the optical depth
* of birth cloud dust and diffuse dust, 16%
* (dust1_fraction_16)
real*4 dustf50 ! [0.006/2] Ratio between the optical depth
* of birth cloud dust and diffuse dust, 50%
* (dust1_fraction_50)
real*4 dustf84 ! Ratio between the optical depth of birth
* cloud dust and diffuse dust, 84%
* (dust1_fraction_84)
real*8 logfagn16 ! [-5/0.5] Logarithm of the ratio between
* the object's AGN luminosity and its
* bolometric luminosity, 16% (logfagn_16)
real*8 logfagn50 ! [-4.8/0.5] Log of the ratio between the
* object's AGN luminosity and its
* bolometric luminosity, 50% (logfagn_50)
real*8 logfagn84 ! Logarithm of the ratio between the
* object's AGN luminosity and its
* bolometric luminosity, 84% (logfagn_84)
real*4 sfr10p16 ! (Msun/yr) [1.4e-9/1972] Star formation rate
* averaged over 10Myr, 16% (sfr10_16)
real*4 sfr10p50 ! (Msun/yr) [4.9e-8/2776] Star formation rate averaged
* over 10Myr, 50% (sfr10_50)
real*4 sfr10p84 ! (Msun/yr) [6.3e-7/4020] Star formation rate
* averaged over 10Myr, 84% (sfr10_84)
real*4 sfr30p16 ! (Msun/yr) Star formation rate averaged over 30Myr,
* 16% (sfr30_16)
real*4 sfr30p50 ! (Msun/yr) [7e-8/2047] Star formation rate averaged
* over 30Myr, 50% (sfr30_50)
real*4 sfr30p84 ! (Msun/yr) Star formation rate averaged over 30Myr,
* 84% (sfr30_84)
real*4 sfr100p16 ! (Msun/yr) [6.5e-9/694] Star formation rate averaged
* over 100Myr, 16% (sfr100_16)
real*4 sfr100p50 ! (Msun/yr) [1e-7/793] Star formation rate averaged
* over 100Myr, 50% (sfr100_50)
real*4 sfr100p84 ! (Msun/yr) Star formation rate averaged over 100Myr,
* 84% (sfr100_84)
real*4 ssfr10p16 ! (yr-1) [8e-17/3e-8] Specific star formation rate
* averaged over 10Myr, 16% (ssfr10_16)
real*4 ssfr10p50 ! (yr-1) [3.6e-15/3.5e-8] Specific star formation
* rate averaged over 10Myr, 50% (ssfr10_50)
real*4 ssfr10p84 ! (yr-1) Specific star formation rate averaged
* over 10Myr, 84% (ssfr10_84)
real*4 ssfr30p16 ! (yr-1) Specific star formation rate averaged
* over 30Myr, 16% (ssfr30_16)
real*4 ssfr30p50 ! (yr-1) [4e-15/3e-8] Specific star formation rate
* averaged over 30Myr, 50% (ssfr30_50)
real*4 ssfr30p84 ! (yr-1) Specific star formation rate averaged
* over 30Myr, 84% (ssfr30_84)
real*4 ssfr100p16 ! (yr-1) Specific star formation rate averaged
* over 100Myr, 16% (ssfr100_16)
real*4 ssfr100p50 ! (yr-1) [6.5e-15/9.3e-9] Specific star formation
* rate averaged over 100Myr, 50% (ssfr100_50)
real*4 ssfr100p84 ! (yr-1) [9e-14/9.5e-9] Specific star formation
* rate averaged over 100Myr, 84%
* (ssfr100_84)
real*8 muz16 ! [0.1/3546] Magnification based z16,
* calculated from the public maps
* (mu_num_16)
real*8 muz50 ! [0.06/3689] Magnification based z50,
* calculated from the public maps (mu_num_50)
real*8 muz84 ! Magnification based z84, calculated from
* the public maps (mu_num_84)
real*8 restU16 ! (mag) [17.6/38] Rest-frame U-band AB mag, 16%
* (rest_U_16)
real*8 restU50 ! (mag) [17.6/39] Rest-frame U-band AB mag, 50%
* (rest_U_50)
real*8 restU84 ! (mag) [17.7/40.1] Rest-frame U-band AB mag, 84%
* (rest_U_84)
real*8 restV16 ! (mag) [17.4/36.4] Rest-frame V-band AB mag, 16%
* (rest_V_16)
real*8 restV50 ! (mag) [17.4/37.1] Rest-frame V-band AB mag, 50%
* (rest_V_50)
real*8 restV84 ! (mag) Rest-frame V-band AB mag, 84% (rest_V_84)
real*8 restJ16 ! (mag) [17/35.1] Rest-frame J-band AB mag, 16%
* (rest_J_16)
real*8 restJ50 ! (mag) [17.2/35.7] Rest-frame J-band AB mag, 50%
* (rest_J_50)
real*8 restJ84 ! (mag) Rest-frame J-band AB mag, 84% (rest_J_84)
real*8 restu16_1 ! (mag) [17.6/41] Rest-frame u-band AB mag, 16%
* (rest_up_16)
real*8 restu50_1 ! (mag) [17.7/42] Rest-frame u-band AB mag, 50%
* (rest_up_50)
real*8 restu84_1 ! (mag) [17.7/43] Rest-frame u-band AB mag, 84%
* (rest_up_84)
real*8 restg16 ! (mag) [17.2/37] Rest-frame g-band AB mag, 16%
* (rest_g_16)
real*8 restg50 ! (mag) [17.2/37.8] Rest-frame g-band AB mag, 50%
* (rest_g_50)
real*8 restg84 ! (mag) Rest-frame g-band AB mag, 84% (rest_g_84)
real*8 resti16 ! (mag) [17.6/35.8] Rest-frame i-band AB mag, 16%
* (rest_i_16)
real*8 resti50 ! (mag) [17.6/36.4] Rest-frame i-band AB mag, 50%
* (rest_i_50)
real*8 resti84 ! (mag) Rest-frame i-band AB mag, 84% (rest_i_84)
real*8 U_V16 ! (mag) [-0.8/6.3] Rest-frame U-V color, 16%
* (UV_16)
real*8 U_V50 ! (mag) [-0.7/6.4] Rest-frame U-V color, 50%
* (UV_50)
real*8 U_V84 ! (mag) Rest-frame U-V color, 84% (UV_84)
real*8 V_J16 ! (mag) [-1.4/4] Rest-frame V-J color, 16% (VJ_16)
real*8 V_J50 ! (mag) [-1.4/4.1] Rest-frame V-J color, 50%
* (VJ_50)
real*8 V_J84 ! (mag) Rest-frame V-J color, 84% (VJ_84)
real*8 g_i16 ! (mag) [-0.7/5.4] Rest-frame synthetic g-i, 16%
* (gi_16)
real*8 g_i50 ! (mag) [-0.7/5.5] Rest-frame synthetic g-i, 50%
* (gi_50)
real*8 g_i84 ! (mag) Rest-frame synthetic g-i, 84% (gi_84)
real*8 u_g16 ! (mag) [-0.3/8] Rest-frame synthetic u-g, 16%
* (ug_16)
real*8 u_g50 ! (mag) [-0.3/8.1] Rest-frame synthetic u-g, 50%
* (ug_50)
real*8 u_g84 ! (mag) Rest-frame synthetic u-g, 84% (ug_84)
real*4 chi2 ! [6e-7/4502] Best-fit chi^2^, assuming a
* minimum error of 5% (chi2)
integer*4 Nb ! [2/15] Number of bands used in the fit
* (nbands)
real*8 zEazy ! [0.01/20]? Peak of p(z) from fitting with
* eazy-sfhz-corr (z_eazy)
real*8 zEazy16 ! ? P(z), 16% (z_eazy_16)
real*8 zEazy50 ! [0.01/19.8]? P(z), 50% (z_eazy_50)
real*8 zEazy84 ! ? P(z), 84% (z_eazy_84)
integer*4 IDDR1 ! [1/50365]? ID of the source in the DR1
* cat. (id_DR1)
integer*4 MSA ! [2008/60157]? ID of the source in the
* team internal MSA catalog (Price+
* 2023arXiv231002500P); all within <0.24"
* radius (id_msa)
integer*4 ALMA ! [1/69]? ID of ALMA source from
* Fujimoto+ 2023, in prep. (id_alma)
real*4 UseAper ! (arcsec) [0.3/1.4] Diameter adopted for color
* aperture (use_aper)
integer*4 f_kron ! [0/1]? 1 for systematically
* underestimated photometry (i.e., the
* kron radius is not robust,thus the total
* photometry assumes point-lke light
* distribution) (flag_kron)
C=============================================================================
C Loading file 'spscat.dat' ! Stellar population catalog based on the DR2 SUPER
* photometric catalog
C Format for file interpretation
1 format(
+ I5,1X,F13.11,1X,F15.11,1X,I1,1X,F8.6,1X,F9.6,1X,F9.6,1X,F9.6,
+ 1X,F7.4,1X,F7.4,1X,F7.4,1X,F7.4,1X,F7.4,1X,F7.4,1X,F7.4,1X,
+ F7.4,1X,F7.4,1X,F8.6,1X,F8.6,1X,F8.6,1X,F7.4,1X,F7.4,1X,F7.4,
+ 1X,F6.4,1X,F6.4,1X,F6.4,1X,F7.4,1X,F7.4,1X,F7.4,1X,E11.6,1X,
+ E11.6,1X,E11.6,1X,E11.6,1X,E11.6,1X,E11.6,1X,E11.6,1X,E11.6,
+ 1X,E11.6,1X,E11.6,1X,E11.6,1X,E11.6,1X,E11.6,1X,E11.6,1X,
+ E11.6,1X,E11.6,1X,E11.6,1X,E11.6,1X,F9.4,1X,F9.4,1X,F9.4,1X,
+ F7.4,1X,F7.4,1X,F7.4,1X,F7.4,1X,F7.4,1X,F7.4,1X,F7.4,1X,F7.4,
+ 1X,F7.4,1X,F7.4,1X,F7.4,1X,F7.4,1X,F7.4,1X,F7.4,1X,F7.4,1X,
+ F7.4,1X,F7.4,1X,F7.4,1X,F7.4,1X,F7.4,1X,F7.4,1X,F7.4,1X,F7.4,
+ 1X,F7.4,1X,F7.4,1X,F7.4,1X,F7.4,1X,F7.4,1X,F7.4,1X,F7.4,1X,
+ E10.5,1X,I2,1X,F9.6,1X,F9.6,1X,F9.6,1X,F9.6,1X,I5,1X,I5,1X,I2,
+ 1X,F4.2,1X,I1)
C Effective file loading
open(unit=1,status='old',file=
+'spscat.dat')
write(6,*) '....Loading file: spscat.dat'
do i__=1,61648
read(1,'(A806)')ar__
read(ar__,1)
+ Seq,RAdeg,DEdeg,UsePhot,zsp,z16,z50,z84,logMs16,logMs50,
+ logMs84,logZ16,logZ50,logZ84,wAge16,wAge50,wAge84,dustd16,
+ dustd50,dustd84,dusti16,dusti50,dusti84,dustf16,dustf50,
+ dustf84,logfagn16,logfagn50,logfagn84,sfr10p16,sfr10p50,
+ sfr10p84,sfr30p16,sfr30p50,sfr30p84,sfr100p16,sfr100p50,
+ sfr100p84,ssfr10p16,ssfr10p50,ssfr10p84,ssfr30p16,ssfr30p50,
+ ssfr30p84,ssfr100p16,ssfr100p50,ssfr100p84,muz16,muz50,muz84,
+ restU16,restU50,restU84,restV16,restV50,restV84,restJ16,
+ restJ50,restJ84,restu16_1,restu50_1,restu84_1,restg16,restg50,
+ restg84,resti16,resti50,resti84,U_V16,U_V50,U_V84,V_J16,V_J50,
+ V_J84,g_i16,g_i50,g_i84,u_g16,u_g50,u_g84,chi2,Nb,zEazy,
+ zEazy16,zEazy50,zEazy84,IDDR1,MSA,ALMA,UseAper,f_kron
if(ar__(39:46) .EQ. '') zsp = rNULL__
if(ar__(746:754) .EQ. '') zEazy = rNULL__
if(ar__(756:764) .EQ. '') zEazy16 = rNULL__
if(ar__(766:774) .EQ. '') zEazy50 = rNULL__
if(ar__(776:784) .EQ. '') zEazy84 = rNULL__
if(ar__(786:790) .EQ. '') IDDR1 = iNULL__
if(ar__(792:796) .EQ. '') MSA = iNULL__
if(ar__(798:799) .EQ. '') ALMA = iNULL__
if(ar__(806:806) .EQ. '') f_kron = iNULL__
c ..............Just test output...........
write(6,1)
+ Seq,RAdeg,DEdeg,UsePhot,zsp,z16,z50,z84,logMs16,logMs50,
+ logMs84,logZ16,logZ50,logZ84,wAge16,wAge50,wAge84,dustd16,
+ dustd50,dustd84,dusti16,dusti50,dusti84,dustf16,dustf50,
+ dustf84,logfagn16,logfagn50,logfagn84,sfr10p16,sfr10p50,
+ sfr10p84,sfr30p16,sfr30p50,sfr30p84,sfr100p16,sfr100p50,
+ sfr100p84,ssfr10p16,ssfr10p50,ssfr10p84,ssfr30p16,ssfr30p50,
+ ssfr30p84,ssfr100p16,ssfr100p50,ssfr100p84,muz16,muz50,muz84,
+ restU16,restU50,restU84,restV16,restV50,restV84,restJ16,
+ restJ50,restJ84,restu16_1,restu50_1,restu84_1,restg16,restg50,
+ restg84,resti16,resti50,resti84,U_V16,U_V50,U_V84,V_J16,V_J50,
+ V_J84,g_i16,g_i50,g_i84,u_g16,u_g50,u_g84,chi2,Nb,zEazy,
+ zEazy16,zEazy50,zEazy84,IDDR1,MSA,ALMA,UseAper,f_kron
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end