CalcParentFlag_normal Subroutine

public subroutine CalcParentFlag_normal(j, parent_flags)

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: j
integer, intent(out) :: parent_flags

Source Code

    subroutine CalcParentFlag_normal(j, parent_flags)
        integer, intent(in) :: j
        integer, intent(out) :: parent_flags
        integer :: nI(nel), exLvl

        ! If we do not supply nI externally, get it now.
        ! This routine mainly exists for compatibility
        call decode_bit_det(nI, CurrentDets(:, j))
        exLvl = FindBitExcitLevel(ilutRef(:, 1), CurrentDets(:, j), t_hphf_ic=.true.)
        call CalcParentFlag_det(j, nI, exLvl, parent_flags)
    end subroutine CalcParentFlag_normal