reset_coherence_counter Subroutine

    subroutine reset_coherence_counter()
        use adi_data, only: nCoherentDoubles
        implicit none

        nCoherentDoubles = 0
        nIncoherentDets = 0
        nConnection = 0
    end subroutine reset_coherence_counter