fortran中调用函数返回值问题

主题：fortran中调用函数返回值问题

haiyang_zhang [专家分：0] 发布于 2010-12-14 10:36:00

在fortran中调用一个有返回值的子函数，可以这样调用吗：
X1=add(a,b)
real function add(a,b)
add=a+b
return
end

沙发

dongyuanxun [专家分：7180] 发布于 2010-12-14 10:48:00

have a try

记住声明

板凳

haiyang_zhang [专家分：0] 发布于 2010-12-14 14:31:00

我是这样调用的，但是返回值不对啊，在real function add(a,b)里面计算的add值为1.467，传到X1就变成一个很大的值了，不知道是哪里有问题？X1要怎么定义一下？

3 楼

dongyuanxun [专家分：7180] 发布于 2010-12-14 14:53:00

function在主程序里使用external或者使用interface使用

4 楼

haiyang_zhang [专家分：0] 发布于 2010-12-14 15:09:00

LS的能不能说的详细一点？我刚刚开始接触fortran，
意思是在主程序里面定义 external add(a,b) ？？

5 楼

臭石头雪球 [专家分：23030] 发布于 2010-12-14 19:21:00

real X1 , add
external add
real a , b
X1=add(a,b)

real function add(a,b)
real a , b
add=a+b
return
end

您尚未登录，请登录后再回复。点此登录或注册