ごめんなさい、間違えました。
というか↑の状況なら何も難しいことはないですよね。

IF文でAを0より大きいか0かで分岐させても、表示させると
どうやらA=0でもIF文の中に入ってしまうことがあるのです。
ちゃんと0として入らないときもあるのですが。
とても小さい値のときにIF文に入ってしまうようで、しかし
そのあとAで割るとNanになってしまいます。
IF文のところを0でなく1.0D-307とすると大丈夫なのですが、
（倍精度は307桁まであるようです）そのままではコードとして
あまりに決まりが悪いので、何か方法はないでしょうか？