const string & fortran90调用c++函数

要在 FORTRAN90 中调用 C++ 函数，需要使用 `iso_c_binding` 模块来声明 C++ 函数，并使用 `c_f_pointer` 函数将 C++ 函数指针转换为 FORTRAN90 中的指针类型。下面是一个示例代码，展示了如何声明并调用 C++ 中的函数：

#include <string>
#include <iostream>

extern "C" {
  void my_cpp_function(const std::string& str) {
    std::cout << "The string received in C++ is: " << str << std::endl;
  }
}

在 FORTRAN90 中，您需要使用 `iso_c_binding` 模块来声明 C++ 函数，并使用 `c_f_pointer` 函数将函数指针转换为 FORTRAN90 中的指针类型。示例代码如下：

program main
  use iso_c_binding

  interface
    subroutine my_cpp_function(str) bind(C, name="my_cpp_function")
      import :: C_CHAR
      type(c_ptr), value :: str
    end subroutine my_cpp_function
  end interface

  character(len=20) :: my_string = "Hello from FORTRAN"
  type(c_ptr) :: my_string_ptr

  ! Convert the FORTRAN string to a C string pointer
  call c_f_pointer(c_loc(my_string), my_string_ptr)

  ! Call the C++ function using the C string pointer
  call my_cpp_function(c_char_pointer(my_string_ptr))

end program main

在代码中，首先使用 `interface` 关键字声明 C++ 函数 `my_cpp_function`，并使用 `bind(C)` 来指定函数的 C 风格命名。使用 `C_CHAR` 来声明 C++ 函数的参数类型。`c_f_pointer` 函数将字符串类型的 `my_string` 转换为指针类型，并将其传递给 `my_cpp_function` 函数。在调用 `my_cpp_function` 函数时，需要使用 `c_char_pointer` 函数将字符串指针转换为 C 字符串指针。