count_alpha_orbs_ij Function

public elemental function count_alpha_orbs_ij(csf_i, i, j)

Arguments

Type IntentOptional Attributes Name
type(CSF_Info_t), intent(in) :: csf_i
integer, intent(in) :: i
integer, intent(in) :: j

Return Value integer


Source Code

    integer elemental function count_alpha_orbs_ij(csf_i, i, j)
        ! function to count the number of 2s in a CSF det between spatial
        ! orbitals i and j
        type(CSF_Info_t), intent(in) :: csf_i
        integer, intent(in) :: i, j
        count_alpha_orbs_ij = count(csf_i%stepvector(i : j) == 2)
    end function count_alpha_orbs_ij