Fix interace problem in test/matgen.
psblas3-type-indexed
Salvatore Filippone 14 years ago
parent 5de61046b3
commit 3871b673ec

@ -30,7 +30,7 @@ program d_matgen
integer :: iter, itmax,itrace, istopc, irst integer :: iter, itmax,itrace, istopc, irst
integer(psb_long_int_k_) :: amatsize, precsize, descsize integer(psb_long_int_k_) :: amatsize, precsize, descsize
real(psb_dpk_) :: err, eps real(psb_dpk_) :: err, eps
class(psb_d_cxx_sparse_mat), allocatable :: acxx type(psb_d_cxx_sparse_mat) :: acxx
! other variables ! other variables
integer :: info, err_act integer :: info, err_act
@ -144,7 +144,7 @@ contains
integer, parameter :: nb=20 integer, parameter :: nb=20
real(psb_dpk_), allocatable :: b(:),xv(:) real(psb_dpk_), allocatable :: b(:),xv(:)
type(psb_desc_type) :: desc_a type(psb_desc_type) :: desc_a
class(psb_d_base_sparse_mat), allocatable :: mold class(psb_d_base_sparse_mat) :: mold
integer :: ictxt, info integer :: ictxt, info
character :: afmt*5 character :: afmt*5
type(psb_dspmat_type) :: a type(psb_dspmat_type) :: a

Loading…
Cancel
Save