real*8 odl(max_template,maxdim_cont),
     &   sigma_odl(max_template,maxdim_cont),
     &    dih(max_template,maxres),sigma_dih(max_template,maxres),
     &    sigma_odlir(max_template,maxdim_cont)
c
c    Specification of new variables used in  subroutine e_modeller
c    modified by FP (Nov.,2014)
       real*8 xxtpl(max_template,maxres),yytpl(max_template,maxres),
     &        zztpl(max_template,maxres),thetatpl(max_template,maxres),
     &        sigma_theta(max_template,maxres),
     &        sigma_d(max_template,maxres)
c

       integer ires_homo(maxdim_cont),jres_homo(maxdim_cont)

       double precision 
     & Ucdfrag,Ucdpair,dUdconst(3,0:MAXRES),Uconst,
     & dUdxconst(3,0:MAXRES),dqwol(3,0:MAXRES),dxqwol(3,0:MAXRES),
     & dutheta(maxres),dugamma(maxres),
     & duscdiff(3,maxres),
     & duscdiffx(3,maxres),
     & uconst_back
      integer lim_odl,lim_dih,link_start_homo,link_end_homo,
     & idihconstr_start_homo,idihconstr_end_homo
c
c    FP (30/10/2014)
c
c     integer ithetaconstr_start_homo,ithetaconstr_end_homo
c
      integer nresn,nyosh,nnos
       common /back_constr/ uconst_back,
     & dutheta,dugamma,duscdiff,duscdiffx
       common /homrestr/ odl,dih,sigma_dih,sigma_odl,
     & lim_odl,lim_dih,ires_homo,jres_homo,link_start_homo,
     & link_end_homo,idihconstr_start_homo,idihconstr_end_homo,
c
c    FP (30/10/2014,04/03/2015)
c
     & xxtpl,yytpl,zztpl,thetatpl,sigma_theta,sigma_d,sigma_odlir
c