Conversion of standardized ReadMe file for
file /./ftp/cats/J/ApJ/810/166 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 2026-Oct-09
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/810/166 RESOLVE survey photometry catalog (Eckert+, 2015)
*================================================================================
*RESOLVE survey photometry and volume-limited calibration of
*the photometric gas fractions technique.
* Eckert K.D., Kannappan S.J., Stark D.V., Moffett A.J., Norris M.A.,
* Snyder E.M., Hoversten E.A.
* <Astrophys. J., 810, 166 (2015)>
* =2015ApJ...810..166E (SIMBAD/NED BibCode)
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table1.dat' ! REsolved Spectroscopy of a Local VolumE (RESOLVE)
custom photometry catalog - from erratum published
in 2017, ApJ, 847, 83
integer*4 nr__
parameter (nr__=2286) ! Number of records
character*397 ar__ ! Full-size record
C J2000 position composed of: RAdeg DEdeg
character*6 ID (nr__) ! RESOLVE galaxy identifier (r{f/s}NNNN)
real*8 RAdeg (nr__) ! (deg) Right Ascension in decimal degrees (1)
real*8 DEdeg (nr__) ! (deg) Declination in decimal degrees (1)
real*8 cz0 (nr__) ! (km/s) [4253/7284] Local group corrected
* velocity of galaxy
real*8 cz (nr__) ! (km/s) [4178/7362] Adopted galaxy velocity for
* survey membership
real*8 rMag (nr__) ! (mag) [-23.6/-13.5] Absolute SDSS r-band
* magnitude (2)
real*8 umag (nr__) ! (mag) [13.3/27.1]? Apparent SDSS u-band
* magnitude (3)
real*8 e_umag (nr__) ! (mag) [0.02/7]? Error in umag
real*4 gmag (nr__) ! (mag) Apparent SDSS g-band magnitude (3)
real*8 e_gmag (nr__) ! (mag) ? Error in gmag
real*4 rmag_1 (nr__) ! (mag) Apparent SDSS r-band magnitude (3)
real*4 e_rmag (nr__) ! (mag) Error in rmag
real*4 imag (nr__) ! (mag) [10.6/20.6] Apparent SDSS i-band
* magnitude (3)
real*4 e_imag (nr__) ! (mag) [0.02/3] Error in imag
real*8 zmag (nr__) ! (mag) [10.2/22.4]? Apparent SDSS z-band
* magnitude (3)
real*8 e_zmag (nr__) ! (mag) [0.02/10]? Error in zmag
real*8 NUVmag (nr__) ! (mag) [14.7/25]? Apparent GALEX NUV-band
* magnitude (3)
real*8 e_NUVmag (nr__) ! (mag) [0.01/7]? Error in NUVmag
real*8 uvm2mag (nr__) ! (mag) [17.5/21.7]? Apparent Swift uvm2-band
* magnitude (3)
real*8 e_uvm2mag (nr__) ! (mag) [0.01/2]? Error in uvotm2mag
real*8 v2Jmag (nr__) ! (mag) [9.6/16]? Apparent 2MASS J-band
* magnitude (3)
real*8 e_2Jmag (nr__) ! (mag) [0.01/5]? Error in 2Jmag
real*8 v2Hmag (nr__) ! (mag) ? Apparent 2MASS H-band magnitude (3)
real*8 e_2Hmag (nr__) ! (mag) ? Error in 2Hmag
real*8 v2Kmag (nr__) ! (mag) [8.7/15]? Apparent 2MASS K-band
* magnitude (3)
real*8 e_2Kmag (nr__) ! (mag) [0.01/4]? Error in 2Kmag
real*8 UYmag (nr__) ! (mag) [10.4/20.1]? Apparent UKIDSS Y-band
* magnitude (3)
real*8 e_UYmag (nr__) ! (mag) [0.005/13]? Error in UYmag
real*8 UHmag (nr__) ! (mag) [3.8/18]? Apparent UKIDSS H-band
* magnitude (3)
real*8 e_UHmag (nr__) ! (mag) [0.004/10]? Error in UHmag
real*8 UKmag (nr__) ! (mag) [8.8/17.5]? Apparent UKIDSS K-band
* magnitude (3)
real*8 e_UKmag (nr__) ! (mag) [0.004/13]? Error in UKmag
real*4 b_a (nr__) ! [0.1/1] The axial ratio
real*4 R50 (nr__) ! (arcsec) [1/52] The half-light radius in r band
real*4 R90 (nr__) ! (arcsec) [2/191] The 90%-light radius in r band
real*8 g_g_r (nr__) ! (mag) [-0.7/1.3] The (g-r) color gradient
real*4 modu_r (nr__) ! (mag) [0.6/3.2] SED modeled (u-r) color (4)
real*4 modu_i (nr__) ! (mag) [0.6/3.7] SED modeled (u-i) color (4)
real*4 modu_j (nr__) ! (mag) [1.5/5.5] SED modeled (u-J) color (4)
real*4 modu_k (nr__) ! (mag) [2.2/6.5] SED modeled (u-K) color (4)
real*4 modg_r (nr__) ! (mag) [0.02/1.1] SED modeled (g-r) color (4)
real*4 modg_i (nr__) ! (mag) [0.05/1.6] SED modeled (g-i) color (4)
real*4 modg_j (nr__) ! (mag) [0.9/3.4] SED modeled (g-J) color (4)
real*4 modg_k (nr__) ! (mag) [1.6/4.4] SED modeled (g-K) color (4)
real*4 logM_ (nr__) ! ([Msun]) [6.7/11.7] Log stellar mass
real*4 extu (nr__) ! (mag) [0.07/1] Foreground extinction in u band
real*4 extg (nr__) ! (mag) [0.05/0.8] Foreground extinction in g band
real*4 extr (nr__) ! (mag) [0.03/0.6] Foreground extinction in r band
real*4 exti (nr__) ! (mag) [0.03/0.4] Foreground extinction in i band
real*4 extz (nr__) ! (mag) [0.02/0.3] Foreground extinction in z band
real*4 extnuv (nr__) ! (mag) [1.3/17.6] Foreground extinction in
* nuv band
real*4 extuvm2 (nr__) ! (mag) [0.1/2] Foreground extinction in uvm2 band
real*4 exty (nr__) ! (mag) [0.01/0.3] Foreground extinction in Y band
real*4 extj (nr__) ! (mag) [0.01/0.2] Foreground extinction in J band
real*4 exth (nr__) ! (mag) [0.008/0.2] Foreground extinction in H band
real*4 extk (nr__) ! (mag) [0.005/0.07] Foreground extinction
* in K band
integer*4 Set (nr__) ! [0/1]? Sample flag (5)
*Note (1): Photometric center of galaxy (J2000).
*Note (2): Foreground extinction included.
*Note (3): All magnitudes are newly measured from the raw images. Apparent
* magnitudes are provided without foreground extinction corrections.
*Note (4): Model colors are products of the SED fitting routine from K13
* (Kannappan+, 2013, J/ApJ/777/42), described in Section 3.2 and have
* foreground extinction corrections and k-corrections implicitly
* included.
*Note (5): Flag as follows:
* 1 = galaxy is in the calibration or testing sample.
* 0 = galaxy is not in the calibration or testing sample.
C=============================================================================
C Loading file 'table1.dat' ! REsolved Spectroscopy of a Local VolumE (RESOLVE)
* custom photometry catalog - from erratum published
* in 2017, ApJ, 847, 83
C Format for file interpretation
1 format(
+ A6,1X,F8.4,1X,F7.4,1X,F7.2,1X,F7.2,1X,F7.3,1X,F7.3,1X,F7.3,1X,
+ F6.3,1X,F7.3,1X,F6.3,1X,F5.3,1X,F6.3,1X,F5.3,1X,F7.3,1X,F7.3,
+ 1X,F7.3,1X,F7.3,1X,F7.3,1X,F7.3,1X,F7.3,1X,F7.3,1X,F7.3,1X,
+ F7.3,1X,F7.3,1X,F7.3,1X,F7.3,1X,F7.3,1X,F7.3,1X,F7.3,1X,F7.3,
+ 1X,F7.3,1X,F4.2,1X,F5.2,1X,F6.2,1X,F7.4,1X,F5.3,1X,F5.3,1X,
+ F5.3,1X,F5.3,1X,F5.3,1X,F5.3,1X,F5.3,1X,F5.3,1X,F5.2,1X,F5.3,
+ 1X,F5.3,1X,F5.3,1X,F5.3,1X,F5.3,1X,F6.3,1X,F5.3,1X,F5.3,1X,
+ F5.3,1X,F5.3,1X,F5.3,1X,I1)
C Effective file loading
open(unit=1,status='old',file=
+'table1.dat')
write(6,*) '....Loading file: table1.dat'
do i__=1,2286
read(1,'(A397)')ar__
read(ar__,1)
+ ID(i__),RAdeg(i__),DEdeg(i__),cz0(i__),cz(i__),rMag(i__),
+ umag(i__),e_umag(i__),gmag(i__),e_gmag(i__),rmag_1(i__),
+ e_rmag(i__),imag(i__),e_imag(i__),zmag(i__),e_zmag(i__),
+ NUVmag(i__),e_NUVmag(i__),uvm2mag(i__),e_uvm2mag(i__),
+ v2Jmag(i__),e_2Jmag(i__),v2Hmag(i__),e_2Hmag(i__),v2Kmag(i__),
+ e_2Kmag(i__),UYmag(i__),e_UYmag(i__),UHmag(i__),e_UHmag(i__),
+ UKmag(i__),e_UKmag(i__),b_a(i__),R50(i__),R90(i__),g_g_r(i__),
+ modu_r(i__),modu_i(i__),modu_j(i__),modu_k(i__),modg_r(i__),
+ modg_i(i__),modg_j(i__),modg_k(i__),logM_(i__),extu(i__),
+ extg(i__),extr(i__),exti(i__),extz(i__),extnuv(i__),
+ extuvm2(i__),exty(i__),extj(i__),exth(i__),extk(i__),Set(i__)
if(ar__(49:55) .EQ. '') umag(i__) = rNULL__
if(ar__(57:63) .EQ. '') e_umag(i__) = rNULL__
if(ar__(72:78) .EQ. '') e_gmag(i__) = rNULL__
if(ar__(106:112) .EQ. '') zmag(i__) = rNULL__
if(ar__(114:120) .EQ. '') e_zmag(i__) = rNULL__
if(ar__(122:128) .EQ. '') NUVmag(i__) = rNULL__
if(ar__(130:136) .EQ. '') e_NUVmag(i__) = rNULL__
if(ar__(138:144) .EQ. '') uvm2mag(i__) = rNULL__
if(ar__(146:152) .EQ. '') e_uvm2mag(i__) = rNULL__
if(ar__(154:160) .EQ. '') v2Jmag(i__) = rNULL__
if(ar__(162:168) .EQ. '') e_2Jmag(i__) = rNULL__
if(ar__(170:176) .EQ. '') v2Hmag(i__) = rNULL__
if(ar__(178:184) .EQ. '') e_2Hmag(i__) = rNULL__
if(ar__(186:192) .EQ. '') v2Kmag(i__) = rNULL__
if(ar__(194:200) .EQ. '') e_2Kmag(i__) = rNULL__
if(ar__(202:208) .EQ. '') UYmag(i__) = rNULL__
if(ar__(210:216) .EQ. '') e_UYmag(i__) = rNULL__
if(ar__(218:224) .EQ. '') UHmag(i__) = rNULL__
if(ar__(226:232) .EQ. '') e_UHmag(i__) = rNULL__
if(ar__(234:240) .EQ. '') UKmag(i__) = rNULL__
if(ar__(242:248) .EQ. '') e_UKmag(i__) = rNULL__
if(ar__(397:397) .EQ. '') Set(i__) = iNULL__
c ..............Just test output...........
write(6,1)
+ ID(i__),RAdeg(i__),DEdeg(i__),cz0(i__),cz(i__),rMag(i__),
+ umag(i__),e_umag(i__),gmag(i__),e_gmag(i__),rmag_1(i__),
+ e_rmag(i__),imag(i__),e_imag(i__),zmag(i__),e_zmag(i__),
+ NUVmag(i__),e_NUVmag(i__),uvm2mag(i__),e_uvm2mag(i__),
+ v2Jmag(i__),e_2Jmag(i__),v2Hmag(i__),e_2Hmag(i__),v2Kmag(i__),
+ e_2Kmag(i__),UYmag(i__),e_UYmag(i__),UHmag(i__),e_UHmag(i__),
+ UKmag(i__),e_UKmag(i__),b_a(i__),R50(i__),R90(i__),g_g_r(i__),
+ modu_r(i__),modu_i(i__),modu_j(i__),modu_k(i__),modg_r(i__),
+ modg_i(i__),modg_j(i__),modg_k(i__),logM_(i__),extu(i__),
+ extg(i__),extr(i__),exti(i__),extz(i__),extnuv(i__),
+ extuvm2(i__),exty(i__),extj(i__),exth(i__),extk(i__),Set(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end