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(psb_long_int_k_) :: amatsize, precsize, descsize
real(psb_dpk_) :: err, eps
class(psb_d_cxx_sparse_mat), allocatable :: acxx
type(psb_d_cxx_sparse_mat) :: acxx
! other variables
integer :: info, err_act
@ -144,7 +144,7 @@ contains
integer, parameter :: nb=20
real(psb_dpk_), allocatable :: b(:),xv(:)
type(psb_desc_type) :: desc_a
class(psb_d_base_sparse_mat), allocatable :: mold
class(psb_d_base_sparse_mat) :: mold
integer :: ictxt, info
character :: afmt*5
type(psb_dspmat_type) :: a

Loading…
Cancel
Save