X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Fcluster%2Fwham%2Fsrc-M%2Fenergy_p_new.F;h=968a9f1b27fee332a97d7b127f12dab0f149f646;hb=eee3a1e3f0ccd607d4ca71f73afaea1fb952a05c;hp=2302af921529b69a02e94a9067a4f8e2d3047d14;hpb=42711cee14ec3da10be3b950a9f2d9f30d0b9186;p=unres.git

diff --git a/source/cluster/wham/src-M/energy_p_new.F b/source/cluster/wham/src-M/energy_p_new.F
index 2302af9..968a9f1 100644
--- a/source/cluster/wham/src-M/energy_p_new.F
+++ b/source/cluster/wham/src-M/energy_p_new.F
@@ -131,7 +131,7 @@ c      write(iout,*) "TEST_ENE",constr_homology
 c      write(iout,*) "TEST_ENE",ehomology_constr
 
 
-      write (iout,*) "ft(6)",fact(6),wliptran,eliptran
+c      write (iout,*) "ft(6)",fact(6),wliptran,eliptran
 #ifdef SPLITELE
       if (shield_mode.gt.0) then
       etot=fact(1)*wsc*(evdw+fact(6)*evdw_t)+fact(1)*wscp*evdw2