From a38867be25d96751bb9e9dbdb4ce11cca6fe517c Mon Sep 17 00:00:00 2001 From: sfilippone Date: Wed, 29 May 2024 16:51:58 +0200 Subject: [PATCH] Fix allocation in coo_impl --- base/serial/impl/psb_c_coo_impl.F90 | 2 +- base/serial/impl/psb_d_coo_impl.F90 | 2 +- base/serial/impl/psb_s_coo_impl.F90 | 2 +- base/serial/impl/psb_z_coo_impl.F90 | 2 +- 4 files changed, 4 insertions(+), 4 deletions(-) diff --git a/base/serial/impl/psb_c_coo_impl.F90 b/base/serial/impl/psb_c_coo_impl.F90 index 1a1cb3ab..b97f493c 100644 --- a/base/serial/impl/psb_c_coo_impl.F90 +++ b/base/serial/impl/psb_c_coo_impl.F90 @@ -4214,7 +4214,7 @@ subroutine psb_c_fix_coo_inner(nr,nc,nzin,dupl,ia,ja,val,nzout,info,idir) #else - allocate(iaux(MAX((nzin+2),(nc+2),(nr+2)),stat=info) + allocate(iaux(MAX((nzin+2),(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 0f7da5c0..c8a22914 100644 --- a/base/serial/impl/psb_d_coo_impl.F90 +++ b/base/serial/impl/psb_d_coo_impl.F90 @@ -4214,7 +4214,7 @@ subroutine psb_d_fix_coo_inner(nr,nc,nzin,dupl,ia,ja,val,nzout,info,idir) #else - allocate(iaux(MAX((nzin+2),(nc+2),(nr+2)),stat=info) + allocate(iaux(MAX((nzin+2),(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 c6340a91..4b05cb17 100644 --- a/base/serial/impl/psb_s_coo_impl.F90 +++ b/base/serial/impl/psb_s_coo_impl.F90 @@ -4214,7 +4214,7 @@ subroutine psb_s_fix_coo_inner(nr,nc,nzin,dupl,ia,ja,val,nzout,info,idir) #else - allocate(iaux(MAX((nzin+2),(nc+2),(nr+2)),stat=info) + allocate(iaux(MAX((nzin+2),(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 87e2c8d8..4b15ef84 100644 --- a/base/serial/impl/psb_z_coo_impl.F90 +++ b/base/serial/impl/psb_z_coo_impl.F90 @@ -4214,7 +4214,7 @@ subroutine psb_z_fix_coo_inner(nr,nc,nzin,dupl,ia,ja,val,nzout,info,idir) #else - allocate(iaux(MAX((nzin+2),(nc+2),(nr+2)),stat=info) + allocate(iaux(MAX((nzin+2),(nc+2),(nr+2)),stat=info)) if (info /= psb_success_) then info = psb_err_alloc_dealloc_ call psb_errpush(info,name)