From 668aea5de89ae105a1bcfd0829bd429b4b696332 Mon Sep 17 00:00:00 2001 From: Salvatore Filippone Date: Wed, 5 Oct 2011 15:59:00 +0000 Subject: [PATCH] psblas3 util/psb_mat_dist_impl.f90 Added check on input args. --- util/psb_mat_dist_impl.f90 | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/util/psb_mat_dist_impl.f90 b/util/psb_mat_dist_impl.f90 index bfec7f08..facf0ffe 100644 --- a/util/psb_mat_dist_impl.f90 +++ b/util/psb_mat_dist_impl.f90 @@ -92,7 +92,7 @@ subroutine smatdist(a_glob, a, ictxt, desc_a,& implicit none ! parameters - type(psb_sspmat_type) :: a_glob + type(psb_sspmat_type) :: a_glob real(psb_spk_) :: b_glob(:) integer :: ictxt type(psb_sspmat_type) :: a @@ -120,8 +120,8 @@ subroutine smatdist(a_glob, a, ictxt, desc_a,& integer :: length_row, i_count, j_count,& & k_count, root, liwork, nrow, ncol, nnzero, nrhs,& & i, ll, nz, isize, iproc, nnr, err, err_act, int_err(5) - integer, allocatable :: iwork(:) - integer, allocatable :: irow(:),icol(:) + integer, allocatable :: iwork(:) + integer, allocatable :: irow(:),icol(:) real(psb_spk_), allocatable :: val(:) integer, parameter :: nb=30 real(psb_dpk_) :: t0, t1, t2, t3, t4, t5 @@ -533,7 +533,7 @@ subroutine dmatdist(a_glob, a, ictxt, desc_a,& implicit none ! parameters - type(psb_dspmat_type) :: a_glob + type(psb_dspmat_type) :: a_glob real(psb_dpk_) :: b_glob(:) integer :: ictxt type(psb_dspmat_type) :: a