FORTRAN Generation
(/./ftp/cats/J/A_AS/102/269)

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