Conversion of standardized ReadMe file for
file /./ftp/cats/J/A_A/499/737 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 2026-Oct-11
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/499/737 Abundances of microlensed dwarf and subgiant stars (Bensby+, 2009)
*================================================================================
*Chemical evolution of the Galactic bulge as traced by microlensed dwarf and
*subgiant stars. Detailed abundance analysis of OGLE-2008-BLG-209S.
* Bensby T., Johnson J.A., Cohen J., Feltzing S., Udalski A., Gould A.,
* Huang W., Thompson I., Simmerer J., Aden D.
* <Astron. Astrophys. 499, 737 (2009)>
* =2009A&A...499..737B
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table2.dat' ! Equivalent width measurements and elemental
abundances for OGLE-2008-BLG-209S,
OGLE-2006-BLG-265S, MOA-2006-BLG-099S, and
OGLE-2007-BLG-349S
integer*4 nr__
parameter (nr__=460) ! Number of records
character*106 ar__ ! Full-size record
character*2 El ! Element
integer*4 Ion ! Neutral or ionised element
real*8 lambda ! (0.1nm) Wavelength
real*4 loggf ! Oscillator strength
real*4 EP ! (eV) Lower excitation potential
real*4 EWsun ! (0.1pm) Sun measured equivalent width
real*4 A_Sun ! Sun absolute abundance (log scale, A(H)=12)
integer*4 f_A_Sun ! [0,1] 0 if line not directly measured (1)
real*4 EW209 ! (0.1pm) ? OGLE-2009-BLG-209S Measured equivalent width
real*4 A_209 ! ? OGLE-2009-BLG-209S Absolute abundance
real*4 v_X_H_209 ! ([Sun]) ? OGLE-2009-BLG-209S Normalised abundance
real*4 EW265 ! (0.1pm) ? OGLE-2006-BLG-265S Measured equivalent width
real*4 A_265 ! ? OGLE-2006-BLG-265S Absolute abundance
real*4 v_X_H_265 ! ([Sun]) ? OGLE-2006-BLG-265S Normalised abundance
real*4 EW099 ! (0.1pm) ? MOA-2006-BLG-099S Measured equivalent width
real*4 A_099 ! ? MOA-2006-BLG-099S Absolute abundance
real*4 v_X_H_099 ! ([Sun]) ? MOA-2006-BLG-099S Normalised abundance
real*4 EW349 ! (0.1pm) ? OGLE-2007-BLG-349S Measured equivalent with
real*4 A_349 ! ? OGLE-2007-BLG-349S Absolute abundance
real*4 v_X_H_349 ! ([Sun]) ? OGLE-2007-BLG-349S Normalised abundance
*Note (1): The value 0 indicates a line not measured in the solar spectrum
* and that the abundance given (and used in the normalisation) for that
* line is the average abundance based on all the other lines, that could
* be measured in the solar spectrum, of the same species.
C=============================================================================
C Loading file 'table2.dat' ! Equivalent width measurements and elemental
* abundances for OGLE-2008-BLG-209S,
* OGLE-2006-BLG-265S, MOA-2006-BLG-099S, and
* OGLE-2007-BLG-349S
C Format for file interpretation
1 format(
+ A2,1X,I1,1X,F8.3,1X,F5.2,1X,F5.2,1X,F5.1,1X,F4.2,1X,I1,1X,
+ F5.1,1X,F4.2,1X,F5.2,1X,F5.1,1X,F4.2,1X,F5.2,1X,F5.1,1X,F4.2,
+ 1X,F5.2,1X,F5.1,1X,F4.2,1X,F5.2)
C Effective file loading
open(unit=1,status='old',file=
+'table2.dat')
write(6,*) '....Loading file: table2.dat'
do i__=1,460
read(1,'(A106)')ar__
read(ar__,1)
+ El,Ion,lambda,loggf,EP,EWsun,A_Sun,f_A_Sun,EW209,A_209,
+ v_X_H_209,EW265,A_265,v_X_H_265,EW099,A_099,v_X_H_099,EW349,
+ A_349,v_X_H_349
if(ar__(40:44) .EQ. '') EW209 = rNULL__
if(ar__(46:49) .EQ. '') A_209 = rNULL__
if(ar__(51:55) .EQ. '') v_X_H_209 = rNULL__
if(ar__(57:61) .EQ. '') EW265 = rNULL__
if(ar__(63:66) .EQ. '') A_265 = rNULL__
if(ar__(68:72) .EQ. '') v_X_H_265 = rNULL__
if(ar__(74:78) .EQ. '') EW099 = rNULL__
if(ar__(80:83) .EQ. '') A_099 = rNULL__
if(ar__(85:89) .EQ. '') v_X_H_099 = rNULL__
if(ar__(91:95) .EQ. '') EW349 = rNULL__
if(ar__(97:100) .EQ. '') A_349 = rNULL__
if(ar__(102:106) .EQ. '') v_X_H_349 = rNULL__
c ..............Just test output...........
write(6,1)
+ El,Ion,lambda,loggf,EP,EWsun,A_Sun,f_A_Sun,EW209,A_209,
+ v_X_H_209,EW265,A_265,v_X_H_265,EW099,A_099,v_X_H_099,EW349,
+ A_349,v_X_H_349
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end