subroutine iniplt(iunit, xsize, ysize)
c
c       this routine initializes the plot. xsize and ysize denote the
c       size of the total plotting surface in inches. no plotting is
c       permitted outside this area. iunit is the logical unit
c       number of the plot.
C 9-Nov-82 converted to output plot chars thru PLTOUT subroutine.
C        - added HIPLOT common to keep track of current HIPLOT status. 
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
      COMMON /HIPLOT/ UP
      LOGICAL*1 UP
C
        lunplt = iunit
      CALL PLTOUT(' ;:P1HOAU',9)
      UP = .TRUE.
c
        scrx = 200.
        scry = 200.
c
        ixbond = ifix(scrx * xsize)
        iybond = ifix(scry * ysize)
        dxb = .5 * ixbond
        dyb = .5 * iybond
c
c       set default values
c
        iascr = 0
        ibscr = ixbond
        icscr = 0
        idscr = iybond
c
        xslope = ixbond
        xconst = 0.
        yslope = iybond
        yconst = 0.
c
        do 10 i = 1 , 5
        ichar(i) = 6 * 2 ** i
10      continue
c
        return
        end