Conversion of standardized ReadMe file for
file /./ftp/cats/J/A_A/582/A61 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 2026-Feb-12
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/582/A61 N-like ions atomic data (Radziute+, 2015)
*================================================================================
*Extended calculations of level and transition properties in the nitrogen
*isoelectronic sequence: Cr XVIII, Fe XX, Ni XXII, and Zn XXIV.
* Radziute L., Ekman J., Jonsson P., Gaigalas G.
* <Astron. Astrophys. 582, A61 (2015)>
* =2015A&A...582A..61R (SIMBAD/NED BibCode)
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table5.dat' ! Excitation energy for the active sets n=8 and n=9
in LSJ-coupling for Fe XX
integer*4 nr__
parameter (nr__=272) ! Number of records
character*82 ar__ ! Full-size record
integer*4 No (nr__) ! Position number of energy level
character*31 Conf (nr__) ! Configuration
character*13 LSJ (nr__) ! Notation of energy levels in LS-coupling
integer*4 Ecal_n_8 (nr__) ! (cm-1) Calculated energy levels for the active
* sets n=8
integer*4 Ecal_n_9 (nr__) ! (cm-1) Calculated energy levels for the active
* sets n=9
integer*4 ECI_MBPT (nr__) ! (cm-1) Energy levels from computed with method
* CI+MBPT by Gu (2005, Cat. J/ApJS/156/105)
integer*4 Eobs (nr__) ! (cm-1) ? Energy levels from NIST database
* (Kramida et al., 2013, NIST Atomic Spectra
* Database (version 5.1)
* (Gaithersburg, MD: US NIST)
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table6.dat' ! Excitation energy, hyperfine magnetic dipole
constants, electric quadrupole constants,
Lande g_J-factors, normal mass shift parameters,
specific mass shift, field shift parameters
for levels of Fe XX
integer*4 nr__1
parameter (nr__1=272) ! Number of records
character*120 ar__1 ! Full-size record
integer*4 No_1 (nr__1) ! Position number of energy level
character*31 Conf_1 (nr__1) ! Configuration
character*14 LSJ_1 (nr__1) ! Notation of energy levels in LSJ-coupling
integer*4 E (nr__1) ! (cm-1) Calculated energy levels
real*4 AJ_I_muI (nr__1) ! (MHz/nm) Hyperfine magnetic dipole constants
* (in MHz per units of {mu}_N)
real*4 BJ_Q (nr__1) ! (MHz/barn) Hyperfine electric quadrupole constants
real*8 gJ (nr__1) ! Lande factors
real*4 KNMS (nr__1) ! (GHz.u) Normal mass shift parameters
real*4 KSMS (nr__1) ! (GHz.u) Specific mass shift parameters
real*4 F (nr__1) ! (GHz/fm2) Field shift parameters
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table7.dat' ! Excitation energy and composition of atomic state
function in LSJ-coupling for Fe XX
integer*4 nr__2
parameter (nr__2=272) ! Number of records
character*243 ar__2 ! Full-size record
integer*4 No_2 (nr__2) ! Position number of energy level
character*31 Conf_2 (nr__2) ! Configuration
character*13 LSJ_2 (nr__2) ! Notation of energy levels in LSJ-coupling
character*185 Comp (nr__2) ! Composition
integer*4 E_1 (nr__2) ! (cm-1) Calculated energy levels
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table8.dat' ! Excitation energy, hyperfine magnetic dipole
constants, electric quadrupole constants,
Lande g_J-factors, normal mass shift parameters,
specific mass shift, field shift parameters
for levels of Cr XVIII
integer*4 nr__3
parameter (nr__3=272) ! Number of records
character*120 ar__3 ! Full-size record
integer*4 No_3 (nr__3) ! Position number of energy level
character*31 Conf_3 (nr__3) ! Configuration
character*14 LSJ_3 (nr__3) ! Notation of energy levels in LSJ-coupling
integer*4 E_2 (nr__3) ! (cm-1) Calculated energy levels
real*4 AJ_I_muI_1 (nr__3) ! (MHz/nm) Hyperfine magnetic dipole constants
* (in MHz per units of {mu}_N)
real*4 BJ_Q_1 (nr__3) ! (MHz/barn) Hyperfine electric quadrupole constants
real*8 gJ_1 (nr__3) ! Lande factors
real*4 KNMS_1 (nr__3) ! (GHz.u) Normal mass shift parameters
real*4 KSMS_1 (nr__3) ! (GHz.u) Specific mass shift parameters
real*4 F_1 (nr__3) ! (GHz/fm2) Field shift parameters
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table9.dat' ! Excitation energy and composition of atomic state
function in LSJ-coupling for Cr XVIII
integer*4 nr__4
parameter (nr__4=272) ! Number of records
character*243 ar__4 ! Full-size record
integer*4 No_4 (nr__4) ! Position number of energy level
character*31 Conf_4 (nr__4) ! Configuration
character*13 LSJ_4 (nr__4) ! Notation of energy levels in LSJ-coupling
character*185 Comp_1 (nr__4) ! Composition
integer*4 E_3 (nr__4) ! (cm-1) Calculated energy levels
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table10.dat' ! Excitation energy, hyperfine magnetic dipole
constants, electric quadrupole constants,
Lande g_J-factors, normal mass shift parameters,
specific mass shift, field shift parameters
for levels of Ni XXII
integer*4 nr__5
parameter (nr__5=272) ! Number of records
character*120 ar__5 ! Full-size record
integer*4 No_5 (nr__5) ! Position number of energy level
character*31 Conf_5 (nr__5) ! Configuration
character*14 LSJ_5 (nr__5) ! Notation of energy levels in LSJ-coupling
integer*4 E_4 (nr__5) ! (cm-1) Calculated energy levels
real*4 AJ_I_muI_1 (nr__5) ! (MHz/nm) Hyperfine magnetic dipole constants
* (in MHz per units of {mu}_N)
real*4 BJ_Q_2 (nr__5) ! (MHz/barn) Hyperfine electric quadrupole constants
real*8 gJ_2 (nr__5) ! Lande factors
real*4 KNMS_2 (nr__5) ! (GHz.u) Normal mass shift parameters
real*4 KSMS_2 (nr__5) ! (GHz.u) Specific mass shift parameters
real*4 F_2 (nr__5) ! (GHz/fm2) Field shift parameters
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table11.dat' ! Excitation energy and composition of atomic state
function in LSJ-coupling for Ni XXII
integer*4 nr__6
parameter (nr__6=272) ! Number of records
character*243 ar__6 ! Full-size record
integer*4 No_6 (nr__6) ! Position number of energy level
character*31 Conf_6 (nr__6) ! Configuration
character*13 LSJ_6 (nr__6) ! Notation of energy levels in LSJ-coupling
character*185 Comp_2 (nr__6) ! Composition
integer*4 E_5 (nr__6) ! (cm-1) Calculated energy levels
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table12.dat' ! Excitation energy, hyperfine magnetic dipole
constants, electric quadrupole constants,
Lande g_J-factors, normal mass shift parameters,
specific mass shift, field shift parameters
for levels of Zn XXIV
integer*4 nr__7
parameter (nr__7=272) ! Number of records
character*120 ar__7 ! Full-size record
integer*4 No_7 (nr__7) ! Position number of energy level
character*31 Conf_7 (nr__7) ! Configuration
character*14 LSJ_7 (nr__7) ! Notation of energy levels in LSJ-coupling
integer*4 E_6 (nr__7) ! (cm-1) Calculated energy levels
real*4 AJ_I_muI_1 (nr__7) ! (MHz/nm) Hyperfine magnetic dipole constants
* (in MHz per units of {mu}_N)
real*4 BJ_Q_3 (nr__7) ! (MHz/barn) Hyperfine electric quadrupole constants
real*8 gJ_3 (nr__7) ! Lande factors
real*4 KNMS_3 (nr__7) ! (GHz.u) Normal mass shift parameters
real*4 KSMS_3 (nr__7) ! (GHz.u) Specific mass shift parameters
real*4 F_3 (nr__7) ! (GHz/fm2) Field shift parameters
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table13.dat' ! Excitation energy and composition of atomic state
function in LSJ-coupling for Zn XXIV
integer*4 nr__8
parameter (nr__8=272) ! Number of records
character*243 ar__8 ! Full-size record
integer*4 No_8 (nr__8) ! Position number of energy level
character*31 Conf_8 (nr__8) ! Configuration
character*13 LSJ_8 (nr__8) ! Notation of energy levels in LSJ-coupling
character*185 Comp_3 (nr__8) ! Composition
integer*4 E_7 (nr__8) ! (cm-1) Calculated energy levels
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table14.dat' ! E1, E2 and M1 transitions energies, wavelengths,
transition rates, weighted oscillator strengths
and uncertainty estimators for Fe XX
integer*4 nr__9
parameter (nr__9=39488) ! Number of records
character*147 ar__9 ! Full-size record
character*48 Upper (nr__9) ! Upper state label
character*48 Lower (nr__9) ! Lower state label
character*2 Type (nr__9) ! Type of transition (E1, E2, M1)
integer*4 dE (nr__9) ! (cm-1) Transition energy {Delta}E
real*8 lambda (nr__9) ! (0.1nm) Wavelength {lambda} of transition (0.1nm)
real*4 A (nr__9) ! (s-1) Transition probability
real*4 gf (nr__9) ! Weighted oscillator strengths
real*4 dT (nr__9) ! ? Uncertainty estimator
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table15.dat' ! E1, E2 and M1 transitions energies, wavelengths,
transition rates, weighted oscillator strengths
and uncertainty estimators dT for Cr XVIII
integer*4 nr__10
parameter (nr__10=39488) ! Number of records
character*147 ar__10 ! Full-size record
character*48 Upper_1 (nr__10) ! Upper state label
character*48 Lower_1 (nr__10) ! Lower state label
character*2 Type_1 (nr__10) ! Type of transition (E1, E2, M1)
integer*4 dE_1 (nr__10) ! (cm-1) Transition energy {Delta}E
real*8 lambda_1 (nr__10) ! (0.1nm) Wavelength {lambda} of transition (0.1nm)
real*4 A_1 (nr__10) ! (s-1) Transition probability
real*4 gf_1 (nr__10) ! Weighted oscillator strengths
real*4 dT_1 (nr__10) ! ? Uncertainty estimator
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table16.dat' ! E1, E2 and M1 transitions energies, wavelengths,
transition rates, weighted oscillator strengths
and uncertainty estimators dT for Ni XXII
integer*4 nr__11
parameter (nr__11=39488) ! Number of records
character*147 ar__11 ! Full-size record
character*48 Upper_2 (nr__11) ! Upper state label
character*48 Lower_2 (nr__11) ! Lower state label
character*2 Type_2 (nr__11) ! Type of transition (E1, E2, M1)
integer*4 dE_2 (nr__11) ! (cm-1) Transition energy {Delta}E
real*8 lambda_2 (nr__11) ! (0.1nm) Wavelength {lambda} of transition (0.1nm)
real*4 A_2 (nr__11) ! (s-1) Transition probability
real*4 gf_2 (nr__11) ! Weighted oscillator strengths
real*4 dT_2 (nr__11) ! ? Uncertainty estimator
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table17.dat' ! E1, E2 and M1 transitions energies, wavelengths,
transition rates, weighted oscillator strengths
and uncertainty estimators dT for Zn XXIV
integer*4 nr__12
parameter (nr__12=39488) ! Number of records
character*147 ar__12 ! Full-size record
character*48 Upper_3 (nr__12) ! Upper state label
character*48 Lower_3 (nr__12) ! Lower state label
character*2 Type_3 (nr__12) ! Type of transition (E1, E2, M1)
integer*4 dE_3 (nr__12) ! (cm-1) Transition energy {Delta}E
real*8 lambda_3 (nr__12) ! (0.1nm) Wavelength {lambda} of transition (0.1nm)
real*4 A_3 (nr__12) ! (s-1) Transition probability
real*4 gf_3 (nr__12) ! Weighted oscillator strengths
real*4 dT_3 (nr__12) ! ? Uncertainty estimator
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table18.dat' ! Excitation energy E and lifetimes for Fe XX
in length and velocity forms
integer*4 nr__13
parameter (nr__13=271) ! Number of records
character*80 ar__13 ! Full-size record
integer*4 No_9 (nr__13) ! Position number of energy level
character*31 Conf_9 (nr__13) ! Configuration
character*13 LSJ_9 (nr__13) ! Notation of energy levels in LS-coupling
integer*4 E_8 (nr__13) ! (cm-1) Calculated energy levels
real*4 taul (nr__13) ! (s) Lifetime of level in length form {tau}_l_
real*4 tauv (nr__13) ! (s) Lifetime of level in velocity form {tau}_v_
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table19.dat' ! Excitation energy E and lifetimes for Cr XVIII
in length and velocity forms
integer*4 nr__14
parameter (nr__14=271) ! Number of records
character*80 ar__14 ! Full-size record
integer*4 No_10 (nr__14) ! Position number of energy level
character*31 Conf_10 (nr__14) ! Configuration
character*13 LSJ_10 (nr__14) ! Notation of energy levels in LS-coupling
integer*4 E_9 (nr__14) ! (cm-1) Calculated energy levels
real*4 taul_1 (nr__14) ! (s) Lifetime of level in length form {tau}_l_
real*4 tauv_1 (nr__14) ! (s) Lifetime of level in velocity form {tau}_v_
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table20.dat' ! Excitation energy E and lifetimes for Ni XXII
in length and velocity forms
integer*4 nr__15
parameter (nr__15=271) ! Number of records
character*80 ar__15 ! Full-size record
integer*4 No_11 (nr__15) ! Position number of energy level
character*31 Conf_11 (nr__15) ! Configuration
character*13 LSJ_11 (nr__15) ! Notation of energy levels in LS-coupling
integer*4 E_10 (nr__15) ! (cm-1) Calculated energy levels
real*4 taul_2 (nr__15) ! (s) Lifetime of level in length form {tau}_l_
real*4 tauv_2 (nr__15) ! (s) Lifetime of level in velocity form {tau}_v_
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table21.dat' ! Excitation energy E and lifetimes for Zn XXIV
integer*4 nr__16
parameter (nr__16=271) ! Number of records
character*80 ar__16 ! Full-size record
integer*4 No_12 (nr__16) ! Position number of energy level
character*31 Conf_12 (nr__16) ! Configuration
character*13 LSJ_12 (nr__16) ! Notation of energy levels in LS-coupling
integer*4 E_11 (nr__16) ! (cm-1) Calculated energy levels
real*4 taul_3 (nr__16) ! (s) Lifetime of level in length form {tau}_l_
real*4 tauv_3 (nr__16) ! (s) Lifetime of level in velocity form {tau}_v_
C=============================================================================
C Loading file 'table5.dat' ! Excitation energy for the active sets n=8 and n=9
* in LSJ-coupling for Fe XX
C Format for file interpretation
1 format(I3,1X,A31,1X,A13,2X,I7,1X,I7,1X,I7,1X,I7)
C Effective file loading
open(unit=1,status='old',file=
+'table5.dat')
write(6,*) '....Loading file: table5.dat'
do i__=1,272
read(1,'(A82)')ar__
read(ar__,1)
+ No(i__),Conf(i__),LSJ(i__),Ecal_n_8(i__),Ecal_n_9(i__),
+ ECI_MBPT(i__),Eobs(i__)
if(ar__(76:82) .EQ. '') Eobs(i__) = iNULL__
c ..............Just test output...........
write(6,1)
+ No(i__),Conf(i__),LSJ(i__),Ecal_n_8(i__),Ecal_n_9(i__),
+ ECI_MBPT(i__),Eobs(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table6.dat' ! Excitation energy, hyperfine magnetic dipole
* constants, electric quadrupole constants,
* Lande g_J-factors, normal mass shift parameters,
* specific mass shift, field shift parameters
* for levels of Fe XX
C Format for file interpretation
2 format(
+ I3,1X,A31,1X,A14,1X,I8,1X,E9.4,1X,E9.4,1X,F8.6,1X,E9.5,1X,
+ E10.5,1X,E10.6)
C Effective file loading
open(unit=1,status='old',file=
+'table6.dat')
write(6,*) '....Loading file: table6.dat'
do i__=1,272
read(1,'(A120)')ar__1
read(ar__1,2)
+ No_1(i__),Conf_1(i__),LSJ_1(i__),E(i__),AJ_I_muI(i__),
+ BJ_Q(i__),gJ(i__),KNMS(i__),KSMS(i__),F(i__)
c ..............Just test output...........
write(6,2)
+ No_1(i__),Conf_1(i__),LSJ_1(i__),E(i__),AJ_I_muI(i__),
+ BJ_Q(i__),gJ(i__),KNMS(i__),KSMS(i__),F(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table7.dat' ! Excitation energy and composition of atomic state
* function in LSJ-coupling for Fe XX
C Format for file interpretation
3 format(I3,1X,A31,1X,A13,A185,1X,I8)
C Effective file loading
open(unit=1,status='old',file=
+'table7.dat')
write(6,*) '....Loading file: table7.dat'
do i__=1,272
read(1,'(A243)')ar__2
read(ar__2,3)
+ No_2(i__),Conf_2(i__),LSJ_2(i__),Comp(i__),E_1(i__)
c ..............Just test output...........
write(6,3)
+ No_2(i__),Conf_2(i__),LSJ_2(i__),Comp(i__),E_1(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table8.dat' ! Excitation energy, hyperfine magnetic dipole
* constants, electric quadrupole constants,
* Lande g_J-factors, normal mass shift parameters,
* specific mass shift, field shift parameters
* for levels of Cr XVIII
C Format for file interpretation
4 format(
+ I3,1X,A31,1X,A14,1X,I8,1X,E9.4,1X,E9.4,1X,F8.6,1X,E9.5,1X,
+ E10.5,1X,E10.6)
C Effective file loading
open(unit=1,status='old',file=
+'table8.dat')
write(6,*) '....Loading file: table8.dat'
do i__=1,272
read(1,'(A120)')ar__3
read(ar__3,4)
+ No_3(i__),Conf_3(i__),LSJ_3(i__),E_2(i__),AJ_I_muI_1(i__),
+ BJ_Q_1(i__),gJ_1(i__),KNMS_1(i__),KSMS_1(i__),F_1(i__)
c ..............Just test output...........
write(6,4)
+ No_3(i__),Conf_3(i__),LSJ_3(i__),E_2(i__),AJ_I_muI_1(i__),
+ BJ_Q_1(i__),gJ_1(i__),KNMS_1(i__),KSMS_1(i__),F_1(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table9.dat' ! Excitation energy and composition of atomic state
* function in LSJ-coupling for Cr XVIII
C Format for file interpretation
5 format(I3,1X,A31,1X,A13,A185,1X,I8)
C Effective file loading
open(unit=1,status='old',file=
+'table9.dat')
write(6,*) '....Loading file: table9.dat'
do i__=1,272
read(1,'(A243)')ar__4
read(ar__4,5)
+ No_4(i__),Conf_4(i__),LSJ_4(i__),Comp_1(i__),E_3(i__)
c ..............Just test output...........
write(6,5)
+ No_4(i__),Conf_4(i__),LSJ_4(i__),Comp_1(i__),E_3(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table10.dat' ! Excitation energy, hyperfine magnetic dipole
* constants, electric quadrupole constants,
* Lande g_J-factors, normal mass shift parameters,
* specific mass shift, field shift parameters
* for levels of Ni XXII
C Format for file interpretation
6 format(
+ I3,1X,A31,1X,A14,1X,I8,1X,E9.4,1X,E9.4,1X,F8.6,1X,E9.5,1X,
+ E10.5,1X,E10.6)
C Effective file loading
open(unit=1,status='old',file=
+'table10.dat')
write(6,*) '....Loading file: table10.dat'
do i__=1,272
read(1,'(A120)')ar__5
read(ar__5,6)
+ No_5(i__),Conf_5(i__),LSJ_5(i__),E_4(i__),AJ_I_muI_1(i__),
+ BJ_Q_2(i__),gJ_2(i__),KNMS_2(i__),KSMS_2(i__),F_2(i__)
c ..............Just test output...........
write(6,6)
+ No_5(i__),Conf_5(i__),LSJ_5(i__),E_4(i__),AJ_I_muI_1(i__),
+ BJ_Q_2(i__),gJ_2(i__),KNMS_2(i__),KSMS_2(i__),F_2(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table11.dat' ! Excitation energy and composition of atomic state
* function in LSJ-coupling for Ni XXII
C Format for file interpretation
7 format(I3,1X,A31,1X,A13,A185,1X,I8)
C Effective file loading
open(unit=1,status='old',file=
+'table11.dat')
write(6,*) '....Loading file: table11.dat'
do i__=1,272
read(1,'(A243)')ar__6
read(ar__6,7)
+ No_6(i__),Conf_6(i__),LSJ_6(i__),Comp_2(i__),E_5(i__)
c ..............Just test output...........
write(6,7)
+ No_6(i__),Conf_6(i__),LSJ_6(i__),Comp_2(i__),E_5(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table12.dat' ! Excitation energy, hyperfine magnetic dipole
* constants, electric quadrupole constants,
* Lande g_J-factors, normal mass shift parameters,
* specific mass shift, field shift parameters
* for levels of Zn XXIV
C Format for file interpretation
8 format(
+ I3,1X,A31,1X,A14,1X,I8,1X,E9.4,1X,E9.4,1X,F8.6,1X,E9.5,1X,
+ E10.5,1X,E10.6)
C Effective file loading
open(unit=1,status='old',file=
+'table12.dat')
write(6,*) '....Loading file: table12.dat'
do i__=1,272
read(1,'(A120)')ar__7
read(ar__7,8)
+ No_7(i__),Conf_7(i__),LSJ_7(i__),E_6(i__),AJ_I_muI_1(i__),
+ BJ_Q_3(i__),gJ_3(i__),KNMS_3(i__),KSMS_3(i__),F_3(i__)
c ..............Just test output...........
write(6,8)
+ No_7(i__),Conf_7(i__),LSJ_7(i__),E_6(i__),AJ_I_muI_1(i__),
+ BJ_Q_3(i__),gJ_3(i__),KNMS_3(i__),KSMS_3(i__),F_3(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table13.dat' ! Excitation energy and composition of atomic state
* function in LSJ-coupling for Zn XXIV
C Format for file interpretation
9 format(I3,1X,A31,1X,A13,A185,1X,I8)
C Effective file loading
open(unit=1,status='old',file=
+'table13.dat')
write(6,*) '....Loading file: table13.dat'
do i__=1,272
read(1,'(A243)')ar__8
read(ar__8,9)
+ No_8(i__),Conf_8(i__),LSJ_8(i__),Comp_3(i__),E_7(i__)
c ..............Just test output...........
write(6,9)
+ No_8(i__),Conf_8(i__),LSJ_8(i__),Comp_3(i__),E_7(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table14.dat' ! E1, E2 and M1 transitions energies, wavelengths,
* transition rates, weighted oscillator strengths
* and uncertainty estimators for Fe XX
C Format for file interpretation
10 format(A48,1X,A48,1X,A2,1X,I8,1X,F11.3,1X,E9.4,1X,E9.4,1X,F5.3)
C Effective file loading
open(unit=1,status='old',file=
+'table14.dat')
write(6,*) '....Loading file: table14.dat'
do i__=1,39488
read(1,'(A147)')ar__9
read(ar__9,10)
+ Upper(i__),Lower(i__),Type(i__),dE(i__),lambda(i__),A(i__),
+ gf(i__),dT(i__)
if(ar__9(143:147) .EQ. '') dT(i__) = rNULL__
c ..............Just test output...........
write(6,10)
+ Upper(i__),Lower(i__),Type(i__),dE(i__),lambda(i__),A(i__),
+ gf(i__),dT(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table15.dat' ! E1, E2 and M1 transitions energies, wavelengths,
* transition rates, weighted oscillator strengths
* and uncertainty estimators dT for Cr XVIII
C Format for file interpretation
11 format(A48,1X,A48,1X,A2,1X,I8,1X,F11.3,1X,E9.4,1X,E9.4,1X,F5.3)
C Effective file loading
open(unit=1,status='old',file=
+'table15.dat')
write(6,*) '....Loading file: table15.dat'
do i__=1,39488
read(1,'(A147)')ar__10
read(ar__10,11)
+ Upper_1(i__),Lower_1(i__),Type_1(i__),dE_1(i__),lambda_1(i__),
+ A_1(i__),gf_1(i__),dT_1(i__)
if(ar__10(143:147) .EQ. '') dT_1(i__) = rNULL__
c ..............Just test output...........
write(6,11)
+ Upper_1(i__),Lower_1(i__),Type_1(i__),dE_1(i__),lambda_1(i__),
+ A_1(i__),gf_1(i__),dT_1(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table16.dat' ! E1, E2 and M1 transitions energies, wavelengths,
* transition rates, weighted oscillator strengths
* and uncertainty estimators dT for Ni XXII
C Format for file interpretation
12 format(A48,1X,A48,1X,A2,1X,I8,1X,F11.3,1X,E9.4,1X,E9.4,1X,F5.3)
C Effective file loading
open(unit=1,status='old',file=
+'table16.dat')
write(6,*) '....Loading file: table16.dat'
do i__=1,39488
read(1,'(A147)')ar__11
read(ar__11,12)
+ Upper_2(i__),Lower_2(i__),Type_2(i__),dE_2(i__),lambda_2(i__),
+ A_2(i__),gf_2(i__),dT_2(i__)
if(ar__11(143:147) .EQ. '') dT_2(i__) = rNULL__
c ..............Just test output...........
write(6,12)
+ Upper_2(i__),Lower_2(i__),Type_2(i__),dE_2(i__),lambda_2(i__),
+ A_2(i__),gf_2(i__),dT_2(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table17.dat' ! E1, E2 and M1 transitions energies, wavelengths,
* transition rates, weighted oscillator strengths
* and uncertainty estimators dT for Zn XXIV
C Format for file interpretation
13 format(A48,1X,A48,1X,A2,1X,I8,1X,F11.3,1X,E9.4,1X,E9.4,1X,F5.3)
C Effective file loading
open(unit=1,status='old',file=
+'table17.dat')
write(6,*) '....Loading file: table17.dat'
do i__=1,39488
read(1,'(A147)')ar__12
read(ar__12,13)
+ Upper_3(i__),Lower_3(i__),Type_3(i__),dE_3(i__),lambda_3(i__),
+ A_3(i__),gf_3(i__),dT_3(i__)
if(ar__12(143:147) .EQ. '') dT_3(i__) = rNULL__
c ..............Just test output...........
write(6,13)
+ Upper_3(i__),Lower_3(i__),Type_3(i__),dE_3(i__),lambda_3(i__),
+ A_3(i__),gf_3(i__),dT_3(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table18.dat' ! Excitation energy E and lifetimes for Fe XX
* in length and velocity forms
C Format for file interpretation
14 format(I3,1X,A31,1X,A13,1X,I8,1X,E10.5,1X,E10.5)
C Effective file loading
open(unit=1,status='old',file=
+'table18.dat')
write(6,*) '....Loading file: table18.dat'
do i__=1,271
read(1,'(A80)')ar__13
read(ar__13,14)
+ No_9(i__),Conf_9(i__),LSJ_9(i__),E_8(i__),taul(i__),tauv(i__)
c ..............Just test output...........
write(6,14)
+ No_9(i__),Conf_9(i__),LSJ_9(i__),E_8(i__),taul(i__),tauv(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table19.dat' ! Excitation energy E and lifetimes for Cr XVIII
* in length and velocity forms
C Format for file interpretation
15 format(I3,1X,A31,1X,A13,1X,I8,1X,E10.5,1X,E10.5)
C Effective file loading
open(unit=1,status='old',file=
+'table19.dat')
write(6,*) '....Loading file: table19.dat'
do i__=1,271
read(1,'(A80)')ar__14
read(ar__14,15)
+ No_10(i__),Conf_10(i__),LSJ_10(i__),E_9(i__),taul_1(i__),
+ tauv_1(i__)
c ..............Just test output...........
write(6,15)
+ No_10(i__),Conf_10(i__),LSJ_10(i__),E_9(i__),taul_1(i__),
+ tauv_1(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table20.dat' ! Excitation energy E and lifetimes for Ni XXII
* in length and velocity forms
C Format for file interpretation
16 format(I3,1X,A31,1X,A13,1X,I8,1X,E10.5,1X,E10.5)
C Effective file loading
open(unit=1,status='old',file=
+'table20.dat')
write(6,*) '....Loading file: table20.dat'
do i__=1,271
read(1,'(A80)')ar__15
read(ar__15,16)
+ No_11(i__),Conf_11(i__),LSJ_11(i__),E_10(i__),taul_2(i__),
+ tauv_2(i__)
c ..............Just test output...........
write(6,16)
+ No_11(i__),Conf_11(i__),LSJ_11(i__),E_10(i__),taul_2(i__),
+ tauv_2(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table21.dat' ! Excitation energy E and lifetimes for Zn XXIV
C Format for file interpretation
17 format(I3,1X,A31,1X,A13,1X,I8,1X,E10.5,1X,E10.5)
C Effective file loading
open(unit=1,status='old',file=
+'table21.dat')
write(6,*) '....Loading file: table21.dat'
do i__=1,271
read(1,'(A80)')ar__16
read(ar__16,17)
+ No_12(i__),Conf_12(i__),LSJ_12(i__),E_11(i__),taul_3(i__),
+ tauv_3(i__)
c ..............Just test output...........
write(6,17)
+ No_12(i__),Conf_12(i__),LSJ_12(i__),E_11(i__),taul_3(i__),
+ tauv_3(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end