X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Funres%2Fmap.f90;h=b91d43e105fbe212d23ab11be61e7deb91ef301e;hb=df0d15d1ab81e01e177d3d39354e72364b294e1c;hp=e15df6423a68f309b4800a3971bb1dfbf4103077;hpb=35f220f409bd5d21be33a402d79da2c23d3e0c3a;p=unres4.git

diff --git a/source/unres/map.f90 b/source/unres/map.f90
index e15df64..b91d43e 100644
--- a/source/unres/map.f90
+++ b/source/unres/map.f90
@@ -173,7 +173,7 @@
 !        call enerprint(energia)
    10   continue
       enddo ! i
-      deallocate(x,g)
+!      deallocate(x,g)
       return
       end subroutine map
 !-----------------------------------------------------------------------------