Fix use statements in new par_spspmm

base/tools/psb_c_par_csr_spspmm.f90

@@ -63,6 +63,8 @@
 !
 Subroutine psb_c_par_csr_spspmm(acsr,desc_a,bcsr,ccsr,desc_c,info,data)
   use psb_mat_mod
+  use psb_comm_mod
+  use psb_penv_mod
   use psb_c_tools_mod, psb_protect_name => psb_c_par_csr_spspmm
   use psb_c_serial_mod, only : psb_ccsrspspmm, psb_cbase_rwextd
   Implicit None
@@ -161,6 +163,8 @@ End Subroutine psb_c_par_csr_spspmm
 
 Subroutine psb_lc_par_csr_spspmm(acsr,desc_a,bcsr,ccsr,desc_c,info,data)
   use psb_mat_mod
+  use psb_comm_mod
+  use psb_penv_mod
   use psb_c_tools_mod, psb_protect_name => psb_lc_par_csr_spspmm
   use psb_c_serial_mod, only : psb_lccsrspspmm, psb_lcbase_rwextd
   Implicit None

base/tools/psb_d_par_csr_spspmm.f90

@@ -63,6 +63,8 @@
 !
 Subroutine psb_d_par_csr_spspmm(acsr,desc_a,bcsr,ccsr,desc_c,info,data)
   use psb_mat_mod
+  use psb_comm_mod
+  use psb_penv_mod
   use psb_d_tools_mod, psb_protect_name => psb_d_par_csr_spspmm
   use psb_d_serial_mod, only : psb_dcsrspspmm, psb_dbase_rwextd
   Implicit None
@@ -161,6 +163,8 @@ End Subroutine psb_d_par_csr_spspmm
 
 Subroutine psb_ld_par_csr_spspmm(acsr,desc_a,bcsr,ccsr,desc_c,info,data)
   use psb_mat_mod
+  use psb_comm_mod
+  use psb_penv_mod
   use psb_d_tools_mod, psb_protect_name => psb_ld_par_csr_spspmm
   use psb_d_serial_mod, only : psb_ldcsrspspmm, psb_ldbase_rwextd
   Implicit None

base/tools/psb_s_par_csr_spspmm.f90

@@ -63,6 +63,8 @@
 !
 Subroutine psb_s_par_csr_spspmm(acsr,desc_a,bcsr,ccsr,desc_c,info,data)
   use psb_mat_mod
+  use psb_comm_mod
+  use psb_penv_mod
   use psb_s_tools_mod, psb_protect_name => psb_s_par_csr_spspmm
   use psb_s_serial_mod, only : psb_scsrspspmm, psb_sbase_rwextd
   Implicit None
@@ -161,6 +163,8 @@ End Subroutine psb_s_par_csr_spspmm
 
 Subroutine psb_ls_par_csr_spspmm(acsr,desc_a,bcsr,ccsr,desc_c,info,data)
   use psb_mat_mod
+  use psb_comm_mod
+  use psb_penv_mod
   use psb_s_tools_mod, psb_protect_name => psb_ls_par_csr_spspmm
   use psb_s_serial_mod, only : psb_lscsrspspmm, psb_lsbase_rwextd
   Implicit None

base/tools/psb_z_par_csr_spspmm.f90

@@ -63,6 +63,8 @@
 !
 Subroutine psb_z_par_csr_spspmm(acsr,desc_a,bcsr,ccsr,desc_c,info,data)
   use psb_mat_mod
+  use psb_comm_mod
+  use psb_penv_mod
   use psb_z_tools_mod, psb_protect_name => psb_z_par_csr_spspmm
   use psb_z_serial_mod, only : psb_zcsrspspmm, psb_zbase_rwextd
   Implicit None
@@ -161,6 +163,8 @@ End Subroutine psb_z_par_csr_spspmm
 
 Subroutine psb_lz_par_csr_spspmm(acsr,desc_a,bcsr,ccsr,desc_c,info,data)
   use psb_mat_mod
+  use psb_comm_mod
+  use psb_penv_mod
   use psb_z_tools_mod, psb_protect_name => psb_lz_par_csr_spspmm
   use psb_z_serial_mod, only : psb_lzcsrspspmm, psb_lzbase_rwextd
   Implicit None