count_trial_this_proc Subroutine

    subroutine count_trial_this_proc(ntrial, ncon)
        use searching, only: hash_search_trial
        use FciMCData, only: ntrial_excits
        implicit none
        integer, intent(out) :: ntrial, ncon
!       integer :: i, nI(nel)
        integer(int64) :: i
        integer :: nI(nel)
        real(dp) :: sgn(lenof_sign)
        logical :: tTrial, tCon
        HElement_t(dp) :: amp(ntrial_excits)

        ntrial = 0
        ncon = 0
        do i = 1, TotWalkers
            call decode_bit_det(nI, CurrentDets(:, i))
            call extract_sign(CurrentDets(:, i), sgn)
            if (IsUnoccDet(sgn)) cycle
            call hash_search_trial(CurrentDets(:, i), nI, amp, tTrial, tCon)
            if (tTrial) ntrial = ntrial + 1
            if (tCon) ncon = ncon + 1
        end do

    end subroutine count_trial_this_proc