      SUBROUTINE MAKSIZ (ICURS, XST, XFRC, YST, YFRC)
      IMPLICIT NONE
C
C ***      DEFINE PLOT SIZE
C
      CHARACTER*(*) ICURS
      REAL XST, XFRC, YST, YFRC
C
      INCLUDE MATLAB$KOM:SIZEPARMS.INC
      INCLUDE MATLAB$KOM:IOP.KOM
      INCLUDE MATLAB$KOM:MATPLT.KOM
C
C
      CALL DSSTRN (' ENTER THE X ORIGIN OF THE PLOT ', 0)
      CALL DSSTRN ('AS A FRACTION OF THE TOTAL X AXIS LENGTH', 1)
      CALL DSCURS (ICURS)
      CALL VALGET (XST, 0, 'F')
C
      CALL DSSTRN (' ENTER THE Y ORIGIN OF THE PLOT ', 0)
      CALL DSSTRN ('AS A FRACTION OF THE TOTAL Y AXIS LENGTH', 1)
      CALL DSCURS (ICURS)
      CALL VALGET (YST, 0, 'F')
C
      CALL DSSTRN (' ENTER THE FRACTION OF THE X AXIS TO BE ', 0)
      CALL DSSTRN ('OCCUPIED BY THE PLOT', 1)
      CALL DSCURS (ICURS)
      CALL VALGET (XFRC, 0, 'F')
C
      CALL DSSTRN (' ENTER THE FRACTION OF THE Y AXIS TO BE ', 0)
      CALL DSSTRN ('OCCUPIED BY THE PLOT', 1)
      CALL DSCURS (ICURS)
      CALL VALGET (YFRC, 0, 'F')
C
      RETURN
      END
