integer ncont,ncont_ref,icont,icont_ref
      common /contacts/ ncont,ncont_ref,icont(2,maxcont),
     &                  icont_ref(2,maxcont)