C Fortran 混合编程

pengfukai

我在使用C，Fortran混合编程时遇到如下问题：fmain.obj : error LNK2019: unresolved external symbol _addnumber referenced in function _MAIN__，各位大侠知道该怎么解决吗？
我的Fortran代码为：

[Fortran] 纯文本查看 复制代码

    program fmain
    use,intrinsic:: iso_c_binding
    implicit none
    interface
        subroutine AddNumber(res,num) bind(C)
        use,intrinsic:: iso_c_binding,only: C_INT, C_DOUBLE
        implicit none
        real(kind=C_DOUBLE):: res
        integer(kind=C_INT):: num
        end subroutine AddNumber
    end interface
    integer(kind=4):: num
    real(kind=8):: res
    res=0d0
    do while(.true.)
        write(*,*) 'please input a integral number:'
        read(*,*) num
        call AddNumber(res,num)
        write(*,'(A,3X,F10.3)') 'The result is:',res
    enddo
    end program fmain

C代码为：

[C] 纯文本查看 复制代码

#include <stdio.h>
extern "C" void AddNumber(double res, int num)
{
        res=res+num;
}

操作系统是64位windows 7, 编译器是vs2010+intel visual fortran XE 2013

fcode

解决方案管理器，截图。

pasuka

修改了一下，gcc编译无问题，至于为啥这么改，ivf的帮助文档有详细的混合编程说明
首先得明白，传址、传值
Fortran代码

[Fortran] 纯文本查看 复制代码

program fmain
use, intrinsic:: iso_c_binding
implicit none
interface
	subroutine addnum(a, b) bind(c, name="AddNumber")
	import
	implicit none
	type(c_ptr),value::a
	integer(c_int),value, intent(in)::b
	end subroutine
end interface
integer(c_int):: num
real(c_double),target:: res
num = 2
res = 1.0D0
call addnum(c_loc(res), num)
write(*, *)"Result:",res
end program 

C代码

[C] 纯文本查看 复制代码

#include <stdio.h>

void AddNumber(double *res, int num)
{
	printf("C\tInput:%f\n", *res);
	*res += (double)num;
	printf("C\tAdded:%f\n", *res);
}

pengfukai

pasuka 发表于 2015-11-30 18:19
修改了一下，gcc编译无问题，至于为啥这么改，ivf的帮助文档有详细的混合编程说明
首先得明白，传址、传值
...

谢谢你的解答，找了一晚上，终于找到了解决方法。
https://software.intel.com/en-us/forums/intel-visual-fortran-compiler-for-windows/topic/326037

pengfukai

pasuka 发表于 2015-11-30 18:19
修改了一下，gcc编译无问题，至于为啥这么改，ivf的帮助文档有详细的混合编程说明
首先得明白，传址、传值
...

还想问你一个问题，就是bind(C,Name='')中Name表示的名字必须与C文件里的函数名一致是吗？与Fortran的函数名也必须一致还是可以不同呢？

fcode

与C的一致就行。不必与Fortran的函数名一致。（否则的话就没意思了，重复的名字连着写两次）

pengfukai

fcode 发表于 2015-11-30 19:26
与C的一致就行。不必与Fortran的函数名一致。（否则的话就没意思了，重复的名字连着写两次） ...

知道啦，谢谢~