mp_set_comm_handle Subroutine

private elemental subroutine mp_set_comm_handle(comm, handle)

Type Bound

mp_comm_type

Arguments

Type IntentOptional Attributes Name
class(mp_comm_type), intent(inout) :: comm
integer, intent(in) :: handle

Source Code

      ELEMENTAL SUBROUTINE mp_set_comm_handle(comm, handle)
         CLASS(mp_comm_type), INTENT(INOUT) :: comm
         INTEGER, INTENT(IN) :: handle

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

      END SUBROUTINE mp_set_comm_handle