X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Funres%2Fsrc_MD%2Fenergy_p_new_barrier.F;h=3a7a1f6fa66da5abcbf643d0fc97dfeff053b4ff;hb=4d4fc7c9369b4fcb6f503a3f64c636a85b4ed3e8;hp=fbc47917f5a150d38f28e714a619a5e2316fe540;hpb=dd278a04b418a0d8afd009d03dada9d5096c01db;p=unres.git

diff --git a/source/unres/src_MD/energy_p_new_barrier.F b/source/unres/src_MD/energy_p_new_barrier.F
index fbc4791..3a7a1f6 100644
--- a/source/unres/src_MD/energy_p_new_barrier.F
+++ b/source/unres/src_MD/energy_p_new_barrier.F
@@ -6002,8 +6002,7 @@ cc Omicron is flat angle depending on the value of first digit
 c(see comment below)
 C        print *,i,tauangle(1,i)
         
-c        do intertyp=1,3 !intertyp
-        do intertyp=2,2 !intertyp
+        do intertyp=1,3 !intertyp
 cc Added 09 May 2012 (Adasko)
 cc  Intertyp means interaction type of backbone mainchain correlation: 
 c   1 = SC...Ca...Ca...Ca