- 19 名前：デフォルトの名無しさん mailto:sage [2006/11/13(月) 19:48:52 ]
- 以下のプログラムを実行すると、
結果が
1016010618
となります。
なぜでしょうか？訳が分かりません
環境はg95@cygwinです。
program Interpolation
print *,Lorentz(1.5)
end program Interpolation
real function Lorentz(x)
real :: x
Lorentz = 1/(1+25*x*x)
return
end
