abinit_finalize Subroutine

private subroutine abinit_finalize(this)

Type Bound

ClassicAbInitExcitationGenerator_t

Arguments

Type IntentOptional Attributes Name
class(ClassicAbInitExcitationGenerator_t), intent(inout) :: this

Contents

Source Code


Source Code

    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