- 30 名前：デフォルトの名無しさん mailto:sage [2007/12/12(水) 21:44:00 ]
- program test
implicit none
integer:: n
real(8):: x = 2.5d0, y = 3.3d0
n = intfunc(x, y)
print *, n
stop
end
integer function intfunc(x, y)
implicit none
real(8), intent(in):: x
real(8), intent(in):: y
intfunc = int(x) + int(y)
end function
サンプルなので、特に意味ある処理をしてあるわけじゃないですが、、。
