c----------------------------------------------------------------------
      subroutine WRITEVEC(N,vec)
c  writes a vector with N entries on the screen
c
c author: Heiko Appel,  5.18.99
c     in: N - number of entries in the vector vec
c    out: vec - vector to be printed
c  calls: --
      implicit real*8(a-h,o-z)
      integer N
      dimension vec(0:N)
c