homology from okeanos
[unres.git] / source / wham / src-M-SAXS-homology / COMMON.HOMOLOGY
1       integer constr_homology,homol_nset,iset,ihset
2       real*8 waga_homology
3       real*8 waga_dist, waga_angle, waga_theta, waga_d, dist_cut,
4      &  dist2_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)