From ed97717037a571a0b7519896281e8fed996f1112 Mon Sep 17 00:00:00 2001
From: sfilippone <filippone.salvatore@gmail.com>
Date: Wed, 8 Oct 2025 12:54:59 +0200
Subject: [PATCH] Change name of an error constant.

---
 base/modules/psb_const_mod.F90 | 13 +++++++------
 base/modules/psb_error_mod.F90 |  2 +-
 base/tools/psb_cdals.f90       |  2 +-
 3 files changed, 9 insertions(+), 8 deletions(-)

diff --git a/base/modules/psb_const_mod.F90 b/base/modules/psb_const_mod.F90
index d10bf974..395f4574 100644
--- a/base/modules/psb_const_mod.F90
+++ b/base/modules/psb_const_mod.F90
@@ -185,11 +185,12 @@ module psb_const_mod
   !  The up/down constant are defined in pairs having
   !  opposite values. We make use of this fact in the heapsort routine.
   !
-  integer(psb_ipk_), parameter :: psb_sort_up_       = 1, psb_sort_down_     = -1
-  integer(psb_ipk_), parameter :: psb_lsort_up_      = 2, psb_lsort_down_    = -2
-  integer(psb_ipk_), parameter :: psb_asort_up_      = 3, psb_asort_down_    = -3
-  integer(psb_ipk_), parameter :: psb_alsort_up_     = 4, psb_alsort_down_   = -4
-  integer(psb_ipk_), parameter :: psb_sort_ovw_idx_  = 0, psb_sort_keep_idx_ =  1
+  integer(psb_ipk_), parameter :: psb_sort_up_       = 1, psb_sort_down_      = -1
+  integer(psb_ipk_), parameter :: psb_lsort_up_      = 2, psb_lsort_down_     = -2
+  integer(psb_ipk_), parameter :: psb_asort_up_      = 3, psb_asort_down_     = -3
+  integer(psb_ipk_), parameter :: psb_alsort_up_     = 4, psb_alsort_down_    = -4
+  integer(psb_ipk_), parameter :: psb_sort_ovw_idx_  = 0, psb_sort_keep_idx_  =  1
+  integer(psb_ipk_), parameter :: psb_sort_reord_x_  = 0, psb_sort_noreord_x_ =  1
   integer(psb_ipk_), parameter :: psb_heap_resize    = 200
   integer(psb_ipk_), parameter :: psb_find_any_      = 0
   integer(psb_ipk_), parameter :: psb_find_first_ge_ = 1
@@ -282,7 +283,7 @@ module psb_const_mod
   integer(psb_ipk_), parameter, public :: psb_err_parm_differs_among_procs_=550
   integer(psb_ipk_), parameter, public :: psb_err_entry_out_of_bounds_=551
   integer(psb_ipk_), parameter, public :: psb_err_inconsistent_index_lists_=552
-  integer(psb_ipk_), parameter, public :: psb_err_partfunc_toomuchprocs_=570
+  integer(psb_ipk_), parameter, public :: psb_err_partfunc_toomanyprocs_=570
   integer(psb_ipk_), parameter, public :: psb_err_partfunc_toofewprocs_=575
   integer(psb_ipk_), parameter, public :: psb_err_partfunc_wrong_pid_=580
   integer(psb_ipk_), parameter, public :: psb_err_no_optional_arg_=581
diff --git a/base/modules/psb_error_mod.F90 b/base/modules/psb_error_mod.F90
index f47f884b..a13dd97f 100644
--- a/base/modules/psb_error_mod.F90
+++ b/base/modules/psb_error_mod.F90
@@ -750,7 +750,7 @@ contains
       achmsg(1) = tmpmsg
       write(achmsg(2),'("Index lists are inconsistent: some indices are orphans")')
 
-    case(psb_err_partfunc_toomuchprocs_)
+    case(psb_err_partfunc_toomanyprocs_)
       allocate(achmsg(4)) 
       achmsg(1) = tmpmsg
       write(achmsg(2),&
diff --git a/base/tools/psb_cdals.f90 b/base/tools/psb_cdals.f90
index 92ad3e94..2b1aa8c5 100644
--- a/base/tools/psb_cdals.f90
+++ b/base/tools/psb_cdals.f90
@@ -175,7 +175,7 @@ subroutine psb_cdals(m, n, parts, ctxt, desc, info)
     if (info == psb_success_) then
       call parts(iglob,m,np,prc_v,nprocs)
       if (nprocs > np) then
-        info=psb_err_partfunc_toomuchprocs_
+        info=psb_err_partfunc_toomanyprocs_
         call psb_errpush(info,name,l_err=(/3_psb_lpk_,np*lone,nprocs*lone,iglob/))
         goto 9999
       else if (nprocs <= 0) then