Conversion of standardized ReadMe file for
file /./ftp/cats/J/AJ/112/545 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 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/112/545 Proton capture chains in globular clusters. I. (Pilachowski+ 1996)
*================================================================================
*Proton capture chains in globular cluster stars. I.
*Evidence for deep mixing based on sodium and magnesium abundances in M13 giants
* Pilachowski C.A., Sneden C., Kraft R.P., Langer G.E.
* <Astron. J. 112, 545 (1996)>
* =1996AJ....112..545P
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table1.dat' ! M13 star basic data and results
integer*4 nr__
parameter (nr__=168) ! Number of records
character*72 ar__ ! Full-size record
character*6 Star (nr__) ! *Primary designation
character*7 Alt (nr__) ! *Alternate designation
real*4 Vmag (nr__) ! (mag) *V magnitude
real*4 B_V (nr__) ! (mag) *[]? B-V color
real*4 Mvo (nr__) ! (mag) Estimated absolute V magnitude
character*3 Branch (nr__) ! Evolutionary status (Red Giant Branch, RGB,
* Asymptotic Giant Branch, AGB)
character*1 u_Branch (nr__) ! [?] Branch uncertainty flag
integer*4 Code (nr__) ! *Analysis code
integer*4 Teff (nr__) ! (K) []? Effective temperature
real*4 log_g (nr__) ! ([cm/s2]) []? log(10) of the surface gravity
real*4 vt (nr__) ! (km/s) []? Microturbulence
real*4 v_Na_Fe_ (nr__) ! []? Sodium abundance relative to iron
real*4 v_Mg_Fe_ (nr__) ! []? Magnesium abundance relative to iron
*Note on Star:
* Primary star name references:
* L = Ludendorf, (1905POPot..50....1L)
* K = Kadla, (1966IzPul.181...93K)
* CM = Cudworth & Monet, (1979AJ.....84..774C)
*Note on Alt:
* Alternate star name references:
* SA, SB = Savedoff, (1956AJ.....61..254S)
* V (variable stars) = Hogg, (1973PDDO....3....6S)
* BAUM = Baum, (1954AJ.....59..422B)
* "Roman numerals" = Arp, (1955AJ.....60..317A)
* remaining designations appear either in Arp & Johnson, (1955ApJ...122..171A)
* (their Figure 4) or in Sandage, (1970ApJ...162..841S) (his Figure 5).
*Note on Vmag, B-V:
* V and B-V from Cudworth & Monet, (1979AJ.....84..774C)
*Note on Code:
* Definitions of the code numbers:
* 1 = good enough spectrum to derive both sodium and magnesium abundances
* 2 = good enough spectrum to derive a sodium abundance, but not magnesium
* 3 = essentially no flux in the reduced spectrum; mis-positioned fiber?
* 4 = very weak absorption spectrum; possibly a warm star?
* 5 = hot horizontal branch star
* 6 = poor signal-to-noise in the reduced spectrum
C=============================================================================
C Loading file 'table1.dat' ! M13 star basic data and results
C Format for file interpretation
1 format(
+ A6,1X,A7,1X,F5.2,1X,F5.2,1X,F5.1,2X,A3,A1,1X,I1,1X,I5,1X,F5.2,
+ 1X,F5.2,1X,F6.2,1X,F6.2)
C Effective file loading
open(unit=1,status='old',file=
+'table1.dat')
write(6,*) '....Loading file: table1.dat'
do i__=1,168
read(1,'(A72)')ar__
read(ar__,1)
+ Star(i__),Alt(i__),Vmag(i__),B_V(i__),Mvo(i__),Branch(i__),
+ u_Branch(i__),Code(i__),Teff(i__),log_g(i__),vt(i__),
+ v_Na_Fe_(i__),v_Mg_Fe_(i__)
if(ar__(22:26) .EQ. '') B_V(i__) = rNULL__
if(ar__(42:46) .EQ. '') Teff(i__) = iNULL__
if(ar__(48:52) .EQ. '') log_g(i__) = rNULL__
if(ar__(54:58) .EQ. '') vt(i__) = rNULL__
if(ar__(60:65) .EQ. '') v_Na_Fe_(i__) = rNULL__
if(ar__(67:72) .EQ. '') v_Mg_Fe_(i__) = rNULL__
c ..............Just test output...........
write(6,1)
+ Star(i__),Alt(i__),Vmag(i__),B_V(i__),Mvo(i__),Branch(i__),
+ u_Branch(i__),Code(i__),Teff(i__),log_g(i__),vt(i__),
+ v_Na_Fe_(i__),v_Mg_Fe_(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end