removal of CSA from MD version of code

[unres.git] / source / unres / src_MD / cartder.F

diff --git a/source/unres/src_MD/cartder.F b/source/unres/src_MD/cartder.F
index dd2b3f1..e2e8c1a 100644 (file)
--- a/source/unres/src_MD/cartder.F
+++ b/source/unres/src_MD/cartder.F
@@ -47,7 +47,7 @@
       dimension drt(3,3,maxres),rdt(3,3,maxres),dp(3,3),temp(3,3),
      &     fromto(3,3,maxdim),prordt(3,3,maxres),prodrt(3,3,maxres)
       dimension xx(3),xx1(3)
-      common /przechowalnia/ fromto
+c      common /przechowalnia/ fromto
 * get the position of the jth ijth fragment of the chain coordinate system      
 * in the fromto array.
       indmat(i,j)=((2*(nres-2)-i)*(i-1))/2+j-1