starpu_mpi_private.c 1.0 KB

1234567891011121314151617181920212223242526272829303132333435363738
  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=3;
  20. int _starpu_mpi_tag = 42;
  21. void _starpu_mpi_set_debug_level(int level)
  22. {
  23. _debug_level = level;
  24. }
  25. int starpu_mpi_get_communication_tag(void)
  26. {
  27. return _starpu_mpi_tag;
  28. }
  29. void starpu_mpi_set_communication_tag(int tag)
  30. {
  31. _starpu_mpi_tag = tag;
  32. }