| Type | Visibility | Attributes | Name | Initial | |||
|---|---|---|---|---|---|---|---|
| integer, | public | :: | order | = | 0 | ||
| integer, | public, | allocatable | :: | operators(:,:,:) | |||
| real(kind=dp), | public, | allocatable | :: | amplitudes(:) | |||
| integer, | public, | allocatable | :: | set_flag(:) | |||
| integer, | public | :: | n_ops | = | 0 |
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| class(cc_amplitude), | intent(in) | :: | this | |||
| integer, | intent(in) | :: | ind |
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| class(cc_amplitude), | intent(in) | :: | this | |||
| integer, | intent(in) | :: | elec_ind(this%order) | |||
| integer, | intent(in) | :: | orb_ind(this%order) |
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| class(cc_amplitude) | :: | this | ||||
| integer, | intent(in) | :: | ind |
type cc_amplitude
integer :: order = 0
integer, allocatable :: operators(:, :, :)
real(dp), allocatable :: amplitudes(:)
integer, allocatable :: set_flag(:)
integer :: n_ops = 0
contains
procedure :: get_ex
procedure :: get_ind
procedure :: get_amp => get_amp_ind
end type cc_amplitude