diff --git a/base/serial/impl/psb_c_coo_impl.F90 b/base/serial/impl/psb_c_coo_impl.F90
index 5c90e287..84517ead 100644
--- a/base/serial/impl/psb_c_coo_impl.F90
+++ b/base/serial/impl/psb_c_coo_impl.F90
@@ -4205,7 +4205,7 @@ subroutine psb_c_fix_coo_inner(nr,nc,nzin,dupl,ia,ja,val,nzout,info,idir)
   ! 'iaux' has to allow the threads to have an exclusive group
   ! of indices as work space. Since each thread handles one
   ! row/column at the time, we allocate this way.
-  allocate(iaux(MAX((nc+2),(nr+2))*maxthreads),stat=info)
+  allocate(iaux(MAX((nc+2),(nr+2))),stat=info)
   if (info /= psb_success_) then
     info = psb_err_alloc_dealloc_
     call psb_errpush(info,name)
diff --git a/base/serial/impl/psb_d_coo_impl.F90 b/base/serial/impl/psb_d_coo_impl.F90
index f6a173d1..1b122fd8 100644
--- a/base/serial/impl/psb_d_coo_impl.F90
+++ b/base/serial/impl/psb_d_coo_impl.F90
@@ -4205,7 +4205,7 @@ subroutine psb_d_fix_coo_inner(nr,nc,nzin,dupl,ia,ja,val,nzout,info,idir)
   ! 'iaux' has to allow the threads to have an exclusive group
   ! of indices as work space. Since each thread handles one
   ! row/column at the time, we allocate this way.
-  allocate(iaux(MAX((nc+2),(nr+2))*maxthreads),stat=info)
+  allocate(iaux(MAX((nc+2),(nr+2))),stat=info)
   if (info /= psb_success_) then
     info = psb_err_alloc_dealloc_
     call psb_errpush(info,name)
diff --git a/base/serial/impl/psb_s_coo_impl.F90 b/base/serial/impl/psb_s_coo_impl.F90
index 4c12d8fc..3df01ba6 100644
--- a/base/serial/impl/psb_s_coo_impl.F90
+++ b/base/serial/impl/psb_s_coo_impl.F90
@@ -4205,7 +4205,7 @@ subroutine psb_s_fix_coo_inner(nr,nc,nzin,dupl,ia,ja,val,nzout,info,idir)
   ! 'iaux' has to allow the threads to have an exclusive group
   ! of indices as work space. Since each thread handles one
   ! row/column at the time, we allocate this way.
-  allocate(iaux(MAX((nc+2),(nr+2))*maxthreads),stat=info)
+  allocate(iaux(MAX((nc+2),(nr+2))),stat=info)
   if (info /= psb_success_) then
     info = psb_err_alloc_dealloc_
     call psb_errpush(info,name)
diff --git a/base/serial/impl/psb_z_coo_impl.F90 b/base/serial/impl/psb_z_coo_impl.F90
index 44ee89b5..356914de 100644
--- a/base/serial/impl/psb_z_coo_impl.F90
+++ b/base/serial/impl/psb_z_coo_impl.F90
@@ -4205,7 +4205,7 @@ subroutine psb_z_fix_coo_inner(nr,nc,nzin,dupl,ia,ja,val,nzout,info,idir)
   ! 'iaux' has to allow the threads to have an exclusive group
   ! of indices as work space. Since each thread handles one
   ! row/column at the time, we allocate this way.
-  allocate(iaux(MAX((nc+2),(nr+2))*maxthreads),stat=info)
+  allocate(iaux(MAX((nc+2),(nr+2))),stat=info)
   if (info /= psb_success_) then
     info = psb_err_alloc_dealloc_
     call psb_errpush(info,name)