X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;ds=sidebyside;f=source%2Fcluster%2Funres%2Fsrc%2Fintcor.f;h=045cce10a41ce2dfc56f2d381990eb165ddc0db2;hb=8fe818eba912ea03e4f70b3f064241e648bdedee;hp=7d0b84972a03fd1b16c0dadd461201aef4eaa8c3;hpb=a45ce81aae2c857c30b821e39e45a7a08356de4d;p=unres.git

diff --git a/source/cluster/unres/src/intcor.f b/source/cluster/unres/src/intcor.f
index 7d0b849..045cce1 100644
--- 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