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

psblas3:

Browse Source 
base/comm/psb_cscatter.F90
 base/comm/psb_dscatter.F90
 base/comm/psb_iscatter.F90
 base/comm/psb_sscatter.F90
 base/comm/psb_zscatter.F90
 base/modules/psb_c_comm_mod.f90
 base/modules/psb_c_tools_mod.f90
 base/modules/psb_d_comm_mod.f90
 base/modules/psb_d_tools_mod.f90
 base/modules/psb_i_comm_mod.f90
 base/modules/psb_i_tools_mod.f90
 base/modules/psb_s_comm_mod.f90
 base/modules/psb_s_tools_mod.f90
 base/modules/psb_z_comm_mod.f90
 base/modules/psb_z_tools_mod.f90
 docs/psblas-3.4.pdf
 docs/src/commrout.tex

Scatter interfaces.
This commit is contained in:
Salvatore Filippone
2015-12-04 17:45:22 +00:00
parent d99c45ae3d
commit 6e4023d68f
17 changed files with 11252 additions and 10502 deletions
Download Patch File Download Diff File Expand all files Collapse all files
base/modules/psb_c_comm_mod.f90
+10
View File
@@ -138,6 +138,16 @@ module psb_c_comm_mod
integer(psb_ipk_), intent(out) :: info
integer(psb_ipk_), intent(in), optional :: root
end subroutine psb_cscatterv
subroutine psb_cscatter_vect(globx, locx, desc_a, info, root, mold)
import
implicit none
type(psb_c_vect_type), intent(inout) :: locx
complex(psb_spk_), intent(in) :: globx(:)
type(psb_desc_type), intent(in) :: desc_a
integer(psb_ipk_), intent(out) :: info
integer(psb_ipk_), intent(in), optional :: root
class(psb_c_base_vect_type), intent(in), optional :: mold
end subroutine psb_cscatter_vect
end interface psb_scatter
interface psb_gather
base/modules/psb_c_tools_mod.f90
+1 -1
View File
@@ -350,5 +350,5 @@ Module psb_c_tools_mod
logical, intent(in), optional :: clear
end subroutine psb_csprn
end interface
end module psb_c_tools_mod
base/modules/psb_d_comm_mod.f90
+10
View File
@@ -138,6 +138,16 @@ module psb_d_comm_mod
integer(psb_ipk_), intent(out) :: info
integer(psb_ipk_), intent(in), optional :: root
end subroutine psb_dscatterv
subroutine psb_dscatter_vect(globx, locx, desc_a, info, root, mold)
import
implicit none
type(psb_d_vect_type), intent(inout) :: locx
real(psb_dpk_), intent(in) :: globx(:)
type(psb_desc_type), intent(in) :: desc_a
integer(psb_ipk_), intent(out) :: info
integer(psb_ipk_), intent(in), optional :: root
class(psb_d_base_vect_type), intent(in), optional :: mold
end subroutine psb_dscatter_vect
end interface psb_scatter
interface psb_gather
base/modules/psb_d_tools_mod.f90
+1 -1
View File
@@ -350,5 +350,5 @@ Module psb_d_tools_mod
logical, intent(in), optional :: clear
end subroutine psb_dsprn
end interface
end module psb_d_tools_mod
base/modules/psb_i_comm_mod.f90
+10
View File
@@ -137,6 +137,16 @@ module psb_i_comm_mod
integer(psb_ipk_), intent(out) :: info
integer(psb_ipk_), intent(in), optional :: root
end subroutine psb_iscatterv
subroutine psb_iscatter_vect(globx, locx, desc_a, info, root, mold)
import
implicit none
type(psb_i_vect_type), intent(inout) :: locx
integer(psb_ipk_), intent(in) :: globx(:)
type(psb_desc_type), intent(in) :: desc_a
integer(psb_ipk_), intent(out) :: info
integer(psb_ipk_), intent(in), optional :: root
class(psb_i_base_vect_type), intent(in), optional :: mold
end subroutine psb_iscatter_vect
end interface psb_scatter
interface psb_gather
base/modules/psb_i_tools_mod.f90
+1 -1
View File
@@ -237,7 +237,7 @@ Module psb_i_tools_mod
end subroutine psb_iins_multivect
end interface
interface psb_glob_to_loc
subroutine psb_glob_to_loc2v(x,y,desc_a,info,iact,owned)
import
base/modules/psb_s_comm_mod.f90
+10
View File
@@ -138,6 +138,16 @@ module psb_s_comm_mod
integer(psb_ipk_), intent(out) :: info
integer(psb_ipk_), intent(in), optional :: root
end subroutine psb_sscatterv
subroutine psb_sscatter_vect(globx, locx, desc_a, info, root, mold)
import
implicit none
type(psb_s_vect_type), intent(inout) :: locx
real(psb_spk_), intent(in) :: globx(:)
type(psb_desc_type), intent(in) :: desc_a
integer(psb_ipk_), intent(out) :: info
integer(psb_ipk_), intent(in), optional :: root
class(psb_s_base_vect_type), intent(in), optional :: mold
end subroutine psb_sscatter_vect
end interface psb_scatter
interface psb_gather
base/modules/psb_s_tools_mod.f90
+1 -1
View File
@@ -350,5 +350,5 @@ Module psb_s_tools_mod
logical, intent(in), optional :: clear
end subroutine psb_ssprn
end interface
end module psb_s_tools_mod
base/modules/psb_z_comm_mod.f90
+10
View File
@@ -138,6 +138,16 @@ module psb_z_comm_mod
integer(psb_ipk_), intent(out) :: info
integer(psb_ipk_), intent(in), optional :: root
end subroutine psb_zscatterv
subroutine psb_zscatter_vect(globx, locx, desc_a, info, root, mold)
import
implicit none
type(psb_z_vect_type), intent(inout) :: locx
complex(psb_dpk_), intent(in) :: globx(:)
type(psb_desc_type), intent(in) :: desc_a
integer(psb_ipk_), intent(out) :: info
integer(psb_ipk_), intent(in), optional :: root
class(psb_z_base_vect_type), intent(in), optional :: mold
end subroutine psb_zscatter_vect
end interface psb_scatter
interface psb_gather
base/modules/psb_z_tools_mod.f90
+1 -1
View File
@@ -350,5 +350,5 @@ Module psb_z_tools_mod
logical, intent(in), optional :: clear
end subroutine psb_zsprn
end interface
end module psb_z_tools_mod