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