diff options
Diffstat (limited to 'Number.f')
-rwxr-xr-x | Number.f | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -11,14 +11,14 @@ c****************************************************************************** c*****if a carriage return has been hit, return with -9999. - if (nchar .le. 0) then + if (nchar <= 0) then xnum = -9999. return endif c*****set the conversion format - if (nchar .lt. 10) then + if (nchar < 10) then write(form,1001) nchar else write(form,1002) nchar |