Conversion of standardized ReadMe file for
file /./ftp/cats/J/A_A/352/117 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/A+A/352/117 Galactic lithium evolution revisited (Romano+, 1999)
*================================================================================
*The Galactic lithium evolution revisited
* Romano D., Matteucci F., Molaro P., Bonifacio P.
* <Astron. Astrophys. 352, 117 (1999)>
* =1999A&A...352..117R (SIMBAD/NED BibCode)
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table3.dat' ! Data sample. Kinematics and evolutionary status
integer*4 nr__
parameter (nr__=145) ! Number of records
character*79 ar__ ! Full-size record
integer*4 HD ! ? HD (Cat. <III/135>) number
character*11 DM ! DM (Cat. <I/122>) name
character*8 G ! G (Giclas, Cat. <I/79> & <I/112>) name
integer*4 HIP ! HIP (Cat. <I/239>) number
integer*4 Uvel ! (km/s) ? 1st component of the heliocentric space-velocity
integer*4 Vvel ! (km/s) ? 2nd component of the heliocentric space-velocity
integer*4 Wvel ! (km/s) ? 3rd component of the heliocentric space-velocity
integer*4 e_Uvel ! (km/s) ? Error on Uvel
integer*4 e_Vvel ! (km/s) ? Error on Vvel
integer*4 e_Wvel ! (km/s) ? Error on Wvel
character*4 Mem ! Kinematical membership (1)
character*5 Evol ! Evolutionary status (2)
*Note (1): Kinematical membership of the stars to specific Galactic components:
* disk: Galactic disk (either thin or thick)
* halo: Galactic halo
* ?: uncertain kinematical membership
* blank: no radial velocity measure available --> no kinematical
* membership estimate allowed
*Note (2): Evolutionary status:
* to: turn-off
* sg: subgiant
* sg-to: uncertain evolutionary status
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table4.dat' ! Data sample. Effective temperatures, gravities,
metallicities and lithium abundances as taken
from the literature.
integer*4 nr__1
parameter (nr__1=188) ! Number of records
character*44 ar__1 ! Full-size record
integer*4 HIP_1 ! HIP (Cat. <I/239>) name
integer*4 Teff ! (K) Effective temperature
real*4 log_g ! ([s/cm+2]) ? Logarithm of gravity
real*4 v_Fe_H_ ! (Sun) ? Metallicity
character*1 Type ! [sp] Type of determination (1)
real*4 EW_Li ! (0.1pm) Lithium equivalent width
real*4 A_Li ! (Sun) Lithium abundance
character*1 Note ! [up] Note (2)
integer*4 Ref ! [1/7] References (3)
*Note (1): s: spectroscopic metallicity determination
* p: photometric metallicity determination
*Note (2): u: upper limit
* blank: detection
*Note (3): References:
* 1: Deliyannis et al., 1990ApJS...73...21D (their SS)
* 2: Deliyannis et al., 1990ApJS...73...21D (their HD)
* 3: Deliyannis et al., 1990ApJS...73...21D (their RMB)
* 4: Lambert et al., 1991MNRAS.253..610L
* 5: Pilachowski et al., 1993ApJ...407..699P
* 6: Pasquini et al., 1994A&A...287..191P
* 7: Spite et al., 1996A&A...307..172S
C=============================================================================
C Loading file 'table3.dat' ! Data sample. Kinematics and evolutionary status
C Format for file interpretation
1 format(
+ 3X,I6,1X,A11,1X,A8,5X,I6,1X,I4,1X,I4,1X,I4,1X,I3,1X,I3,1X,I3,
+ 1X,A4,1X,A5)
C Effective file loading
open(unit=1,status='old',file=
+'table3.dat')
write(6,*) '....Loading file: table3.dat'
do i__=1,145
read(1,'(A79)')ar__
read(ar__,1)
+ HD,DM,G,HIP,Uvel,Vvel,Wvel,e_Uvel,e_Vvel,e_Wvel,Mem,Evol
if(ar__(4:9) .EQ. '') HD = iNULL__
if(ar__(43:46) .EQ. '') Uvel = iNULL__
if(ar__(48:51) .EQ. '') Vvel = iNULL__
if(ar__(53:56) .EQ. '') Wvel = iNULL__
if(ar__(58:60) .EQ. '') e_Uvel = iNULL__
if(ar__(62:64) .EQ. '') e_Vvel = iNULL__
if(ar__(66:68) .EQ. '') e_Wvel = iNULL__
c ..............Just test output...........
write(6,1)
+ HD,DM,G,HIP,Uvel,Vvel,Wvel,e_Uvel,e_Vvel,e_Wvel,Mem,Evol
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table4.dat' ! Data sample. Effective temperatures, gravities,
* metallicities and lithium abundances as taken
* from the literature.
C Format for file interpretation
2 format(
+ 4X,I6,1X,I4,1X,F4.2,1X,F5.2,1X,A1,1X,F5.1,1X,F5.2,1X,A1,1X,I1)
C Effective file loading
open(unit=1,status='old',file=
+'table4.dat')
write(6,*) '....Loading file: table4.dat'
do i__=1,188
read(1,'(A44)')ar__1
read(ar__1,2)HIP_1,Teff,log_g,v_Fe_H_,Type,EW_Li,A_Li,Note,Ref
if(ar__1(17:20) .EQ. '') log_g = rNULL__
if(ar__1(22:26) .EQ. '') v_Fe_H_ = rNULL__
c ..............Just test output...........
write(6,2)HIP_1,Teff,log_g,v_Fe_H_,Type,EW_Li,A_Li,Note,Ref
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end