SinglesGUGABase_t Derived Type

type, public, abstract, extends(Finalizable_t) :: SinglesGUGABase_t


Type-Bound Procedures

procedure(BoundFinalize_t), public, deferred :: finalize

  • subroutine BoundFinalize_t(this) Prototype

    Arguments

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

procedure(SinglesPickOrbitals_t), public, deferred :: pickOrbitals

  • subroutine SinglesPickOrbitals_t(this, nI, ilut, csf_i, excitInfo, pgen) Prototype

    Arguments

    Type IntentOptional Attributes Name
    class(SinglesGUGABase_t), intent(in) :: this
    integer, intent(in) :: nI(nel)
    integer(kind=n_int), intent(in) :: ilut(0:GugaBits%len_tot)
    type(CSF_Info_t), intent(in) :: csf_i
    type(ExcitationInformation_t), intent(out) :: excitInfo
    real(kind=dp), intent(out) :: pgen

procedure(SinglesCalcPgen_t), public, deferred :: calc_pgen

  • function SinglesCalcPgen_t(this, nI, ilutI, csf_i, excitInfo) result(pgen) Prototype

    Arguments

    Type IntentOptional Attributes Name
    class(SinglesGUGABase_t), intent(in) :: this
    integer, intent(in) :: nI(nel)
    integer(kind=n_int), intent(in) :: ilutI(0:GugaBits%len_tot)
    type(CSF_Info_t), intent(in) :: csf_i
    type(ExcitationInformation_t), intent(in) :: excitInfo

    Return Value real(kind=dp)