1 files changed, 1 insertions, 1 deletions
diff --git a/Sunder.f b/Sunder.f
index 8bf956b..4492a40 100755
--- a/Sunder.f
+++ b/Sunder.f
@@ -13,7 +13,7 @@ c******************************************************************************
 
       do i=1,5                              
          i1 = im/itest(i)                       
-         if (i1 .eq. 0) cycle
+         if (i1 == 0) cycle
          i2 = im - i1*itest(i)                
          exit
       enddo