可以将对象作为参数传递给 Fortran 方法吗？

Question

我目前正在努力将用 Fortran 编写的 DLL 导入到 Visual Basic 中。我已经掌握了所有基础知识，所以现在我正在尝试更进一步。标题基本上说明了一切，但我还是会解释一下我想要做什么。

对于踢腿和咯咯笑，我们假设我想传递一个包含三个双精度值的对象，可能代表三个维度空间中的一个点。在我的 Fortran 方法中，我想获取该对象，打印出 x 值，然后将 x 值更改为 7.5。这是我的 Fortran 代码，它就是这样做的。

module test
   type Point
      double precision x, y, z
   end type Point
end module test

function ex1(ThreeDubs)
   use test
   type (Point) :: ThreeDubs
   print *, ThreeDubs%x
   ex1 = 1
   return
end function

这段代码效果很好！...仅适用于结构。换句话说，假设我在 VB 中有以下结构和类，

Public Structure StructurePoint
   Public x As Double
   Public y As Double
   Public z As Double
End Structure

Public Class ObjectPoint
    Public x As Double
    Public y As Double
    Public z As Double
End Class

创建 StructurePoint 的实例会产生完美的结果：Fortran 方法打印出 x 值，然后修改 x 的值。完美的。现在问题来了。当我传递 ObjectPoint 的实例时，程序打印出类似于 1.523E-306 的值。基本上，告诉我它认为x值所在的位置不是x值。所以，这就是我的问题。是否有可能将对象传递给 Fortran DLL 并正确访问它，如果可以，我将如何去做？

解决方案

为了将此对象传递给 Fortran，唯一需要做的就是修改类声明。

<StructLayout(LayoutKind.Sequential)> _
Public Class CustomPoint3d
    Public x As Double
    Public y As Double
    Public z As Double
End Class

<DllImport("passPoint3d.dll")> _
Public Shared Function PrintX(ByVal point As CustomPoint3d) As Boolean
End Function

Answer 1

这可能很困难，而且我认为没有任何好处，所以我建议你不要打扰！

无论如何，就这样吧！我认为 VB.Net 对象将被编组为指针。 Fortran 90 中对指针有一些支持。如果您添加，它可能会起作用指向 ThreeDubs 的 Fortran 声明的指针。

function ex1(ThreeDubs) 
   use test 
   type (Point), pointer :: ThreeDubs ! Note additional pointer keyword
   print *, ThreeDubs%x 
   ex1 = 1 
   return 
end function 

我怀疑您能否从 Fortran 中调用 ThreeDubs 对象中的方法，因此我不确定传递对象的好处。

这里有两个两个 microsoft.com/en-us/magazine/cc163910.aspx" rel="nofollow noreferrer">有关 PInvoke 的文章： PInvoke 是调用老式“非托管”DLL（如 Fortran）的 .Net 名称。这些文章解释了 .Net 参数如何“编组”（翻译）到 Fortran DLL 中。您可以使用属性对编组进行一些控制：文章解释了更多。他们倾向于使用 C 和 C# 作为示例:(

Answer 2

我不了解 Visual Basic，但我在 Fortran 和 Fortran 之间共享用户定义类型。 C. Fortran 2003 的 ISO C 绑定支持此功能，Fortran 95 编译器已广泛支持该功能。您声明一个 Fortran 用户定义类型并为其指定绑定 C 属性和绑定名称。只要该类型的所有子组件都可以与 C 互操作，那么用户定义类型也可以与 C 互操作。并且这种方法是标准的和可移植的。我通过将 Fortran 用户定义类型变量作为模块变量传递信息，并通过在文件顶部声明将 C 结构变量置于全局内存中来完成此操作。也许您可以在 Fortran 端使用 ISO C 绑定，并以某种方式告诉 Visual Basic 使用类似 C 的接口？