1 integer constr_homology,homol_nset,iset,ihset
3 real*8 waga_dist, waga_angle, waga_theta, waga_d, dist_cut,
5 common /homol/ waga_homology(maxR),
6 & waga_dist,waga_angle,waga_theta,waga_d,dist_cut,dist2_cut,
7 & iset,ihset,l_homo(max_template,maxdim)