| Type | Visibility | Attributes | Name | Initial | |||
|---|---|---|---|---|---|---|---|
| character(len=MAX_STRING_LENGTH), | public | :: | filename | ||||
| real(kind=rp), | public | :: | E | ||||
| real(kind=rp), | public | :: | Eo | ||||
| real(kind=rp), | public | :: | sigma_E | ||||
| real(kind=rp), | public | :: | Zeff | ||||
| real(kind=rp), | public | :: | sigma_Z | ||||
| real(kind=rp), | public | :: | max_pitch_angle | ||||
| real(kind=rp), | public | :: | min_pitch_angle | ||||
| real(kind=rp), | public | :: | min_sampling_energy | ||||
| real(kind=rp), | public | :: | max_sampling_energy | ||||
| real(kind=rp), | public | :: | min_sampling_g | ||||
| real(kind=rp), | public | :: | max_sampling_g | ||||
| real(kind=rp), | public | :: | min_energy | ||||
| real(kind=rp), | public | :: | max_energy | ||||
| real(kind=rp), | public | :: | min_g | ||||
| real(kind=rp), | public | :: | max_g | ||||
| real(kind=rp), | public | :: | min_pitch | ||||
| real(kind=rp), | public | :: | max_pitch | ||||
| integer, | public | :: | N | ||||
| real(kind=rp), | public, | DIMENSION(:), ALLOCATABLE | :: | E_axis | |||
| real(kind=rp), | public, | DIMENSION(:), ALLOCATABLE | :: | g | |||
| real(kind=rp), | public, | DIMENSION(:), ALLOCATABLE | :: | fRE_E | |||
| real(kind=rp), | public, | DIMENSION(:), ALLOCATABLE | :: | fRE_pitch | |||
| character(len=MAX_STRING_LENGTH), | public | :: | current_direction | ||||
| real(kind=rp), | public | :: | Bo | ||||
| real(kind=rp), | public | :: | lambda | ||||
| real(kind=rp), | public | :: | A_fact |
TYPE, PRIVATE :: HOLLMANN_PARAMS
CHARACTER(MAX_STRING_LENGTH) :: filename
REAL(rp) :: E
REAL(rp) :: Eo
REAL(rp) :: sigma_E
REAL(rp) :: Zeff
REAL(rp) :: sigma_Z
REAL(rp) :: max_pitch_angle
REAL(rp) :: min_pitch_angle
REAL(rp) :: min_sampling_energy ! Minimum energy of sampled PDF in MeV
REAL(rp) :: max_sampling_energy ! Maximum energy of sampled PDF in MeV
REAL(rp) :: min_sampling_g ! Minimum energy of sampled PDF in MeV
REAL(rp) :: max_sampling_g ! Maximum energy of sampled PDF in MeV
REAL(rp) :: min_energy ! Minimum energy of sampled PDF in MeV
REAL(rp) :: max_energy ! Maximum energy of sampled PDF in MeV
REAL(rp) :: min_g ! Minimum energy of sampled PDF in MeV
REAL(rp) :: max_g ! Maximum energy of sampled PDF in MeV
REAL(rp) :: min_pitch ! Minimum energy of sampled PDF in MeV
REAL(rp) :: max_pitch ! Maximum energy of sampled PDF in MeV
INTEGER :: N
REAL(rp), DIMENSION(:), ALLOCATABLE :: E_axis
REAL(rp), DIMENSION(:), ALLOCATABLE :: g
REAL(rp), DIMENSION(:), ALLOCATABLE :: fRE_E
REAL(rp), DIMENSION(:), ALLOCATABLE :: fRE_pitch
CHARACTER(MAX_STRING_LENGTH) :: current_direction
REAL(rp) :: Bo
REAL(rp) :: lambda
REAL(rp) :: A_fact ! Multiplication factor for A in distributon.
END TYPE HOLLMANN_PARAMS