1. 进程级的交互:在 Fortran 中编译为控制台程序,.Net 调用(System.Diagnostics.Process),然后使用 Process 的 StandardOutput 属性读取控制台输出内容,显示到界面上。
2. 代码级的交互:在 Fortran 中编译为动态链接库,.Net 调用此非托管 DLL 。
本文为第二种方案初级介绍,并只涉及到数值传递,以一个简单的返回相加数值作为实例。
一、打开CVF,新建 fortran dynamic link library ,命名为 testDLL.dll ,新建源文件,写入以下代码:编译生成 DLL 文件。
subroutine testDLL2(a,b,c)implicit none!dec$ attributes dllexport::testDLL2!dec$ attributes alias:"testDLL2"::testDLL2!dec$ attributes reference::c!dec$ attributes value::a,binteger a,b,ccall plus(a,b,c)end subroutine testDLL2subroutine plus(x,y,z)integer x,y,zz = x + y
end subroutine plus
其中,隐含在注释中的命令:
!dec$ attributes dllexport::testDLL2
申明此函数可对外公开使用
!dec$ attributes alias:"testDLL2"::testDLL2
限定子例程名为testDLL2的混合书写形式
!dec$ attributes reference::c
使用 reference 将 c 定义为引用传递方式
!dec$ attributes value::a,b
使用 value 将 a,b 定义为值传递方式
可以注意到的是此处调用的 plus 子例程无须有上述命令
二、在 VS 中新建 项目-类库 ,命名空间为 PlaceFortran ,写入如下代码,将编译好的 fortran DLL 文件放置 bin/debug 文件夹下
using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
using System.Runtime.InteropServices;namespace PlaceFortran
{public class ClassTest{[DllImport("testDLL.dll")]public static extern void testDLL2(int x, int y, ref int c);//c为地址传递public int testSub(int x, int y){int p;testDLL2(x, y, ref p);return p;}}
}
至此,可以在界面层调用这个函数进行相加计算
ClassTest c = new ClassTest();int i = c.testSub(22,23);//返回相加数为45