Question

如何在C语言中调用FORTRAN生成的DLL里的函数

FORTRAN生成的dll的代码如下：

DOUBLE PRECISION FUNCTION ADD(A,B)
!DEC$ ATTRIBUTES DLLEXPORT::ADD
!DEC$ ATTRIBUTES STDCALL,ALIAS:'Add'::Add
DOUBLE PRECISION:: A,B
ADD=A+B
END

编译后只有.dll 和.lib文件，没有.h文件。求具体的调用语句

Answer 1

C语言和Fortran混合编程借助于Fortran生成的DLL进行（采用C默认的传址方式进行函数参数传递）方法和实例：
1.Fortran
生成DLL
新建Fortran
DLL程序test1.f
添加如下代码：
！ test1.f90
！
！ FUNCTIONS/SUBROUTINES
exported from test1.dll：
！ test1 -
subroutine
！示例没有返回值的子例程
subroutine
test1(a，b)
！ Expose subroutine test1 to
users of this DLL
！
！DEC$ ATTRIBUTES
C，DLLEXPORT：：test1
！ Variables
！ Body of
test1
integer a，b
integer sum
sum=a+b
return
end subroutine
test1
！示例有返回值的整数四则运算
！两数相加
function
add(a，b)
implicit none
！DEC$ ATTRIBUTES
C，DLLEXPORT：：add
integer
a，b，add
add=a+b
return
end
！两数相减
function
abstract(a，b)
implicit none
！DEC$ ATTRIBUTES
C，DLLEXPORT：：abstract
integer
a，b，abstract
abstract=a-b
return
end
！两数相乘
function
multiply(a，b)
implicit none
！DEC$ ATTRIBUTES
C，DLLEXPORT：：multiply
integer
a，b，multiply
multiply=a*b
return
end
！两数相除
（需要添加考虑被除数是否为0以及能否整除的判断）
function
divided(a，b)
implicit none
！DEC$ ATTRIBUTES
C，DLLEXPORT：：divided
integer
a，b，divided
divided=a/b
return
end
编译后生成test1.dll，test1.obj等文件。其中这两个文件是我们在VC中调用所需要的。

Answer 2

这个看你的编译器。不同编译器操作就不同，一些编译器之间，可能 lib 还不通用。

如果 lib 不通用，就用 LoadLibrary 和 GetProcAddress 进行隐含调用。

DLL 相关的东西，都不是语法的规范。不同编译器就不同。

请你理解：任何语言，只要编译成 DLL 了，都是一样的。如何使用 DLL，已经与 Fortran 这个东西无关了。

追问

大神好！生成和调用dll都用的是VS2010。建立的C++项目，程序是C语言的.C文件。并将lib文件添加到了源文件中，C代码
#pragma comment (lib, "Dll2.lib")
void main()
{ double Add(double A,double B);
double a,b,c;
a=2;
b=7;
c=Add(a,b); }
错误提示：错误2error LNK1120: 1 个无法解析的外部命令
错误1error LNK2019: 无法解析的外部符号 _Add，该符号在函数 _main 中被引用
请教大神！求代码

追答

C 和 Fortran 混编有很多方法。看你是想怎么做。

1.Fortran 设置用 C 的调用协定。
2.C 设置用 stdcall 调用协定，Fortran也 这样。

一般来说，我建议如果是 C 调用 Fortran，则设置为 C 的调用协定。

DOUBLE PRECISION FUNCTION ADD(A,B)
!DEC$ ATTRIBUTES DLLEXPORT::ADD
!DEC$ ATTRIBUTES c,ALIAS:'_Add'::Add
DOUBLE PRECISION:: A,B
write(*,*) a , b
Add=A+B
END

C++代码
#include "stdafx.h"
#pragma comment (lib, "dll2.lib")
extern "C" {
double Add(double A,double B );
}
void main()
{
double a,b,c;
a=2.;
b=7.;
c = Add(a,b);
}

追问

dll里的代码改过后
在 .c 的文件里粘贴了姐姐给的C++代码，出现的错误提示如下：

错误1error C1083: 无法打开包括文件:“stdafx.h”: No such file or directory
2IntelliSense: cannot open source file "stdafx.h"
这个怎么办呢？C++没学过也没用过，想尽量用C语言调用，后期的处理就可以用C语言写了。谢谢女神的耐心解答O(∩_∩)O

追答

好吧，你删了这句 #include "stdafx.h"

追问

删了这句 #include "stdafx.h"后，

在extern "C" 处出现         错误1error C2059: 语法错误:“字符串”     

在c = Add(a,b);               警告2warning C4013: “Add”未定义；假设外部返回 int

删掉

extern "C" {double Add(double A,double B );}    后能通过编译，但在运行时出现：