File: parallel.h

package info (click to toggle)
asymptote 3.09%2Bds-1
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid
  • size: 41,392 kB
  • sloc: cpp: 282,597; ansic: 69,697; python: 15,252; sh: 5,888; perl: 3,006; makefile: 1,719; lisp: 1,507; yacc: 614; lex: 449; xml: 182; javascript: 79; asm: 8
file content (67 lines) | stat: -rw-r--r-- 1,344 bytes parent folder | download
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
#pragma once

#ifndef _OPENMP
#ifndef SINGLE_THREAD
#define SINGLE_THREAD
#endif
#endif

#ifndef SINGLE_THREAD
#include <omp.h>
#endif

extern size_t threshold;

namespace parallel {
extern size_t lastThreads;
inline size_t get_thread_num()
{
#ifdef SINGLE_THREAD
  return 0;
#else
  return omp_get_thread_num();
#endif
}

inline size_t get_thread_num(size_t threads) {
  return threads > 1 ? get_thread_num() : 0;
}

inline size_t get_max_threads()
{
#ifdef SINGLE_THREAD
  return 1;
#else
  return omp_get_max_threads();
#endif
}
}

#ifndef SINGLE_THREAD
#define PARALLEL(code)                                  \
  if(threads > 1) {                                     \
    _Pragma("omp parallel for num_threads(threads)")    \
      code                                              \
      } else {code}
#else
#define PARALLEL(code) {code}
#endif

#ifndef SINGLE_THREAD
#define OMPIF(condition,directive,code)         \
  if(threads > 1 && condition) {                \
    _Pragma(directive)                          \
      code                                      \
      } else {code}
#else
#define OMPIF(condition,directive,code) {code}
#endif

#define PARALLELIF(condition,code)                              \
  OMPIF(condition,"omp parallel for num_threads(threads)",code)

namespace parallel {

void Threshold(size_t threads);

}