DetBitZero Function

public pure function DetBitZero(iLutI, nLast)

Arguments

Type IntentOptional Attributes Name
integer(kind=n_int), intent(in) :: iLutI(0:NIfTot)
integer, intent(in), optional :: nLast

Return Value logical


Contents

Source Code

DetBitZero

Source Code

    pure logical function DetBitZero(iLutI, nLast)
        integer, intent(in), optional :: nLast
        integer(kind=n_int), intent(in) :: iLutI(0:NIfTot)
        integer :: i, lnLast
        if (iLutI(0) /= 0) then
            DetBitZero = .false.
            return
        else
            if (present(nLast)) then
                lnLast = nLast
            else
                lnLast = NIftot
            end if
            do i = 1, lnLast
                if (iLutI(i) /= 0) then
                    DetBitZero = .false.
                    return
                end if
            end do
        end if
        DetBitZero = .true.
    end function DetBitZero