psblas3

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.
9 years ago · 4aa07deff5
parent 3dbd945ce3
commit 4aa07deff5
5 changed files with 5 additions and 0 deletions
--- a/base/comm/psb_cscatter.F90
+++ b/base/comm/psb_cscatter.F90
@ -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()
--- a/base/comm/psb_dscatter.F90
+++ b/base/comm/psb_dscatter.F90
@ -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()
--- a/base/comm/psb_iscatter.F90
+++ b/base/comm/psb_iscatter.F90
@ -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()
--- a/base/comm/psb_sscatter.F90
+++ b/base/comm/psb_sscatter.F90
@ -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()
--- a/base/comm/psb_zscatter.F90
+++ b/base/comm/psb_zscatter.F90
@ -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()