fdurastante/psblas3
1
0
Fork 0
mirror of https://github.com/sfilippone/psblas3.git synced 2026-10-11 08:29:05 +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

Missing leading dimension.
This commit is contained in:
Salvatore Filippone
2016-05-26 17:42:12 +00:00
parent 3dbd945ce3
commit 4aa07deff5
5 changed files with 5 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files
base/comm/psb_cscatter.F90
+1
View File
@@ -344,6 +344,7 @@ subroutine psb_cscatterv(globx, locx, desc_a, info, root)
ilocx = 1
jlocx = 1
lda_globx = size(globx, 1)
if (iroot /= -1) call psb_bcast(ictxt,lda_globx,root=iroot)
m = desc_a%get_global_rows()
n = desc_a%get_global_cols()
base/comm/psb_dscatter.F90
+1
View File
@@ -344,6 +344,7 @@ subroutine psb_dscatterv(globx, locx, desc_a, info, root)
ilocx = 1
jlocx = 1
lda_globx = size(globx, 1)
if (iroot /= -1) call psb_bcast(ictxt,lda_globx,root=iroot)
m = desc_a%get_global_rows()
n = desc_a%get_global_cols()
base/comm/psb_iscatter.F90
+1
View File
@@ -344,6 +344,7 @@ subroutine psb_iscatterv(globx, locx, desc_a, info, root)
ilocx = 1
jlocx = 1
lda_globx = size(globx, 1)
if (iroot /= -1) call psb_bcast(ictxt,lda_globx,root=iroot)
m = desc_a%get_global_rows()
n = desc_a%get_global_cols()
base/comm/psb_sscatter.F90
+1
View File
@@ -344,6 +344,7 @@ subroutine psb_sscatterv(globx, locx, desc_a, info, root)
ilocx = 1
jlocx = 1
lda_globx = size(globx, 1)
if (iroot /= -1) call psb_bcast(ictxt,lda_globx,root=iroot)
m = desc_a%get_global_rows()
n = desc_a%get_global_cols()
base/comm/psb_zscatter.F90
+1
View File
@@ -344,6 +344,7 @@ subroutine psb_zscatterv(globx, locx, desc_a, info, root)
ilocx = 1
jlocx = 1
lda_globx = size(globx, 1)
if (iroot /= -1) call psb_bcast(ictxt,lda_globx,root=iroot)
m = desc_a%get_global_rows()
n = desc_a%get_global_cols()