最後の一行が大正解。
num が浮動小数点なら .eq. は禁忌。整数ならもちろんOK。
if (abs(num) .LT. 1.0e-10) ....
とかにしとくべし。