Conversion of standardized ReadMe file for
file /./ftp/cats/J/A_AS/135/347 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-Apr-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+AS/135/347 IRON Project XXXV. Fe XXIV and Fe XXV (Nahar+ 1999)
*================================================================================
*Atomic data from the Iron Project XXXV.
*Relativistic fine structure oscillator strengths for Fe XXIV and Fe XXV
* Nahar S N, Pradhan A.K.
* <Astron. Astrophys. Suppl. Ser. 135, 347 (1999)>
* =1999A&AS..135..347N
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'fe25efs1.dat' ! Fe XXV ground and excited levels included in
the eigenfunction expansion of Fe XXIV
integer*4 nr__
parameter (nr__=16) ! Number of records
character*37 ar__ ! Full-size record
integer*4 Level ! [1,16] Level number
character*2 Config ! Configuration
character*3 SLp ! SLp term
character*3 J ! J value
real*4 E ! (Ry) Energy
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'fe25efs3.dat' ! Fine structure energy levels, with
spectroscopic identification, and ordered in
J{pi} and energy
integer*4 nr__1
parameter (nr__1=196) ! Number of records
character*60 ar__1 ! Full-size record
integer*4 Nlv ! Number of levels (1)
integer*4 J_1 ! [0,10] Total angular momentum
character*1 P ! [oe] Parity
integer*4 iiii ! [1,18] Level position
character*12 T ! Target core of the level (config SLpi Jt)
character*3 nl ! Principal and orbital quantum numbers of the
* outer electron
real*4 E_1 ! (Ry) Energy
real*4 EQN ! ? Effective Quantum Number
character*5 Terms ! Possible Ls terms of the energy level
*Note (1): Number of fine structure levels:
* -------------------------------
* J pi Nlv(c)
* -------------------------------
* 0 0 10
* 0 1 9
* 2 0 17
* 2 1 18
* 4 0 16
* 4 1 16
* 6 0 14
* 6 1 14
* 8 0 12
* 8 1 12
* 10 0 10
* 10 1 10
* 12 0 8
* 12 1 8
* 14 0 6
* 14 1 6
* 16 0 2
* 16 1 4
* 18 0 2
* 18 1 1
* 20 0 0
* 20 1 1
* -------------------------------
* Total number of levels = 196
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table4.dat' ! Table of fine structure levels provided for
direct information on possible spectroscopic
transitions
integer*4 nr__2
parameter (nr__2=196) ! Number of records
character*79 ar__2 ! Full-size record
integer*4 i ! i level
integer*4 J_2 ! [0,10] Total angular momentum
character*1 P_1 ! [oe] Parity
integer*4 iiii_1 ! Level position
real*4 E_2 ! (Ry) Energy
character*17 Config_1 ! Configuration
character*7 LS ! LS term (1)
integer*4 jjpiiii ! Energy level ids (2)
*Note (1): There may be more than one possible LS term for some j-levels.
* Simple assumption: higher L -> lower energy
*Note (2): Energy levels with ids: jjpiiii, where
* jj=2 x total angular momentum j, p=parity (e=0, o=1),
* iiii=level position
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table7b.dat' ! Table of fine structure transitions
integer*4 nr__3
parameter (nr__3=3333) ! Number of records
character*93 ar__3 ! Full-size record
integer*4 gi ! Initial level 2J+1 value
integer*4 Pi ! [0/1] Initial level parity
integer*4 gf ! Final level 2J'+1 value
integer*4 Pf ! [0/1] Final level parity
integer*4 Ni ! [1,18] Number of bound levels of symmetry i
integer*4 Nf ! [1,18] Number of bound levels of symmetry j
integer*4 NN ! NN=NixNj
integer*4 i_1 ! [1,18] Level of symmetry i
integer*4 j_3 ! [1,18] Level of symmetry j
real*8 wl ! (0.1nm) Wavelength
real*4 Ei ! (Ry) Initial energy
real*4 Ef ! (Ry) Final energy
real*4 fL ! Oscillator strength value (1)
real*4 S ! Line Strength (atomic units)
real*4 Aji ! (s-1) Transition probability
*Note (1): If a f-value is negative. the lower level is i (absorption) and
* if it is positive, the lower level is j (emission).
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table6.dat' ! Oscillator strengths f, S, A-values for allowed
E1 fine structure transitions with the
observed energy levels only
integer*4 nr__4
parameter (nr__4=120) ! Number of records
character*81 ar__4 ! Full-size record
character*8 Ci ! Initial configuration (1)
character*8 Cj ! Final configuration
character*3 SiLiPi ! Initial core level
character*3 SjLjPj ! Final core level
integer*4 gi_1 ! Initial Lande factor (2J+1) value
integer*4 Ii ! ? Energy level index of Ji
* (no value when Ci = LS)
integer*4 gf_1 ! Final Lande factor (2J+1) value
integer*4 If ! ? Energy level index of Jf
* (no value when Ci = LS)
real*8 Eij_A ! ? Eij value
real*4 f ! Oscillator strength
real*4 S_1 ! Line strength (atomic units)
real*4 A ! (s-1) Transition probability
*Note (1): nz = 26 , No. of core electrons= 1, No of transitions = 104
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'lifetime.dat' ! Lifetimes of fine structure levels
integer*4 nr__5
parameter (nr__5=194) ! Number of records
character*72 ar__5 ! Full-size record
integer*4 Level_1 ! Level number
character*28 Conf ! Configuration
integer*4 J_4 ! Total angular momentum
integer*4 Ij ! [1,18] Final level
real*4 E_3 ! (Ry) Energy
real*4 Lifetime ! (s) ? Lifetime
character*1 n_Lifetime ! [i] i for infinity
integer*4 NTrans ! Number of transitions
C=============================================================================
C Loading file 'fe25efs1.dat' ! Fe XXV ground and excited levels included in
* the eigenfunction expansion of Fe XXIV
C Format for file interpretation
1 format(1X,I2,1X,A2,8X,A3,3X,A3,3X,E11.6)
C Effective file loading
open(unit=1,status='old',file=
+'fe25efs1.dat')
write(6,*) '....Loading file: fe25efs1.dat'
do i__=1,16
read(1,'(A37)')ar__
read(ar__,1)Level,Config,SLp,J,E
c ..............Just test output...........
write(6,1)Level,Config,SLp,J,E
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'fe25efs3.dat' ! Fine structure energy levels, with
* spectroscopic identification, and ordered in
* J{pi} and energy
C Format for file interpretation
2 format(I2,1X,I2,1X,A1,1X,I2,1X,A12,1X,A3,8X,E12.7,1X,F5.2,2X,A5)
C Effective file loading
open(unit=1,status='old',file=
+'fe25efs3.dat')
write(6,*) '....Loading file: fe25efs3.dat'
do i__=1,196
read(1,'(A60)')ar__1
read(ar__1,2)Nlv,J_1,P,iiii,T,nl,E_1,EQN,Terms
if(ar__1(49:53) .EQ. '') EQN = rNULL__
c ..............Just test output...........
write(6,2)Nlv,J_1,P,iiii,T,nl,E_1,EQN,Terms
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table4.dat' ! Table of fine structure levels provided for
* direct information on possible spectroscopic
* transitions
C Format for file interpretation
3 format(2X,I3,1X,I2,3X,A1,2X,I3,4X,E12.7,2X,A17,2X,A7,11X,I7)
C Effective file loading
open(unit=1,status='old',file=
+'table4.dat')
write(6,*) '....Loading file: table4.dat'
do i__=1,196
read(1,'(A79)')ar__2
read(ar__2,3)i,J_2,P_1,iiii_1,E_2,Config_1,LS,jjpiiii
c ..............Just test output...........
write(6,3)i,J_2,P_1,iiii_1,E_2,Config_1,LS,jjpiiii
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table7b.dat' ! Table of fine structure transitions
C Format for file interpretation
4 format(
+ I2,1X,I1,1X,I2,1X,I1,1X,I2,1X,I2,1X,I3,1X,I2,1X,I2,1X,F10.2,
+ 1X,E11.6,1X,E11.6,1X,E10.5,2X,E9.4,2X,E9.4)
C Effective file loading
open(unit=1,status='old',file=
+'table7b.dat')
write(6,*) '....Loading file: table7b.dat'
do i__=1,3333
read(1,'(A93)')ar__3
read(ar__3,4)gi,Pi,gf,Pf,Ni,Nf,NN,i_1,j_3,wl,Ei,Ef,fL,S,Aji
c ..............Just test output...........
write(6,4)gi,Pi,gf,Pf,Ni,Nf,NN,i_1,j_3,wl,Ei,Ef,fL,S,Aji
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table6.dat' ! Oscillator strengths f, S, A-values for allowed
* E1 fine structure transitions with the
* observed energy levels only
C Format for file interpretation
5 format(
+ 1X,A8,4X,A8,4X,A3,1X,A3,1X,I2,1X,I2,1X,I2,1X,I2,1X,F9.2,1X,
+ E8.3,1X,E8.3,1X,E8.2)
C Effective file loading
open(unit=1,status='old',file=
+'table6.dat')
write(6,*) '....Loading file: table6.dat'
do i__=1,120
read(1,'(A81)')ar__4
read(ar__4,5)Ci,Cj,SiLiPi,SjLjPj,gi_1,Ii,gf_1,If,Eij_A,f,S_1,A
if(ar__4(37:38) .EQ. '') Ii = iNULL__
if(ar__4(43:44) .EQ. '') If = iNULL__
if(ar__4(46:54) .EQ. '') Eij_A = rNULL__
c ..............Just test output...........
write(6,5)Ci,Cj,SiLiPi,SjLjPj,gi_1,Ii,gf_1,If,Eij_A,f,S_1,A
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'lifetime.dat' ! Lifetimes of fine structure levels
C Format for file interpretation
6 format(1X,I3,1X,A28,I1,4X,I2,1X,E11.6,2X,E9.4,A1,5X,I3)
C Effective file loading
open(unit=1,status='old',file=
+'lifetime.dat')
write(6,*) '....Loading file: lifetime.dat'
do i__=1,194
read(1,'(A72)')ar__5
read(ar__5,6)
+ Level_1,Conf,J_4,Ij,E_3,Lifetime,n_Lifetime,NTrans
if(ar__5(55:63) .EQ. '') Lifetime = rNULL__
c ..............Just test output...........
write(6,6)
+ Level_1,Conf,J_4,Ij,E_3,Lifetime,n_Lifetime,NTrans
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end