COMMON.CONTACTS

   1 C Change 12/1/95 - common block CONTACTS1 included.
   2       integer ncont,ncont_ref,icont,icont_ref,num_cont,jcont
   3       common /contacts/ ncont,ncont_ref,icont(2,maxcont),
   4      &                  icont_ref(2,maxcont)