主要是如何在VC++中如何调用fortran子程序。如果可以的话请顺便推荐一本ivf的教程
2条回答 默认 最新
- lx624909677 2016-03-27 15:10关注
VC++++和Fortran混合编程借助于Fortran生成的DLL进行 (采用C默认的传址方式进行函数参数传递) 1.Fortran 生成DLL 新建Fortran DLL程序test1.f 添加如下代码: ! test1.f90 ! ! FUNCTIONS/SUBROUTINES exported from test1.dll: ! test1 - subroutine !示例没有返回值的子例程 subroutine test1(a,b) ! Expose subroutine test1 to users of this DLL ! !DEC$ ATTRIBUTES C,DLLEXPORT::test1 ! Variables ! Body of test1 integer a,b integer sum sum=a+b return end subroutine test1 !示例有返回值的整数四则运算 !两数相加 function add(a,b) implicit none !DEC$ ATTRIBUTES C,DLLEXPORT::add integer a,b,add add=a+b return end !两数相减 function abstract(a,b) implicit none !DEC$ ATTRIBUTES C,DLLEXPORT::abstract integer a,b,abstract abstract=a-b return end !两数相乘 function multiply(a,b) implicit none !DEC$ ATTRIBUTES C,DLLEXPORT::multiply integer a,b,multiply multiply=a*b return end !两数相除 (需要添加考虑被除数是否为0以及能否整除的判断) function divided(a,b) implicit none !DEC$ ATTRIBUTES C,DLLEXPORT::divided integer a,b,divided divided=a/b return end 编译后生成test1.dll,test1.obj等文件。其中这两个文件是我们在VC中调用所需要的。
解决 无用评论 打赏 举报
悬赏问题
- ¥15 程序不包含适用于入口点的静态Main方法
- ¥15 素材场景中光线烘焙后灯光失效
- ¥15 请教一下各位,为什么我这个没有实现模拟点击
- ¥15 执行 virtuoso 命令后,界面没有,cadence 启动不起来
- ¥50 comfyui下连接animatediff节点生成视频质量非常差的原因
- ¥20 有关区间dp的问题求解
- ¥15 多电路系统共用电源的串扰问题
- ¥15 slam rangenet++配置
- ¥15 有没有研究水声通信方面的帮我改俩matlab代码
- ¥15 ubuntu子系统密码忘记