1 ! General homology parameters
2 double precision waga_homology,waga_dist,waga_angle,waga_theta,
3 & waga_d,dist_cut,dist2_cut
4 common /homol/ waga_homology(maxprocs/20),
5 & waga_dist,waga_angle,waga_theta,waga_d,dist_cut,dist2_cut
7 double precision odl(max_template,maxdim_cont),
8 & sigma_odl(max_template,maxdim_cont),dih(max_template,maxres),
9 & sigma_dih(max_template,maxres),
10 & sigma_odlir(max_template,maxdim_cont)
12 ! Specification of new variables used in subroutine e_modeller
13 ! modified by FP (Nov.,2014)
14 double precision xxtpl(max_template,maxres),
15 & yytpl(max_template,maxres),zztpl(max_template,maxres),
16 & thetatpl(max_template,maxres),sigma_theta(max_template,maxres),
17 & sigma_d(max_template,maxres)
19 integer ires_homo(maxdim_cont),jres_homo(maxdim_cont),
20 & idomain(max_template,maxres),lim_odl,lim_dih,link_start_homo,
21 & link_end_homo,idihconstr_start_homo,idihconstr_end_homo
22 logical l_homo(max_template,maxdim_cont)
24 common /homrestr/ odl,dih,sigma_dih,sigma_odl,
25 & lim_odl,lim_dih,ires_homo,jres_homo,link_start_homo,
26 & link_end_homo,idihconstr_start_homo,idihconstr_end_homo,
29 ! FP (30/10/2014,04/03/2015)
31 common /homrestr_double/
32 & xxtpl,yytpl,zztpl,thetatpl,sigma_theta,sigma_d,sigma_odlir