write_overlap_state_serial Subroutine

    subroutine write_overlap_state_serial(state, length, index)
        implicit none
        integer(n_int), intent(in) :: state(0:nIfTot, length)
        integer, intent(in) :: index, length
        integer :: iProc, ierr
        do iProc = 0, nProcessors - 1
            ! sequentialize to overcome bottlenecks for shared memory systems (this is not performance critical)
            if (iProc == iProcIndex) then
                call write_overlap_state(state, length, index)
            end if
            call MPIBarrier(ierr)
        end do

    end subroutine write_overlap_state_serial