ClassicAbInitExcitationGenerator_t
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
class(ClassicAbInitExcitationGenerator_t), | intent(inout) | :: | this |
subroutine abinit_finalize(this)
class(ClassicAbInitExcitationGenerator_t), intent(inout) :: this
if (allocated(this%doubles_generator)) then
call this%doubles_generator%finalize()
call this%singles_generator%finalize()
! Yes, we assume that either both or none are allocated
deallocate(this%singles_generator, this%doubles_generator)
end if
end subroutine abinit_finalize