X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?p=unres.git;a=blobdiff_plain;f=source%2Funres%2Fsrc_MIN%2Fminimize_p.F;fp=source%2Funres%2Fsrc_MIN%2Fminimize_p.F;h=2fa0ec895281faf72e8bd7e5d58715155691fc00;hp=72190e8f95b1a06b86ccf607ccb3190e947d0cfa;hb=9453fc761eb545fcb727824c94d012dbf3931951;hpb=6f521277aa2a382d409f5189957283b0998b0d07

diff --git a/source/unres/src_MIN/minimize_p.F b/source/unres/src_MIN/minimize_p.F
index 72190e8..2fa0ec8 100644
--- a/source/unres/src_MIN/minimize_p.F
+++ b/source/unres/src_MIN/minimize_p.F
@@ -89,8 +89,8 @@ cd    print *,'Calling SUMSL'
       etot=v(10)                                                      
       iretcode=iv(1)
 cd    print *,'Exit SUMSL; return code:',iretcode,' energy:',etot
-      write (iout,'(/a,i4,a,f15.5/)') 'SUMSL return code:',iv(1),
-     &   " energy",etot
+cd    write (iout,'(/a,i4,a,f15.5/)') 'SUMSL return code:',iv(1),
+cd     &   " energy",etot
       call var_to_geom(nvar,x)
 c      call chainbuild
 c      call etotal(energia(0))