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

Define and test GLOBTRIL/GLOBTRIU in template

Browse Source
This commit is contained in:
sfilippone
2026-09-14 14:01:31 +02:00
parent 6263059751
commit e255d401bc
15 changed files with 2247 additions and 38 deletions
Download Patch File Download Diff File Expand all files Collapse all files
base/serial/impl/psb_d_coo_impl.F90
+1 -2
View File
@@ -4072,7 +4072,7 @@ subroutine psb_d_coo_triu(a,u,info,&
loop2: do k=1,nz
i = ia(k)
j = ja(k)
if ((jmin_<=j).and.(j<=jmax_)) then
if ((jmin_<=j).and.(j<=jmax_)) then
if ((j-i)>=diag_) then
nzin = nzin + 1
u%ia(nzin) = i
@@ -6500,7 +6500,6 @@ subroutine psb_ld_coo_triu(a,u,info,&
end subroutine psb_ld_coo_triu
subroutine psb_ld_coo_trim(a)
use psb_d_base_mat_mod, psb_protect_name => psb_ld_coo_trim
use psb_realloc_mod