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