c++ - 如何在 C 中以函数作为参数调用 Fortran dll

Question

我使用 VS2013 和 Intel Visual Fortran，然后从 Fortran 代码创建一个 dll。在 Fortran 子程序中，它有 3 个参数，“fa”用于传递函数，“a”用于传递数组，“b”用于传递数字。但是我在VC++中调用它时它不起作用。

更新:

嗯...上面的程序比较乱，所以我重新修改下面的程序。我创建了一个 fortran dll，它可以传递一个数组来求和它的元素并调用一个 c 函数。

module callctest

use, intrinsic :: iso_c_binding

implicit none
private
public callcfun

contains    

subroutine callcfun(a,b) bind(C,name = "callcfun")
!DEC$ ATTRIBUTES DLLEXPORT :: callcfun 
    implicit none

    real(c_double), dimension(*):: a !receive an array from c
    type(c_funptr), value :: b ! receive a c function 

    real,  parameter::pi=3.14159
    integer :: i
    real :: sum = 0.0

    do i = 1,3          ! sum the array elements
        sum = sum+a(i)
    end do 
    write(*,*) 'total',sum



    return

end subroutine callcfun

end module callctest 

以及调用fortran子程序的c代码:

#include "stdafx.h"
#include <iostream>

using namespace std;

extern "C" {

    void callcfun( double[], void(f)(int)); //

}

void sayhello(int a){


    cout << "Hi! fortran " <<a<< endl;
}
int main(){

    double a[] = { 10.0, 50, 3.0 };

    callcfun(a, sayhello(50));

    system("pause");
    return 0;

}

在c程序中，函数“sayhello”打印单词“Hi!fortran”和一个整数，我想通过调用由fortran编写的“callcfun(array，function)”来调用sayhello函数。

当我在 c 程序中调用“callcfun( array, function )” if function 时它起作用像“sayhello”只打印“Hi!fortran”。但是我为 sayhello 函数添加了一个 int 参数，以便它打印单词“Hi!fortran”和一个整数参数。函数“callcfun”未成功执行。

错误列表:

错误 1 ​​error C2664: 'void callcfun(double [],void (__cdecl *)(int))' : 无法将参数 2 从 'void' 转换为 'void (__cdecl *)(int)' c:\users\emlab\documents\visual studio 2013\projects\vc++\call_for_ex\call_for_ex\call_for_ex.cpp 21 1 call_for_ex

2 IntelliSense:“void”类型的参数与参数不兼容输入“void (*)(int)” c:\Users\EMlab\Documents\Visual Studio2013\Projects\VC++\call_for_ex\call_for_ex\call_for_ex.cpp 21 14 call_for_ex

错误说明c函数有问题，如何将c函数传回fortran dll，然后在fortran中调用？

Answer 1

要使 Fortran 过程可互操作，BIND(C) 属性是必需的。两个 Fortran 过程都缺少此属性。

对于要从 Windows 上的 DLL 导出的过程，过程的符号名称最终必须提供给链接器。 (有三种方法可以做到这一点:编译器将源指令传递到目标代码中(根据与 arraysum 过程一起使用的 !DEC$ ATTRIBUTES DLLEXPORT 指令), 通过在模块定义文件中列出过程名称或通过在链接器命令行上的/EXPORT 之后列出名称——我假设后两种方法没有被使用。)鉴于提名一个过程的源指令方法有已用于要导出的过程(arraysum)之一，该方法也应用于需要导出的其他过程(fcn)。

对于具有 C 链接的 C++ 函数，它必须用 extern "C" 声明。 C++代码中没有fcn这样的声明。 (没有任何 fcn 声明意味着 C++ 代码不应该编译。)

当从 C++ 代码构建 exe 时，必须向链接器提供在构建 Fortran DLL 时由链接器生成的导入库 (.lib)。通常，这是在 Visual Studio 中完成的，方法是在“链接器”>“输入”属性页上将导入库作为“附加依赖项”提供。