Fix use of mpi_comm_null

3 years ago · 6945b1495e
parent 1d138f2d54
commit 6945b1495e
1 changed files with 14 additions and 0 deletions
--- a/base/modules/penv/psi_penv_mod.F90
+++ b/base/modules/penv/psi_penv_mod.F90
@ -1138,6 +1138,13 @@ contains


  function psb_m_get_mpi_comm(ctxt) result(comm)
+#ifdef MPI_MOD
+    use mpi
+#endif
+    implicit none 
+#ifdef MPI_H
+    include 'mpif.h'
+#endif
    type(psb_ctxt_type) :: ctxt
    integer(psb_mpk_) :: comm
    comm = mpi_comm_null
@ -1153,6 +1160,13 @@ contains
  end function psb_m_get_mpi_rank

  subroutine psb_get_mpicomm(ctxt,comm)
+#ifdef MPI_MOD
+    use mpi
+#endif
+    implicit none 
+#ifdef MPI_H
+    include 'mpif.h'
+#endif
    type(psb_ctxt_type) :: ctxt
    integer(psb_mpk_) :: comm
    comm = mpi_comm_null