2

我正在尝试从 C 调用 fortran 子例程，我可以在 C 中分配并将指针安全地传递给 Fortran 吗？子程序中的数组是一个自动数组 (x(nmax))。

（我正在分配 x，然后将其传递给 fortran）

4

2 回答 2

6

是的。现代 Fortran 保证可以从 C 调用 Fortran 例程，反之亦然。这是通过 Fortran ISO_C_BINDING 完成的。这是 Fortran 2003 的一部分，作为 Fortran 95 编译器的扩展被广泛使用。gfortran 手册中有文档（章节“混合语言编程”和“内部模块”。）作为语言功能，此文档比 gfortran 编译器更有用。这里还有一些关于 stackover 的示例，可以通过 fortran-iso-c-binding 标签找到。

简单的代码示例：

#include <stdio.h>
#include <stdlib.h>

void F_sub ( float * array_ptr );

int main ( void ) {

   float * array_ptr;

   array_ptr = malloc (8);

   F_sub (array_ptr);

   printf ( "Values are: %f %f\n", array_ptr [0], array_ptr [1] );

   return 0;
}

和

subroutine F_sub ( array ) bind (C, name="F_sub")

   use, intrinsic :: iso_c_binding
   implicit none

   real (c_float), dimension (2), intent (out) :: array

   array = [ 2.5_c_float, 4.4_c_float ]

end subroutine F_sub
于 2013-07-09T03:40:59.897 回答
1

一般来说，“是”：您可以将 C 数组传递给 FORTRAN，反之亦然。特别是如果两个编译器来自同一供应商（例如，从 g77 程序调用 gcc 函数）。

这里有两个很好的链接：

于 2013-07-09T02:28:47.890 回答