C#include "fintrf.h"
C#if 0
C
C fengdemo.F
C .F file need to be preprocessed to generate .for equivalent
C#endif
C
C fengdemo.f
C
C This is a simple program that illustrates how to call the MATLAB
C Engine functions from a FORTRAN program.
C
C Copyright 1984-2005 The MathWorks, Inc.
C======================================================================
C $Revision: 1.9.4.4 $
program main
C-----------------------------------------------------------------------
C (pointer) Replace integer by integer*8 on 64-bit platforms
C
c mwpointer engOpen, engGetVariable, mxCreateDoubleMatrix
c mwpointer mxGetPr
c mwpointer ep, T, D
C----------------------------------------------------------------------
C
C Other variable declarations here
double precision time(10), dist(10)
integer engPutVariable, engEvalString, engClose
integer temp, status
data time / 1.0, 2.0, 3.0, 4.0, 5.0, 6.0, 7.0, 8.0, 9.0, 10.0 /
C
ep = engOpen('matlab ')
C
end
没人懂吗??