Conversion of standardized ReadMe file for
file /./ftp/cats/J/AJ/131/814 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/AJ/131/814 VCC 1087 globular cluster system (Beasley+, 2006)
*================================================================================
*The globular cluster system of the Virgo dwarf elliptical galaxy VCC 1087.
* Beasley M.A., Strader J., Brodie J.P., Cenarro A.J., Geha M.
* <Astron. J., 131, 814-827 (2006)>
* =2006AJ....131..814B
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table1.dat' ! Basic data for VCC 1087 globular clusters
integer*4 nr__
parameter (nr__=13) ! Number of records
character*72 ar__ ! Full-size record
C J2000.0 position composed of: RAdeg DEdeg
character*6 v_BSB2006_ ! Source name
real*8 RAdeg ! (deg) Right Ascension (J2000.0)
real*8 DEdeg ! (deg) Declination (J2000.0)
real*4 g475 ! (mag) g_475_ magnitude in the AB system (1)
real*4 e_g475 ! (mag) Error in g475mag
real*4 z850 ! (mag) z_850_ magnitude in the AB system (1)
real*4 e_z850 ! (mag) Error in z850mag
real*4 g_z ! (mag) g_475_-z_850_ color index in the AB system
real*4 e_g_z ! (mag) Error in g475-z850
integer*4 RV ! (km/s) Radial velocity
integer*4 e_RV ! (km/s) Error in RV
character*1 f_RV ! [a] Velocity from the integrated light of the
* nucleus+stellar envelope
*Note (1): We follow the convention of Cote et al. (2004, Cat. <J/ApJS/153/223>)
* and refer to the ACS F475W and F850LP filters as g_475_ and z_850_,
* respectively.
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table3.dat' ! Lick/IDS indices and uncertainties for VCC 1087
globular clusters
integer*4 nr__1
parameter (nr__1=13) ! Number of records
character*227 ar__1 ! Full-size record
character*6 v_BSB2006__1 ! Source name
real*4 HdA ! (0.1nm) Lick/IDS H{delta}_A_ index (1)
real*4 e_HdA ! (0.1nm) Uncertainty in HdF (1)
real*4 HdF ! (0.1nm) Lick/IDS H{delta}_F_ index (1)
real*4 e_HdF ! (0.1nm) Uncertainty in HdF (1)
real*4 CN1 ! (mag) Lick/IDS CN_1_ index
real*4 e_CN1 ! (mag) Uncertainty in CN1
real*4 CN2 ! (mag) Lick/IDS CN_2_ index
real*4 e_CN2 ! (mag) Uncertainty in CN2
real*4 Ca4227 ! (0.1nm) Lick/IDS Ca4227 index (1)
real*4 e_Ca4227 ! (0.1nm) Uncertainty in Ca4227 (1)
real*4 G4300 ! (0.1nm) Lick/IDS G4300 index (1)
real*4 e_G4300 ! (0.1nm) Uncertainty in G4300 (1)
real*4 HgA ! (0.1nm) Lick/IDS H{gamma}_A_ index (1)
real*4 e_HgA ! (0.1nm) Uncertainty in HgF (1)
real*4 HgF ! (0.1nm) Lick/IDS H{gamma}_F_ index (1)
real*4 e_HgF ! (0.1nm) Uncertainty in HgF (1)
real*4 Fe4384 ! (0.1nm) Lick/IDS Fe4384 index (1)
real*4 e_Fe4384 ! (0.1nm) Uncertainty in Fe4384 (1)
real*4 Ca4455 ! (0.1nm) Lick/IDS Ca4455 index (1)
real*4 e_Ca4455 ! (0.1nm) Uncertainty in Ca4455 (1)
real*4 Fe4531 ! (0.1nm) Lick/IDS Fe4531 index (1)
real*4 e_Fe4531 ! (0.1nm) Uncertainty in Fe4531 (1)
real*4 C2_4668 ! (0.1nm) Lick/IDS C_2_4668 index (1)
real*4 e_C2_4668 ! (0.1nm) Uncertainty in C2-4668 (1)
real*4 Hb ! (0.1nm) Lick/IDS H{beta} index (1)
real*4 e_Hb ! (0.1nm) Uncertainty in Hb (1)
real*4 Fe5015 ! (0.1nm) Lick/IDS Fe5015 index (1)
real*4 e_Fe5015 ! (0.1nm) Uncertainty in Fe5015 (1)
real*4 Mg1 ! (mag) Lick/IDS Mg_1_ index
real*4 e_Mg1 ! (mag) Uncertainty in Mg1
real*4 Mg2 ! (mag) Lick/IDS Mg_2_ index
real*4 e_Mg2 ! (mag) Uncertainty in Mg2
real*4 Mgb ! (0.1nm) Lick/IDS Mg_b_ index (1)
real*4 e_Mgb ! (0.1nm) Uncertainty in Mgb (1)
real*4 Fe5270 ! (0.1nm) Lick/IDS Fe5270 index (1)
real*4 e_Fe5270 ! (0.1nm) Uncertainty in Fe5270 (1)
real*4 Fe5335 ! (0.1nm) Lick/IDS Fe5335 index (1)
real*4 e_Fe5335 ! (0.1nm) Uncertainty in Fe5335 (1)
real*4 Fe5406 ! (0.1nm) Lick/IDS Fe5406 index (1)
real*4 e_Fe5406 ! (0.1nm) Uncertainty in Fe5406 (1)
*Note (1): In units of Angstroms.
C=============================================================================
C Loading file 'table1.dat' ! Basic data for VCC 1087 globular clusters
C Format for file interpretation
1 format(
+ A6,2X,F9.5,1X,F8.5,1X,F6.3,1X,F5.3,1X,F6.3,1X,F5.3,1X,F5.3,1X,
+ F5.3,1X,I3,1X,I2,A1)
C Effective file loading
open(unit=1,status='old',file=
+'table1.dat')
write(6,*) '....Loading file: table1.dat'
do i__=1,13
read(1,'(A72)')ar__
read(ar__,1)
+ v_BSB2006_,RAdeg,DEdeg,g475,e_g475,z850,e_z850,g_z,e_g_z,RV,
+ e_RV,f_RV
c ..............Just test output...........
write(6,1)
+ v_BSB2006_,RAdeg,DEdeg,g475,e_g475,z850,e_z850,g_z,e_g_z,RV,
+ e_RV,f_RV
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table3.dat' ! Lick/IDS indices and uncertainties for VCC 1087
* globular clusters
C Format for file interpretation
2 format(
+ A6,1X,F5.2,1X,F4.2,1X,F4.2,1X,F4.2,1X,F6.3,1X,F5.3,1X,F6.3,1X,
+ F5.3,1X,F5.2,1X,F4.2,1X,F5.2,1X,F4.2,1X,F5.2,1X,F4.2,1X,F5.2,
+ 1X,F4.2,1X,F5.2,1X,F4.2,1X,F5.2,1X,F4.2,1X,F5.2,1X,F4.2,1X,
+ F5.2,1X,F4.2,1X,F4.2,1X,F4.2,1X,F4.2,1X,F4.2,1X,F5.3,1X,F5.3,
+ 1X,F5.3,1X,F5.3,1X,F4.2,1X,F4.2,1X,F5.2,1X,F4.2,1X,F4.2,1X,
+ F4.2,1X,F5.2,1X,F4.2)
C Effective file loading
open(unit=1,status='old',file=
+'table3.dat')
write(6,*) '....Loading file: table3.dat'
do i__=1,13
read(1,'(A227)')ar__1
read(ar__1,2)
+ v_BSB2006__1,HdA,e_HdA,HdF,e_HdF,CN1,e_CN1,CN2,e_CN2,Ca4227,
+ e_Ca4227,G4300,e_G4300,HgA,e_HgA,HgF,e_HgF,Fe4384,e_Fe4384,
+ Ca4455,e_Ca4455,Fe4531,e_Fe4531,C2_4668,e_C2_4668,Hb,e_Hb,
+ Fe5015,e_Fe5015,Mg1,e_Mg1,Mg2,e_Mg2,Mgb,e_Mgb,Fe5270,e_Fe5270,
+ Fe5335,e_Fe5335,Fe5406,e_Fe5406
c ..............Just test output...........
write(6,2)
+ v_BSB2006__1,HdA,e_HdA,HdF,e_HdF,CN1,e_CN1,CN2,e_CN2,Ca4227,
+ e_Ca4227,G4300,e_G4300,HgA,e_HgA,HgF,e_HgF,Fe4384,e_Fe4384,
+ Ca4455,e_Ca4455,Fe4531,e_Fe4531,C2_4668,e_C2_4668,Hb,e_Hb,
+ Fe5015,e_Fe5015,Mg1,e_Mg1,Mg2,e_Mg2,Mgb,e_Mgb,Fe5270,e_Fe5270,
+ Fe5335,e_Fe5335,Fe5406,e_Fe5406
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end