mp_set_request_handle Subroutine

private elemental subroutine mp_set_request_handle(request, handle)

Type Bound

mp_request_type

Arguments

Type IntentOptional Attributes Name
class(mp_request_type), intent(inout) :: request
integer, intent(in) :: handle

Source Code

      ELEMENTAL SUBROUTINE mp_set_request_handle(request, handle)
         CLASS(mp_request_type), INTENT(INOUT) :: request
         INTEGER, INTENT(IN) :: handle

#if defined(__parallel) && defined(__USE_MPI_F08)
         request%handle%mpi_val = handle
#else
         request%handle = handle
#endif

      END SUBROUTINE mp_set_request_handle