fortran调用c++动态库

Fortran 调用 C++ 动态库可以分为以下步骤：

1. 编写 C++ 代码，并将需要导出的函数声明为 `extern "C"`，以便 Fortran 可以调用。

2. 将 C++ 代码编译成动态库，生成 .so 文件。

3. 在 Fortran 代码中声明需要调用的 C++ 函数，使用 `external` 关键字声明函数名、参数列表和返回值类型。

4. 在 Fortran 代码中使用 `iso_c_binding` 模块中的 `c_f_pointer()` 函数将 C++ 函数的指针转换为 Fortran 中的指针。

5. 在 Fortran 代码中调用 C++ 函数，使用 `call` 语句调用。

以下是一个简单的示例代码，演示了 Fortran 调用 C++ 动态库的过程：

**C++ 代码**

// example.cpp
#include <iostream>

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

**编译 C++ 代码成动态库**

g++ -shared -fPIC example.cpp -o libexample.so

**Fortran 代码**

! example.f90
module example
    implicit none
    interface
        subroutine hello() bind(C, name="hello")
        end subroutine hello
    end interface
end module example

program test
    use iso_c_binding
    use example
    implicit none
    
    interface
        subroutine c_hello() bind(C, name="hello")
        end subroutine c_hello
    end interface
    
    type(c_ptr) :: ptr
    procedure(c_hello), pointer :: c_func
    
    ! 将 C++ 函数的指针转换为 Fortran 中的指针
    call c_f_pointer(c_func, ptr)
    
    ! 调用 C++ 函数
    call c_func()
end program test

注意事项：

1. 在 Fortran 代码中声明 C++ 函数时，需要使用 `bind(C)` 关键字指定调用约定。C++ 函数的名称需要使用 `name` 属性指定。

2. 在 Fortran 代码中调用 C++ 函数时，需要将 C++ 函数的指针转换为 Fortran 中的指针，以便在 Fortran 中调用。