61 int MPIR_Request_complete(MPI_Request * request, MPID_Request * request_ptr,   in MPIR_Request_complete()  argument
67     switch(request_ptr->kind)  in MPIR_Request_complete()
73 		status->cancelled = request_ptr->status.cancelled;  in MPIR_Request_complete()
75 	    mpi_errno = request_ptr->status.MPI_ERROR;  in MPIR_Request_complete()
77 	    MPIR_SENDQ_FORGET(request_ptr);  in MPIR_Request_complete()
78 	    MPID_Request_release(request_ptr);  in MPIR_Request_complete()
84 	    MPIR_Request_extract_status(request_ptr, status);  in MPIR_Request_complete()
85 	    mpi_errno = request_ptr->status.MPI_ERROR;  in MPIR_Request_complete()
86 	    MPID_Request_release(request_ptr);  in MPIR_Request_complete()
93 	    if (request_ptr->partner_request != NULL)  in MPIR_Request_complete()
95 		MPID_Request * prequest_ptr = request_ptr->partner_request;  in MPIR_Request_complete()
98                 MPID_cc_set(&request_ptr->cc, 0);  in MPIR_Request_complete()
99 		request_ptr->cc_ptr = &request_ptr->cc;  in MPIR_Request_complete()
100 		request_ptr->partner_request = NULL;  in MPIR_Request_complete()
143 		if (request_ptr->status.MPI_ERROR != MPI_SUCCESS)  in MPIR_Request_complete()
151 		    mpi_errno = request_ptr->status.MPI_ERROR;  in MPIR_Request_complete()
165 	    if (request_ptr->partner_request != NULL)  in MPIR_Request_complete()
167 		MPID_Request * prequest_ptr = request_ptr->partner_request;  in MPIR_Request_complete()
170                 MPID_cc_set(&request_ptr->cc, 0);  in MPIR_Request_complete()
171 		request_ptr->cc_ptr = &request_ptr->cc;  in MPIR_Request_complete()
172 		request_ptr->partner_request = NULL;  in MPIR_Request_complete()
183 		if (request_ptr->status.MPI_ERROR != MPI_SUCCESS)  in MPIR_Request_complete()
187 		    mpi_errno = request_ptr->status.MPI_ERROR;  in MPIR_Request_complete()
203             rc = MPIR_Grequest_query(request_ptr);  in MPIR_Request_complete()
208             MPIR_Request_extract_status(request_ptr, status);  in MPIR_Request_complete()
209             rc = MPIR_Grequest_free(request_ptr);  in MPIR_Request_complete()
215             MPID_Request_release(request_ptr);  in MPIR_Request_complete()
223             MPIR_Request_extract_status(request_ptr, status);  in MPIR_Request_complete()
224             MPID_Request_release(request_ptr);  in MPIR_Request_complete()
234 		"**badcase %d", request_ptr->kind);  in MPIR_Request_complete()
253 int MPIR_Request_get_error(MPID_Request * request_ptr)  in MPIR_Request_get_error()  argument
257     switch(request_ptr->kind)  in MPIR_Request_get_error()
263 	    mpi_errno = request_ptr->status.MPI_ERROR;  in MPIR_Request_get_error()
269 	    if (request_ptr->partner_request != NULL)  in MPIR_Request_get_error()
271 		if (request_ptr->partner_request->kind == MPID_UREQUEST)  in MPIR_Request_get_error()
275 			request_ptr->partner_request);  in MPIR_Request_get_error()
279 		    mpi_errno = request_ptr->partner_request->status.MPI_ERROR;  in MPIR_Request_get_error()
284 		mpi_errno = request_ptr->status.MPI_ERROR;  in MPIR_Request_get_error()
292 	    if (request_ptr->partner_request != NULL)  in MPIR_Request_get_error()
294 		mpi_errno = request_ptr->partner_request->status.MPI_ERROR;  in MPIR_Request_get_error()
298 		mpi_errno = request_ptr->status.MPI_ERROR;  in MPIR_Request_get_error()
310 	    switch (request_ptr->greq_fns->greq_lang)  in MPIR_Request_get_error()
316 		    rc = (request_ptr->greq_fns->query_fn)(  in MPIR_Request_get_error()
317 			request_ptr->greq_fns->grequest_extra_state,  in MPIR_Request_get_error()
318 			&request_ptr->status);  in MPIR_Request_get_error()
328 		    ((MPIR_Grequest_f77_query_function*)(request_ptr->greq_fns->query_fn))(   in MPIR_Request_get_error()
329 			request_ptr->greq_fns->grequest_extra_state, is,  in MPIR_Request_get_error()
333 			PMPI_Status_f2c( is, &request_ptr->status );  in MPIR_Request_get_error()
346 				 "**badcase %d", request_ptr->greq_fns->greq_lang);  in MPIR_Request_get_error()
360 				 "**badcase %d", request_ptr->kind);  in MPIR_Request_get_error()
386 int MPIR_Grequest_cancel(MPID_Request * request_ptr, int complete)  in MPIR_Grequest_cancel()  argument
391     switch (request_ptr->greq_fns->greq_lang)  in MPIR_Grequest_cancel()
397 	    rc = (request_ptr->greq_fns->cancel_fn)(  in MPIR_Grequest_cancel()
398 		request_ptr->greq_fns->grequest_extra_state, complete);  in MPIR_Grequest_cancel()
409 	    ((MPIR_Grequest_f77_cancel_function *)(request_ptr->greq_fns->cancel_fn))(  in MPIR_Grequest_cancel()
410 		request_ptr->greq_fns->grequest_extra_state, &icomplete, &ierr);  in MPIR_Grequest_cancel()
423 		"**badcase %d", request_ptr->greq_fns->greq_lang);  in MPIR_Grequest_cancel()
437 int MPIR_Grequest_query(MPID_Request * request_ptr)  in MPIR_Grequest_query()  argument
442     switch (request_ptr->greq_fns->greq_lang)  in MPIR_Grequest_query()
448 	    rc = (request_ptr->greq_fns->query_fn)(request_ptr->greq_fns->grequest_extra_state,  in MPIR_Grequest_query()
449 		&request_ptr->status);  in MPIR_Grequest_query()
459 	    ((MPIR_Grequest_f77_query_function *)(request_ptr->greq_fns->query_fn))(   in MPIR_Grequest_query()
460 		request_ptr->greq_fns->grequest_extra_state, is, &ierr );  in MPIR_Grequest_query()
463 		PMPI_Status_f2c( is, &request_ptr->status );  in MPIR_Grequest_query()
474 		"**badcase %d", request_ptr->greq_fns->greq_lang);  in MPIR_Grequest_query()
488 int MPIR_Grequest_free(MPID_Request * request_ptr)  in MPIR_Grequest_free()  argument
493     switch (request_ptr->greq_fns->greq_lang)  in MPIR_Grequest_free()
499 	    rc = (request_ptr->greq_fns->free_fn)(request_ptr->greq_fns->grequest_extra_state);  in MPIR_Grequest_free()
509 	    ((MPIR_Grequest_f77_free_function *)(request_ptr->greq_fns->free_fn))(  in MPIR_Grequest_free()
510 		request_ptr->greq_fns->grequest_extra_state, &ierr);  in MPIR_Grequest_free()
523 		"**badcase %d", request_ptr->greq_fns->greq_lang);  in MPIR_Grequest_free()