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

diff --git a/source/unres/src_MD/minimize_p.F b/source/unres/src_MD/minimize_p.F
index 902dde2..1de3824 100644
--- a/source/unres/src_MD/minimize_p.F
+++ b/source/unres/src_MD/minimize_p.F
@@ -24,7 +24,7 @@
       external func,gradient,fdum
       external func_restr,grad_restr
       logical not_done,change,reduce 
-      common /przechowalnia/ v
+c      common /przechowalnia/ v
 
       icall = 1
 
@@ -416,7 +416,7 @@ c----------------------------------------------------------
       include 'COMMON.CHAIN'
       dimension iv(liv)                                               
       double precision minval,x(maxvar),d(maxvar),v(1:lv),xx(maxvar)
-      common /przechowalnia/ v
+c      common /przechowalnia/ v
 
       double precision energia(0:n_ene)
       external func_dc,grad_dc,fdum