1 real*8 odl(max_template,maxdim_cont),
2 & sigma_odl(max_template,maxdim_cont),
3 & dih(max_template,maxres),sigma_dih(max_template,maxres),
4 & sigma_odlir(max_template,maxdim_cont)
6 c Specification of new variables used in subroutine e_modeller
7 c modified by FP (Nov.,2014)
8 real*8 xxtpl(max_template,maxres),yytpl(max_template,maxres),
9 & zztpl(max_template,maxres),thetatpl(max_template,maxres),
10 & sigma_theta(max_template,maxres),
11 & sigma_d(max_template,maxres)
14 integer ires_homo(maxdim_cont),jres_homo(maxdim_cont)
17 & Ucdfrag,Ucdpair,dUdconst(3,0:MAXRES),Uconst,
18 & dUdxconst(3,0:MAXRES),dqwol(3,0:MAXRES),dxqwol(3,0:MAXRES),
19 & dutheta(maxres),dugamma(maxres),
21 & duscdiffx(3,maxres),
23 integer lim_odl,lim_dih,link_start_homo,link_end_homo,
24 & idihconstr_start_homo,idihconstr_end_homo
28 c integer ithetaconstr_start_homo,ithetaconstr_end_homo
30 integer nresn,nyosh,nnos
31 common /back_constr/ uconst_back,
32 & dutheta,dugamma,duscdiff,duscdiffx
33 common /homrestr/ odl,dih,sigma_dih,sigma_odl,
34 & lim_odl,lim_dih,ires_homo,jres_homo,link_start_homo,
35 & link_end_homo,idihconstr_start_homo,idihconstr_end_homo,
37 c FP (30/10/2014,04/03/2015)
39 & xxtpl,yytpl,zztpl,thetatpl,sigma_theta,sigma_d,sigma_odlir