source/unres/src-5hdiag-tmp/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),
   8      & sigma_odl(max_template,maxdim),dih(max_template,maxres),
   9      & sigma_dih(max_template,maxres),sigma_odlir(max_template,maxdim)
  10 !
  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)
  17 !
  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)
  22 !
  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,
  26      & idomain,l_homo
  27 !
  28 !    FP (30/10/2014,04/03/2015)
  29 !
  30       common /homrestr_double/
  31      & xxtpl,yytpl,zztpl,thetatpl,sigma_theta,sigma_d,sigma_odlir