subroutine write_restart(n,x)
      implicit none
      include 'DIMENSIONS'
      include 'DIMENSIONS.ZSCOPT'
#ifdef MPI
      include 'mpif.h'
      include 'COMMON.MPI'
#endif
      include 'COMMON.IOUNITS'
      include 'COMMON.TIME1'
      integer n
      double precision x(max_paropt)
      double precision tt,tcpu
      integer i
#ifdef MPI
      if (me.eq.Master) then
#endif
      tt = tcpu()
      if (tt-PREVTIM .ge. rstime) then
        open(88,file=restartname,status="unknown")
        write (iout,*) "Writing RESTART file..."
        do i=1,n
          write (88,*) x(i)
        enddo
        close(88)
        PREVTIM=tt
      endif
#ifdef MPI
      endif
#endif
      return
      end