您所在位置：主题：fortran计算问题
sunvf
[专家分：0] 发布于 2011-05-07 15:55:00
下面这段程序怎么算不出正确结果？该怎样改
external g
real(8) a,b
common/dat/a
a=1.1
b=9.0
print*,g(b)
end
function g(x)
real(8) x
common/dat/a
g=a*x
end
external g
real(8) a,b
common/dat/a
a=1.1
b=9.0
print*,g(b)
end
function g(x)
real(8) x
common/dat/a
g=a*x
end