FORTRAN Generation
(/./ftp/cats/J/ApJS/229/37)

Conversion of standardized ReadMe file for file /./ftp/cats/J/ApJS/229/37 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/ApJS/229/37   Energy levels & transition rates of O-like ions   (Wang+, 2017)
*================================================================================
*Extended calculations of spectroscopic data: energy levels, lifetimes, and
*transition rates for O-like ions from Cr XVII to Zn XXIII.
*    Wang K., Jonsson P., Ekman J., Gaigalas G., Godefroid M.R., Si R.,
*    Chen Z.B., Li S., Chen C.Y., Yan J.
*   <Astrophys. J. Suppl. Ser., 229, 37-37 (2017)>
*   =2017ApJS..229...37W    (SIMBAD/NED BibCode)
C=============================================================================

C  Internal variables

      integer*4 i__

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

C  Declarations for 'table1.dat'	! Excitation energies and lifetimes for the
                                 lowest 200 levels of O-like ions with Z=24-30

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

      integer*4     Z           ! [24/30] Atomic number
      integer*4     Key         ! [1/200] Key number
      character*18  Config      ! Configuration
      character*7   Term        ! LSJ Term
      real*4        E_NIST      ! (cm-1) ? Energy levels, NIST (1)
      real*4        E_MCDHF_RCI ! (cm-1) ?=0 Energy levels, MCDHF/RCI calculation
      real*4        E_MBPT      ! (cm-1) ?=0 Energy levels, MBPT calculation
      real*4        tauMCDHF_RCI ! (s) ? Lifetimes, MCDHF/RCI calculation
      real*4        tauMBPT     ! (s) ? Lifetimes, MBPT calculation
      character*51  LSJ         ! LSJ coupling expansion coefficients
*Note (1): From the NIST ASD -- Kramida, A., Ralchenko, Yu., Reader, J. and
*    NIST ASD Team (20l6). NIST Atomic Spectra Database (version 5.3);
*    Available: http://physics.nist.gov/asd [May 10 2016].
*    National Institute of Standards and Technology, Gaithersburg, MD.

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

C  Declarations for 'table2.dat'	! Energy levels relative to the ground state for
                                 the lowest 200 states of Fe XIX

      integer*4 nr__1
      parameter (nr__1=200)	! Number of records
      character*78 ar__1  	! Full-size record

      integer*4     Key_1       ! [1/200] Key number
      character*18  Config_1    ! Configuration
      character*7   Term_1      ! LSJ Term
      integer*4     E1          ! (cm-1) ?=0 Energy levels, MCDHF/RCI calculation
      integer*4     E2          ! (cm-1) [-2496/414]?=0 Energy levels, MBPT calculation
      integer*4     E_NIST_1    ! (cm-1) [-20689/37628]? Energy levels, NIST (1)
      integer*4     E_CHIANTI   ! (cm-1) [-15786/10404]? Energy levels, CHIANTI (1)
      integer*4     E_Landi     ! (cm-1) [-13233/25898]?=0 Energy levels, Landi (1)
      integer*4     E_Butler    ! (cm-1) [-946/30764]?=0 Energy levels, Butler (1)
      integer*4     E_Nahar     ! (cm-1) [-51734/97145]?=0 Energy levels, Nahar (1)
*Note (1):
*  E_NIST_    = Kramida et al. (http://physics.nist.gov/asd);
*  E_CHIANTI_ = Dere+ (1997, J/A+AS/125/149); Del Zanna+ (2015A&A...582A..56D);
*  E_Landi    = Landi & Gu (2006ApJ...640.1171L);
*  E_Butler   = Butler & Badnell (2008, J/A+A/489/1369);
*  E_Nahar    = Nahar (2011ADNDT..97..403N).
*          For brevity, energies other than the present MCDHF/RCI
*           values are listed as differences from the latter ones in cm-1.

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

C  Declarations for 'table4.dat'	! Transition data for O-like ions from Cr XVII
                                 to Zn XXIII

      integer*4 nr__2
      parameter (nr__2=10406)	! Number of records
      character*110 ar__2  	! Full-size record

      integer*4     Z_1         ! [24/30] Atomic number
      integer*4     j           ! [2/200] Upper level
      integer*4     i           ! [1/179] Lower level
      character*2   Type        ! Transition type
      real*4        lam1        ! (0.1nm) [8.5/7001.1] Wavelengths,
*                                MCDHF/RCI calculation, Angstroms
      real*4        lam2        ! (0.1nm) [8.5/7086.3] Wavelengths,
*                                MBPT calculation, Angstroms
      real*4        S1          ! [1e-6/2.4] Line strengths (in au),
*                                MCDHF/RCI calculation
      real*4        gf1         ! [8.2e-11/4.9] Oscillator strengths,
*                                MCDHF/RCI calculation
      real*4        A1          ! (s-1) Transition rates, MCDHF/RCI calculation
      real*4        S2          ! [9.1e-7/2.4] Line strengths (in au), 
*                                MBPT calculation
      real*4        gf2         ! [8.1e-11/4.8] Oscillator strengths, 
*                                MBPT calculation
      real*4        A2          ! (s-1) Transition rates, MBPT calculation
      character*2   Acc         ! The estimated accuracies of the A-values
*                                using the terminologies of the NIST ASD (1)
*Note (1): From the NIST ASD -- Kramida, A., Ralchenko, Yu., Reader, J. and
*    NIST ASD Team (20l6). NIST Atomic Spectra Database (version 5.3), [Online].
*    Available: http://physics.nist.gov/asd [May 10 2016].
*    National Institute of Standards and Technology, Gaithersburg, MD.

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

C  Loading file 'table1.dat'	! Excitation energies and lifetimes for the
*                                 lowest 200 levels of O-like ions with Z=24-30

C  Format for file interpretation

    1 format(
     +  I2,2X,I3,3X,A18,4X,A7,5X,E12.6,1X,E12.6,1X,E12.6,2X,E9.3,2X,
     +  E9.3,2X,A51)

C  Effective file loading

      open(unit=1,status='old',file=
     +'table1.dat')
      write(6,*) '....Loading file: table1.dat'
      do i__=1,1400
        read(1,'(A157)')ar__
        read(ar__,1)
     +  Z,Key,Config,Term,E_NIST,E_MCDHF_RCI,E_MBPT,tauMCDHF_RCI,
     +  tauMBPT,LSJ
        if(ar__(45:56) .EQ. '') E_NIST = rNULL__
        if(ar__(85:93) .EQ. '') tauMCDHF_RCI = rNULL__
        if(ar__(96:104) .EQ. '') tauMBPT = rNULL__
c    ..............Just test output...........
        write(6,1)
     +  Z,Key,Config,Term,E_NIST,E_MCDHF_RCI,E_MBPT,tauMCDHF_RCI,
     +  tauMBPT,LSJ
c    .......End.of.Just test output...........
      end do
      close(1)

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

C  Loading file 'table2.dat'	! Energy levels relative to the ground state for
*                                 the lowest 200 states of Fe XIX

C  Format for file interpretation

    2 format(
     +  I3,1X,A18,1X,A7,1X,I7,1X,I5,1X,I6,1X,I6,1X,I6,1X,I5,1X,I6)

C  Effective file loading

      open(unit=1,status='old',file=
     +'table2.dat')
      write(6,*) '....Loading file: table2.dat'
      do i__=1,200
        read(1,'(A78)')ar__1
        read(ar__1,2)
     +  Key_1,Config_1,Term_1,E1,E2,E_NIST_1,E_CHIANTI,E_Landi,
     +  E_Butler,E_Nahar
        if(ar__1(46:51) .EQ. '') E_NIST_1 = iNULL__
        if(ar__1(53:58) .EQ. '') E_CHIANTI = iNULL__
c    ..............Just test output...........
        write(6,2)
     +  Key_1,Config_1,Term_1,E1,E2,E_NIST_1,E_CHIANTI,E_Landi,
     +  E_Butler,E_Nahar
c    .......End.of.Just test output...........
      end do
      close(1)

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

C  Loading file 'table4.dat'	! Transition data for O-like ions from Cr XVII
*                                 to Zn XXIII

C  Format for file interpretation

    3 format(
     +  I2,3X,I3,2X,I3,2X,A2,1X,E10.4,2X,E10.4,2X,E9.3,2X,E9.3,2X,
     +  E9.3,2X,E9.3,2X,E9.3,2X,E9.3,2X,A2)

C  Effective file loading

      open(unit=1,status='old',file=
     +'table4.dat')
      write(6,*) '....Loading file: table4.dat'
      do i__=1,10406
        read(1,'(A110)')ar__2
        read(ar__2,3)Z_1,j,i,Type,lam1,lam2,S1,gf1,A1,S2,gf2,A2,Acc
c    ..............Just test output...........
        write(6,3)Z_1,j,i,Type,lam1,lam2,S1,gf1,A1,S2,gf2,A2,Acc
c    .......End.of.Just test output...........
      end do
      close(1)

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