Merge branch 'devel' of mmka.chem.univ.gda.pl:unres into devel

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

diff --git a/source/unres/src_MIN/energy_p_new_barrier.F b/source/unres/src_MIN/energy_p_new_barrier.F
index 9059c02..3fcf739 100644 (file)
--- a/source/unres/src_MIN/energy_p_new_barrier.F
+++ b/source/unres/src_MIN/energy_p_new_barrier.F
@@ -1448,7 +1448,7 @@ C
       logical lprn
       evdw=0.0D0
 ccccc      energy_dec=.false.
-c     print *,'Entering EGB nnt=',nnt,' nct=',nct,' expon=',expon
+c      write(iout,*) 'Entering EGB nnt=',nnt,' nct=',nct,' expon=',expon
       evdw=0.0D0
       evdw_p=0.0D0
       evdw_m=0.0D0