| Type | Visibility | Attributes | Name | Initial | |||
|---|---|---|---|---|---|---|---|
| integer(kind=n_int), | public, | allocatable | :: | projE_ilut_list(:,:) | |||
| real(kind=dp), | public, | allocatable | :: | projE_hel_list(:) | |||
| integer, | public, | allocatable | :: | exlevel(:) | |||
| integer, | public | :: | num_entries |
type ProjE_t integer(n_int), allocatable :: projE_ilut_list(:, :) HElement_t(dp), allocatable :: projE_hel_list(:) ! also store the excitation level in the projected list, since otherwise ! it is really hard to determine it in the GUGA formalism integer, allocatable :: exlevel(:) ! also store the number of entries to correctly binary search integer :: num_entries end type ProjE_t