Merge branch 'homology' of mmka.chem.univ.gda.pl:unres into homology
[unres.git] / source / unres / src_MD-M / COMMON.LANGEVIN.lang0_
1        double precision friction(3,0:MAXRES2),stochforc(3,0:MAXRES2),
2      & fricmat(MAXRES6,MAXRES6),fric_work(MAXRES6),
3      & stoch_work(MAXRES6),
4      & fricgam(MAXRES6),fricvec(MAXRES6,MAXRES6)
5        logical flag_stoch(0:maxflag_stoch)
6       common /langforc/ friction,stochforc,
7      & fricmat,fric_work,fricgam,stoch_work,fricvec,vrand_mat1,
8      & vrand_mat2,prand_mat,vfric_mat,afric_mat,pfric_mat,
9      & pfric0_mat,afric0_mat,vfric0_mat,prand0_mat,vrand0_mat1,
10      & vrand0_mat2,flag_stoch
11       common /langmat/ mt1,mt2,mt3