diff --git a/src/mpi/f90/mpi.f90 b/src/mpi/f90/mpi.f90 index 9391496e63..fff10cd4df 100644 --- a/src/mpi/f90/mpi.f90 +++ b/src/mpi/f90/mpi.f90 @@ -41,8 +41,20 @@ module mpi_kinds parameter(MPI_INTEGER8_KIND = selected_int_kind(18)) parameter(MPI_INTEGER16_KIND = selected_int_kind(19)) +! +! real kinds +! + + integer :: MPI_REAL4_KIND, MPI_REAL8_KIND + integer :: MPI_REAL16_KIND, MPI_REAL32_KIND + parameter(MPI_REAL4_KIND = selected_real_kind(6)) + parameter(MPI_REAL8_KIND = selected_real_kind(15)) + parameter(MPI_REAL16_KIND = selected_real_kind(31)) + parameter(MPI_REAL32_KIND = selected_real_kind(32)) + end module mpi_kinds + module mpi use mpi_kinds