SUBROUTINE  PLTCA (X,Y,P)

C     [CARTESIAN]
C     SCALE (X,Y) TO THE PAGE WIDTH, ALLOWING THE COORDINATES TO BE
C     GENERATED IN THE INTERVAL (0.0.LE.X,Y.LE.1.0).
C     [12-FEB-74]

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

      EX=2.0*HX*X-HX
      WY=2.0*HY*Y-HY
      CALL PLTMS (EX,WY,P)
      RETURN

      END