FORTRAN Generation
(/./ftp/cats/J/MNRAS/356/1256)

Conversion of standardized ReadMe file for file /./ftp/cats/J/MNRAS/356/1256 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-28
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/MNRAS/356/1256    Elemental abundance analysis of HR 8216     (Caliskan, 2005)
*================================================================================
*Elemental abundance analysis of magnetic chemically peculiar star HR 8216.
*    Caliskan H.
*    <Mon. Not. R. Astron. Soc. 356, 1256 (2005)>
*    =2005MNRAS.356.1256C        (SIMBAD/NED BibCode)
C=============================================================================

C  Internal variables

      integer*4 i__

c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 

C  Declarations for 'table6.dat'	! Elemental abundances

      integer*4 nr__
      parameter (nr__=734)	! Number of records
      character*40 ar__   	! Full-size record

      character*5   Ion        (nr__) ! Ion name
      character*6   No         (nr__) ! Multiplet number from Moore (1945) if first
*                                   line of multiplet, if not from Moore an
*                                   initial indicating the paper (1)
      real*8        Lambda     (nr__) ! (0.1nm) Laboratory wavelength (air)
      real*4        log_gf     (nr__) ! Oscillator strength
      character*2   r_log_gf   (nr__) ! Reference to oscillator strength (2)
      integer*4     EW1        (nr__) ! (0.1pm) ? Equivalent width for HR 8216
      real*4        log_N_H    (nr__) ! ? Elemental abundance for HR 8216 (3)
*Note (1): The following acronyms are used:
*       C: Catalan et al., 1964, J. Res. NBS, 68A, 9
*       J: Johansson S., 1978, Phys. Scripta, 18, 217
*       K: Kurucz & Bell 1995, Kurucz CD-Rom No. 23
*     MCS: Meggers et al., 1975, Tables of Spectral-Line Intensities, US
*          Goverment Printing Office, Washington, DC
*       N: Nave et al., 1994, Cat. <J/ApJS/94/221>
*Note (2): Sources of gf-values are the following:
*     BG = Biemont et al. (1989A&A...209..391B) for V II;
*          Biemont et al. (1981ApJ...248..867B) for Zr II
*     BK = Biemont et al. (1982A&A...107..166B)
*     FW = Fuhr & Wiese (1990, in Lide D.R. ed., CRC Handbook of Chemistry
*          and Physics, CRC Press, Cleveland, OH)
*     HL = Hannaford et al. (1982ApJ...261..736H)
*     KX = Kurucz & Bell (1995, Atomic Data for Opacity Calculations, Kurucz
*          CD-Rom No. 23, (Smithsonian Astrophysical Observatory, Cambridge, MA)
*     LA = Lanz & Artru (1985PhyS...32..115L)
*     LD = Lawler & Dakin (1989, JOSA B, 6, 1457)
*     MF = Fuhr, Martin & Wiese (1988, Cat. <VI/72>);
*          Martin, Fuhr & Wiese (1988, Cat. <VI/72>)
*     MC = Magazzu & Cowley (1986ApJ...308..254M)
*     MW = Miles & Wiese (1969, NBS Technical Note No. 474)
*     WF = Wiese, Fuhr & Deters (1996, J. Phys. Chem. Ref. Data, Monograph 6)
*     WM = Wiese & Martin (1980, NSRDS-NBS 68, Part.2, US Governement
*          Printing Office, Washington)
*     WS = Wiese, Smith & Glennon (1966, NSRDS-NBS 4, US Governement
*          Printing Office, Washington);
*          Wiese, Smith & Miles (1969, NSRDS-NBS, D.C., US Department of
*          Commerce, National Bureau of Standards)
*     WV = Ward (1985MNRAS.213...71W)
*Note (3): The designations are:
*      N = number of atoms/volume of particular element
*   Ntot = number of atoms/volume of all elements

C=============================================================================

C  Loading file 'table6.dat'	! Elemental abundances

C  Format for file interpretation

    1 format(A5,A6,1X,F7.2,1X,F5.2,2X,A2,1X,I3,1X,F6.2)

C  Effective file loading

      open(unit=1,status='old',file=
     +'table6.dat')
      write(6,*) '....Loading file: table6.dat'
      do i__=1,734
        read(1,'(A40)')ar__
        read(ar__,1)
     +  Ion(i__),No(i__),Lambda(i__),log_gf(i__),r_log_gf(i__),
     +  EW1(i__),log_N_H(i__)
        if(ar__(31:33) .EQ. '') EW1(i__) = iNULL__
        if(ar__(35:40) .EQ. '') log_N_H(i__) = rNULL__
c    ..............Just test output...........
        write(6,1)
     +  Ion(i__),No(i__),Lambda(i__),log_gf(i__),r_log_gf(i__),
     +  EW1(i__),log_N_H(i__)
c    .......End.of.Just test output...........
      end do
      close(1)

C=============================================================================
      stop
      end