home *** CD-ROM | disk | FTP | other *** search
/ The Fred Fish Collection 1.5 / ffcollection-1-5-1992-11.iso / ff_progs / libs / matlab.lzh / MATLAB / MATLAB.LZH / Source / Plot / maksiz.for < prev    next >
Encoding:
Text File  |  1991-04-13  |  1015 b   |  36 lines
  1.       SUBROUTINE MAKSIZ (ICURS, XST, XFRC, YST, YFRC)
  2.       IMPLICIT NONE
  3. C
  4. C ***      DEFINE PLOT SIZE
  5. C
  6.       CHARACTER*(*) ICURS
  7.       REAL XST, XFRC, YST, YFRC
  8. C
  9.       INCLUDE MATLAB$KOM:SIZEPARMS.INC
  10.       INCLUDE MATLAB$KOM:IOP.KOM
  11.       INCLUDE MATLAB$KOM:MATPLT.KOM
  12. C
  13. C
  14.       CALL DSSTRN (' ENTER THE X ORIGIN OF THE PLOT ', 0)
  15.       CALL DSSTRN ('AS A FRACTION OF THE TOTAL X AXIS LENGTH', 1)
  16.       CALL DSCURS (ICURS)
  17.       CALL VALGET (XST, 0, 'F')
  18. C
  19.       CALL DSSTRN (' ENTER THE Y ORIGIN OF THE PLOT ', 0)
  20.       CALL DSSTRN ('AS A FRACTION OF THE TOTAL Y AXIS LENGTH', 1)
  21.       CALL DSCURS (ICURS)
  22.       CALL VALGET (YST, 0, 'F')
  23. C
  24.       CALL DSSTRN (' ENTER THE FRACTION OF THE X AXIS TO BE ', 0)
  25.       CALL DSSTRN ('OCCUPIED BY THE PLOT', 1)
  26.       CALL DSCURS (ICURS)
  27.       CALL VALGET (XFRC, 0, 'F')
  28. C
  29.       CALL DSSTRN (' ENTER THE FRACTION OF THE Y AXIS TO BE ', 0)
  30.       CALL DSSTRN ('OCCUPIED BY THE PLOT', 1)
  31.       CALL DSCURS (ICURS)
  32.       CALL VALGET (YFRC, 0, 'F')
  33. C
  34.       RETURN
  35.       END
  36.