subroutine wprint(a,title)
c
      implicit none
      include 'itg.par'
      complex a(lz,mz,nz,nspecz)
      real amaxo(mz),amax
      integer nr,mr,l,m,n
      character title*(*)
      include 'itg.cmn'
c
      write (9,50) title
 50   format(a15)
      do n=1,nd
         nr=nrr(n)
         do m=1,md
            mr=mrr(m,n)
            write(9,700)nr,mr
c
c I don't know how to format complex numbers...bdorland
c
c            write(9,*)(a(l,m,n,1),l=1,ld)
            amax=0.
            do l=1,ld
               if(amax.lt.abs(a(l,m,n,1))) amax=abs(a(l,m,n,1))
            enddo
            amaxo(m)=amax
         enddo
         write(9,70) (amaxo(m),m=1,md)
      enddo
 70   format(1x,'max mag',10e10.2)
 700  format(' nr=',i3,' mr=',i3)
 701  format(1x,10e12.4)
c 701  format(*)
      return
      end