isProperCSF_b Function

private pure function isProperCSF_b(ilut) result(flag)

Arguments

Type IntentOptional Attributes Name
integer(kind=n_int), intent(in) :: ilut(0:GugaBits%len_tot)

Return Value logical


Source Code

    pure function isProperCSF_b(ilut) result(flag)
        integer(n_int), intent(in) :: ilut(0:GugaBits%len_tot)
        logical :: flag

        flag = all(calcB_vector_int(ilut(0:GugaBits%len_orb)) >= 0)
    end function isProperCSF_b