[問題] 函數問題

[bluehaerts (5858笨58)]

小弟我又來發問了
之前的問題 我已經了解是要用 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
→ noonee:不要這麼快就先問人  自己先想一想  改變一下寫法 try看看
推 meteorology:那既然知道是邏輯運算 出來是數字
→ meteorology:那你覺得這個問題是出在哪裡？
→ meteorology:我幹麼那麼多那～＝ ＝ ｜｜
→ playwater02:樓上是我認識的方同學嗎?
推 agody:主程式宣告real的變數在函式宣告成double precision ....
推 meteorology:!!
推 meteorology:=============以上是循序漸進教法========