Conversion of standardized ReadMe file for
file /./ftp/cats/J/ApJ/835/212 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 2024-Apr-19
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/835/212 Wide-field spectrosc. survey of GCs in Virgo cluster (Ko+, 2017)
*================================================================================
*To the edge of M87 and beyond: spectroscopy of intracluster globular clusters
*and ultracompact dwarfs in the Virgo cluster.
* Ko Y., Hwang H.S., Lee M.G., Park H.S., Lim S., Sohn J., Jang I.S.,
* Hwang N., Park B.-G.
* <Astrophys. J., 835, 212-212 (2017)>
* =2017ApJ...835..212K (SIMBAD/NED BibCode)
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table2.dat' ! Spectroscopic and photometric properties of
foreground stars and background galaxies
integer*4 nr__
parameter (nr__=635) ! Number of records
character*76 ar__ ! Full-size record
C J2000 position composed of: RAdeg DEdeg
character*4 S_G ! "STAR" or "GAL"
integer*4 Seq ! Running sequence number within S/G class
real*8 RAdeg ! (deg) Right Ascension in decimal degrees (J2000)
real*8 DEdeg ! (deg) Declination in decimal degrees (J2000)
real*4 imag ! (mag) [17.1/21] CFHT/MegaCam i band AB magnitude
real*4 e_imag ! (mag) [0/0.007] Error in imag
real*4 g_r ! (mag) [0.3/1] The (g-r) color index
real*4 e_g_r ! (mag) Error in g-r
real*4 g_i ! (mag) [0.6/1.7] The (g-i) color index
real*4 e_g_i ! (mag) Error in g-i
integer*4 HRV ! (km/s) [-295/240245] Heliocentric radial velocity
integer*4 e_HRV ! (km/s) [4/431] Error in HRV
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table3.dat' ! Spectroscopic and photometric properties of
the combined globular cluster (GC) sample
integer*4 nr__1
parameter (nr__1=633) ! Number of records
character*119 ar__1 ! Full-size record
C J2000 position composed of: RAdeg DEdeg
character*6 ID ! Identification (1)
real*8 RAdeg_1 ! (deg) Right Ascension in decimal degrees (J2000)
real*8 DEdeg_1 ! (deg) Declination in decimal degrees (J2000)
real*4 imag_1 ! (mag) [17.8/23.5] i band AB magnitude
real*4 e_imag_1 ! (mag) [0.001/0.02]? Error in imag
real*4 g_r_1 ! (mag) [0.3/0.9]? The (g-r) color index
real*4 e_g_r_1 ! (mag) ? Error in g-r
real*4 g_i_1 ! (mag) [0.6/1.3]? The (g-i) color index
real*4 e_g_i_1 ! (mag) ? Error in g-i
character*3 r_phot ! Source of photometry (2)
integer*4 HRV_1 ! (km/s) [-728/2777] Heliocentric radial velocity
integer*4 e_HRV_1 ! (km/s) [5/114] Error in HRV
character*3 r_HRV ! Source of HRV (2)
real*4 rh ! (pc) [1.3/9.2]? Half-light radius
real*4 E_rh ! (pc) [0/1.5]? Upper error in rh
real*4 e_rh_1 ! (pc) [0/1.1]? Lower error in rh
character*3 r_rh ! ? Source of rh (2)
character*13 Gal1 ! Host galaxy determined by Mclust method (3)
character*7 Gal2 ! Host galaxy determined by Rv cut method
*Note (1): GCNNN for sources from this study or HNNNNN/TNNNNN for sources from
* Strader et al. (2011, J/ApJS/197/33; <[SRB2011] {HT}NNNNN> in Simbad)
* or SNNNN for sources from Hanes+, 2001, J/ApJ/559/812;
* <[SFH81] NNNN> in Simbad.
*Note (2): Reference as follows:
* K16 = this study.
* S11 = Strader et al. (2011, J/ApJS/197/33).
* J09 = Jordan et al. (2009, J/ApJS/180/54).
* The magnitudes of this study and S11 are CFHT/MegaCam AB
* and dereddened SDSS AB magnitudes, respectively.
*Note (3): The Mclust subgroup that a given UCD belongs to is in parentheses.
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table4.dat' ! Spectroscopic and photometric properties of
the combined ultracompact dwarf (UCD) sample
integer*4 nr__2
parameter (nr__2=138) ! Number of records
character*103 ar__2 ! Full-size record
C J2000 position composed of: RAdeg DEdeg
character*9 ID_1 ! Identification (1)
real*8 RAdeg_2 ! (deg) Right Ascension in decimal degrees (J2000)
real*8 DEdeg_2 ! (deg) Declination in decimal degrees (J2000)
real*4 imag_2 ! (mag) [17.5/22.3] i band AB magnitude
real*4 e_imag_2 ! (mag) [0.001/0.02]? Error in imag
real*4 g_r_2 ! (mag) [0.4/0.8]? The (g-r) color index
real*4 e_g_r_2 ! (mag) ? Error in g-r
real*4 g_i_2 ! (mag) [0.6/1.2]? The (g-i) color index
real*4 e_g_i_2 ! (mag) ? Error in g-i
character*3 r_phot_1 ! Source of photometry (2)
integer*4 HRV_2 ! (km/s) [-416/2419] Heliocentric radial velocity
integer*4 e_HRV_2 ! (km/s) [2/146] Error in HRV
character*3 r_HRV_1 ! Source of HRV (2)
real*4 rh_1 ! (pc) [0.6/40.2]? Half-light radius
real*4 E_rh_2 ! (pc) [0/8.4]? Upper error in rh
real*4 e_rh_3 ! (pc) [0/8.4]? Lower error in rh
character*3 r_rh_1 ! ? Source of rh (2)
character*1 Mcl ! [A-C] Mclust subgroup that a given UCD belongs to
*Note (1): UCDNN for sources from this study or M87UCD-NN for sources from
* Zhang et al. (2015, J/ApJ/802/30; <[ZPC2015] M87UCD NN> in Simbad) or
* SNNNN for sources from Hanes+, 2001, J/ApJ/559/812;
* <[SFH81] NNNN> in Simbad or HNNNNN/TNNNNN for sources from
* Strader et al. (2011, J/ApJS/197/33; <[SRB2011] {HT}NNNNN> in Simbad).
*Note (2): Reference as follows:
* K16 = this study.
* Z15 = Zhang et al. (2015, J/ApJ/802/30).
* J09 = Jordan et al. (2009, J/ApJS/180/54).
* The magnitudes of this study and Z15 are CFHT/MegaCam AB and
* dereddened SDSS AB magnitudes, respectively.
C=============================================================================
C Loading file 'table2.dat' ! Spectroscopic and photometric properties of
* foreground stars and background galaxies
C Format for file interpretation
1 format(
+ A4,I3,1X,F10.6,1X,F9.6,1X,F6.3,1X,F5.3,1X,F5.3,1X,F5.3,1X,
+ F5.3,1X,F5.3,1X,I6,1X,I3)
C Effective file loading
open(unit=1,status='old',file=
+'table2.dat')
write(6,*) '....Loading file: table2.dat'
do i__=1,635
read(1,'(A76)')ar__
read(ar__,1)
+ S_G,Seq,RAdeg,DEdeg,imag,e_imag,g_r,e_g_r,g_i,e_g_i,HRV,e_HRV
c ..............Just test output...........
write(6,1)
+ S_G,Seq,RAdeg,DEdeg,imag,e_imag,g_r,e_g_r,g_i,e_g_i,HRV,e_HRV
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table3.dat' ! Spectroscopic and photometric properties of
* the combined globular cluster (GC) sample
C Format for file interpretation
2 format(
+ A6,1X,F10.6,1X,F9.6,1X,F6.3,1X,F5.3,1X,F5.3,1X,F5.3,1X,F5.3,
+ 1X,F5.3,1X,A3,1X,I4,1X,I3,1X,A3,1X,F3.1,1X,F3.1,1X,F3.1,1X,A3,
+ 1X,A13,1X,A7)
C Effective file loading
open(unit=1,status='old',file=
+'table3.dat')
write(6,*) '....Loading file: table3.dat'
do i__=1,633
read(1,'(A119)')ar__1
read(ar__1,2)
+ ID,RAdeg_1,DEdeg_1,imag_1,e_imag_1,g_r_1,e_g_r_1,g_i_1,
+ e_g_i_1,r_phot,HRV_1,e_HRV_1,r_HRV,rh,E_rh,e_rh_1,r_rh,Gal1,
+ Gal2
if(ar__1(36:40) .EQ. '') e_imag_1 = rNULL__
if(ar__1(42:46) .EQ. '') g_r_1 = rNULL__
if(ar__1(48:52) .EQ. '') e_g_r_1 = rNULL__
if(ar__1(54:58) .EQ. '') g_i_1 = rNULL__
if(ar__1(60:64) .EQ. '') e_g_i_1 = rNULL__
if(ar__1(83:85) .EQ. '') rh = rNULL__
if(ar__1(87:89) .EQ. '') E_rh = rNULL__
if(ar__1(91:93) .EQ. '') e_rh_1 = rNULL__
c ..............Just test output...........
write(6,2)
+ ID,RAdeg_1,DEdeg_1,imag_1,e_imag_1,g_r_1,e_g_r_1,g_i_1,
+ e_g_i_1,r_phot,HRV_1,e_HRV_1,r_HRV,rh,E_rh,e_rh_1,r_rh,Gal1,
+ Gal2
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table4.dat' ! Spectroscopic and photometric properties of
* the combined ultracompact dwarf (UCD) sample
C Format for file interpretation
3 format(
+ A9,1X,F10.6,1X,F9.6,1X,F6.3,1X,F5.3,1X,F5.3,1X,F5.3,1X,F5.3,
+ 1X,F5.3,1X,A3,1X,I4,1X,I3,1X,A3,1X,F4.1,1X,F3.1,1X,F3.1,1X,A3,
+ 1X,A1)
C Effective file loading
open(unit=1,status='old',file=
+'table4.dat')
write(6,*) '....Loading file: table4.dat'
do i__=1,138
read(1,'(A103)')ar__2
read(ar__2,3)
+ ID_1,RAdeg_2,DEdeg_2,imag_2,e_imag_2,g_r_2,e_g_r_2,g_i_2,
+ e_g_i_2,r_phot_1,HRV_2,e_HRV_2,r_HRV_1,rh_1,E_rh_2,e_rh_3,
+ r_rh_1,Mcl
if(ar__2(39:43) .EQ. '') e_imag_2 = rNULL__
if(ar__2(45:49) .EQ. '') g_r_2 = rNULL__
if(ar__2(51:55) .EQ. '') e_g_r_2 = rNULL__
if(ar__2(57:61) .EQ. '') g_i_2 = rNULL__
if(ar__2(63:67) .EQ. '') e_g_i_2 = rNULL__
if(ar__2(86:89) .EQ. '') rh_1 = rNULL__
if(ar__2(91:93) .EQ. '') E_rh_2 = rNULL__
if(ar__2(95:97) .EQ. '') e_rh_3 = rNULL__
c ..............Just test output...........
write(6,3)
+ ID_1,RAdeg_2,DEdeg_2,imag_2,e_imag_2,g_r_2,e_g_r_2,g_i_2,
+ e_g_i_2,r_phot_1,HRV_2,e_HRV_2,r_HRV_1,rh_1,E_rh_2,e_rh_3,
+ r_rh_1,Mcl
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end