From 9ef812bf4ad8dd07741d43b0901aeef73514f563 Mon Sep 17 00:00:00 2001
From: sfilippone <filippone.salvatore@gmail.com>
Date: Wed, 5 Mar 2025 15:57:18 +0100
Subject: [PATCH] Fix compile mismatch warnings

---
 base/serial/psb_cspspmm.f90 | 4 ++--
 base/serial/psb_csymbmm.f90 | 2 ++
 base/serial/psb_dspspmm.f90 | 4 ++--
 base/serial/psb_dsymbmm.f90 | 2 ++
 base/serial/psb_sspspmm.f90 | 4 ++--
 base/serial/psb_ssymbmm.f90 | 2 ++
 base/serial/psb_zspspmm.f90 | 4 ++--
 base/serial/psb_zsymbmm.f90 | 2 ++
 8 files changed, 16 insertions(+), 8 deletions(-)

diff --git a/base/serial/psb_cspspmm.f90 b/base/serial/psb_cspspmm.f90
index 72a50fbc..83f22012 100644
--- a/base/serial/psb_cspspmm.f90
+++ b/base/serial/psb_cspspmm.f90
@@ -37,7 +37,7 @@
 !
 subroutine psb_cspspmm(a,b,c,info)
   use psb_mat_mod
-  use psb_c_serial_mod, only : psb_ccscspspmm, psb_ccsrspspmm
+  use psb_c_serial_mod, psb_protect_name => psb_cspspmm
   implicit none 
 
   type(psb_cspmat_type), intent(in)    :: a,b
@@ -118,7 +118,7 @@ end subroutine psb_cspspmm
 
 subroutine psb_lcspspmm(a,b,c,info)
   use psb_mat_mod
-  use psb_c_serial_mod, only : psb_lccscspspmm, psb_lccsrspspmm
+  use psb_c_serial_mod, psb_protect_name => psb_lcspspmm
   implicit none 
 
   type(psb_lcspmat_type), intent(in)    :: a,b
diff --git a/base/serial/psb_csymbmm.f90 b/base/serial/psb_csymbmm.f90
index 24e7dda8..7dd65789 100644
--- a/base/serial/psb_csymbmm.f90
+++ b/base/serial/psb_csymbmm.f90
@@ -84,6 +84,7 @@ end subroutine psb_csymbmm
 
 subroutine psb_cbase_symbmm(a,b,c,info)
   use psb_mat_mod
+  use psb_sort_mod
   implicit none 
 
   class(psb_c_base_sparse_mat), intent(in) :: a,b
@@ -301,6 +302,7 @@ end subroutine psb_lcsymbmm
 
 subroutine psb_lcbase_symbmm(a,b,c,info)
   use psb_mat_mod
+  use psb_sort_mod
   implicit none 
 
   class(psb_lc_base_sparse_mat), intent(in) :: a,b
diff --git a/base/serial/psb_dspspmm.f90 b/base/serial/psb_dspspmm.f90
index c8e6cd66..e3e203d6 100644
--- a/base/serial/psb_dspspmm.f90
+++ b/base/serial/psb_dspspmm.f90
@@ -37,7 +37,7 @@
 !
 subroutine psb_dspspmm(a,b,c,info)
   use psb_mat_mod
-  use psb_d_serial_mod, only : psb_dcscspspmm, psb_dcsrspspmm
+  use psb_d_serial_mod, psb_protect_name => psb_dspspmm
   implicit none 
 
   type(psb_dspmat_type), intent(in)    :: a,b
@@ -118,7 +118,7 @@ end subroutine psb_dspspmm
 
 subroutine psb_ldspspmm(a,b,c,info)
   use psb_mat_mod
-  use psb_d_serial_mod, only : psb_ldcscspspmm, psb_ldcsrspspmm
+  use psb_d_serial_mod, psb_protect_name => psb_ldspspmm
   implicit none 
 
   type(psb_ldspmat_type), intent(in)    :: a,b
diff --git a/base/serial/psb_dsymbmm.f90 b/base/serial/psb_dsymbmm.f90
index fa6703eb..a1b59467 100644
--- a/base/serial/psb_dsymbmm.f90
+++ b/base/serial/psb_dsymbmm.f90
@@ -84,6 +84,7 @@ end subroutine psb_dsymbmm
 
 subroutine psb_dbase_symbmm(a,b,c,info)
   use psb_mat_mod
+  use psb_sort_mod
   implicit none 
 
   class(psb_d_base_sparse_mat), intent(in) :: a,b
@@ -301,6 +302,7 @@ end subroutine psb_ldsymbmm
 
 subroutine psb_ldbase_symbmm(a,b,c,info)
   use psb_mat_mod
+  use psb_sort_mod
   implicit none 
 
   class(psb_ld_base_sparse_mat), intent(in) :: a,b
diff --git a/base/serial/psb_sspspmm.f90 b/base/serial/psb_sspspmm.f90
index 82ee7836..e1ae9af3 100644
--- a/base/serial/psb_sspspmm.f90
+++ b/base/serial/psb_sspspmm.f90
@@ -37,7 +37,7 @@
 !
 subroutine psb_sspspmm(a,b,c,info)
   use psb_mat_mod
-  use psb_s_serial_mod, only : psb_scscspspmm, psb_scsrspspmm
+  use psb_s_serial_mod, psb_protect_name => psb_sspspmm
   implicit none 
 
   type(psb_sspmat_type), intent(in)    :: a,b
@@ -118,7 +118,7 @@ end subroutine psb_sspspmm
 
 subroutine psb_lsspspmm(a,b,c,info)
   use psb_mat_mod
-  use psb_s_serial_mod, only : psb_lscscspspmm, psb_lscsrspspmm
+  use psb_s_serial_mod, psb_protect_name => psb_lsspspmm
   implicit none 
 
   type(psb_lsspmat_type), intent(in)    :: a,b
diff --git a/base/serial/psb_ssymbmm.f90 b/base/serial/psb_ssymbmm.f90
index 22589899..3b5a41af 100644
--- a/base/serial/psb_ssymbmm.f90
+++ b/base/serial/psb_ssymbmm.f90
@@ -84,6 +84,7 @@ end subroutine psb_ssymbmm
 
 subroutine psb_sbase_symbmm(a,b,c,info)
   use psb_mat_mod
+  use psb_sort_mod
   implicit none 
 
   class(psb_s_base_sparse_mat), intent(in) :: a,b
@@ -301,6 +302,7 @@ end subroutine psb_lssymbmm
 
 subroutine psb_lsbase_symbmm(a,b,c,info)
   use psb_mat_mod
+  use psb_sort_mod
   implicit none 
 
   class(psb_ls_base_sparse_mat), intent(in) :: a,b
diff --git a/base/serial/psb_zspspmm.f90 b/base/serial/psb_zspspmm.f90
index cbf273e2..e7b3df44 100644
--- a/base/serial/psb_zspspmm.f90
+++ b/base/serial/psb_zspspmm.f90
@@ -37,7 +37,7 @@
 !
 subroutine psb_zspspmm(a,b,c,info)
   use psb_mat_mod
-  use psb_z_serial_mod, only : psb_zcscspspmm, psb_zcsrspspmm
+  use psb_z_serial_mod, psb_protect_name => psb_zspspmm
   implicit none 
 
   type(psb_zspmat_type), intent(in)    :: a,b
@@ -118,7 +118,7 @@ end subroutine psb_zspspmm
 
 subroutine psb_lzspspmm(a,b,c,info)
   use psb_mat_mod
-  use psb_z_serial_mod, only : psb_lzcscspspmm, psb_lzcsrspspmm
+  use psb_z_serial_mod, psb_protect_name => psb_lzspspmm
   implicit none 
 
   type(psb_lzspmat_type), intent(in)    :: a,b
diff --git a/base/serial/psb_zsymbmm.f90 b/base/serial/psb_zsymbmm.f90
index 24e9567c..5cbffb11 100644
--- a/base/serial/psb_zsymbmm.f90
+++ b/base/serial/psb_zsymbmm.f90
@@ -84,6 +84,7 @@ end subroutine psb_zsymbmm
 
 subroutine psb_zbase_symbmm(a,b,c,info)
   use psb_mat_mod
+  use psb_sort_mod
   implicit none 
 
   class(psb_z_base_sparse_mat), intent(in) :: a,b
@@ -301,6 +302,7 @@ end subroutine psb_lzsymbmm
 
 subroutine psb_lzbase_symbmm(a,b,c,info)
   use psb_mat_mod
+  use psb_sort_mod
   implicit none 
 
   class(psb_lz_base_sparse_mat), intent(in) :: a,b