subroutine endplt
c
c       this routine ends plotting by deselecting the plotter and
c       dumping the buffer.  For Houston Instruments HIPLOT DMPL's.
c
        common /zgraph/ lunplt, iascr, ibscr, icscr, idscr,
     1 xm, ym, dx, dy, dxb, dyb, ixcur, iycur, ixbond, iybond,
     1 xslope, yslope, xconst, yconst, scrx, scry, ichar(5)
c
      LOGICAL*1 ENDSTR(5)
      DATA ENDSTR /'U','H','P','0','@'/
C
      CALL PLTOUT(ENDSTR,5)
      CALL PLTOUT(ENDSTR,0)
      RETURN
      END