diff --git a/base/comm/psb_cgather.f90 b/base/comm/psb_cgather.f90
index fc7ba7fb..bc5302f5 100644
--- 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
diff --git a/base/comm/psb_dgather.f90 b/base/comm/psb_dgather.f90
index a12be1e4..ed0591e8 100644
--- 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
diff --git a/base/comm/psb_igather.f90 b/base/comm/psb_igather.f90
index 62a84173..acfdf52a 100644
--- 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
diff --git a/base/comm/psb_lgather.f90 b/base/comm/psb_lgather.f90
index 7b4e7ac9..17359bce 100644
--- 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
diff --git a/base/comm/psb_sgather.f90 b/base/comm/psb_sgather.f90
index 30d25440..59cecc17 100644
--- 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
diff --git a/base/comm/psb_zgather.f90 b/base/comm/psb_zgather.f90
index d60f15c6..5cf445a9 100644
--- 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