fortran95

2熱

1答えて

のFortran 95：インライン評価の場合、条件ここで

実際の値についてイプシロン（）を返すコードの小さなスニペット：私は if (1.0+eps==1.0) then であれば条件を置き換える今 program epstest real :: eps=1.0, d do d=1.0+eps if (d==1.0) then eps=eps*2 exit else eps=eps/2

fortran fortran90 fortran95 2011-02-06

---