integer ncont,ncont_ref,icont,icont_ref,num_cont,jcont,
     & nsccont_frag_ref,isccont_frag_ref
      common /contacts/ ncont,ncont_ref(maxprot),icont(2,maxcont),
     & icont_ref(2,maxcont,maxprot),
     & nsccont_frag_ref(mmaxfrag,maxclass1-1,maxprot),
     & isccont_frag_ref(2,maxcont,mmaxfrag,maxclass1-1,maxprot)