adjoint_sltcnd_0 Function

private function adjoint_sltcnd_0(nI, ex) result(hel)

Returns the adjoint for the diagonal element

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: nI(nel)
type(Excite_0_t), intent(in) :: ex

Return Value real(kind=dp)


Source Code

    HElement_t(dp) function adjoint_sltcnd_0(nI, ex) result(hel)
        !! Returns the adjoint for the diagonal element \( \langle D_i | \hat{H} | D_i \rangle \)
        integer, intent(in) :: nI(nel)
        type(Excite_0_t), intent(in) :: ex
        hel = nonadjoint_sltcnd_0(nI, ex)
#ifdef CMPLX_
        hel = conjg(hel)
#endif
    end function adjoint_sltcnd_0