********************************************************************************
*                                                                              * 
*  2DHF version 1-2003                                                         *
*  Copyright (C) 1996  Jacek Kobus, Leif Laaksonen, Dage Sundholm              *
*                                                                              *
*  This software may be used and distributed according to the terms            *
*  of the GNU General Public License, see README and COPYING.                  *
*                                                                              *
********************************************************************************
c ### writea ###	
c
c     Writes a to a disk file in an unformatted form
c
      subroutine writea (iunit,ndim,a,ierr)
      implicit integer*4 (i-n)
      implicit real*8 (a-h,o-z)	
      dimension a(ndim)

      write (iunit,err=1000) a
      ierr=0
      return

 1000 ierr=1
      return
      end