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

New GLOBTRIL e GLOBTRIU functions

Browse Source
This commit is contained in:
sfilippone
2026-09-11 10:05:18 +02:00
parent 3f83bc2918
commit 51c0bd7c71
4 changed files with 245 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files
base/modules/tools/psb_d_tools_mod.F90
+24
View File
@@ -435,6 +435,30 @@ Module psb_d_tools_mod
end subroutine psb_d_simple_glob_transpose_ip
end interface psb_glob_transpose
interface psb_globtril
Subroutine psb_dglobtril(a,desc_a,b,info,diag,imin,imax,jmin,jmax)
import
implicit none
Type(psb_dspmat_type), Intent(inout) :: a
Type(psb_desc_type), Intent(inout), target :: desc_a
Type(psb_dspmat_type), Intent(out) :: b
integer(psb_ipk_), intent(out) :: info
integer(psb_lpk_), intent(in), optional :: diag,imin,imax,jmin,jmax
end Subroutine psb_dglobtril
end interface psb_globtril
interface psb_globtriu
Subroutine psb_dglobtriu(a,desc_a,b,info,diag,imin,imax,jmin,jmax)
import
implicit none
Type(psb_dspmat_type), Intent(inout) :: a
Type(psb_desc_type), Intent(inout), target :: desc_a
Type(psb_dspmat_type), Intent(out) :: b
integer(psb_ipk_), intent(out) :: info
integer(psb_lpk_), intent(in), optional :: diag,imin,imax,jmin,jmax
end Subroutine psb_dglobtriu
end interface psb_globtriu
interface psb_getelem
function psb_d_getelem(x,index,desc_a,info) result(res)
import