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 / MatLab / TERM.FOR < prev    next >
Encoding:
Text File  |  1991-04-13  |  1.3 KB  |  68 lines
  1.       SUBROUTINE TERM
  2.       IMPLICIT NONE
  3. C
  4.       INCLUDE MATLAB$KOM:RECU.KOM
  5.       INCLUDE MATLAB$KOM:IOP.KOM
  6.       INCLUDE MATLAB$KOM:COM.KOM
  7. C
  8.       INTEGER R, OP, BSLASH, STAR, SLASH, DOT
  9. C
  10.       DATA BSLASH / 45 /, STAR / 43 /, SLASH / 44 /, DOT / 47 /
  11. C
  12. C
  13.       IF (DDT.EQ.1) WRITE (WTE, 100) PT, RSTK(PT)
  14. 100   FORMAT (' TERM  ', 2I4)
  15.       R = RSTK(PT)
  16.       GO TO (99, 99, 99, 99, 99, 01, 01, 05, 25, 99,
  17.      .       99, 99, 99, 99, 35, 99, 99, 99, 99), R
  18. C
  19. 01    CONTINUE
  20.       PT = PT+1
  21.       RSTK(PT) = 8
  22. C *CALL* FACTOR
  23.       RETURN
  24. C
  25. 05    CONTINUE
  26.       PT = PT-1
  27. 10    CONTINUE
  28.       OP = 0
  29.       IF (SYM.EQ.DOT) OP = DOT
  30.       IF (SYM.EQ.DOT) CALL GETSYM
  31.       IF (SYM.EQ.STAR .OR. SYM.EQ.SLASH .OR. SYM.EQ.BSLASH) GO TO 20
  32.       RETURN
  33. C
  34. 20    CONTINUE
  35.       OP = OP+SYM
  36.       CALL GETSYM
  37.       IF (SYM.EQ.DOT) OP = OP+SYM
  38.       IF (SYM.EQ.DOT) CALL GETSYM
  39.       PT = PT+1
  40.       PSTK(PT) = OP
  41.       RSTK(PT) = 9
  42. C *CALL* FACTOR
  43.       RETURN
  44. C
  45. 25    CONTINUE
  46.       OP = PSTK(PT)
  47.       PT = PT-1
  48.       CALL STACK2 (OP)
  49.       IF (ERR.GT.0) RETURN
  50. C
  51. C ***      SOME BINARY OPS DONE IN MATFNS
  52.       IF (FUN.EQ.0) GO TO 10
  53.       PT = PT+1
  54.       RSTK(PT) = 15
  55. C *CALL* MATFN
  56.       RETURN
  57. C
  58. 35    CONTINUE
  59.       PT = PT-1
  60.       GO TO 10
  61. C
  62. 99    CONTINUE
  63.       CALL ERROR (22)
  64. C      IF (ERR.GT.0) RETURN
  65. C
  66.       RETURN
  67.       END
  68.