2004-10-29 19:30:03 +04:00
|
|
|
module mpi_kinds
|
|
|
|
|
2004-12-10 20:28:41 +03:00
|
|
|
include "mpif.h"
|
|
|
|
|
2004-11-22 03:37:56 +03:00
|
|
|
!
|
2004-11-22 04:38:40 +03:00
|
|
|
! Copyright (c) 2004-2005 The Trustees of Indiana University.
|
|
|
|
! All rights reserved.
|
|
|
|
! Copyright (c) 2004-2005 The Trustees of the University of Tennessee.
|
|
|
|
! All rights reserved.
|
2004-11-28 23:09:25 +03:00
|
|
|
! Copyright (c) 2004-2005 High Performance Computing Center Stuttgart,
|
|
|
|
! University of Stuttgart. All rights reserved.
|
2004-11-22 04:38:40 +03:00
|
|
|
! $COPYRIGHT$
|
|
|
|
!
|
|
|
|
! Additional copyrights may follow
|
|
|
|
!
|
2004-11-22 03:37:56 +03:00
|
|
|
! $HEADER$
|
|
|
|
!
|
|
|
|
|
2004-11-01 20:41:16 +03:00
|
|
|
!
|
|
|
|
! kind for 4 byte integer (selected_int_kind(18) for 8 byte integer)
|
|
|
|
! (WARNING, Compiler dependent)
|
|
|
|
!
|
|
|
|
integer :: MPI_ADDRESS_KIND
|
2004-10-29 19:30:03 +04:00
|
|
|
parameter(MPI_ADDRESS_KIND = selected_int_kind(9))
|
|
|
|
|
2004-12-10 20:28:41 +03:00
|
|
|
!
|
|
|
|
! kind for int64_t equivalent, used for offsets
|
|
|
|
!
|
|
|
|
integer :: MPI_OFFSET_KIND
|
|
|
|
parameter(MPI_OFFSET_KIND = selected_int_kind(18))
|
|
|
|
|
2004-11-01 20:41:16 +03:00
|
|
|
!
|
|
|
|
! integer kinds
|
|
|
|
!
|
|
|
|
|
|
|
|
integer :: MPI_INTEGER1_KIND, MPI_INTEGER2_KIND, MPI_INTEGER4_KIND
|
|
|
|
integer :: MPI_INTEGER8_KIND, MPI_INTEGER16_KIND
|
|
|
|
parameter(MPI_INTEGER1_KIND = selected_int_kind(2))
|
|
|
|
parameter(MPI_INTEGER2_KIND = selected_int_kind(4))
|
|
|
|
parameter(MPI_INTEGER4_KIND = selected_int_kind(9))
|
|
|
|
parameter(MPI_INTEGER8_KIND = selected_int_kind(18))
|
|
|
|
parameter(MPI_INTEGER16_KIND = selected_int_kind(19))
|
|
|
|
|
2004-12-26 00:19:32 +03:00
|
|
|
!
|
|
|
|
! 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))
|
|
|
|
|
2004-10-29 19:30:03 +04:00
|
|
|
end module mpi_kinds
|
|
|
|
|
2004-12-26 00:19:32 +03:00
|
|
|
|
2004-10-29 19:30:03 +04:00
|
|
|
module mpi
|
|
|
|
|
|
|
|
use mpi_kinds
|
|
|
|
|
2004-12-10 20:28:41 +03:00
|
|
|
include "mpi.i.h"
|
2004-10-29 19:30:03 +04:00
|
|
|
|
|
|
|
end module mpi
|