46 |
C system F90 compiler. |
C system F90 compiler. |
47 |
#ifdef TARGET_SUN |
#ifdef TARGET_SUN |
48 |
#define USE_SOLARIS_THREADING |
#define USE_SOLARIS_THREADING |
49 |
|
#define USING_THREADS |
50 |
#endif |
#endif |
51 |
|
|
52 |
#ifdef TARGET_DEC |
#ifdef TARGET_DEC |
53 |
#define USE_KAP_THREADING |
#define USE_KAP_THREADING |
54 |
|
#define USING_THREADS |
55 |
#endif |
#endif |
56 |
|
|
57 |
#ifdef TARGET_SGI |
#ifdef TARGET_SGI |
58 |
#define USE_IRIX_THREADING |
#define USE_IRIX_THREADING |
59 |
|
#define USING_THREADS |
60 |
#endif |
#endif |
61 |
|
|
62 |
#ifdef TARGET_HP |
#ifdef TARGET_HP |
63 |
#define USE_EXEMPLAR_THREADING |
#define USE_EXEMPLAR_THREADING |
64 |
|
#define USING_THREADS |
65 |
#endif |
#endif |
66 |
|
|
67 |
#ifdef TARGET_CRAY_VECTOR |
#ifdef TARGET_CRAY_VECTOR |
68 |
#define USE_C90_THREADING |
#define USE_C90_THREADING |
69 |
|
#define USING_THREADS |
70 |
|
#endif |
71 |
|
|
72 |
|
#ifdef USE_OMP_THREADING |
73 |
|
#define USING_THREADS |
74 |
#endif |
#endif |
75 |
|
|
76 |
C-- Define the mapping for the _BARRIER macro |
C-- Define the mapping for the _BARRIER macro |