source/unres/src-HCD-5D/COMMON.HOMOLOGY

   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
   6 ! Restraint parameters
   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)
  11 !
  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)
  18 !
  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)
  23 !
  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,
  27      & idomain,l_homo
  28 !
  29 !    FP (30/10/2014,04/03/2015)
  30 !
  31       common /homrestr_double/
  32      & xxtpl,yytpl,zztpl,thetatpl,sigma_theta,sigma_d,sigma_odlir