From c2c80ae6e75ded554c48741006a341316acc743b Mon Sep 17 00:00:00 2001
From: Salvatore Filippone <salvatore.filippone@uniroma2.it>
Date: Mon, 21 Nov 2022 09:06:39 -0500
Subject: [PATCH] Fix coo%fix internals

---
 base/serial/impl/psb_c_coo_impl.F90 | 11 +++++++++++
 base/serial/impl/psb_d_coo_impl.F90 | 11 +++++++++++
 base/serial/impl/psb_s_coo_impl.F90 | 11 +++++++++++
 base/serial/impl/psb_z_coo_impl.F90 | 11 +++++++++++
 4 files changed, 44 insertions(+)

diff --git a/base/serial/impl/psb_c_coo_impl.F90 b/base/serial/impl/psb_c_coo_impl.F90
index 1b0e3633..830b7400 100644
--- a/base/serial/impl/psb_c_coo_impl.F90
+++ b/base/serial/impl/psb_c_coo_impl.F90
@@ -3671,6 +3671,12 @@ subroutine psb_c_fix_coo_inner_rowmajor(nr,nc,nzin,dupl,ia,ja,val,iaux,nzout,inf
   integer(psb_ipk_), allocatable :: sum(:),kaux(:),idxaux(:)
 #endif
 
+  info  = psb_success_
+
+  call psb_erractionsave(err_act)
+  debug_unit  = psb_get_debug_unit()
+  debug_level = psb_get_debug_level()
+
   ! Row major order
   if (nr <= nzin) then
     ! Avoid strange situations with large indices
@@ -4357,6 +4363,11 @@ subroutine psb_c_fix_coo_inner_colmajor(nr,nc,nzin,dupl,ia,ja,val,iaux,nzout,inf
   integer(psb_ipk_) :: saved_elem,old_val,nxt_val,err,act_row,act_col,maxthreads
   integer(psb_ipk_), allocatable :: sum(:),kaux(:),idxaux(:)
 #endif
+  info  = psb_success_
+
+  call psb_erractionsave(err_act)
+  debug_unit  = psb_get_debug_unit()
+  debug_level = psb_get_debug_level()
 
   if (nc <= nzin) then
     ! Avoid strange situations with large indices
diff --git a/base/serial/impl/psb_d_coo_impl.F90 b/base/serial/impl/psb_d_coo_impl.F90
index 696e5220..24b486e2 100644
--- a/base/serial/impl/psb_d_coo_impl.F90
+++ b/base/serial/impl/psb_d_coo_impl.F90
@@ -3671,6 +3671,12 @@ subroutine psb_d_fix_coo_inner_rowmajor(nr,nc,nzin,dupl,ia,ja,val,iaux,nzout,inf
   integer(psb_ipk_), allocatable :: sum(:),kaux(:),idxaux(:)
 #endif
 
+  info  = psb_success_
+
+  call psb_erractionsave(err_act)
+  debug_unit  = psb_get_debug_unit()
+  debug_level = psb_get_debug_level()
+
   ! Row major order
   if (nr <= nzin) then
     ! Avoid strange situations with large indices
@@ -4357,6 +4363,11 @@ subroutine psb_d_fix_coo_inner_colmajor(nr,nc,nzin,dupl,ia,ja,val,iaux,nzout,inf
   integer(psb_ipk_) :: saved_elem,old_val,nxt_val,err,act_row,act_col,maxthreads
   integer(psb_ipk_), allocatable :: sum(:),kaux(:),idxaux(:)
 #endif
+  info  = psb_success_
+
+  call psb_erractionsave(err_act)
+  debug_unit  = psb_get_debug_unit()
+  debug_level = psb_get_debug_level()
 
   if (nc <= nzin) then
     ! Avoid strange situations with large indices
diff --git a/base/serial/impl/psb_s_coo_impl.F90 b/base/serial/impl/psb_s_coo_impl.F90
index 20f8abfd..be4218de 100644
--- a/base/serial/impl/psb_s_coo_impl.F90
+++ b/base/serial/impl/psb_s_coo_impl.F90
@@ -3671,6 +3671,12 @@ subroutine psb_s_fix_coo_inner_rowmajor(nr,nc,nzin,dupl,ia,ja,val,iaux,nzout,inf
   integer(psb_ipk_), allocatable :: sum(:),kaux(:),idxaux(:)
 #endif
 
+  info  = psb_success_
+
+  call psb_erractionsave(err_act)
+  debug_unit  = psb_get_debug_unit()
+  debug_level = psb_get_debug_level()
+
   ! Row major order
   if (nr <= nzin) then
     ! Avoid strange situations with large indices
@@ -4357,6 +4363,11 @@ subroutine psb_s_fix_coo_inner_colmajor(nr,nc,nzin,dupl,ia,ja,val,iaux,nzout,inf
   integer(psb_ipk_) :: saved_elem,old_val,nxt_val,err,act_row,act_col,maxthreads
   integer(psb_ipk_), allocatable :: sum(:),kaux(:),idxaux(:)
 #endif
+  info  = psb_success_
+
+  call psb_erractionsave(err_act)
+  debug_unit  = psb_get_debug_unit()
+  debug_level = psb_get_debug_level()
 
   if (nc <= nzin) then
     ! Avoid strange situations with large indices
diff --git a/base/serial/impl/psb_z_coo_impl.F90 b/base/serial/impl/psb_z_coo_impl.F90
index b93c1ca9..4f99cb5c 100644
--- a/base/serial/impl/psb_z_coo_impl.F90
+++ b/base/serial/impl/psb_z_coo_impl.F90
@@ -3671,6 +3671,12 @@ subroutine psb_z_fix_coo_inner_rowmajor(nr,nc,nzin,dupl,ia,ja,val,iaux,nzout,inf
   integer(psb_ipk_), allocatable :: sum(:),kaux(:),idxaux(:)
 #endif
 
+  info  = psb_success_
+
+  call psb_erractionsave(err_act)
+  debug_unit  = psb_get_debug_unit()
+  debug_level = psb_get_debug_level()
+
   ! Row major order
   if (nr <= nzin) then
     ! Avoid strange situations with large indices
@@ -4357,6 +4363,11 @@ subroutine psb_z_fix_coo_inner_colmajor(nr,nc,nzin,dupl,ia,ja,val,iaux,nzout,inf
   integer(psb_ipk_) :: saved_elem,old_val,nxt_val,err,act_row,act_col,maxthreads
   integer(psb_ipk_), allocatable :: sum(:),kaux(:),idxaux(:)
 #endif
+  info  = psb_success_
+
+  call psb_erractionsave(err_act)
+  debug_unit  = psb_get_debug_unit()
+  debug_level = psb_get_debug_level()
 
   if (nc <= nzin) then
     ! Avoid strange situations with large indices