mirror of
https://github.com/sfilippone/amg4psblas.git
synced 2026-10-06 14:44:55 +00:00
mld2p4:
if compiling with rsb and uncommenting an #undef, rsb will override the input-specified matrix format.
This commit is contained in:
@@ -104,6 +104,8 @@ program df_sample
|
||||
real(psb_dpk_) :: err, eps
|
||||
#ifdef HAVE_LIBRSB
|
||||
type(psb_d_rsb_sparse_mat) :: arsb
|
||||
type(psb_d_csr_sparse_mat) :: acsr
|
||||
!class(psb_d_base_sparse_mat) :: mold
|
||||
#endif
|
||||
|
||||
character(len=5) :: afmt
|
||||
@@ -245,6 +247,10 @@ program df_sample
|
||||
call psb_matdist(aux_a, a, ictxt, &
|
||||
& desc_a,b_col_glob,b_col,info,fmt=afmt,parts=part_block)
|
||||
end if
|
||||
#ifdef HAVE_LIBRSB
|
||||
call a%cscnv(info,mold=arsb)
|
||||
!call a%cscnv(info,mold=acsr)
|
||||
#endif
|
||||
|
||||
call psb_geall(x_col,desc_a,info)
|
||||
x_col(:) =0.0
|
||||
|
||||
Reference in New Issue
Block a user