unres_package_Oct_2016 from emilial

[unres4.git] / source / unres / map.f90

diff --git a/source/unres/map.f90 b/source/unres/map.f90
index e15df64..b91d43e 100644 (file)
--- 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
 !-----------------------------------------------------------------------------