GenExcitations4_initd Subroutine

public subroutine GenExcitations4_initd(session, nJ, tParity, tAllExcitFound, ti_lt_a_only)

Arguments

Type IntentOptional Attributes Name
type(ExcitGenSessionType), intent(inout) :: session
integer, intent(out) :: nJ(nEl)
logical, intent(out) :: tParity
logical, intent(out) :: tAllExcitFound
logical, intent(in) :: ti_lt_a_only

Source Code

    subroutine GenExcitations4_initd(session, nJ, tParity, tAllExcitFound, ti_lt_a_only)
        implicit none
        type(ExcitGenSessionType), intent(inout) :: session
        integer, intent(out) :: nJ(nEl)
        logical, intent(out) :: tParity, tAllExcitFound
        logical, intent(in) :: ti_lt_a_only
        call GenExcitations4_non_initd(session, session%nI, nJ, tParity, tAllExcitFound, ti_lt_a_only)
    end subroutine GenExcitations4_initd