void my_cpp_read( const std::string & fullName); FORTRAN90调用c++函数

要在FORTRAN90中调用C++函数，需要使用 extern "C" 来声明该函数，以便在C++中进行导出。以下是一个示例代码，展示了如何声明并调用 C++ 中的函数：

#include <string>
#include <iostream>

extern "C" {
    void my_cpp_read(const char* fullName) {
        std::string name(fullName);
        std::cout << "Reading file: " << name << std::endl;
        // TODO: Add your C++ code here
    }
}

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

program main
  use iso_c_binding

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

  character(len=50) :: filename = "/path/to/file.dat"
  type(c_ptr) :: filename_ptr

  call c_f_pointer(c_loc(filename), filename_ptr)
  call my_cpp_read(filename_ptr)

end program main

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