开启辅助访问 切换到窄版
搜索

Fortran Coder

 找回密码
 极速注册

QQ登录

只需一步,快速开始

扫一扫,访问微社区

[复制链接]

C#向FORTRAN中传递数据出错

zhuhuanlai 发表于 2016-12-13 16:21:17 查看90 回复1 阅读模式
大侠好,小弟又遇到问题还请抽空帮忙指点!
我有一个成熟的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
回复

使用道具 举报

vvt 发表于 2016-12-13 19:10:19

回帖奖励 +20

你先学会在 C# 里实现:
1. 在一个 cs 文件里定义 struct
2. 在另一个 cs 文件里对其赋值。

然后你再学混编吧。走路还没学会,就开始跑了。
您需要登录后才可以回帖 登录 | 极速注册

本版积分规则 长代码粘贴

Powered by Discuz! X3.2

© 2001-2013 Comsenz Inc.

快速回复 返回顶部 返回列表