PC使って便利なことをメモ
gfortranにはisnan関数がない(?)ので、if文で代用する。
aが倍精度実数のとき、こんな感じ。
if(a*0.d0 /= 0.d0) then
write(*,*) a
stop
end if
NaN*0.d0がNaNになることを利用。
aが倍精度実数のとき、こんな感じ。
if(a*0.d0 /= 0.d0) then
write(*,*) a
stop
end if
NaN*0.d0がNaNになることを利用。
PR
<<
前のページ