psblas3:

fixed fake mpi for --enable-serial.

base/modules/psi_comm_buffers_mod.F90

@@ -1,3 +1,25 @@
+#if defined(SERIAL_MPI)
+! Provide a fake mpi module just to keep the compiler(s) happy.
+module mpi
+  use psb_const_mod
+  integer, parameter :: mpi_success=0
+  integer, parameter :: mpi_request_null=0
+  integer, parameter :: mpi_status_size=1
+  integer, parameter :: mpi_integer          = 1
+  integer, parameter :: mpi_integer8         = 2
+  integer, parameter :: mpi_real             = 3
+  integer, parameter :: mpi_double_precision = 4
+  integer, parameter :: mpi_complex          = 5   
+  integer, parameter :: mpi_double_complex   = 6 
+  integer, parameter :: mpi_character        = 7
+  integer, parameter :: mpi_logical          = 8
+  integer, parameter :: mpi_comm_null        = -1
+  integer, parameter :: mpi_comm_world       = 1
+  
+  real(psb_dpk_), external :: mpi_wtime
+end module mpi
+#endif    
+
 module psi_comm_buffers_mod
   use psb_const_mod
 

base/modules/psi_penv_mod.F90

@@ -92,6 +92,8 @@ contains
     psb_mpi_integer = mpi_integer
 #endif
 
+#if defined(SERIAL_MPI)
+#else 
     if (info == 0) call mpi_op_create(psi_iamx_op,.true.,mpi_iamx_op,info)
     if (info == 0) call mpi_op_create(psi_iamn_op,.true.,mpi_iamn_op,info)
     if (info == 0) call mpi_op_create(psi_i8amx_op,.true.,mpi_i8amx_op,info)
@@ -106,7 +108,7 @@ contains
     if (info == 0) call mpi_op_create(psi_zamn_op,.true.,mpi_zamn_op,info)
     if (info == 0) call mpi_op_create(psi_snrm2_op,.true.,mpi_snrm2_op,info)
     if (info == 0) call mpi_op_create(psi_dnrm2_op,.true.,mpi_dnrm2_op,info)
-
+#endif
   end subroutine psi_register_mpi_extras
 
 
@@ -327,11 +329,11 @@ contains
     if (present(errc)) then 
       code = errc
     else
-      core = -1 
+      code = -1 
     endif
 
 #if defined(SERIAL_MPI) 
-    stop code
+    stop 
 #else    
     call mpi_abort(ictxt,code,info)
 #endif