X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Fwham%2Fsrc-HCD%2Fproc_cont.f;fp=source%2Fwham%2Fsrc-HCD%2Fproc_cont.f;h=c70652ae31186441faccb0389cd8f1f41a590569;hb=f9783c27de185ff3e1d6e874a37a1a8c4d3c93a3;hp=92694965fb9203a5088e7c815be9f75e8c5351a5;hpb=3d04f1babd4ae90f9a0b8f256a2ce0a2c5751f33;p=unres.git

diff --git a/source/wham/src-HCD/proc_cont.f b/source/wham/src-HCD/proc_cont.f
index 9269496..c70652a 100644
--- a/source/wham/src-HCD/proc_cont.f
+++ b/source/wham/src-HCD/proc_cont.f
@@ -15,10 +15,10 @@
       include 'COMMON.GEO'
       write (iout,*) "proc_cont: nlevel",nlevel
       if (nlevel.lt.0) then
-        write (iout,*) "call define_fragments"
+c        write (iout,*) "call define_fragments"
         call define_fragments
       else
-        write (iout,*) "call secondary2"
+c        write (iout,*) "call secondary2"
         call secondary2(.true.,.false.,ncont_pept_ref,icont_pept_ref,
      &     isec_ref)
       endif