1 ! Basic Langevin dynamics parameters
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 & fricmat(MAXRES2,MAXRES2),fric_work(MAXRES6),
13 & stoch_work(MAXRES6),fricgam(MAXRES6),fricvec(MAXRES2,MAXRES2)
14 logical flag_stoch(0:maxflag_stoch)
15 common /langforc/ friction,stochforc,fricmat,fric_work,fricgam,
16 & stoch_work,fricvec,flag_stoch