      SUBROUTINE FUNS (ID)
      IMPLICIT NONE
C
C SCAN FUNCTION LIST
C
      INTEGER ID(4)
C
      INCLUDE MATLAB$KOM:COM.KOM
C
      INTEGER FUNL, FUNN(4,57), FUNP(57), K
C
      LOGICAL EQID
C
C    1  ABS   ATAN  BASE  CHAR
C    2  CHOL  CHOP  COND  CONJ
C    3  COS   DET   DIAG  DIAR
C    4  DISP  EIG   EPS   EXEC
C    5  EXP   EYE   FLOP  HESS
C    6  HILB  IMAG  INV   KRON
C    7  LINE  LOAD  LOG   LU
C    8  MAGIC NORM  ONES  ORTH
C    9  PINV  PLOT  POLY  PRINT
C    $  PROD  QR    RAND  RANK
C    1  RAT   RCOND REAL  ROOT
C    2  ROUND RREF  SAVE  SCHUR
C    3  SIN   SIZE  SQRT  SUM
C    4  SVD   TRIL  TRIU  USER
C    5  DEBUG
C
      DATA FUNN /
     1  10,11,28,36, 10,29,10,23, 11,10,28,14, 12,17,10,27,
     2  12,17,24,21, 12,17,24,25, 12,24,23,13, 12,24,23,19,
     3  12,24,28,36, 13,14,29,36, 13,18,10,16, 13,18,10,27,
     4  13,18,28,25, 14,18,16,36, 14,25,28,36, 14,33,14,12,
     5  14,33,25,36, 14,34,14,36, 15,21,24,25, 17,14,28,28,
     6  17,18,21,11, 18,22,10,16, 18,23,31,36, 20,27,24,23,
     7  21,18,23,14, 21,24,10,13, 21,24,16,36, 21,30,36,36,
     8  22,10,16,18, 23,24,27,22, 24,23,14,28, 24,27,29,17,
     9  25,18,23,31, 25,21,24,29, 25,24,21,34, 25,27,18,23,
     $  25,27,24,13, 26,27,36,36, 27,10,23,13, 27,10,23,20,
     1  27,10,29,36, 27,12,24,23, 27,14,10,21, 27,24,24,29,
     2  27,24,30,23, 27,27,14,15, 28,10,31,14, 28,12,17,30,
     3  28,18,23,36, 28,18,35,14, 28,26,27,29, 28,30,22,36,
     4  28,31,13,36, 29,27,18,21, 29,27,18,30, 30,28,14,27,
     5  13,14,11,30 /
      DATA FUNP /
     1  221,203,507,509, 106,609,303,225, 202,102,602,505,
     4  506,211,000,501, 204,606,000,213, 105,224,101,611,
     7  508,503,206,104, 601,304,608,402, 302,510,214,504,
     $  604,401,607,305, 511,103,223,215, 222,107,502,212,
     3  201,610,205,603, 301,614,615,605, 512 /
      DATA FUNL / 57 /
C
C
      IF (ID(1).EQ.0) CALL PRNTID (FUNN, FUNL-1)
      IF (ID(1).EQ.0) RETURN
C
      DO 10 K = 1, FUNL
         IF (EQID (ID, FUNN(1,K))) GO TO 20
10    CONTINUE
      FIN = 0
      RETURN
C
20    CONTINUE
      FIN = MOD (FUNP(K), 100)
      FUN = FUNP(K)/100
      IF (RHS.EQ.0 .AND. FUNP(K).EQ.606) FIN = 0
      IF (RHS.EQ.0 .AND. FUNP(K).EQ.607) FIN = 0
C
      RETURN
      END
