diff --git a/amgprec/impl/level/amg_c_base_onelev_memory_use.f90 b/amgprec/impl/level/amg_c_base_onelev_memory_use.f90
index f4147bb3..4b58000d 100644
--- a/amgprec/impl/level/amg_c_base_onelev_memory_use.f90
+++ b/amgprec/impl/level/amg_c_base_onelev_memory_use.f90
@@ -89,7 +89,7 @@ subroutine amg_c_base_onelev_memory_use(lv,il,nl,ilmin,info,iout,verbosity,prefi
   if (present(global)) then
     global_ = global
   else
-    global_ = .false.
+    global_ = .true.
   end if
 
   if (present(prefix)) then
diff --git a/amgprec/impl/level/amg_d_base_onelev_memory_use.f90 b/amgprec/impl/level/amg_d_base_onelev_memory_use.f90
index 0a5e2066..25534fd0 100644
--- a/amgprec/impl/level/amg_d_base_onelev_memory_use.f90
+++ b/amgprec/impl/level/amg_d_base_onelev_memory_use.f90
@@ -89,7 +89,7 @@ subroutine amg_d_base_onelev_memory_use(lv,il,nl,ilmin,info,iout,verbosity,prefi
   if (present(global)) then
     global_ = global
   else
-    global_ = .false.
+    global_ = .true.
   end if
 
   if (present(prefix)) then
diff --git a/amgprec/impl/level/amg_s_base_onelev_memory_use.f90 b/amgprec/impl/level/amg_s_base_onelev_memory_use.f90
index f59d8dd9..9709ba3e 100644
--- a/amgprec/impl/level/amg_s_base_onelev_memory_use.f90
+++ b/amgprec/impl/level/amg_s_base_onelev_memory_use.f90
@@ -89,7 +89,7 @@ subroutine amg_s_base_onelev_memory_use(lv,il,nl,ilmin,info,iout,verbosity,prefi
   if (present(global)) then
     global_ = global
   else
-    global_ = .false.
+    global_ = .true.
   end if
 
   if (present(prefix)) then
diff --git a/amgprec/impl/level/amg_z_base_onelev_memory_use.f90 b/amgprec/impl/level/amg_z_base_onelev_memory_use.f90
index 4c1e3432..0e12a6bc 100644
--- a/amgprec/impl/level/amg_z_base_onelev_memory_use.f90
+++ b/amgprec/impl/level/amg_z_base_onelev_memory_use.f90
@@ -89,7 +89,7 @@ subroutine amg_z_base_onelev_memory_use(lv,il,nl,ilmin,info,iout,verbosity,prefi
   if (present(global)) then
     global_ = global
   else
-    global_ = .false.
+    global_ = .true.
   end if
 
   if (present(prefix)) then