忍者ブログ
PC使って便利なことをメモ
[2]  [3]  [4]  [5]  [6]  [7
×

[PR]上記の広告は3ヶ月以上新規記事投稿のないブログに表示されています。新しい記事を書く事で広告が消えます。

gfortranにはisnan関数がない(?)ので、if文で代用する。
aが倍精度実数のとき、こんな感じ。
if(a*0.d0 /= 0.d0) then
write(*,*) a
stop
end if

NaN*0.d0がNaNになることを利用。
PR
カレンダー
12 2025/01 02
S M T W T F S
1 2 3 4
5 6 7 8 9 10 11
12 13 14 15 16 17 18
19 20 21 22 23 24 25
26 27 28 29 30 31
フリーエリア
最新コメント
最新トラックバック
プロフィール
HN:
trtr
性別:
非公開
自己紹介:
メインにvineを使ってます。
ときどきubuntu。
バーコード
ブログ内検索
Template by Crow's nest 忍者ブログ [PR]