Use selected_int_kind(13) to get an 8-byte integer

Needed for tests to compile with NAG compiler. See Issue #5.
E3SM-Project · Dec 5, 2014 · 05b0b62 · 05b0b62
1 parent ea56905
commit 05b0b62
Showing 1 changed file with 2 additions and 7 deletions.
diff --git a/mpi-serial/mpif.F90 b/mpi-serial/mpif.F90
@@ -4,13 +4,8 @@
 
 Module mpi
 implicit none
-! MPI_ADDRESS_KIND: typekind 4 should be 4 byte integer,
-!                   and typekind 8 be 8-byte integer, etc.
-#ifdef SIZEOF_LONG
-        INTEGER, PARAMETER, PUBLIC :: MPI_ADDRESS_KIND=SIZEOF_LONG
-#else
-        INTEGER, PARAMETER, PUBLIC :: MPI_ADDRESS_KIND=8
-#endif
+! MPI_ADDRESS_KIND: need an 8-byte integer.
+        INTEGER, PARAMETER, PUBLIC :: MPI_ADDRESS_KIND=selected_int_kind(13)
 
 
         include "mpif.h"