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