From dffa250111146f64af4568fd21d2b19104383b2e Mon Sep 17 00:00:00 2001 From: Craig E Rasmussen Date: Sat, 25 Dec 2004 21:19:32 +0000 Subject: [PATCH] Added real kinds. This commit was SVN r3878. --- src/mpi/f90/mpi.f90 | 12 ++++++++++++ 1 file changed, 12 insertions(+) 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