从C＃调用FORTRAN dll并将值分配给结构数组
我可以将一个C#结构传递给FORTRAN就好了。 我甚至可以在FORTRAN传递一个C#结构数组作为TYPE()数组。 我遇到麻烦的地方是当我试图将值返回到C# 。 这是一个例子：
fortran dll是：
MODULE TESTING TYPE VALUEREF INTEGER*4 :: A ENDTYPE VALUEREF CONTAINS SUBROUTINE TEST_REF(T,N) !DEC$ ATTRIBUTES DLLEXPORT :: TEST_REF !DEC$ ATTRIBUTES ALIAS:'TEST_REF' :: TEST_REF !DEC$ ATTRIBUTES VALUE :: N IMPLICIT NONE INTEGER*4 :: A,I,N TYPE(VALUEREF) :: T(N) A = 100 DO I=1,N T(I)%A = A + I END DO END SUBROUTINE END MODULE
和期望结果的C#调用函数是：
[StructLayout(LayoutKind.Sequential)] public struct ValueRef { public int a; } [DllImport("mathlib.dll")] static extern void TEST_REF(ValueRef[] t, int n); void Main() { ValueRef[] T = new ValueRef[4]; for (int i = 0; i < T.Length; i++) { T[i].a = i; } Console.WriteLine("Initialize"); for (int i = 0; i < T.Length; i++) { Console.WriteLine(" A={0}", T[i].a); } Console.WriteLine("Call Fortran"); TEST_REF(T, T.Length); for (int i = 0; i < T.Length; i++) { Console.WriteLine(" A={0}", T[i].a); } }
结果如下：
Initialize A=0 A=1 A=2 A=3 Call Fortran A=0 A=1 A=2 A=3
通过FORTRAN代码调试，我看到初始值从C#传递到FORTRAN就好了。 使用新值覆盖这些值，并将控制权传递回C# ，其中旧值仍包含在ValueRef实例中。
为什么我能以类似的方式传递并返回一个float或int数组，就好了。 我可以使用ref关键字传递和返回奇异结构，我可以传递但不返回struct数组？
PS 。 我正在使用Compaq Visual Fortran 6.5和.NET 3.5
PS2 。 我对此有任何意见/想法表示感谢。 我完成了95％的项目，现在我遇到了这个问题。 这个项目的重点是尽可能地使用结构来减少传递给函数的#of参数并保留OOP设计的某些方面。
我过去使用指针而不是数组做过这个。 我认为您的结构正在被复制用于P / Invoke调用：
[DllImport("mathlib.dll")] static extern void TEST_REF(ValueRef* t, int n);
在调用方法之前，您需要固定数组。
fixed (ValueRef* pointer = t) { TEST_REF(pointer, n); }
编辑：根据注释，解决方案是将外部声明为
[DllImport("mathlib.dll")] static extern void TEST_REF([Out] ValueRef[] t, int n);
这是关于数组封送的MSDN参考，以及它们如何默认为[In] 。