subroutine hmplot(a,title,tim,ipage)
c
c Plot some coefficients vs. ballooning angle for various m's.
c where a is a set of real (not complex) coefficients.
c
      implicit none
      include 'itg.par'
      include 'itg.cmn'
c     include 'post.cmn'
      include 'post2.cmn'

      real a(lz,mz,nz),tim,ymin,ymax,xmin,xmax
      character title*(*)
      integer l,m,n,isympa,ipage
      character*32 strtime
c
      ymin=0.
      ymax=0.
      n=nplot2
      do 10 m=1,md
      do 10 l=1,ldb
      if (a(l,m,n).gt.ymax) ymax=a(l,m,n)
      if (a(l,m,n).lt.ymin) ymin=a(l,m,n)
   10 continue
      xmin=r(1)
      xmax=r(ld)

      call setzer
      call plchlq(.5,.08,'ballooning coordinate',15.,0.,0.)
      call plchlq(.5,.97,title,20.,0.,0.)
      write(strtime,'(a,i3,a,f7.2)') 'n = ',nplot2,', all m''s, time = ',tim
      call plchlq(.98,.93,strtime,15.,0.,1.)

      call mapsm(xmin,xmax,ymin,ymax)
      n=nplot2
      do 12 m=1,md
      call dashdb(dash(m))
      call curved(r,a(1,m,n),ldb)
   12 continue

      call finish(ipage)
      return
      end