cluster unres

[unres.git] / source / cluster / unres / src / intcor.f

diff --git a/source/cluster/unres/src/intcor.f b/source/cluster/unres/src/intcor.f
index 7d0b849..045cce1 100644 (file)
--- a/source/cluster/unres/src/intcor.f
+++ b/source/cluster/unres/src/intcor.f
@@ -8,7 +8,7 @@ c
       include 'DIMENSIONS'
       include 'COMMON.GEO'
       include 'COMMON.CHAIN'
-      if (i1.lt.1 .or. i2.lt.1 .or. i3.lt.1 .or. i4.lt.1) then
+      if (i1.lt.1 .or. i2.lt.1 .or. i3.lt.1) then
         alpha=0.0
         return
       endif