diff --git a/mlprec/impl/level/mld_c_base_onelev_dump.f90 b/mlprec/impl/level/mld_c_base_onelev_dump.f90
index e11ebf69..0013ac36 100644
--- a/mlprec/impl/level/mld_c_base_onelev_dump.f90
+++ b/mlprec/impl/level/mld_c_base_onelev_dump.f90
@@ -52,7 +52,7 @@ subroutine mld_c_base_onelev_dump(lv,level,info,prefix,head,ac,rp,&
   character(len=80) :: prefix_, frmt
   character(len=1024) :: fname 
   logical :: ac_, rp_, tprol_, global_num_
-  integer(psb_ipk_), allocatable :: ivr(:), ivc(:)
+  integer(psb_lpk_), allocatable :: ivr(:), ivc(:)
 
   info = 0
 
diff --git a/mlprec/impl/level/mld_d_base_onelev_dump.f90 b/mlprec/impl/level/mld_d_base_onelev_dump.f90
index 234da5a7..8ec2fc6f 100644
--- a/mlprec/impl/level/mld_d_base_onelev_dump.f90
+++ b/mlprec/impl/level/mld_d_base_onelev_dump.f90
@@ -52,7 +52,7 @@ subroutine mld_d_base_onelev_dump(lv,level,info,prefix,head,ac,rp,&
   character(len=80) :: prefix_, frmt
   character(len=1024) :: fname 
   logical :: ac_, rp_, tprol_, global_num_
-  integer(psb_ipk_), allocatable :: ivr(:), ivc(:)
+  integer(psb_lpk_), allocatable :: ivr(:), ivc(:)
 
   info = 0
 
diff --git a/mlprec/impl/level/mld_s_base_onelev_dump.f90 b/mlprec/impl/level/mld_s_base_onelev_dump.f90
index a43aafe0..43b9e93e 100644
--- a/mlprec/impl/level/mld_s_base_onelev_dump.f90
+++ b/mlprec/impl/level/mld_s_base_onelev_dump.f90
@@ -52,7 +52,7 @@ subroutine mld_s_base_onelev_dump(lv,level,info,prefix,head,ac,rp,&
   character(len=80) :: prefix_, frmt
   character(len=1024) :: fname 
   logical :: ac_, rp_, tprol_, global_num_
-  integer(psb_ipk_), allocatable :: ivr(:), ivc(:)
+  integer(psb_lpk_), allocatable :: ivr(:), ivc(:)
 
   info = 0
 
diff --git a/mlprec/impl/level/mld_z_base_onelev_dump.f90 b/mlprec/impl/level/mld_z_base_onelev_dump.f90
index 54dc8ced..acde72f3 100644
--- a/mlprec/impl/level/mld_z_base_onelev_dump.f90
+++ b/mlprec/impl/level/mld_z_base_onelev_dump.f90
@@ -52,7 +52,7 @@ subroutine mld_z_base_onelev_dump(lv,level,info,prefix,head,ac,rp,&
   character(len=80) :: prefix_, frmt
   character(len=1024) :: fname 
   logical :: ac_, rp_, tprol_, global_num_
-  integer(psb_ipk_), allocatable :: ivr(:), ivc(:)
+  integer(psb_lpk_), allocatable :: ivr(:), ivc(:)
 
   info = 0