From 850317a62be95f9b9504f4483f289c8221f495cd Mon Sep 17 00:00:00 2001 From: Salvatore Filippone Date: Sat, 15 Feb 2020 15:13:56 +0000 Subject: [PATCH] Change mat%print interface, and refactor. --- mlprec/impl/level/mld_c_base_onelev_dump.f90 | 2 +- mlprec/impl/level/mld_d_base_onelev_dump.f90 | 2 +- mlprec/impl/level/mld_s_base_onelev_dump.f90 | 2 +- mlprec/impl/level/mld_z_base_onelev_dump.f90 | 2 +- 4 files changed, 4 insertions(+), 4 deletions(-) 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