Corrected call to use mpi

base/psblas/psb_cgetmatinfo.F90

@@ -37,9 +37,13 @@
 function  psb_cget_nnz(a,desc_a,info) result(res)
   use psb_base_mod, psb_protect_name => psb_cget_nnz
   use psi_mod
-  use mpi
+#ifdef MPI_MOD
-
+      use mpi
-  implicit none
+#endif
+      implicit none
+#ifdef MPI_H
+      include 'mpif.h'
+#endif
 
   integer(psb_lpk_)                     :: res
   type(psb_cspmat_type), intent(in)   :: a

base/psblas/psb_dgetmatinfo.F90

@@ -37,9 +37,13 @@
 function  psb_dget_nnz(a,desc_a,info) result(res)
   use psb_base_mod, psb_protect_name => psb_dget_nnz
   use psi_mod
-  use mpi
+#ifdef MPI_MOD
-
+      use mpi
-  implicit none
+#endif
+      implicit none
+#ifdef MPI_H
+      include 'mpif.h'
+#endif
 
   integer(psb_lpk_)                     :: res
   type(psb_dspmat_type), intent(in)   :: a

base/psblas/psb_sgetmatinfo.F90

@@ -37,9 +37,13 @@
 function  psb_sget_nnz(a,desc_a,info) result(res)
   use psb_base_mod, psb_protect_name => psb_sget_nnz
   use psi_mod
-  use mpi
+#ifdef MPI_MOD
-
+      use mpi
-  implicit none
+#endif
+      implicit none
+#ifdef MPI_H
+      include 'mpif.h'
+#endif
 
   integer(psb_lpk_)                     :: res
   type(psb_sspmat_type), intent(in)   :: a

base/psblas/psb_zgetmatinfo.F90

@@ -37,9 +37,13 @@
 function  psb_zget_nnz(a,desc_a,info) result(res)
   use psb_base_mod, psb_protect_name => psb_zget_nnz
   use psi_mod
-  use mpi
+#ifdef MPI_MOD
-
+      use mpi
-  implicit none
+#endif
+      implicit none
+#ifdef MPI_H
+      include 'mpif.h'
+#endif
 
   integer(psb_lpk_)                     :: res
   type(psb_zspmat_type), intent(in)   :: a