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.         *
*                                                                   *
*       Version 0.4 - Last Modified 5/05/04                         *
*                                                                   *
*********************************************************************

        INCLUDE "fpvar.inc"

          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