      common /hptrm/    igrmod,ihpout,imode,ixlast,iylast,ipen
      common /hptrm/    iot

      character*80      ihpout
      integer*4         igrmod,imode,ixlast,iylast,ipen,iot
