int MPI_Send_init(MPE_CONST void *buf, int count, MPI_Datatype datatype,
int dest, int tag, MPI_Comm comm, MPI_Request *request)
{
int returnVal;
request_list *newrq;
int typesize3;
/* fprintf( stderr, "MPI_Send_init call on %d\n", procid_1 ); */
returnVal = PMPI_Send_init( buf, count, datatype, dest, tag, comm, request );
if (dest != MPI_PROC_NULL) {
rq_alloc( requests_avail_1, newrq );
if (newrq) {
PMPI_Type_size( datatype, &typesize3 );
newrq->request = *request;
newrq->status = RQ_SEND;
newrq->size = count * typesize3;
newrq->tag = tag;
newrq->otherParty = dest;
newrq->next = 0;
rq_add( requests_head_1, requests_tail_1, newrq );
}
}
return returnVal;
}
int MPI_Send_init(void *buf, int count, MPI_Datatype datatype, int dst,
int tag, MPI_Comm comm, MPI_Request * request)
{
return PMPI_Send_init(buf, count, datatype, dst, tag, comm, request);
}
