Conversion of standardized ReadMe file for
file /./ftp/cats/J/AJ/110/1774 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.5, on 2013-May-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__=-1.e37) ! NULL real number
parameter (iNULL__=-2147483647) ! NULL int number
C=============================================================================
Cat. J/AJ/110/1774 K giants in Baade's window (Terndrup+ 1995)
*================================================================================
*K Giants in Baade's window. I. Velocity and line-strength measurements
* Terndrup D.M., Sadler E.M., Rich R.M.
* <Astron. J. 110, 1774 (1995)>
* =1995AJ....110.1774T
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table2.dat' ! Photometry and heliocentric radial velocities
integer*4 nr__
parameter (nr__=432) ! Number of records
character*74 ar__ ! Full-size record
character*5 Star (nr__) ! Star identification from Spaenhauer et al.
* (1992AJ....103..297S)
real*8 Vmag (nr__) ! (mag) ? V magnitude
real*4 e_Vmag (nr__) ! (mag) ? Vmag error
real*4 V_I (nr__) ! (mag) ? V-I color
real*4 e_V_I (nr__) ! (mag) ? V-I error
integer*4 RVC (nr__) ! (km/s) ? CTIO velocity
integer*4 e_RVC (nr__) ! (km/s) ? CTIO velocity error
integer*4 RVA (nr__) ! (km/s) ? AAO velocity
integer*4 e_RVA (nr__) ! (km/s) ? AAO velocity error
integer*4 RVh (nr__) ! (km/s) ? Rich (1990) high-resolution velocity (1)
integer*4 RVl (nr__) ! (km/s) ? Rich (1990) low-resolution velocity (1)
integer*4 RV (nr__) ! (km/s) ? Mean velocity
integer*4 e_RV (nr__) ! (km/s) ? Mean velocity error
character*1 Note (nr__) ! [a] If CTIO and AAT velocities discrepant
*Note (1): Radial velocity measured by Rich (1990ApJ...362..604R). Rich's
* spectra were taken either at "low" resolution (4.5A; similar to
* the author's AAT and CTIO spectra) or "high" resolution (2.7A).
* Rich estimates velocity errors of 34km/s (L) and 15km/s (H) for
* the two samples.
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table7.dat' ! Combined line-strength indices
integer*4 nr__1
parameter (nr__1=432) ! Number of records
character*95 ar__1 ! Full-size record
character*5 Star_1 (nr__1) ! Star identification
real*4 Fe5270 (nr__1) ! (mag) ? Fe 5270 line strength index
real*4 e_Fe5270 (nr__1) ! (mag) ? Fe5270 error
real*4 Fe5335 (nr__1) ! (mag) ? Fe 5335 line strength index
real*4 e_Fe5335 (nr__1) ! (mag) ? Fe5335 error
real*4 v_Fe_ (nr__1) ! (mag) ? <Fe> line strength index
real*4 e__Fe_ (nr__1) ! (mag) ? <Fe> error
real*4 HBeta (nr__1) ! (mag) ? H Beta line strength index
real*4 e_HBeta (nr__1) ! (mag) ? HBeta error
real*4 CN (nr__1) ! (mag) ? CN line strength index
real*4 e_CN (nr__1) ! (mag) ? CN error
real*4 Mg1 (nr__1) ! (mag) ? Mg 1 line strength index
real*4 e_Mg1 (nr__1) ! (mag) ? Mg1 error
real*4 Mg2 (nr__1) ! (mag) ? Mg 2 line strength index
real*4 e_Mg2 (nr__1) ! (mag) ? Mg2 error
C=============================================================================
C Loading file 'table2.dat' ! Photometry and heliocentric radial velocities
C Format for file interpretation
1 format(
+ A5,1X,F7.3,1X,F5.3,1X,F6.3,1X,F5.3,1X,I5,1X,I2,1X,I5,1X,I2,1X,
+ I5,1X,I5,1X,I5,1X,I3,1X,A1)
C Effective file loading
open(unit=1,file='table2.dat', status='old')
write(6,*) '....Loading file: table2.dat'
do i__=1,432
read(1,'(A74)')ar__
read(ar__,1)
+ Star(i__),Vmag(i__),e_Vmag(i__),V_I(i__),e_V_I(i__),RVC(i__),
+ e_RVC(i__),RVA(i__),e_RVA(i__),RVh(i__),RVl(i__),RV(i__),
+ e_RV(i__),Note(i__)
if(ar__(7:13) .EQ. '') Vmag(i__) = rNULL__
if(ar__(15:19) .EQ. '') e_Vmag(i__) = rNULL__
if(ar__(21:26) .EQ. '') V_I(i__) = rNULL__
if(ar__(28:32) .EQ. '') e_V_I(i__) = rNULL__
if(ar__(34:38) .EQ. '') RVC(i__) = iNULL__
if(ar__(40:41) .EQ. '') e_RVC(i__) = iNULL__
if(ar__(43:47) .EQ. '') RVA(i__) = iNULL__
if(ar__(49:50) .EQ. '') e_RVA(i__) = iNULL__
if(ar__(52:56) .EQ. '') RVh(i__) = iNULL__
if(ar__(58:62) .EQ. '') RVl(i__) = iNULL__
if(ar__(64:68) .EQ. '') RV(i__) = iNULL__
if(ar__(70:72) .EQ. '') e_RV(i__) = iNULL__
c ..............Just test output...........
write(6,1)
+ Star(i__),Vmag(i__),e_Vmag(i__),V_I(i__),e_V_I(i__),RVC(i__),
+ e_RVC(i__),RVA(i__),e_RVA(i__),RVh(i__),RVl(i__),RV(i__),
+ e_RV(i__),Note(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table7.dat' ! Combined line-strength indices
C Format for file interpretation
2 format(
+ A5,1X,F5.2,1X,F5.2,1X,F5.2,1X,F5.2,1X,F5.2,1X,F5.2,1X,F5.2,1X,
+ F5.2,1X,F6.3,1X,F6.3,1X,F6.3,1X,F6.3,1X,F6.3,1X,F6.3)
C Effective file loading
open(unit=1,file='table7.dat', status='old')
write(6,*) '....Loading file: table7.dat'
do i__=1,432
read(1,'(A95)')ar__1
read(ar__1,2)
+ Star_1(i__),Fe5270(i__),e_Fe5270(i__),Fe5335(i__),
+ e_Fe5335(i__),v_Fe_(i__),e__Fe_(i__),HBeta(i__),e_HBeta(i__),
+ CN(i__),e_CN(i__),Mg1(i__),e_Mg1(i__),Mg2(i__),e_Mg2(i__)
if(ar__1(7:11) .EQ. '') Fe5270(i__) = rNULL__
if(ar__1(13:17) .EQ. '') e_Fe5270(i__) = rNULL__
if(ar__1(19:23) .EQ. '') Fe5335(i__) = rNULL__
if(ar__1(25:29) .EQ. '') e_Fe5335(i__) = rNULL__
if(ar__1(31:35) .EQ. '') v_Fe_(i__) = rNULL__
if(ar__1(37:41) .EQ. '') e__Fe_(i__) = rNULL__
if(ar__1(43:47) .EQ. '') HBeta(i__) = rNULL__
if(ar__1(49:53) .EQ. '') e_HBeta(i__) = rNULL__
if(ar__1(55:60) .EQ. '') CN(i__) = rNULL__
if(ar__1(62:67) .EQ. '') e_CN(i__) = rNULL__
if(ar__1(69:74) .EQ. '') Mg1(i__) = rNULL__
if(ar__1(76:81) .EQ. '') e_Mg1(i__) = rNULL__
if(ar__1(83:88) .EQ. '') Mg2(i__) = rNULL__
if(ar__1(90:95) .EQ. '') e_Mg2(i__) = rNULL__
c ..............Just test output...........
write(6,2)
+ Star_1(i__),Fe5270(i__),e_Fe5270(i__),Fe5335(i__),
+ e_Fe5335(i__),v_Fe_(i__),e__Fe_(i__),HBeta(i__),e_HBeta(i__),
+ CN(i__),e_CN(i__),Mg1(i__),e_Mg1(i__),Mg2(i__),e_Mg2(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end