c----------------------------------------------------------------------
      subroutine WRITEMAT(N,zmat)
c  writes a NxN matrix on the screen
c
c
c  author: Heiko Appel,  5.18.99
c      in: N - number of rows7columns of the square matrix zmat
c          zmat - matrix to be written
c     out: the matrix on stdout :-)
c   calls: --
      implicit real*8(a-h,o-z)

      integer N
      dimension zmat(0:N,0:N)