X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Funres%2Fsrc_CSA%2Fenergy_p_new_barrier.F;fp=source%2Funres%2Fsrc_CSA%2Fenergy_p_new_barrier.F;h=4ca78f8cf9851eeca0b5c4ed0b3b8c48d4a714c1;hb=9934d25294a5371b80013e77a7abadcd95491afe;hp=73bb4d6d38e477993b2919869c67f81c9849681f;hpb=bda2571cb81afec02e81f890f27a71aecc92e988;p=unres.git

diff --git a/source/unres/src_CSA/energy_p_new_barrier.F b/source/unres/src_CSA/energy_p_new_barrier.F
index 73bb4d6..4ca78f8 100644
--- a/source/unres/src_CSA/energy_p_new_barrier.F
+++ b/source/unres/src_CSA/energy_p_new_barrier.F
@@ -5908,7 +5908,7 @@ c      write (iout,*) "EBACK_SC_COR",i,esccor,intertyp
      &  restyp(itype(i-2)),i-2,restyp(itype(i-1)),i-1,isccori,isccori1,
      &  (v1sccor(j,intertyp,isccori,isccori1),j=1,6)
      & ,(v2sccor(j,intertyp,isccori,isccori1),j=1,6)
-        gsccor_loc(i-3)=gsccor_loc(i-3)+gloci
+C        gsccor_loc(i-3)=gsccor_loc(i-3)+gloci
        enddo !intertyp
       enddo