integer ncont_pept_ref,icont_pept_ref,ncont_frag_ref,
     & icont_frag_ref,isec_ref
      common /peptcont/ ncont_pept_ref,
     & icont_pept_ref(2,maxcont),
     & ncont_frag_ref(mmaxfrag),
     & icont_frag_ref(2,maxcont,mmaxfrag),
     & isec_ref(maxres)