Conversion of standardized ReadMe file for
file /./ftp/cats/J/A_AS/102/269 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-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+AS/102/269 Lab. and solar highly-excited levels of Fe I (Nave+ 1993) *================================================================================ *Highly-excited levels of Fe I obtained from laboratory and solar Fourier *transform and grating spectra. II. Laboratory and solar identifications * NAVE G., JOHANSSON S. * <Astron. Astrophys. Suppl. Ser. 102, 269 (1993)> * =1993A&AS..102..269N C============================================================================= C Internal variables integer*4 i__ c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table1.dat' ! Fe I lines from 4941.6 to 170.1nm integer*4 nr__ parameter (nr__=2199) ! Number of records character*104 ar__ ! Full-size record character*5 Ilab ! Intensity (laboratory data) (2) integer*4 FWHM ! (0.001cm-1) ? Full width at half maximum of line * in FT spectra (laboratory data) real*8 Lambda ! (0.1nm) [1701/49500]-= Wavelength (laboratory data) * Lambda(air) for lambda > 200nm * Lambda(vac) for lambda < 200nm real*8 Sigma ! (cm-1) Wavenumber (laboratory data) integer*4 o_c ! (0.001cm-1) Difference between observed wavenumber * (wavelength below 306 nm) and that * derived from the energy levels in paper 1 character*23 Trans ! Transition designation (5) character*1 bl_ ! Species of blended line. Lines marked `G' * are blended with a ghost. real*8 LamSun ! (0.1nm) ? wavelength in solar spectrum (6) real*8 SigSun ! (cm-1) ? wavenumber in solar spectrum (6) real*4 Isun ! ? Intensity (solar data) character*12 Comments ! Previous identifications (7) *Note (2): * Intensity in arbitrary units. These are given as log(I) for FT * spectra. Grating intensities are from the continuous hollow cathode * spectra, except those in italics, which are from the pulsed hollow * cathode spectra. Symbols are: * d: diffuse * b: blended * *: unresolved * ?: questionable *Note (5): * Abbreviated term designations are taken from * Sugar & Corliss (1985, J. Phys. Chem. Ref. Data 14 suppl. 2), * Brown et al. (1988OSAJB...5.2125B) * or are listed in table 1 of paper 1. *Note (6): * Is specified either as wavelength or wavenumber. * Solar data is taken from: * Geller (1992 NASA Ref. Publ 1224 vol.III) 2000 cm-1 < sigma < 4788 cm-1 * Biemont et al.(1985A&AS...61..107B) 4788 cm-1 < sigma < 8375 cm-1 * Delbouille et al.(1981, Kitt Peak) 4788 cm-1 < sigma < 8375 cm-1 * Livingston and Wallace (1991, Tucson) 4788 cm-1 < sigma < 8375 cm-1 * Swensson et al. (1970sslt.book.....S ; * Mem. Soc. R. Sci. Liege 5) 8375 cm-1 < sigma < 11100 cm-1 * Pierce & Breckinridge (1975, Kitt Peak) 11100 cm-1 < sigma < 32650 cm-1 * Moore et al. (1966, NBS Monograph 61) 11100 cm-1 < sigma < 32650 cm-1 * Moore et al. (1982, NRL Report 8653) 32650 cm-1 < sigma < 47500 cm-1 * Moore et al. (1992) sigma > 47500 cm-1 *Note (7): * Previous identification in solar table. * Lines between 4788 cm-1 and 8375 cm-1 are marked * `P' if a line is present in the atlases of Delbouille et al. (1981, * Kitt Peak Obs.) or Livingston and Wallace (1991, Tucson), * but is not listed in Biemont et al. (1985A&AS...61..107B) * `T' if they are in a region of telluric absorption. * The ionization stage is neutral unless otherwise specified. C============================================================================= C Loading file 'table1.dat' ! Fe I lines from 4941.6 to 170.1nm C Format for file interpretation 1 format( + A5,I4,1X,F10.4,1X,F9.3,I4,3X,A23,2X,A1,2X,F9.3,1X,F9.3,1X, + F5.1,2X,A12) C Effective file loading open(unit=1,status='old',file= +'table1.dat') write(6,*) '....Loading file: table1.dat' do i__=1,2199 read(1,'(A104)')ar__ read(ar__,1) + Ilab,FWHM,Lambda,Sigma,o_c,Trans,bl_,LamSun,SigSun,Isun, + Comments if(ar__(6:9) .EQ. '') FWHM = iNULL__ if(ar__(66:74) .EQ. '') LamSun = rNULL__ if(ar__(76:84) .EQ. '') SigSun = rNULL__ if(ar__(86:90) .EQ. '') Isun = rNULL__ c ..............Just test output........... write(6,1) + Ilab,FWHM,Lambda,Sigma,o_c,Trans,bl_,LamSun,SigSun,Isun, + Comments c .......End.of.Just test output........... end do close(1) C============================================================================= stop end