c
ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc
c
      subroutine agchnl(iaxs,vils,chrm,mcim,ncim,ipxm,chre,mcie,ncie)
      character*(*) chrm,chre
      character*16 xch(20)
      common /agx/ xch,iget,nch
      data n/0/
      if (iaxs.ne.3.or.iget.le.0) return
      n = n+1
      write(6,"('agchnl: n=',i3,' vils=',e12.4,' iaxs=',i2,
     +  ' iget=',i2)") n,vils,iaxs,iget 
      return
      end