mp_get_comm_count Function

public function mp_get_comm_count()

Return the current number of communicators

Arguments

None

Return Value integer


Source Code

   FUNCTION mp_get_comm_count()
     !! Return the current number of communicators
      INTEGER :: mp_get_comm_count

      mp_get_comm_count = 0
#if defined(__parallel)
      mp_get_comm_count = debug_comm_count
#endif
   END FUNCTION mp_get_comm_count