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

Fixes for remote_vect handling

Browse Source
This commit is contained in:
Salvatore Filippone
2022-06-03 10:41:25 +02:00
parent 4765a8898c
commit db90270ea7
33 changed files with 1688 additions and 712 deletions
Download Patch File Download Diff File Expand all files Collapse all files
base/modules/tools/psb_d_tools_a_mod.f90
+15
View File
@@ -116,4 +116,19 @@ Module psb_d_tools_a_mod
end subroutine psb_dinsvi
end interface
interface psb_remote_vect
subroutine psb_d_remote_vect(n,v,iv,desc_a,x,ix, info)
import
implicit none
integer(psb_ipk_), intent(in) :: n
real(psb_dpk_), intent(in) :: v(:)
integer(psb_lpk_), intent(in) :: iv(:)
type(psb_desc_type),intent(in) :: desc_a
real(psb_dpk_), allocatable, intent(out) :: x(:)
integer(psb_lpk_), allocatable, intent(out) :: ix(:)
integer(psb_ipk_), intent(out) :: info
end subroutine psb_d_remote_vect
end interface psb_remote_vect
end module psb_d_tools_a_mod