Fortran调用C++函数写法

345241120

已于 2023-12-08 13:46:54 修改

阅读量201

点赞数

CC 4.0 BY-SA版权

分类专栏： Fortran 文章标签：开发语言 c++

于 2023-12-05 09:47:15 首次发布

本文链接：https://blog.youkuaiyun.com/HTMCW/article/details/134799130

Fortran 专栏收录该内容

2 篇文章

订阅专栏

本文介绍了如何在Fortran中使用C++接口，详细解释了逻辑函数NodeData_Export的声明与实现，以及Fortran如何调用这个C++函数以共享数据。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

Fortran Interface:

interface

logical function NodeData_Export(NodeNum,Node_X,Node_Y,Node_Z,Node_JN,Node_JS) bind(c,name='CUDAMallocNodeData_Export')
            use data_def
            integer, value:: NodeNum
            real(gk):: Node_X(NodeNum)
            real(gk):: Node_Y(NodeNum)
            real(gk):: Node_Z(NodeNum)
            integer :: Node_JN(NodeNum*6)
            integer :: Node_JS(NodeNum*3)
        end function

end interface

C++函数声明与实现：

extern "C" bool __declspec(dllexport)  NodeData_Export(const int NodeNum, float Node_X[], float Node_Y[], float Node_Z[], int Node_JN[], int Node_JS[]);

bool NodeData_Export(const int NodeNum, float Node_X[], float Node_Y[], float Node_Z[], int Node_JN[], int Node_JS[])
{
……
}

Fortran 调用：（Fortran调用的函数要添加interface的module）

DO I = 1,NJ
        Node_X(I) = NOD(I)%X
        Node_Y(I) = NOD(I)%Y
        Node_Z(I) = NOD(I)%Z
        Node_JN((I-1)*6 + 1:I*6) = NOD(I)%JN(1:6)
        Node_JS((I-1)*3 + 1:I*3) = NOD(I)%JS(4:6)
    END DO
    ERR = NodeData_Export(NJ,Node_X,Node_Y,Node_Z,Node_JN,Node_JS)