1 files changed, 2 insertions, 2 deletions
diff --git a/Getnum.f b/Getnum.f
index 6b19e43..c460ac0 100755
--- a/Getnum.f
+++ b/Getnum.f
@@ -14,9 +14,9 @@ c******************************************************************************
 
       xnum = -9999.
 1     call getasci (nchars,line)
-      if (nchars .lt. 0) return
+      if (nchars < 0) return
       call number (nchars,line,xnum)
-         if (xnum .eq. -9999.) go to 1
+         if (xnum == -9999.) go to 1
       xnumsngl = sngl(xnum)
       return