06/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
06/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