source/unres/src-HCD-5D/COMMON.LANGEVIN.lang0.5diag

   1 ! Basic Langevin dynamics parameters
   2       logical surfarea
   3       integer reset_fricmat
   4       double precision scal_fric,rwat,etawat,gamp,
   5      & gamsc(ntyp1),stdfp,stdfsc(ntyp),stdforcp(MAXRES),
   6      & stdforcsc(MAXRES),pstok,restok(ntyp+1),cPoise,Rb
   7       common /langevin/ pstok,restok,gamp,gamsc,
   8      & stdfp,stdfsc,stdforcp,stdforcsc,rwat,etawat,scal_fric,
   9      & cPoise,Rb,surfarea,reset_fricmat
  10 ! Variables used in Langevin dynamics calculations
  11       double precision friction(3,0:MAXRES2),stochforc(3,0:MAXRES2),
  12      & fric_work(MAXRES6),stoch_work(MAXRES6),fricgam(MAXRES6),
  13      & DMfric(MAXRES2),DU1fric(MAXRES2),DU2fric(MAXRES2)
  14       logical flag_stoch(0:maxflag_stoch)
  15       common /langforc/ friction,stochforc,DMfric,DU1fric,DU2fric,
  16      & fric_work,fricgam,stoch_work,flag_stoch