Fortran Coder

标题: C#向FORTRAN中传递数据出错 [打印本页]

作者: zhuhuanlai 时间: 2016-12-13 16:21
标题: C#向FORTRAN中传递数据出错
大侠好，小弟又遇到问题还请抽空帮忙指点！
我有一个成熟的FORTRAN小程序，输入量几十个，输出量几百个。程序的结构为主程序，若干子程序和用MODULE定义的全局变量（程序的输入量，这些变量在主程序和各个子程序中都有用到）。现想用C#做一个界面，通过FORTRAN输出DLL(初想用显示链接),把用MODULE定义的全局变量（输入量）从C#界面中输入。
下边是我做的一个简单的调试例子生成FORTRAN的DLL时出现了以下问题。
FORTRAN代码如下：

[Fortran] 纯文本查看 复制代码

MODULE EXAMP

use , Intrinsic :: ISO_C_Binding

implicit none

  TYPE EXAMP_A

  INTEGER(4), value :: N

  REAL(8), value :: M

  !DEC$ ATTRIBUTES DLLEXPORT :: TYPE EXAMP_A

  END TYPE EXAMP_A

END MODULE EXAMP

Integer Function Add(X,B)  Bind(C,Name="Add")!

!DEC$ ATTRIBUTES DLLEXPORT :: Add

use , Intrinsic :: ISO_C_Binding

implicit none

integer , value :: X , B

Add = M*N(X + b)

end Function Add

C#代码如下：

[C#] 纯文本查看 复制代码



using System;

using System.Collections.Generic;

using System.Runtime.InteropServices;

using System.Text;

namespace ConsoleApplication1

{

    class Program

    {

        [DllImport(@"J:\ConsoleApplication1\Dll1\Debug\Dll1.dll", EntryPoint = "Add")]

//DLL文件地址

        extern static int Add(int A,int B);

        extern static struct  EXAMP_A

        {int N

        double M};

        static void Main(string[] args)

        {

            N=2   //想通过C#的结构体向FORTRAN的TYPE类型赋值

            M=0.5    //想通过C#的结构体向FORTRAN的TYPE类型赋值

            int c = Add(1,2);

            Console.WriteLine(c);

            Console.Read();

        }

    }

}

单独.png (7.82 KB, 下载次数: 95)

作者: vvt 时间: 2016-12-13 19:10
你先学会在 C# 里实现：
1. 在一个 cs 文件里定义 struct
2. 在另一个 cs 文件里对其赋值。

然后你再学混编吧。走路还没学会，就开始跑了。

欢迎光临 Fortran Coder (http://bbs.fcode.cn/)