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