- & inprint,i2ndstr,mucadyn,constr_dist
- logical minim,refstr,pdbref,outpdb,outmol2,overlapsc,energy_dec,
+ & iprint,i2ndstr,mucadyn,constr_dist,constr_homology,homol_nset
+ real*8 waga_homology
+ real*8 waga_dist, waga_angle, waga_theta, waga_d, dist_cut,
+ & dist2_cut
+ logical minim,refstr,pdbref,outpdb,outmol2,outx,overlapsc,
+ & energy_dec,