1 ! 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,cPoise,Rb,surfarea,
10 ! Quantities 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),
14 & fricgam(MAXRES6),fricvec(MAXRES2,MAXRES2),
15 & pfric_mat(MAXRES2,MAXRES2),vfric_mat(MAXRES2,MAXRES2),
16 & afric_mat(MAXRES2,MAXRES2),prand_mat(MAXRES2,MAXRES2),
17 & vrand_mat1(MAXRES2,MAXRES2),vrand_mat2(MAXRES2,MAXRES2),
18 & pfric0_mat(MAXRES2,MAXRES2,0:maxflag_stoch),
19 & afric0_mat(MAXRES2,MAXRES2,0:maxflag_stoch),
20 & vfric0_mat(MAXRES2,MAXRES2,0:maxflag_stoch),
21 & prand0_mat(MAXRES2,MAXRES2,0:maxflag_stoch),
22 & vrand0_mat1(MAXRES2,MAXRES2,0:maxflag_stoch),
23 & vrand0_mat2(MAXRES2,MAXRES2,0:maxflag_stoch),
24 & mt1(maxres2,maxres2),mt2(maxres2,maxres2),mt3(maxres2,maxres2)
25 logical flag_stoch(0:maxflag_stoch)
26 common /langforc/ friction,stochforc,
27 & fricmat,fric_work,fricgam,stoch_work,fricvec,vrand_mat1,
28 & vrand_mat2,prand_mat,vfric_mat,afric_mat,pfric_mat,
29 & pfric0_mat,afric0_mat,vfric0_mat,prand0_mat,vrand0_mat1,
30 & vrand0_mat2,flag_stoch
31 common /langmat/ mt1,mt2,mt3