X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Funres%2Fsrc_MD-M-newcorr%2FCOMMON.LANGEVIN;fp=source%2Funres%2Fsrc_MD-M-newcorr%2FCOMMON.LANGEVIN;h=6a703e260ced0a3be053d48eb7cd93e703b4e4b3;hb=7308760ff07636ef6b1ee28d8c3a67a23c14b34b;hp=0000000000000000000000000000000000000000;hpb=9a54ab407f6d0d9d564d52763b3e2136450b9ffc;p=unres.git

diff --git a/source/unres/src_MD-M-newcorr/COMMON.LANGEVIN b/source/unres/src_MD-M-newcorr/COMMON.LANGEVIN
new file mode 100644
index 0000000..6a703e2
--- /dev/null
+++ b/source/unres/src_MD-M-newcorr/COMMON.LANGEVIN
@@ -0,0 +1,21 @@
+       double precision friction(3,0:MAXRES2),stochforc(3,0:MAXRES2),
+     & fricmat(MAXRES2,MAXRES2),fric_work(MAXRES6),
+     & stoch_work(MAXRES6),
+     & fricgam(MAXRES6),fricvec(MAXRES2,MAXRES2),
+     & pfric_mat(MAXRES2,MAXRES2),vfric_mat(MAXRES2,MAXRES2),
+     & afric_mat(MAXRES2,MAXRES2),prand_mat(MAXRES2,MAXRES2),
+     & vrand_mat1(MAXRES2,MAXRES2),vrand_mat2(MAXRES2,MAXRES2),
+     & pfric0_mat(MAXRES2,MAXRES2,0:maxflag_stoch),
+     & afric0_mat(MAXRES2,MAXRES2,0:maxflag_stoch),
+     & vfric0_mat(MAXRES2,MAXRES2,0:maxflag_stoch),
+     & prand0_mat(MAXRES2,MAXRES2,0:maxflag_stoch),
+     & vrand0_mat1(MAXRES2,MAXRES2,0:maxflag_stoch),
+     & vrand0_mat2(MAXRES2,MAXRES2,0:maxflag_stoch),
+     & mt1(maxres2,maxres2),mt2(maxres2,maxres2),mt3(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