diff options
Diffstat (limited to 'Writenumber.f')
| -rwxr-xr-x | Writenumber.f | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Writenumber.f b/Writenumber.f index 66cdb6c..3d01926 100755 --- a/Writenumber.f +++ b/Writenumber.f @@ -11,9 +11,9 @@ c****************************************************************************** lognum = alog10(abs(xnum)) - if (lognum .ge. 6.) then + if (lognum >= 6.) then write (errmess,1002) - elseif (lognum .ge. 0.) then + elseif (lognum >= 0.) then numdec = 5 - nint(lognum) write (errmess,1001) numdec else |