--- /dev/null
+ 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)