PROGRAM TEST
      implicit none
      integer          liwsp, lwsp
      parameter( lwsp = 1801 )
      parameter( liwsp = 11 )

      integer          i, m, itrace, iflag, iwsp(liwsp)
      double precision t, tol, anorm
      complex*16       v(10), w(10), wsp(lwsp)

      complex*16 ZERO, ONE, TWO
      parameter( ZERO=(0.0d0,0.0d0), ONE=(1.0d0,0.0d0), 
     .           TWO=(2.0d0,0.0d0) )

      integer n, nz, nzmax
      parameter( nzmax = 50000 )
      integer ia(nzmax), ja(nzmax)
      complex*16 a(nzmax)
      common /CMAT/ a, ia, ja, nz, n

      n = 10
      nz = 10
      m = 9
      t = 2.0
      tol = 0.0001
      anorm = 2.0
      itrace = 0
      iflag = 0

      do i = 1,10
         w(i) = ZERO
         v(i) = ONE
         a(i) = TWO
         ia(i) = i
         ja(i) = i
      enddo
     
      CALL ZGEXPV( n, m, t, v, w, tol, anorm,
     .             wsp,lwsp, iwsp,liwsp, itrace,iflag )

      print*, "WIN"
      print*, w

      END