mp_get_comm_handle Function

private elemental function mp_get_comm_handle(comm)

Type Bound

mp_comm_type

Arguments

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

Return Value integer


Source Code

      ELEMENTAL INTEGER FUNCTION mp_get_comm_handle(comm)
         CLASS(mp_comm_type), INTENT(IN) :: comm

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

      END FUNCTION mp_get_comm_handle