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 / FUNS.FOR < prev    next >
Encoding:
Text File  |  1991-04-13  |  2.2 KB  |  72 lines
  1.       SUBROUTINE FUNS (ID)
  2.       IMPLICIT NONE
  3. C
  4. C SCAN FUNCTION LIST
  5. C
  6.       INTEGER ID(4)
  7. C
  8.       INCLUDE MATLAB$KOM:COM.KOM
  9. C
  10.       INTEGER FUNL, FUNN(4,57), FUNP(57), K
  11. C
  12.       LOGICAL EQID
  13. C
  14. C    1  ABS   ATAN  BASE  CHAR
  15. C    2  CHOL  CHOP  COND  CONJ
  16. C    3  COS   DET   DIAG  DIAR
  17. C    4  DISP  EIG   EPS   EXEC
  18. C    5  EXP   EYE   FLOP  HESS
  19. C    6  HILB  IMAG  INV   KRON
  20. C    7  LINE  LOAD  LOG   LU
  21. C    8  MAGIC NORM  ONES  ORTH
  22. C    9  PINV  PLOT  POLY  PRINT
  23. C    $  PROD  QR    RAND  RANK
  24. C    1  RAT   RCOND REAL  ROOT
  25. C    2  ROUND RREF  SAVE  SCHUR
  26. C    3  SIN   SIZE  SQRT  SUM
  27. C    4  SVD   TRIL  TRIU  USER
  28. C    5  DEBUG
  29. C
  30.       DATA FUNN /
  31.      1  10,11,28,36, 10,29,10,23, 11,10,28,14, 12,17,10,27,
  32.      2  12,17,24,21, 12,17,24,25, 12,24,23,13, 12,24,23,19,
  33.      3  12,24,28,36, 13,14,29,36, 13,18,10,16, 13,18,10,27,
  34.      4  13,18,28,25, 14,18,16,36, 14,25,28,36, 14,33,14,12,
  35.      5  14,33,25,36, 14,34,14,36, 15,21,24,25, 17,14,28,28,
  36.      6  17,18,21,11, 18,22,10,16, 18,23,31,36, 20,27,24,23,
  37.      7  21,18,23,14, 21,24,10,13, 21,24,16,36, 21,30,36,36,
  38.      8  22,10,16,18, 23,24,27,22, 24,23,14,28, 24,27,29,17,
  39.      9  25,18,23,31, 25,21,24,29, 25,24,21,34, 25,27,18,23,
  40.      $  25,27,24,13, 26,27,36,36, 27,10,23,13, 27,10,23,20,
  41.      1  27,10,29,36, 27,12,24,23, 27,14,10,21, 27,24,24,29,
  42.      2  27,24,30,23, 27,27,14,15, 28,10,31,14, 28,12,17,30,
  43.      3  28,18,23,36, 28,18,35,14, 28,26,27,29, 28,30,22,36,
  44.      4  28,31,13,36, 29,27,18,21, 29,27,18,30, 30,28,14,27,
  45.      5  13,14,11,30 /
  46.       DATA FUNP /
  47.      1  221,203,507,509, 106,609,303,225, 202,102,602,505,
  48.      4  506,211,000,501, 204,606,000,213, 105,224,101,611,
  49.      7  508,503,206,104, 601,304,608,402, 302,510,214,504,
  50.      $  604,401,607,305, 511,103,223,215, 222,107,502,212,
  51.      3  201,610,205,603, 301,614,615,605, 512 /
  52.       DATA FUNL / 57 /
  53. C
  54. C
  55.       IF (ID(1).EQ.0) CALL PRNTID (FUNN, FUNL-1)
  56.       IF (ID(1).EQ.0) RETURN
  57. C
  58.       DO 10 K = 1, FUNL
  59.          IF (EQID (ID, FUNN(1,K))) GO TO 20
  60. 10    CONTINUE
  61.       FIN = 0
  62.       RETURN
  63. C
  64. 20    CONTINUE
  65.       FIN = MOD (FUNP(K), 100)
  66.       FUN = FUNP(K)/100
  67.       IF (RHS.EQ.0 .AND. FUNP(K).EQ.606) FIN = 0
  68.       IF (RHS.EQ.0 .AND. FUNP(K).EQ.607) FIN = 0
  69. C
  70.       RETURN
  71.       END
  72.