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