source/unres/src-HCD-5D/COMMON.CONTACTS

   1       integer ncont,ncont_ref,icont,icont_ref,num_cont,jcont
   2       double precision facont,gacont
   3       common /contacts/ ncont,ncont_ref,icont(2,maxcont),
   4      &                  icont_ref(2,maxcont)