FORTRAN Generation
(/./ftp/cats/J/A_A/377/361)

Conversion of standardized ReadMe file for file /./ftp/cats/J/A_A/377/361 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-19
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/377/361       Fe II transition probabilities and loggf (Pickering+, 2001)
*================================================================================
*The FERRUM Project: Branching ratios and atomic transition probabilities of
*Fe II transitions from the 3d^6^(a^3^F)4p subconfiguration in the visible 
*to VUV spectral region
*    Pickering J.C., Johansson S., Smith P.L.
*   <Astron. Astrophys. 377, 361 (2001)>
*   =2001A&A...377..361P
C=============================================================================

C  Internal variables

      integer*4 i__

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

C  Declarations for 'table2.dat'	! Absolute transition probabilities and oscillator
                              strengths of Fe II transitions.

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

      character*1   Level      (nr__) ! Level (1)
      real*8        lambdaVac  (nr__) ! (0.1nm) Vacuum wavelength
      real*8        lambdaAir  (nr__) ! (0.1nm) ? Wavelength in air for {lambda}>2000{AA}
      real*8        sigma      (nr__) ! (cm-1) Vacuum wavenumber (G1)
      character*1   Note       (nr__) ! [x b] Note (2)
      real*4        BF         (nr__) ! ? branching fraction;
      integer*4     e_BF       (nr__) ! (%) ? Percentage relative uncertainty in BF
      real*4        A          (nr__) ! (s-1) ? Absolute transition probability, found by
*                                     combining BF and the measured lifetime
      integer*4     e_A        (nr__) ! (%) ? Percentage uncertainty in A
      real*4        loggf      (nr__) ! ? Oscillator strength measured in this work
      real*4        e_loggf    (nr__) ! ? uncertainty (dex) in log gf
      real*4        loggfR     (nr__) ! Raassen oscillator strength (1999,
*                                    ftp://ftp.wins.uva.nl/pub/orth/iron/FeII.E1)
      real*4        loggfK     (nr__) ! Kurucz oscillator strength (2000, priv. com.)
      real*4        loggfN     (nr__) ! ? Nahar oscillator strength
*                                     (1995, Cat. <J/A+A/293/967>)
*Note (1): Levels:
*     A: Level 62065 cm^-1^ 3d^6^(a^3^F)4p y^4^F_3.5_ 3.50ns +/- 0.3ns
*         99.87% complete, 0.02% outside, 0.11% blended
*     B: Level 63948 cm^-1^ 3d^6^(a^3^F)4p y^4^G_4.5_ 2.7 ns +/- 0.3ns
*         99.97% complete, 0.03% outside
*     C: Level 62945 cm^-1^ 3d^6^(a^3^F)4p x^4^D_3.5_ 2.8 ns +/- 0.3ns
*         99.98% complete, 0.02% outside, 3.44% blended
*     D: Level 64040 cm^-1^ 3d^6^(a^3^F)4p y^4^G_3.5_ 2.8 ns +/- 0.3ns
*         99.96% complete, 0.04% outside
*Note (2): Annotations to transitions indicate:
*     x: transition not observed in this work or in that of Johansson
*         (private communication);
*     b: blended line.
*    For lines annotated with x, the maximum possible branching fraction
*    has been estimated and from this the maximum value of A and maximum
*    possible log gf for that transition has also been estimated. Since the
*    values of A and log gf for lines annotated with x are maximum values
*    it may be preferable to use the theoretical values for these lines. No
*    uncertainty in log gf is given for these transitions annotated x since
*    it is an approximate estimate.

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

C  Declarations for 'table3.dat'	! Finding list of Fe II transitions and
                              log gf values

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

      real*8        lambdaVac_1(nr__1) ! (0.1nm) Vacuum wavelength
      real*8        lambdaAir_1(nr__1) ! (0.1nm) ? Wavelength in air for {lambda}>2000{AA}
      real*8        sigma_1    (nr__1) ! (cm-1) Vacuum wavenumber (G1)
      character*1   Note_1     (nr__1) ! Note (1)
      real*4        loggf_1    (nr__1) ! ? Oscillator strength (this work)
      real*4        e_loggf_1  (nr__1) ! ? uncertainty (dex) in log gf,
      real*4        loggfR_1   (nr__1) ! Raassen oscillator strength (1999,
*                                   ftp://ftp.wins.uva.nl/pub/orth/iron/FeII.E1)
      character*10  UTerm      (nr__1) ! Upper lever term (2)
      real*8        UE         (nr__1) ! (cm-1) Upper level energy (2)
      character*11  LTerm      (nr__1) ! Lower level term (2)
      real*8        LE         (nr__1) ! (cm-1) Lower level energy (2)
*Note (1): Annotations indicate:
*       x: transition not observed in this work or in that of Johansson;
*       b: a blended line.
*    For lines annotated with x, the maximum possible branching fraction
*    has been estimated giving a maximum possible log gf for that
*    transition; for these lines it may be advisable to use the calculated
*    values of Raassen (1999) for log gf. No uncertainty in log gf is given
*    for transitions annotated x.
*Note (2): Term and energy of the upper and lower energy levels involved in
*    each transition. The level energies are taken from Sugar and Corliss
*    (1985, Cat. <VI/74>).

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

C  Loading file 'table2.dat'	! Absolute transition probabilities and oscillator
*                              strengths of Fe II transitions.

C  Format for file interpretation

    1 format(
     +  A1,1X,F8.3,1X,F8.3,1X,F8.2,1X,A1,1X,F5.2,1X,I2,1X,E8.3,1X,I2,
     +  1X,F5.2,1X,F4.2,1X,F5.2,1X,F5.2,1X,F5.2)

C  Effective file loading

      open(unit=1,status='old',file=
     +'table2.dat')
      write(6,*) '....Loading file: table2.dat'
      do i__=1,95
        read(1,'(A80)')ar__
        read(ar__,1)
     +  Level(i__),lambdaVac(i__),lambdaAir(i__),sigma(i__),Note(i__),
     +  BF(i__),e_BF(i__),A(i__),e_A(i__),loggf(i__),e_loggf(i__),
     +  loggfR(i__),loggfK(i__),loggfN(i__)
        if(ar__(12:19) .EQ. '') lambdaAir(i__) = rNULL__
        if(ar__(32:36) .EQ. '') BF(i__) = rNULL__
        if(ar__(38:39) .EQ. '') e_BF(i__) = iNULL__
        if(ar__(41:48) .EQ. '') A(i__) = rNULL__
        if(ar__(50:51) .EQ. '') e_A(i__) = iNULL__
        if(ar__(53:57) .EQ. '') loggf(i__) = rNULL__
        if(ar__(59:62) .EQ. '') e_loggf(i__) = rNULL__
        if(ar__(76:80) .EQ. '') loggfN(i__) = rNULL__
c    ..............Just test output...........
        write(6,1)
     +  Level(i__),lambdaVac(i__),lambdaAir(i__),sigma(i__),Note(i__),
     +  BF(i__),e_BF(i__),A(i__),e_A(i__),loggf(i__),e_loggf(i__),
     +  loggfR(i__),loggfK(i__),loggfN(i__)
c    .......End.of.Just test output...........
      end do
      close(1)

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

C  Loading file 'table3.dat'	! Finding list of Fe II transitions and
*                              log gf values

C  Format for file interpretation

    2 format(
     +  F8.3,1X,F8.3,1X,F8.2,1X,A1,1X,F5.2,1X,F4.2,1X,F5.2,1X,A10,1X,
     +  F9.3,1X,A11,1X,F9.3)

C  Effective file loading

      open(unit=1,status='old',file=
     +'table3.dat')
      write(6,*) '....Loading file: table3.dat'
      do i__=1,95
        read(1,'(A88)')ar__1
        read(ar__1,2)
     +  lambdaVac_1(i__),lambdaAir_1(i__),sigma_1(i__),Note_1(i__),
     +  loggf_1(i__),e_loggf_1(i__),loggfR_1(i__),UTerm(i__),UE(i__),
     +  LTerm(i__),LE(i__)
        if(ar__1(10:17) .EQ. '') lambdaAir_1(i__) = rNULL__
        if(ar__1(30:34) .EQ. '') loggf_1(i__) = rNULL__
        if(ar__1(36:39) .EQ. '') e_loggf_1(i__) = rNULL__
c    ..............Just test output...........
        write(6,2)
     +  lambdaVac_1(i__),lambdaAir_1(i__),sigma_1(i__),Note_1(i__),
     +  loggf_1(i__),e_loggf_1(i__),loggfR_1(i__),UTerm(i__),UE(i__),
     +  LTerm(i__),LE(i__)
c    .......End.of.Just test output...........
      end do
      close(1)

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