File: parallel.h

package info (click to toggle)
asymptote 2.85%2Bds-1
  • links: PTS, VCS
  • area: main
  • in suites: bookworm
  • size: 43,264 kB
  • sloc: cpp: 210,491; ansic: 98,376; python: 14,568; javascript: 6,629; sh: 4,301; perl: 1,566; lisp: 1,505; makefile: 764; yacc: 554; lex: 446; xml: 182; objc: 177
file content (63 lines) | stat: -rw-r--r-- 1,206 bytes parent folder | download | duplicates (2)
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
#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 int get_thread_num()
{
#ifdef SINGLE_THREAD
  return 0;
#else
  return omp_get_thread_num();
#endif
}

inline int 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);

}