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