mpp_mod_oa.F90 File Reference

#include <os.h>
#include <mpp_transmit.h>
#include <mpp_reduce.h>
#include <mpp_sum.h>
#include <mpp_chksum_int.h>
#include <mpp_chksum.h>

Include dependency graph for mpp_mod_oa.F90:

Go to the source code of this file.

Data Types
type	mpp_mod_oa::communicator
type	mpp_mod_oa::event
type	mpp_mod_oa::clock
type	mpp_mod_oa::Clock_Data_Summary
type	mpp_mod_oa::Summary_Struct
interface	mpp_mod_oa::mpp_max
interface	mpp_mod_oa::mpp_min
interface	mpp_mod_oa::mpp_sum
interface	mpp_mod_oa::mpp_transmit
interface	mpp_mod_oa::mpp_recv
interface	mpp_mod_oa::mpp_send
interface	mpp_mod_oa::mpp_broadcast
interface	mpp_mod_oa::mpp_chksum
interface	mpp_mod_oa::mpp_error
Modules
module	mpp_mod_oa
Defines
#define	MPP_TRANSMIT_   mpp_transmit_real8
#define	MPP_TRANSMIT_SCALAR_   mpp_transmit_real8_scalar
#define	MPP_TRANSMIT_2D_   mpp_transmit_real8_2d
#define	MPP_TRANSMIT_3D_   mpp_transmit_real8_3d
#define	MPP_TRANSMIT_4D_   mpp_transmit_real8_4d
#define	MPP_TRANSMIT_5D_   mpp_transmit_real8_5d
#define	MPP_RECV_   mpp_recv_real8
#define	MPP_RECV_SCALAR_   mpp_recv_real8_scalar
#define	MPP_RECV_2D_   mpp_recv_real8_2d
#define	MPP_RECV_3D_   mpp_recv_real8_3d
#define	MPP_RECV_4D_   mpp_recv_real8_4d
#define	MPP_RECV_5D_   mpp_recv_real8_5d
#define	MPP_SEND_   mpp_send_real8
#define	MPP_SEND_SCALAR_   mpp_send_real8_scalar
#define	MPP_SEND_2D_   mpp_send_real8_2d
#define	MPP_SEND_3D_   mpp_send_real8_3d
#define	MPP_SEND_4D_   mpp_send_real8_4d
#define	MPP_SEND_5D_   mpp_send_real8_5d
#define	MPP_BROADCAST_   mpp_broadcast_real8
#define	MPP_BROADCAST_SCALAR_   mpp_broadcast_real8_scalar
#define	MPP_BROADCAST_2D_   mpp_broadcast_real8_2d
#define	MPP_BROADCAST_3D_   mpp_broadcast_real8_3d
#define	MPP_BROADCAST_4D_   mpp_broadcast_real8_4d
#define	MPP_BROADCAST_5D_   mpp_broadcast_real8_5d
#define	MPP_TYPE_   real(DOUBLE_KIND)
#define	MPP_TYPE_BYTELEN_   8
#define	MPI_TYPE_   MPI_REAL8
#define	SHMEM_BROADCAST_   SHMEM_BROADCAST8
#define	SHMEM_GET_   SHMEM_GET8
#define	MPP_TRANSMIT_   mpp_transmit_real4
#define	MPP_TRANSMIT_SCALAR_   mpp_transmit_real4_scalar
#define	MPP_TRANSMIT_2D_   mpp_transmit_real4_2d
#define	MPP_TRANSMIT_3D_   mpp_transmit_real4_3d
#define	MPP_TRANSMIT_4D_   mpp_transmit_real4_4d
#define	MPP_TRANSMIT_5D_   mpp_transmit_real4_5d
#define	MPP_RECV_   mpp_recv_real4
#define	MPP_RECV_SCALAR_   mpp_recv_real4_scalar
#define	MPP_RECV_2D_   mpp_recv_real4_2d
#define	MPP_RECV_3D_   mpp_recv_real4_3d
#define	MPP_RECV_4D_   mpp_recv_real4_4d
#define	MPP_RECV_5D_   mpp_recv_real4_5d
#define	MPP_SEND_   mpp_send_real4
#define	MPP_SEND_SCALAR_   mpp_send_real4_scalar
#define	MPP_SEND_2D_   mpp_send_real4_2d
#define	MPP_SEND_3D_   mpp_send_real4_3d
#define	MPP_SEND_4D_   mpp_send_real4_4d
#define	MPP_SEND_5D_   mpp_send_real4_5d
#define	MPP_BROADCAST_   mpp_broadcast_real4
#define	MPP_BROADCAST_SCALAR_   mpp_broadcast_real4_scalar
#define	MPP_BROADCAST_2D_   mpp_broadcast_real4_2d
#define	MPP_BROADCAST_3D_   mpp_broadcast_real4_3d
#define	MPP_BROADCAST_4D_   mpp_broadcast_real4_4d
#define	MPP_BROADCAST_5D_   mpp_broadcast_real4_5d
#define	MPP_TYPE_   real(FLOAT_KIND)
#define	MPP_TYPE_BYTELEN_   4
#define	MPI_TYPE_   MPI_REAL4
#define	SHMEM_BROADCAST_   SHMEM_BROADCAST4
#define	SHMEM_GET_   SHMEM_GET4
#define	MPP_TRANSMIT_   mpp_transmit_cmplx8
#define	MPP_TRANSMIT_SCALAR_   mpp_transmit_cmplx8_scalar
#define	MPP_TRANSMIT_2D_   mpp_transmit_cmplx8_2d
#define	MPP_TRANSMIT_3D_   mpp_transmit_cmplx8_3d
#define	MPP_TRANSMIT_4D_   mpp_transmit_cmplx8_4d
#define	MPP_TRANSMIT_5D_   mpp_transmit_cmplx8_5d
#define	MPP_RECV_   mpp_recv_cmplx8
#define	MPP_RECV_SCALAR_   mpp_recv_cmplx8_scalar
#define	MPP_RECV_2D_   mpp_recv_cmplx8_2d
#define	MPP_RECV_3D_   mpp_recv_cmplx8_3d
#define	MPP_RECV_4D_   mpp_recv_cmplx8_4d
#define	MPP_RECV_5D_   mpp_recv_cmplx8_5d
#define	MPP_SEND_   mpp_send_cmplx8
#define	MPP_SEND_SCALAR_   mpp_send_cmplx8_scalar
#define	MPP_SEND_2D_   mpp_send_cmplx8_2d
#define	MPP_SEND_3D_   mpp_send_cmplx8_3d
#define	MPP_SEND_4D_   mpp_send_cmplx8_4d
#define	MPP_SEND_5D_   mpp_send_cmplx8_5d
#define	MPP_BROADCAST_   mpp_broadcast_cmplx8
#define	MPP_BROADCAST_SCALAR_   mpp_broadcast_cmplx8_scalar
#define	MPP_BROADCAST_2D_   mpp_broadcast_cmplx8_2d
#define	MPP_BROADCAST_3D_   mpp_broadcast_cmplx8_3d
#define	MPP_BROADCAST_4D_   mpp_broadcast_cmplx8_4d
#define	MPP_BROADCAST_5D_   mpp_broadcast_cmplx8_5d
#define	MPP_TYPE_   complex(DOUBLE_KIND)
#define	MPP_TYPE_BYTELEN_   16
#define	MPI_TYPE_   MPI_DOUBLE_COMPLEX
#define	SHMEM_BROADCAST_   SHMEM_BROADCAST8
#define	SHMEM_GET_   SHMEM_GET128
#define	MPP_TRANSMIT_   mpp_transmit_cmplx4
#define	MPP_TRANSMIT_SCALAR_   mpp_transmit_cmplx4_scalar
#define	MPP_TRANSMIT_2D_   mpp_transmit_cmplx4_2d
#define	MPP_TRANSMIT_3D_   mpp_transmit_cmplx4_3d
#define	MPP_TRANSMIT_4D_   mpp_transmit_cmplx4_4d
#define	MPP_TRANSMIT_5D_   mpp_transmit_cmplx4_5d
#define	MPP_RECV_   mpp_recv_cmplx4
#define	MPP_RECV_SCALAR_   mpp_recv_cmplx4_scalar
#define	MPP_RECV_2D_   mpp_recv_cmplx4_2d
#define	MPP_RECV_3D_   mpp_recv_cmplx4_3d
#define	MPP_RECV_4D_   mpp_recv_cmplx4_4d
#define	MPP_RECV_5D_   mpp_recv_cmplx4_5d
#define	MPP_SEND_   mpp_send_cmplx4
#define	MPP_SEND_SCALAR_   mpp_send_cmplx4_scalar
#define	MPP_SEND_2D_   mpp_send_cmplx4_2d
#define	MPP_SEND_3D_   mpp_send_cmplx4_3d
#define	MPP_SEND_4D_   mpp_send_cmplx4_4d
#define	MPP_SEND_5D_   mpp_send_cmplx4_5d
#define	MPP_BROADCAST_   mpp_broadcast_cmplx4
#define	MPP_BROADCAST_SCALAR_   mpp_broadcast_cmplx4_scalar
#define	MPP_BROADCAST_2D_   mpp_broadcast_cmplx4_2d
#define	MPP_BROADCAST_3D_   mpp_broadcast_cmplx4_3d
#define	MPP_BROADCAST_4D_   mpp_broadcast_cmplx4_4d
#define	MPP_BROADCAST_5D_   mpp_broadcast_cmplx4_5d
#define	MPP_TYPE_   complex(FLOAT_KIND)
#define	MPP_TYPE_BYTELEN_   8
#define	MPI_TYPE_   MPI_COMPLEX
#define	SHMEM_BROADCAST_   SHMEM_BROADCAST4
#define	SHMEM_GET_   SHMEM_GET64
#define	MPP_TRANSMIT_   mpp_transmit_int8
#define	MPP_TRANSMIT_SCALAR_   mpp_transmit_int8_scalar
#define	MPP_TRANSMIT_2D_   mpp_transmit_int8_2d
#define	MPP_TRANSMIT_3D_   mpp_transmit_int8_3d
#define	MPP_TRANSMIT_4D_   mpp_transmit_int8_4d
#define	MPP_TRANSMIT_5D_   mpp_transmit_int8_5d
#define	MPP_RECV_   mpp_recv_int8
#define	MPP_RECV_SCALAR_   mpp_recv_int8_scalar
#define	MPP_RECV_2D_   mpp_recv_int8_2d
#define	MPP_RECV_3D_   mpp_recv_int8_3d
#define	MPP_RECV_4D_   mpp_recv_int8_4d
#define	MPP_RECV_5D_   mpp_recv_int8_5d
#define	MPP_SEND_   mpp_send_int8
#define	MPP_SEND_SCALAR_   mpp_send_int8_scalar
#define	MPP_SEND_2D_   mpp_send_int8_2d
#define	MPP_SEND_3D_   mpp_send_int8_3d
#define	MPP_SEND_4D_   mpp_send_int8_4d
#define	MPP_SEND_5D_   mpp_send_int8_5d
#define	MPP_BROADCAST_   mpp_broadcast_int8
#define	MPP_BROADCAST_SCALAR_   mpp_broadcast_int8_scalar
#define	MPP_BROADCAST_2D_   mpp_broadcast_int8_2d
#define	MPP_BROADCAST_3D_   mpp_broadcast_int8_3d
#define	MPP_BROADCAST_4D_   mpp_broadcast_int8_4d
#define	MPP_BROADCAST_5D_   mpp_broadcast_int8_5d
#define	MPP_TYPE_   integer(LONG_KIND)
#define	MPP_TYPE_BYTELEN_   8
#define	MPI_TYPE_   MPI_INTEGER8
#define	SHMEM_BROADCAST_   SHMEM_BROADCAST8
#define	SHMEM_GET_   SHMEM_GET8
#define	MPP_TRANSMIT_   mpp_transmit_int4
#define	MPP_TRANSMIT_SCALAR_   mpp_transmit_int4_scalar
#define	MPP_TRANSMIT_2D_   mpp_transmit_int4_2d
#define	MPP_TRANSMIT_3D_   mpp_transmit_int4_3d
#define	MPP_TRANSMIT_4D_   mpp_transmit_int4_4d
#define	MPP_TRANSMIT_5D_   mpp_transmit_int4_5d
#define	MPP_RECV_   mpp_recv_int4
#define	MPP_RECV_SCALAR_   mpp_recv_int4_scalar
#define	MPP_RECV_2D_   mpp_recv_int4_2d
#define	MPP_RECV_3D_   mpp_recv_int4_3d
#define	MPP_RECV_4D_   mpp_recv_int4_4d
#define	MPP_RECV_5D_   mpp_recv_int4_5d
#define	MPP_SEND_   mpp_send_int4
#define	MPP_SEND_SCALAR_   mpp_send_int4_scalar
#define	MPP_SEND_2D_   mpp_send_int4_2d
#define	MPP_SEND_3D_   mpp_send_int4_3d
#define	MPP_SEND_4D_   mpp_send_int4_4d
#define	MPP_SEND_5D_   mpp_send_int4_5d
#define	MPP_BROADCAST_   mpp_broadcast_int4
#define	MPP_BROADCAST_SCALAR_   mpp_broadcast_int4_scalar
#define	MPP_BROADCAST_2D_   mpp_broadcast_int4_2d
#define	MPP_BROADCAST_3D_   mpp_broadcast_int4_3d
#define	MPP_BROADCAST_4D_   mpp_broadcast_int4_4d
#define	MPP_BROADCAST_5D_   mpp_broadcast_int4_5d
#define	MPP_TYPE_   integer(INT_KIND)
#define	MPP_TYPE_BYTELEN_   4
#define	MPI_TYPE_   MPI_INTEGER4
#define	SHMEM_BROADCAST_   SHMEM_BROADCAST4
#define	SHMEM_GET_   SHMEM_GET4
#define	MPP_TRANSMIT_   mpp_transmit_logical8
#define	MPP_TRANSMIT_SCALAR_   mpp_transmit_logical8_scalar
#define	MPP_TRANSMIT_2D_   mpp_transmit_logical8_2d
#define	MPP_TRANSMIT_3D_   mpp_transmit_logical8_3d
#define	MPP_TRANSMIT_4D_   mpp_transmit_logical8_4d
#define	MPP_TRANSMIT_5D_   mpp_transmit_logical8_5d
#define	MPP_RECV_   mpp_recv_logical8
#define	MPP_RECV_SCALAR_   mpp_recv_logical8_scalar
#define	MPP_RECV_2D_   mpp_recv_logical8_2d
#define	MPP_RECV_3D_   mpp_recv_logical8_3d
#define	MPP_RECV_4D_   mpp_recv_logical8_4d
#define	MPP_RECV_5D_   mpp_recv_logical8_5d
#define	MPP_SEND_   mpp_send_logical8
#define	MPP_SEND_SCALAR_   mpp_send_logical8_scalar
#define	MPP_SEND_2D_   mpp_send_logical8_2d
#define	MPP_SEND_3D_   mpp_send_logical8_3d
#define	MPP_SEND_4D_   mpp_send_logical8_4d
#define	MPP_SEND_5D_   mpp_send_logical8_5d
#define	MPP_BROADCAST_   mpp_broadcast_logical8
#define	MPP_BROADCAST_SCALAR_   mpp_broadcast_logical8_scalar
#define	MPP_BROADCAST_2D_   mpp_broadcast_logical8_2d
#define	MPP_BROADCAST_3D_   mpp_broadcast_logical8_3d
#define	MPP_BROADCAST_4D_   mpp_broadcast_logical8_4d
#define	MPP_BROADCAST_5D_   mpp_broadcast_logical8_5d
#define	MPP_TYPE_   logical(LONG_KIND)
#define	MPP_TYPE_BYTELEN_   8
#define	MPI_TYPE_   MPI_INTEGER8
#define	SHMEM_BROADCAST_   SHMEM_BROADCAST8
#define	SHMEM_GET_   SHMEM_GET8
#define	MPP_TRANSMIT_   mpp_transmit_logical4
#define	MPP_TRANSMIT_SCALAR_   mpp_transmit_logical4_scalar
#define	MPP_TRANSMIT_2D_   mpp_transmit_logical4_2d
#define	MPP_TRANSMIT_3D_   mpp_transmit_logical4_3d
#define	MPP_TRANSMIT_4D_   mpp_transmit_logical4_4d
#define	MPP_TRANSMIT_5D_   mpp_transmit_logical4_5d
#define	MPP_RECV_   mpp_recv_logical4
#define	MPP_RECV_SCALAR_   mpp_recv_logical4_scalar
#define	MPP_RECV_2D_   mpp_recv_logical4_2d
#define	MPP_RECV_3D_   mpp_recv_logical4_3d
#define	MPP_RECV_4D_   mpp_recv_logical4_4d
#define	MPP_RECV_5D_   mpp_recv_logical4_5d
#define	MPP_SEND_   mpp_send_logical4
#define	MPP_SEND_SCALAR_   mpp_send_logical4_scalar
#define	MPP_SEND_2D_   mpp_send_logical4_2d
#define	MPP_SEND_3D_   mpp_send_logical4_3d
#define	MPP_SEND_4D_   mpp_send_logical4_4d
#define	MPP_SEND_5D_   mpp_send_logical4_5d
#define	MPP_BROADCAST_   mpp_broadcast_logical4
#define	MPP_BROADCAST_SCALAR_   mpp_broadcast_logical4_scalar
#define	MPP_BROADCAST_2D_   mpp_broadcast_logical4_2d
#define	MPP_BROADCAST_3D_   mpp_broadcast_logical4_3d
#define	MPP_BROADCAST_4D_   mpp_broadcast_logical4_4d
#define	MPP_BROADCAST_5D_   mpp_broadcast_logical4_5d
#define	MPP_TYPE_   logical(INT_KIND)
#define	MPP_TYPE_BYTELEN_   4
#define	MPI_TYPE_   MPI_INTEGER4
#define	SHMEM_BROADCAST_   SHMEM_BROADCAST4
#define	SHMEM_GET_   SHMEM_GET4
#define	MPP_REDUCE_   mpp_max_real8
#define	MPP_TYPE_   real(DOUBLE_KIND)
#define	SHMEM_REDUCE_   SHMEM_REAL8_MAX_TO_ALL
#define	MPI_TYPE_   MPI_REAL8
#define	MPI_REDUCE_   MPI_MAX
#define	MPP_REDUCE_   mpp_max_real4
#define	MPP_TYPE_   real(FLOAT_KIND)
#define	SHMEM_REDUCE_   SHMEM_REAL4_MAX_TO_ALL
#define	MPI_TYPE_   MPI_REAL4
#define	MPI_REDUCE_   MPI_MAX
#define	MPP_REDUCE_   mpp_max_int8
#define	MPP_TYPE_   integer(LONG_KIND)
#define	SHMEM_REDUCE_   SHMEM_INT8_MAX_TO_ALL
#define	MPI_TYPE_   MPI_INTEGER8
#define	MPI_REDUCE_   MPI_MAX
#define	MPP_REDUCE_   mpp_max_int4
#define	MPP_TYPE_   integer(INT_KIND)
#define	SHMEM_REDUCE_   SHMEM_INT4_MAX_TO_ALL
#define	MPI_TYPE_   MPI_INTEGER4
#define	MPI_REDUCE_   MPI_MAX
#define	MPP_REDUCE_   mpp_min_real8
#define	MPP_TYPE_   real(DOUBLE_KIND)
#define	SHMEM_REDUCE_   SHMEM_REAL8_MIN_TO_ALL
#define	MPI_TYPE_   MPI_REAL8
#define	MPI_REDUCE_   MPI_MIN
#define	MPP_REDUCE_   mpp_min_real4
#define	MPP_TYPE_   real(FLOAT_KIND)
#define	SHMEM_REDUCE_   SHMEM_REAL4_MIN_TO_ALL
#define	MPI_TYPE_   MPI_REAL4
#define	MPI_REDUCE_   MPI_MIN
#define	MPP_REDUCE_   mpp_min_int8
#define	MPP_TYPE_   integer(LONG_KIND)
#define	SHMEM_REDUCE_   SHMEM_INT8_MIN_TO_ALL
#define	MPI_TYPE_   MPI_INTEGER8
#define	MPI_REDUCE_   MPI_MIN
#define	MPP_REDUCE_   mpp_min_int4
#define	MPP_TYPE_   integer(INT_KIND)
#define	SHMEM_REDUCE_   SHMEM_INT4_MIN_TO_ALL
#define	MPI_TYPE_   MPI_INTEGER4
#define	MPI_REDUCE_   MPI_MIN
#define	MPP_SUM_   mpp_sum_real8
#define	MPP_SUM_SCALAR_   mpp_sum_real8_scalar
#define	MPP_SUM_2D_   mpp_sum_real8_2d
#define	MPP_SUM_3D_   mpp_sum_real8_3d
#define	MPP_SUM_4D_   mpp_sum_real8_4d
#define	MPP_SUM_5D_   mpp_sum_real8_5d
#define	MPP_TYPE_   real(DOUBLE_KIND)
#define	SHMEM_SUM_   SHMEM_REAL8_SUM_TO_ALL
#define	MPI_TYPE_   MPI_REAL8
#define	MPP_TYPE_BYTELEN_   8
#define	MPP_SUM_   mpp_sum_real4
#define	MPP_SUM_SCALAR_   mpp_sum_real4_scalar
#define	MPP_SUM_2D_   mpp_sum_real4_2d
#define	MPP_SUM_3D_   mpp_sum_real4_3d
#define	MPP_SUM_4D_   mpp_sum_real4_4d
#define	MPP_SUM_5D_   mpp_sum_real4_5d
#define	MPP_TYPE_   real(FLOAT_KIND)
#define	SHMEM_SUM_   SHMEM_REAL4_SUM_TO_ALL
#define	MPI_TYPE_   MPI_REAL4
#define	MPP_TYPE_BYTELEN_   4
#define	MPP_SUM_   mpp_sum_cmplx8
#define	MPP_SUM_SCALAR_   mpp_sum_cmplx8_scalar
#define	MPP_SUM_2D_   mpp_sum_cmplx8_2d
#define	MPP_SUM_3D_   mpp_sum_cmplx8_3d
#define	MPP_SUM_4D_   mpp_sum_cmplx8_4d
#define	MPP_SUM_5D_   mpp_sum_cmplx8_5d
#define	MPP_TYPE_   complex(DOUBLE_KIND)
#define	SHMEM_SUM_   SHMEM_COMP8_SUM_TO_ALL
#define	MPI_TYPE_   MPI_DOUBLE_COMPLEX
#define	MPP_TYPE_BYTELEN_   16
#define	MPP_SUM_   mpp_sum_cmplx4
#define	MPP_SUM_SCALAR_   mpp_sum_cmplx4_scalar
#define	MPP_SUM_2D_   mpp_sum_cmplx4_2d
#define	MPP_SUM_3D_   mpp_sum_cmplx4_3d
#define	MPP_SUM_4D_   mpp_sum_cmplx4_4d
#define	MPP_SUM_5D_   mpp_sum_cmplx4_5d
#define	MPP_TYPE_   complex(FLOAT_KIND)
#define	SHMEM_SUM_   SHMEM_COMP4_SUM_TO_ALL
#define	MPI_TYPE_   MPI_COMPLEX
#define	MPP_TYPE_BYTELEN_   8
#define	MPP_SUM_   mpp_sum_int8
#define	MPP_SUM_SCALAR_   mpp_sum_int8_scalar
#define	MPP_SUM_2D_   mpp_sum_int8_2d
#define	MPP_SUM_3D_   mpp_sum_int8_3d
#define	MPP_SUM_4D_   mpp_sum_int8_4d
#define	MPP_SUM_5D_   mpp_sum_int8_5d
#define	MPP_TYPE_   integer(LONG_KIND)
#define	SHMEM_SUM_   SHMEM_INT8_SUM_TO_ALL
#define	MPI_TYPE_   MPI_INTEGER8
#define	MPP_TYPE_BYTELEN_   8
#define	MPP_SUM_   mpp_sum_int4
#define	MPP_SUM_SCALAR_   mpp_sum_int4_scalar
#define	MPP_SUM_2D_   mpp_sum_int4_2d
#define	MPP_SUM_3D_   mpp_sum_int4_3d
#define	MPP_SUM_4D_   mpp_sum_int4_4d
#define	MPP_SUM_5D_   mpp_sum_int4_5d
#define	MPP_TYPE_   integer(INT_KIND)
#define	SHMEM_SUM_   SHMEM_INT4_SUM_TO_ALL
#define	MPI_TYPE_   MPI_INTEGER4
#define	MPP_TYPE_BYTELEN_   4
#define	MPP_CHKSUM_INT_   mpp_chksum_i8_1d
#define	MPP_TYPE_   integer(LONG_KIND)
#define	MPP_RANK_   (:)
#define	MPP_CHKSUM_INT_   mpp_chksum_i8_2d
#define	MPP_TYPE_   integer(LONG_KIND)
#define	MPP_RANK_   (:,:)
#define	MPP_CHKSUM_INT_   mpp_chksum_i8_3d
#define	MPP_TYPE_   integer(LONG_KIND)
#define	MPP_RANK_   (:,:,:)
#define	MPP_CHKSUM_INT_   mpp_chksum_i8_4d
#define	MPP_TYPE_   integer(LONG_KIND)
#define	MPP_RANK_   (:,:,:,:)
#define	MPP_CHKSUM_INT_   mpp_chksum_i8_5d
#define	MPP_TYPE_   integer(LONG_KIND)
#define	MPP_RANK_   (:,:,:,:,:)
#define	MPP_CHKSUM_INT_   mpp_chksum_i4_1d
#define	MPP_TYPE_   integer(INT_KIND)
#define	MPP_RANK_   (:)
#define	MPP_CHKSUM_INT_   mpp_chksum_i4_2d
#define	MPP_TYPE_   integer(INT_KIND)
#define	MPP_RANK_   (:,:)
#define	MPP_CHKSUM_INT_   mpp_chksum_i4_3d
#define	MPP_TYPE_   integer(INT_KIND)
#define	MPP_RANK_   (:,:,:)
#define	MPP_CHKSUM_INT_   mpp_chksum_i4_4d
#define	MPP_TYPE_   integer(INT_KIND)
#define	MPP_RANK_   (:,:,:,:)
#define	MPP_CHKSUM_INT_   mpp_chksum_i4_5d
#define	MPP_TYPE_   integer(INT_KIND)
#define	MPP_RANK_   (:,:,:,:,:)
#define	MPP_CHKSUM_   mpp_chksum_r8_0d
#define	MPP_TYPE_   real(DOUBLE_KIND)
#define	MPP_RANK_   !
#define	MPP_CHKSUM_   mpp_chksum_r8_1d
#define	MPP_TYPE_   real(DOUBLE_KIND)
#define	MPP_RANK_   (:)
#define	MPP_CHKSUM_   mpp_chksum_r8_2d
#define	MPP_TYPE_   real(DOUBLE_KIND)
#define	MPP_RANK_   (:,:)
#define	MPP_CHKSUM_   mpp_chksum_r8_3d
#define	MPP_TYPE_   real(DOUBLE_KIND)
#define	MPP_RANK_   (:,:,:)
#define	MPP_CHKSUM_   mpp_chksum_r8_4d
#define	MPP_TYPE_   real(DOUBLE_KIND)
#define	MPP_RANK_   (:,:,:,:)
#define	MPP_CHKSUM_   mpp_chksum_r8_5d
#define	MPP_TYPE_   real(DOUBLE_KIND)
#define	MPP_RANK_   (:,:,:,:,:)
#define	MPP_CHKSUM_   mpp_chksum_c8_0d
#define	MPP_TYPE_   complex(DOUBLE_KIND)
#define	MPP_RANK_   !
#define	MPP_CHKSUM_   mpp_chksum_c8_1d
#define	MPP_TYPE_   complex(DOUBLE_KIND)
#define	MPP_RANK_   (:)
#define	MPP_CHKSUM_   mpp_chksum_c8_2d
#define	MPP_TYPE_   complex(DOUBLE_KIND)
#define	MPP_RANK_   (:,:)
#define	MPP_CHKSUM_   mpp_chksum_c8_3d
#define	MPP_TYPE_   complex(DOUBLE_KIND)
#define	MPP_RANK_   (:,:,:)
#define	MPP_CHKSUM_   mpp_chksum_c8_4d
#define	MPP_TYPE_   complex(DOUBLE_KIND)
#define	MPP_RANK_   (:,:,:,:)
#define	MPP_CHKSUM_   mpp_chksum_c8_5d
#define	MPP_TYPE_   complex(DOUBLE_KIND)
#define	MPP_RANK_   (:,:,:,:,:)
#define	MPP_CHKSUM_   mpp_chksum_r4_0d
#define	MPP_TYPE_   real(FLOAT_KIND)
#define	MPP_RANK_   !
#define	MPP_CHKSUM_   mpp_chksum_r4_1d
#define	MPP_TYPE_   real(FLOAT_KIND)
#define	MPP_RANK_   (:)
#define	MPP_CHKSUM_   mpp_chksum_r4_2d
#define	MPP_TYPE_   real(FLOAT_KIND)
#define	MPP_RANK_   (:,:)
#define	MPP_CHKSUM_   mpp_chksum_r4_3d
#define	MPP_TYPE_   real(FLOAT_KIND)
#define	MPP_RANK_   (:,:,:)
#define	MPP_CHKSUM_   mpp_chksum_r4_4d
#define	MPP_TYPE_   real(FLOAT_KIND)
#define	MPP_RANK_   (:,:,:,:)
#define	MPP_CHKSUM_   mpp_chksum_r4_5d
#define	MPP_TYPE_   real(FLOAT_KIND)
#define	MPP_RANK_   (:,:,:,:,:)
#define	MPP_CHKSUM_   mpp_chksum_c4_0d
#define	MPP_TYPE_   complex(FLOAT_KIND)
#define	MPP_RANK_   !
#define	MPP_CHKSUM_   mpp_chksum_c4_1d
#define	MPP_TYPE_   complex(FLOAT_KIND)
#define	MPP_RANK_   (:)
#define	MPP_CHKSUM_   mpp_chksum_c4_2d
#define	MPP_TYPE_   complex(FLOAT_KIND)
#define	MPP_RANK_   (:,:)
#define	MPP_CHKSUM_   mpp_chksum_c4_3d
#define	MPP_TYPE_   complex(FLOAT_KIND)
#define	MPP_RANK_   (:,:,:)
#define	MPP_CHKSUM_   mpp_chksum_c4_4d
#define	MPP_TYPE_   complex(FLOAT_KIND)
#define	MPP_RANK_   (:,:,:,:)
#define	MPP_CHKSUM_   mpp_chksum_c4_5d
#define	MPP_TYPE_   complex(FLOAT_KIND)
#define	MPP_RANK_   (:,:,:,:,:)
Functions/Subroutines
subroutine, public	mpp_mod_oa::mpp_init (flags, mpp_comm, logfile)
integer, public	mpp_mod_oa::stdin ()
integer, public	mpp_mod_oa::stdout ()
integer, public	mpp_mod_oa::stderr ()
integer, public	mpp_mod_oa::stdlog ()
subroutine, public	mpp_mod_oa::mpp_exit ()
integer, public	mpp_mod_oa::mpp_pe ()
integer, public	mpp_mod_oa::mpp_node ()
integer, public	mpp_mod_oa::mpp_npes ()
integer, public	mpp_mod_oa::mpp_root_pe ()
subroutine, public	mpp_mod_oa::mpp_set_root_pe (num)
subroutine, public	mpp_mod_oa::mpp_declare_pelist (pelist, name)
subroutine, public	mpp_mod_oa::mpp_set_current_pelist (pelist)
subroutine, public	mpp_mod_oa::mpp_get_current_pelist (pelist, name)
integer	mpp_mod_oa::get_peset (pelist)
integer	ascend_sort (a)
subroutine, public	mpp_mod_oa::mpp_clock_set_grain (grain)
integer, public	mpp_mod_oa::mpp_clock_id (name, flags, grain)
subroutine, public	mpp_mod_oa::mpp_clock_begin (id)
subroutine, public	mpp_mod_oa::mpp_clock_end (id)
subroutine	mpp_mod_oa::increment_current_clock (event_id, bytes)
subroutine	mpp_mod_oa::dump_clock_summary ()
integer	mpp_mod_oa::get_unit ()
subroutine	mpp_mod_oa::sum_clock_data ()
integer	find_bin (event_size)
subroutine	mpp_mod_oa::clock_init (id, name, flags)
subroutine, public	mpp_mod_oa::mpp_sync (pelist)
subroutine, public	mpp_mod_oa::mpp_sync_self (pelist)
subroutine	mpp_mod_oa::mpp_error_basic (errortype, errormsg)
subroutine	mpp_mod_oa::mpp_error_mesg (routine, errormsg, errortype)
subroutine	mpp_mod_oa::mpp_error_noargs ()
subroutine, public	mpp_mod_oa::mpp_set_warn_level (flag)
integer, public	mpp_mod_oa::mpp_error_state ()
subroutine, public	mpp_mod_oa::mpp_set_stack_size (n)
Variables
character(len=128), private	mpp_mod_oa::version = '$Id: mpp_mod_oa.F90 2826 2010-12-10 11:14:21Z valcke $'
character(len=128), private	mpp_mod_oa::tagname = '$Name$'
integer, private	mpp_mod_oa::in_unit = 5
integer, private	mpp_mod_oa::out_unit = 6
integer, private	mpp_mod_oa::err_unit = 0
integer	mpp_mod_oa::log_unit
integer	mpp_mod_oa::etc_unit
logical, private	mpp_mod_oa::module_is_initialized = .FALSE.
integer, private	mpp_mod_oa::pe = 0
integer, private	mpp_mod_oa::node = 0
integer, private	mpp_mod_oa::npes = 1
integer, private	mpp_mod_oa::root_pe = 0
integer, private	mpp_mod_oa::error
integer, parameter, private	mpp_mod_oa::MAXPES = 2048
character(len=32)	mpp_mod_oa::configfile = 'logfile.out'
character(len=32)	mpp_mod_oa::etcfile = '._mpp.nonrootpe.stdout'
logical, save	mpp_mod_oa::logfile_defined = .false.
logical, save	mpp_mod_oa::opened
integer	mpp_mod_oa::io_num
integer, parameter, public	mpp_mod_oa::MPP_VERBOSE = 1
integer, parameter, public	mpp_mod_oa::MPP_DEBUG = 2
logical, private	mpp_mod_oa::verbose = .FALSE.
logical, private	mpp_mod_oa::debug = .FALSE.
integer, parameter, public	mpp_mod_oa::ALL_PES = -1
integer, parameter, public	mpp_mod_oa::ANY_PE = -2
integer, parameter, public	mpp_mod_oa::NULL_PE = -3
integer, parameter, public	mpp_mod_oa::NOTE = 0
integer, parameter, public	mpp_mod_oa::WARNING = 1
integer, parameter, public	mpp_mod_oa::FATAL = 2
logical, private	mpp_mod_oa::warnings_are_fatal = .FALSE.
integer, private	mpp_mod_oa::error_state = 0
integer(LONG_KIND), parameter, private	mpp_mod_oa::MPP_WAIT = -1
integer(LONG_KIND), parameter, private	mpp_mod_oa::MPP_READY = -2
real(DOUBLE_KIND), dimension(:), allocatable, private	mpp_mod_oa::mpp_stack
integer, private	mpp_mod_oa::mpp_stack_size = 0
integer, private	mpp_mod_oa::mpp_stack_hwm = 0
integer, parameter	mpp_mod_oa::PESET_MAX = 32
type(communicator), dimension(0:peset_max)	mpp_mod_oa::peset
integer	mpp_mod_oa::peset_num = 0
integer	mpp_mod_oa::current_peset_num = 0
integer	mpp_mod_oa::world_peset_num
integer, private	mpp_mod_oa::tick
integer, private	mpp_mod_oa::ticks_per_sec
integer, private	mpp_mod_oa::max_ticks
integer, private	mpp_mod_oa::start_tick
integer, private	mpp_mod_oa::end_tick
integer, private	mpp_mod_oa::tick0 = 0
real, private	mpp_mod_oa::tick_rate
integer, parameter, private	mpp_mod_oa::MAX_CLOCKS = 100
integer, parameter, private	mpp_mod_oa::MAX_EVENT_TYPES = 5
integer, parameter, private	mpp_mod_oa::MAX_EVENTS = 40000
integer, parameter, private	mpp_mod_oa::EVENT_ALLREDUCE = 1
integer, parameter, private	mpp_mod_oa::EVENT_BROADCAST = 2
integer, parameter, private	mpp_mod_oa::EVENT_RECV = 3
integer, parameter, private	mpp_mod_oa::EVENT_SEND = 4
integer, parameter, private	mpp_mod_oa::EVENT_WAIT = 5
integer, private	mpp_mod_oa::clock_num = 0
integer, private	mpp_mod_oa::current_clock = 0
integer, private	mpp_mod_oa::clock0
integer, private	mpp_mod_oa::clock_grain = HUGE(1)
integer, parameter, public	mpp_mod_oa::MPP_CLOCK_SYNC = 1
integer, parameter, public	mpp_mod_oa::MPP_CLOCK_DETAILED = 2
type(clock), dimension(max_clocks)	mpp_mod_oa::clocks
integer, parameter	mpp_mod_oa::MAX_BINS = 20
type(Summary_Struct), dimension(max_clocks)	mpp_mod_oa::clock_summary

---

Define Documentation

#define MPI_REDUCE_   MPI_MAX

#define MPI_REDUCE_   MPI_MIN

#define MPI_REDUCE_   MPI_MIN

#define MPI_REDUCE_   MPI_MIN

#define MPI_REDUCE_   MPI_MIN

#define MPI_REDUCE_   MPI_MAX

#define MPI_REDUCE_   MPI_MAX

#define MPI_REDUCE_   MPI_MAX

#define MPI_TYPE_   MPI_DOUBLE_COMPLEX

#define MPI_TYPE_   MPI_REAL8

#define MPI_TYPE_   MPI_REAL4

#define MPI_TYPE_   MPI_INTEGER8

#define MPI_TYPE_   MPI_INTEGER8

#define MPI_TYPE_   MPI_INTEGER4

#define MPI_TYPE_   MPI_REAL8

#define MPI_TYPE_   MPI_REAL4

#define MPI_TYPE_   MPI_DOUBLE_COMPLEX

#define MPI_TYPE_   MPI_COMPLEX

#define MPI_TYPE_   MPI_INTEGER4

#define MPI_TYPE_   MPI_INTEGER8

#define MPI_TYPE_   MPI_INTEGER4

#define MPI_TYPE_   MPI_INTEGER8

#define MPI_TYPE_   MPI_COMPLEX

#define MPI_TYPE_   MPI_INTEGER4

#define MPI_TYPE_   MPI_REAL8

#define MPI_TYPE_   MPI_REAL4

#define MPI_TYPE_   MPI_REAL4

#define MPI_TYPE_   MPI_INTEGER8

#define MPI_TYPE_   MPI_REAL8

#define MPI_TYPE_   MPI_INTEGER4

#define MPP_BROADCAST_   mpp_broadcast_int8

#define MPP_BROADCAST_   mpp_broadcast_cmplx8

#define MPP_BROADCAST_   mpp_broadcast_int4

#define MPP_BROADCAST_   mpp_broadcast_real4

#define MPP_BROADCAST_   mpp_broadcast_logical8

#define MPP_BROADCAST_   mpp_broadcast_cmplx4

#define MPP_BROADCAST_   mpp_broadcast_logical4

#define MPP_BROADCAST_   mpp_broadcast_real8

#define MPP_BROADCAST_2D_   mpp_broadcast_real8_2d

#define MPP_BROADCAST_2D_   mpp_broadcast_int8_2d

#define MPP_BROADCAST_2D_   mpp_broadcast_cmplx8_2d

#define MPP_BROADCAST_2D_   mpp_broadcast_int4_2d

#define MPP_BROADCAST_2D_   mpp_broadcast_real4_2d

#define MPP_BROADCAST_2D_   mpp_broadcast_logical8_2d

#define MPP_BROADCAST_2D_   mpp_broadcast_cmplx4_2d

#define MPP_BROADCAST_2D_   mpp_broadcast_logical4_2d

#define MPP_BROADCAST_3D_   mpp_broadcast_int8_3d

#define MPP_BROADCAST_3D_   mpp_broadcast_real8_3d

#define MPP_BROADCAST_3D_   mpp_broadcast_int4_3d

#define MPP_BROADCAST_3D_   mpp_broadcast_cmplx8_3d

#define MPP_BROADCAST_3D_   mpp_broadcast_logical8_3d

#define MPP_BROADCAST_3D_   mpp_broadcast_real4_3d

#define MPP_BROADCAST_3D_   mpp_broadcast_cmplx4_3d

#define MPP_BROADCAST_3D_   mpp_broadcast_logical4_3d

#define MPP_BROADCAST_4D_   mpp_broadcast_int8_4d

#define MPP_BROADCAST_4D_   mpp_broadcast_cmplx8_4d

#define MPP_BROADCAST_4D_   mpp_broadcast_int4_4d

#define MPP_BROADCAST_4D_   mpp_broadcast_real8_4d

#define MPP_BROADCAST_4D_   mpp_broadcast_logical8_4d

#define MPP_BROADCAST_4D_   mpp_broadcast_real4_4d

#define MPP_BROADCAST_4D_   mpp_broadcast_cmplx4_4d

#define MPP_BROADCAST_4D_   mpp_broadcast_logical4_4d

#define MPP_BROADCAST_5D_   mpp_broadcast_int8_5d

#define MPP_BROADCAST_5D_   mpp_broadcast_cmplx8_5d

#define MPP_BROADCAST_5D_   mpp_broadcast_int4_5d

#define MPP_BROADCAST_5D_   mpp_broadcast_logical8_5d

#define MPP_BROADCAST_5D_   mpp_broadcast_real8_5d

#define MPP_BROADCAST_5D_   mpp_broadcast_real4_5d

#define MPP_BROADCAST_5D_   mpp_broadcast_cmplx4_5d

#define MPP_BROADCAST_5D_   mpp_broadcast_logical4_5d

#define MPP_BROADCAST_SCALAR_   mpp_broadcast_int8_scalar

#define MPP_BROADCAST_SCALAR_   mpp_broadcast_cmplx8_scalar

#define MPP_BROADCAST_SCALAR_   mpp_broadcast_int4_scalar

#define MPP_BROADCAST_SCALAR_   mpp_broadcast_real8_scalar

#define MPP_BROADCAST_SCALAR_   mpp_broadcast_real4_scalar

#define MPP_BROADCAST_SCALAR_   mpp_broadcast_logical8_scalar

#define MPP_BROADCAST_SCALAR_   mpp_broadcast_cmplx4_scalar

#define MPP_BROADCAST_SCALAR_   mpp_broadcast_logical4_scalar

#define MPP_CHKSUM_   mpp_chksum_r8_0d

#define MPP_CHKSUM_   mpp_chksum_r8_1d

#define MPP_CHKSUM_   mpp_chksum_r8_2d

#define MPP_CHKSUM_   mpp_chksum_r8_3d

#define MPP_CHKSUM_   mpp_chksum_r8_4d

#define MPP_CHKSUM_   mpp_chksum_r8_5d

#define MPP_CHKSUM_   mpp_chksum_c8_0d

#define MPP_CHKSUM_   mpp_chksum_c8_1d

#define MPP_CHKSUM_   mpp_chksum_c8_2d

#define MPP_CHKSUM_   mpp_chksum_c8_3d

#define MPP_CHKSUM_   mpp_chksum_c8_4d

#define MPP_CHKSUM_   mpp_chksum_c8_5d

#define MPP_CHKSUM_   mpp_chksum_r4_0d

#define MPP_CHKSUM_   mpp_chksum_r4_1d

#define MPP_CHKSUM_   mpp_chksum_r4_2d

#define MPP_CHKSUM_   mpp_chksum_r4_3d

#define MPP_CHKSUM_   mpp_chksum_r4_4d

#define MPP_CHKSUM_   mpp_chksum_r4_5d

#define MPP_CHKSUM_   mpp_chksum_c4_0d

#define MPP_CHKSUM_   mpp_chksum_c4_1d

#define MPP_CHKSUM_   mpp_chksum_c4_2d

#define MPP_CHKSUM_   mpp_chksum_c4_3d

#define MPP_CHKSUM_   mpp_chksum_c4_4d

#define MPP_CHKSUM_   mpp_chksum_c4_5d

#define MPP_CHKSUM_INT_   mpp_chksum_i8_1d

#define MPP_CHKSUM_INT_   mpp_chksum_i8_2d

#define MPP_CHKSUM_INT_   mpp_chksum_i8_3d

#define MPP_CHKSUM_INT_   mpp_chksum_i8_4d

#define MPP_CHKSUM_INT_   mpp_chksum_i8_5d

#define MPP_CHKSUM_INT_   mpp_chksum_i4_1d

#define MPP_CHKSUM_INT_   mpp_chksum_i4_2d

#define MPP_CHKSUM_INT_   mpp_chksum_i4_4d

#define MPP_CHKSUM_INT_   mpp_chksum_i4_5d

#define MPP_CHKSUM_INT_   mpp_chksum_i4_3d

#define MPP_RANK_   (:)

#define MPP_RANK_   (:)

#define MPP_RANK_   (:)

#define MPP_RANK_   (:)

#define MPP_RANK_   (:,:)

#define MPP_RANK_   (:,:,:)

#define MPP_RANK_   (:,:,:,:)

#define MPP_RANK_   (:,:,:,:,:)

#define MPP_RANK_   (:,:)

#define MPP_RANK_   (:,:,:)

#define MPP_RANK_   (:,:,:,:)

#define MPP_RANK_   (:,:,:,:,:)

#define MPP_RANK_   !

#define MPP_RANK_   (:)

#define MPP_RANK_   (:,:)

#define MPP_RANK_   (:,:,:)

#define MPP_RANK_   (:,:,:,:)

#define MPP_RANK_   (:,:,:,:,:)

#define MPP_RANK_   !

#define MPP_RANK_   (:,:)

#define MPP_RANK_   (:,:,:)

#define MPP_RANK_   (:,:,:,:)

#define MPP_RANK_   !

#define MPP_RANK_   (:)

#define MPP_RANK_   (:,:)

#define MPP_RANK_   (:,:,:,:)

#define MPP_RANK_   (:,:,:,:,:)

#define MPP_RANK_   !

#define MPP_RANK_   (:,:)

#define MPP_RANK_   (:,:,:,:)

#define MPP_RANK_   (:,:,:,:,:)

#define MPP_RANK_   (:,:,:,:,:)

#define MPP_RANK_   (:,:,:)

#define MPP_RANK_   (:,:,:)

#define MPP_RECV_   mpp_recv_cmplx8

#define MPP_RECV_   mpp_recv_int4

#define MPP_RECV_   mpp_recv_real4

#define MPP_RECV_   mpp_recv_real8

#define MPP_RECV_   mpp_recv_logical8

#define MPP_RECV_   mpp_recv_cmplx4

#define MPP_RECV_   mpp_recv_logical4

#define MPP_RECV_   mpp_recv_int8

#define MPP_RECV_2D_   mpp_recv_cmplx8_2d

#define MPP_RECV_2D_   mpp_recv_real4_2d

#define MPP_RECV_2D_   mpp_recv_int4_2d

#define MPP_RECV_2D_   mpp_recv_real8_2d

#define MPP_RECV_2D_   mpp_recv_logical8_2d

#define MPP_RECV_2D_   mpp_recv_cmplx4_2d

#define MPP_RECV_2D_   mpp_recv_logical4_2d

#define MPP_RECV_2D_   mpp_recv_int8_2d

#define MPP_RECV_3D_   mpp_recv_logical4_3d

#define MPP_RECV_3D_   mpp_recv_cmplx8_3d

#define MPP_RECV_3D_   mpp_recv_int4_3d

#define MPP_RECV_3D_   mpp_recv_real4_3d

#define MPP_RECV_3D_   mpp_recv_cmplx4_3d

#define MPP_RECV_3D_   mpp_recv_logical8_3d

#define MPP_RECV_3D_   mpp_recv_real8_3d

#define MPP_RECV_3D_   mpp_recv_int8_3d

#define MPP_RECV_4D_   mpp_recv_cmplx8_4d

#define MPP_RECV_4D_   mpp_recv_int4_4d

#define MPP_RECV_4D_   mpp_recv_real4_4d

#define MPP_RECV_4D_   mpp_recv_cmplx4_4d

#define MPP_RECV_4D_   mpp_recv_real8_4d

#define MPP_RECV_4D_   mpp_recv_logical4_4d

#define MPP_RECV_4D_   mpp_recv_logical8_4d

#define MPP_RECV_4D_   mpp_recv_int8_4d

#define MPP_RECV_5D_   mpp_recv_real8_5d

#define MPP_RECV_5D_   mpp_recv_int8_5d

#define MPP_RECV_5D_   mpp_recv_logical4_5d

#define MPP_RECV_5D_   mpp_recv_cmplx8_5d

#define MPP_RECV_5D_   mpp_recv_int4_5d

#define MPP_RECV_5D_   mpp_recv_real4_5d

#define MPP_RECV_5D_   mpp_recv_logical8_5d

#define MPP_RECV_5D_   mpp_recv_cmplx4_5d

#define MPP_RECV_SCALAR_   mpp_recv_cmplx8_scalar

#define MPP_RECV_SCALAR_   mpp_recv_real8_scalar

#define MPP_RECV_SCALAR_   mpp_recv_real4_scalar

#define MPP_RECV_SCALAR_   mpp_recv_int4_scalar

#define MPP_RECV_SCALAR_   mpp_recv_cmplx4_scalar

#define MPP_RECV_SCALAR_   mpp_recv_logical8_scalar

#define MPP_RECV_SCALAR_   mpp_recv_logical4_scalar

#define MPP_RECV_SCALAR_   mpp_recv_int8_scalar

#define MPP_REDUCE_   mpp_min_real4

#define MPP_REDUCE_   mpp_min_int8

#define MPP_REDUCE_   mpp_min_int4

#define MPP_REDUCE_   mpp_max_real8

#define MPP_REDUCE_   mpp_max_real4

#define MPP_REDUCE_   mpp_max_int8

#define MPP_REDUCE_   mpp_max_int4

#define MPP_REDUCE_   mpp_min_real8

#define MPP_SEND_   mpp_send_int8

#define MPP_SEND_   mpp_send_cmplx8

#define MPP_SEND_   mpp_send_int4

#define MPP_SEND_   mpp_send_real4

#define MPP_SEND_   mpp_send_logical8

#define MPP_SEND_   mpp_send_cmplx4

#define MPP_SEND_   mpp_send_real8

#define MPP_SEND_   mpp_send_logical4

#define MPP_SEND_2D_   mpp_send_int8_2d

#define MPP_SEND_2D_   mpp_send_cmplx8_2d

#define MPP_SEND_2D_   mpp_send_int4_2d

#define MPP_SEND_2D_   mpp_send_real4_2d

#define MPP_SEND_2D_   mpp_send_logical8_2d

#define MPP_SEND_2D_   mpp_send_cmplx4_2d

#define MPP_SEND_2D_   mpp_send_logical4_2d

#define MPP_SEND_2D_   mpp_send_real8_2d

#define MPP_SEND_3D_   mpp_send_int8_3d

#define MPP_SEND_3D_   mpp_send_real8_3d

#define MPP_SEND_3D_   mpp_send_cmplx8_3d

#define MPP_SEND_3D_   mpp_send_int4_3d

#define MPP_SEND_3D_   mpp_send_real4_3d

#define MPP_SEND_3D_   mpp_send_cmplx4_3d

#define MPP_SEND_3D_   mpp_send_logical4_3d

#define MPP_SEND_3D_   mpp_send_logical8_3d

#define MPP_SEND_4D_   mpp_send_int8_4d

#define MPP_SEND_4D_   mpp_send_real8_4d

#define MPP_SEND_4D_   mpp_send_cmplx4_4d

#define MPP_SEND_4D_   mpp_send_cmplx8_4d

#define MPP_SEND_4D_   mpp_send_real4_4d

#define MPP_SEND_4D_   mpp_send_int4_4d

#define MPP_SEND_4D_   mpp_send_logical4_4d

#define MPP_SEND_4D_   mpp_send_logical8_4d

#define MPP_SEND_5D_   mpp_send_real4_5d

#define MPP_SEND_5D_   mpp_send_logical8_5d

#define MPP_SEND_5D_   mpp_send_cmplx4_5d

#define MPP_SEND_5D_   mpp_send_int8_5d

#define MPP_SEND_5D_   mpp_send_cmplx8_5d

#define MPP_SEND_5D_   mpp_send_real8_5d

#define MPP_SEND_5D_   mpp_send_int4_5d

#define MPP_SEND_5D_   mpp_send_logical4_5d

#define MPP_SEND_SCALAR_   mpp_send_int8_scalar

#define MPP_SEND_SCALAR_   mpp_send_logical4_scalar

#define MPP_SEND_SCALAR_   mpp_send_cmplx8_scalar

#define MPP_SEND_SCALAR_   mpp_send_int4_scalar

#define MPP_SEND_SCALAR_   mpp_send_cmplx4_scalar

#define MPP_SEND_SCALAR_   mpp_send_real4_scalar

#define MPP_SEND_SCALAR_   mpp_send_logical8_scalar

#define MPP_SEND_SCALAR_   mpp_send_real8_scalar

#define MPP_SUM_   mpp_sum_real8

#define MPP_SUM_   mpp_sum_real4

#define MPP_SUM_   mpp_sum_cmplx8

#define MPP_SUM_   mpp_sum_cmplx4

#define MPP_SUM_   mpp_sum_int4

#define MPP_SUM_   mpp_sum_int8

#define MPP_SUM_2D_   mpp_sum_real8_2d

#define MPP_SUM_2D_   mpp_sum_real4_2d

#define MPP_SUM_2D_   mpp_sum_cmplx8_2d

#define MPP_SUM_2D_   mpp_sum_cmplx4_2d

#define MPP_SUM_2D_   mpp_sum_int4_2d

#define MPP_SUM_2D_   mpp_sum_int8_2d

#define MPP_SUM_3D_   mpp_sum_real8_3d

#define MPP_SUM_3D_   mpp_sum_real4_3d

#define MPP_SUM_3D_   mpp_sum_cmplx8_3d

#define MPP_SUM_3D_   mpp_sum_cmplx4_3d

#define MPP_SUM_3D_   mpp_sum_int4_3d

#define MPP_SUM_3D_   mpp_sum_int8_3d

#define MPP_SUM_4D_   mpp_sum_real8_4d

#define MPP_SUM_4D_   mpp_sum_int8_4d

#define MPP_SUM_4D_   mpp_sum_int4_4d

#define MPP_SUM_4D_   mpp_sum_cmplx4_4d

#define MPP_SUM_4D_   mpp_sum_real4_4d

#define MPP_SUM_4D_   mpp_sum_cmplx8_4d

#define MPP_SUM_5D_   mpp_sum_real8_5d

#define MPP_SUM_5D_   mpp_sum_real4_5d

#define MPP_SUM_5D_   mpp_sum_cmplx8_5d

#define MPP_SUM_5D_   mpp_sum_int8_5d

#define MPP_SUM_5D_   mpp_sum_int4_5d

#define MPP_SUM_5D_   mpp_sum_cmplx4_5d

#define MPP_SUM_SCALAR_   mpp_sum_int8_scalar

#define MPP_SUM_SCALAR_   mpp_sum_real4_scalar

#define MPP_SUM_SCALAR_   mpp_sum_real8_scalar

#define MPP_SUM_SCALAR_   mpp_sum_cmplx4_scalar

#define MPP_SUM_SCALAR_   mpp_sum_int4_scalar

#define MPP_SUM_SCALAR_   mpp_sum_cmplx8_scalar

#define MPP_TRANSMIT_   mpp_transmit_logical8

#define MPP_TRANSMIT_   mpp_transmit_cmplx4

#define MPP_TRANSMIT_   mpp_transmit_real8

#define MPP_TRANSMIT_   mpp_transmit_cmplx8

#define MPP_TRANSMIT_   mpp_transmit_int8

#define MPP_TRANSMIT_   mpp_transmit_int4

#define MPP_TRANSMIT_   mpp_transmit_logical4

#define MPP_TRANSMIT_   mpp_transmit_real4

#define MPP_TRANSMIT_2D_   mpp_transmit_real4_2d

#define MPP_TRANSMIT_2D_   mpp_transmit_logical8_2d

#define MPP_TRANSMIT_2D_   mpp_transmit_cmplx4_2d

#define MPP_TRANSMIT_2D_   mpp_transmit_int4_2d

#define MPP_TRANSMIT_2D_   mpp_transmit_logical4_2d

#define MPP_TRANSMIT_2D_   mpp_transmit_real8_2d

#define MPP_TRANSMIT_2D_   mpp_transmit_int8_2d

#define MPP_TRANSMIT_2D_   mpp_transmit_cmplx8_2d

#define MPP_TRANSMIT_3D_   mpp_transmit_int4_3d

#define MPP_TRANSMIT_3D_   mpp_transmit_real4_3d

#define MPP_TRANSMIT_3D_   mpp_transmit_logical8_3d

#define MPP_TRANSMIT_3D_   mpp_transmit_real8_3d

#define MPP_TRANSMIT_3D_   mpp_transmit_int8_3d

#define MPP_TRANSMIT_3D_   mpp_transmit_logical4_3d

#define MPP_TRANSMIT_3D_   mpp_transmit_cmplx4_3d

#define MPP_TRANSMIT_3D_   mpp_transmit_cmplx8_3d

#define MPP_TRANSMIT_4D_   mpp_transmit_real4_4d

#define MPP_TRANSMIT_4D_   mpp_transmit_logical4_4d

#define MPP_TRANSMIT_4D_   mpp_transmit_real8_4d

#define MPP_TRANSMIT_4D_   mpp_transmit_cmplx4_4d

#define MPP_TRANSMIT_4D_   mpp_transmit_logical8_4d

#define MPP_TRANSMIT_4D_   mpp_transmit_int4_4d

#define MPP_TRANSMIT_4D_   mpp_transmit_int8_4d

#define MPP_TRANSMIT_4D_   mpp_transmit_cmplx8_4d

#define MPP_TRANSMIT_5D_   mpp_transmit_cmplx8_5d

#define MPP_TRANSMIT_5D_   mpp_transmit_real4_5d

#define MPP_TRANSMIT_5D_   mpp_transmit_cmplx4_5d

#define MPP_TRANSMIT_5D_   mpp_transmit_logical4_5d

#define MPP_TRANSMIT_5D_   mpp_transmit_real8_5d

#define MPP_TRANSMIT_5D_   mpp_transmit_int4_5d

#define MPP_TRANSMIT_5D_   mpp_transmit_logical8_5d

#define MPP_TRANSMIT_5D_   mpp_transmit_int8_5d

#define MPP_TRANSMIT_SCALAR_   mpp_transmit_cmplx8_scalar

#define MPP_TRANSMIT_SCALAR_   mpp_transmit_real8_scalar

#define MPP_TRANSMIT_SCALAR_   mpp_transmit_logical8_scalar

#define MPP_TRANSMIT_SCALAR_   mpp_transmit_logical4_scalar

#define MPP_TRANSMIT_SCALAR_   mpp_transmit_cmplx4_scalar

#define MPP_TRANSMIT_SCALAR_   mpp_transmit_int4_scalar

#define MPP_TRANSMIT_SCALAR_   mpp_transmit_int8_scalar

#define MPP_TRANSMIT_SCALAR_   mpp_transmit_real4_scalar

#define MPP_TYPE_   complex(DOUBLE_KIND)

#define MPP_TYPE_   integer(LONG_KIND)

#define MPP_TYPE_   complex(FLOAT_KIND)

#define MPP_TYPE_   real(FLOAT_KIND)

#define MPP_TYPE_   integer(INT_KIND)

#define MPP_TYPE_   complex(FLOAT_KIND)

#define MPP_TYPE_   complex(DOUBLE_KIND)

#define MPP_TYPE_   integer(INT_KIND)

#define MPP_TYPE_   complex(FLOAT_KIND)

#define MPP_TYPE_   real(FLOAT_KIND)

#define MPP_TYPE_   real(FLOAT_KIND)

#define MPP_TYPE_   integer(INT_KIND)

#define MPP_TYPE_   real(FLOAT_KIND)

#define MPP_TYPE_   logical(LONG_KIND)

#define MPP_TYPE_   integer(LONG_KIND)

#define MPP_TYPE_   complex(FLOAT_KIND)

#define MPP_TYPE_   real(FLOAT_KIND)

#define MPP_TYPE_   complex(FLOAT_KIND)

#define MPP_TYPE_   integer(LONG_KIND)

#define MPP_TYPE_   complex(DOUBLE_KIND)

#define MPP_TYPE_   integer(INT_KIND)

#define MPP_TYPE_   real(FLOAT_KIND)

#define MPP_TYPE_   integer(INT_KIND)

#define MPP_TYPE_   real(DOUBLE_KIND)

#define MPP_TYPE_   integer(LONG_KIND)

#define MPP_TYPE_   integer(INT_KIND)

#define MPP_TYPE_   complex(DOUBLE_KIND)

#define MPP_TYPE_   integer(INT_KIND)

#define MPP_TYPE_   complex(FLOAT_KIND)

#define MPP_TYPE_   integer(INT_KIND)

#define MPP_TYPE_   integer(LONG_KIND)

#define MPP_TYPE_   complex(DOUBLE_KIND)

#define MPP_TYPE_   real(FLOAT_KIND)

#define MPP_TYPE_   complex(DOUBLE_KIND)

#define MPP_TYPE_   complex(FLOAT_KIND)

#define MPP_TYPE_   real(DOUBLE_KIND)

#define MPP_TYPE_   integer(INT_KIND)

#define MPP_TYPE_   real(DOUBLE_KIND)

#define MPP_TYPE_   real(DOUBLE_KIND)

#define MPP_TYPE_   real(DOUBLE_KIND)

#define MPP_TYPE_   integer(LONG_KIND)

#define MPP_TYPE_   complex(DOUBLE_KIND)

#define MPP_TYPE_   integer(LONG_KIND)

#define MPP_TYPE_   real(FLOAT_KIND)

#define MPP_TYPE_   logical(INT_KIND)

#define MPP_TYPE_   integer(LONG_KIND)

#define MPP_TYPE_   integer(LONG_KIND)

#define MPP_TYPE_   real(DOUBLE_KIND)

#define MPP_TYPE_   real(DOUBLE_KIND)

#define MPP_TYPE_   complex(DOUBLE_KIND)

#define MPP_TYPE_   real(FLOAT_KIND)

#define MPP_TYPE_   complex(FLOAT_KIND)

#define MPP_TYPE_   real(DOUBLE_KIND)

#define MPP_TYPE_   real(DOUBLE_KIND)

#define MPP_TYPE_   real(FLOAT_KIND)

#define MPP_TYPE_   real(DOUBLE_KIND)

#define MPP_TYPE_BYTELEN_   8

#define MPP_TYPE_BYTELEN_   8

#define MPP_TYPE_BYTELEN_   16

#define MPP_TYPE_BYTELEN_   8

#define MPP_TYPE_BYTELEN_   8

#define MPP_TYPE_BYTELEN_   4

#define MPP_TYPE_BYTELEN_   8

#define MPP_TYPE_BYTELEN_   16

#define MPP_TYPE_BYTELEN_   8

#define MPP_TYPE_BYTELEN_   4

#define MPP_TYPE_BYTELEN_   4

#define MPP_TYPE_BYTELEN_   4

#define MPP_TYPE_BYTELEN_   4

#define MPP_TYPE_BYTELEN_   8

#define SHMEM_BROADCAST_   SHMEM_BROADCAST4

#define SHMEM_BROADCAST_   SHMEM_BROADCAST8

#define SHMEM_BROADCAST_   SHMEM_BROADCAST4

#define SHMEM_BROADCAST_   SHMEM_BROADCAST4

#define SHMEM_BROADCAST_   SHMEM_BROADCAST4

#define SHMEM_BROADCAST_   SHMEM_BROADCAST8

#define SHMEM_BROADCAST_   SHMEM_BROADCAST8

#define SHMEM_BROADCAST_   SHMEM_BROADCAST8

#define SHMEM_GET_   SHMEM_GET4

#define SHMEM_GET_   SHMEM_GET4

#define SHMEM_GET_   SHMEM_GET8

#define SHMEM_GET_   SHMEM_GET8

#define SHMEM_GET_   SHMEM_GET128

#define SHMEM_GET_   SHMEM_GET4

#define SHMEM_GET_   SHMEM_GET64

#define SHMEM_GET_   SHMEM_GET8

#define SHMEM_REDUCE_   SHMEM_REAL8_MAX_TO_ALL

#define SHMEM_REDUCE_   SHMEM_REAL4_MAX_TO_ALL

#define SHMEM_REDUCE_   SHMEM_INT4_MAX_TO_ALL

#define SHMEM_REDUCE_   SHMEM_REAL4_MIN_TO_ALL

#define SHMEM_REDUCE_   SHMEM_INT8_MAX_TO_ALL

#define SHMEM_REDUCE_   SHMEM_INT8_MIN_TO_ALL

#define SHMEM_REDUCE_   SHMEM_INT4_MIN_TO_ALL

#define SHMEM_REDUCE_   SHMEM_REAL8_MIN_TO_ALL

#define SHMEM_SUM_   SHMEM_INT4_SUM_TO_ALL

#define SHMEM_SUM_   SHMEM_REAL4_SUM_TO_ALL

#define SHMEM_SUM_   SHMEM_REAL8_SUM_TO_ALL

#define SHMEM_SUM_   SHMEM_COMP4_SUM_TO_ALL

#define SHMEM_SUM_   SHMEM_COMP8_SUM_TO_ALL

#define SHMEM_SUM_   SHMEM_INT8_SUM_TO_ALL

---

Function Documentation

integer get_peset::ascend_sort

(

integer,dimension(:),intent(in)

a

)

[private]

Definition at line 1173 of file mpp_mod_oa.F90.

Referenced by mpp_mod_oa::get_peset().

Here is the caller graph for this function:

integer sum_clock_data::find_bin

(

integer,intent(in)

event_size

)

[private]

Definition at line 1534 of file mpp_mod_oa.F90.

References mpp_mod_oa::MAX_BINS.

Referenced by mpp_mod_oa::sum_clock_data().

Here is the caller graph for this function: