Conversion of standardized ReadMe file for
file /./ftp/cats/J/ApJS/215/22 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-Sep-06
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/215/22 The Extended Virgo Cluster Catalog (EVCC) (Kim+, 2014)
*================================================================================
*The Extended Virgo Cluster Catalog.
* Kim S., Rey S.-C., Jerjen H., Lisker T., Sung E.-C., Lee Y., Chung J.,
* Pak M., Yi W., Lee W.
* <Astrophys. J. Suppl. Ser., 215, 22 (2014)>
* =2014ApJS..215...22K
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table2.dat' ! The Extended Virgo Cluster Catalog (EVCC)
integer*4 nr__
parameter (nr__=1589) ! Number of records
character*186 ar__ ! Full-size record
C J2000 position composed of: RAdeg DEdeg
integer*4 EVCC ! [1/2264] EVCC identifier (1)
integer*4 VCC ! [1/2095]? VCC identifier
character*5 NGC ! ? NGC designation
real*8 RAdeg ! (deg) SExtractor Right Ascension (J2000)
real*8 DEdeg ! (deg) SExtractor Declination (J2000)
real*8 RAFdeg ! (deg) ? SDSS fiber location Right Ascension (J2000)
real*8 DEFdeg ! (deg) ? SDSS fiber location Declination (J2000)
real*8 Offset ! (arcsec) [0/86.5]? Offset between photometric center
* and SDSS fiber location
real*4 cz ! (km/s) [-745/2983]? SDSS heliocentric radial velocity
real*8 cz2 ! (km/s) [-731/98610]? NED heliocentric radial velocity
character*1 MmI ! [MP] Membership of galaxy from Virgo cluster
* infall model (M=Member; P=Possible)
character*1 MmV ! Membership of galaxy from VCC: M=Member,
* P=Possible, B=background
character*8 MTyp1 ! Primary morphology
character*2 MTyp2 ! Secondary (SED) morphology (2)
integer*4 TT1 ! [100/411] Numerical primary morphology (3)
character*19 MTypV ! Morphology from the VCC
real*4 umag ! (mag) SDSS u-band SExtractor AUTO magnitude
real*4 e_umag ! (mag) Error in umag
real*4 gmag ! (mag) SDSS g-band SExtractor AUTO magnitude
real*4 e_gmag ! (mag) Error in gmag
real*4 rmag ! (mag) SDSS r-band SExtractor AUTO magnitude
real*4 e_rmag ! (mag) Error in rmag
real*4 imag ! (mag) SDSS i-band SExtractor AUTO magnitude
real*4 e_imag ! (mag) Error in imag
real*4 zmag ! (mag) [7.6/19.7] SDSS z-band SExtractor AUTO magnitude
real*4 e_zmag ! (mag) [0.03/2] Error in zmag
real*4 Rad ! (arcsec) [4.9/477] Kron r-band radius
real*4 R50 ! (arcsec) [0.8/102] SExtractor Half-light r-band radius
*Note (1): Galaxies with numbers larger than 2000 have radial velocities from
* NED. ID is marked with the right ascension. The catalog of the
* EVCC will be updated at http://sites.google.com/site/extendedvcc/
*Note (2): The secondary morphological classification relies on the spectral
* energy distribution (SED) shape and presence of H{alpha}
* emission/absorption lines (see section 3.2):
* RA = red absoption galaxy. Overall SED shape of a typical early-type red
* galaxy with an H{alpha} absorption line.
* RE = red emission galaxy. Overall SED shape of a typical early-type red
* galaxy, but it has H{alpha} in emission.
* BA = blue absorption galaxy. Overall SED shape of a typical blue galaxy,
* and has an H{alpha} absorption line.
* BE = blue emission galaxy. Overall SED shape of a typical blue galaxy with
* an H{alpha} emission line. In many cases, many emission lines (e.g.,
* H{alpha}, H{beta}, and [OIII]5007) are prominent compared to the
* continuum.
*Note (3): Primary morphology with numerical code defined in table1 as:
* --------------------------------------------------------------------------
* Type Code Subclass
* --------------------------------------------------------------------------
* Elliptical 100
* Disk galaxy 2[0/1][0-7] [1=bar][subtype:0=0,1=a,2=b,3=c,4=d,5=m,
* 6=S or 7=edge-on]
* Irregular 3[0/1]0 [number of prominent HII regions: none
* to low =0, high=1]
* Early-type dwarf gal. 4[0/1][0/1] [subtype:dE=0, dS0=1] [nucleus=1]
* --------------------------------------------------------------------------
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table3.dat' ! Galaxies in the VCC which are not in common
with the EVCC
integer*4 nr__1
parameter (nr__1=1183) ! Number of records
character*134 ar__1 ! Full-size record
C J2000 position composed of: RAdeg DEdeg
integer*4 VCC_1 ! [2/2096] VCC identifier
character*5 NGC_1 ! NGC designation
real*8 RAdeg_1 ! (deg) SExtractor Right Ascension (J2000)
real*8 DEdeg_1 ! (deg) SExtractor Declination (J2000)
real*8 cz_1 ! (km/s) ? SDSS heliocentric radial velocity
real*8 cz2_1 ! (km/s) [3010/108279]? NED heliocentric radial velocity
character*1 MmV_1 ! Membership of galaxy from VCC: M=Member,
* P=Possible, B=background
character*12 MTypV_1 ! Morphology from the VCC
real*4 umag_1 ! (mag) SDSS u-band SExtractor AUTO magnitude
real*4 e_umag_1 ! (mag) Error in umag
real*4 gmag_1 ! (mag) SDSS g-band SExtractor AUTO magnitude
real*4 e_gmag_1 ! (mag) Error in gmag
real*4 rmag_1 ! (mag) SDSS r-band SExtractor AUTO magnitude
real*4 e_rmag_1 ! (mag) Error in rmag
real*4 imag_1 ! (mag) SDSS i-band SExtractor AUTO magnitude
real*4 e_imag_1 ! (mag) Error in imag
real*4 zmag_1 ! (mag) [10.8/21.3] SDSS z-band SExtractor AUTO magnitude
real*4 e_zmag_1 ! (mag) [0.02/0.7] Error in zmag
real*4 Rad_1 ! (arcsec) [2.4/277.5] Kron r-band radius
real*4 R50_1 ! (arcsec) [0.6/36.2] SExtractor Half-light r-band radius
C=============================================================================
C Loading file 'table2.dat' ! The Extended Virgo Cluster Catalog (EVCC)
C Format for file interpretation
1 format(
+ I4,1X,I4,1X,A5,1X,F8.4,1X,F7.4,1X,F8.4,1X,F7.4,1X,F7.4,1X,
+ F6.1,1X,F7.1,1X,A1,1X,A1,1X,A8,1X,A2,1X,I3,1X,A19,1X,F5.2,1X,
+ F5.3,1X,F5.2,1X,F5.3,1X,F5.2,1X,F5.3,1X,F5.2,1X,F5.3,1X,F5.2,
+ 1X,F5.3,1X,F6.2,1X,F6.2)
C Effective file loading
open(unit=1,status='old',file=
+'table2.dat')
write(6,*) '....Loading file: table2.dat'
do i__=1,1589
read(1,'(A186)')ar__
read(ar__,1)
+ EVCC,VCC,NGC,RAdeg,DEdeg,RAFdeg,DEFdeg,Offset,cz,cz2,MmI,MmV,
+ MTyp1,MTyp2,TT1,MTypV,umag,e_umag,gmag,e_gmag,rmag,e_rmag,
+ imag,e_imag,zmag,e_zmag,Rad,R50
if(ar__(6:9) .EQ. '') VCC = iNULL__
if(ar__(34:41) .EQ. '') RAFdeg = rNULL__
if(ar__(43:49) .EQ. '') DEFdeg = rNULL__
if(ar__(51:57) .EQ. '') Offset = rNULL__
if(ar__(59:64) .EQ. '') cz = rNULL__
if(ar__(66:72) .EQ. '') cz2 = rNULL__
c ..............Just test output...........
write(6,1)
+ EVCC,VCC,NGC,RAdeg,DEdeg,RAFdeg,DEFdeg,Offset,cz,cz2,MmI,MmV,
+ MTyp1,MTyp2,TT1,MTypV,umag,e_umag,gmag,e_gmag,rmag,e_rmag,
+ imag,e_imag,zmag,e_zmag,Rad,R50
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table3.dat' ! Galaxies in the VCC which are not in common
* with the EVCC
C Format for file interpretation
2 format(
+ I4,1X,A5,1X,F8.4,1X,F7.4,1X,F9.1,1X,F8.1,1X,A1,1X,A12,1X,F5.2,
+ 1X,F5.3,1X,F5.2,1X,F5.3,1X,F5.2,1X,F5.3,1X,F5.2,1X,F5.3,1X,
+ F5.2,1X,F5.3,1X,F6.2,1X,F5.2)
C Effective file loading
open(unit=1,status='old',file=
+'table3.dat')
write(6,*) '....Loading file: table3.dat'
do i__=1,1183
read(1,'(A134)')ar__1
read(ar__1,2)
+ VCC_1,NGC_1,RAdeg_1,DEdeg_1,cz_1,cz2_1,MmV_1,MTypV_1,umag_1,
+ e_umag_1,gmag_1,e_gmag_1,rmag_1,e_rmag_1,imag_1,e_imag_1,
+ zmag_1,e_zmag_1,Rad_1,R50_1
if(ar__1(29:37) .EQ. '') cz_1 = rNULL__
if(ar__1(39:46) .EQ. '') cz2_1 = rNULL__
c ..............Just test output...........
write(6,2)
+ VCC_1,NGC_1,RAdeg_1,DEdeg_1,cz_1,cz2_1,MmV_1,MTypV_1,umag_1,
+ e_umag_1,gmag_1,e_gmag_1,rmag_1,e_rmag_1,imag_1,e_imag_1,
+ zmag_1,e_zmag_1,Rad_1,R50_1
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end