是否可以将对象作为参数传递给Fortran方法?

我目前正在努力将用Fortran编写的DLL导入到VisualBasic中。我已经把所有的基础知识都放下了,所以现在我想再进一步。标题基本上说的都是,但我会解释我到底想做什么。

对于踢腿和咯咯笑,让我们假设我要传递一个包含三个双值的对象,可能表示三维空间中的一个点。在我的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.perfect的值。现在问题来了。当我传递一个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