1 files changed, 1 insertions, 1 deletions

diff --git a/Discov.f b/Discov.f
index 16e426d..f6baeb8 100755
--- a/Discov.f
+++ b/Discov.f
@@ -12,7 +12,7 @@ c******************************************************************************
       im = amol                                                         
       do i=1,5                                                        
          i3 = im/itest(i)                                              
-         if(i3 .eq. i1) i2 = i2 + 1                                    
+         if(i3 == i1) i2 = i2 + 1
          im = im - i3*itest(i)                                         
       enddo
       return