Conversion of standardized ReadMe file for
file /./ftp/cats/J/ApJS/215/22 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-Sep-10
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 (nr__) ! [1/2264] EVCC identifier (1)
integer*4 VCC (nr__) ! [1/2095]? VCC identifier
character*5 NGC (nr__) ! ? NGC designation
real*8 RAdeg (nr__) ! (deg) SExtractor Right Ascension (J2000)
real*8 DEdeg (nr__) ! (deg) SExtractor Declination (J2000)
real*8 RAFdeg (nr__) ! (deg) ? SDSS fiber location Right Ascension (J2000)
real*8 DEFdeg (nr__) ! (deg) ? SDSS fiber location Declination (J2000)
real*8 Offset (nr__) ! (arcsec) [0/86.5]? Offset between photometric center
* and SDSS fiber location
real*4 cz (nr__) ! (km/s) [-745/2983]? SDSS heliocentric radial velocity
real*8 cz2 (nr__) ! (km/s) [-731/98610]? NED heliocentric radial velocity
character*1 MmI (nr__) ! [MP] Membership of galaxy from Virgo cluster
* infall model (M=Member; P=Possible)
character*1 MmV (nr__) ! Membership of galaxy from VCC: M=Member,
* P=Possible, B=background
character*8 MTyp1 (nr__) ! Primary morphology
character*2 MTyp2 (nr__) ! Secondary (SED) morphology (2)
integer*4 TT1 (nr__) ! [100/411] Numerical primary morphology (3)
character*19 MTypV (nr__) ! Morphology from the VCC
real*4 umag (nr__) ! (mag) SDSS u-band SExtractor AUTO magnitude
real*4 e_umag (nr__) ! (mag) Error in umag
real*4 gmag (nr__) ! (mag) SDSS g-band SExtractor AUTO magnitude
real*4 e_gmag (nr__) ! (mag) Error in gmag
real*4 rmag (nr__) ! (mag) SDSS r-band SExtractor AUTO magnitude
real*4 e_rmag (nr__) ! (mag) Error in rmag
real*4 imag (nr__) ! (mag) SDSS i-band SExtractor AUTO magnitude
real*4 e_imag (nr__) ! (mag) Error in imag
real*4 zmag (nr__) ! (mag) [7.6/19.7] SDSS z-band SExtractor AUTO magnitude
real*4 e_zmag (nr__) ! (mag) [0.03/2] Error in zmag
real*4 Rad (nr__) ! (arcsec) [4.9/477] Kron r-band radius
real*4 R50 (nr__) ! (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 (nr__1) ! [2/2096] VCC identifier
character*5 NGC_1 (nr__1) ! NGC designation
real*8 RAdeg_1 (nr__1) ! (deg) SExtractor Right Ascension (J2000)
real*8 DEdeg_1 (nr__1) ! (deg) SExtractor Declination (J2000)
real*8 cz_1 (nr__1) ! (km/s) ? SDSS heliocentric radial velocity
real*8 cz2_1 (nr__1) ! (km/s) [3010/108279]? NED heliocentric radial velocity
character*1 MmV_1 (nr__1) ! Membership of galaxy from VCC: M=Member,
* P=Possible, B=background
character*12 MTypV_1 (nr__1) ! Morphology from the VCC
real*4 umag_1 (nr__1) ! (mag) SDSS u-band SExtractor AUTO magnitude
real*4 e_umag_1 (nr__1) ! (mag) Error in umag
real*4 gmag_1 (nr__1) ! (mag) SDSS g-band SExtractor AUTO magnitude
real*4 e_gmag_1 (nr__1) ! (mag) Error in gmag
real*4 rmag_1 (nr__1) ! (mag) SDSS r-band SExtractor AUTO magnitude
real*4 e_rmag_1 (nr__1) ! (mag) Error in rmag
real*4 imag_1 (nr__1) ! (mag) SDSS i-band SExtractor AUTO magnitude
real*4 e_imag_1 (nr__1) ! (mag) Error in imag
real*4 zmag_1 (nr__1) ! (mag) [10.8/21.3] SDSS z-band SExtractor AUTO magnitude
real*4 e_zmag_1 (nr__1) ! (mag) [0.02/0.7] Error in zmag
real*4 Rad_1 (nr__1) ! (arcsec) [2.4/277.5] Kron r-band radius
real*4 R50_1 (nr__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(i__),VCC(i__),NGC(i__),RAdeg(i__),DEdeg(i__),RAFdeg(i__),
+ DEFdeg(i__),Offset(i__),cz(i__),cz2(i__),MmI(i__),MmV(i__),
+ MTyp1(i__),MTyp2(i__),TT1(i__),MTypV(i__),umag(i__),
+ e_umag(i__),gmag(i__),e_gmag(i__),rmag(i__),e_rmag(i__),
+ imag(i__),e_imag(i__),zmag(i__),e_zmag(i__),Rad(i__),R50(i__)
if(ar__(6:9) .EQ. '') VCC(i__) = iNULL__
if(ar__(34:41) .EQ. '') RAFdeg(i__) = rNULL__
if(ar__(43:49) .EQ. '') DEFdeg(i__) = rNULL__
if(ar__(51:57) .EQ. '') Offset(i__) = rNULL__
if(ar__(59:64) .EQ. '') cz(i__) = rNULL__
if(ar__(66:72) .EQ. '') cz2(i__) = rNULL__
c ..............Just test output...........
write(6,1)
+ EVCC(i__),VCC(i__),NGC(i__),RAdeg(i__),DEdeg(i__),RAFdeg(i__),
+ DEFdeg(i__),Offset(i__),cz(i__),cz2(i__),MmI(i__),MmV(i__),
+ MTyp1(i__),MTyp2(i__),TT1(i__),MTypV(i__),umag(i__),
+ e_umag(i__),gmag(i__),e_gmag(i__),rmag(i__),e_rmag(i__),
+ imag(i__),e_imag(i__),zmag(i__),e_zmag(i__),Rad(i__),R50(i__)
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(i__),NGC_1(i__),RAdeg_1(i__),DEdeg_1(i__),cz_1(i__),
+ cz2_1(i__),MmV_1(i__),MTypV_1(i__),umag_1(i__),e_umag_1(i__),
+ gmag_1(i__),e_gmag_1(i__),rmag_1(i__),e_rmag_1(i__),
+ imag_1(i__),e_imag_1(i__),zmag_1(i__),e_zmag_1(i__),
+ Rad_1(i__),R50_1(i__)
if(ar__1(29:37) .EQ. '') cz_1(i__) = rNULL__
if(ar__1(39:46) .EQ. '') cz2_1(i__) = rNULL__
c ..............Just test output...........
write(6,2)
+ VCC_1(i__),NGC_1(i__),RAdeg_1(i__),DEdeg_1(i__),cz_1(i__),
+ cz2_1(i__),MmV_1(i__),MTypV_1(i__),umag_1(i__),e_umag_1(i__),
+ gmag_1(i__),e_gmag_1(i__),rmag_1(i__),e_rmag_1(i__),
+ imag_1(i__),e_imag_1(i__),zmag_1(i__),e_zmag_1(i__),
+ Rad_1(i__),R50_1(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end