作者bluehaerts (5858笨58)
看板Fortran
标题[问题] 函数问题
时间Fri Dec 5 13:53:30 2008
小弟我又来发问了
之前的问题 我已经了解是要用 gfortran编译
也感谢 agody noonee meteorology 3位高手的解答
不过我在做练习时 又遇到函数问题了
我已经编译 有过了
可是 出来结果 有点问题
program logic
real a,b,c
logical, external:: function test
read(*,*) a,b,c
write(*,*) test(a,b,c)
end
logical function test(a,b,c)
double precision a,b,c
test=(a .gt. 0.0) .and. (b .gt. 0.0) .and. (c .gt. 0.0)
end
输入~
20
30
-10
出来
0.00000
这应该是逻辑运算 结果 不是应该 是0或1吗
或.TURE. .false.
怎麽会是0.0
谢谢看完唷
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 140.134.140.40
1F：→ noonee:不要这麽快就先问人 自己先想一想 改变一下写法 try看看 12/05 15:07
2F：推 meteorology:那既然知道是逻辑运算 出来是数字 12/05 16:45
3F：→ meteorology:那你觉得这个问题是出在哪里？ 12/05 16:46
4F：→ meteorology:我干麽那麽多那～＝ ＝ ｜｜ 12/05 16:47
5F：→ playwater02:楼上是我认识的方同学吗? 12/05 23:48
6F：推 agody:主程式宣告real的变数在函式宣告成double precision .... 12/05 23:57
7F：推 meteorology:!! 12/06 00:59
8F：推 meteorology:=============以上是循序渐进教法======== 12/06 01:19