Merge branch 'devel' into feature-ga

[unres.git] / source / unres / src_MD / src / COMMON.LANGEVIN

diff --git a/source/unres/src_MD/src/COMMON.LANGEVIN b/source/unres/src_MD/src/COMMON.LANGEVIN
deleted file mode 100644 (file)
index 6a703e2..0000000
--- a/source/unres/src_MD/src/COMMON.LANGEVIN
+++ /dev/null
@@ -1,21 +0,0 @@
-       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