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 / MATLABMAIN.PRG < prev    next >
Encoding:
Text File  |  1991-04-13  |  738 b   |  32 lines
  1.       PROGRAM MAIN
  2.       IMPLICIT NONE
  3. C
  4.       INCLUDE MATLAB$KOM:SYS.KOM
  5. C
  6.       INTEGER WBSTRT, J
  7.       CHARACTER*1 CONDEF(34)
  8.       CHARACTER*34 CONDEF2
  9.       EQUIVALENCE (CONDEF, CONDEF2)
  10. C
  11. C
  12.       CONDEF2 = 'CON:0/0/640/200/Amiga Matlab'//CHAR (0)
  13. C
  14. C ***      DETERMINE WHETHER WE STARTED FROM WORKBENCH
  15.       WBST = WBSTRT(0)
  16. C
  17. C ***      IF SO, LOCATE AND LOAD THE MATLAB CONFIGURATION FILE
  18.       IF (WBST.NE.0) THEN
  19.         OPEN (46, FILE = 'MATCONFIG.SYS', STATUS = 'OLD', ERR = 15)
  20.         READ (46, 5) (CONDEF(J), J = 1, 33)
  21. 5       FORMAT (33A1)
  22.         CONDEF(34) = CHAR (0)
  23.         CLOSE (46)
  24.       ENDIF
  25. 15    CONTINUE
  26.       CALL STDOPN (CONDEF2)
  27. C
  28. C ***      BEGIN MATLAB
  29.       CALL MATLAB (0)
  30.       CALL WBEND
  31.       END
  32.