Conversion of standardized ReadMe file for
file /./ftp/cats/J/A_A/499/737 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 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 (nr__) ! Element
integer*4 Ion (nr__) ! Neutral or ionised element
real*8 lambda (nr__) ! (0.1nm) Wavelength
real*4 loggf (nr__) ! Oscillator strength
real*4 EP (nr__) ! (eV) Lower excitation potential
real*4 EWsun (nr__) ! (0.1pm) Sun measured equivalent width
real*4 A_Sun (nr__) ! Sun absolute abundance (log scale, A(H)=12)
integer*4 f_A_Sun (nr__) ! [0,1] 0 if line not directly measured (1)
real*4 EW209 (nr__) ! (0.1pm) ? OGLE-2009-BLG-209S Measured equivalent width
real*4 A_209 (nr__) ! ? OGLE-2009-BLG-209S Absolute abundance
real*4 v_X_H_209 (nr__) ! ([Sun]) ? OGLE-2009-BLG-209S Normalised abundance
real*4 EW265 (nr__) ! (0.1pm) ? OGLE-2006-BLG-265S Measured equivalent width
real*4 A_265 (nr__) ! ? OGLE-2006-BLG-265S Absolute abundance
real*4 v_X_H_265 (nr__) ! ([Sun]) ? OGLE-2006-BLG-265S Normalised abundance
real*4 EW099 (nr__) ! (0.1pm) ? MOA-2006-BLG-099S Measured equivalent width
real*4 A_099 (nr__) ! ? MOA-2006-BLG-099S Absolute abundance
real*4 v_X_H_099 (nr__) ! ([Sun]) ? MOA-2006-BLG-099S Normalised abundance
real*4 EW349 (nr__) ! (0.1pm) ? OGLE-2007-BLG-349S Measured equivalent with
real*4 A_349 (nr__) ! ? OGLE-2007-BLG-349S Absolute abundance
real*4 v_X_H_349 (nr__) ! ([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(i__),Ion(i__),lambda(i__),loggf(i__),EP(i__),EWsun(i__),
+ A_Sun(i__),f_A_Sun(i__),EW209(i__),A_209(i__),v_X_H_209(i__),
+ EW265(i__),A_265(i__),v_X_H_265(i__),EW099(i__),A_099(i__),
+ v_X_H_099(i__),EW349(i__),A_349(i__),v_X_H_349(i__)
if(ar__(40:44) .EQ. '') EW209(i__) = rNULL__
if(ar__(46:49) .EQ. '') A_209(i__) = rNULL__
if(ar__(51:55) .EQ. '') v_X_H_209(i__) = rNULL__
if(ar__(57:61) .EQ. '') EW265(i__) = rNULL__
if(ar__(63:66) .EQ. '') A_265(i__) = rNULL__
if(ar__(68:72) .EQ. '') v_X_H_265(i__) = rNULL__
if(ar__(74:78) .EQ. '') EW099(i__) = rNULL__
if(ar__(80:83) .EQ. '') A_099(i__) = rNULL__
if(ar__(85:89) .EQ. '') v_X_H_099(i__) = rNULL__
if(ar__(91:95) .EQ. '') EW349(i__) = rNULL__
if(ar__(97:100) .EQ. '') A_349(i__) = rNULL__
if(ar__(102:106) .EQ. '') v_X_H_349(i__) = rNULL__
c ..............Just test output...........
write(6,1)
+ El(i__),Ion(i__),lambda(i__),loggf(i__),EP(i__),EWsun(i__),
+ A_Sun(i__),f_A_Sun(i__),EW209(i__),A_209(i__),v_X_H_209(i__),
+ EW265(i__),A_265(i__),v_X_H_265(i__),EW099(i__),A_099(i__),
+ v_X_H_099(i__),EW349(i__),A_349(i__),v_X_H_349(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end