From 4674de97cf4242ed00f4e23648482e5c41031ecd Mon Sep 17 00:00:00 2001
From: Cirdans-Home <f.durastante@na.iac.cnr.it>
Date: Wed, 25 Nov 2020 17:48:37 +0100
Subject: [PATCH] Corrected call to use mpi

---
 .../{psb_cgetmatinfo.f90 => psb_cgetmatinfo.F90}       | 10 +++++++---
 .../{psb_dgetmatinfo.f90 => psb_dgetmatinfo.F90}       | 10 +++++++---
 .../{psb_sgetmatinfo.f90 => psb_sgetmatinfo.F90}       | 10 +++++++---
 .../{psb_zgetmatinfo.f90 => psb_zgetmatinfo.F90}       | 10 +++++++---
 4 files changed, 28 insertions(+), 12 deletions(-)
 rename base/psblas/{psb_cgetmatinfo.f90 => psb_cgetmatinfo.F90} (96%)
 rename base/psblas/{psb_dgetmatinfo.f90 => psb_dgetmatinfo.F90} (96%)
 rename base/psblas/{psb_sgetmatinfo.f90 => psb_sgetmatinfo.F90} (96%)
 rename base/psblas/{psb_zgetmatinfo.f90 => psb_zgetmatinfo.F90} (96%)

diff --git a/base/psblas/psb_cgetmatinfo.f90 b/base/psblas/psb_cgetmatinfo.F90
similarity index 96%
rename from base/psblas/psb_cgetmatinfo.f90
rename to base/psblas/psb_cgetmatinfo.F90
index f9c77166..fdfb0cba 100644
--- a/base/psblas/psb_cgetmatinfo.f90
+++ b/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
-
-  implicit none
+#ifdef MPI_MOD
+      use mpi
+#endif
+      implicit none
+#ifdef MPI_H
+      include 'mpif.h'
+#endif
 
   integer(psb_lpk_)                     :: res
   type(psb_cspmat_type), intent(in)   :: a
diff --git a/base/psblas/psb_dgetmatinfo.f90 b/base/psblas/psb_dgetmatinfo.F90
similarity index 96%
rename from base/psblas/psb_dgetmatinfo.f90
rename to base/psblas/psb_dgetmatinfo.F90
index 51ef5ca8..16a1d3ca 100644
--- a/base/psblas/psb_dgetmatinfo.f90
+++ b/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
-
-  implicit none
+#ifdef MPI_MOD
+      use mpi
+#endif
+      implicit none
+#ifdef MPI_H
+      include 'mpif.h'
+#endif
 
   integer(psb_lpk_)                     :: res
   type(psb_dspmat_type), intent(in)   :: a
diff --git a/base/psblas/psb_sgetmatinfo.f90 b/base/psblas/psb_sgetmatinfo.F90
similarity index 96%
rename from base/psblas/psb_sgetmatinfo.f90
rename to base/psblas/psb_sgetmatinfo.F90
index 2da00f27..abf1210c 100644
--- a/base/psblas/psb_sgetmatinfo.f90
+++ b/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
-
-  implicit none
+#ifdef MPI_MOD
+      use mpi
+#endif
+      implicit none
+#ifdef MPI_H
+      include 'mpif.h'
+#endif
 
   integer(psb_lpk_)                     :: res
   type(psb_sspmat_type), intent(in)   :: a
diff --git a/base/psblas/psb_zgetmatinfo.f90 b/base/psblas/psb_zgetmatinfo.F90
similarity index 96%
rename from base/psblas/psb_zgetmatinfo.f90
rename to base/psblas/psb_zgetmatinfo.F90
index 08482963..fab395f2 100644
--- a/base/psblas/psb_zgetmatinfo.f90
+++ b/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
-
-  implicit none
+#ifdef MPI_MOD
+      use mpi
+#endif
+      implicit none
+#ifdef MPI_H
+      include 'mpif.h'
+#endif
 
   integer(psb_lpk_)                     :: res
   type(psb_zspmat_type), intent(in)   :: a