source/cluster/wham/src-HCD-5D/COMMON.HOMRESTR

   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)
   5 c
   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)
  12 c
  13
  14        integer ires_homo(maxdim_cont),jres_homo(maxdim_cont)
  15
  16        double precision
  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),
  20      & duscdiff(3,maxres),
  21      & duscdiffx(3,maxres),
  22      & uconst_back
  23       integer lim_odl,lim_dih,link_start_homo,link_end_homo,
  24      & idihconstr_start_homo,idihconstr_end_homo
  25 c
  26 c    FP (30/10/2014)
  27 c
  28 c     integer ithetaconstr_start_homo,ithetaconstr_end_homo
  29 c
  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,
  36 c
  37 c    FP (30/10/2014,04/03/2015)
  38 c
  39      & xxtpl,yytpl,zztpl,thetatpl,sigma_theta,sigma_d,sigma_odlir
  40 c