gndts_all_sym_this_proc Subroutine

public subroutine gndts_all_sym_this_proc(ilut_list, tCount, ndets)

Uses

Arguments

Type IntentOptional Attributes Name
integer(kind=n_int), intent(out) :: ilut_list(0:,:)
logical, intent(in) :: tCount
integer, intent(out) :: ndets

Contents

Source Code

gndts_all_sym_this_proc

Source Code

    subroutine gndts_all_sym_this_proc(ilut_list, tCount, ndets)

        use SystemData, only: nel

        integer(n_int), intent(out) :: ilut_list(0:, :)
        logical, intent(in) :: tCount
        integer, intent(out) :: ndets
        integer :: nI(nel)

        ndets = 0
        nI = 0
        call gndts_all_sym_this_proc_r(ilut_list, tCount, ndets, nI, ielec=1)

    end subroutine gndts_all_sym_this_proc