X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Funres%2Fsrc_MD%2Fcartder.F;h=e2e8c1a41e4a6094434acd331ec881968b00b803;hb=a3ef63eda7d771657cc2df1d275e0a03a5cc1966;hp=dd2b3f1bb21d54662bda9cf7e07a5a518e87c9c1;hpb=a245815881bd894e34ef0474435ad1217631e636;p=unres.git

diff --git a/source/unres/src_MD/cartder.F b/source/unres/src_MD/cartder.F
index dd2b3f1..e2e8c1a 100644
--- 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