Conversion of standardized ReadMe file for
file /./ftp/cats/J/A_A/415/155 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-Mar-29 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/415/155 Oxygen abundances in the Galactic disk (Bensby+, 2004) *================================================================================ *Oxygen trends in the Galactic thin and thick disks. * Bensby T., Feltzing S., Lundstrom I. * <Astron. Astrophys. 415, 155 (2004)> * =2004A&A...415..155B C============================================================================= C Internal variables integer*4 i__ c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table4.dat' ! Equivalent widths and oxygen abundances of the 72 program stars plus the Sun integer*4 nr__ parameter (nr__=73) ! Number of records character*138 ar__ ! Full-size record integer*4 HIP (nr__) ! Hipparcos number (0=Sun) real*4 A6300 (nr__) ! ([]) ? Abundance [O/H] from 6300 line real*4 A6363 (nr__) ! ([]) ? Abundance [O/H] from 6363 line real*4 A7772 (nr__) ! ([]) ? Abundance [O/H] from 7771.95 line real*4 A7774 (nr__) ! ([]) ? Abundance [O/H] from 7774.17 line real*4 A7775 (nr__) ! ([]) ? Abundance [O/H] from 7775.39 line real*4 A6300n (nr__) ! ([Sun]) ? Normalized abundance [O/H] from 6300 line real*4 A6363n (nr__) ! ([Sun]) ? Normalized abundance [O/H] from 6363 line real*4 A7772n (nr__) ! ([Sun]) ? Normalized abundance [O/H] from 7771.95 line real*4 A7774n (nr__) ! ([Sun]) ? Normalized abundance [O/H] from 7774.17 line real*4 A7775n (nr__) ! ([Sun]) ? Normalized abundance [O/H] from 7775.39 line real*4 A7772nlte (nr__) ! ([Sun]) ? NLTE-corrected and normalized abundance [O/H] * from 7771.95 line real*4 A7774nlte (nr__) ! ([Sun]) ? NLTE-corrected and normalized abundance [O/H] * from 7774.17 line real*4 A7775nlte (nr__) ! ([Sun]) ? NLTE-corrected and normalized abundance [O/H] * from 7775.39 line real*4 nlteGCEG (nr__) ! ([]) ? NLTE-correction from Gratton et al. * (J/A+A/350/955) real*4 nlteTW (nr__) ! ([]) Empirical NLTE-correction from Eq. 1 in article real*4 EW6363 (nr__) ! (0.1pm) ? Equivalent width of [OI] line at 6363{AA} real*4 EW7772 (nr__) ! (0.1pm) ? Equivalent width of OI line at 7771.95{AA} real*4 EW7774 (nr__) ! (0.1pm) ? Equivalent width of OI line at 7774.17{AA} real*4 EW7775 (nr__) ! (0.1pm) ? Equivalent width of OI line at 7775.39{AA} C============================================================================= C Loading file 'table4.dat' ! Equivalent widths and oxygen abundances of the * 72 program stars plus the Sun C Format for file interpretation 1 format( + I6,2X,F5.2,1X,F5.2,2X,F5.2,2X,F5.2,2X,F5.2,2X,F5.2,2X,F5.2,2X, + F5.2,2X,F5.2,2X,F5.2,2X,F5.2,2X,F5.2,2X,F5.2,2X,F5.2,2X,F5.2, + 3X,F3.1,2X,F5.1,2X,F5.1,2X,F5.1) C Effective file loading open(unit=1,status='old',file= +'table4.dat') write(6,*) '....Loading file: table4.dat' do i__=1,73 read(1,'(A138)')ar__ read(ar__,1) + HIP(i__),A6300(i__),A6363(i__),A7772(i__),A7774(i__), + A7775(i__),A6300n(i__),A6363n(i__),A7772n(i__),A7774n(i__), + A7775n(i__),A7772nlte(i__),A7774nlte(i__),A7775nlte(i__), + nlteGCEG(i__),nlteTW(i__),EW6363(i__),EW7772(i__),EW7774(i__), + EW7775(i__) if(ar__(9:13) .EQ. '') A6300(i__) = rNULL__ if(ar__(15:19) .EQ. '') A6363(i__) = rNULL__ if(ar__(22:26) .EQ. '') A7772(i__) = rNULL__ if(ar__(29:33) .EQ. '') A7774(i__) = rNULL__ if(ar__(36:40) .EQ. '') A7775(i__) = rNULL__ if(ar__(43:47) .EQ. '') A6300n(i__) = rNULL__ if(ar__(50:54) .EQ. '') A6363n(i__) = rNULL__ if(ar__(57:61) .EQ. '') A7772n(i__) = rNULL__ if(ar__(64:68) .EQ. '') A7774n(i__) = rNULL__ if(ar__(71:75) .EQ. '') A7775n(i__) = rNULL__ if(ar__(78:82) .EQ. '') A7772nlte(i__) = rNULL__ if(ar__(85:89) .EQ. '') A7774nlte(i__) = rNULL__ if(ar__(92:96) .EQ. '') A7775nlte(i__) = rNULL__ if(ar__(99:103) .EQ. '') nlteGCEG(i__) = rNULL__ if(ar__(114:116) .EQ. '') EW6363(i__) = rNULL__ if(ar__(119:123) .EQ. '') EW7772(i__) = rNULL__ if(ar__(126:130) .EQ. '') EW7774(i__) = rNULL__ if(ar__(133:137) .EQ. '') EW7775(i__) = rNULL__ c ..............Just test output........... write(6,1) + HIP(i__),A6300(i__),A6363(i__),A7772(i__),A7774(i__), + A7775(i__),A6300n(i__),A6363n(i__),A7772n(i__),A7774n(i__), + A7775n(i__),A7772nlte(i__),A7774nlte(i__),A7775nlte(i__), + nlteGCEG(i__),nlteTW(i__),EW6363(i__),EW7772(i__),EW7774(i__), + EW7775(i__) c .......End.of.Just test output........... end do close(1) C============================================================================= stop end