Defines a n/m-resolved atomic cross section table
| 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_rate | = | 0.d0 | Log-10 minimum reaction rate |
|
| 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_rate | Log-10 beam-target rates |
type AtomicRates
!+ Defines a n/m-resolved atomic cross section table
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_rate = 0.d0
!+ Log-10 minimum reaction rate
real(Float64), dimension(2) :: ab = 0.d0
!+ Atomic mass of beam and thermal ions respectively [amu]
real(Float64), dimension(:,:,:,:,:), allocatable :: log_rate
!+ Log-10 beam-target rates
end type AtomicRates