Fix typo

1 year ago · b850c0ef6a
parent f7d2c856ec
commit b850c0ef6a
7 changed files with 7 additions and 7 deletions
--- a/base/modules/penv/psi_c_collective_mod.F90
+++ b/base/modules/penv/psi_c_collective_mod.F90
@ -160,7 +160,7 @@ contains
    use mpi
 #endif
    implicit none 
-#ifdef MP.I_H
+#ifdef MPI_H
    include 'mpif.h'
 #endif
    type(psb_ctxt_type), intent(in)              :: ctxt
--- a/base/modules/penv/psi_d_collective_mod.F90
+++ b/base/modules/penv/psi_d_collective_mod.F90
@ -800,7 +800,7 @@ contains
    use mpi
 #endif
    implicit none 
-#ifdef MP.I_H
+#ifdef MPI_H
    include 'mpif.h'
 #endif
    type(psb_ctxt_type), intent(in)              :: ctxt
--- a/base/modules/penv/psi_e_collective_mod.F90
+++ b/base/modules/penv/psi_e_collective_mod.F90
@ -638,7 +638,7 @@ contains
    use mpi
 #endif
    implicit none 
-#ifdef MP.I_H
+#ifdef MPI_H
    include 'mpif.h'
 #endif
    type(psb_ctxt_type), intent(in)              :: ctxt
--- a/base/modules/penv/psi_i2_collective_mod.F90
+++ b/base/modules/penv/psi_i2_collective_mod.F90
@ -638,7 +638,7 @@ contains
    use mpi
 #endif
    implicit none 
-#ifdef MP.I_H
+#ifdef MPI_H
    include 'mpif.h'
 #endif
    type(psb_ctxt_type), intent(in)              :: ctxt
--- a/base/modules/penv/psi_m_collective_mod.F90
+++ b/base/modules/penv/psi_m_collective_mod.F90
@ -638,7 +638,7 @@ contains
    use mpi
 #endif
    implicit none 
-#ifdef MP.I_H
+#ifdef MPI_H
    include 'mpif.h'
 #endif
    type(psb_ctxt_type), intent(in)              :: ctxt
--- a/base/modules/penv/psi_s_collective_mod.F90
+++ b/base/modules/penv/psi_s_collective_mod.F90
@ -800,7 +800,7 @@ contains
    use mpi
 #endif
    implicit none 
-#ifdef MP.I_H
+#ifdef MPI_H
    include 'mpif.h'
 #endif
    type(psb_ctxt_type), intent(in)              :: ctxt
--- a/base/modules/penv/psi_z_collective_mod.F90
+++ b/base/modules/penv/psi_z_collective_mod.F90
@ -160,7 +160,7 @@ contains
    use mpi
 #endif
    implicit none 
-#ifdef MP.I_H
+#ifdef MPI_H
    include 'mpif.h'
 #endif
    type(psb_ctxt_type), intent(in)              :: ctxt