|
|
@ -7,6 +7,7 @@
|
|
|
|
#ifdef LowerUnderscore
|
|
|
|
#ifdef LowerUnderscore
|
|
|
|
#define mpi_wtime mpi_wtime_
|
|
|
|
#define mpi_wtime mpi_wtime_
|
|
|
|
#define mpi_send mpi_send_
|
|
|
|
#define mpi_send mpi_send_
|
|
|
|
|
|
|
|
#define mpi_isend mpi_isend_
|
|
|
|
#define mpi_irecv mpi_irecv_
|
|
|
|
#define mpi_irecv mpi_irecv_
|
|
|
|
#define mpi_wait mpi_wait_
|
|
|
|
#define mpi_wait mpi_wait_
|
|
|
|
#define mpi_alltoall mpi_alltoall_
|
|
|
|
#define mpi_alltoall mpi_alltoall_
|
|
|
@ -17,6 +18,7 @@
|
|
|
|
#ifdef LowerDoubleUnderscore
|
|
|
|
#ifdef LowerDoubleUnderscore
|
|
|
|
#define mpi_wtime mpi_wtime__
|
|
|
|
#define mpi_wtime mpi_wtime__
|
|
|
|
#define mpi_send mpi_send__
|
|
|
|
#define mpi_send mpi_send__
|
|
|
|
|
|
|
|
#define mpi_isend mpi_isend__
|
|
|
|
#define mpi_irecv mpi_irecv__
|
|
|
|
#define mpi_irecv mpi_irecv__
|
|
|
|
#define mpi_wait mpi_wait__
|
|
|
|
#define mpi_wait mpi_wait__
|
|
|
|
#define mpi_alltoall mpi_alltoall__
|
|
|
|
#define mpi_alltoall mpi_alltoall__
|
|
|
@ -27,6 +29,7 @@
|
|
|
|
#ifdef LowerCase
|
|
|
|
#ifdef LowerCase
|
|
|
|
#define mpi_wtime mpi_wtime
|
|
|
|
#define mpi_wtime mpi_wtime
|
|
|
|
#define mpi_send mpi_send
|
|
|
|
#define mpi_send mpi_send
|
|
|
|
|
|
|
|
#define mpi_isend mpi_isend
|
|
|
|
#define mpi_irecv mpi_irecv
|
|
|
|
#define mpi_irecv mpi_irecv
|
|
|
|
#define mpi_wait mpi_wait
|
|
|
|
#define mpi_wait mpi_wait
|
|
|
|
#define mpi_alltoall mpi_alltoall
|
|
|
|
#define mpi_alltoall mpi_alltoall
|
|
|
@ -37,6 +40,7 @@
|
|
|
|
#ifdef UpperUnderscore
|
|
|
|
#ifdef UpperUnderscore
|
|
|
|
#define mpi_wtime MPI_WTIME_
|
|
|
|
#define mpi_wtime MPI_WTIME_
|
|
|
|
#define mpi_send MPI_SEND_
|
|
|
|
#define mpi_send MPI_SEND_
|
|
|
|
|
|
|
|
#define mpi_isend MPI_ISEND_
|
|
|
|
#define mpi_irecv MPI_IRECV_
|
|
|
|
#define mpi_irecv MPI_IRECV_
|
|
|
|
#define mpi_wait MPI_WAIT_
|
|
|
|
#define mpi_wait MPI_WAIT_
|
|
|
|
#define mpi_alltoall MPI_ALLTOALL_
|
|
|
|
#define mpi_alltoall MPI_ALLTOALL_
|
|
|
@ -47,6 +51,7 @@
|
|
|
|
#ifdef UpperDoubleUnderscore
|
|
|
|
#ifdef UpperDoubleUnderscore
|
|
|
|
#define mpi_wtime MPI_WTIME__
|
|
|
|
#define mpi_wtime MPI_WTIME__
|
|
|
|
#define mpi_send MPI_SEND__
|
|
|
|
#define mpi_send MPI_SEND__
|
|
|
|
|
|
|
|
#define mpi_isend MPI_ISEND__
|
|
|
|
#define mpi_irecv MPI_IRECV__
|
|
|
|
#define mpi_irecv MPI_IRECV__
|
|
|
|
#define mpi_wait MPI_WAIT__
|
|
|
|
#define mpi_wait MPI_WAIT__
|
|
|
|
#define mpi_alltoall MPI_ALLTOALL__
|
|
|
|
#define mpi_alltoall MPI_ALLTOALL__
|
|
|
@ -57,6 +62,7 @@
|
|
|
|
#ifdef UpperCase
|
|
|
|
#ifdef UpperCase
|
|
|
|
#define mpi_wtime MPI_WTIME
|
|
|
|
#define mpi_wtime MPI_WTIME
|
|
|
|
#define mpi_send MPI_SEND
|
|
|
|
#define mpi_send MPI_SEND
|
|
|
|
|
|
|
|
#define mpi_isend MPI_ISEND
|
|
|
|
#define mpi_irecv MPI_IRECV
|
|
|
|
#define mpi_irecv MPI_IRECV
|
|
|
|
#define mpi_wait MPI_WAIT
|
|
|
|
#define mpi_wait MPI_WAIT
|
|
|
|
#define mpi_alltoall MPI_ALLTOALL
|
|
|
|
#define mpi_alltoall MPI_ALLTOALL
|
|
|
@ -95,6 +101,10 @@ void mpi_send()
|
|
|
|
{
|
|
|
|
{
|
|
|
|
return;
|
|
|
|
return;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
void mpi_isend()
|
|
|
|
|
|
|
|
{
|
|
|
|
|
|
|
|
return;
|
|
|
|
|
|
|
|
}
|
|
|
|
void mpi_irecv()
|
|
|
|
void mpi_irecv()
|
|
|
|
{
|
|
|
|
{
|
|
|
|
return;
|
|
|
|
return;
|
|
|
|