fortran与matlab如何连接
需积分: 50 31 浏览量
2013-11-06
05:48:19
上传
评论 3
收藏 23KB DOC 举报
编译环境配置:
projects -> setting ->link -> Object/library modulus
kernel32.lib libmx.lib libmat.lib libeng.lib
integer engOpen,mxCreateDoubleMatrix,mxGetPr,engPutArray,engGetArray
integer ep,p_matX,p_matY,p_matfi0,p_mat_ux,p_mat_uy,p_nbound
integer status
%启动引擎
ep=engOpen('matlab')
if (ep .eq. 0) then
write(6,*) 'Can''t start MATLAB engine'
stop
endif
% 在 Matlab 下执行语句
if (engEvalString(ep,'i_contour=0;').ne.0) then
write(6,*) 'engEvalString failed'
stop
endif
% 建立数组指针
pmatX=mxCreateDoubleMatrix(ndiv,ndiv,0)
% 建立该数组在 Matlab 工作空间的名字
call mxSetName(pmatX, 'matX')
% 从 Matlab 工作空间获取变量 建立连接 fi0(Matlab) p_matfi0 (Fortran)
p_matfi0=engGetArray(ep,'fi0');
(注: p_matfi0 指针是联系 Fortran 变量 和 Matlab 变量的通道和桥梁)
% 更新 Fortran 数组 p_matfi0 (Fortran)fi0 (Fortran)
call mxCopyPtrToReal8(mxGetPr(p_matfi0),fi0,(nx+2)*(ny+2))
% fi0 (Fortran) p_matfi0 (Fortran)
call mxCopyReal8ToPtr(fi0,mxGetPr(p_matfi0),(nx+2)*(ny+2))
% p_matfi0 (Fortran)fi0(Matlab)
status = engPutArray(ep,p_matfi0)
if (status.ne.0) then
write(6,*) 'engPutMatrix failed'
资源评论
