home *** CD-ROM | disk | FTP | other *** search
/ Frozen Fish 1: Amiga / FrozenFish-Apr94.iso / bbs / alib / d4xx / d499 / matlab.lha / Matlab / matlab.lzh / Source / MatLab / USER.FOR < prev    next >
Encoding:
Text File  |  1991-04-13  |  392 b   |  23 lines
  1.       SUBROUTINE USER (A, M, N, S, T)
  2.       IMPLICIT NONE
  3. C
  4.       INTEGER M, N
  5.       DOUBLE PRECISION A(M,N), S, T
  6. C
  7.       INTEGER A3(9), I
  8. C
  9.       DOUBLE PRECISION DFLOAT
  10. C
  11.       DATA A3 / -149, 537, -27, -50, 180, -9, -154, 546, -25 /
  12. C
  13. C
  14.       IF (A(1,1).NE.3.0D0) RETURN
  15.       DO 10 I = 1, 9
  16.         A(I,1) = DFLOAT (A3(I))
  17. 10    CONTINUE
  18.       M = 3
  19.       N = 3
  20. C
  21.       RETURN
  22.       END
  23.