Always allocate szs in psb_gather

1 year ago · d718ef1e6d
parent baf18cebd7
commit d718ef1e6d
6 changed files with 6 additions and 18 deletions
--- a/base/comm/psb_cgather.f90
+++ b/base/comm/psb_cgather.f90
@ -136,9 +136,7 @@ subroutine  psb_cgather_vect(globx, locx, desc_a, info, iroot)
    end if
  end do

-  if ((me == root).or.(root == -1)) then
-    allocate(szs(np))
-  end if
+  allocate(szs(np))
  loc_rows = desc_a%get_local_rows()
  call psb_gather(ctxt,loc_rows,szs,root=root)
  if ((me == root).or.(root == -1)) then
--- a/base/comm/psb_dgather.f90
+++ b/base/comm/psb_dgather.f90
@ -136,9 +136,7 @@ subroutine  psb_dgather_vect(globx, locx, desc_a, info, iroot)
    end if
  end do

-  if ((me == root).or.(root == -1)) then
-    allocate(szs(np))
-  end if
+  allocate(szs(np))
  loc_rows = desc_a%get_local_rows()
  call psb_gather(ctxt,loc_rows,szs,root=root)
  if ((me == root).or.(root == -1)) then
--- a/base/comm/psb_igather.f90
+++ b/base/comm/psb_igather.f90
@ -136,9 +136,7 @@ subroutine  psb_igather_vect(globx, locx, desc_a, info, iroot)
    end if
  end do

-  if ((me == root).or.(root == -1)) then
-    allocate(szs(np))
-  end if
+  allocate(szs(np))
  loc_rows = desc_a%get_local_rows()
  call psb_gather(ctxt,loc_rows,szs,root=root)
  if ((me == root).or.(root == -1)) then
--- a/base/comm/psb_lgather.f90
+++ b/base/comm/psb_lgather.f90
@ -136,9 +136,7 @@ subroutine  psb_lgather_vect(globx, locx, desc_a, info, iroot)
    end if
  end do

-  if ((me == root).or.(root == -1)) then
-    allocate(szs(np))
-  end if
+  allocate(szs(np))
  loc_rows = desc_a%get_local_rows()
  call psb_gather(ctxt,loc_rows,szs,root=root)
  if ((me == root).or.(root == -1)) then
--- a/base/comm/psb_sgather.f90
+++ b/base/comm/psb_sgather.f90
@ -136,9 +136,7 @@ subroutine  psb_sgather_vect(globx, locx, desc_a, info, iroot)
    end if
  end do

-  if ((me == root).or.(root == -1)) then
-    allocate(szs(np))
-  end if
+  allocate(szs(np))
  loc_rows = desc_a%get_local_rows()
  call psb_gather(ctxt,loc_rows,szs,root=root)
  if ((me == root).or.(root == -1)) then
--- a/base/comm/psb_zgather.f90
+++ b/base/comm/psb_zgather.f90
@ -136,9 +136,7 @@ subroutine  psb_zgather_vect(globx, locx, desc_a, info, iroot)
    end if
  end do

-  if ((me == root).or.(root == -1)) then
-    allocate(szs(np))
-  end if
+  allocate(szs(np))
  loc_rows = desc_a%get_local_rows()
  call psb_gather(ctxt,loc_rows,szs,root=root)
  if ((me == root).or.(root == -1)) then