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

Change interface of X_REMAP to include isrc/nrsrc

Browse Source
This commit is contained in:
Salvatore Filippone
2020-11-08 12:38:15 +01:00
parent 2090a011db
commit fb422be9f4
8 changed files with 36 additions and 16 deletions
Download Patch File Download Diff File Expand all files Collapse all files
base/modules/tools/psb_c_tools_mod.F90
+3 -2
View File
@@ -432,8 +432,8 @@ Module psb_c_tools_mod
end interface
interface psb_remap
subroutine psb_c_remap(np_remap, desc_in, a_in, desc_out, a_out, info)
import
subroutine psb_c_remap(np_remap, desc_in, a_in, desc_out, isrc, nrsrc, a_out, info)
import
implicit none
!....parameters...
integer(psb_ipk_), intent(in) :: np_remap
@@ -441,6 +441,7 @@ Module psb_c_tools_mod
type(psb_cspmat_type), intent(inout) :: a_in
type(psb_cspmat_type), intent(out) :: a_out
type(psb_desc_type), intent(out) :: desc_out
integer(psb_ipk_), allocatable, intent(out) :: isrc(:), nrsrc(:)
integer(psb_ipk_), intent(out) :: info
end subroutine psb_c_remap
end interface psb_remap
base/modules/tools/psb_d_tools_mod.F90
+3 -2
View File
@@ -432,8 +432,8 @@ Module psb_d_tools_mod
end interface
interface psb_remap
subroutine psb_d_remap(np_remap, desc_in, a_in, desc_out, a_out, info)
import
subroutine psb_d_remap(np_remap, desc_in, a_in, desc_out, isrc, nrsrc, a_out, info)
import
implicit none
!....parameters...
integer(psb_ipk_), intent(in) :: np_remap
@@ -441,6 +441,7 @@ Module psb_d_tools_mod
type(psb_dspmat_type), intent(inout) :: a_in
type(psb_dspmat_type), intent(out) :: a_out
type(psb_desc_type), intent(out) :: desc_out
integer(psb_ipk_), allocatable, intent(out) :: isrc(:), nrsrc(:)
integer(psb_ipk_), intent(out) :: info
end subroutine psb_d_remap
end interface psb_remap
base/modules/tools/psb_s_tools_mod.F90
+3 -2
View File
@@ -432,8 +432,8 @@ Module psb_s_tools_mod
end interface
interface psb_remap
subroutine psb_s_remap(np_remap, desc_in, a_in, desc_out, a_out, info)
import
subroutine psb_s_remap(np_remap, desc_in, a_in, desc_out, isrc, nrsrc, a_out, info)
import
implicit none
!....parameters...
integer(psb_ipk_), intent(in) :: np_remap
@@ -441,6 +441,7 @@ Module psb_s_tools_mod
type(psb_sspmat_type), intent(inout) :: a_in
type(psb_sspmat_type), intent(out) :: a_out
type(psb_desc_type), intent(out) :: desc_out
integer(psb_ipk_), allocatable, intent(out) :: isrc(:), nrsrc(:)
integer(psb_ipk_), intent(out) :: info
end subroutine psb_s_remap
end interface psb_remap
base/modules/tools/psb_z_tools_mod.F90
+3 -2
View File
@@ -432,8 +432,8 @@ Module psb_z_tools_mod
end interface
interface psb_remap
subroutine psb_z_remap(np_remap, desc_in, a_in, desc_out, a_out, info)
import
subroutine psb_z_remap(np_remap, desc_in, a_in, desc_out, isrc, nrsrc, a_out, info)
import
implicit none
!....parameters...
integer(psb_ipk_), intent(in) :: np_remap
@@ -441,6 +441,7 @@ Module psb_z_tools_mod
type(psb_zspmat_type), intent(inout) :: a_in
type(psb_zspmat_type), intent(out) :: a_out
type(psb_desc_type), intent(out) :: desc_out
integer(psb_ipk_), allocatable, intent(out) :: isrc(:), nrsrc(:)
integer(psb_ipk_), intent(out) :: info
end subroutine psb_z_remap
end interface psb_remap