mp_set_win_handle Subroutine

private elemental subroutine mp_set_win_handle(win, handle)

Type Bound

mp_win_type

Arguments

Type IntentOptional Attributes Name
class(mp_win_type), intent(inout) :: win
integer, intent(in) :: handle

Source Code

      ELEMENTAL SUBROUTINE mp_set_win_handle(win, handle)
         CLASS(mp_win_type), INTENT(INOUT) :: win
         INTEGER, INTENT(IN) :: handle

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

      END SUBROUTINE mp_set_win_handle