4

是否可以将 fortran 77 函数作为回调函数指针传递给 C/C++?如果是这样,如何?

我在网上找到的信息与 fortran 90 及更高版本有关,但我的旧代码库在 77 中。

非常感谢

4

1 回答 1

6

如果可以在 FORTRAN 77 中完成,它将是编译器和平台特定的。Fortran 2003 的新 ISO C 绑定提供了混合 Fortran 和 C 以及任何遵循或可以遵循 C 调用约定的语言(例如 C++)的标准方式。虽然正式成为 Fortran 2003 的一部分,而且完全支持整个 Fortran 2003 的 Fortran 编译器非常少,但 ISO C 绑定得到了众多 Fortran 95 编译器的支持,包括 gfortran、g95、Sun、ifort 等。所以我建议使用这些 Fortran 95 编译器之一和 ISO C 绑定方法,而不是为特定方法找出某种方法。由于 FORTRAN 77 是 Fortran 95 的子集,为什么不使用这些编译器之一编译您的遗留代码,使用 Fortran 95 添加这个新功能呢?

我已经使用 ISO C 绑定从 C 调用 Fortran 过程,但没有将它们作为指针传递。这应该是可能的。步骤是:

1) 你用 Bind(C) 属性声明 Fortran 函数,

2) 使用与 C 类型匹配的特殊类型(例如 integer(c_int))声明所有参数。

步骤 1 和 2 使 Fortran 函数可与 C互操作。

3) 使用 Fortran 内部函数“c_funloc”获得指向此 Fortran 函数的 C 指针,将指针值分配给类型为“c_funptr”的指针。

4) 在 Fortran 代码中,您声明要使用接口传递函数指针的 C 例程,用 Fortran 术语声明它,但使用 Bind(C) 属性和可互操作的类型,以便 Fortran 编译器知道使用 C 调用约定——使 C 例程可与 Fortran 互操作。

然后,当您在 Fortran 代码中调用 C 例程时,可以将步骤 3 中创建的函数指针传递给它。

更新:代码示例:Fortran 主程序“test_func_pointer”将指向 Fortran 函数“my_poly”的指针传递给 C 例程“C_Func_using_Func_ptr”,并从该 C 函数接收结果。

module func_pointer_mod

   use, intrinsic :: iso_c_binding

   implicit none

   interface C_func_interface

      function C_Func_using_Func_ptr ( x, Func_ptr ) bind (C, name="C_Func_using_Func_ptr")

         import

         real (c_float) :: C_Func_using_Func_ptr
         real (c_float), VALUE, intent (in) :: x
         type (c_funptr), VALUE, intent (in) :: Func_ptr

      end function C_Func_using_Func_ptr

   end interface C_func_interface


contains

   function my_poly (x) bind (C, name="my_poly")

      real (c_float) :: my_poly
      real (c_float), VALUE, intent (in) :: x

      my_poly = 2.0 * x**2 + 3.0 * x + 5.0

      return

   end function my_poly

end module func_pointer_mod


program test_func_pointer

   use, intrinsic :: iso_c_binding

   use func_pointer_mod

   implicit none

   type (c_funptr) :: C_func_ptr

   C_func_ptr = c_funloc ( my_poly )

   write (*, *) C_Func_using_Func_ptr ( 2.5_c_float, C_func_ptr )

   stop

end program test_func_pointer

float C_Func_using_Func_ptr (

   float x,
   float (*Func_ptr) (float y)

) {

   return ( (*Func_ptr) (x) );

}
于 2010-05-25T05:38:05.290 回答