SUBROUTINE  PLTRH (X,Y,P)

C     [RIGHT HALF]
C     SCALE THE CARTESIAN COORDINATES (X,Y) SO AS TO POSITION A
C     GRAPH IN THE RIGHT HALF OF A PLOTTER PAGE.
C     [20-APR-74]

      LOGICAL*1     P
      DATA        HX,HY/4.50,3.25/

      CALL PLTMS (HX*X,HY*(Y-0.5),P)
      RETURN

      END