1 subroutine write_restart(n,x)
4 include 'DIMENSIONS.ZSCOPT'
9 include 'COMMON.IOUNITS'
10 include 'COMMON.TIME1'
12 double precision x(max_paropt)
13 double precision tt,tcpu
16 if (me.eq.Master) then
19 if (tt-PREVTIM .ge. rstime) then
20 open(88,file=restartname,status="unknown")
21 write (iout,*) "Writing RESTART file..."