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

GLOB TRIU/TRIU return same format as input matrix A

Browse Source
This commit is contained in:
sfilippone
2026-09-13 13:18:02 +02:00
parent d81c371a50
commit 4be6c50be9
2 changed files with 3 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files
base/tools/psb_dglobtril.F90
+2 -1
View File
@@ -101,7 +101,8 @@ Subroutine psb_dglobtril(a,desc_a,b,info,diag,imin,imax,jmin,jmax)
call ldcootril%set_nrows(lnr)
call ldcootril%set_ncols(lnc)
call ldcootril%fix(info)
call b%mv_from_lb(ldcootril)
call b%mv_from_lb(ldcootril)
call b%cscnv(info,mold=a%a)
if (debug_level >= psb_debug_outer_) &
& write(debug_unit,*) me,' ',trim(name),': end'
base/tools/psb_dglobtriu.F90
+1 -1
View File
@@ -100,7 +100,7 @@ Subroutine psb_dglobtriu(a,desc_a,b,info,diag,imin,imax,jmin,jmax)
call ldcootriu%set_ncols(lnc)
call ldcootriu%fix(info)
call b%mv_from_lb(ldcootriu)
call b%cscnv(info,mold=a%a)
if (debug_level >= psb_debug_outer_) &
& write(debug_unit,*) me,' ',trim(name),': end'