fdurastante/psblas3
1
0
Fork 0
mirror of https://github.com/sfilippone/psblas3.git synced 2026-10-20 12:52:14 +00:00
Code Issues Packages Projects Releases Wiki Activity

psblas3

Browse Source 
util/psb_mat_dist_impl.f90

Added check on input args.
This commit is contained in:
Salvatore Filippone
2011-10-05 15:59:00 +00:00
parent d7a352f919
commit 668aea5de8
1 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files
util/psb_mat_dist_impl.f90
+4 -4
View File
@@ -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