Merge branch 'lipid' of mmka.chem.univ.gda.pl:unres into lipid

[unres.git] / source / unres / src_Eshel / COMMON.LANGEVIN.lang0

diff --git a/source/unres/src_Eshel/COMMON.LANGEVIN.lang0 b/source/unres/src_Eshel/COMMON.LANGEVIN.lang0
new file mode 100644 (file)
index 0000000..354a0c4
--- /dev/null
+++ b/source/unres/src_Eshel/COMMON.LANGEVIN.lang0
@@ -0,0 +1,11 @@
+       double precision friction(3,0:MAXRES2),stochforc(3,0:MAXRES2),
+     & fricmat(MAXRES2,MAXRES2),fric_work(MAXRES6),
+     & stoch_work(MAXRES6),
+     & fricgam(MAXRES6),fricvec(MAXRES2,MAXRES2)
+       logical flag_stoch(0:maxflag_stoch)
+      common /langforc/ friction,stochforc,
+     & fricmat,fric_work,fricgam,stoch_work,fricvec,vrand_mat1,
+     & vrand_mat2,prand_mat,vfric_mat,afric_mat,pfric_mat,
+     & pfric0_mat,afric0_mat,vfric0_mat,prand0_mat,vrand0_mat1,
+     & vrand0_mat2,flag_stoch
+      common /langmat/ mt1,mt2,mt3