1 files changed, 1 insertions, 1 deletions
diff --git a/Partnew.f b/Partnew.f
index 7b9e0f3..9f3b6c0 100755
--- a/Partnew.f
+++ b/Partnew.f
@@ -21,7 +21,7 @@ c******************************************************************************
       iatom = nint(atom)
       iarray = partflag(iatom,k)
 
-      if (level .gt. 500) then
+      if (level > 500) then
          temp = dlog(dble(level))
       else
          temp = tlog(level)