我已经失去信心了

[agamenon]

为了完成老师的作业，这段时间我一直在试着用vc调用fortran的程序，因为我们这个学科很多现成的程序都是用fortran编好的。我先是用system调用exe文件，那很简单。后来试着用visual fortran编成动态链接库调用，我查了很多书，从对动态链接库一窍不通到略有所知，但程序一直没有调用成功，上次在vckbase里载到一个现成的程序，这个原版的程序拿回来编译运行都成功，但调用数组时返回的值不对：DO i=1,3
DO j=1,3
arr(i,j)=10.1*i+j
END DO
END DO
结果是33.3
返回单个数时不论你改成多少都是0；
我已经没办法了，谁能帮帮我。

[菜牛]

没讲清楚。

[agamenon]

在vc里载入visual fortran生成的动态链接库，没有成功。这个程序从http://www.vckbase.com/code/listcode.asp?mclsid=13&sclsid=1303
下载
动态链接库里的子程序返回一个单参数数值和一个数组。比如返回的是n＝5，和a（3，3）
但在vc里调用是那个单参数值却变成了0，计算的数组值也不对，下面是计算数组值的fortran子程序：
DO i=1,3
DO j=1,3
arr(i,j)=10.1*i+j
END DO
END DO
结果是33.3
显然是不对的。
帮我！！！！！！！！

[agong1980]

不懂,只能帮你顶

[菜牛]

你没有返回呀。

[syy64]

fortran 已经很少用了，我用过将进10年了，你知道powerstation吗？

[jnlon]

不明白。

[wangyanyan]

帮你顶

[gigiyu]

不懂你说什么

[A_Qiao]

这个主题有意思，先顶一下。

[syy64]

你只能多了解vfortran怎样建动态连接库，和vc++怎样调动态连接库，vc++动态连接库参考vc++技术内幕，vfortran建动态连接库，我想比较简单，主要考虑参数的一致。

[syy64]

vc++里只有指针、地址、和引用才能得到返回值，简单变量是无法得到返回值的。

[agamenon]

retrun了，我没写出来
我用的就是powerstation和visual fortran啊
唉！每人帮我。。。。。。

[syy64]

vc++调fortran我也没用过，你只能多试了。

[agamenon]

syy64(太平洋):
我是这样载入dll的，对单参数是引用啊：（&a）
HINSTANCE hIns;
hIns = LoadLibraryEx("EXAM.dll",NULL,DONT_RESOLVE_DLL_REFERENCES);
typedef int (*MYPROC)(int &a, float b[3][3]);
MYPROC fun= (MYPROC)GetProcAddress(hIns,"_ARRAYTEST@8");
float arr[3][3];
int a = 10;
fun(a,arr);

[syy64]

有人吗？快结帖呀！

[kugou123]

太平洋，厉害。呵呵。上次回帖还是两个三角，现在已经成星了。嘿嘿～～

[A_Qiao]

想起一件事情; FORTRAN中的子程序调用时, 参数是引用调用, 而C缺省是值调用. 比如用FORTRAN调用时, 子程序中改变参数的值, 主程序中也作相应的改变, 因为子程序和主程序中的a,b,c存放在同一地址下面,具体如下;

program main
a = 0
b = 0
c = 0
call subp( a, b, c )
c 子程序调用结束后,a, b, c的值已经分别是1,2,3了
end

subroutine subp( a, b, c )
a = 1
b = 2
c = 3
end

而在C程序中却完全不同, 函数中改变参数的值不会影响函数外部的变量.因为C程序中, 不同函数体内的变量都有各自不同的地址存放, 具体如下;

int main()
{
double a = 0, b=0, c=0 ;
func( a, b, c ) ;
// 函数调用结束后, a, b, c的值还是0, 0, 0
return 0 ;
}

void func( double a, double b, double c )
{
a = 1;
b = 2;
c = 3;
}

你的问题是否跟这个有关系?