编译环境配置:
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'
xuele19880523
- 粉丝: 0
- 资源: 1
我的内容管理
收起
- 我的资源
快来上传第一个资源
我的收益 登录查看自己的收益
我的积分
登录查看自己的积分
我的C币
登录后查看C币余额
我的收藏 
我的下载 
下载帮助
会员权益专享
最新资源
- 2023年中国辣条食品行业创新及消费需求洞察报告.pptx
- 2023年半导体行业20强品牌.pptx
- 2023年全球电力行业评论.pptx
- 2023年全球网络安全现状-劳动力资源和网络运营的全球发展新态势.pptx
- 毕业设计－基于单片机的液体密度检测系统设计.doc
- 家用清扫机器人设计.doc
- 基于VB+数据库SQL的教师信息管理系统设计与实现 计算机专业设计范文模板参考资料.pdf
- 官塘驿林场林防火（资源监管）“空天地人”四位一体监测系统方案.doc
- 基于专利语义表征的技术预见方法及其应用.docx
- 浅谈电子商务的现状及发展趋势学习总结.doc
- 基于单片机的智能仓库温湿度控制系统 (2).pdf
- 基于SSM框架知识产权管理系统 (2).pdf
- 9年终工作总结新年计划PPT模板.pptx
- Hytera海能达CH04L01 说明书.pdf
- 数据中心运维操作标准及流程.pdf
- 报告模板 -成本分析与报告培训之三.pptx
资源上传下载、课程学习等过程中有任何疑问或建议，欢迎提出宝贵意见哦~我们会及时处理！
点击此处反馈
评论0