diff --git a/base/comm/psb_dgather.f90 b/base/comm/psb_dgather.f90 index 8109d506..c1619b1b 100644 --- a/base/comm/psb_dgather.f90 +++ b/base/comm/psb_dgather.f90 @@ -64,7 +64,7 @@ subroutine psb_dgather_vect(globx, locx, desc_a, info, iroot) real(psb_dpk_), allocatable :: llocx(:) character(len=20) :: name, ch_err - name='psb_cgatherv' + name='psb_dgatherv' info=psb_success_ call psb_erractionsave(err_act) if (psb_errstatus_fatal()) then @@ -182,7 +182,7 @@ subroutine psb_dgather_multivect(globx, locx, desc_a, info, iroot) real(psb_dpk_), allocatable :: llocx(:,:) character(len=20) :: name, ch_err - name='psb_cgatherv' + name='psb_dgatherv' info=psb_success_ call psb_erractionsave(err_act) if (psb_errstatus_fatal()) then diff --git a/base/comm/psb_igather.f90 b/base/comm/psb_igather.f90 index 2a01ee44..afa794eb 100644 --- a/base/comm/psb_igather.f90 +++ b/base/comm/psb_igather.f90 @@ -64,7 +64,7 @@ subroutine psb_igather_vect(globx, locx, desc_a, info, iroot) integer(psb_ipk_), allocatable :: llocx(:) character(len=20) :: name, ch_err - name='psb_cgatherv' + name='psb_igatherv' info=psb_success_ call psb_erractionsave(err_act) if (psb_errstatus_fatal()) then @@ -182,7 +182,7 @@ subroutine psb_igather_multivect(globx, locx, desc_a, info, iroot) integer(psb_ipk_), allocatable :: llocx(:,:) character(len=20) :: name, ch_err - name='psb_cgatherv' + name='psb_igatherv' info=psb_success_ call psb_erractionsave(err_act) if (psb_errstatus_fatal()) then diff --git a/base/comm/psb_lgather.f90 b/base/comm/psb_lgather.f90 index eeb5a25d..00af3cd1 100644 --- a/base/comm/psb_lgather.f90 +++ b/base/comm/psb_lgather.f90 @@ -64,7 +64,7 @@ subroutine psb_lgather_vect(globx, locx, desc_a, info, iroot) integer(psb_lpk_), allocatable :: llocx(:) character(len=20) :: name, ch_err - name='psb_cgatherv' + name='psb_lgatherv' info=psb_success_ call psb_erractionsave(err_act) if (psb_errstatus_fatal()) then @@ -182,7 +182,7 @@ subroutine psb_lgather_multivect(globx, locx, desc_a, info, iroot) integer(psb_lpk_), allocatable :: llocx(:,:) character(len=20) :: name, ch_err - name='psb_cgatherv' + name='psb_lgatherv' info=psb_success_ call psb_erractionsave(err_act) if (psb_errstatus_fatal()) then diff --git a/base/comm/psb_sgather.f90 b/base/comm/psb_sgather.f90 index 857f5fd6..21ce1408 100644 --- a/base/comm/psb_sgather.f90 +++ b/base/comm/psb_sgather.f90 @@ -64,7 +64,7 @@ subroutine psb_sgather_vect(globx, locx, desc_a, info, iroot) real(psb_spk_), allocatable :: llocx(:) character(len=20) :: name, ch_err - name='psb_cgatherv' + name='psb_sgatherv' info=psb_success_ call psb_erractionsave(err_act) if (psb_errstatus_fatal()) then @@ -182,7 +182,7 @@ subroutine psb_sgather_multivect(globx, locx, desc_a, info, iroot) real(psb_spk_), allocatable :: llocx(:,:) character(len=20) :: name, ch_err - name='psb_cgatherv' + name='psb_sgatherv' info=psb_success_ call psb_erractionsave(err_act) if (psb_errstatus_fatal()) then diff --git a/base/comm/psb_zgather.f90 b/base/comm/psb_zgather.f90 index b163094a..53cba210 100644 --- a/base/comm/psb_zgather.f90 +++ b/base/comm/psb_zgather.f90 @@ -64,7 +64,7 @@ subroutine psb_zgather_vect(globx, locx, desc_a, info, iroot) complex(psb_dpk_), allocatable :: llocx(:) character(len=20) :: name, ch_err - name='psb_cgatherv' + name='psb_zgatherv' info=psb_success_ call psb_erractionsave(err_act) if (psb_errstatus_fatal()) then @@ -182,7 +182,7 @@ subroutine psb_zgather_multivect(globx, locx, desc_a, info, iroot) complex(psb_dpk_), allocatable :: llocx(:,:) character(len=20) :: name, ch_err - name='psb_cgatherv' + name='psb_zgatherv' info=psb_success_ call psb_erractionsave(err_act) if (psb_errstatus_fatal()) then diff --git a/base/modules/comm/psb_c_comm_mod.f90 b/base/modules/comm/psb_c_comm_mod.f90 index c2a85510..1bd46197 100644 --- a/base/modules/comm/psb_c_comm_mod.f90 +++ b/base/modules/comm/psb_c_comm_mod.f90 @@ -138,7 +138,7 @@ module psb_c_comm_mod import implicit none type(psb_c_multivect_type), intent(inout) :: locx - complex(psb_spk_), intent(out), allocatable :: globx(:) + complex(psb_spk_), intent(out), allocatable :: globx(:,:) type(psb_desc_type), intent(in) :: desc_a integer(psb_ipk_), intent(out) :: info integer(psb_ipk_), intent(in), optional :: root diff --git a/base/modules/comm/psb_d_comm_mod.f90 b/base/modules/comm/psb_d_comm_mod.f90 index 5efde2b0..013c76e2 100644 --- a/base/modules/comm/psb_d_comm_mod.f90 +++ b/base/modules/comm/psb_d_comm_mod.f90 @@ -138,7 +138,7 @@ module psb_d_comm_mod import implicit none type(psb_d_multivect_type), intent(inout) :: locx - real(psb_dpk_), intent(out), allocatable :: globx(:) + real(psb_dpk_), intent(out), allocatable :: globx(:,:) type(psb_desc_type), intent(in) :: desc_a integer(psb_ipk_), intent(out) :: info integer(psb_ipk_), intent(in), optional :: root diff --git a/base/modules/comm/psb_i_comm_mod.f90 b/base/modules/comm/psb_i_comm_mod.f90 index b727f403..25d761ba 100644 --- a/base/modules/comm/psb_i_comm_mod.f90 +++ b/base/modules/comm/psb_i_comm_mod.f90 @@ -107,7 +107,7 @@ module psb_i_comm_mod import implicit none type(psb_i_multivect_type), intent(inout) :: locx - integer(psb_ipk_), intent(out), allocatable :: globx(:) + integer(psb_ipk_), intent(out), allocatable :: globx(:,:) type(psb_desc_type), intent(in) :: desc_a integer(psb_ipk_), intent(out) :: info integer(psb_ipk_), intent(in), optional :: root diff --git a/base/modules/comm/psb_l_comm_mod.f90 b/base/modules/comm/psb_l_comm_mod.f90 index 1072b824..2bba923d 100644 --- a/base/modules/comm/psb_l_comm_mod.f90 +++ b/base/modules/comm/psb_l_comm_mod.f90 @@ -107,7 +107,7 @@ module psb_l_comm_mod import implicit none type(psb_l_multivect_type), intent(inout) :: locx - integer(psb_lpk_), intent(out), allocatable :: globx(:) + integer(psb_lpk_), intent(out), allocatable :: globx(:,:) type(psb_desc_type), intent(in) :: desc_a integer(psb_ipk_), intent(out) :: info integer(psb_ipk_), intent(in), optional :: root diff --git a/base/modules/comm/psb_s_comm_mod.f90 b/base/modules/comm/psb_s_comm_mod.f90 index a55e0c55..a202b5b6 100644 --- a/base/modules/comm/psb_s_comm_mod.f90 +++ b/base/modules/comm/psb_s_comm_mod.f90 @@ -138,7 +138,7 @@ module psb_s_comm_mod import implicit none type(psb_s_multivect_type), intent(inout) :: locx - real(psb_spk_), intent(out), allocatable :: globx(:) + real(psb_spk_), intent(out), allocatable :: globx(:,:) type(psb_desc_type), intent(in) :: desc_a integer(psb_ipk_), intent(out) :: info integer(psb_ipk_), intent(in), optional :: root diff --git a/base/modules/comm/psb_z_comm_mod.f90 b/base/modules/comm/psb_z_comm_mod.f90 index 58aabba2..304cdfb9 100644 --- a/base/modules/comm/psb_z_comm_mod.f90 +++ b/base/modules/comm/psb_z_comm_mod.f90 @@ -138,7 +138,7 @@ module psb_z_comm_mod import implicit none type(psb_z_multivect_type), intent(inout) :: locx - complex(psb_dpk_), intent(out), allocatable :: globx(:) + complex(psb_dpk_), intent(out), allocatable :: globx(:,:) type(psb_desc_type), intent(in) :: desc_a integer(psb_ipk_), intent(out) :: info integer(psb_ipk_), intent(in), optional :: root diff --git a/base/modules/serial/psb_c_mat_mod.F90 b/base/modules/serial/psb_c_mat_mod.F90 index f221a8f8..75699249 100644 --- a/base/modules/serial/psb_c_mat_mod.F90 +++ b/base/modules/serial/psb_c_mat_mod.F90 @@ -947,8 +947,8 @@ module psb_c_mat_mod interface subroutine psb_c_cp_from_lb(a,b) import :: psb_ipk_, psb_lpk_, psb_cspmat_type, psb_spk_, psb_lc_base_sparse_mat - class(psb_cspmat_type), intent(out) :: a - class(psb_lc_base_sparse_mat), intent(in) :: b + class(psb_cspmat_type), intent(inout) :: a + class(psb_lc_base_sparse_mat), intent(inout) :: b end subroutine psb_c_cp_from_lb end interface @@ -1731,8 +1731,8 @@ module psb_c_mat_mod interface subroutine psb_lc_cp_from_ib(a,b) import :: psb_ipk_, psb_lpk_, psb_lcspmat_type, psb_spk_, psb_c_base_sparse_mat - class(psb_lcspmat_type), intent(out) :: a - class(psb_c_base_sparse_mat), intent(in) :: b + class(psb_lcspmat_type), intent(inout) :: a + class(psb_c_base_sparse_mat), intent(inout) :: b end subroutine psb_lc_cp_from_ib end interface diff --git a/base/modules/serial/psb_d_mat_mod.F90 b/base/modules/serial/psb_d_mat_mod.F90 index db997b8f..ff51d1cb 100644 --- a/base/modules/serial/psb_d_mat_mod.F90 +++ b/base/modules/serial/psb_d_mat_mod.F90 @@ -947,8 +947,8 @@ module psb_d_mat_mod interface subroutine psb_d_cp_from_lb(a,b) import :: psb_ipk_, psb_lpk_, psb_dspmat_type, psb_dpk_, psb_ld_base_sparse_mat - class(psb_dspmat_type), intent(out) :: a - class(psb_ld_base_sparse_mat), intent(in) :: b + class(psb_dspmat_type), intent(inout) :: a + class(psb_ld_base_sparse_mat), intent(inout) :: b end subroutine psb_d_cp_from_lb end interface @@ -1731,8 +1731,8 @@ module psb_d_mat_mod interface subroutine psb_ld_cp_from_ib(a,b) import :: psb_ipk_, psb_lpk_, psb_ldspmat_type, psb_dpk_, psb_d_base_sparse_mat - class(psb_ldspmat_type), intent(out) :: a - class(psb_d_base_sparse_mat), intent(in) :: b + class(psb_ldspmat_type), intent(inout) :: a + class(psb_d_base_sparse_mat), intent(inout) :: b end subroutine psb_ld_cp_from_ib end interface diff --git a/base/modules/serial/psb_s_mat_mod.F90 b/base/modules/serial/psb_s_mat_mod.F90 index 9f5f418b..849c64c3 100644 --- a/base/modules/serial/psb_s_mat_mod.F90 +++ b/base/modules/serial/psb_s_mat_mod.F90 @@ -947,8 +947,8 @@ module psb_s_mat_mod interface subroutine psb_s_cp_from_lb(a,b) import :: psb_ipk_, psb_lpk_, psb_sspmat_type, psb_spk_, psb_ls_base_sparse_mat - class(psb_sspmat_type), intent(out) :: a - class(psb_ls_base_sparse_mat), intent(in) :: b + class(psb_sspmat_type), intent(inout) :: a + class(psb_ls_base_sparse_mat), intent(inout) :: b end subroutine psb_s_cp_from_lb end interface @@ -1731,8 +1731,8 @@ module psb_s_mat_mod interface subroutine psb_ls_cp_from_ib(a,b) import :: psb_ipk_, psb_lpk_, psb_lsspmat_type, psb_spk_, psb_s_base_sparse_mat - class(psb_lsspmat_type), intent(out) :: a - class(psb_s_base_sparse_mat), intent(in) :: b + class(psb_lsspmat_type), intent(inout) :: a + class(psb_s_base_sparse_mat), intent(inout) :: b end subroutine psb_ls_cp_from_ib end interface diff --git a/base/modules/serial/psb_z_mat_mod.F90 b/base/modules/serial/psb_z_mat_mod.F90 index a6632412..fc16ca80 100644 --- a/base/modules/serial/psb_z_mat_mod.F90 +++ b/base/modules/serial/psb_z_mat_mod.F90 @@ -947,8 +947,8 @@ module psb_z_mat_mod interface subroutine psb_z_cp_from_lb(a,b) import :: psb_ipk_, psb_lpk_, psb_zspmat_type, psb_dpk_, psb_lz_base_sparse_mat - class(psb_zspmat_type), intent(out) :: a - class(psb_lz_base_sparse_mat), intent(in) :: b + class(psb_zspmat_type), intent(inout) :: a + class(psb_lz_base_sparse_mat), intent(inout) :: b end subroutine psb_z_cp_from_lb end interface @@ -1731,8 +1731,8 @@ module psb_z_mat_mod interface subroutine psb_lz_cp_from_ib(a,b) import :: psb_ipk_, psb_lpk_, psb_lzspmat_type, psb_dpk_, psb_z_base_sparse_mat - class(psb_lzspmat_type), intent(out) :: a - class(psb_z_base_sparse_mat), intent(in) :: b + class(psb_lzspmat_type), intent(inout) :: a + class(psb_z_base_sparse_mat), intent(inout) :: b end subroutine psb_lz_cp_from_ib end interface diff --git a/base/serial/impl/psb_base_mat_impl.f90 b/base/serial/impl/psb_base_mat_impl.f90 index faa91979..4ab03086 100644 --- a/base/serial/impl/psb_base_mat_impl.f90 +++ b/base/serial/impl/psb_base_mat_impl.f90 @@ -91,9 +91,9 @@ subroutine psb_base_sparse_print(iout,a,iv,head,ivr,ivc) integer(psb_ipk_), intent(in) :: iout class(psb_base_sparse_mat), intent(in) :: a - integer(psb_ipk_), intent(in), optional :: iv(:) + integer(psb_lpk_), intent(in), optional :: iv(:) character(len=*), optional :: head - integer(psb_ipk_), intent(in), optional :: ivr(:), ivc(:) + integer(psb_lpk_), intent(in), optional :: ivr(:), ivc(:) integer(psb_ipk_) :: err_act, info character(len=20) :: name='sparse_print' @@ -384,7 +384,7 @@ subroutine psb_lbase_sparse_print(iout,a,iv,head,ivr,ivc) use psb_error_mod implicit none - integer(psb_lpk_), intent(in) :: iout + integer(psb_ipk_), intent(in) :: iout class(psb_lbase_sparse_mat), intent(in) :: a integer(psb_lpk_), intent(in), optional :: iv(:) character(len=*), optional :: head diff --git a/base/serial/impl/psb_c_coo_impl.F90 b/base/serial/impl/psb_c_coo_impl.F90 index 4eb2f26e..442b2a48 100644 --- a/base/serial/impl/psb_c_coo_impl.F90 +++ b/base/serial/impl/psb_c_coo_impl.F90 @@ -592,7 +592,7 @@ subroutine psb_c_coo_clean_zeros(a, info) use psb_c_base_mat_mod, psb_protect_name => psb_c_coo_clean_zeros implicit none class(psb_c_coo_sparse_mat), intent(inout) :: a - integer(psb_ipk_) :: info + integer(psb_ipk_), intent(out) :: info ! integer(psb_ipk_) :: i,j,k, nzin @@ -5264,7 +5264,7 @@ subroutine psb_lc_coo_clean_zeros(a, info) use psb_c_base_mat_mod, psb_protect_name => psb_lc_coo_clean_zeros implicit none class(psb_lc_coo_sparse_mat), intent(inout) :: a - integer(psb_ipk_) :: info + integer(psb_ipk_), intent(out) :: info ! integer(psb_lpk_) :: i,j,k, nzin @@ -6760,7 +6760,8 @@ subroutine psb_lc_fix_coo_inner(nr,nc,nzin,dupl,ia,ja,val,nzout,info,idir) use psb_sort_mod implicit none - integer(psb_lpk_), intent(in) :: nr, nc, nzin, dupl + integer(psb_lpk_), intent(in) :: nr, nc, nzin + integer(psb_ipk_), intent(in) :: dupl integer(psb_lpk_), intent(inout) :: ia(:), ja(:) complex(psb_spk_), intent(inout) :: val(:) integer(psb_lpk_), intent(out) :: nzout diff --git a/base/serial/impl/psb_c_csc_impl.f90 b/base/serial/impl/psb_c_csc_impl.f90 index bfefebad..87d7e3dd 100644 --- a/base/serial/impl/psb_c_csc_impl.f90 +++ b/base/serial/impl/psb_c_csc_impl.f90 @@ -2371,7 +2371,7 @@ subroutine psb_c_csc_clean_zeros(a, info) use psb_c_csc_mat_mod, psb_protect_name => psb_c_csc_clean_zeros implicit none class(psb_c_csc_sparse_mat), intent(inout) :: a - integer(psb_ipk_) :: info + integer(psb_ipk_), intent(out) :: info ! integer(psb_ipk_) :: i, j, k, nc integer(psb_ipk_), allocatable :: ilcp(:) @@ -4255,7 +4255,7 @@ subroutine psb_lc_csc_clean_zeros(a, info) use psb_c_csc_mat_mod, psb_protect_name => psb_lc_csc_clean_zeros implicit none class(psb_lc_csc_sparse_mat), intent(inout) :: a - integer(psb_ipk_) :: info + integer(psb_ipk_), intent(out) :: info ! integer(psb_lpk_) :: i, j, k, nc integer(psb_lpk_), allocatable :: ilcp(:) @@ -4319,7 +4319,7 @@ subroutine psb_lc_csc_reallocate_nz(nz,a) use psb_realloc_mod use psb_c_csc_mat_mod, psb_protect_name => psb_lc_csc_reallocate_nz implicit none - integer(psb_ipk_), intent(in) :: nz + integer(psb_lpk_), intent(in) :: nz class(psb_lc_csc_sparse_mat), intent(inout) :: a integer(psb_ipk_) :: err_act, info, ierr(5) character(len=20) :: name='lc_csc_reallocate_nz' diff --git a/base/serial/impl/psb_c_csr_impl.f90 b/base/serial/impl/psb_c_csr_impl.f90 index f4522a6f..c06d2755 100644 --- a/base/serial/impl/psb_c_csr_impl.f90 +++ b/base/serial/impl/psb_c_csr_impl.f90 @@ -3235,7 +3235,7 @@ subroutine psb_c_csr_clean_zeros(a, info) use psb_c_csr_mat_mod, psb_protect_name => psb_c_csr_clean_zeros implicit none class(psb_c_csr_sparse_mat), intent(inout) :: a - integer(psb_ipk_) :: info + integer(psb_ipk_), intent(out) :: info ! integer(psb_ipk_) :: i, j, k, nr integer(psb_ipk_), allocatable :: ilrp(:) @@ -5350,7 +5350,7 @@ subroutine psb_lc_csr_clean_zeros(a, info) use psb_c_csr_mat_mod, psb_protect_name => psb_lc_csr_clean_zeros implicit none class(psb_lc_csr_sparse_mat), intent(inout) :: a - integer(psb_ipk_) :: info + integer(psb_ipk_), intent(out) :: info ! integer(psb_lpk_) :: i, j, k, nr integer(psb_lpk_), allocatable :: ilrp(:) diff --git a/base/serial/impl/psb_d_coo_impl.F90 b/base/serial/impl/psb_d_coo_impl.F90 index 6b3aafc8..88c1ef16 100644 --- a/base/serial/impl/psb_d_coo_impl.F90 +++ b/base/serial/impl/psb_d_coo_impl.F90 @@ -592,7 +592,7 @@ subroutine psb_d_coo_clean_zeros(a, info) use psb_d_base_mat_mod, psb_protect_name => psb_d_coo_clean_zeros implicit none class(psb_d_coo_sparse_mat), intent(inout) :: a - integer(psb_ipk_) :: info + integer(psb_ipk_), intent(out) :: info ! integer(psb_ipk_) :: i,j,k, nzin @@ -5264,7 +5264,7 @@ subroutine psb_ld_coo_clean_zeros(a, info) use psb_d_base_mat_mod, psb_protect_name => psb_ld_coo_clean_zeros implicit none class(psb_ld_coo_sparse_mat), intent(inout) :: a - integer(psb_ipk_) :: info + integer(psb_ipk_), intent(out) :: info ! integer(psb_lpk_) :: i,j,k, nzin @@ -6760,7 +6760,8 @@ subroutine psb_ld_fix_coo_inner(nr,nc,nzin,dupl,ia,ja,val,nzout,info,idir) use psb_sort_mod implicit none - integer(psb_lpk_), intent(in) :: nr, nc, nzin, dupl + integer(psb_lpk_), intent(in) :: nr, nc, nzin + integer(psb_ipk_), intent(in) :: dupl integer(psb_lpk_), intent(inout) :: ia(:), ja(:) real(psb_dpk_), intent(inout) :: val(:) integer(psb_lpk_), intent(out) :: nzout diff --git a/base/serial/impl/psb_d_csc_impl.f90 b/base/serial/impl/psb_d_csc_impl.f90 index eced8477..4f10439b 100644 --- a/base/serial/impl/psb_d_csc_impl.f90 +++ b/base/serial/impl/psb_d_csc_impl.f90 @@ -2371,7 +2371,7 @@ subroutine psb_d_csc_clean_zeros(a, info) use psb_d_csc_mat_mod, psb_protect_name => psb_d_csc_clean_zeros implicit none class(psb_d_csc_sparse_mat), intent(inout) :: a - integer(psb_ipk_) :: info + integer(psb_ipk_), intent(out) :: info ! integer(psb_ipk_) :: i, j, k, nc integer(psb_ipk_), allocatable :: ilcp(:) @@ -4255,7 +4255,7 @@ subroutine psb_ld_csc_clean_zeros(a, info) use psb_d_csc_mat_mod, psb_protect_name => psb_ld_csc_clean_zeros implicit none class(psb_ld_csc_sparse_mat), intent(inout) :: a - integer(psb_ipk_) :: info + integer(psb_ipk_), intent(out) :: info ! integer(psb_lpk_) :: i, j, k, nc integer(psb_lpk_), allocatable :: ilcp(:) @@ -4319,7 +4319,7 @@ subroutine psb_ld_csc_reallocate_nz(nz,a) use psb_realloc_mod use psb_d_csc_mat_mod, psb_protect_name => psb_ld_csc_reallocate_nz implicit none - integer(psb_ipk_), intent(in) :: nz + integer(psb_lpk_), intent(in) :: nz class(psb_ld_csc_sparse_mat), intent(inout) :: a integer(psb_ipk_) :: err_act, info, ierr(5) character(len=20) :: name='ld_csc_reallocate_nz' diff --git a/base/serial/impl/psb_d_csr_impl.f90 b/base/serial/impl/psb_d_csr_impl.f90 index aa300c73..c251a2fd 100644 --- a/base/serial/impl/psb_d_csr_impl.f90 +++ b/base/serial/impl/psb_d_csr_impl.f90 @@ -3235,7 +3235,7 @@ subroutine psb_d_csr_clean_zeros(a, info) use psb_d_csr_mat_mod, psb_protect_name => psb_d_csr_clean_zeros implicit none class(psb_d_csr_sparse_mat), intent(inout) :: a - integer(psb_ipk_) :: info + integer(psb_ipk_), intent(out) :: info ! integer(psb_ipk_) :: i, j, k, nr integer(psb_ipk_), allocatable :: ilrp(:) @@ -5350,7 +5350,7 @@ subroutine psb_ld_csr_clean_zeros(a, info) use psb_d_csr_mat_mod, psb_protect_name => psb_ld_csr_clean_zeros implicit none class(psb_ld_csr_sparse_mat), intent(inout) :: a - integer(psb_ipk_) :: info + integer(psb_ipk_), intent(out) :: info ! integer(psb_lpk_) :: i, j, k, nr integer(psb_lpk_), allocatable :: ilrp(:) diff --git a/base/serial/impl/psb_s_coo_impl.F90 b/base/serial/impl/psb_s_coo_impl.F90 index d214b2d5..5a0a3279 100644 --- a/base/serial/impl/psb_s_coo_impl.F90 +++ b/base/serial/impl/psb_s_coo_impl.F90 @@ -592,7 +592,7 @@ subroutine psb_s_coo_clean_zeros(a, info) use psb_s_base_mat_mod, psb_protect_name => psb_s_coo_clean_zeros implicit none class(psb_s_coo_sparse_mat), intent(inout) :: a - integer(psb_ipk_) :: info + integer(psb_ipk_), intent(out) :: info ! integer(psb_ipk_) :: i,j,k, nzin @@ -5264,7 +5264,7 @@ subroutine psb_ls_coo_clean_zeros(a, info) use psb_s_base_mat_mod, psb_protect_name => psb_ls_coo_clean_zeros implicit none class(psb_ls_coo_sparse_mat), intent(inout) :: a - integer(psb_ipk_) :: info + integer(psb_ipk_), intent(out) :: info ! integer(psb_lpk_) :: i,j,k, nzin @@ -6760,7 +6760,8 @@ subroutine psb_ls_fix_coo_inner(nr,nc,nzin,dupl,ia,ja,val,nzout,info,idir) use psb_sort_mod implicit none - integer(psb_lpk_), intent(in) :: nr, nc, nzin, dupl + integer(psb_lpk_), intent(in) :: nr, nc, nzin + integer(psb_ipk_), intent(in) :: dupl integer(psb_lpk_), intent(inout) :: ia(:), ja(:) real(psb_spk_), intent(inout) :: val(:) integer(psb_lpk_), intent(out) :: nzout diff --git a/base/serial/impl/psb_s_csc_impl.f90 b/base/serial/impl/psb_s_csc_impl.f90 index b16cb5bf..e52086d1 100644 --- a/base/serial/impl/psb_s_csc_impl.f90 +++ b/base/serial/impl/psb_s_csc_impl.f90 @@ -2371,7 +2371,7 @@ subroutine psb_s_csc_clean_zeros(a, info) use psb_s_csc_mat_mod, psb_protect_name => psb_s_csc_clean_zeros implicit none class(psb_s_csc_sparse_mat), intent(inout) :: a - integer(psb_ipk_) :: info + integer(psb_ipk_), intent(out) :: info ! integer(psb_ipk_) :: i, j, k, nc integer(psb_ipk_), allocatable :: ilcp(:) @@ -4255,7 +4255,7 @@ subroutine psb_ls_csc_clean_zeros(a, info) use psb_s_csc_mat_mod, psb_protect_name => psb_ls_csc_clean_zeros implicit none class(psb_ls_csc_sparse_mat), intent(inout) :: a - integer(psb_ipk_) :: info + integer(psb_ipk_), intent(out) :: info ! integer(psb_lpk_) :: i, j, k, nc integer(psb_lpk_), allocatable :: ilcp(:) @@ -4319,7 +4319,7 @@ subroutine psb_ls_csc_reallocate_nz(nz,a) use psb_realloc_mod use psb_s_csc_mat_mod, psb_protect_name => psb_ls_csc_reallocate_nz implicit none - integer(psb_ipk_), intent(in) :: nz + integer(psb_lpk_), intent(in) :: nz class(psb_ls_csc_sparse_mat), intent(inout) :: a integer(psb_ipk_) :: err_act, info, ierr(5) character(len=20) :: name='ls_csc_reallocate_nz' diff --git a/base/serial/impl/psb_s_csr_impl.f90 b/base/serial/impl/psb_s_csr_impl.f90 index 79289234..9a4bb3e1 100644 --- a/base/serial/impl/psb_s_csr_impl.f90 +++ b/base/serial/impl/psb_s_csr_impl.f90 @@ -3235,7 +3235,7 @@ subroutine psb_s_csr_clean_zeros(a, info) use psb_s_csr_mat_mod, psb_protect_name => psb_s_csr_clean_zeros implicit none class(psb_s_csr_sparse_mat), intent(inout) :: a - integer(psb_ipk_) :: info + integer(psb_ipk_), intent(out) :: info ! integer(psb_ipk_) :: i, j, k, nr integer(psb_ipk_), allocatable :: ilrp(:) @@ -5350,7 +5350,7 @@ subroutine psb_ls_csr_clean_zeros(a, info) use psb_s_csr_mat_mod, psb_protect_name => psb_ls_csr_clean_zeros implicit none class(psb_ls_csr_sparse_mat), intent(inout) :: a - integer(psb_ipk_) :: info + integer(psb_ipk_), intent(out) :: info ! integer(psb_lpk_) :: i, j, k, nr integer(psb_lpk_), allocatable :: ilrp(:) diff --git a/base/serial/impl/psb_z_coo_impl.F90 b/base/serial/impl/psb_z_coo_impl.F90 index 7850aeec..7ea439d0 100644 --- a/base/serial/impl/psb_z_coo_impl.F90 +++ b/base/serial/impl/psb_z_coo_impl.F90 @@ -592,7 +592,7 @@ subroutine psb_z_coo_clean_zeros(a, info) use psb_z_base_mat_mod, psb_protect_name => psb_z_coo_clean_zeros implicit none class(psb_z_coo_sparse_mat), intent(inout) :: a - integer(psb_ipk_) :: info + integer(psb_ipk_), intent(out) :: info ! integer(psb_ipk_) :: i,j,k, nzin @@ -5264,7 +5264,7 @@ subroutine psb_lz_coo_clean_zeros(a, info) use psb_z_base_mat_mod, psb_protect_name => psb_lz_coo_clean_zeros implicit none class(psb_lz_coo_sparse_mat), intent(inout) :: a - integer(psb_ipk_) :: info + integer(psb_ipk_), intent(out) :: info ! integer(psb_lpk_) :: i,j,k, nzin @@ -6760,7 +6760,8 @@ subroutine psb_lz_fix_coo_inner(nr,nc,nzin,dupl,ia,ja,val,nzout,info,idir) use psb_sort_mod implicit none - integer(psb_lpk_), intent(in) :: nr, nc, nzin, dupl + integer(psb_lpk_), intent(in) :: nr, nc, nzin + integer(psb_ipk_), intent(in) :: dupl integer(psb_lpk_), intent(inout) :: ia(:), ja(:) complex(psb_dpk_), intent(inout) :: val(:) integer(psb_lpk_), intent(out) :: nzout diff --git a/base/serial/impl/psb_z_csc_impl.f90 b/base/serial/impl/psb_z_csc_impl.f90 index 457489f3..8b0ccc65 100644 --- a/base/serial/impl/psb_z_csc_impl.f90 +++ b/base/serial/impl/psb_z_csc_impl.f90 @@ -2371,7 +2371,7 @@ subroutine psb_z_csc_clean_zeros(a, info) use psb_z_csc_mat_mod, psb_protect_name => psb_z_csc_clean_zeros implicit none class(psb_z_csc_sparse_mat), intent(inout) :: a - integer(psb_ipk_) :: info + integer(psb_ipk_), intent(out) :: info ! integer(psb_ipk_) :: i, j, k, nc integer(psb_ipk_), allocatable :: ilcp(:) @@ -4255,7 +4255,7 @@ subroutine psb_lz_csc_clean_zeros(a, info) use psb_z_csc_mat_mod, psb_protect_name => psb_lz_csc_clean_zeros implicit none class(psb_lz_csc_sparse_mat), intent(inout) :: a - integer(psb_ipk_) :: info + integer(psb_ipk_), intent(out) :: info ! integer(psb_lpk_) :: i, j, k, nc integer(psb_lpk_), allocatable :: ilcp(:) @@ -4319,7 +4319,7 @@ subroutine psb_lz_csc_reallocate_nz(nz,a) use psb_realloc_mod use psb_z_csc_mat_mod, psb_protect_name => psb_lz_csc_reallocate_nz implicit none - integer(psb_ipk_), intent(in) :: nz + integer(psb_lpk_), intent(in) :: nz class(psb_lz_csc_sparse_mat), intent(inout) :: a integer(psb_ipk_) :: err_act, info, ierr(5) character(len=20) :: name='lz_csc_reallocate_nz' diff --git a/base/serial/impl/psb_z_csr_impl.f90 b/base/serial/impl/psb_z_csr_impl.f90 index 1f1025ab..bf9817ef 100644 --- a/base/serial/impl/psb_z_csr_impl.f90 +++ b/base/serial/impl/psb_z_csr_impl.f90 @@ -3235,7 +3235,7 @@ subroutine psb_z_csr_clean_zeros(a, info) use psb_z_csr_mat_mod, psb_protect_name => psb_z_csr_clean_zeros implicit none class(psb_z_csr_sparse_mat), intent(inout) :: a - integer(psb_ipk_) :: info + integer(psb_ipk_), intent(out) :: info ! integer(psb_ipk_) :: i, j, k, nr integer(psb_ipk_), allocatable :: ilrp(:) @@ -5350,7 +5350,7 @@ subroutine psb_lz_csr_clean_zeros(a, info) use psb_z_csr_mat_mod, psb_protect_name => psb_lz_csr_clean_zeros implicit none class(psb_lz_csr_sparse_mat), intent(inout) :: a - integer(psb_ipk_) :: info + integer(psb_ipk_), intent(out) :: info ! integer(psb_lpk_) :: i, j, k, nr integer(psb_lpk_), allocatable :: ilrp(:)