1bf3b978eb
previously was: if (the_sum /= 1.0_pReal) then (error 170) this condition is too strict. it may give problem with some numerical truncation error. now becomes: if (abs(the_sum - 1.0_pReal) >= 1.0e-10_pReal) then (error 170) |
||
---|---|---|
code | ||
documentation |