! General homology parameters
      double precision waga_homology,waga_dist,waga_angle,waga_theta, 
     & waga_d,dist_cut,dist2_cut
      common /homol/ waga_homology(maxprocs/20),
     & waga_dist,waga_angle,waga_theta,waga_d,dist_cut,dist2_cut
! Restraint parameters
      double precision odl(max_template,maxdim),
     & sigma_odl(max_template,maxdim),dih(max_template,maxres),
     & sigma_dih(max_template,maxres),sigma_odlir(max_template,maxdim)
!
!    Specification of new variables used in  subroutine e_modeller
!    modified by FP (Nov.,2014)
      double precision 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)
!
      integer ires_homo(maxdim),jres_homo(maxdim),
     & idomain(max_template,maxres),lim_odl,lim_dih,link_start_homo,
     & link_end_homo,idihconstr_start_homo,idihconstr_end_homo
      logical l_homo(max_template,maxdim)
!
      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,
     & idomain,l_homo
!
!    FP (30/10/2014,04/03/2015)
!
      common /homrestr_double/
     & xxtpl,yytpl,zztpl,thetatpl,sigma_theta,sigma_d,sigma_odlir