Defines an atomic table for populating and de-populating reaction rates
| Type | Visibility | Attributes | Name | Initial | |||
|---|---|---|---|---|---|---|---|
| integer, | public | :: | nenergy | = | 1 | Number of beam energies |
|
| real(kind=Float64), | public | :: | logemin | = | 0.d0 | Log-10 minimum energy |
|
| real(kind=Float64), | public | :: | logemax | = | 0.d0 | Log-10 maximum energy |
|
| integer, | public | :: | ntemp | = | 1 | Number of target temperatures |
|
| real(kind=Float64), | public | :: | logtmin | = | 0.d0 | Log-10 minimum temperature |
|
| real(kind=Float64), | public | :: | logtmax | = | 0.d0 | Log-10 maximum temperature |
|
| integer, | public | :: | n_max | = | nlevs | Number of initial atomic energy levels |
|
| integer, | public | :: | m_max | = | nlevs | Number of final atomic energy levels |
|
| real(kind=Float64), | public | :: | dlogE | = | 0.d0 | Log-10 energy spacing |
|
| real(kind=Float64), | public | :: | dlogT | = | 0.d0 | Log-10 temperature spacing |
|
| real(kind=Float64), | public | :: | minlog_pop | = | 0.d0 | Log-10 minimum reaction rates for populating transistions |
|
| real(kind=Float64), | public | :: | minlog_depop | = | 0.d0 | Log-10 minimum reaction rates for de-populating transistions |
|
| real(kind=Float64), | public, | dimension(2) | :: | ab | = | 0.d0 | Atomic mass of beam and thermal ions respectively [amu] |
| real(kind=Float64), | public, | dimension(:,:,:,:,:), allocatable | :: | log_pop | Log-10 reaction rates for populating transistions |
||
| real(kind=Float64), | public, | dimension(:,:,:,:), allocatable | :: | log_depop | Log-10 reaction rates for de-populating transistions |
type AtomicTransitions
!+ Defines an atomic table for populating and de-populating reaction rates
integer :: nenergy = 1
!+ Number of beam energies
real(Float64) :: logemin = 0.d0
!+ Log-10 minimum energy
real(Float64) :: logemax = 0.d0
!+ Log-10 maximum energy
integer :: ntemp = 1
!+ Number of target temperatures
real(Float64) :: logtmin = 0.d0
!+ Log-10 minimum temperature
real(Float64) :: logtmax = 0.d0
!+ Log-10 maximum temperature
integer :: n_max = nlevs
!+ Number of initial atomic energy levels
integer :: m_max = nlevs
!+ Number of final atomic energy levels
real(Float64) :: dlogE = 0.d0
!+ Log-10 energy spacing
real(Float64) :: dlogT = 0.d0
!+ Log-10 temperature spacing
real(Float64) :: minlog_pop = 0.d0
!+ Log-10 minimum reaction rates for populating transistions
real(Float64) :: minlog_depop = 0.d0
!+ Log-10 minimum reaction rates for de-populating transistions
real(Float64), dimension(2) :: ab = 0.d0
!+ Atomic mass of beam and thermal ions respectively [amu]
real(Float64), dimension(:,:,:,:,:), allocatable :: log_pop
!+ Log-10 reaction rates for populating transistions
real(Float64), dimension(:,:,:,:), allocatable :: log_depop
!+ Log-10 reaction rates for de-populating transistions
end type AtomicTransitions