X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Fwham%2Fsrc-HCD%2Fproc_cont.f;h=c70652ae31186441faccb0389cd8f1f41a590569;hb=ba90a41f4674924a0bdc00452b59506a2acfa54a;hp=92694965fb9203a5088e7c815be9f75e8c5351a5;hpb=1346fb3959c2eb0a370b11bc6ccad5e4cca27ec9;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