Fix compile mismatch warnings

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

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

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

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

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

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

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

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