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

Add IDEST to remap interface

Browse Source
This commit is contained in:
Salvatore Filippone
2020-11-09 10:16:57 +01:00
parent a79d853338
commit 4bc326d06b
9 changed files with 26 additions and 14 deletions
Download Patch File Download Diff File Expand all files Collapse all files
test/cdasb/psb_d_pde3d.f90
+2 -2
View File
@@ -644,7 +644,7 @@ program psb_d_pde3d
integer(psb_ipk_) :: ictxt, iam, np
! solver parameters
integer(psb_ipk_) :: iter, itmax,itrace, istopc, irst, ipart
integer(psb_ipk_) :: iter, itmax,itrace, istopc, irst, ipart, idest
integer(psb_epk_) :: amatsize, precsize, descsize, d2size
real(psb_dpk_) :: err, eps
integer(psb_ipk_), allocatable :: isrc(:), nrsrc(:)
@@ -701,7 +701,7 @@ program psb_d_pde3d
if (iam == 0) write(0,*) 'Remapping from ',np,' to ',rnp
flush(0)
call psb_barrier(ictxt)
call psb_remap(rnp,desc_blk,a,desc_rmp,isrc,nrsrc,aremap,info)
call psb_remap(rnp,desc_blk,a,desc_rmp,idest,isrc,nrsrc,aremap,info)
flush(0)
call psb_barrier(ictxt)
if (iam == 0) write(0,*) ' Info ',info