X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Funres%2Fsrc-HCD-5D%2Fminimize_p.F;h=41a1a2759993ed5cf489951ce7fa38049e3a56c8;hb=1441ec2b7d68b4fd94014649e4bd9574db0bfc36;hp=cea54c43d652a619900c1c27128d41b6150dde7f;hpb=79fd686e9d9aaa23e4fda802ee16379470e961d3;p=unres.git

diff --git a/source/unres/src-HCD-5D/minimize_p.F b/source/unres/src-HCD-5D/minimize_p.F
index cea54c4..41a1a27 100644
--- a/source/unres/src-HCD-5D/minimize_p.F
+++ b/source/unres/src-HCD-5D/minimize_p.F
@@ -198,8 +198,8 @@ c----------------------------------------------------------------------------
       include 'COMMON.TIME1'
       double precision z(maxres6),d_a_tmp(maxres6)
       double precision edum(0:n_ene),time_order(0:10)
-      double precision Gcopy(maxres2,maxres2)
-      common /przechowalnia/ Gcopy
+c      double precision Gcopy(maxres2,maxres2)
+c      common /przechowalnia/ Gcopy
       integer icall /0/
       integer i,j,iorder
 C Workers wait for variables and NF, and NFL from the boss