c++调用DLL参数传递失败

[movind]

我用C++编写程序调用一个FORTRAN编写的DLL文件，如果中间没有参数传递的话，可以正常运行，但是带参数调用的话就，参数的值无法改变，向高手求教，该如何解决，拜托拜托！！我用的是Visual Fortran 6和NetBeans 5.5！附上程序如下（中间没有参数传递的话可正常运行，现在是传址调用，改为引用调用也不行）：
FORTRAN程序：
SUBROUTINE AVER[DLLEXPORT](AV)

IMPLICIT NONE

REAL AV
REAL A, B
READ *, A,B
AV = (A+B)/2
PRINT *, AV
END
C++程序：
#include <stdio.h>
#include <windows.h>

int main()
{
HINSTANCE hInst;
typedef void (*p)(double*);
p add;
double aver;
hInst = LoadLibrary("testDll.dll");
if(hInst == NULL) {
printf("Load dll error!\n");
return 0;
}
else {
printf("Load dll OK!\n");
add = (p)GetProcAddress(hInst, "AVER");
if(add == NULL) {
printf("Open dll function failed!\n");
return 0;
}
else {
printf("Open dll function OK!\n");
add(&aver);
printf("%f", aver);
}
}
FreeLibrary(hInst);
return 0;
}

[movind]

void _stdcall(*Add)(double*);

这种方法也试过了，还是不行。。。跟现在的效果一样
还有什么好办法吗？能帮忙改一下这个程序吗？

[movind]

#include <stdio.h>
#include <windows.h>

extern "C"{void _stdcall AVER(double& AV);}

int main() {
double a;
AVER(a);
printf("%f", a);
return 0;
}
这种方法已经试过不行了，效果一样！

[movind]

新发现，我把FORTRAN程序改为求两个整数的和，然后用C++向FORTRAN传递整型参数就可以成功
看来问题出在FORTRAN的REAL型变量和C++的DOUBLE型变量上，请高手帮忙分析一下，该如何解决

[movind]

问题已搞定。。。

[hityct1]

我把Fortran的语法忘得差不多了。

这个函数：
SUBROUTINE AVER[DLLEXPORT](AV)

IMPLICIT NONE

REAL AV
REAL A, B
READ *, A,B
AV = (A+B)/2
PRINT *, AV
END
中
REAL AV 是不是个局部变量？而不是参数AV。你好像没有修改参数的值。

[movind]

AV就是参数，是C++调用时传进来的变量，最后得到的应该是两个数的平均数

[hityct1]

另外，我记得还有什么调用规则，就是参数的进栈次序的约定。可能要考虑吧。
什么stdcall之类的。

[michney]

另外，我记得还有什么调用规则，就是参数的进栈次序的约定。可能要考虑吧。
什么stdcall之类的。
===============================
对的，调用是应该考虑方式
lz查一下farcall， cdecl, stdcall什么的

[hityct1]

怎么搞定的？

[movind]

fortran中的real类型对应的是C++中的float型，我开始把fortran中的real型赋值给了c++中的double型，由于数据长度不同，所以出现了问题，所以只需要把double改为float，问题就解决了。。