SUBROUTINE FINAL

*********************************************************************  
*                                                                   *
*       Write the data into 'in1.dat' for future use                *
*       The data is written in the same format as that read         *
*       by the optional "Old Calculations" routine in INIT.         *
*                                                                   *
*********************************************************************

          PARAMETER (NZ=126,NX=106)
          REAL N,N0,ZZ,XX
          REAL ETIME, ELAPSED(2)
          CHARACTER OUTFILE*9, ALPHA*10
          COMMON N(-5:NZ,-5:NX),PHI(-5:NZ,-5:NX)
          COMMON /INTS/II,JJ,KK
          COMMON /WX1/DZ,DX,Z0,X0,MOZ,MOX
          COMMON /TIMES/DT,T,TT

          OPEN(STATUS='UNKNOWN',UNIT=9,FILE='in1.dat')
          WRITE(9,*)T
          DO 500, I=1,MOZ
            DO 500, J=1,MOX
 500          WRITE(9,*)N(I,J),PHI(I,J)
          CLOSE(9)
          WRITE(6,*)
          WRITE(6,*)'Program is finished'        
          WRITE(6,*)
          WRITE(6,*)'Elapsed Time is ',ETIME(ELAPSED),' seconds'
          WRITE(6,*)
          RETURN
          END