From 23c9a71ed6459c9ed359319a5e1a510f841c13da Mon Sep 17 00:00:00 2001
From: Salvatore Filippone <salvatore.filippone@uniroma2.it>
Date: Thu, 15 Apr 2021 09:05:07 -0400
Subject: [PATCH] Merged changes from maintenance, improve serial compilation
 and fake MPI.

---
 base/internals/psi_xtr_loc_dl.F90 |  2 +-
 base/modules/fakempi.c            | 18 ++++++++++++++----
 2 files changed, 15 insertions(+), 5 deletions(-)

diff --git a/base/internals/psi_xtr_loc_dl.F90 b/base/internals/psi_xtr_loc_dl.F90
index 8275add9..c920ade1 100644
--- a/base/internals/psi_xtr_loc_dl.F90
+++ b/base/internals/psi_xtr_loc_dl.F90
@@ -209,7 +209,7 @@ subroutine psi_i_xtr_loc_dl(ctxt,is_bld,is_upd,desc_str,loc_dl,length_dl,info)
   call psb_msort_unique(loc_dl(1:pdl),ldu)
   pdl = ldu
   call psb_realloc(pdl,loc_dl,info)
-  call psi_symm_dep_list(loc_dl,ctxt,info)       
+  if (np>1) call psi_symm_dep_list(loc_dl,ctxt,info)       
   pdl = size(loc_dl)
   length_dl     = 0
   length_dl(me) = pdl
diff --git a/base/modules/fakempi.c b/base/modules/fakempi.c
index 9bf81733..7d56938f 100644
--- a/base/modules/fakempi.c
+++ b/base/modules/fakempi.c
@@ -117,20 +117,30 @@ double mpi_wtime()
 }
 
 
-void mpi_wait()
+void mpi_wait(int *request, int* status, int *ierr)
+
 {
+  *ierr = 0;  
   return;
 }
-void mpi_send()
+void mpi_send(void* buf, int* count, int* datatype,
+	      int *dest, int *tag, int *comm, int *ierr)
 {
+  *ierr = 0;
   return;
 }
-void mpi_isend()
+void mpi_isend(void* buf, int* count, int* datatype,
+	       int *dest, int *tag, int *comm, int *request,
+	       int *ierr)
 {
+  *ierr = 0;
   return;
 }
-void mpi_irecv()
+void mpi_irecv(void* buf, int* count, int* datatype,
+	       int *src, int *tag, int *comm, int *request,
+	       int *ierr)
 {
+  *ierr = 0;
   return;
 }