Change mat%print interface, and refactor.

5 years ago · 850317a62b
parent 63f8bd4557
commit 850317a62b
4 changed files with 4 additions and 4 deletions
--- 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
--- 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
--- 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
--- 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