|
|
@ -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
|
|
|
|