将实际值从fortran77 dll返回到c# [英] returning real values from fortran77 dll to c#
问题描述
FORTRAN 77 dll代码
* $ pragma aux DONDONexport parm(value * 8,value * 8)
SUBROUTINE DON DAA,DBB,DCC)
REAL * 8,DAA,DBB,DCC
DBB = DAA + 1
DCC = DBB + 1
返回
END
C#代码
using System;
使用System.Collections.Generic;
使用System.Linq;
使用System.Text;
使用System.Runtime.InteropServices;
使用System.Diagnostics;
命名空间pDON
{
类程序
{
[DllImport(DON.dll,
CharSet = CharSet 。
CallingConvention = CallingConvention.StdCall)]
public static extern void DON(
[MarshalAs(UnmanagedType.R8)] double DAA,
[MarshalAs(UnmanagedType.R8) ] double DBB,
[MarshalAs(UnmanagedType.R8)] double DCC
);
static void Main(string [] args)
{
// double TIME = 100.0;
double DAA = 5.5;
double DBB = 7;
double DCC = 9;
// START(ENERIN,VAL1);
DON(DAA,DBB,DCC);
Console.Write(val1 =+ DBB);
Console.Write(val2 =+ DCC);
Debug.WriteLine(VAR =+ DBB.ToString());
Console.Write(按任意键退出);
Console.ReadKey(false);
}
}
}
我想通过FORTRAN 77子程序处理后,将DBB DCC的值恢复到C#主程序。
PS :我不能使用INTENT(out)作为im使用fortran 77.
非常感谢提前。
谢谢每个人的建议
输入参数应该通过value和out put参数传递...通过refrence
,所以我将我的辅助编译指示更改为
* $ pragma aux DONDONexport parm(value * 8,reference,reference)
,它正在工作
再次感谢
Can somebody please point out what I'm doing wrong here?
FORTRAN 77 dll code
*$pragma aux DON "DON" export parm(value*8,value*8)
SUBROUTINE DON(DAA,DBB,DCC)
REAL*8, DAA,DBB,DCC
DBB=DAA+1
DCC=DBB+1
RETURN
END
C# code
using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
using System.Runtime.InteropServices;
using System.Diagnostics;
namespace pDON
{
class Program
{
[DllImport("DON.dll",
CharSet = CharSet.Auto,
CallingConvention = CallingConvention.StdCall)]
public static extern void DON(
[MarshalAs(UnmanagedType.R8)] double DAA,
[MarshalAs(UnmanagedType.R8)] double DBB,
[MarshalAs(UnmanagedType.R8)] double DCC
);
static void Main(string[] args)
{
//double TIME = 100.0;
double DAA = 5.5;
double DBB = 7;
double DCC = 9;
//START( ENERIN, VAL1);
DON(DAA, DBB, DCC);
Console.Write("val1 = " + DBB);
Console.Write("val2 = " + DCC);
Debug.WriteLine("VAR = " + DBB.ToString());
Console.Write("Press any key to exit");
Console.ReadKey(false);
}
}
}
I want to get the values of DBB DCC back to C# main prog ..after they are processed thru FORTRAN 77 subroutine.
P.S. : i can not use INTENT(out) as i m using fortran 77. much thanks in advance.
Thanks everyone for suggestions
the input argument should be passed by value and out put arguments ...pass by refrence so i changed my Auxilary pragma to ""*$pragma aux DON "DON" export parm(value*8, reference, reference)"" and it is working now
Thanks again
这篇关于将实际值从fortran77 dll返回到c#的文章就介绍到这了,希望我们推荐的答案对大家有所帮助,也希望大家多多支持IT屋!