aboutsummaryrefslogtreecommitdiff
path: root/Number.f
diff options
context:
space:
mode:
Diffstat (limited to 'Number.f')
-rwxr-xr-xNumber.f4
1 files changed, 2 insertions, 2 deletions
diff --git a/Number.f b/Number.f
index d6367f5..ff87d4e 100755
--- a/Number.f
+++ b/Number.f
@@ -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