integer nharp_seed(max_seed),nharp_tot,
     & iharp_seed(4,maxres/3,max_seed),iharp_use(0:4,maxres/3,max_seed),
     & nharp_use(max_seed)
      common /spinka/ nharp_seed,nharp_tot,iharp_seed,iharp_use,
     & nharp_use