logical l_homo
      integer iset,ihset
      real*8 waga_homology
      real*8 waga_dist, waga_angle, waga_theta, waga_d, dist_cut,
     &  dist2_cut
      common /homol/  waga_homology(maxR),
     & waga_dist,waga_angle,waga_theta,waga_d,dist_cut,dist2_cut,
     & iset,ihset,l_homo(max_template,maxdim_cont)