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),
8 & sigma_odl(max_template,maxdim),dih(max_template,maxres),
9 & sigma_dih(max_template,maxres),sigma_odlir(max_template,maxdim)
11 ! Specification of new variables used in subroutine e_modeller
12 ! modified by FP (Nov.,2014)
13 double precision xxtpl(max_template,maxres),
14 & yytpl(max_template,maxres),zztpl(max_template,maxres),
15 & thetatpl(max_template,maxres),sigma_theta(max_template,maxres),
16 & sigma_d(max_template,maxres)
18 integer ires_homo(maxdim),jres_homo(maxdim),
19 & idomain(max_template,maxres),lim_odl,lim_dih,link_start_homo,
20 & link_end_homo,idihconstr_start_homo,idihconstr_end_homo
21 logical l_homo(max_template,maxdim)
23 common /homrestr/ odl,dih,sigma_dih,sigma_odl,
24 & lim_odl,lim_dih,ires_homo,jres_homo,link_start_homo,
25 & link_end_homo,idihconstr_start_homo,idihconstr_end_homo,
28 ! FP (30/10/2014,04/03/2015)
30 common /homrestr_double/
31 & xxtpl,yytpl,zztpl,thetatpl,sigma_theta,sigma_d,sigma_odlir