X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;ds=sidebyside;f=source%2Funres%2FREMD.f90;h=edbcc8e32b7d0e008a09b00c42079e4141499e55;hb=299e2c41124d3fa8adba7244716515a2cc160ed1;hp=e1cf84c9d96a9e6592625319c0d395fc6667a5f2;hpb=65b670d78bae7c2df18f3465fdad7b4f13490e33;p=unres4.git

diff --git a/source/unres/REMD.f90 b/source/unres/REMD.f90
index e1cf84c..edbcc8e 100644
--- a/source/unres/REMD.f90
+++ b/source/unres/REMD.f90
@@ -25,7 +25,7 @@
       use comm_cipiszcze
       use energy_data
       use geometry_data, only: nres
-      use control_data 
+      use control_data    !el, only: mucadyn,lmuca
 #ifdef MPI
        include 'mpif.h'
       real(kind=8) :: time00
@@ -387,7 +387,7 @@
           enddo
         enddo
       endif
-      deallocate(Gcopy)
+!      deallocate(Gcopy)
       return
       end subroutine setup_MD_matrices
 !-----------------------------------------------------------------------------