starpu_mpi_private.c 1.2 KB

1234567891011121314151617181920212223242526272829303132333435363738394041424344
  1. /* StarPU --- Runtime system for heterogeneous multicore architectures.
  2. *
  3. * Copyright (C) 2010, 2012 Université de Bordeaux 1
  4. * Copyright (C) 2010, 2011, 2012, 2013 Centre National de la Recherche Scientifique
  5. *
  6. * StarPU is free software; you can redistribute it and/or modify
  7. * it under the terms of the GNU Lesser General Public License as published by
  8. * the Free Software Foundation; either version 2.1 of the License, or (at
  9. * your option) any later version.
  10. *
  11. * StarPU is distributed in the hope that it will be useful, but
  12. * WITHOUT ANY WARRANTY; without even the implied warranty of
  13. * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
  14. *
  15. * See the GNU Lesser General Public License in COPYING.LGPL for more details.
  16. */
  17. #include <starpu_mpi_private.h>
  18. int _debug_rank=-1;
  19. int _debug_level_min=0;
  20. int _debug_level_max=0;
  21. int _starpu_mpi_tag = 42;
  22. void _starpu_mpi_set_debug_level_min(int level)
  23. {
  24. _debug_level_min = level;
  25. }
  26. void _starpu_mpi_set_debug_level_max(int level)
  27. {
  28. _debug_level_max = level;
  29. }
  30. int starpu_mpi_get_communication_tag(void)
  31. {
  32. return _starpu_mpi_tag;
  33. }
  34. void starpu_mpi_set_communication_tag(int tag)
  35. {
  36. _starpu_mpi_tag = tag;
  37. }