fortran中引用c++函数

在 Fortran 中调用 C++ 函数需要进行一些额外的设置。下面是一个简单的示例：

首先，在 C++ 代码中，需要使用 extern "C" 关键字来指定 C 调用约定，以便 Fortran 可以正确地访问 C++ 函数。

例如，如果有一个 C++ 函数定义如下：

// example.cpp
#include <iostream>

extern "C" void hello_world()
{
  std::cout << "Hello, world!" << std::endl;
}

然后，需要将 C++ 代码编译为共享库（Linux）或 DLL（Windows），并将其链接到 Fortran 代码中。在 Fortran 代码中，需要使用 INTERFACE 声明来告诉编译器如何调用 C++ 函数。INTERFACE 声明需要与 C++ 函数的声明匹配，以便 Fortran 可以正确地访问函数。

例如，下面是一个 Fortran 子程序，它调用上述 C++ 函数：

! example.f90
INTERFACE
  SUBROUTINE hello_world() BIND(C, NAME='hello_world')
  END SUBROUTINE hello_world
END INTERFACE

PROGRAM main
  CALL hello_world()
END PROGRAM main

注意，在 INTERFACE 声明中，BIND(C) 指定了使用 C 调用约定，而 NAME='hello_world' 指定了 C++ 函数的名称。在 Fortran 程序中，可以像调用其他子程序一样调用 C++ 函数。

以上是一个简单的示例，实际情况可能更复杂。如果需要访问 C++ 类、结构体或其他高级功能，可能需要使用更高级的技术，例如 C++ 暴露 C 接口、使用 Fortran 2003 中的 ISO_C_BINDING 模块等。