After final fix by AL

[unres.git] / source / unres / src_MD / energy_p_new_barrier.F

diff --git a/source/unres/src_MD/energy_p_new_barrier.F b/source/unres/src_MD/energy_p_new_barrier.F
index 535e8b2..cb97c0a 100644 (file)
--- a/source/unres/src_MD/energy_p_new_barrier.F
+++ b/source/unres/src_MD/energy_p_new_barrier.F
@@ -257,9 +257,9 @@ cd    print *,'nterm=',nterm
 
       if (constr_homology.ge.1) then
         call e_modeller(ehomology_constr)
-        print *,'iset=',iset,'me=',me,ehomology_constr,
-     &  'Processor',fg_rank,' CG group',kolor,
-     &  ' absolute rank',MyRank
+c        print *,'iset=',iset,'me=',me,ehomology_constr,
+c     &  'Processor',fg_rank,' CG group',kolor,
+c     &  ' absolute rank',MyRank
       else
         ehomology_constr=0.0d0
       endif
@@ -6454,7 +6454,8 @@ c Addition of energy of theta angle and SC local geom over constr_homologs ref s
 c
 c     ehomology_constr=odleg+kat
       if (homol_nset.gt.1)then
-       ehomology_constr=waga_dist1(iset)*odleg+waga_angle1(iset)*kat+waga_theta*Eval
+       ehomology_constr=waga_dist1(iset)*odleg+waga_angle1(iset)*kat
+     &              +waga_theta*Eval
      &              +waga_d*Erot     
       else
        ehomology_constr=waga_dist*odleg+waga_angle*kat+waga_theta*Eval