update

[unres.git] / source / unres / src_MD-M / energy_p_new.F

diff --git a/source/unres/src_MD-M/energy_p_new.F b/source/unres/src_MD-M/energy_p_new.F
index 0b25cb2..792804a 100644 (file)
--- a/source/unres/src_MD-M/energy_p_new.F
+++ b/source/unres/src_MD-M/energy_p_new.F
@@ -240,7 +240,11 @@ C If performing constraint dynamics, call the constraint energy
 C  after the equilibration time
       if(usampl.and.totT.gt.eq_time) then
          call EconstrQ   
-         call Econstr_back
+         if (loc_qlike) then
+           call Econstr_back_qlike
+         else
+           call Econstr_back
+         endif
       else
          Uconst=0.0d0
          Uconst_back=0.0d0