From: Cezary Czaplewski <czarek@cell.kias.re.kr>
Date: Mon, 14 Mar 2016 06:27:07 +0000 (+0900)
Subject: eback_sc_corr  do intertyp=1,3
X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=commitdiff_plain;h=0ae611089ff3d013a4606618d18d999332d40c58;hp=aabe58079178cdd78fb2942dcf844c5dff6190ba;p=unres.git

eback_sc_corr  do intertyp=1,3
---

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