Conversion of standardized ReadMe file for
file /./ftp/cats/J/ApJ/810/166 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-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 ! RESOLVE galaxy identifier (r{f/s}NNNN)
real*8 RAdeg ! (deg) Right Ascension in decimal degrees (1)
real*8 DEdeg ! (deg) Declination in decimal degrees (1)
real*8 cz0 ! (km/s) [4253/7284] Local group corrected
* velocity of galaxy
real*8 cz ! (km/s) [4178/7362] Adopted galaxy velocity for
* survey membership
real*8 rMag ! (mag) [-23.6/-13.5] Absolute SDSS r-band
* magnitude (2)
real*8 umag ! (mag) [13.3/27.1]? Apparent SDSS u-band
* magnitude (3)
real*8 e_umag ! (mag) [0.02/7]? Error in umag
real*4 gmag ! (mag) Apparent SDSS g-band magnitude (3)
real*8 e_gmag ! (mag) ? Error in gmag
real*4 rmag_1 ! (mag) Apparent SDSS r-band magnitude (3)
real*4 e_rmag ! (mag) Error in rmag
real*4 imag ! (mag) [10.6/20.6] Apparent SDSS i-band
* magnitude (3)
real*4 e_imag ! (mag) [0.02/3] Error in imag
real*8 zmag ! (mag) [10.2/22.4]? Apparent SDSS z-band
* magnitude (3)
real*8 e_zmag ! (mag) [0.02/10]? Error in zmag
real*8 NUVmag ! (mag) [14.7/25]? Apparent GALEX NUV-band
* magnitude (3)
real*8 e_NUVmag ! (mag) [0.01/7]? Error in NUVmag
real*8 uvm2mag ! (mag) [17.5/21.7]? Apparent Swift uvm2-band
* magnitude (3)
real*8 e_uvm2mag ! (mag) [0.01/2]? Error in uvotm2mag
real*8 v2Jmag ! (mag) [9.6/16]? Apparent 2MASS J-band
* magnitude (3)
real*8 e_2Jmag ! (mag) [0.01/5]? Error in 2Jmag
real*8 v2Hmag ! (mag) ? Apparent 2MASS H-band magnitude (3)
real*8 e_2Hmag ! (mag) ? Error in 2Hmag
real*8 v2Kmag ! (mag) [8.7/15]? Apparent 2MASS K-band
* magnitude (3)
real*8 e_2Kmag ! (mag) [0.01/4]? Error in 2Kmag
real*8 UYmag ! (mag) [10.4/20.1]? Apparent UKIDSS Y-band
* magnitude (3)
real*8 e_UYmag ! (mag) [0.005/13]? Error in UYmag
real*8 UHmag ! (mag) [3.8/18]? Apparent UKIDSS H-band
* magnitude (3)
real*8 e_UHmag ! (mag) [0.004/10]? Error in UHmag
real*8 UKmag ! (mag) [8.8/17.5]? Apparent UKIDSS K-band
* magnitude (3)
real*8 e_UKmag ! (mag) [0.004/13]? Error in UKmag
real*4 b_a ! [0.1/1] The axial ratio
real*4 R50 ! (arcsec) [1/52] The half-light radius in r band
real*4 R90 ! (arcsec) [2/191] The 90%-light radius in r band
real*8 g_g_r ! (mag) [-0.7/1.3] The (g-r) color gradient
real*4 modu_r ! (mag) [0.6/3.2] SED modeled (u-r) color (4)
real*4 modu_i ! (mag) [0.6/3.7] SED modeled (u-i) color (4)
real*4 modu_j ! (mag) [1.5/5.5] SED modeled (u-J) color (4)
real*4 modu_k ! (mag) [2.2/6.5] SED modeled (u-K) color (4)
real*4 modg_r ! (mag) [0.02/1.1] SED modeled (g-r) color (4)
real*4 modg_i ! (mag) [0.05/1.6] SED modeled (g-i) color (4)
real*4 modg_j ! (mag) [0.9/3.4] SED modeled (g-J) color (4)
real*4 modg_k ! (mag) [1.6/4.4] SED modeled (g-K) color (4)
real*4 logM_ ! ([Msun]) [6.7/11.7] Log stellar mass
real*4 extu ! (mag) [0.07/1] Foreground extinction in u band
real*4 extg ! (mag) [0.05/0.8] Foreground extinction in g band
real*4 extr ! (mag) [0.03/0.6] Foreground extinction in r band
real*4 exti ! (mag) [0.03/0.4] Foreground extinction in i band
real*4 extz ! (mag) [0.02/0.3] Foreground extinction in z band
real*4 extnuv ! (mag) [1.3/17.6] Foreground extinction in
* nuv band
real*4 extuvm2 ! (mag) [0.1/2] Foreground extinction in uvm2 band
real*4 exty ! (mag) [0.01/0.3] Foreground extinction in Y band
real*4 extj ! (mag) [0.01/0.2] Foreground extinction in J band
real*4 exth ! (mag) [0.008/0.2] Foreground extinction in H band
real*4 extk ! (mag) [0.005/0.07] Foreground extinction
* in K band
integer*4 Set ! [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,RAdeg,DEdeg,cz0,cz,rMag,umag,e_umag,gmag,e_gmag,rmag_1,
+ e_rmag,imag,e_imag,zmag,e_zmag,NUVmag,e_NUVmag,uvm2mag,
+ e_uvm2mag,v2Jmag,e_2Jmag,v2Hmag,e_2Hmag,v2Kmag,e_2Kmag,UYmag,
+ e_UYmag,UHmag,e_UHmag,UKmag,e_UKmag,b_a,R50,R90,g_g_r,modu_r,
+ modu_i,modu_j,modu_k,modg_r,modg_i,modg_j,modg_k,logM_,extu,
+ extg,extr,exti,extz,extnuv,extuvm2,exty,extj,exth,extk,Set
if(ar__(49:55) .EQ. '') umag = rNULL__
if(ar__(57:63) .EQ. '') e_umag = rNULL__
if(ar__(72:78) .EQ. '') e_gmag = rNULL__
if(ar__(106:112) .EQ. '') zmag = rNULL__
if(ar__(114:120) .EQ. '') e_zmag = rNULL__
if(ar__(122:128) .EQ. '') NUVmag = rNULL__
if(ar__(130:136) .EQ. '') e_NUVmag = rNULL__
if(ar__(138:144) .EQ. '') uvm2mag = rNULL__
if(ar__(146:152) .EQ. '') e_uvm2mag = rNULL__
if(ar__(154:160) .EQ. '') v2Jmag = rNULL__
if(ar__(162:168) .EQ. '') e_2Jmag = rNULL__
if(ar__(170:176) .EQ. '') v2Hmag = rNULL__
if(ar__(178:184) .EQ. '') e_2Hmag = rNULL__
if(ar__(186:192) .EQ. '') v2Kmag = rNULL__
if(ar__(194:200) .EQ. '') e_2Kmag = rNULL__
if(ar__(202:208) .EQ. '') UYmag = rNULL__
if(ar__(210:216) .EQ. '') e_UYmag = rNULL__
if(ar__(218:224) .EQ. '') UHmag = rNULL__
if(ar__(226:232) .EQ. '') e_UHmag = rNULL__
if(ar__(234:240) .EQ. '') UKmag = rNULL__
if(ar__(242:248) .EQ. '') e_UKmag = rNULL__
if(ar__(397:397) .EQ. '') Set = iNULL__
c ..............Just test output...........
write(6,1)
+ ID,RAdeg,DEdeg,cz0,cz,rMag,umag,e_umag,gmag,e_gmag,rmag_1,
+ e_rmag,imag,e_imag,zmag,e_zmag,NUVmag,e_NUVmag,uvm2mag,
+ e_uvm2mag,v2Jmag,e_2Jmag,v2Hmag,e_2Hmag,v2Kmag,e_2Kmag,UYmag,
+ e_UYmag,UHmag,e_UHmag,UKmag,e_UKmag,b_a,R50,R90,g_g_r,modu_r,
+ modu_i,modu_j,modu_k,modg_r,modg_i,modg_j,modg_k,logM_,extu,
+ extg,extr,exti,extz,extnuv,extuvm2,exty,extj,exth,extk,Set
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end