end_semistoch Subroutine

    subroutine end_semistoch()

        use FciMCData, only: HamTag
        use MemoryManager, only: LogMemDealloc

        character(len=*), parameter :: t_r = "end_semistoch"
        integer :: ierr
        integer :: run

        do run = 1, size(cs_replicas)
            call cs_replicas(run)%dealloc()
        end do
        deallocate(cs_replicas)

    end subroutine end_semistoch