cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc
      subroutine scalsc(is,ie,js,je)
c      Scales grid to screen coordinates set up by call 
c      to subroutine pltset in USGS  plot system.

c      include 'pxz99.cmn'
      include '\pf\source\plot\pxz99.cmn'
      common/gridsp/ iright,jupp
      common/scalef/ iwc0,jwc0,nxhpix,nyhpix,xpix,ypix,xscr,yscr

c     Dimension of allowed screen area in pixels...
      xscr = rxmax-rxmin+1
      yscr = rymax-rymin+1
      iright= rxmax
      jupp= (yrasx-1)-rymax

c      Number of pixels per grid cell
       xpix=xscr/(ie-is+1)
       ypix=yscr/(je-js+1)
       nxhpix=nint(xpix/2.) -1
       nyhpix=nint(ypix/2.) -1

       iwc0=rxmin
       jwc0=(yrasx-1)-rymin

      return
      end
