Re: [問題] module裡面不同的function可以互相支援嗎
module testmod
implicit none
contains
function a(x)
real :: a
real, intent(in) :: x
a=x**2.
end function
function b(x)
real :: b
real, intent(in) :: x
b=(x+6.)/a(x)
end function
end module
program testpro
use testmod
implicit none
print *, b(12.)
end
可以正常執行，輸出0.125也是正確的答案
你的B裡面宣告了另一個a，ifort和gfortran都不能編譯
試試把那個a刪掉？
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 116.49.37.162
推
11/30 18:03, , 1F
11/30 18:03, 1F
推
11/30 18:48, , 2F
11/30 18:48, 2F
→
11/30 22:06, , 3F
11/30 22:06, 3F
推
12/01 03:11, , 4F
12/01 03:11, 4F
討論串 (同標題文章)
完整討論串 (本文為第 2 之 2 篇)：
Fortran 近期熱門文章
PTT數位生活區 即時熱門文章
