OpenMP

Application Programming
Interface

Examples
Version 5.0.0 – November 2019

Source codes for OpenMP 5.0.0 Examples can be downloaded from github.

Copyright c 1997-2019 OpenMP Architecture Review Board.

Permission to copy without fee all or part of this material is granted, provided the OpenMP
Architecture Review Board copyright notice and the title of this document appear. Notice is
given that copying is by permission of OpenMP Architecture Review Board.
This page intentionally left blank
Contents

Foreword vii

Introduction 1

Examples 2

1 Parallel Execution 3
1.1 A Simple Parallel Loop . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 5
1.2 The parallel Construct . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 6
1.3 teams Construct on Host . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 8
1.4 Controlling the Number of Threads on Multiple Nesting Levels . . . . . . . . . . . 11
1.5 Interaction Between the num_threads Clause and omp_set_dynamic . . . . 14
1.6 Fortran Restrictions on the do Construct . . . . . . . . . . . . . . . . . . . . . . . 16
1.7 The nowait Clause . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 18
1.8 The collapse Clause . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 21
1.9 linear Clause in Loop Constructs . . . . . . . . . . . . . . . . . . . . . . . . . 25
1.10 The parallel sections Construct . . . . . . . . . . . . . . . . . . . . . . . 27
1.11 The firstprivate Clause and the sections Construct . . . . . . . . . . . . 28
1.12 The single Construct . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30
1.13 The workshare Construct . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32
1.14 The master Construct . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 36
1.15 The loop Construct . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 38
1.16 Parallel Random Access Iterator Loop . . . . . . . . . . . . . . . . . . . . . . . . 39
1.17 The omp_set_dynamic and
omp_set_num_threads Routines . . . . . . . . . . . . . . . . . . . . . . . . 40
1.18 The omp_get_num_threads Routine . . . . . . . . . . . . . . . . . . . . . . 42

i
 2 OpenMP Affinity 44
2.1 The proc_bind Clause . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 46
2.1.1 Spread Affinity Policy . . . . . . . . . . . . . . . . . . . . . . . . . . . . 46
2.1.2 Close Affinity Policy . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 49
2.1.3 Master Affinity Policy . . . . . . . . . . . . . . . . . . . . . . . . . . . . 51
2.2 Task Affinity . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 52
2.3 Affinity Display . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 53
2.4 Affinity Query Functions . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 64

3 Tasking 67
3.1 The task and taskwait Constructs . . . . . . . . . . . . . . . . . . . . . . . . 68
3.2 Task Priority . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 87
3.3 Task Dependences . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 89
3.3.1 Flow Dependence . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 89
3.3.2 Anti-dependence . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 90
3.3.3 Output Dependence . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 91
3.3.4 Concurrent Execution with Dependences . . . . . . . . . . . . . . . . . . 92
3.3.5 Matrix multiplication . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 93
3.3.6 taskwait with Dependences . . . . . . . . . . . . . . . . . . . . . . . . 94
3.3.7 Mutually Exclusive Execution with Dependences . . . . . . . . . . . . . . 101
3.3.8 Multidependences Using Iterators . . . . . . . . . . . . . . . . . . . . . . 104
3.4 The taskgroup Construct . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 107
3.5 The taskyield Construct . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 110
3.6 The taskloop Construct . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 112
3.7 The parallel master taskloop Construct . . . . . . . . . . . . . . . . . 116

4 Devices 118
4.1 target Construct . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 119
4.1.1 target Construct on parallel Construct . . . . . . . . . . . . . . . . 119
4.1.2 target Construct with map Clause . . . . . . . . . . . . . . . . . . . . 120
4.1.3 map Clause with to/from map-types . . . . . . . . . . . . . . . . . . . . 121
4.1.4 map Clause with Array Sections . . . . . . . . . . . . . . . . . . . . . . . 122
4.1.5 target Construct with if Clause . . . . . . . . . . . . . . . . . . . . . 124
4.1.6 target Reverse Offload . . . . . . . . . . . . . . . . . . . . . . . . . . . . 127

ii OpenMP Examples Version 5.0.0 - November 2019

4.2 Pointer mapping . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 130
4.3 Structure mapping . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 133
4.4 Array Sections in Device Constructs . . . . . . . . . . . . . . . . . . . . . . . . . 136
4.5 Array Shaping . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 140
4.6 declare mapper Construct . . . . . . . . . . . . . . . . . . . . . . . . . . . 142
4.7 target data Construct . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 149
4.7.1 Simple target data Construct . . . . . . . . . . . . . . . . . . . . . . 149
4.7.2 target data Region Enclosing Multiple target Regions . . . . . . . 150
4.7.3 target data Construct with Orphaned Call . . . . . . . . . . . . . . . 154
4.7.4 target data Construct with if Clause . . . . . . . . . . . . . . . . . . 158
4.8 target enter data and target exit data Constructs . . . . . . . . . . . 162
4.9 target update Construct . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 165
4.9.1 Simple target data and target update Constructs . . . . . . . . . 165
4.9.2 target update Construct with if Clause . . . . . . . . . . . . . . . . 167
4.10 declare target Construct . . . . . . . . . . . . . . . . . . . . . . . . . . . . 169
4.10.1 declare target and end declare target for a Function . . . . . . 169
4.10.2 declare target Construct for Class Type . . . . . . . . . . . . . . . . 171
4.10.3 declare target and end declare target for Variables . . . . . . 171
4.10.4 declare target and end declare target with declare simd . 174
4.10.5 declare target Directive with link Clause . . . . . . . . . . . . . . 177
4.11 teams Constructs . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 180
4.11.1 target and teams Constructs with omp_get_num_teams
and omp_get_team_num Routines . . . . . . . . . . . . . . . . . . . . 180
4.11.2 target, teams, and distribute Constructs . . . . . . . . . . . . . . 182
4.11.3 target teams, and Distribute Parallel Loop Constructs . . . . . . . . . 183
4.11.4 target teams and Distribute Parallel Loop Constructs with Scheduling
Clauses . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 185
4.11.5 target teams and distribute simd Constructs . . . . . . . . . . . 186
4.11.6 target teams and Distribute Parallel Loop SIMD Constructs . . . . . . 188
4.12 Asynchronous target Execution and Dependences . . . . . . . . . . . . . . . . 189
4.12.1 Asynchronous target with Tasks . . . . . . . . . . . . . . . . . . . . . 189
4.12.2 nowait Clause on target Construct . . . . . . . . . . . . . . . . . . . 193
4.12.3 Asynchronous target with nowait and depend Clauses . . . . . . . . 195

Contents iii
 4.13 Device Routines . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 198
4.13.1 omp_is_initial_device Routine . . . . . . . . . . . . . . . . . . . 198
4.13.2 omp_get_num_devices Routine . . . . . . . . . . . . . . . . . . . . 200
4.13.3 omp_set_default_device and
omp_get_default_device Routines . . . . . . . . . . . . . . . . . . 201
4.13.4 Target Memory and Device Pointers Routines . . . . . . . . . . . . . . . . 202

5 SIMD 204
5.1 simd and declare simd Constructs . . . . . . . . . . . . . . . . . . . . . . . 205
5.2 inbranch and notinbranch Clauses . . . . . . . . . . . . . . . . . . . . . . 212
5.3 Loop-Carried Lexical Forward Dependence . . . . . . . . . . . . . . . . . . . . . 216

6 Synchronization 219
6.1 The critical Construct . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 221
6.2 Worksharing Constructs Inside a critical Construct . . . . . . . . . . . . . . . 224
6.3 Binding of barrier Regions . . . . . . . . . . . . . . . . . . . . . . . . . . . . 226
6.4 The atomic Construct . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 228
6.5 Restrictions on the atomic Construct . . . . . . . . . . . . . . . . . . . . . . . . 234
6.6 The flush Construct without a List . . . . . . . . . . . . . . . . . . . . . . . . . 237
6.7 Synchronization Based on Acquire/Release Semantics . . . . . . . . . . . . . . . . 240
6.8 The ordered Clause and the ordered Construct . . . . . . . . . . . . . . . . . 248
6.9 The depobj Construct . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 252
6.10 Doacross Loop Nest . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 256
6.11 Lock Routines . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 262
6.11.1 The omp_init_lock Routine . . . . . . . . . . . . . . . . . . . . . . . 262
6.11.2 The omp_init_lock_with_hint Routine . . . . . . . . . . . . . . . 263
6.11.3 Ownership of Locks . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 264
6.11.4 Simple Lock Routines . . . . . . . . . . . . . . . . . . . . . . . . . . . . 265
6.11.5 Nestable Lock Routines . . . . . . . . . . . . . . . . . . . . . . . . . . . 268

7 Data Environment 271

7.1 The threadprivate Directive . . . . . . . . . . . . . . . . . . . . . . . . . . 273
7.2 The default(none) Clause . . . . . . . . . . . . . . . . . . . . . . . . . . . . 279
7.3 The private Clause . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 281
7.4 Fortran Private Loop Iteration Variables . . . . . . . . . . . . . . . . . . . . . . . 285

iv OpenMP Examples Version 5.0.0 - November 2019

 7.5 Fortran Restrictions on shared and private Clauses with Common Blocks . . 287
7.6 Fortran Restrictions on Storage Association with the private Clause . . . . . . . 289
7.7 C/C++ Arrays in a firstprivate Clause . . . . . . . . . . . . . . . . . . . . . 292
7.8 The lastprivate Clause . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 294
7.9 Reduction . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 295
7.9.1 The reduction Clause . . . . . . . . . . . . . . . . . . . . . . . . . . . 295
7.9.2 Task Reduction . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 303
7.9.3 Taskloop Reduction . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 306
7.9.4 User-Defined Reduction . . . . . . . . . . . . . . . . . . . . . . . . . . . 313
7.10 The copyin Clause . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 324
7.11 The copyprivate Clause . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 326
7.12 C++ Reference in Data-Sharing Clauses . . . . . . . . . . . . . . . . . . . . . . . 330
7.13 Fortran ASSOCIATE Construct . . . . . . . . . . . . . . . . . . . . . . . . . . . 331

8 Memory Model 333

8.1 The OpenMP Memory Model . . . . . . . . . . . . . . . . . . . . . . . . . . . . 335
8.2 Memory Allocators . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 341
8.3 Race Conditions Caused by Implied Copies of Shared Variables in Fortran . . . . . 344

9 Program Control 345

9.1 Conditional Compilation . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 347
9.2 Internal Control Variables (ICVs) . . . . . . . . . . . . . . . . . . . . . . . . . . 348
9.3 Placement of flush, barrier, taskwait and taskyield Directives . . . . 351
9.4 Cancellation Constructs . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 355
9.5 The requires Directive . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 360
9.6 declare variant Directive . . . . . . . . . . . . . . . . . . . . . . . . . . . . 362
9.7 Metadirective Directive . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 368
9.8 Nested Loop Constructs . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 374
9.9 Restrictions on Nesting of Regions . . . . . . . . . . . . . . . . . . . . . . . . . . 377
9.10 Target Offload . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 384

A Document Revision History 388

A.1 Changes from 4.5.0 to 5.0.0 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 388
A.2 Changes from 4.0.2 to 4.5.0 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 389
A.3 Changes from 4.0.1 to 4.0.2 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 390

Contents v
 A.4 Changes from 4.0 to 4.0.1 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 390
A.5 Changes from 3.1 to 4.0 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 390

vi OpenMP Examples Version 5.0.0 - November 2019

1 Foreword

2 The OpenMP Examples document has been updated with new features found in the OpenMP 5.0
3 Specification. The additional examples and updates are referenced in the Document Revision
4 History of the Appendix, Section A.1 on page 388.
5 Text describing an example with a 5.0 feature specifically states that the feature support begins in
6 the OpenMP 5.0 Specification. Also, an omp_5.0 keyword has been added to metadata in the
7 source code. These distinctions are presented to remind readers that a 5.0 compliant OpenMP
8 implementation is necessary to use these features in codes.
9 Examples for most of the 5.0 features are included in this document, and incremental releases will
10 become available as more feature examples and updates are submitted, and approved by the
11 OpenMP Examples Subcommittee.

12 Examples Subcommitee Co-chairs:

13 Henry Jin (NASA Ames Research Center)
14 Kent Milfeld (TACC, Texas Advanced Research Center)

vii
1 Introduction

2 This collection of programming examples supplements the OpenMP API for Shared Memory
3 Parallelization specifications, and is not part of the formal specifications. It assumes familiarity
4 with the OpenMP specifications, and shares the typographical conventions used in that document.
5 The OpenMP API specification provides a model for parallel programming that is portable across
6 shared memory architectures from different vendors. Compilers from numerous vendors support
7 the OpenMP API.
8 The directives, library routines, and environment variables demonstrated in this document allow
9 users to create and manage parallel programs while permitting portability. The directives extend the
10 C, C++ and Fortran base languages with single program multiple data (SPMD) constructs, tasking
11 constructs, device constructs, worksharing constructs, and synchronization constructs, and they
12 provide support for sharing and privatizing data. The functionality to control the runtime
13 environment is provided by library routines and environment variables. Compilers that support the
14 OpenMP API often include a command line option to the compiler that activates and allows
15 interpretation of all OpenMP directives.
16 The latest source codes for OpenMP Examples can be downloaded from the sources directory at
17 https://github.com/OpenMP/Examples. The codes for this OpenMP 5.0.0 Examples document have
18 the tag v5.0.0.
19 Complete information about the OpenMP API and a list of the compilers that support the OpenMP
20 API can be found at the OpenMP.org web site
21 http://www.openmp.org

1
1 Examples

2 The following are examples of the OpenMP API directives, constructs, and routines.
C / C++
3 A statement following a directive is compound only when necessary, and a non-compound
4 statement is indented with respect to a directive preceding it.
C / C++
5 Each example is labeled as ename.seqno.ext, where ename is the example name, seqno is the
6 sequence number in a section, and ext is the source file extension to indicate the code type and
7 source form. ext is one of the following:
8 • c – C code,
9 • cpp – C++ code,
10 • f – Fortran code in fixed form, and
11 • f90 – Fortran code in free form.

2
1 CHAPTER 1

2 Parallel Execution

3 A single thread, the initial thread, begins sequential execution of an OpenMP enabled program, as
4 if the whole program is in an implicit parallel region consisting of an implicit task executed by the
5 initial thread.
6 A parallel construct encloses code, forming a parallel region. An initial thread encountering a
7 parallel region forks (creates) a team of threads at the beginning of the parallel region, and
8 joins them (removes from execution) at the end of the region. The initial thread becomes the master
9 thread of the team in a parallel region with a thread number equal to zero, the other threads are
10 numbered from 1 to number of threads minus 1. A team may be comprised of just a single thread.
11 Each thread of a team is assigned an implicit task consisting of code within the parallel region. The
12 task that creates a parallel region is suspended while the tasks of the team are executed. A thread is
13 tied to its task; that is, only the thread assigned to the task can execute that task. After completion
14 of the parallel region, the master thread resumes execution of the generating task.
15 Any task within a parallel region is allowed to encounter another parallel region to form a
16 nested parallel region. The parallelism of a nested parallel region (whether it forks
17 additional threads, or is executed serially by the encountering task) can be controlled by the
18 OMP_NESTED environment variable or the omp_set_nested() API routine with arguments
19 indicating true or false.
20 The number of threads of a parallel region can be set by the OMP_NUM_THREADS
21 environment variable, the omp_set_num_threads() routine, or on the parallel directive
22 with the num_threads clause. The routine overrides the environment variable, and the clause
23 overrides all. Use the OMP_DYNAMIC or the omp_set_dynamic() function to specify that the
24 OpenMP implementation dynamically adjust the number of threads for parallel regions. The
25 default setting for dynamic adjustment is implementation defined. When dynamic adjustment is on
26 and the number of threads is specified, the number of threads becomes an upper limit for the
27 number of threads to be provided by the OpenMP runtime.

3
1 WORKSHARING CONSTRUCTS
2 A worksharing construct distributes the execution of the associated region among the members of
3 the team that encounter it. There is an implied barrier at the end of the worksharing region (there is
4 no barrier at the beginning). The worksharing constructs are:
5 • loop constructs: for and do
6 • sections
7 • single
8 • workshare
9 The for and do constructs (loop constructs) create a region consisting of a loop. A loop controlled
10 by a loop construct is called an associated loop. Nested loops can form a single region when the
11 collapse clause (with an integer argument) designates the number of associated loops to be
12 executed in parallel, by forming a "single iteration space" for the specified number of nested loops.
13 The ordered clause can also control multiple associated loops.
14 An associated loop must adhere to a "canonical form" (specified in the Canonical Loop Form of the
15 OpenMP Specifications document) which allows the iteration count (of all associated loops) to be
16 computed before the (outermost) loop is executed. Most common loops comply with the canonical
17 form, including C++ iterators.
18 A single construct forms a region in which only one thread (any one of the team) executes the
19 region. The other threads wait at the implied barrier at the end, unless the nowait clause is
20 specified.
21 The sections construct forms a region that contains one or more structured blocks. Each block
22 of a sections directive is constructed with a section construct, and executed once by one of
23 the threads (any one) in the team. (If only one block is formed in the region, the section
24 construct, which is used to separate blocks, is not required.) The other threads wait at the implied
25 barrier at the end, unless the nowait clause is specified.
26 The workshare construct is a Fortran feature that consists of a region with a single structure
27 block (section of code). Statements in the workshare region are divided into units of work, and
28 executed (once) by threads of the team.

29 MASTER CONSTRUCT
30 The master construct is not a worksharing construct. The master region is is executed only by the
31 master thread. There is no implicit barrier (and flush) at the end of the master region; hence the
32 other threads of the team continue execution beyond code statements beyond the master region.

4 OpenMP Examples Version 5.0.0 - November 2019

1 1.1 A Simple Parallel Loop
2 The following example demonstrates how to parallelize a simple loop using the parallel loop
3 construct. The loop iteration variable is private by default, so it is not necessary to specify it
4 explicitly in a private clause.
C / C++
5 Example ploop.1.c
S-1 void simple(int n, float *a, float *b)
S-2 {
S-3 int i;
S-4
S-5 #pragma omp parallel for
S-6 for (i=1; i<n; i++) /* i is private by default */
S-7 b[i] = (a[i] + a[i-1]) / 2.0;
S-8 }
C / C++
Fortran
6 Example ploop.1.f
S-1 SUBROUTINE SIMPLE(N, A, B)
S-2
S-3 INTEGER I, N
S-4 REAL B(N), A(N)
S-5
S-6 !$OMP PARALLEL DO !I is private by default
S-7 DO I=2,N
S-8 B(I) = (A(I) + A(I-1)) / 2.0
S-9 ENDDO
S-10 !$OMP END PARALLEL DO
S-11
S-12 END SUBROUTINE SIMPLE
Fortran

CHAPTER 1. PARALLEL EXECUTION 5

1 1.2 The parallel Construct
2 The parallel construct can be used in coarse-grain parallel programs. In the following example,
3 each thread in the parallel region decides what part of the global array x to work on, based on
4 the thread number:
C / C++
5 Example parallel.1.c
S-1 #include <omp.h>
S-2
S-3 void subdomain(float *x, int istart, int ipoints)
S-4 {
S-5 int i;
S-6
S-7 for (i = 0; i < ipoints; i++)
S-8 x[istart+i] = 123.456;
S-9 }
S-10
S-11 void sub(float *x, int npoints)
S-12 {
S-13 int iam, nt, ipoints, istart;
S-14
S-15 #pragma omp parallel default(shared) private(iam,nt,ipoints,istart)
S-16 {
S-17 iam = omp_get_thread_num();
S-18 nt = omp_get_num_threads();
S-19 ipoints = npoints / nt; /* size of partition */
S-20 istart = iam * ipoints; /* starting array index */
S-21 if (iam == nt-1) /* last thread may do more */
S-22 ipoints = npoints - istart;
S-23 subdomain(x, istart, ipoints);
S-24 }
S-25 }
S-26
S-27 int main()
S-28 {
S-29 float array[10000];
S-30
S-31 sub(array, 10000);
S-32
S-33 return 0;
S-34 }
C / C++

6 OpenMP Examples Version 5.0.0 - November 2019

 Fortran
1 Example parallel.1.f
S-1 SUBROUTINE SUBDOMAIN(X, ISTART, IPOINTS)
S-2 INTEGER ISTART, IPOINTS
S-3 REAL X(*)
S-4
S-5 INTEGER I
S-6
S-7 DO 100 I=1,IPOINTS
S-8 X(ISTART+I) = 123.456
S-9 100 CONTINUE
S-10
S-11 END SUBROUTINE SUBDOMAIN
S-12
S-13 SUBROUTINE SUB(X, NPOINTS)
S-14 INCLUDE "omp_lib.h" ! or USE OMP_LIB
S-15
S-16 REAL X(*)
S-17 INTEGER NPOINTS
S-18 INTEGER IAM, NT, IPOINTS, ISTART
S-19
S-20 !$OMP PARALLEL DEFAULT(PRIVATE) SHARED(X,NPOINTS)
S-21
S-22 IAM = OMP_GET_THREAD_NUM()
S-23 NT = OMP_GET_NUM_THREADS()
S-24 IPOINTS = NPOINTS/NT
S-25 ISTART = IAM * IPOINTS
S-26 IF (IAM .EQ. NT-1) THEN
S-27 IPOINTS = NPOINTS - ISTART
S-28 ENDIF
S-29 CALL SUBDOMAIN(X,ISTART,IPOINTS)
S-30
S-31 !$OMP END PARALLEL
S-32 END SUBROUTINE SUB
S-33
S-34 PROGRAM PAREXAMPLE
S-35 REAL ARRAY(10000)
S-36 CALL SUB(ARRAY, 10000)
S-37 END PROGRAM PAREXAMPLE
Fortran

CHAPTER 1. PARALLEL EXECUTION 7

 1 1.3 teams Construct on Host
2 Originally the teams construct was created for devices (such as GPUs) for independent executions
3 of a structured block by teams within a league (on SMs). It was only available through offloading
4 with the target construct, and the execution of a teams region could only be directed to host
5 execution by various means such as if and device clauses, and the OMP_TARGET_OFFLOAD
6 environment variable.
7 In OpenMP 5.0 the teams construct was extended to enable the host to execute a teams region
8 (without an associated target construct), with anticipation of further affinity and threading
9 controls in future OpenMP releases.
10 In the example below the teams construct is used to create two teams, one to execute single
11 precision code, and the other to execute double precision code. Two teams are required, and the
12 thread limit for each team is set to 1/2 of the number of available processors.
C / C++
13 Example host_teams.1.c
S-1 #include <stdio.h>
S-2 #include <stdlib.h>
S-3 #include <math.h>
S-4 #include <omp.h>
S-5 #define N 1000
S-6
S-7 int main(){
S-8 int nteams_required=2, max_thrds, tm_id;
S-9 float sp_x[N], sp_y[N], sp_a=0.0001e0;
S-10 double dp_x[N], dp_y[N], dp_a=0.0001e0;
S-11
S-12 // Create 2 teams, each team works in a different precision
S-13 #pragma omp teams num_teams(nteams_required) \
S-14 thread_limit(max_thrds) private(tm_id)
S-15 {
S-16 tm_id = omp_get_team_num();
S-17
S-18 if( omp_get_num_teams() != 2 ) //if only getting 1, quit
S-19 { printf("error: Insufficient teams on host, 2 required\n");
S-20 exit(0);
S-21 }
S-22
S-23 if(tm_id == 0) // Do Single Precision Work (SAXPY) with this team
S-24 {
S-25 #pragma omp parallel
S-26 {
S-27 #pragma omp for //init
S-28 for(int i=0; i<N; i++){sp_x[i] = i*0.0001; sp_y[i]=i; }

8 OpenMP Examples Version 5.0.0 - November 2019

 S-29
S-30 #pragma omp for simd simdlen(8)
S-31 for(int i=0; i<N; i++){sp_x[i] = sp_a*sp_x[i] + sp_y[i];}
S-32 }
S-33 }
S-34
S-35 if(tm_id == 1) // Do Double Precision Work (DAXPY) with this team
S-36 {
S-37 #pragma omp parallel
S-38 {
S-39 #pragma omp for //init
S-40 for(int i=0; i<N; i++){dp_x[i] = i*0.0001; dp_y[i]=i; }
S-41
S-42 #pragma omp for simd simdlen(4)
S-43 for(int i=0; i<N; i++){dp_x[i] = dp_a*dp_x[i] + dp_y[i];}
S-44 }
S-45 }
S-46 }
S-47
S-48 printf("i=%d sp|dp %f %f \n",N-1, sp_x[N-1], dp_x[N-1]);
S-49 printf("i=%d sp|dp %f %f \n",N/2, sp_x[N/2], dp_x[N/2]);
S-50 //OUTPUT1:i=999 sp|dp 999.000000 999.000010
S-51 //OUTPUT2:i=500 sp|dp 500.000000 500.000005
S-52
S-53 return 0;
S-54 }
C / C++
Fortran
1 Example host_teams.1.f90
S-1
S-2 program main
S-3 use omp_lib
S-4 integer :: nteams_required=2, max_thrds, tm_id
S-5 integer,parameter :: N=1000
S-6 real :: sp_x(N), sp_y(N), sp_a=0.0001e0
S-7 double precision :: dp_x(N), dp_y(N), dp_a=0.0001d0
S-8
S-9 max_thrds = omp_get_num_procs()/nteams_required
S-10
S-11 !! Create 2 teams, each team works in a different precision
S-12 !$omp teams num_teams(nteams_required) thread_limit(max_thrds) private(tm_id)
S-13
S-14 tm_id = omp_get_team_num()
S-15
S-16 if( omp_get_num_teams() /= 2 ) then !! if only getting 1, quit

CHAPTER 1. PARALLEL EXECUTION 9

S-17 stop "error: Insufficient teams on host, 2 required."
S-18 endif
S-19
S-20 if(tm_id == 0) then !! Do Single Precision Work (SAXPY) with this team
S-21
S-22 !$omp parallel
S-23 !$omp do !! init
S-24 do i = 1,N
S-25 sp_x(i) = i*0.0001e0
S-26 sp_y(i) = i
S-27 end do
S-28
S-29 !$omp do simd simdlen(8)
S-30 do i = 1,N
S-31 sp_x(i) = sp_a*sp_x(i) + sp_y(i)
S-32 end do
S-33 !$omp end parallel
S-34
S-35 endif
S-36
S-37 if(tm_id == 1) then !! Do Double Precision Work (DAXPY) with this team
S-38
S-39 !$omp parallel
S-40 !$omp do !! init
S-41 do i = 1,N
S-42 dp_x(i) = i*0.0001d0
S-43 dp_y(i) = i
S-44 end do
S-45
S-46 !$omp do simd simdlen(4)
S-47 do i = 1,N
S-48 dp_x(i) = dp_a*dp_x(i) + dp_y(i)
S-49 end do
S-50 !$omp end parallel
S-51
S-52 endif
S-53 !$omp end teams
S-54
S-55 write(*,’( "i=",i4," sp|dp= ", e15.7, d25.16 )’) N, sp_x(N), dp_x(N)
S-56 write(*,’( "i=",i4," sp|dp= ", e15.7, d25.16 )’) N/2, sp_x(N/2), dp_x(N/2)
S-57 !! i=1000 sp|dp= 0.1000000E+04 0.1000000010000000D+04
S-58 !! i= 500 sp|dp= 0.5000000E+03 0.5000000050000000D+03
S-59 end program
Fortran

10 OpenMP Examples Version 5.0.0 - November 2019

1 1.4 Controlling the Number of Threads on Multiple
2 Nesting Levels
3 The following examples demonstrate how to use the OMP_NUM_THREADS environment variable to
4 control the number of threads on multiple nesting levels:
C / C++
5 Example nthrs_nesting.1.c
S-1 #include <stdio.h>
S-2 #include <omp.h>
S-3 int main (void)
S-4 {
S-5 omp_set_nested(1);
S-6 omp_set_dynamic(0);
S-7 #pragma omp parallel
S-8 {
S-9 #pragma omp parallel
S-10 {
S-11 #pragma omp single
S-12 {
S-13 /*
S-14 * If OMP_NUM_THREADS=2,3 was set, the following should print:
S-15 * Inner: num_thds=3
S-16 * Inner: num_thds=3
S-17 *
S-18 * If nesting is not supported, the following should print:
S-19 * Inner: num_thds=1
S-20 * Inner: num_thds=1
S-21 */
S-22 printf ("Inner: num_thds=%d\n", omp_get_num_threads());
S-23 }
S-24 }
S-25 #pragma omp barrier
S-26 omp_set_nested(0);
S-27 #pragma omp parallel
S-28 {
S-29 #pragma omp single
S-30 {
S-31 /*
S-32 * Even if OMP_NUM_THREADS=2,3 was set, the following should
S-33 * print, because nesting is disabled:
S-34 * Inner: num_thds=1
S-35 * Inner: num_thds=1
S-36 */
S-37 printf ("Inner: num_thds=%d\n", omp_get_num_threads());

CHAPTER 1. PARALLEL EXECUTION 11

 S-38 }
S-39 }
S-40 #pragma omp barrier
S-41 #pragma omp single
S-42 {
S-43 /*
S-44 * If OMP_NUM_THREADS=2,3 was set, the following should print:
S-45 * Outer: num_thds=2
S-46 */
S-47 printf ("Outer: num_thds=%d\n", omp_get_num_threads());
S-48 }
S-49 }
S-50 return 0;
S-51 }
C / C++
Fortran
1 Example nthrs_nesting.1.f
S-1 program icv
S-2 use omp_lib
S-3 call omp_set_nested(.true.)
S-4 call omp_set_dynamic(.false.)
S-5 !$omp parallel
S-6 !$omp parallel
S-7 !$omp single
S-8 ! If OMP_NUM_THREADS=2,3 was set, the following should print:
S-9 ! Inner: num_thds= 3
S-10 ! Inner: num_thds= 3
S-11 ! If nesting is not supported, the following should print:
S-12 ! Inner: num_thds= 1
S-13 ! Inner: num_thds= 1
S-14 print *, "Inner: num_thds=", omp_get_num_threads()
S-15 !$omp end single
S-16 !$omp end parallel
S-17 !$omp barrier
S-18 call omp_set_nested(.false.)
S-19 !$omp parallel
S-20 !$omp single
S-21 ! Even if OMP_NUM_THREADS=2,3 was set, the following should print,
S-22 ! because nesting is disabled:
S-23 ! Inner: num_thds= 1
S-24 ! Inner: num_thds= 1
S-25 print *, "Inner: num_thds=", omp_get_num_threads()
S-26 !$omp end single
S-27 !$omp end parallel
S-28 !$omp barrier

12 OpenMP Examples Version 5.0.0 - November 2019

S-29 !$omp single
S-30 ! If OMP_NUM_THREADS=2,3 was set, the following should print:
S-31 ! Outer: num_thds= 2
S-32 print *, "Outer: num_thds=", omp_get_num_threads()
S-33 !$omp end single
S-34 !$omp end parallel
S-35 end
Fortran

CHAPTER 1. PARALLEL EXECUTION 13

 1 1.5 Interaction Between the num_threads Clause
2 and omp_set_dynamic
3 The following example demonstrates the num_threads clause and the effect of the
4 omp_set_dynamic routine on it.
5 The call to the omp_set_dynamic routine with argument 0 in C/C++, or .FALSE. in Fortran,
6 disables the dynamic adjustment of the number of threads in OpenMP implementations that support
7 it. In this case, 10 threads are provided. Note that in case of an error the OpenMP implementation
8 is free to abort the program or to supply any number of threads available.
C / C++
9 Example nthrs_dynamic.1.c
S-1 #include <omp.h>
S-2 int main()
S-3 {
S-4 omp_set_dynamic(0);
S-5 #pragma omp parallel num_threads(10)
S-6 {
S-7 /* do work here */
S-8 }
S-9 return 0;
S-10 }
C / C++
Fortran
10 Example nthrs_dynamic.1.f
S-1 PROGRAM EXAMPLE
S-2 INCLUDE "omp_lib.h" ! or USE OMP_LIB
S-3 CALL OMP_SET_DYNAMIC(.FALSE.)
S-4 !$OMP PARALLEL NUM_THREADS(10)
S-5 ! do work here
S-6 !$OMP END PARALLEL
S-7 END PROGRAM EXAMPLE
Fortran

14 OpenMP Examples Version 5.0.0 - November 2019

1 The call to the omp_set_dynamic routine with a non-zero argument in C/C++, or .TRUE. in
2 Fortran, allows the OpenMP implementation to choose any number of threads between 1 and 10.
C / C++
3 Example nthrs_dynamic.2.c
S-1 #include <omp.h>
S-2 int main()
S-3 {
S-4 omp_set_dynamic(1);
S-5 #pragma omp parallel num_threads(10)
S-6 {
S-7 /* do work here */
S-8 }
S-9 return 0;
S-10 }
C / C++
Fortran
4 Example nthrs_dynamic.2.f
S-1 PROGRAM EXAMPLE
S-2 INCLUDE "omp_lib.h" ! or USE OMP_LIB
S-3 CALL OMP_SET_DYNAMIC(.TRUE.)
S-4 !$OMP PARALLEL NUM_THREADS(10)
S-5 ! do work here
S-6 !$OMP END PARALLEL
S-7 END PROGRAM EXAMPLE
Fortran
5 It is good practice to set the dyn-var ICV explicitly by calling the omp_set_dynamic routine, as
6 its default setting is implementation defined.

CHAPTER 1. PARALLEL EXECUTION 15

1 1.6 Fortran Restrictions on the do Construct
Fortran
2 If an end do directive follows a do-construct in which several DO statements share a DO
3 termination statement, then a do directive can only be specified for the outermost of these DO
4 statements. The following example contains correct usages of loop constructs:
5 Example fort_do.1.f
S-1 SUBROUTINE WORK(I, J)
S-2 INTEGER I,J
S-3 END SUBROUTINE WORK
S-4
S-5 SUBROUTINE DO_GOOD()
S-6 INTEGER I, J
S-7 REAL A(1000)
S-8
S-9 DO 100 I = 1,10
S-10 !$OMP DO
S-11 DO 100 J = 1,10
S-12 CALL WORK(I,J)
S-13 100 CONTINUE ! !$OMP ENDDO implied here
S-14
S-15 !$OMP DO
S-16 DO 200 J = 1,10
S-17 200 A(I) = I + 1
S-18 !$OMP ENDDO
S-19
S-20 !$OMP DO
S-21 DO 300 I = 1,10
S-22 DO 300 J = 1,10
S-23 CALL WORK(I,J)
S-24 300 CONTINUE
S-25 !$OMP ENDDO
S-26 END SUBROUTINE DO_GOOD

6 The following example is non-conforming because the matching do directive for the end do does
7 not precede the outermost loop:
8 Example fort_do.2.f
S-1 SUBROUTINE WORK(I, J)
S-2 INTEGER I,J
S-3 END SUBROUTINE WORK
S-4
S-5 SUBROUTINE DO_WRONG
S-6 INTEGER I, J

16 OpenMP Examples Version 5.0.0 - November 2019

 S-7
S-8 DO 100 I = 1,10
S-9 !$OMP DO
S-10 DO 100 J = 1,10
S-11 CALL WORK(I,J)
S-12 100 CONTINUE
S-13 !$OMP ENDDO
S-14 END SUBROUTINE DO_WRONG
Fortran

CHAPTER 1. PARALLEL EXECUTION 17

1 1.7 The nowait Clause
2 If there are multiple independent loops within a parallel region, you can use the nowait
3 clause to avoid the implied barrier at the end of the loop construct, as follows:
C / C++
4 Example nowait.1.c
S-1 #include <math.h>
S-2
S-3 void nowait_example(int n, int m, float *a, float *b, float *y, float *z)
S-4 {
S-5 int i;
S-6 #pragma omp parallel
S-7 {
S-8 #pragma omp for nowait
S-9 for (i=1; i<n; i++)
S-10 b[i] = (a[i] + a[i-1]) / 2.0;
S-11
S-12 #pragma omp for nowait
S-13 for (i=0; i<m; i++)
S-14 y[i] = sqrt(z[i]);
S-15 }
S-16 }
C / C++
Fortran
5 Example nowait.1.f
S-1 SUBROUTINE NOWAIT_EXAMPLE(N, M, A, B, Y, Z)
S-2
S-3 INTEGER N, M
S-4 REAL A(*), B(*), Y(*), Z(*)
S-5
S-6 INTEGER I
S-7
S-8 !$OMP PARALLEL
S-9
S-10 !$OMP DO
S-11 DO I=2,N
S-12 B(I) = (A(I) + A(I-1)) / 2.0
S-13 ENDDO
S-14 !$OMP END DO NOWAIT
S-15
S-16 !$OMP DO
S-17 DO I=1,M
S-18 Y(I) = SQRT(Z(I))

18 OpenMP Examples Version 5.0.0 - November 2019

 S-19 ENDDO
S-20 !$OMP END DO NOWAIT
S-21
S-22 !$OMP END PARALLEL
S-23
S-24 END SUBROUTINE NOWAIT_EXAMPLE
Fortran
1 In the following example, static scheduling distributes the same logical iteration numbers to the
2 threads that execute the three loop regions. This allows the nowait clause to be used, even though
3 there is a data dependence between the loops. The dependence is satisfied as long the same thread
4 executes the same logical iteration numbers in each loop.
5 Note that the iteration count of the loops must be the same. The example satisfies this requirement,
6 since the iteration space of the first two loops is from 0 to n-1 (from 1 to N in the Fortran version),
7 while the iteration space of the last loop is from 1 to n (2 to N+1 in the Fortran version).
C / C++
8 Example nowait.2.c
S-1
S-2 #include <math.h>
S-3 void nowait_example2(int n, float *a, float *b, float *c, float *y, float
S-4 *z)
S-5 {
S-6 int i;
S-7 #pragma omp parallel
S-8 {
S-9 #pragma omp for schedule(static) nowait
S-10 for (i=0; i<n; i++)
S-11 c[i] = (a[i] + b[i]) / 2.0f;
S-12 #pragma omp for schedule(static) nowait
S-13 for (i=0; i<n; i++)
S-14 z[i] = sqrtf(c[i]);
S-15 #pragma omp for schedule(static) nowait
S-16 for (i=1; i<=n; i++)
S-17 y[i] = z[i-1] + a[i];
S-18 }
S-19 }
C / C++

CHAPTER 1. PARALLEL EXECUTION 19

 Fortran
1 Example nowait.2.f90
S-1 SUBROUTINE NOWAIT_EXAMPLE2(N, A, B, C, Y, Z)
S-2 INTEGER N
S-3 REAL A(*), B(*), C(*), Y(*), Z(*)
S-4 INTEGER I
S-5 !$OMP PARALLEL
S-6 !$OMP DO SCHEDULE(STATIC)
S-7 DO I=1,N
S-8 C(I) = (A(I) + B(I)) / 2.0
S-9 ENDDO
S-10 !$OMP END DO NOWAIT
S-11 !$OMP DO SCHEDULE(STATIC)
S-12 DO I=1,N
S-13 Z(I) = SQRT(C(I))
S-14 ENDDO
S-15 !$OMP END DO NOWAIT
S-16 !$OMP DO SCHEDULE(STATIC)
S-17 DO I=2,N+1
S-18 Y(I) = Z(I-1) + A(I)
S-19 ENDDO
S-20 !$OMP END DO NOWAIT
S-21 !$OMP END PARALLEL
S-22 END SUBROUTINE NOWAIT_EXAMPLE2
Fortran

20 OpenMP Examples Version 5.0.0 - November 2019

 1 1.8 The collapse Clause
2 In the following example, the k and j loops are associated with the loop construct. So the iterations
3 of the k and j loops are collapsed into one loop with a larger iteration space, and that loop is then
4 divided among the threads in the current team. Since the i loop is not associated with the loop
5 construct, it is not collapsed, and the i loop is executed sequentially in its entirety in every iteration
6 of the collapsed k and j loop.
7 The variable j can be omitted from the private clause when the collapse clause is used since
8 it is implicitly private. However, if the collapse clause is omitted then j will be shared if it is
9 omitted from the private clause. In either case, k is implicitly private and could be omitted from
10 the private clause.
C / C++
11 Example collapse.1.c
S-1
S-2 void bar(float *a, int i, int j, int k);
S-3
S-4 int kl, ku, ks, jl, ju, js, il, iu,is;
S-5
S-6 void sub(float *a)
S-7 {
S-8 int i, j, k;
S-9
S-10 #pragma omp for collapse(2) private(i, k, j)
S-11 for (k=kl; k<=ku; k+=ks)
S-12 for (j=jl; j<=ju; j+=js)
S-13 for (i=il; i<=iu; i+=is)
S-14 bar(a,i,j,k);
S-15 }
C / C++

CHAPTER 1. PARALLEL EXECUTION 21

 Fortran
1 Example collapse.1.f
S-1
S-2 subroutine sub(a)
S-3
S-4 real a(*)
S-5 integer kl, ku, ks, jl, ju, js, il, iu, is
S-6 common /csub/ kl, ku, ks, jl, ju, js, il, iu, is
S-7 integer i, j, k
S-8
S-9 !$omp do collapse(2) private(i,j,k)
S-10 do k = kl, ku, ks
S-11 do j = jl, ju, js
S-12 do i = il, iu, is
S-13 call bar(a,i,j,k)
S-14 enddo
S-15 enddo
S-16 enddo
S-17 !$omp end do
S-18
S-19 end subroutine
Fortran
2 In the next example, the k and j loops are associated with the loop construct. So the iterations of
3 the k and j loops are collapsed into one loop with a larger iteration space, and that loop is then
4 divided among the threads in the current team.
5 The sequential execution of the iterations in the k and j loops determines the order of the iterations
6 in the collapsed iteration space. This implies that in the sequentially last iteration of the collapsed
7 iteration space, k will have the value 2 and j will have the value 3. Since klast and jlast are
8 lastprivate, their values are assigned by the sequentially last iteration of the collapsed k and j
9 loop. This example prints: 2 3.
C / C++
10 Example collapse.2.c
S-1
S-2 #include <stdio.h>
S-3 void test()
S-4 {
S-5 int j, k, jlast, klast;
S-6 #pragma omp parallel
S-7 {
S-8 #pragma omp for collapse(2) lastprivate(jlast, klast)
S-9 for (k=1; k<=2; k++)
S-10 for (j=1; j<=3; j++)

22 OpenMP Examples Version 5.0.0 - November 2019

 S-11 {
S-12 jlast=j;
S-13 klast=k;
S-14 }
S-15 #pragma omp single
S-16 printf("%d %d\n", klast, jlast);
S-17 }
S-18 }
C / C++
Fortran
1 Example collapse.2.f
S-1
S-2 program test
S-3 !$omp parallel
S-4 !$omp do private(j,k) collapse(2) lastprivate(jlast, klast)
S-5 do k = 1,2
S-6 do j = 1,3
S-7 jlast=j
S-8 klast=k
S-9 enddo
S-10 enddo
S-11 !$omp end do
S-12 !$omp single
S-13 print *, klast, jlast
S-14 !$omp end single
S-15 !$omp end parallel
S-16 end program test
Fortran
2 The next example illustrates the interaction of the collapse and ordered clauses.
3 In the example, the loop construct has both a collapse clause and an ordered clause. The
4 collapse clause causes the iterations of the k and j loops to be collapsed into one loop with a
5 larger iteration space, and that loop is divided among the threads in the current team. An ordered
6 clause is added to the loop construct, because an ordered region binds to the loop region arising
7 from the loop construct.
8 According to Section 2.12.8 of the OpenMP 4.0 specification, a thread must not execute more than
9 one ordered region that binds to the same loop region. So the collapse clause is required for the
10 example to be conforming. With the collapse clause, the iterations of the k and j loops are
11 collapsed into one loop, and therefore only one ordered region will bind to the collapsed k and j
12 loop. Without the collapse clause, there would be two ordered regions that bind to each
13 iteration of the k loop (one arising from the first iteration of the j loop, and the other arising from
14 the second iteration of the j loop).

CHAPTER 1. PARALLEL EXECUTION 23

1 The code prints
2 0 1 1
3 0 1 2
4 0 2 1
5 1 2 2
6 1 3 1
7 1 3 2
C / C++
8 Example collapse.3.c
S-1 #include <omp.h>
S-2 #include <stdio.h>
S-3 void work(int a, int j, int k);
S-4 void sub()
S-5 {
S-6 int j, k, a;
S-7 #pragma omp parallel num_threads(2)
S-8 {
S-9 #pragma omp for collapse(2) ordered private(j,k) schedule(static,3)
S-10 for (k=1; k<=3; k++)
S-11 for (j=1; j<=2; j++)
S-12 {
S-13 #pragma omp ordered
S-14 printf("%d %d %d\n", omp_get_thread_num(), k, j);
S-15 /* end ordered */
S-16 work(a,j,k);
S-17 }
S-18 }
S-19 }
C / C++
Fortran
9 Example collapse.3.f
S-1 program test
S-2 include ’omp_lib.h’
S-3 !$omp parallel num_threads(2)
S-4 !$omp do collapse(2) ordered private(j,k) schedule(static,3)
S-5 do k = 1,3
S-6 do j = 1,2
S-7 !$omp ordered
S-8 print *, omp_get_thread_num(), k, j
S-9 !$omp end ordered
S-10 call work(a,j,k)
S-11 enddo

24 OpenMP Examples Version 5.0.0 - November 2019

 S-12 enddo
S-13 !$omp end do
S-14 !$omp end parallel
S-15 end program test
Fortran

1 1.9 linear Clause in Loop Constructs

2 The following example shows the use of the linear clause in a loop construct to allow the proper
3 parallelization of a loop that contains an induction variable (j). At the end of the execution of the
4 loop construct, the original variable j is updated with the value N/2 from the last iteration of the
5 loop.
C / C++
6 Example linear_in_loop.1.c
S-1 #include <stdio.h>
S-2
S-3 #define N 100
S-4 int main(void)
S-5 {
S-6 float a[N], b[N/2];
S-7 int i, j;
S-8
S-9 for ( i = 0; i < N; i++ )
S-10 a[i] = i + 1;
S-11
S-12 j = 0;
S-13 #pragma omp parallel
S-14 #pragma omp for linear(j:1)
S-15 for ( i = 0; i < N; i += 2 ) {
S-16 b[j] = a[i] * 2.0f;
S-17 j++;
S-18 }
S-19
S-20 printf( "%d %f %f\n", j, b[0], b[j-1] );
S-21 /* print out: 50 2.0 198.0 */
S-22
S-23 return 0;
S-24 }
C / C++

CHAPTER 1. PARALLEL EXECUTION 25

 Fortran
1 Example linear_in_loop.1.f90
S-1 program linear_loop
S-2 implicit none
S-3 integer, parameter :: N = 100
S-4 real :: a(N), b(N/2)
S-5 integer :: i, j
S-6
S-7 do i = 1, N
S-8 a(i) = i
S-9 end do
S-10
S-11 j = 0
S-12 !$omp parallel
S-13 !$omp do linear(j:1)
S-14 do i = 1, N, 2
S-15 j = j + 1
S-16 b(j) = a(i) * 2.0
S-17 end do
S-18 !$omp end parallel
S-19
S-20 print *, j, b(1), b(j)
S-21 ! print out: 50 2.0 198.0
S-22
S-23 end program
Fortran

26 OpenMP Examples Version 5.0.0 - November 2019

1 1.10 The parallel sections Construct
2 In the following example routines XAXIS, YAXIS, and ZAXIS can be executed concurrently. The
3 first section directive is optional. Note that all section directives need to appear in the
4 parallel sections construct.
C / C++
5 Example psections.1.c
S-1 void XAXIS();
S-2 void YAXIS();
S-3 void ZAXIS();
S-4
S-5 void sect_example()
S-6 {
S-7 #pragma omp parallel sections
S-8 {
S-9 #pragma omp section
S-10 XAXIS();
S-11
S-12 #pragma omp section
S-13 YAXIS();
S-14
S-15 #pragma omp section
S-16 ZAXIS();
S-17 }
S-18 }
C / C++
Fortran
6 Example psections.1.f
S-1 SUBROUTINE SECT_EXAMPLE()
S-2 !$OMP PARALLEL SECTIONS
S-3 !$OMP SECTION
S-4 CALL XAXIS()
S-5 !$OMP SECTION
S-6 CALL YAXIS()
S-7
S-8 !$OMP SECTION
S-9 CALL ZAXIS()
S-10
S-11 !$OMP END PARALLEL SECTIONS
S-12 END SUBROUTINE SECT_EXAMPLE
Fortran

CHAPTER 1. PARALLEL EXECUTION 27

 1 1.11 The firstprivate Clause and the sections
2 Construct
3 In the following example of the sections construct the firstprivate clause is used to
4 initialize the private copy of section_count of each thread. The problem is that the section
5 constructs modify section_count, which breaks the independence of the section constructs.
6 When different threads execute each section, both sections will print the value 1. When the same
7 thread executes the two sections, one section will print the value 1 and the other will print the value
8 2. Since the order of execution of the two sections in this case is unspecified, it is unspecified which
9 section prints which value.
C / C++
10 Example fpriv_sections.1.c
S-1 #include <omp.h>
S-2 #include <stdio.h>
S-3 #define NT 4
S-4 int main( ) {
S-5 int section_count = 0;
S-6 omp_set_dynamic(0);
S-7 omp_set_num_threads(NT);
S-8 #pragma omp parallel
S-9 #pragma omp sections firstprivate( section_count )
S-10 {
S-11 #pragma omp section
S-12 {
S-13 section_count++;
S-14 /* may print the number one or two */
S-15 printf( "section_count %d\n", section_count );
S-16 }
S-17 #pragma omp section
S-18 {
S-19 section_count++;
S-20 /* may print the number one or two */
S-21 printf( "section_count %d\n", section_count );
S-22 }
S-23 }
S-24 return 0;
S-25 }
C / C++

28 OpenMP Examples Version 5.0.0 - November 2019

 Fortran
1 Example fpriv_sections.1.f90
S-1 program section
S-2 use omp_lib
S-3 integer :: section_count = 0
S-4 integer, parameter :: NT = 4
S-5 call omp_set_dynamic(.false.)
S-6 call omp_set_num_threads(NT)
S-7 !$omp parallel
S-8 !$omp sections firstprivate ( section_count )
S-9 !$omp section
S-10 section_count = section_count + 1
S-11 ! may print the number one or two
S-12 print *, ’section_count’, section_count
S-13 !$omp section
S-14 section_count = section_count + 1
S-15 ! may print the number one or two
S-16 print *, ’section_count’, section_count
S-17 !$omp end sections
S-18 !$omp end parallel
S-19 end program section
Fortran

CHAPTER 1. PARALLEL EXECUTION 29

1 1.12 The single Construct
2 The following example demonstrates the single construct. In the example, only one thread prints
3 each of the progress messages. All other threads will skip the single region and stop at the
4 barrier at the end of the single construct until all threads in the team have reached the barrier. If
5 other threads can proceed without waiting for the thread executing the single region, a nowait
6 clause can be specified, as is done in the third single construct in this example. The user must
7 not make any assumptions as to which thread will execute a single region.
C / C++
8 Example single.1.c
S-1 #include <stdio.h>
S-2
S-3 void work1() {}
S-4 void work2() {}
S-5
S-6 void single_example()
S-7 {
S-8 #pragma omp parallel
S-9 {
S-10 #pragma omp single
S-11 printf("Beginning work1.\n");
S-12
S-13 work1();
S-14
S-15 #pragma omp single
S-16 printf("Finishing work1.\n");
S-17
S-18 #pragma omp single nowait
S-19 printf("Finished work1 and beginning work2.\n");
S-20
S-21 work2();
S-22 }
S-23 }
C / C++

30 OpenMP Examples Version 5.0.0 - November 2019

 Fortran
1 Example single.1.f
S-1 SUBROUTINE WORK1()
S-2 END SUBROUTINE WORK1
S-3
S-4 SUBROUTINE WORK2()
S-5 END SUBROUTINE WORK2
S-6
S-7 PROGRAM SINGLE_EXAMPLE
S-8 !$OMP PARALLEL
S-9
S-10 !$OMP SINGLE
S-11 print *, "Beginning work1."
S-12 !$OMP END SINGLE
S-13
S-14 CALL WORK1()
S-15
S-16 !$OMP SINGLE
S-17 print *, "Finishing work1."
S-18 !$OMP END SINGLE
S-19
S-20 !$OMP SINGLE
S-21 print *, "Finished work1 and beginning work2."
S-22 !$OMP END SINGLE NOWAIT
S-23
S-24 CALL WORK2()
S-25
S-26 !$OMP END PARALLEL
S-27
S-28 END PROGRAM SINGLE_EXAMPLE
Fortran

CHAPTER 1. PARALLEL EXECUTION 31

1 1.13 The workshare Construct
Fortran
2 The following are examples of the workshare construct.
3 In the following example, workshare spreads work across the threads executing the parallel
4 region, and there is a barrier after the last statement. Implementations must enforce Fortran
5 execution rules inside of the workshare block.
6 Example workshare.1.f
S-1 SUBROUTINE WSHARE1(AA, BB, CC, DD, EE, FF, N)
S-2 INTEGER N
S-3 REAL AA(N,N), BB(N,N), CC(N,N), DD(N,N), EE(N,N), FF(N,N)
S-4
S-5 !$OMP PARALLEL
S-6 !$OMP WORKSHARE
S-7 AA = BB
S-8 CC = DD
S-9 EE = FF
S-10 !$OMP END WORKSHARE
S-11 !$OMP END PARALLEL
S-12
S-13 END SUBROUTINE WSHARE1

7 In the following example, the barrier at the end of the first workshare region is eliminated with a
8 nowait clause. Threads doing CC = DD immediately begin work on EE = FF when they are
9 done with CC = DD.
10 Example workshare.2.f
S-1 SUBROUTINE WSHARE2(AA, BB, CC, DD, EE, FF, N)
S-2 INTEGER N
S-3 REAL AA(N,N), BB(N,N), CC(N,N)
S-4 REAL DD(N,N), EE(N,N), FF(N,N)
S-5
S-6 !$OMP PARALLEL
S-7 !$OMP WORKSHARE
S-8 AA = BB
S-9 CC = DD
S-10 !$OMP END WORKSHARE NOWAIT
S-11 !$OMP WORKSHARE
S-12 EE = FF
S-13 !$OMP END WORKSHARE
S-14 !$OMP END PARALLEL
S-15 END SUBROUTINE WSHARE2

32 OpenMP Examples Version 5.0.0 - November 2019

 Fortran (cont.)

1 The following example shows the use of an atomic directive inside a workshare construct. The
2 computation of SUM(AA) is workshared, but the update to R is atomic.
3 Example workshare.3.f
S-1 SUBROUTINE WSHARE3(AA, BB, CC, DD, N)
S-2 INTEGER N
S-3 REAL AA(N,N), BB(N,N), CC(N,N), DD(N,N)
S-4 REAL R
S-5 R=0
S-6 !$OMP PARALLEL
S-7 !$OMP WORKSHARE
S-8 AA = BB
S-9 !$OMP ATOMIC UPDATE
S-10 R = R + SUM(AA)
S-11 CC = DD
S-12 !$OMP END WORKSHARE
S-13 !$OMP END PARALLEL
S-14 END SUBROUTINE WSHARE3

4 Fortran WHERE and FORALL statements are compound statements, made up of a control part and a
5 statement part. When workshare is applied to one of these compound statements, both the
6 control and the statement parts are workshared. The following example shows the use of a WHERE
7 statement in a workshare construct.
8 Each task gets worked on in order by the threads:
9 AA = BB then
10 CC = DD then
11 EE .ne. 0 then
12 FF = 1 / EE then
13 GG = HH
14 Example workshare.4.f
S-1 SUBROUTINE WSHARE4(AA, BB, CC, DD, EE, FF, GG, HH, N)
S-2 INTEGER N
S-3 REAL AA(N,N), BB(N,N), CC(N,N)
S-4 REAL DD(N,N), EE(N,N), FF(N,N)
S-5 REAL GG(N,N), HH(N,N)
S-6
S-7 !$OMP PARALLEL
S-8 !$OMP WORKSHARE
S-9 AA = BB
S-10 CC = DD
S-11 WHERE (EE .ne. 0) FF = 1 / EE

CHAPTER 1. PARALLEL EXECUTION 33

 Fortran (cont.)

S-12 GG = HH
S-13 !$OMP END WORKSHARE
S-14 !$OMP END PARALLEL
S-15
S-16 END SUBROUTINE WSHARE4
1 In the following example, an assignment to a shared scalar variable is performed by one thread in a
2 workshare while all other threads in the team wait.
3 Example workshare.5.f
S-1 SUBROUTINE WSHARE5(AA, BB, CC, DD, N)
S-2 INTEGER N
S-3 REAL AA(N,N), BB(N,N), CC(N,N), DD(N,N)
S-4
S-5 INTEGER SHR
S-6
S-7 !$OMP PARALLEL SHARED(SHR)
S-8 !$OMP WORKSHARE
S-9 AA = BB
S-10 SHR = 1
S-11 CC = DD * SHR
S-12 !$OMP END WORKSHARE
S-13 !$OMP END PARALLEL
S-14
S-15 END SUBROUTINE WSHARE5
4 The following example contains an assignment to a private scalar variable, which is performed by
5 one thread in a workshare while all other threads wait. It is non-conforming because the private
6 scalar variable is undefined after the assignment statement.
7 Example workshare.6.f
S-1 SUBROUTINE WSHARE6_WRONG(AA, BB, CC, DD, N)
S-2 INTEGER N
S-3 REAL AA(N,N), BB(N,N), CC(N,N), DD(N,N)
S-4
S-5 INTEGER PRI
S-6
S-7 !$OMP PARALLEL PRIVATE(PRI)
S-8 !$OMP WORKSHARE
S-9 AA = BB
S-10 PRI = 1
S-11 CC = DD * PRI
S-12 !$OMP END WORKSHARE
S-13 !$OMP END PARALLEL

34 OpenMP Examples Version 5.0.0 - November 2019

 S-14
S-15 END SUBROUTINE WSHARE6_WRONG
1 Fortran execution rules must be enforced inside a workshare construct. In the following
2 example, the same result is produced in the following program fragment regardless of whether the
3 code is executed sequentially or inside an OpenMP program with multiple threads:
4 Example workshare.7.f
S-1 SUBROUTINE WSHARE7(AA, BB, CC, N)
S-2 INTEGER N
S-3 REAL AA(N), BB(N), CC(N)
S-4
S-5 !$OMP PARALLEL
S-6 !$OMP WORKSHARE
S-7 AA(1:50) = BB(11:60)
S-8 CC(11:20) = AA(1:10)
S-9 !$OMP END WORKSHARE
S-10 !$OMP END PARALLEL
S-11
S-12 END SUBROUTINE WSHARE7
Fortran

CHAPTER 1. PARALLEL EXECUTION 35

1 1.14 The master Construct
2 The following example demonstrates the master construct . In the example, the master keeps track
3 of how many iterations have been executed and prints out a progress report. The other threads skip
4 the master region without waiting.
C / C++
5 Example master.1.c
S-1 #include <stdio.h>
S-2
S-3 extern float average(float,float,float);
S-4
S-5 void master_example( float* x, float* xold, int n, float tol )
S-6 {
S-7 int c, i, toobig;
S-8 float error, y;
S-9 c = 0;
S-10 #pragma omp parallel
S-11 {
S-12 do{
S-13 #pragma omp for private(i)
S-14 for( i = 1; i < n-1; ++i ){
S-15 xold[i] = x[i];
S-16 }
S-17 #pragma omp single
S-18 {
S-19 toobig = 0;
S-20 }
S-21 #pragma omp for private(i,y,error) reduction(+:toobig)
S-22 for( i = 1; i < n-1; ++i ){
S-23 y = x[i];
S-24 x[i] = average( xold[i-1], x[i], xold[i+1] );
S-25 error = y - x[i];
S-26 if( error > tol || error < -tol ) ++toobig;
S-27 }
S-28 #pragma omp master
S-29 {
S-30 ++c;
S-31 printf( "iteration %d, toobig=%d\n", c, toobig );
S-32 }
S-33 }while( toobig > 0 );
S-34 }
S-35 }
C / C++

36 OpenMP Examples Version 5.0.0 - November 2019

 Fortran
1 Example master.1.f
S-1 SUBROUTINE MASTER_EXAMPLE( X, XOLD, N, TOL )
S-2 REAL X(*), XOLD(*), TOL
S-3 INTEGER N
S-4 INTEGER C, I, TOOBIG
S-5 REAL ERROR, Y, AVERAGE
S-6 EXTERNAL AVERAGE
S-7 C = 0
S-8 TOOBIG = 1
S-9 !$OMP PARALLEL
S-10 DO WHILE( TOOBIG > 0 )
S-11 !$OMP DO PRIVATE(I)
S-12 DO I = 2, N-1
S-13 XOLD(I) = X(I)
S-14 ENDDO
S-15 !$OMP SINGLE
S-16 TOOBIG = 0
S-17 !$OMP END SINGLE
S-18 !$OMP DO PRIVATE(I,Y,ERROR), REDUCTION(+:TOOBIG)
S-19 DO I = 2, N-1
S-20 Y = X(I)
S-21 X(I) = AVERAGE( XOLD(I-1), X(I), XOLD(I+1) )
S-22 ERROR = Y-X(I)
S-23 IF( ERROR > TOL .OR. ERROR < -TOL ) TOOBIG = TOOBIG+1
S-24 ENDDO
S-25 !$OMP MASTER
S-26 C = C + 1
S-27 PRINT *, ’Iteration ’, C, ’TOOBIG=’, TOOBIG
S-28 !$OMP END MASTER
S-29 ENDDO
S-30 !$OMP END PARALLEL
S-31 END SUBROUTINE MASTER_EXAMPLE
Fortran

CHAPTER 1. PARALLEL EXECUTION 37

1 1.15 The loop Construct
2 The following example illustrates the use of the OpenMP 5.0 loop construct for the execution of a
3 loop. The loop construct asserts to the compiler that the iterations of the loop are free of data
4 dependencies and may be executed concurrently. It allows the compiler to use heuristics to select
5 the parallelization scheme and compiler-level optimizations for the concurrency.
C / C++
6 Example loop.1.c
S-1 #include <stdio.h>
S-2 #define N 100
S-3 int main()
S-4 {
S-5 float x[N], y[N];
S-6 float a = 2.0;
S-7 for(int i=0;i<N;i++){ x[i]=i; y[i]=0;} // initialize
S-8
S-9 #pragma omp parallel
S-10 {
S-11 #pragma omp loop
S-12 for(int i = 0; i < N; ++i) y[i] = a*x[i] + y[i];
S-13 }
S-14 if(y[N-1] != (N-1)*2.0) printf("Error: 2*(N-1) != y[N-1]=%f",y[N-1]);
S-15 }
C / C++
Fortran
7 Example loop.1.f90
S-1 program main
S-2 integer, parameter :: N=100
S-3 real :: x(N), y(N)
S-4 real :: a = 2.0e0
S-5
S-6 x=[i,i=1,N]; y=1.0e0 !! initialize
S-7
S-8 !$omp parallel
S-9 !$omp loop
S-10 do i=1,N; y(i) = a*x(i) + y(i); enddo
S-11 !$omp end parallel
S-12
S-13 if(y(N) /= N*2.0e0) print*,"Error: 2*N /= y(N); y(N)=",y(N)
S-14 end program
Fortran

38 OpenMP Examples Version 5.0.0 - November 2019

1 1.16 Parallel Random Access Iterator Loop
C++
2 The following example shows a parallel random access iterator loop.
3 Example pra_iterator.1.cpp
S-1 #include <vector>
S-2 void iterator_example()
S-3 {
S-4 std::vector<int> vec(23);
S-5 std::vector<int>::iterator it;
S-6 #pragma omp parallel for default(none) shared(vec)
S-7 for (it = vec.begin(); it < vec.end(); it++)
S-8 {
S-9 // do work with *it //
S-10 }
S-11 }
C++

CHAPTER 1. PARALLEL EXECUTION 39

 1 1.17 The omp_set_dynamic and
2 omp_set_num_threads Routines
3 Some programs rely on a fixed, prespecified number of threads to execute correctly. Because the
4 default setting for the dynamic adjustment of the number of threads is implementation defined, such
5 programs can choose to turn off the dynamic threads capability and set the number of threads
6 explicitly to ensure portability. The following example shows how to do this using
7 omp_set_dynamic, and omp_set_num_threads.
8 In this example, the program executes correctly only if it is executed by 16 threads. If the
9 implementation is not capable of supporting 16 threads, the behavior of this example is
10 implementation defined. Note that the number of threads executing a parallel region remains
11 constant during the region, regardless of the dynamic threads setting. The dynamic threads
12 mechanism determines the number of threads to use at the start of the parallel region and keeps
13 it constant for the duration of the region.
C / C++
14 Example set_dynamic_nthrs.1.c
S-1 #include <omp.h>
S-2 #include <stdlib.h>
S-3
S-4 void do_by_16(float *x, int iam, int ipoints) {}
S-5
S-6 void dynthreads(float *x, int npoints)
S-7 {
S-8 int iam, ipoints;
S-9
S-10 omp_set_dynamic(0);
S-11 omp_set_num_threads(16);
S-12
S-13 #pragma omp parallel shared(x, npoints) private(iam, ipoints)
S-14 {
S-15 if (omp_get_num_threads() != 16)
S-16 abort();
S-17
S-18 iam = omp_get_thread_num();
S-19 ipoints = npoints/16;
S-20 do_by_16(x, iam, ipoints);
S-21 }
S-22 }
C / C++

40 OpenMP Examples Version 5.0.0 - November 2019

 Fortran
1 Example set_dynamic_nthrs.1.f
S-1 SUBROUTINE DO_BY_16(X, IAM, IPOINTS)
S-2 REAL X(*)
S-3 INTEGER IAM, IPOINTS
S-4 END SUBROUTINE DO_BY_16
S-5
S-6 SUBROUTINE DYNTHREADS(X, NPOINTS)
S-7
S-8 INCLUDE "omp_lib.h" ! or USE OMP_LIB
S-9
S-10 INTEGER NPOINTS
S-11 REAL X(NPOINTS)
S-12
S-13 INTEGER IAM, IPOINTS
S-14
S-15 CALL OMP_SET_DYNAMIC(.FALSE.)
S-16 CALL OMP_SET_NUM_THREADS(16)
S-17
S-18 !$OMP PARALLEL SHARED(X,NPOINTS) PRIVATE(IAM, IPOINTS)
S-19
S-20 IF (OMP_GET_NUM_THREADS() .NE. 16) THEN
S-21 STOP
S-22 ENDIF
S-23
S-24 IAM = OMP_GET_THREAD_NUM()
S-25 IPOINTS = NPOINTS/16
S-26 CALL DO_BY_16(X,IAM,IPOINTS)
S-27
S-28 !$OMP END PARALLEL
S-29
S-30 END SUBROUTINE DYNTHREADS
Fortran

CHAPTER 1. PARALLEL EXECUTION 41

1 1.18 The omp_get_num_threads Routine
2 In the following example, the omp_get_num_threads call returns 1 in the sequential part of
3 the code, so np will always be equal to 1. To determine the number of threads that will be deployed
4 for the parallel region, the call should be inside the parallel region.
C / C++
5 Example get_nthrs.1.c
S-1 #include <omp.h>
S-2 void work(int i);
S-3
S-4 void incorrect() {
S-5 int np, i;
S-6
S-7 np = omp_get_num_threads(); /* misplaced */
S-8
S-9 #pragma omp parallel for schedule(static)
S-10 for (i=0; i < np; i++)
S-11 work(i);
S-12 }
C / C++
Fortran
6 Example get_nthrs.1.f
S-1 SUBROUTINE WORK(I)
S-2 INTEGER I
S-3 I = I + 1
S-4 END SUBROUTINE WORK
S-5
S-6 SUBROUTINE INCORRECT()
S-7 INCLUDE "omp_lib.h" ! or USE OMP_LIB
S-8 INTEGER I, NP
S-9
S-10 NP = OMP_GET_NUM_THREADS() !misplaced: will return 1
S-11 !$OMP PARALLEL DO SCHEDULE(STATIC)
S-12 DO I = 0, NP-1
S-13 CALL WORK(I)
S-14 ENDDO
S-15 !$OMP END PARALLEL DO
S-16 END SUBROUTINE INCORRECT
Fortran

42 OpenMP Examples Version 5.0.0 - November 2019

1 The following example shows how to rewrite this program without including a query for the
2 number of threads:
C / C++
3 Example get_nthrs.2.c
S-1 #include <omp.h>
S-2 void work(int i);
S-3
S-4 void correct()
S-5 {
S-6 int i;
S-7
S-8 #pragma omp parallel private(i)
S-9 {
S-10 i = omp_get_thread_num();
S-11 work(i);
S-12 }
S-13 }
C / C++
Fortran
4 Example get_nthrs.2.f
S-1 SUBROUTINE WORK(I)
S-2 INTEGER I
S-3
S-4 I = I + 1
S-5
S-6 END SUBROUTINE WORK
S-7
S-8 SUBROUTINE CORRECT()
S-9 INCLUDE "omp_lib.h" ! or USE OMP_LIB
S-10 INTEGER I
S-11
S-12 !$OMP PARALLEL PRIVATE(I)
S-13 I = OMP_GET_THREAD_NUM()
S-14 CALL WORK(I)
S-15 !$OMP END PARALLEL
S-16
S-17 END SUBROUTINE CORRECT
Fortran

CHAPTER 1. PARALLEL EXECUTION 43

1 CHAPTER 2

2 OpenMP Affinity

3 OpenMP Affinity consists of a proc_bind policy (thread affinity policy) and a specification of
4 places ("location units" or processors that may be cores, hardware threads, sockets, etc.). OpenMP
5 Affinity enables users to bind computations on specific places. The placement will hold for the
6 duration of the parallel region. However, the runtime is free to migrate the OpenMP threads to
7 different cores (hardware threads, sockets, etc.) prescribed within a given place, if two or more
8 cores (hardware threads, sockets, etc.) have been assigned to a given place.
9 Often the binding can be managed without resorting to explicitly setting places. Without the
10 specification of places in the OMP_PLACES variable, the OpenMP runtime will distribute and bind
11 threads using the entire range of processors for the OpenMP program, according to the
12 OMP_PROC_BIND environment variable or the proc_bind clause. When places are specified,
13 the OMP runtime binds threads to the places according to a default distribution policy, or those
14 specified in the OMP_PROC_BIND environment variable or the proc_bind clause.
15 In the OpenMP Specifications document a processor refers to an execution unit that is enabled for
16 an OpenMP thread to use. A processor is a core when there is no SMT (Simultaneous
17 Multi-Threading) support or SMT is disabled. When SMT is enabled, a processor is a hardware
18 thread (HW-thread). (This is the usual case; but actually, the execution unit is implementation
19 defined.) Processor numbers are numbered sequentially from 0 to the number of cores less one
20 (without SMT), or 0 to the number HW-threads less one (with SMT). OpenMP places use the
21 processor number to designate binding locations (unless an "abstract name" is used.)
22 The processors available to a process may be a subset of the system’s processors. This restriction
23 may be the result of a wrapper process controlling the execution (such as numactl on Linux
24 systems), compiler options, library-specific environment variables, or default kernel settings. For
25 instance, the execution of multiple MPI processes, launched on a single compute node, will each
26 have a subset of processors as determined by the MPI launcher or set by MPI affinity environment
27 variables for the MPI library.
28 Threads of a team are positioned onto places in a compact manner, a scattered distribution, or onto
29 the master’s place, by setting the OMP_PROC_BIND environment variable or the proc_bind

44
1 clause to close, spread, or master, respectively. When OMP_PROC_BIND is set to FALSE no
2 binding is enforced; and when the value is TRUE, the binding is implementation defined to a set of
3 places in the OMP_PLACES variable or to places defined by the implementation if the
4 OMP_PLACES variable is not set.
5 The OMP_PLACES variable can also be set to an abstract name (threads, cores, sockets) to specify
6 that a place is either a single hardware thread, a core, or a socket, respectively. This description of
7 the OMP_PLACES is most useful when the number of threads is equal to the number of hardware
8 thread, cores or sockets. It can also be used with a close or spread distribution policy when the
9 equality doesn’t hold.

CHAPTER 2. OPENMP AFFINITY 45

 1 2.1 The proc_bind Clause
2 The following examples demonstrate how to use the proc_bind clause to control the thread
3 binding for a team of threads in a parallel region. The machine architecture is depicted in the
4 figure below. It consists of two sockets, each equipped with a quad-core processor and configured
5 to execute two hardware threads simultaneously on each core. These examples assume a contiguous
6 core numbering starting from 0, such that the hardware threads 0,1 form the first physical core.
socket w/ physical core w/ 2
4 physical cores hardware threads

p0 p1 p2 p3 p4 p5 p6 p7

7 The following equivalent place list declarations consist of eight places (which we designate as p0 to
8 p7):
9 OMP_PLACES="{0,1},{2,3},{4,5},{6,7},{8,9},{10,11},{12,13},{14,15}"
10 or
11 OMP_PLACES="{0:2}:8:2"

12 2.1.1 Spread Affinity Policy

13 The following example shows the result of the spread affinity policy on the partition list when the
14 number of threads is less than or equal to the number of places in the parent’s place partition, for
15 the machine architecture depicted above. Note that the threads are bound to the first place of each
16 subpartition.
C / C++
17 Example affinity.1.c
S-1
S-2 void work();
S-3
S-4 int main()
S-5 {
S-6
S-7 #pragma omp parallel proc_bind(spread) num_threads(4)

46 OpenMP Examples Version 5.0.0 - November 2019

 S-8 {
S-9 work();
S-10 }
S-11
S-12 return 0;
S-13
S-14 }
C / C++
Fortran
1 Example affinity.1.f
S-1 PROGRAM EXAMPLE
S-2 !$OMP PARALLEL PROC_BIND(SPREAD) NUM_THREADS(4)
S-3 CALL WORK()
S-4 !$OMP END PARALLEL
S-5 END PROGRAM EXAMPLE
Fortran
2 It is unspecified on which place the master thread is initially started. If the master thread is initially
3 started on p0, the following placement of threads will be applied in the parallel region:
4 • thread 0 executes on p0 with the place partition p0,p1
5 • thread 1 executes on p2 with the place partition p2,p3
6 • thread 2 executes on p4 with the place partition p4,p5
7 • thread 3 executes on p6 with the place partition p6,p7
8 If the master thread would initially be started on p2, the placement of threads and distribution of the
9 place partition would be as follows:
10 • thread 0 executes on p2 with the place partition p2,p3
11 • thread 1 executes on p4 with the place partition p4,p5
12 • thread 2 executes on p6 with the place partition p6,p7
13 • thread 3 executes on p0 with the place partition p0,p1
14 The following example illustrates the spread thread affinity policy when the number of threads is
15 greater than the number of places in the parent’s place partition.
16 Let T be the number of threads in the team, and P be the number of places in the parent’s place
17 partition. The first T/P threads of the team (including the master thread) execute on the parent’s
18 place. The next T/P threads execute on the next place in the place partition, and so on, with wrap
19 around.

CHAPTER 2. OPENMP AFFINITY 47

 C / C++
1 Example affinity.2.c
S-1 void work();
S-2 void foo()
S-3 {
S-4 #pragma omp parallel num_threads(16) proc_bind(spread)
S-5 {
S-6 work();
S-7 }
S-8 }
C / C++
Fortran
2 Example affinity.2.f90
S-1 subroutine foo
S-2 !$omp parallel num_threads(16) proc_bind(spread)
S-3 call work()
S-4 !$omp end parallel
S-5 end subroutine
Fortran
3 It is unspecified on which place the master thread is initially started. If the master thread is initially
4 started on p0, the following placement of threads will be applied in the parallel region:
5 • threads 0,1 execute on p0 with the place partition p0
6 • threads 2,3 execute on p1 with the place partition p1
7 • threads 4,5 execute on p2 with the place partition p2
8 • threads 6,7 execute on p3 with the place partition p3
9 • threads 8,9 execute on p4 with the place partition p4
10 • threads 10,11 execute on p5 with the place partition p5
11 • threads 12,13 execute on p6 with the place partition p6
12 • threads 14,15 execute on p7 with the place partition p7
13 If the master thread would initially be started on p2, the placement of threads and distribution of the
14 place partition would be as follows:
15 • threads 0,1 execute on p2 with the place partition p2
16 • threads 2,3 execute on p3 with the place partition p3
17 • threads 4,5 execute on p4 with the place partition p4
18 • threads 6,7 execute on p5 with the place partition p5
19 • threads 8,9 execute on p6 with the place partition p6
20 • threads 10,11 execute on p7 with the place partition p7
21 • threads 12,13 execute on p0 with the place partition p0
22 • threads 14,15 execute on p1 with the place partition p1

48 OpenMP Examples Version 5.0.0 - November 2019

1 2.1.2 Close Affinity Policy
2 The following example shows the result of the close affinity policy on the partition list when the
3 number of threads is less than or equal to the number of places in parent’s place partition, for the
4 machine architecture depicted above. The place partition is not changed by the close policy.
C / C++
5 Example affinity.3.c
S-1 void work();
S-2 int main()
S-3 {
S-4 #pragma omp parallel proc_bind(close) num_threads(4)
S-5 {
S-6 work();
S-7 }
S-8 return 0;
S-9 }
C / C++
Fortran
6 Example affinity.3.f
S-1 PROGRAM EXAMPLE
S-2 !$OMP PARALLEL PROC_BIND(CLOSE) NUM_THREADS(4)
S-3 CALL WORK()
S-4 !$OMP END PARALLEL
S-5 END PROGRAM EXAMPLE
Fortran
7 It is unspecified on which place the master thread is initially started. If the master thread is initially
8 started on p0, the following placement of threads will be applied in the parallel region:
9 • thread 0 executes on p0 with the place partition p0-p7
10 • thread 1 executes on p1 with the place partition p0-p7
11 • thread 2 executes on p2 with the place partition p0-p7
12 • thread 3 executes on p3 with the place partition p0-p7
13 If the master thread would initially be started on p2, the placement of threads and distribution of the
14 place partition would be as follows:
15 • thread 0 executes on p2 with the place partition p0-p7
16 • thread 1 executes on p3 with the place partition p0-p7
17 • thread 2 executes on p4 with the place partition p0-p7
18 • thread 3 executes on p5 with the place partition p0-p7

CHAPTER 2. OPENMP AFFINITY 49

1 The following example illustrates the close thread affinity policy when the number of threads is
2 greater than the number of places in the parent’s place partition.
3 Let T be the number of threads in the team, and P be the number of places in the parent’s place
4 partition. The first T/P threads of the team (including the master thread) execute on the parent’s
5 place. The next T/P threads execute on the next place in the place partition, and so on, with wrap
6 around. The place partition is not changed by the close policy.
C / C++
7 Example affinity.4.c
S-1 void work();
S-2 void foo()
S-3 {
S-4 #pragma omp parallel num_threads(16) proc_bind(close)
S-5 {
S-6 work();
S-7 }
S-8 }
C / C++
Fortran
8 Example affinity.4.f90
S-1 subroutine foo
S-2 !$omp parallel num_threads(16) proc_bind(close)
S-3 call work()
S-4 !$omp end parallel
S-5 end subroutine
Fortran
9 It is unspecified on which place the master thread is initially started. If the master thread is initially
10 running on p0, the following placement of threads will be applied in the parallel region:
11 • threads 0,1 execute on p0 with the place partition p0-p7
12 • threads 2,3 execute on p1 with the place partition p0-p7
13 • threads 4,5 execute on p2 with the place partition p0-p7
14 • threads 6,7 execute on p3 with the place partition p0-p7
15 • threads 8,9 execute on p4 with the place partition p0-p7
16 • threads 10,11 execute on p5 with the place partition p0-p7
17 • threads 12,13 execute on p6 with the place partition p0-p7
18 • threads 14,15 execute on p7 with the place partition p0-p7
19 If the master thread would initially be started on p2, the placement of threads and distribution of the
20 place partition would be as follows:
21 • threads 0,1 execute on p2 with the place partition p0-p7

50 OpenMP Examples Version 5.0.0 - November 2019

 1 • threads 2,3 execute on p3 with the place partition p0-p7
2 • threads 4,5 execute on p4 with the place partition p0-p7
3 • threads 6,7 execute on p5 with the place partition p0-p7
4 • threads 8,9 execute on p6 with the place partition p0-p7
5 • threads 10,11 execute on p7 with the place partition p0-p7
6 • threads 12,13 execute on p0 with the place partition p0-p7
7 • threads 14,15 execute on p1 with the place partition p0-p7

8 2.1.3 Master Affinity Policy

9 The following example shows the result of the master affinity policy on the partition list for the
10 machine architecture depicted above. The place partition is not changed by the master policy.
C / C++
11 Example affinity.5.c
S-1 void work();
S-2 int main()
S-3 {
S-4 #pragma omp parallel proc_bind(master) num_threads(4)
S-5 {
S-6 work();
S-7 }
S-8 return 0;
S-9 }
C / C++
Fortran
12 Example affinity.5.f
S-1 PROGRAM EXAMPLE
S-2 !$OMP PARALLEL PROC_BIND(MASTER) NUM_THREADS(4)
S-3 CALL WORK()
S-4 !$OMP END PARALLEL
S-5 END PROGRAM EXAMPLE
Fortran
13 It is unspecified on which place the master thread is initially started. If the master thread is initially
14 running on p0, the following placement of threads will be applied in the parallel region:
15 • threads 0-3 execute on p0 with the place partition p0-p7
16 If the master thread would initially be started on p2, the placement of threads and distribution of the
17 place partition would be as follows:
18 • threads 0-3 execute on p2 with the place partition p0-p7

CHAPTER 2. OPENMP AFFINITY 51

 1 2.2 Task Affinity
2 The next example illustrates the use of the affinity clause with a task construct. The variables
3 in the affinity clause provide a hint to the runtime that the task should execute "close" to the
4 physical storage location of the variables. For example, on a two-socket platform with a local
5 memory component close to each processor socket, the runtime will attempt to schedule the task
6 execution on the socket where the storage is located.
7 Because the C/C++ code employs a pointer, an array section is used in the affinity clause.
8 Fortran code can use an array reference to specify the storage, as shown here.
9 Note, in the second task of the C/C++ code the B pointer is declared shared. Otherwise, by default,
10 it would be firstprivate since it is a local variable, and would probably be saved for the second task
11 before being assigned a storage address by the first task. Also, one might think it reasonable to use
12 the affinity clause affinity(B[:N]) on the second task construct. However, the storage behind
13 B is created in the first task, and the array section reference may not be valid when the second task
14 is generated. The use of the A array is sufficient for this case, because one would expect the storage
15 for A and B would be physically "close" (as provided by the hint in the first task).
C / C++
16 Example affinity.6.c
S-1
S-2 double * alloc_init_B(double *A, int N);
S-3 void compute_on_B(double *B, int N);
S-4
S-5 void task_affinity(double *A, int N)
S-6 {
S-7 double * B;
S-8 #pragma omp task depend(out:B) shared(B) affinity(A[0:N])
S-9 {
S-10 B = alloc_init_B(A,N);
S-11 }
S-12
S-13 #pragma omp task depend( in:B) shared(B) affinity(A[0:N])
S-14 {
S-15 compute_on_B(B,N);
S-16 }
S-17
S-18 #pragma omp taskwait
S-19 }
S-20
C / C++

52 OpenMP Examples Version 5.0.0 - November 2019

 Fortran
1 Example affinity.6.f90
S-1
S-2 subroutine task_affinity(A, N)
S-3
S-4 external alloc_init_B
S-5 external compute_on_B
S-6 double precision, allocatable :: B(:)
S-7
S-8 !$omp task depend(out:B) shared(B) affinity(A)
S-9 call alloc_init_B(B,A)
S-10 !$omp end task
S-11
S-12 !$omp task depend(in:B) shared(B) affinity(A)
S-13 call compute_on_B(B)
S-14 !$omp end task
S-15
S-16 !$omp taskwait
S-17
S-18 end subroutine
S-19
Fortran

2 2.3 Affinity Display

3 The following examples illustrate ways to display thread affinity. Automatic display of affinity can
4 be invoked by setting the OMP_DISPLAY_AFFINITY environment variable to TRUE. The format
5 of the output can be customized by setting the OMP_AFFINITY_FORMAT environment variable to
6 an appropriate string. Also, there are API calls for the user to display thread affinity at selected
7 locations within code.
8 For the first example the environment variable OMP_DISPLAY_AFFINITY has been set to TRUE,
9 and execution occurs on an 8-core system with OMP_NUM_THREADS set to 8.
10 The affinity for the master thread is reported through a call to the API
11 omp_display_affinity() routine. For default affinity settings the report shows that the
12 master thread can execute on any of the cores. In the following parallel region the affinity for each
13 of the team threads is reported automatically since the OMP_DISPLAY_AFFINITY environment
14 variable has been set to TRUE.

CHAPTER 2. OPENMP AFFINITY 53

1 These two reports are often useful (as in hybrid codes using both MPI and OpenMP) to observe the
2 affinity (for an MPI task) before the parallel region, and during an OpenMP parallel region. Note:
3 the next parallel region uses the same number of threads as in the previous parallel region and
4 affinities are not changed, so affinity is NOT reported.
5 In the last parallel region, the thread affinities are reported because the thread affinity has changed.
C / C++
6 Example affinity_display.1.c
S-1 #include <stdio.h>
S-2 #include <omp.h>
S-3
S-4 int main(void){ //MAX threads = 8, single socket system
S-5
S-6 omp_display_affinity(NULL); //API call-- Displays Affinity of Master Thread
S-7
S-8 // API CALL OUTPUT (default format):
S-9 //team_num= 0, nesting_level= 0, thread_num= 0, thread_affinity= 0,1,2,3,4,5,6,7
S-10
S-11
S-12 // OMP_DISPLAY_AFFINITY=TRUE, OMP_NUM_THREADS=8
S-13 #pragma omp parallel num_threads(omp_get_num_procs())
S-14 {
S-15 if(omp_get_thread_num()==0)
S-16 printf("1st Parallel Region -- Affinity Reported \n");
S-17
S-18 // DISPLAY OUTPUT (default format) has been sorted:
S-19 // team_num= 0, nesting_level= 1, thread_num= 0, thread_affinity= 0
S-20 // team_num= 0, nesting_level= 1, thread_num= 1, thread_affinity= 1
S-21 // ...
S-22 // team_num= 0, nesting_level= 1, thread_num= 7, thread_affinity= 7
S-23
S-24 // doing work here
S-25 }
S-26
S-27 #pragma omp parallel num_threads( omp_get_num_procs() )
S-28 {
S-29 if(omp_get_thread_num()==0)
S-30 printf("%s%s\n","Same Affinity as in Previous Parallel Region",
S-31 " -- no Affinity Reported\n");
S-32
S-33 // NO AFFINITY OUTPUT:
S-34 //(output in 1st parallel region only for OMP_DISPLAY_AFFINITY=TRUE)
S-35
S-36 // doing more work here
S-37 }

54 OpenMP Examples Version 5.0.0 - November 2019

 S-38
S-39 // Report Affinity for 1/2 number of threads
S-40 #pragma omp parallel num_threads( omp_get_num_procs()/2 )
S-41 {
S-42 if(omp_get_thread_num()==0)
S-43 printf("Report Affinity for using 1/2 of max threads.\n");
S-44
S-45 // DISPLAY OUTPUT (default format) has been sorted:
S-46 // team_num= 0, nesting_level= 1, thread_num= 0, thread_affinity= 0,1
S-47 // team_num= 0, nesting_level= 1, thread_num= 1, thread_affinity= 2,3
S-48 // team_num= 0, nesting_level= 1, thread_num= 2, thread_affinity= 4,5
S-49 // team_num= 0, nesting_level= 1, thread_num= 3, thread_affinity= 6,7
S-50
S-51 // do work
S-52 }
S-53
S-54 return 0;
S-55 }
C / C++
Fortran
1 Example affinity_display.1.f90
S-1 program affinity_display ! MAX threads = 8, single socket system
S-2
S-3 use omp_lib
S-4 implicit none
S-5 character(len=0) :: null
S-6
S-7 call omp_display_affinity(null) !API call- Displays Affinity of Master Thread
S-8
S-9 ! API CALL OUTPUT (default format):
S-10 ! team_num= 0, nesting_level= 0, thread_num= 0, thread_affinity= 0,1,2,3,4,5,6,7
S-11
S-12
S-13 ! OMP_DISPLAY_AFFINITY=TRUE, OMP_NUM_THREADS=8
S-14
S-15 !$omp parallel num_threads(omp_get_num_procs())
S-16
S-17 if(omp_get_thread_num()==0) then
S-18 print*, "1st Parallel Region -- Affinity Reported"
S-19 endif
S-20
S-21 ! DISPLAY OUTPUT (default format) has been sorted:
S-22 ! team_num= 0, nesting_level= 1, thread_num= 0, thread_affinity= 0
S-23 ! team_num= 0, nesting_level= 1, thread_num= 1, thread_affinity= 1
S-24 ! ...

CHAPTER 2. OPENMP AFFINITY 55

 S-25 ! team_num= 0, nesting_level= 1, thread_num= 7, thread_affinity= 7
S-26
S-27 ! doing work here
S-28
S-29 !$omp end parallel
S-30
S-31 !$omp parallel num_threads( omp_get_num_procs() )
S-32
S-33 if(omp_get_thread_num()==0) then
S-34 print*, "Same Affinity in Parallel Region -- no Affinity Reported"
S-35 endif
S-36
S-37 ! NO AFFINITY OUTPUT:
S-38 !(output in 1st parallel region only for OMP_DISPLAY_AFFINITY=TRUE)
S-39
S-40 ! doing more work here
S-41
S-42 !$omp end parallel
S-43
S-44 ! Report Affinity for 1/2 number of threads
S-45 !$omp parallel num_threads( omp_get_num_procs()/2 )
S-46
S-47 if(omp_get_thread_num()==0) then
S-48 print*, "Different Affinity in Parallel Region -- Affinity Reported"
S-49 endif
S-50
S-51 ! DISPLAY OUTPUT (default format) has been sorted:
S-52 ! team_num= 0, nesting_level= 1, thread_num= 0, thread_affinity= 0,1
S-53 ! team_num= 0, nesting_level= 1, thread_num= 1, thread_affinity= 2,3
S-54 ! team_num= 0, nesting_level= 1, thread_num= 2, thread_affinity= 4,5
S-55 ! team_num= 0, nesting_level= 1, thread_num= 3, thread_affinity= 6,7
S-56
S-57 ! do work
S-58
S-59 !$omp end parallel
S-60
S-61 end program
Fortran
1 In the following example 2 threads are forked, and each executes on a socket. Next, a nested parallel
2 region runs half of the available threads on each socket.
3 These OpenMP environment variables have been set:
4 • OMP_PROC_BIND="TRUE"
5 • OMP_NUM_THREADS="2,4"
6 • OMP_PLACES="{0,2,4,6},{1,3,5,7}"

56 OpenMP Examples Version 5.0.0 - November 2019

 1 • OMP_AFFINITY_FORMAT="nest_level= %L, parent_thrd_num= %a, thrd_num= %n,
2 thrd_affinity= %A"
3 where the numbers correspond to core ids for the system. Note, OMP_DISPLAY_AFFINITY is
4 not set and is FALSE by default. This example shows how to use API routines to perform affinity
5 display operations.
6 For each of the two first-level threads the OMP_PLACES variable specifies a place with all the
7 core-ids of the socket ({0,2,4,6} for one thread and {1,3,5,7} for the other). (As is sometimes the
8 case in 2-socket systems, one socket may consist of the even id numbers, while the other may have
9 the odd id numbers.) The affinities are printed according to the OMP_AFFINITY_FORMAT
10 format: providing the parallel nesting level (%L), the ancestor thread number (%a), the thread
11 number (%n) and the thread affinity (%A). In the nested parallel region within the socket_work
12 routine the affinities for the threads on each socket are printed according to this format.
C / C++
13 Example affinity_display.2.c
S-1 #include <stdio.h>
S-2 #include <stdlib.h>
S-3 #include <omp.h>
S-4
S-5 void socket_work(int socket_num, int n_thrds);
S-6
S-7 int main(void)
S-8 {
S-9 int n_sockets, socket_num, n_thrds_on_socket;
S-10
S-11 omp_set_nested(1); // or env var= OMP_NESTED=true
S-12 omp_set_max_active_levels(2); // or env var= OMP_MAX_ACTIVE_LEVELS=2
S-13
S-14 n_sockets = omp_get_num_places();
S-15 n_thrds_on_socket = omp_get_place_num_procs(0);
S-16
S-17 // OMP_NUM_THREADS=2,4
S-18 // OMP_PLACES="{0,2,4,6},{1,3,5,7}" #2 sockets; even/odd proc-ids
S-19 // OMP_AFFINITY_FORMAT=\
S-20 // "nest_level= %L, parent_thrd_num= %a, thrd_num= %n, thrd_affinity= %A"
S-21
S-22 #pragma omp parallel num_threads(n_sockets) private(socket_num)
S-23 {
S-24 socket_num = omp_get_place_num();
S-25
S-26 if(socket_num==0)
S-27 printf(" LEVEL 1 AFFINITIES 1 thread/socket, %d sockets:\n\n", n_sockets);
S-28
S-29 omp_display_affinity(NULL); // not needed if OMP_DISPLAY_AFFINITY=TRUE

CHAPTER 2. OPENMP AFFINITY 57

S-30
S-31 // OUTPUT:
S-32 // LEVEL 1 AFFINITIES 1 thread/socket, 2 sockets:
S-33 // nest_level= 1, parent_thrd_num= 0, thrd_num= 0, thrd_affinity= 0,2,4,6
S-34 // nest_level= 1, parent_thrd_num= 0, thrd_num= 1, thrd_affinity= 1,3,5,7
S-35
S-36 socket_work(socket_num, n_thrds_on_socket);
S-37 }
S-38
S-39 return 0;
S-40 }
S-41
S-42 void socket_work(int socket_num, int n_thrds)
S-43 {
S-44 #pragma omp parallel num_threads(n_thrds)
S-45 {
S-46 if(omp_get_thread_num()==0)
S-47 printf(" LEVEL 2 AFFINITIES, %d threads on socket %d\n",n_thrds, socket_num);
S-48
S-49 omp_display_affinity(NULL); // not needed if OMP_DISPLAY_AFFINITY=TRUE
S-50
S-51 // OUTPUT:
S-52 // LEVEL 2 AFFINITIES, 4 threads on socket 0
S-53 // nest_level= 2, parent_thrd_num= 0, thrd_num= 0, thrd_affinity= 0
S-54 // nest_level= 2, parent_thrd_num= 0, thrd_num= 1, thrd_affinity= 2
S-55 // nest_level= 2, parent_thrd_num= 0, thrd_num= 2, thrd_affinity= 4
S-56 // nest_level= 2, parent_thrd_num= 0, thrd_num= 3, thrd_affinity= 6
S-57
S-58 // LEVEL 2 AFFINITIES, 4 threads on socket 1
S-59 // nest_level= 2, parent_thrd_num= 1, thrd_num= 0, thrd_affinity= 1
S-60 // nest_level= 2, parent_thrd_num= 1, thrd_num= 1, thrd_affinity= 3
S-61 // nest_level= 2, parent_thrd_num= 1, thrd_num= 2, thrd_affinity= 5
S-62 // nest_level= 2, parent_thrd_num= 1, thrd_num= 3, thrd_affinity= 7
S-63
S-64 // ... Do Some work on Socket
S-65
S-66 }
S-67 }
C / C++

58 OpenMP Examples Version 5.0.0 - November 2019

 Fortran
1 Example affinity_display.2.f90
S-1 program affinity_display
S-2
S-3 use omp_lib
S-4 implicit none
S-5 character(len=0) :: null
S-6 integer :: n_sockets, socket_num, n_thrds_on_socket;
S-7
S-8 call omp_set_nested(.true.) ! or env var= OMP_NESTED=true
S-9 call omp_set_max_active_levels(2) ! or env var= OMP_MAX_ACTIVE_LEVELS=2
S-10
S-11 n_sockets = omp_get_num_places()
S-12 n_thrds_on_socket = omp_get_place_num_procs(0)
S-13
S-14 ! OMP_NUM_THREADS=2,4
S-15 ! OMP_PLACES="{0,2,4,6},{1,3,5,7}" #2 sockets; even/odd proc-ids
S-16 ! OMP_AFFINITY_FORMAT=\
S-17 ! "nest_level= %L, parent_thrd_num= %a, thrd_num= %n, thrd_affinity= %A"
S-18
S-19 !$omp parallel num_threads(n_sockets) private(socket_num)
S-20
S-21 socket_num = omp_get_place_num()
S-22
S-23 if(socket_num==0) then
S-24 write(*,’("LEVEL 1 AFFINITIES 1 thread/socket ",i0," sockets")’)n_sockets
S-25 endif
S-26
S-27 call omp_display_affinity(null) !not needed if OMP_DISPLAY_AFFINITY=TRUE
S-28
S-29 ! OUTPUT:
S-30 ! LEVEL 1 AFFINITIES 1 thread/socket, 2 sockets:
S-31 ! nest_level= 1, parent_thrd_num= 0, thrd_num= 0, thrd_affinity= 0,2,4,6
S-32 ! nest_level= 1, parent_thrd_num= 0, thrd_num= 1, thrd_affinity= 1,3,5,7
S-33
S-34 call socket_work(socket_num, n_thrds_on_socket)
S-35
S-36 !$omp end parallel
S-37
S-38 end program
S-39
S-40 subroutine socket_work(socket_num, n_thrds)
S-41 implicit none
S-42 integer :: socket_num, n_thrds
S-43 character(len=0) :: null
S-44

CHAPTER 2. OPENMP AFFINITY 59

 S-45 !$omp parallel num_threads(n_thrds)
S-46
S-47 if(omp_get_thread_num()==0) then
S-48 write(*,’("LEVEL 2 AFFINITIES, ",i0," threads on socket ",i0)’) &
S-49 n_thrds,socket_num
S-50 endif
S-51
S-52 call omp_display_affinity(null); !not needed if OMP_DISPLAY_AFFINITY=TRUE
S-53
S-54 ! OUTPUT:
S-55 ! LEVEL 2 AFFINITIES, 4 threads on socket 0
S-56 ! nest_level= 2, parent_thrd_num= 0, thrd_num= 0, thrd_affinity= 0
S-57 ! nest_level= 2, parent_thrd_num= 0, thrd_num= 1, thrd_affinity= 2
S-58 ! nest_level= 2, parent_thrd_num= 0, thrd_num= 2, thrd_affinity= 4
S-59 ! nest_level= 2, parent_thrd_num= 0, thrd_num= 3, thrd_affinity= 6
S-60
S-61 ! LEVEL 2 AFFINITIES, 4 thrds on socket 1
S-62 ! nest_level= 2, parent_thrd_num= 1, thrd_num= 0, thrd_affinity= 1
S-63 ! nest_level= 2, parent_thrd_num= 1, thrd_num= 1, thrd_affinity= 3
S-64 ! nest_level= 2, parent_thrd_num= 1, thrd_num= 2, thrd_affinity= 5
S-65 ! nest_level= 2, parent_thrd_num= 1, thrd_num= 3, thrd_affinity= 7
S-66
S-67 ! ... Do Some work on Socket
S-68
S-69 !$omp end parallel
S-70
S-71 end subroutine
Fortran
1 The next example illustrates more details about affinity formatting. First, the
2 omp_get_affininity_format() API routine is used to obtain the default format. The code
3 checks to make sure the storage provides enough space to hold the format. Next, the
4 omp_set_affinity_format() API routine sets a user-defined format: host=%20H
5 thrd_num=%0.4n binds_to=%A.
6 The host, thread number and affinity fields are specified by %20H, %0.4n and %A: H, n and A are
7 single character "short names" for the host, thread_num and thread_affinity data to be printed, with
8 format sizes of 20, 4, and "size as needed". The period (.) indicates that the field is displayed
9 right-justified (default is left-justified) and the "0" indicates that any unused space is to be prefixed
10 with zeros (e.g. instead of "1", "0001" is displayed for the field size of 4).
11 Within the parallel region the affinity for each thread is captured by
12 omp_capture_affinity() into a buffer array with elements indexed by the thread number
13 (thrd_num). After the parallel region, the thread affinities are printed in thread-number order.
14 If the storage area in buffer is inadequate for holding the affinity data, the stored affinity data is
15 truncated. The maximum value for the number of characters (nchars) returned by

60 OpenMP Examples Version 5.0.0 - November 2019

1 omp_capture_affinity is captured by the reduction(max:max_req_store) clause
2 and the if(nchars >= max_req_store) max_req_store=nchars statement. It is used to report possible
3 truncation (if max_req_store > buffer_store).
C / C++
4 Example affinity_display.3.c
S-1 #include <stdio.h>
S-2 #include <stdlib.h> // also null is in <stddef.h>
S-3 #include <stddef.h>
S-4 #include <string.h>
S-5 #include <omp.h>
S-6
S-7 #define FORMAT_STORE 80
S-8 #define BUFFER_STORE 80
S-9
S-10 int main(void){
S-11
S-12 int i, n, thrd_num, max_req_store;
S-13 size_t nchars;
S-14
S-15 char default_format[FORMAT_STORE];
S-16 char my_format[] = "host=%20H thrd_num=%0.4n binds_to=%A";
S-17 char **buffer;
S-18
S-19
S-20 // CODE SEGMENT 1 AFFINITY FORMAT
S-21
S-22 // Get and Display Default Affinity Format
S-23
S-24 nchars = omp_get_affinity_format(default_format,(size_t)FORMAT_STORE);
S-25 printf("Default Affinity Format is: %s\n",default_format);
S-26
S-27 if(nchars >= FORMAT_STORE){
S-28 printf("Caution: Reported Format is truncated. Increase\n");
S-29 printf(" FORMAT_STORE to %d.\n", nchars+1);
S-30 }
S-31
S-32 // Set Affinity Format
S-33
S-34 omp_set_affinity_format(my_format);
S-35 printf("Affinity Format set to: %s\n",my_format);
S-36
S-37
S-38 // CODE SEGMENT 2 CAPTURE AFFINITY
S-39
S-40 // Set up buffer for affinity of n threads

CHAPTER 2. OPENMP AFFINITY 61

S-41
S-42 n = omp_get_num_procs();
S-43 buffer = (char **)malloc( sizeof(char *) * n );
S-44 for(i=0;i<n;i++){ buffer[i]=(char *)malloc( sizeof(char) * BUFFER_STORE); }
S-45
S-46 // Capture Affinity using Affinity Format set above.
S-47 // Use max reduction to check size of buffer areas
S-48 max_req_store = 0;
S-49 #pragma omp parallel private(thrd_num,nchars) reduction(max:max_req_store)
S-50 {
S-51 if(omp_get_num_threads()>n) exit(1); //safety: don’t exceed # of buffers
S-52
S-53 thrd_num=omp_get_thread_num();
S-54 nchars=omp_capture_affinity(buffer[thrd_num],(size_t)BUFFER_STORE,NULL);
S-55 if(nchars > max_req_store) max_req_store=nchars;
S-56
S-57 // ...
S-58 }
S-59
S-60 for(i=0;i<n;i++){
S-61 printf("thrd_num= %d, affinity: %s\n", i,buffer[i]);
S-62 }
S-63 // For 4 threads with OMP_PLACES=’{0,1},{2,3},{4,5},{6,7}’
S-64 // Format host=%20H thrd_num=%0.4n binds_to=%A
S-65
S-66 // affinity: host=hpc.cn567 thrd_num=0000 binds_to=0,1
S-67 // affinity: host=hpc.cn567 thrd_num=0001 binds_to=2,3
S-68 // affinity: host=hpc.cn567 thrd_num=0002 binds_to=4,5
S-69 // affinity: host=hpc.cn567 thrd_num=0003 binds_to=6,7
S-70
S-71
S-72 if(max_req_store>=BUFFER_STORE){
S-73 printf("Caution: Affinity string truncated. Increase\n");
S-74 printf(" BUFFER_STORE to %d\n",max_req_store+1);
S-75 }
S-76
S-77 for(i=0;i<n;i++) free(buffer[i]);
S-78 free (buffer);
S-79
S-80 return 0;
S-81 }
C / C++

62 OpenMP Examples Version 5.0.0 - November 2019

 Fortran
1 Example affinity_display.3.f90
S-1 program affinity_display
S-2 use omp_lib
S-3 implicit none
S-4 integer, parameter :: FORMAT_STORE=80
S-5 integer, parameter :: BUFFER_STORE=80
S-6
S-7 integer :: i, n, thrd_num, nchars, max_req_store
S-8
S-9 character(FORMAT_STORE) :: default_format
S-10 character(*), parameter :: my_format = &
S-11 "host=%20H thrd_num=%0.4n binds_to=%A"
S-12 character(:), allocatable :: buffer(:)
S-13 character(len=0) :: null
S-14
S-15
S-16 ! CODE SEGMENT 1 AFFINITY FORMAT
S-17
S-18 ! Get and Display Default Affinity Format
S-19
S-20 nchars = omp_get_affinity_format(default_format)
S-21 print*,"Default Affinity Format: ", trim(default_format)
S-22
S-23 if( nchars > FORMAT_STORE) then
S-24 print*,"Caution: Reported Format is truncated. Increase"
S-25 print*," FORMAT_STORE to ", nchars
S-26 endif
S-27
S-28 ! Set Affinity Format
S-29
S-30 call omp_set_affinity_format(my_format)
S-31 print*,"Affinity Format set to: ", my_format
S-32
S-33
S-34 ! CODE SEGMENT 2 CAPTURE AFFINITY
S-35
S-36 ! Set up buffer for affinity of n threads
S-37
S-38 n = omp_get_num_procs()
S-39 allocate( character(len=BUFFER_STORE)::buffer(0:n-1) )
S-40
S-41 ! Capture Affinity using Affinity Format set above.
S-42 ! Use max reduction to check size of buffer areas
S-43 max_req_store = 0
S-44 !$omp parallel private(thrd_num,nchars) reduction(max:max_req_store)

CHAPTER 2. OPENMP AFFINITY 63

 S-45
S-46 if(omp_get_num_threads()>n) stop "ERROR: increase buffer lines"
S-47
S-48 thrd_num=omp_get_thread_num()
S-49 nchars=omp_capture_affinity(buffer(thrd_num),null)
S-50 if(nchars>max_req_store) max_req_store=nchars
S-51 ! ...
S-52
S-53 !$omp end parallel
S-54
S-55 do i = 0, n-1
S-56 print*, "thrd_num= ",i," affinity:", trim(buffer(i))
S-57 end do
S-58 ! For 4 threads with OMP_PLACES=’{0,1},{2,3},{4,5},{6,7}’
S-59 ! Format: host=%20H thrd_num=%0.4n binds_to=%A
S-60
S-61 ! affinity: host=hpc.cn567 thrd_num=0000 binds_to=0,1
S-62 ! affinity: host=hpc.cn567 thrd_num=0001 binds_to=2,3
S-63 ! affinity: host=hpc.cn567 thrd_num=0002 binds_to=4,5
S-64 ! affinity: host=hpc.cn567 thrd_num=0003 binds_to=6,7
S-65
S-66 if(max_req_store > BUFFER_STORE) then
S-67 print*, "Caution: Affinity string truncated. Increase"
S-68 print*, " BUFFER_STORE to ",max_req_store
S-69 endif
S-70
S-71 deallocate(buffer)
S-72 end program
Fortran

1 2.4 Affinity Query Functions

2 In the example below a team of threads is generated on each socket of the system, using nested
3 parallelism. Several query functions are used to gather information to support the creation of the
4 teams and to obtain socket and thread numbers.
5 For proper execution of the code, the user must create a place partition, such that each place is a
6 listing of the core numbers for a socket. For example, in a 2 socket system with 8 cores in each
7 socket, and sequential numbering in the socket for the core numbers, the OMP_PLACES variable
8 would be set to "{0:8},{8:8}", using the place syntax {lower_bound:length:stride}, and the default
9 stride of 1.

64 OpenMP Examples Version 5.0.0 - November 2019

 1 The code determines the number of sockets (n_sockets) using the omp_get_num_places()
2 query function. In this example each place is constructed with a list of each socket’s core numbers,
3 hence the number of places is equal to the number of sockets.
4 The outer parallel region forms a team of threads, and each thread executes on a socket (place)
5 because the proc_bind clause uses spread in the outer parallel construct. Next, in the
6 socket_init function, an inner parallel region creates a team of threads equal to the number of
7 elements (core numbers) from the place of the parent thread. Because the outer parallel
8 construct uses a spread affinity policy, each of its threads inherits a subpartition of the original
9 partition. Hence, the omp_get_place_num_procs query function returns the number of
10 elements (here procs = cores) in the subpartition of the thread. After each parent thread creates its
11 nested parallel region on the section, the socket number and thread number are reported.
12 Note: Portable tools like hwloc (Portable HardWare LOCality package), which support many
13 common operating systems, can be used to determine the configuration of a system. On some
14 systems there are utilities, files or user guides that provide configuration information. For instance,
15 the socket number and proc_id’s for a socket can be found in the /proc/cpuinfo text file on Linux
16 systems.
C / C++
17 Example affinity_query.1.c
S-1 #include <stdio.h>
S-2 #include <omp.h>
S-3
S-4 void socket_init(int socket_num)
S-5 {
S-6 int n_procs;
S-7
S-8 n_procs = omp_get_place_num_procs(socket_num);
S-9 #pragma omp parallel num_threads(n_procs) proc_bind(close)
S-10 {
S-11 printf("Reporting in from socket num, thread num: %d %d\n",
S-12 socket_num,omp_get_thread_num() );
S-13 }
S-14 }
S-15
S-16 int main()
S-17 {
S-18 int n_sockets, socket_num;
S-19
S-20 omp_set_nested(1); // or export OMP_NESTED=true
S-21 omp_set_max_active_levels(2); // or export OMP_MAX_ACTIVE_LEVELS=2
S-22
S-23 n_sockets = omp_get_num_places();
S-24 #pragma omp parallel num_threads(n_sockets) private(socket_num) \
S-25 proc_bind(spread)

CHAPTER 2. OPENMP AFFINITY 65

 S-26 {
S-27 socket_num = omp_get_place_num();
S-28 socket_init(socket_num);
S-29 }
S-30
S-31 return 0;
S-32 }
C / C++
Fortran
1 Example affinity_query.1.f90
S-1 subroutine socket_init(socket_num)
S-2 use omp_lib
S-3 integer :: socket_num, n_procs
S-4
S-5 n_procs = omp_get_place_num_procs(socket_num)
S-6 !$omp parallel num_threads(n_procs) proc_bind(close)
S-7
S-8 print*,"Reporting in from socket num, thread num: ", &
S-9 socket_num,omp_get_thread_num()
S-10 !$omp end parallel
S-11 end subroutine
S-12
S-13 program numa_teams
S-14 use omp_lib
S-15 integer :: n_sockets, socket_num
S-16
S-17 call omp_set_nested(.true.) ! or export OMP_NESTED=true
S-18 call omp_set_max_active_levels(2) ! or export OMP_MAX_ACTIVE_LEVELS=2
S-19
S-20 n_sockets = omp_get_num_places()
S-21 !$omp parallel num_threads(n_sockets) private(socket_num) &
S-22 !$omp& proc_bind(spread)
S-23
S-24 socket_num = omp_get_place_num()
S-25 call socket_init(socket_num)
S-26
S-27 !$omp end parallel
S-28 end program
Fortran

66 OpenMP Examples Version 5.0.0 - November 2019

1 CHAPTER 3

2 Tasking

3 Tasking constructs provide units of work to a thread for execution. Worksharing constructs do this,
4 too (e.g. for, do, sections, and singles constructs); but the work units are tightly controlled
5 by an iteration limit and limited scheduling, or a limited number of sections or single
6 regions. Worksharing was designed with "data parallel" computing in mind. Tasking was designed
7 for "task parallel" computing and often involves non-locality or irregularity in memory access.
8 The task construct can be used to execute work chunks: in a while loop; while traversing nodes in
9 a list; at nodes in a tree graph; or in a normal loop (with a taskloop construct). Unlike the
10 statically scheduled loop iterations of worksharing, a task is often enqueued, and then dequeued for
11 execution by any of the threads of the team within a parallel region. The generation of tasks can be
12 from a single generating thread (creating sibling tasks), or from multiple generators in a recursive
13 graph tree traversals. A taskloop construct bundles iterations of an associated loop into tasks,
14 and provides similar controls found in the task construct.
15 Sibling tasks are synchronized by the taskwait construct, and tasks and their descendent tasks
16 can be synchronized by containing them in a taskgroup region. Ordered execution is
17 accomplished by specifying dependences with a depend clause. Also, priorities can be specified
18 as hints to the scheduler through a priority clause.
19 Various clauses can be used to manage and optimize task generation, as well as reduce the overhead
20 of execution and to relinquish control of threads for work balance and forward progress.
21 Once a thread starts executing a task, it is the designated thread for executing the task to
22 completion, even though it may leave the execution at a scheduling point and return later. The
23 thread is tied to the task. Scheduling points can be introduced with the taskyield construct.
24 With an untied clause any other thread is allowed to continue the task. An if clause with a true
25 expression allows the generating thread to immediately execute the task as an undeferred task. By
26 including the data environment of the generating task into the generated task with the mergeable
27 and final clauses, task generation overhead can be reduced.
28 A complete list of the tasking constructs and details of their clauses can be found in the Tasking
29 Constructs chapter of the OpenMP Specifications, in the OpenMP Application Programming
30 Interface section.

67
1 3.1 The task and taskwait Constructs
2 The following example shows how to traverse a tree-like structure using explicit tasks. Note that the
3 traverse function should be called from within a parallel region for the different specified tasks
4 to be executed in parallel. Also note that the tasks will be executed in no specified order because
5 there are no synchronization directives. Thus, assuming that the traversal will be done in post order,
6 as in the sequential code, is wrong.
C / C++
7 Example tasking.1.c
S-1
S-2 struct node {
S-3 struct node *left;
S-4 struct node *right;
S-5 };
S-6
S-7 extern void process(struct node *);
S-8
S-9 void traverse( struct node *p )
S-10 {
S-11 if (p->left)
S-12 #pragma omp task // p is firstprivate by default
S-13 traverse(p->left);
S-14 if (p->right)
S-15 #pragma omp task // p is firstprivate by default
S-16 traverse(p->right);
S-17 process(p);
S-18 }
C / C++
Fortran
8 Example tasking.1.f90
S-1
S-2 RECURSIVE SUBROUTINE traverse ( P )
S-3 TYPE Node
S-4 TYPE(Node), POINTER :: left, right
S-5 END TYPE Node
S-6 TYPE(Node) :: P
S-7
S-8 IF (associated(P%left)) THEN
S-9 !$OMP TASK ! P is firstprivate by default
S-10 CALL traverse(P%left)
S-11 !$OMP END TASK
S-12 ENDIF

68 OpenMP Examples Version 5.0.0 - November 2019

 S-13 IF (associated(P%right)) THEN
S-14 !$OMP TASK ! P is firstprivate by default
S-15 CALL traverse(P%right)
S-16 !$OMP END TASK
S-17 ENDIF
S-18 CALL process ( P )
S-19
S-20 END SUBROUTINE
Fortran
1 In the next example, we force a postorder traversal of the tree by adding a taskwait directive.
2 Now, we can safely assume that the left and right sons have been executed before we process the
3 current node.
C / C++
4 Example tasking.2.c
S-1 struct node {
S-2 struct node *left;
S-3 struct node *right;
S-4 };
S-5 extern void process(struct node *);
S-6 void postorder_traverse( struct node *p ) {
S-7 if (p->left)
S-8 #pragma omp task // p is firstprivate by default
S-9 postorder_traverse(p->left);
S-10 if (p->right)
S-11 #pragma omp task // p is firstprivate by default
S-12 postorder_traverse(p->right);
S-13 #pragma omp taskwait
S-14 process(p);
S-15 }
C / C++

CHAPTER 3. TASKING 69
 Fortran
1 Example tasking.2.f90
S-1 RECURSIVE SUBROUTINE traverse ( P )
S-2 TYPE Node
S-3 TYPE(Node), POINTER :: left, right
S-4 END TYPE Node
S-5 TYPE(Node) :: P
S-6 IF (associated(P%left)) THEN
S-7 !$OMP TASK ! P is firstprivate by default
S-8 CALL traverse(P%left)
S-9 !$OMP END TASK
S-10 ENDIF
S-11 IF (associated(P%right)) THEN
S-12 !$OMP TASK ! P is firstprivate by default
S-13 CALL traverse(P%right)
S-14 !$OMP END TASK
S-15 ENDIF
S-16 !$OMP TASKWAIT
S-17 CALL process ( P )
S-18 END SUBROUTINE
Fortran
2 The following example demonstrates how to use the task construct to process elements of a linked
3 list in parallel. The thread executing the single region generates all of the explicit tasks, which
4 are then executed by the threads in the current team. The pointer p is firstprivate by default
5 on the task construct so it is not necessary to specify it in a firstprivate clause.
C / C++
6 Example tasking.3.c
S-1
S-2 typedef struct node node;
S-3 struct node {
S-4 int data;
S-5 node * next;
S-6 };
S-7
S-8 void process(node * p)
S-9 {
S-10 /* do work here */
S-11 }
S-12
S-13 void increment_list_items(node * head)
S-14 {
S-15 #pragma omp parallel
S-16 {

70 OpenMP Examples Version 5.0.0 - November 2019

 S-17 #pragma omp single
S-18 {
S-19 node * p = head;
S-20 while (p) {
S-21 #pragma omp task
S-22 // p is firstprivate by default
S-23 process(p);
S-24 p = p->next;
S-25 }
S-26 }
S-27 }
S-28 }
C / C++
Fortran
1 Example tasking.3.f90
S-1
S-2 MODULE LIST
S-3 TYPE NODE
S-4 INTEGER :: PAYLOAD
S-5 TYPE (NODE), POINTER :: NEXT
S-6 END TYPE NODE
S-7 CONTAINS
S-8
S-9 SUBROUTINE PROCESS(p)
S-10 TYPE (NODE), POINTER :: P
S-11 ! do work here
S-12 END SUBROUTINE
S-13
S-14 SUBROUTINE INCREMENT_LIST_ITEMS (HEAD)
S-15
S-16 TYPE (NODE), POINTER :: HEAD
S-17 TYPE (NODE), POINTER :: P
S-18 !$OMP PARALLEL PRIVATE(P)
S-19 !$OMP SINGLE
S-20 P => HEAD
S-21 DO
S-22 !$OMP TASK
S-23 ! P is firstprivate by default
S-24 CALL PROCESS(P)
S-25 !$OMP END TASK
S-26 P => P%NEXT
S-27 IF ( .NOT. ASSOCIATED (P) ) EXIT
S-28 END DO
S-29 !$OMP END SINGLE
S-30 !$OMP END PARALLEL

CHAPTER 3. TASKING 71
 S-31
S-32 END SUBROUTINE
S-33
S-34 END MODULE
Fortran
1 The fib() function should be called from within a parallel region for the different specified
2 tasks to be executed in parallel. Also, only one thread of the parallel region should call fib()
3 unless multiple concurrent Fibonacci computations are desired.
C / C++
4 Example tasking.4.c
S-1 int fib(int n) {
S-2 int i, j;
S-3 if (n<2)
S-4 return n;
S-5 else {
S-6 #pragma omp task shared(i)
S-7 i=fib(n-1);
S-8 #pragma omp task shared(j)
S-9 j=fib(n-2);
S-10 #pragma omp taskwait
S-11 return i+j;
S-12 }
S-13 }
C / C++
Fortran
5 Example tasking.4.f
S-1 RECURSIVE INTEGER FUNCTION fib(n) RESULT(res)
S-2 INTEGER n, i, j
S-3 IF ( n .LT. 2) THEN
S-4 res = n
S-5 ELSE
S-6 !$OMP TASK SHARED(i)
S-7 i = fib( n-1 )
S-8 !$OMP END TASK
S-9 !$OMP TASK SHARED(j)
S-10 j = fib( n-2 )
S-11 !$OMP END TASK
S-12 !$OMP TASKWAIT
S-13 res = i+j
S-14 END IF
S-15 END FUNCTION

72 OpenMP Examples Version 5.0.0 - November 2019

 Fortran
1 Note: There are more efficient algorithms for computing Fibonacci numbers. This classic recursion
2 algorithm is for illustrative purposes.
3 The following example demonstrates a way to generate a large number of tasks with one thread and
4 execute them with the threads in the team. While generating these tasks, the implementation may
5 reach its limit on unassigned tasks. If it does, the implementation is allowed to cause the thread
6 executing the task generating loop to suspend its task at the task scheduling point in the task
7 directive, and start executing unassigned tasks. Once the number of unassigned tasks is sufficiently
8 low, the thread may resume execution of the task generating loop.
C / C++
9 Example tasking.5.c
S-1 #define LARGE_NUMBER 10000000
S-2 double item[LARGE_NUMBER];
S-3 extern void process(double);
S-4
S-5 int main() {
S-6 #pragma omp parallel
S-7 {
S-8 #pragma omp single
S-9 {
S-10 int i;
S-11 for (i=0; i<LARGE_NUMBER; i++)
S-12 #pragma omp task // i is firstprivate, item is shared
S-13 process(item[i]);
S-14 }
S-15 }
S-16 }
C / C++

CHAPTER 3. TASKING 73
 Fortran
1 Example tasking.5.f
S-1 real*8 item(10000000)
S-2 integer i
S-3
S-4 !$omp parallel
S-5 !$omp single ! loop iteration variable i is private
S-6 do i=1,10000000
S-7 !$omp task
S-8 ! i is firstprivate, item is shared
S-9 call process(item(i))
S-10 !$omp end task
S-11 end do
S-12 !$omp end single
S-13 !$omp end parallel
S-14 end
Fortran
2 The following example is the same as the previous one, except that the tasks are generated in an
3 untied task. While generating the tasks, the implementation may reach its limit on unassigned tasks.
4 If it does, the implementation is allowed to cause the thread executing the task generating loop to
5 suspend its task at the task scheduling point in the task directive, and start executing unassigned
6 tasks. If that thread begins execution of a task that takes a long time to complete, the other threads
7 may complete all the other tasks before it is finished.
8 In this case, since the loop is in an untied task, any other thread is eligible to resume the task
9 generating loop. In the previous examples, the other threads would be forced to idle until the
10 generating thread finishes its long task, since the task generating loop was in a tied task.
C / C++
11 Example tasking.6.c
S-1 #define LARGE_NUMBER 10000000
S-2 double item[LARGE_NUMBER];
S-3 extern void process(double);
S-4 int main() {
S-5 #pragma omp parallel
S-6 {
S-7 #pragma omp single
S-8 {
S-9 int i;
S-10 #pragma omp task untied
S-11 // i is firstprivate, item is shared
S-12 {
S-13 for (i=0; i<LARGE_NUMBER; i++)
S-14 #pragma omp task

74 OpenMP Examples Version 5.0.0 - November 2019

 S-15 process(item[i]);
S-16 }
S-17 }
S-18 }
S-19 return 0;
S-20 }
C / C++
Fortran
1 Example tasking.6.f
S-1 real*8 item(10000000)
S-2 !$omp parallel
S-3 !$omp single
S-4 !$omp task untied
S-5 ! loop iteration variable i is private
S-6 do i=1,10000000
S-7 !$omp task ! i is firstprivate, item is shared
S-8 call process(item(i))
S-9 !$omp end task
S-10 end do
S-11 !$omp end task
S-12 !$omp end single
S-13 !$omp end parallel
S-14 end
Fortran
2 The following two examples demonstrate how the scheduling rules illustrated in Section 2.11.3 of
3 the OpenMP 4.0 specification affect the usage of threadprivate variables in tasks. A
4 threadprivate variable can be modified by another task that is executed by the same thread.
5 Thus, the value of a threadprivate variable cannot be assumed to be unchanged across a task
6 scheduling point. In untied tasks, task scheduling points may be added in any place by the
7 implementation.
8 A task switch may occur at a task scheduling point. A single thread may execute both of the task
9 regions that modify tp. The parts of these task regions in which tp is modified may be executed in
10 any order so the resulting value of var can be either 1 or 2.

CHAPTER 3. TASKING 75
 C / C++
1 Example tasking.7.c
S-1
S-2 int tp;
S-3 #pragma omp threadprivate(tp)
S-4 int var;
S-5 void work()
S-6 {
S-7 #pragma omp task
S-8 {
S-9 /* do work here */
S-10 #pragma omp task
S-11 {
S-12 tp = 1;
S-13 /* do work here */
S-14 #pragma omp task
S-15 {
S-16 /* no modification of tp */
S-17 }
S-18 var = tp; //value of tp can be 1 or 2
S-19 }
S-20 tp = 2;
S-21 }
S-22 }
C / C++
Fortran
2 Example tasking.7.f
S-1 module example
S-2 integer tp
S-3 !$omp threadprivate(tp)
S-4 integer var
S-5 contains
S-6 subroutine work
S-7 !$omp task
S-8 ! do work here
S-9 !$omp task
S-10 tp = 1
S-11 ! do work here
S-12 !$omp task
S-13 ! no modification of tp
S-14 !$omp end task
S-15 var = tp ! value of var can be 1 or 2
S-16 !$omp end task
S-17 tp = 2

76 OpenMP Examples Version 5.0.0 - November 2019

 S-18 !$omp end task
S-19 end subroutine
S-20 end module
Fortran
1 In this example, scheduling constraints prohibit a thread in the team from executing a new task that
2 modifies tp while another such task region tied to the same thread is suspended. Therefore, the
3 value written will persist across the task scheduling point.
C / C++
4 Example tasking.8.c
S-1
S-2 int tp;
S-3 #pragma omp threadprivate(tp)
S-4 int var;
S-5 void work()
S-6 {
S-7 #pragma omp parallel
S-8 {
S-9 /* do work here */
S-10 #pragma omp task
S-11 {
S-12 tp++;
S-13 /* do work here */
S-14 #pragma omp task
S-15 {
S-16 /* do work here but don’t modify tp */
S-17 }
S-18 var = tp; //Value does not change after write above
S-19 }
S-20 }
S-21 }
C / C++

CHAPTER 3. TASKING 77
 Fortran
1 Example tasking.8.f
S-1 module example
S-2 integer tp
S-3 !$omp threadprivate(tp)
S-4 integer var
S-5 contains
S-6 subroutine work
S-7 !$omp parallel
S-8 ! do work here
S-9 !$omp task
S-10 tp = tp + 1
S-11 ! do work here
S-12 !$omp task
S-13 ! do work here but don’t modify tp
S-14 !$omp end task
S-15 var = tp ! value does not change after write above
S-16 !$omp end task
S-17 !$omp end parallel
S-18 end subroutine
S-19 end module
Fortran
2 The following two examples demonstrate how the scheduling rules illustrated in Section 2.11.3 of
3 the OpenMP 4.0 specification affect the usage of locks and critical sections in tasks. If a lock is
4 held across a task scheduling point, no attempt should be made to acquire the same lock in any code
5 that may be interleaved. Otherwise, a deadlock is possible.
6 In the example below, suppose the thread executing task 1 defers task 2. When it encounters the
7 task scheduling point at task 3, it could suspend task 1 and begin task 2 which will result in a
8 deadlock when it tries to enter critical region 1.
C / C++
9 Example tasking.9.c
S-1 void work()
S-2 {
S-3 #pragma omp task
S-4 { //Task 1
S-5 #pragma omp task
S-6 { //Task 2
S-7 #pragma omp critical //Critical region 1
S-8 {/*do work here */ }
S-9 }
S-10 #pragma omp critical //Critical Region 2
S-11 {

78 OpenMP Examples Version 5.0.0 - November 2019

 S-12 //Capture data for the following task
S-13 #pragma omp task
S-14 { /* do work here */ } //Task 3
S-15 }
S-16 }
S-17 }
C / C++
Fortran
1 Example tasking.9.f
S-1 module example
S-2 contains
S-3 subroutine work
S-4 !$omp task
S-5 ! Task 1
S-6 !$omp task
S-7 ! Task 2
S-8 !$omp critical
S-9 ! Critical region 1
S-10 ! do work here
S-11 !$omp end critical
S-12 !$omp end task
S-13 !$omp critical
S-14 ! Critical region 2
S-15 ! Capture data for the following task
S-16 !$omp task
S-17 !Task 3
S-18 ! do work here
S-19 !$omp end task
S-20 !$omp end critical
S-21 !$omp end task
S-22 end subroutine
S-23 end module
Fortran
2 In the following example, lock is held across a task scheduling point. However, according to the
3 scheduling restrictions, the executing thread can’t begin executing one of the non-descendant tasks
4 that also acquires lock before the task region is complete. Therefore, no deadlock is possible.

CHAPTER 3. TASKING 79
 C / C++
1 Example tasking.10.c
S-1 #include <omp.h>
S-2 void work() {
S-3 omp_lock_t lock;
S-4 omp_init_lock(&lock);
S-5 #pragma omp parallel
S-6 {
S-7 int i;
S-8 #pragma omp for
S-9 for (i = 0; i < 100; i++) {
S-10 #pragma omp task
S-11 {
S-12 // lock is shared by default in the task
S-13 omp_set_lock(&lock);
S-14 // Capture data for the following task
S-15 #pragma omp task
S-16 // Task Scheduling Point 1
S-17 { /* do work here */ }
S-18 omp_unset_lock(&lock);
S-19 }
S-20 }
S-21 }
S-22 omp_destroy_lock(&lock);
S-23 }
C / C++
Fortran
2 Example tasking.10.f90
S-1 module example
S-2 include ’omp_lib.h’
S-3 integer (kind=omp_lock_kind) lock
S-4 integer i
S-5
S-6 contains
S-7
S-8 subroutine work
S-9 call omp_init_lock(lock)
S-10 !$omp parallel
S-11 !$omp do
S-12 do i=1,100
S-13 !$omp task
S-14 ! Outer task
S-15 call omp_set_lock(lock) ! lock is shared by
S-16 ! default in the task

80 OpenMP Examples Version 5.0.0 - November 2019

 S-17 ! Capture data for the following task
S-18 !$omp task ! Task Scheduling Point 1
S-19 ! do work here
S-20 !$omp end task
S-21 call omp_unset_lock(lock)
S-22 !$omp end task
S-23 end do
S-24 !$omp end parallel
S-25 call omp_destroy_lock(lock)
S-26 end subroutine
S-27
S-28 end module
Fortran
1 The following examples illustrate the use of the mergeable clause in the task construct. In this
2 first example, the task construct has been annotated with the mergeable clause. The addition
3 of this clause allows the implementation to reuse the data environment (including the ICVs) of the
4 parent task for the task inside foo if the task is included or undeferred. Thus, the result of the
5 execution may differ depending on whether the task is merged or not. Therefore the mergeable
6 clause needs to be used with caution. In this example, the use of the mergeable clause is safe. As x
7 is a shared variable the outcome does not depend on whether or not the task is merged (that is, the
8 task will always increment the same variable and will always compute the same value for x).
C / C++
9 Example tasking.11.c
S-1 #include <stdio.h>
S-2 void foo ( )
S-3 {
S-4 int x = 2;
S-5 #pragma omp task shared(x) mergeable
S-6 {
S-7 x++;
S-8 }
S-9 #pragma omp taskwait
S-10 printf("%d\n",x); // prints 3
S-11 }
C / C++

CHAPTER 3. TASKING 81
 Fortran
1 Example tasking.11.f90
S-1 subroutine foo()
S-2 integer :: x
S-3 x = 2
S-4 !$omp task shared(x) mergeable
S-5 x = x + 1
S-6 !$omp end task
S-7 !$omp taskwait
S-8 print *, x ! prints 3
S-9 end subroutine
Fortran
2 This second example shows an incorrect use of the mergeable clause. In this example, the
3 created task will access different instances of the variable x if the task is not merged, as x is
4 firstprivate, but it will access the same variable x if the task is merged. As a result, the
5 behavior of the program is unspecified and it can print two different values for x depending on the
6 decisions taken by the implementation.
C / C++
7 Example tasking.12.c
S-1 #include <stdio.h>
S-2 void foo ( )
S-3 {
S-4 int x = 2;
S-5 #pragma omp task mergeable
S-6 {
S-7 x++;
S-8 }
S-9 #pragma omp taskwait
S-10 printf("%d\n",x); // prints 2 or 3
S-11 }
C / C++

82 OpenMP Examples Version 5.0.0 - November 2019

 Fortran
1 Example tasking.12.f90
S-1 subroutine foo()
S-2 integer :: x
S-3 x = 2
S-4 !$omp task mergeable
S-5 x = x + 1
S-6 !$omp end task
S-7 !$omp taskwait
S-8 print *, x ! prints 2 or 3
S-9 end subroutine
Fortran
2 The following example shows the use of the final clause and the omp_in_final API call in a
3 recursive binary search program. To reduce overhead, once a certain depth of recursion is reached
4 the program uses the final clause to create only included tasks, which allow additional
5 optimizations.
6 The use of the omp_in_final API call allows programmers to optimize their code by specifying
7 which parts of the program are not necessary when a task can create only included tasks (that is, the
8 code is inside a final task). In this example, the use of a different state variable is not necessary
9 so once the program reaches the part of the computation that is finalized and copying from the
10 parent state to the new state is eliminated. The allocation of new_state in the stack could also be
11 avoided but it would make this example less clear. The final clause is most effective when used
12 in conjunction with the mergeable clause since all tasks created in a final task region are
13 included tasks that can be merged if the mergeable clause is present.
C / C++
14 Example tasking.13.c
S-1 #include <string.h>
S-2 #include <omp.h>
S-3 #define LIMIT 3 /* arbitrary limit on recursion depth */
S-4 void check_solution(char *);
S-5 void bin_search (int pos, int n, char *state)
S-6 {
S-7 if ( pos == n ) {
S-8 check_solution(state);
S-9 return;
S-10 }
S-11 #pragma omp task final( pos > LIMIT ) mergeable
S-12 {
S-13 char new_state[n];
S-14 if (!omp_in_final() ) {
S-15 memcpy(new_state, state, pos );

CHAPTER 3. TASKING 83
 S-16 state = new_state;
S-17 }
S-18 state[pos] = 0;
S-19 bin_search(pos+1, n, state );
S-20 }
S-21 #pragma omp task final( pos > LIMIT ) mergeable
S-22 {
S-23 char new_state[n];
S-24 if (! omp_in_final() ) {
S-25 memcpy(new_state, state, pos );
S-26 state = new_state;
S-27 }
S-28 state[pos] = 1;
S-29 bin_search(pos+1, n, state );
S-30 }
S-31 #pragma omp taskwait
S-32 }
C / C++
Fortran
1 Example tasking.13.f90
S-1 recursive subroutine bin_search(pos, n, state)
S-2 use omp_lib
S-3 integer :: pos, n
S-4 character, pointer :: state(:)
S-5 character, target, dimension(n) :: new_state1, new_state2
S-6 integer, parameter :: LIMIT = 3
S-7 if (pos .eq. n) then
S-8 call check_solution(state)
S-9 return
S-10 endif
S-11 !$omp task final(pos > LIMIT) mergeable
S-12 if (.not. omp_in_final()) then
S-13 new_state1(1:pos) = state(1:pos)
S-14 state => new_state1
S-15 endif
S-16 state(pos+1) = ’z’
S-17 call bin_search(pos+1, n, state)
S-18 !$omp end task
S-19 !$omp task final(pos > LIMIT) mergeable
S-20 if (.not. omp_in_final()) then
S-21 new_state2(1:pos) = state(1:pos)
S-22 state => new_state2
S-23 endif
S-24 state(pos+1) = ’y’
S-25 call bin_search(pos+1, n, state)

84 OpenMP Examples Version 5.0.0 - November 2019

 S-26 !$omp end task
S-27 !$omp taskwait
S-28 end subroutine
Fortran
1 The following example illustrates the difference between the if and the final clauses. The if
2 clause has a local effect. In the first nest of tasks, the one that has the if clause will be undeferred
3 but the task nested inside that task will not be affected by the if clause and will be created as usual.
4 Alternatively, the final clause affects all task constructs in the final task region but not the
5 final task itself. In the second nest of tasks, the nested tasks will be created as included tasks.
6 Note also that the conditions for the if and final clauses are usually the opposite.
C / C++
7 Example tasking.14.c
S-1 void bar(void);
S-2
S-3 void foo ( )
S-4 {
S-5 int i;
S-6 #pragma omp task if(0) // This task is undeferred
S-7 {
S-8 #pragma omp task // This task is a regular task
S-9 for (i = 0; i < 3; i++) {
S-10 #pragma omp task // This task is a regular task
S-11 bar();
S-12 }
S-13 }
S-14 #pragma omp task final(1) // This task is a regular task
S-15 {
S-16 #pragma omp task // This task is included
S-17 for (i = 0; i < 3; i++) {
S-18 #pragma omp task // This task is also included
S-19 bar();
S-20 }
S-21 }
S-22 }
C / C++

CHAPTER 3. TASKING 85
 Fortran
1 Example tasking.14.f90
S-1 subroutine foo()
S-2 integer i
S-3 !$omp task if(.FALSE.) ! This task is undeferred
S-4 !$omp task ! This task is a regular task
S-5 do i = 1, 3
S-6 !$omp task ! This task is a regular task
S-7 call bar()
S-8 !$omp end task
S-9 enddo
S-10 !$omp end task
S-11 !$omp end task
S-12 !$omp task final(.TRUE.) ! This task is a regular task
S-13 !$omp task ! This task is included
S-14 do i = 1, 3
S-15 !$omp task ! This task is also included
S-16 call bar()
S-17 !$omp end task
S-18 enddo
S-19 !$omp end task
S-20 !$omp end task
S-21 end subroutine
Fortran

86 OpenMP Examples Version 5.0.0 - November 2019

1 3.2 Task Priority
2 In this example we compute arrays in a matrix through a compute_array routine. Each task has a
3 priority value equal to the value of the loop variable i at the moment of its creation. A higher
4 priority on a task means that a task is a candidate to run sooner.
5 The creation of tasks occurs in ascending order (according to the iteration space of the loop) but a
6 hint, by means of the priority clause, is provided to reverse the execution order.
C / C++
7 Example task_priority.1.c
S-1 void compute_array (float *node, int M);
S-2
S-3 void compute_matrix (float *array, int N, int M)
S-4 {
S-5 int i;
S-6 #pragma omp parallel private(i)
S-7 #pragma omp single
S-8 {
S-9 for (i=0;i<N; i++) {
S-10 #pragma omp task priority(i)
S-11 compute_array(&array[i*M], M);
S-12 }
S-13 }
S-14 }
C / C++
Fortran
8 Example task_priority.1.f90
S-1 subroutine compute_matrix(matrix, M, N)
S-2 implicit none
S-3 integer :: M, N
S-4 real :: matrix(M, N)
S-5 integer :: i
S-6 interface
S-7 subroutine compute_array(node, M)
S-8 implicit none
S-9 integer :: M
S-10 real :: node(M)
S-11 end subroutine
S-12 end interface
S-13 !$omp parallel private(i)
S-14 !$omp single
S-15 do i=1,N
S-16 !$omp task priority(i)

CHAPTER 3. TASKING 87
S-17 call compute_array(matrix(:, i), M)
S-18 !$omp end task
S-19 enddo
S-20 !$omp end single
S-21 !$omp end parallel
S-22 end subroutine compute_matrix
Fortran

88 OpenMP Examples Version 5.0.0 - November 2019

1 3.3 Task Dependences
2 3.3.1 Flow Dependence
3 This example shows a simple flow dependence using a depend clause on the task construct.
C / C++
4 Example task_dep.1.c
S-1 #include <stdio.h>
S-2 int main() {
S-3 int x = 1;
S-4 #pragma omp parallel
S-5 #pragma omp single
S-6 {
S-7 #pragma omp task shared(x) depend(out: x)
S-8 x = 2;
S-9 #pragma omp task shared(x) depend(in: x)
S-10 printf("x = %d\n", x);
S-11 }
S-12 return 0;
S-13 }
C / C++
Fortran
5 Example task_dep.1.f90
S-1 program example
S-2 integer :: x
S-3 x = 1
S-4 !$omp parallel
S-5 !$omp single
S-6 !$omp task shared(x) depend(out: x)
S-7 x = 2
S-8 !$omp end task
S-9 !$omp task shared(x) depend(in: x)
S-10 print*, "x = ", x
S-11 !$omp end task
S-12 !$omp end single
S-13 !$omp end parallel
S-14 end program
Fortran
6 The program will always print "x = 2", because the depend clauses enforce the ordering of the
7 tasks. If the depend clauses had been omitted, then the tasks could execute in any order and the
8 program and the program would have a race condition.

CHAPTER 3. TASKING 89
1 3.3.2 Anti-dependence
2 This example shows an anti-dependence using the depend clause on the task construct.
C / C++
3 Example task_dep.2.c
S-1 #include <stdio.h>
S-2 int main()
S-3 {
S-4 int x = 1;
S-5 #pragma omp parallel
S-6 #pragma omp single
S-7 {
S-8 #pragma omp task shared(x) depend(in: x)
S-9 printf("x = %d\n", x);
S-10 #pragma omp task shared(x) depend(out: x)
S-11 x = 2;
S-12 }
S-13 return 0;
S-14 }
C / C++
Fortran
4 Example task_dep.2.f90
S-1 program example
S-2 integer :: x
S-3 x = 1
S-4 !$omp parallel
S-5 !$omp single
S-6 !$omp task shared(x) depend(in: x)
S-7 print*, "x = ", x
S-8 !$omp end task
S-9 !$omp task shared(x) depend(out: x)
S-10 x = 2
S-11 !$omp end task
S-12 !$omp end single
S-13 !$omp end parallel
S-14 end program
Fortran
5 The program will always print "x = 1", because the depend clauses enforce the ordering of the
6 tasks. If the depend clauses had been omitted, then the tasks could execute in any order and the
7 program would have a race condition.

90 OpenMP Examples Version 5.0.0 - November 2019

1 3.3.3 Output Dependence
2 This example shows an output dependence using the depend clause on the task construct.
C / C++
3 Example task_dep.3.c
S-1 #include <stdio.h>
S-2 int main() {
S-3 int x;
S-4 #pragma omp parallel
S-5 #pragma omp single
S-6 {
S-7 #pragma omp task shared(x) depend(out: x)
S-8 x = 1;
S-9 #pragma omp task shared(x) depend(out: x)
S-10 x = 2;
S-11 #pragma omp taskwait
S-12 printf("x = %d\n", x);
S-13 }
S-14 return 0;
S-15 }
C / C++
Fortran
4 Example task_dep.3.f90
S-1 program example
S-2 integer :: x
S-3 !$omp parallel
S-4 !$omp single
S-5 !$omp task shared(x) depend(out: x)
S-6 x = 1
S-7 !$omp end task
S-8 !$omp task shared(x) depend(out: x)
S-9 x = 2
S-10 !$omp end task
S-11 !$omp taskwait
S-12 print*, "x = ", x
S-13 !$omp end single
S-14 !$omp end parallel
S-15 end program
Fortran
5 The program will always print "x = 2", because the depend clauses enforce the ordering of the
6 tasks. If the depend clauses had been omitted, then the tasks could execute in any order and the
7 program would have a race condition.

CHAPTER 3. TASKING 91
1 3.3.4 Concurrent Execution with Dependences
2 In this example we show potentially concurrent execution of tasks using multiple flow dependences
3 expressed using the depend clause on the task construct.
C / C++
4 Example task_dep.4.c
S-1 #include <stdio.h>
S-2 int main() {
S-3 int x = 1;
S-4 #pragma omp parallel
S-5 #pragma omp single
S-6 {
S-7 #pragma omp task shared(x) depend(out: x)
S-8 x = 2;
S-9 #pragma omp task shared(x) depend(in: x)
S-10 printf("x + 1 = %d. ", x+1);
S-11 #pragma omp task shared(x) depend(in: x)
S-12 printf("x + 2 = %d\n", x+2);
S-13 }
S-14 return 0;
S-15 }
C / C++
Fortran
5 Example task_dep.4.f90
S-1
S-2 program example
S-3 integer :: x
S-4
S-5 x = 1
S-6
S-7 !$omp parallel
S-8 !$omp single
S-9
S-10 !$omp task shared(x) depend(out: x)
S-11 x = 2
S-12 !$omp end task
S-13
S-14 !$omp task shared(x) depend(in: x)
S-15 print*, "x + 1 = ", x+1, "."
S-16 !$omp end task
S-17
S-18 !$omp task shared(x) depend(in: x)
S-19 print*, "x + 2 = ", x+2, "."

92 OpenMP Examples Version 5.0.0 - November 2019

 S-20 !$omp end task
S-21
S-22 !$omp end single
S-23 !$omp end parallel
S-24 end program
Fortran
1 The last two tasks are dependent on the first task. However there is no dependence between the last
2 two tasks, which may execute in any order (or concurrently if more than one thread is available).
3 Thus, the possible outputs are "x + 1 = 3. x + 2 = 4. " and "x + 2 = 4. x + 1 = 3. ". If the depend
4 clauses had been omitted, then all of the tasks could execute in any order and the program would
5 have a race condition.

6 3.3.5 Matrix multiplication

7 This example shows a task-based blocked matrix multiplication. Matrices are of NxN elements, and
8 the multiplication is implemented using blocks of BSxBS elements.
C / C++
9 Example task_dep.5.c
S-1 // Assume BS divides N perfectly
S-2 void matmul_depend(int N, int BS, float A[N][N], float B[N][N], float
S-3 C[N][N] )
S-4 {
S-5 int i, j, k, ii, jj, kk;
S-6 for (i = 0; i < N; i+=BS) {
S-7 for (j = 0; j < N; j+=BS) {
S-8 for (k = 0; k < N; k+=BS) {
S-9 // Note 1: i, j, k, A, B, C are firstprivate by default
S-10 // Note 2: A, B and C are just pointers
S-11 #pragma omp task private(ii, jj, kk) \
S-12 depend ( in: A[i:BS][k:BS], B[k:BS][j:BS] ) \
S-13 depend ( inout: C[i:BS][j:BS] )
S-14 for (ii = i; ii < i+BS; ii++ )
S-15 for (jj = j; jj < j+BS; jj++ )
S-16 for (kk = k; kk < k+BS; kk++ )
S-17 C[ii][jj] = C[ii][jj] + A[ii][kk] * B[kk][jj];
S-18 }
S-19 }
S-20 }
S-21 }
C / C++

CHAPTER 3. TASKING 93
 Fortran
1 Example task_dep.5.f90
S-1 ! Assume BS divides N perfectly
S-2 subroutine matmul_depend (N, BS, A, B, C)
S-3 implicit none
S-4 integer :: N, BS, BM
S-5 real, dimension(N, N) :: A, B, C
S-6 integer :: i, j, k, ii, jj, kk
S-7 BM = BS - 1
S-8 do i = 1, N, BS
S-9 do j = 1, N, BS
S-10 do k = 1, N, BS
S-11 !$omp task shared(A,B,C) private(ii,jj,kk) & ! I,J,K are firstprivate by default
S-12 !$omp depend ( in: A(i:i+BM, k:k+BM), B(k:k+BM, j:j+BM) ) &
S-13 !$omp depend ( inout: C(i:i+BM, j:j+BM) )
S-14 do ii = i, i+BM
S-15 do jj = j, j+BM
S-16 do kk = k, k+BM
S-17 C(jj,ii) = C(jj,ii) + A(kk,ii) * B(jj,kk)
S-18 end do
S-19 end do
S-20 end do
S-21 !$omp end task
S-22 end do
S-23 end do
S-24 end do
S-25 end subroutine
Fortran

2 3.3.6 taskwait with Dependences

3 In this subsection three examples illustrate how the depend clause can be applied to a taskwait
4 construct to make the generating task wait for specific child tasks to complete. This is an OpenMP
5 5.0 feature. In the same manner that dependences can order executions among child tasks with
6 depend clauses on task constructs, the generating task can be scheduled to wait on child tasks at
7 a taskwait before it can proceed.
8 Note: Since the depend clause on a taskwait construct relaxes the default synchronization
9 behavior (waiting for all children to finish), it is important to realize that child tasks that are not
10 predecessor tasks, as determined by the depend clause of the taskwait construct, may be
11 running concurrently while the generating task is executing after the taskwait.

94 OpenMP Examples Version 5.0.0 - November 2019

1 In the first example the generating task waits at the taskwait construct for the completion of the
2 first child task because a dependence on the first task is produced by x with an in dependence type
3 within the depend clause of the taskwait construct. Immediately after the first taskwait
4 construct it is safe to access the x variable by the generating task, as shown in the print statement.
5 There is no completion restraint on the second child task. Hence, immediately after the first
6 taskwait it is unsafe to access the y variable since the second child task may still be executing.
7 The second taskwait ensures that the second child task has completed; hence it is safe to access
8 the y variable in the following print statement.
C / C++
9 Example task_dep.6.c
S-1
S-2 #include<stdio.h>
S-3
S-4 void foo()
S-5 {
S-6 int x = 0, y = 2;
S-7
S-8 #pragma omp task depend(inout: x) shared(x)
S-9 x++; // 1st child task
S-10
S-11 #pragma omp task shared(y)
S-12 y--; // 2nd child task
S-13
S-14 #pragma omp taskwait depend(in: x) // 1st taskwait
S-15
S-16 printf("x=%d\n",x);
S-17
S-18 // Second task may not be finished.
S-19 // Accessing y here will create a race condition.
S-20
S-21 #pragma omp taskwait // 2nd taskwait
S-22
S-23 printf("y=%d\n",y);
S-24 }
S-25
S-26 int main()
S-27 {
S-28 #pragma omp parallel
S-29 #pragma omp single
S-30 foo();
S-31
S-32 return 0;
S-33 }
C / C++

CHAPTER 3. TASKING 95
 Fortran
1 Example task_dep.6.f90
S-1
S-2
S-3 subroutine foo()
S-4 implicit none
S-5 integer :: x, y
S-6
S-7 x = 0
S-8 y = 2
S-9
S-10 !$omp task depend(inout: x) shared(x)
S-11 x = x + 1 !! 1st child task
S-12 !$omp end task
S-13
S-14 !$omp task shared(y)
S-15 y = y - 1 !! 2nd child task
S-16 !$omp end task
S-17
S-18 !$omp taskwait depend(in: x) !! 1st taskwait
S-19
S-20 print*, "x=", x
S-21
S-22 !! Second task may not be finished.
S-23 !! Accessing y here will create a race condition.
S-24
S-25 !$omp taskwait !! 2nd taskwait
S-26
S-27 print*, "y=", y
S-28
S-29 end subroutine foo
S-30
S-31 program p
S-32 implicit none
S-33 !$omp parallel
S-34 !$omp single
S-35 call foo()
S-36 !$omp end single
S-37 !$omp end parallel
S-38 end program p
Fortran
2 In this example the first two tasks are serialized, because a dependence on the first child is produced
3 by x with the in dependence type in the depend clause of the second task. However, the
4 generating task at the first taskwait waits only on the first child task to complete, because a

96 OpenMP Examples Version 5.0.0 - November 2019

1 dependence on only the first child task is produced by x with an in dependence type within the
2 depend clause of the taskwait construct. The second taskwait (without a depend clause)
3 is included to guarantee completion of the second task before y is accessed. (While unnecessary,
4 the depend(inout: y) clause on the 2nd child task is included to illustrate how the child task
5 dependences can be completely annotated in a data-flow model.)
C / C++
6 Example task_dep.7.c
S-1
S-2 #include<stdio.h>
S-3
S-4 void foo()
S-5 {
S-6 int x = 0, y = 2;
S-7
S-8 #pragma omp task depend(inout: x) shared(x)
S-9 x++; // 1st child task
S-10
S-11 #pragma omp task depend(in: x) depend(inout: y) shared(x, y)
S-12 y -= x; // 2nd child task
S-13
S-14 #pragma omp taskwait depend(in: x) // 1st taskwait
S-15
S-16 printf("x=%d\n",x);
S-17
S-18 // Second task may not be finished.
S-19 // Accessing y here would create a race condition.
S-20
S-21 #pragma omp taskwait // 2nd taskwait
S-22
S-23 printf("y=%d\n",y);
S-24
S-25 }
S-26
S-27 int main()
S-28 {
S-29 #pragma omp parallel
S-30 #pragma omp single
S-31 foo();
S-32
S-33 return 0;
S-34 }
C / C++

CHAPTER 3. TASKING 97
 Fortran
1 Example task_dep.7.f90
S-1
S-2
S-3 subroutine foo()
S-4 implicit none
S-5 integer :: x, y
S-6
S-7 x = 0
S-8 y = 2
S-9
S-10 !$omp task depend(inout: x) shared(x)
S-11 x = x + 1 !! 1st child task
S-12 !$omp end task
S-13
S-14 !$omp task depend(in: x) depend(inout: y) shared(x, y)
S-15 y = y - x !! 2nd child task
S-16 !$omp end task
S-17
S-18 !$omp taskwait depend(in: x) !! 1st taskwait
S-19
S-20 print*, "x=", x
S-21
S-22 !! Second task may not be finished.
S-23 !! Accessing y here would create a race condition.
S-24
S-25 !$omp taskwait !! 2nd taskwait
S-26
S-27 print*, "y=", y
S-28
S-29 end subroutine foo
S-30
S-31 program p
S-32 implicit none
S-33 !$omp parallel
S-34 !$omp single
S-35 call foo()
S-36 !$omp end single
S-37 !$omp end parallel
S-38 end program p
Fortran
2 This example is similar to the previous one, except the generating task is directed to also wait for
3 completion of the second task.

98 OpenMP Examples Version 5.0.0 - November 2019

 1 The depend clause of the taskwait construct now includes an in dependence type for y.
2 Hence the generating task must now wait on completion of any child task having y with an out
3 (here inout) dependence type in its depend clause. So, the depend clause of the taskwait
4 construct now constrains the second task to complete at the taskwait, too. (This change makes
5 the second taskwait of the previous example unnecessary– it has been removed in this example.)
6 Note: While a taskwait construct ensures that all child tasks have completed; a depend clause on a
7 taskwait construct only waits for specific child tasks (prescribed by the dependence type and list
8 items in the taskwait’s depend clause). This and the previous example illustrate the need to
9 carefully determine the dependence type of variables in the taskwait depend clause when
10 selecting child tasks that the generating task must wait on, so that its execution after the taskwait
11 does not produce race conditions on variables accessed by non-completed child tasks.
C / C++
12 Example task_dep.8.c
S-1
S-2 #include<stdio.h>
S-3
S-4 void foo()
S-5 {
S-6 int x = 0, y = 2;
S-7
S-8 #pragma omp task depend(inout: x) shared(x)
S-9 x++; // 1st child task
S-10
S-11 #pragma omp task depend(in: x) depend(inout: y) shared(x, y)
S-12 y -= x; // 2st child task
S-13
S-14 #pragma omp taskwait depend(in: x,y)
S-15
S-16 printf("x=%d\n",x);
S-17 printf("y=%d\n",y);
S-18
S-19 }
S-20
S-21 int main()
S-22 {
S-23 #pragma omp parallel
S-24 #pragma omp single
S-25 foo();
S-26
S-27 return 0;
S-28 }
C / C++

CHAPTER 3. TASKING 99
 Fortran
1 Example task_dep.8.f90
S-1
S-2
S-3 subroutine foo()
S-4 implicit nonE
S-5 integer :: x, y
S-6
S-7 x = 0
S-8 y = 2
S-9
S-10 !$omp task depend(inout: x) shared(x)
S-11 x = x + 1 !! 1st child task
S-12 !$omp end task
S-13
S-14 !$omp task depend(in: x) depend(inout: y) shared(x, y)
S-15 y = y - x !! 2nd child task
S-16 !$omp end task
S-17
S-18 !$omp taskwait depend(in: x,y)
S-19
S-20 print*, "x=", x
S-21 print*, "y=", y
S-22
S-23 end subroutine foo
S-24
S-25 program p
S-26 implicit none
S-27 !$omp parallel
S-28 !$omp single
S-29 call foo()
S-30 !$omp end single
S-31 !$omp end parallel
S-32 end program p
Fortran

100 OpenMP Examples Version 5.0.0 - November 2019

1 3.3.7 Mutually Exclusive Execution with Dependences
2 In this example we show a series of tasks, including mutually exclusive tasks, expressing
3 dependences using the depend clause on the task construct.
4 The program will always print 6. Tasks T1, T2 and T3 will be scheduled first, in any order. Task T4
5 will be scheduled after tasks T1 and T2 are completed. T5 will be scheduled after tasks T1 and T3
6 are completed. Due to the mutexinoutset dependence type on c, T4 and T5 may be scheduled
7 in any order with respect to each other, but not at the same time. Tasks T6 will be scheduled after
8 both T4 and T5 are completed.
C / C++
9 Example task_dep.9.c
S-1 #include <stdio.h>
S-2 int main()
S-3 {
S-4 int a, b, c, d;
S-5 #pragma omp parallel
S-6 #pragma omp single
S-7 {
S-8 #pragma omp task depend(out: c)
S-9 c = 1; /* Task T1 */
S-10 #pragma omp task depend(out: a)
S-11 a = 2; /* Task T2 */
S-12 #pragma omp task depend(out: b)
S-13 b = 3; /* Task T3 */
S-14 #pragma omp task depend(in: a) depend(mutexinoutset: c)
S-15 c += a; /* Task T4 */
S-16 #pragma omp task depend(in: b) depend(mutexinoutset: c)
S-17 c += b; /* Task T5 */
S-18 #pragma omp task depend(in: c)
S-19 d = c; /* Task T6 */
S-20 }
S-21 printf("%d\n", d);
S-22 return 0;
S-23 }
C / C++

CHAPTER 3. TASKING 101

 Fortran
1 Example task_dep.9.f90
S-1 program example
S-2 integer :: a, b, c, d
S-3 !$omp parallel
S-4 !$omp single
S-5 !$omp task depend(out: c)
S-6 c = 1 ! Task T1
S-7 !$omp end task
S-8 !$omp task depend(out: a)
S-9 a = 2 ! Task T2
S-10 !$omp end task
S-11 !$omp task depend(out: b)
S-12 b = 3 ! Task T3
S-13 !$omp end task
S-14 !$omp task depend(in: a) depend(mutexinoutset: c)
S-15 c = c + a ! Task T4
S-16 !$omp end task
S-17 !$omp task depend(in: b) depend(mutexinoutset: c)
S-18 c = c + b ! Task T5
S-19 !$omp end task
S-20 !$omp task depend(in: c)
S-21 d = c ! Task T6
S-22 !$omp end task
S-23 !$omp end single
S-24 !$omp end parallel
S-25 print *, d
S-26 end program
Fortran
2 The following example demonstrates a situation where the mutexinoutset dependence type is
3 advantageous. If shortTaskB completes before longTaskA, the runtime can take advantage of
4 this by scheduling longTaskBC before shortTaskAC.
C / C++
5 Example task_dep.10.c
S-1 void foo (void)
S-2 {
S-3 int a, b, c;
S-4 c = 0;
S-5 #pragma omp parallel
S-6 #pragma omp single
S-7 {
S-8 #pragma omp task depend(out: a)
S-9 a = longTaskA();

102 OpenMP Examples Version 5.0.0 - November 2019

 S-10 #pragma omp task depend(out: b)
S-11 b = shortTaskB();
S-12 #pragma omp task depend(in: a) depend(mutexinoutset: c)
S-13 c = shortTaskAC(a,c);
S-14 #pragma omp task depend(in: b) depend(mutexinoutset: c)
S-15 c = longTaskBC(b,c);
S-16 }
S-17 }
C / C++
Fortran
1 Example task_dep.10.f90
S-1 subroutine foo
S-2 integer :: a,b,c
S-3 c = 0
S-4 !$omp parallel
S-5 !$omp single
S-6 !$omp task depend(out: a)
S-7 a = longTaskA()
S-8 !$omp end task
S-9 !$omp task depend(out: b)
S-10 b = shortTaskB()
S-11 !$omp end task
S-12 !$omp task depend(in: a) depend(mutexinoutset: c)
S-13 c = shortTaskAC(a,c)
S-14 !$omp end task
S-15 !$omp task depend(in: b) depend(mutexinoutset: c)
S-16 c = longTaskBC(b,c)
S-17 !$omp end task
S-18 !$omp end single
S-19 !$omp end parallel
S-20 end subroutine foo
Fortran

CHAPTER 3. TASKING 103

 1 3.3.8 Multidependences Using Iterators
2 The following example uses an iterator to define a dynamic number of dependences.
3 In the single construct of a parallel region a loop generates n tasks and each task has an out
4 dependence specified through an element of the v array. This is followed by a single task that defines
5 an in dependence on each element of the array. This is accomplished by using the iterator
6 modifier in the depend clause, supporting a dynamic number of dependences (n here).
7 The task for the print_all_elements function is not executed until all dependences prescribed (or
8 registered) by the iterator are fulfilled; that is, after all the tasks generated by the loop have
9 completed.
10 Note, one cannot simply use an array section in the depend clause of the second task construct
11 because this would violate the depend clause restriction:
12 "List items used in depend clauses of the same task or sibling tasks must indicate identical storage
13 locations or disjoint storage locations".
14 In this case each of the loop tasks use a single disjoint (different storage) element in their depend
15 clause; however, the array-section storage area prescribed in the commented directive is neither
16 identical nor disjoint to the storage prescibed by the elements of the loop tasks. The iterator
17 overcomes this restriction by effectively creating n disjoint storage areas.
C / C++
18 Example task_dep.11.c
S-1
S-2 #include<stdio.h>
S-3
S-4 void set_an_element(int *p, int val) {
S-5 *p = val;
S-6 }
S-7
S-8 void print_all_elements(int *v, int n) {
S-9 int i;
S-10 for (i = 0; i < n; ++i) {
S-11 printf("%d, ", v[i]);
S-12 }
S-13 printf("\n");
S-14 }
S-15
S-16 void parallel_computation(int n) {
S-17 int v[n];
S-18 #pragma omp parallel
S-19 #pragma omp single
S-20 {
S-21 int i;

104 OpenMP Examples Version 5.0.0 - November 2019

 S-22 for (i = 0; i < n; ++i)
S-23 #pragma omp task depend(out: v[i])
S-24 set_an_element(&v[i], i);
S-25
S-26 #pragma omp task depend(iterator(it = 0:n), in: v[it])
S-27 // #pragma omp task depend(in: v[0:n]) Violates Array section restriction.
S-28 print_all_elements(v, n);
S-29
S-30 }
S-31 }
S-32
C / C++
Fortran
1 Example task_dep.11.f90
S-1
S-2 subroutine set_an_element(e, val)
S-3 implicit none
S-4 integer :: e, val
S-5
S-6 e = val
S-7
S-8 end subroutine
S-9
S-10 subroutine print_all_elements(v, n)
S-11 implicit none
S-12 integer :: n, v(n)
S-13
S-14 print *, v
S-15
S-16 end subroutine
S-17
S-18 subroutine parallel_computation(n)
S-19 implicit none
S-20 integer :: n
S-21 integer :: i, v(n)
S-22
S-23 !$omp parallel
S-24 !$omp single
S-25 do i=1, n
S-26 !$omp task depend(out: v(i))
S-27 all set_an_element(v(i), i)
S-28 !$omp end task
S-29 enddo
S-30
S-31 !$omp task depend(iterator(it = 1:n), in: v(it))

CHAPTER 3. TASKING 105

S-32 !!$omp task depend(in: v(1:n)) Violates Array section restriction.
S-33 call print_all_elements(v, n)
S-34 !$omp end task
S-35
S-36 !$omp end single
S-37 !$omp end parallel
S-38 end subroutine
Fortran

106 OpenMP Examples Version 5.0.0 - November 2019

 1 3.4 The taskgroup Construct
2 In this example, tasks are grouped and synchronized using the taskgroup construct.
3 Initially, one task (the task executing the start_background_work() call) is created in the
4 parallel region, and later a parallel tree traversal is started (the task executing the root of the
5 recursive compute_tree() calls). While synchronizing tasks at the end of each tree traversal,
6 using the taskgroup construct ensures that the formerly started background task does not
7 participate in the synchronization, and is left free to execute in parallel. This is opposed to the
8 behavior of the taskwait construct, which would include the background tasks in the
9 synchronization.
C / C++
10 Example taskgroup.1.c
S-1 extern void start_background_work(void);
S-2 extern void check_step(void);
S-3 extern void print_results(void);
S-4 struct tree_node
S-5 {
S-6 struct tree_node *left;
S-7 struct tree_node *right;
S-8 };
S-9 typedef struct tree_node* tree_type;
S-10 extern void init_tree(tree_type);
S-11 #define max_steps 100
S-12 void compute_something(tree_type tree)
S-13 {
S-14 // some computation
S-15 }
S-16 void compute_tree(tree_type tree)
S-17 {
S-18 if (tree->left)
S-19 {
S-20 #pragma omp task
S-21 compute_tree(tree->left);
S-22 }
S-23 if (tree->right)
S-24 {
S-25 #pragma omp task
S-26 compute_tree(tree->right);
S-27 }
S-28 #pragma omp task
S-29 compute_something(tree);
S-30 }
S-31 int main()
S-32 {

CHAPTER 3. TASKING 107

 S-33 int i;
S-34 tree_type tree;
S-35 init_tree(tree);
S-36 #pragma omp parallel
S-37 #pragma omp single
S-38 {
S-39 #pragma omp task
S-40 start_background_work();
S-41 for (i = 0; i < max_steps; i++)
S-42 {
S-43 #pragma omp taskgroup
S-44 {
S-45 #pragma omp task
S-46 compute_tree(tree);
S-47 } // wait on tree traversal in this step
S-48 check_step();
S-49 }
S-50 } // only now is background work required to be complete
S-51 print_results();
S-52 return 0;
S-53 }
C / C++
Fortran
1 Example taskgroup.1.f90
S-1 module tree_type_mod
S-2 integer, parameter :: max_steps=100
S-3 type tree_type
S-4 type(tree_type), pointer :: left, right
S-5 end type
S-6 contains
S-7 subroutine compute_something(tree)
S-8 type(tree_type), pointer :: tree
S-9 ! some computation
S-10 end subroutine
S-11 recursive subroutine compute_tree(tree)
S-12 type(tree_type), pointer :: tree
S-13 if (associated(tree%left)) then
S-14 !$omp task
S-15 call compute_tree(tree%left)
S-16 !$omp end task
S-17 endif
S-18 if (associated(tree%right)) then
S-19 !$omp task
S-20 call compute_tree(tree%right)
S-21 !$omp end task

108 OpenMP Examples Version 5.0.0 - November 2019

S-22 endif
S-23 !$omp task
S-24 call compute_something(tree)
S-25 !$omp end task
S-26 end subroutine
S-27 end module
S-28 program main
S-29 use tree_type_mod
S-30 type(tree_type), pointer :: tree
S-31 call init_tree(tree);
S-32 !$omp parallel
S-33 !$omp single
S-34 !$omp task
S-35 call start_background_work()
S-36 !$omp end task
S-37 do i=1, max_steps
S-38 !$omp taskgroup
S-39 !$omp task
S-40 call compute_tree(tree)
S-41 !$omp end task
S-42 !$omp end taskgroup ! wait on tree traversal in this step
S-43 call check_step()
S-44 enddo
S-45 !$omp end single
S-46 !$omp end parallel ! only now is background work required to be complete
S-47 call print_results()
S-48 end program
Fortran

CHAPTER 3. TASKING 109

1 3.5 The taskyield Construct
2 The following example illustrates the use of the taskyield directive. The tasks in the example
3 compute something useful and then do some computation that must be done in a critical region. By
4 using taskyield when a task cannot get access to the critical region the implementation
5 can suspend the current task and schedule some other task that can do something useful.
C / C++
6 Example taskyield.1.c
S-1 #include <omp.h>
S-2
S-3 void something_useful ( void );
S-4 void something_critical ( void );
S-5 void foo ( omp_lock_t * lock, int n )
S-6 {
S-7 int i;
S-8
S-9 for ( i = 0; i < n; i++ )
S-10 #pragma omp task
S-11 {
S-12 something_useful();
S-13 while ( !omp_test_lock(lock) ) {
S-14 #pragma omp taskyield
S-15 }
S-16 something_critical();
S-17 omp_unset_lock(lock);
S-18 }
S-19 }
C / C++
Fortran
7 Example taskyield.1.f90
S-1 subroutine foo ( lock, n )
S-2 use omp_lib
S-3 integer (kind=omp_lock_kind) :: lock
S-4 integer n
S-5 integer i
S-6
S-7 do i = 1, n
S-8 !$omp task
S-9 call something_useful()
S-10 do while ( .not. omp_test_lock(lock) )
S-11 !$omp taskyield
S-12 end do

110 OpenMP Examples Version 5.0.0 - November 2019

S-13 call something_critical()
S-14 call omp_unset_lock(lock)
S-15 !$omp end task
S-16 end do
S-17
S-18 end subroutine
Fortran

CHAPTER 3. TASKING 111

1 3.6 The taskloop Construct
2 The following example illustrates how to execute a long running task concurrently with tasks
3 created with a taskloop directive for a loop having unbalanced amounts of work for its iterations.
4 The grainsize clause specifies that each task is to execute at least 500 iterations of the loop.
5 The nogroup clause removes the implicit taskgroup of the taskloop construct; the explicit
6 taskgroup construct in the example ensures that the function is not exited before the
7 long-running task and the loops have finished execution.
C / C++
8 Example taskloop.1.c
S-1 void long_running_task(void);
S-2 void loop_body(int i, int j);
S-3
S-4 void parallel_work(void) {
S-5 int i, j;
S-6 #pragma omp taskgroup
S-7 {
S-8 #pragma omp task
S-9 long_running_task(); // can execute concurrently
S-10
S-11 #pragma omp taskloop private(j) grainsize(500) nogroup
S-12 for (i = 0; i < 10000; i++) { // can execute concurrently
S-13 for (j = 0; j < i; j++) {
S-14 loop_body(i, j);
S-15 }
S-16 }
S-17 }
S-18 }
C / C++

112 OpenMP Examples Version 5.0.0 - November 2019

 Fortran
1 Example taskloop.1.f90
S-1 subroutine parallel_work
S-2 integer i
S-3 integer j
S-4 !$omp taskgroup
S-5
S-6 !$omp task
S-7 call long_running_task()
S-8 !$omp end task
S-9
S-10 !$omp taskloop private(j) grainsize(500) nogroup
S-11 do i=1,10000
S-12 do j=1,i
S-13 call loop_body(i, j)
S-14 end do
S-15 end do
S-16 !$omp end taskloop
S-17
S-18 !$omp end taskgroup
S-19 end subroutine
Fortran
2 Because a taskloop construct encloses a loop, it is often incorrectly perceived as a worksharing
3 construct (when it is directly nested in a parallel region).
4 While a worksharing construct distributes the loop iterations across all threads in a team, the entire
5 loop of a taskloop construct is executed by every thread of the team.
6 In the example below the first taskloop occurs closely nested within a parallel region and the
7 entire loop is executed by each of the T threads; hence the reduction sum is executed T *N times.
8 The loop of the second taskloop is within a single region and is executed by a single thread so
9 that only N reduction sums occur. (The other N-1 threads of the parallel region will participate
10 in executing the tasks. This is the common use case for the taskloop construct.)
11 In the example, the code thus prints x1 = 16384 (T *N) and x2 = 1024 (N).

CHAPTER 3. TASKING 113

 C / C++
1 Example taskloop.2.c
S-1 #include <stdio.h>
S-2
S-3 #define T 16
S-4 #define N 1024
S-5
S-6 void parallel_work() {
S-7 int x1 = 0, x2 = 0;
S-8
S-9 #pragma omp parallel shared(x1,x2) num_threads(T)
S-10 {
S-11 #pragma omp taskloop
S-12 for (int i = 0; i < N; ++i) {
S-13 #pragma omp atomic
S-14 x1++; // executed T*N times
S-15 }
S-16
S-17 #pragma omp single
S-18 #pragma omp taskloop
S-19 for (int i = 0; i < N; ++i) {
S-20 #pragma omp atomic
S-21 x2++; // executed N times
S-22 }
S-23 }
S-24
S-25 printf("x1 = %d, x2 = %d\n", x1, x2);
S-26 }
C / C++
Fortran
2 Example taskloop.2.f90
S-1 subroutine parallel_work
S-2 implicit none
S-3 integer :: x1, x2
S-4 integer :: i
S-5 integer, parameter :: T = 16
S-6 integer, parameter :: N = 1024
S-7
S-8 x1 = 0
S-9 x2 = 0
S-10 !$omp parallel shared(x1,x2) num_threads(T)
S-11 !$omp taskloop
S-12 do i = 1,N
S-13 !$omp atomic

114 OpenMP Examples Version 5.0.0 - November 2019

S-14 x1 = x1 + 1 ! executed T*N times
S-15 !$omp end atomic
S-16 end do
S-17 !$omp end taskloop
S-18
S-19 !$omp single
S-20 !$omp taskloop
S-21 do i = 1,N
S-22 !$omp atomic
S-23 x2 = x2 + 1 ! executed N times
S-24 !$omp end atomic
S-25 end do
S-26 !$omp end taskloop
S-27 !$omp end single
S-28 !$omp end parallel
S-29
S-30 write (*,’(A,I0,A,I0)’) ’x1 = ’, x1, ’, x2 = ’,x2
S-31 end subroutine
Fortran

CHAPTER 3. TASKING 115

 1 3.7 The parallel master taskloop Construct
2 In the OpenMP 5.0 Specification several combined constructs containing the taskloop construct
3 were added.
4 Just as the for and do constructs have been combined with the parallel construct for
5 convenience, so too, the combined parallel master taskloop and
6 parallel master taskloop simd constructs have been created for convenience.
7 In the following example the first taskloop construct is enclosed by the usual parallel and
8 master constructs to form a team of threads, and a single task generator (master thread) for the
9 taskloop construct.
10 The same OpenMP operations for the first taskloop are accomplished by the second taskloop with
11 the parallel master taskloop combined construct. The third taskloop uses the combined
12 parallel master taskloop simd construct to accomplish the same behavior as closely
13 nested parallel master, and taskloop simd constructs.
14 As with any combined construct the clauses of the components may be used with appropriate
15 restrictions. The combination of the parallel master construct with the taskloop or
16 taskloop simd construct produces no additional restrictions.
C / C++
17 Example parallel_master_taskloop.1.c
S-1
S-2 #include <stdio.h>
S-3 #define N 100
S-4
S-5 int main()
S-6 {
S-7 int i, a[N],b[N],c[N];
S-8
S-9 for(int i=0; i<N; i++){ b[i]=i; c[i]=i; } //init
S-10
S-11 #pragma omp parallel
S-12 #pragma omp master
S-13 #pragma omp taskloop // taskloop 1
S-14 for(i=0;i<N;i++){ a[i] = b[i] + c[i]; }
S-15
S-16 #pragma omp parallel master taskloop // taskloop 2
S-17 for(i=0;i<N;i++){ b[i] = a[i] + c[i]; }
S-18
S-19 #pragma omp parallel master taskloop simd // taskloop 3
S-20 for(i=0;i<N;i++){ c[i] = a[i] + b[i]; }
S-21
S-22

116 OpenMP Examples Version 5.0.0 - November 2019

 S-23 printf(" %d %d\n",c[0],c[N-1]); // 0 and 495
S-24 }
C / C++
Fortran
1 Example parallel_master_taskloop.1.f90
S-1
S-2 program main
S-3
S-4 integer, parameter :: N=100
S-5 integer :: i, a(N),b(N),c(N)
S-6
S-7 do i=1,N !! initialize
S-8 b(i) = i
S-9 c(i) = i
S-10 enddo
S-11
S-12 !$omp parallel
S-13 !$omp master
S-14 !$omp taskloop !! taskloop 1
S-15 do i=1,N
S-16 a(i) = b(i) + c(i)
S-17 enddo
S-18 !$omp end taskloop
S-19 !$omp end master
S-20 !$omp end parallel
S-21
S-22 !$omp parallel master taskloop !! taskloop 2
S-23 do i=1,N
S-24 b(i) = a(i) + c(i)
S-25 enddo
S-26 !$omp end parallel master taskloop
S-27
S-28 !$omp parallel master taskloop simd !! taskloop 3
S-29 do i=1,N
S-30 c(i) = a(i) + b(i)
S-31 enddo
S-32 !$omp end parallel master taskloop simd
S-33
S-34 print*,c(1),c(N) !! 5 and 500
S-35
S-36 end program
Fortran

CHAPTER 3. TASKING 117

1 CHAPTER 4

2 Devices

3 The target construct consists of a target directive and an execution region. The target
4 region is executed on the default device or the device specified in the device clause.
5 In OpenMP version 4.0, by default, all variables within the lexical scope of the construct are copied
6 to and from the device, unless the device is the host, or the data exists on the device from a
7 previously executed data-type construct that has created space on the device and possibly copied
8 host data to the device storage.
9 The constructs that explicitly create storage, transfer data, and free storage on the device are
10 catagorized as structured and unstructured. The target data construct is structured. It creates a
11 data region around target constructs, and is convenient for providing persistent data throughout
12 multiple target regions. The target enter data and target exit data constructs are
13 unstructured, because they can occur anywhere and do not support a "structure" (a region) for
14 enclosing target constructs, as does the target data construct.
15 The map clause is used on target constructs and the data-type constructs to map host data. It
16 specifies the device storage and data movement to and from the device, and controls on the
17 storage duration.
18 There is an important change in the OpenMP 4.5 specification that alters the data model for scalar
19 variables and C/C++ pointer variables. The default behavior for scalar variables and C/C++ pointer
20 variables in an 4.5 compliant code is firstprivate. Example codes that have been updated to
21 reflect this new behavior are annotated with a description that describes changes required for
22 correct execution. Often it is a simple matter of mapping the variable as tofrom to obtain the
23 intended 4.0 behavior.
24 In OpenMP version 4.5 the mechanism for target execution is specified as occuring through a target
25 task. When the target construct is encountered a new target task is generated. The target task
26 completes after the target region has executed and all data transfers have finished.
27 This new specification does not affect the execution of pre-4.5 code; it is a necessary element for
28 asynchronous execution of the target region when using the new nowait clause introduced in
29 OpenMP 4.5.

118
1 4.1 target Construct

2 4.1.1 target Construct on parallel Construct

3 This following example shows how the target construct offloads a code region to a target device.
4 The variables p, v1, v2, and N are implicitly mapped to the target device.
C / C++
5 Example target.1.c
S-1 extern void init(float*, float*, int);
S-2 extern void output(float*, int);
S-3 void vec_mult(int N)
S-4 {
S-5 int i;
S-6 float p[N], v1[N], v2[N];
S-7 init(v1, v2, N);
S-8 #pragma omp target
S-9 #pragma omp parallel for private(i)
S-10 for (i=0; i<N; i++)
S-11 p[i] = v1[i] * v2[i];
S-12 output(p, N);
S-13 }
C / C++
Fortran
6 Example target.1.f90
S-1 subroutine vec_mult(N)
S-2 integer :: i,N
S-3 real :: p(N), v1(N), v2(N)
S-4 call init(v1, v2, N)
S-5 !$omp target
S-6 !$omp parallel do
S-7 do i=1,N
S-8 p(i) = v1(i) * v2(i)
S-9 end do
S-10 !$omp end target
S-11 call output(p, N)
S-12 end subroutine
Fortran

CHAPTER 4. DEVICES 119

1 4.1.2 target Construct with map Clause
2 This following example shows how the target construct offloads a code region to a target device.
3 The variables p, v1 and v2 are explicitly mapped to the target device using the map clause. The
4 variable N is implicitly mapped to the target device.
C / C++
5 Example target.2.c
S-1 extern void init(float*, float*, int);
S-2 extern void output(float*, int);
S-3 void vec_mult(int N)
S-4 {
S-5 int i;
S-6 float p[N], v1[N], v2[N];
S-7 init(v1, v2, N);
S-8 #pragma omp target map(v1, v2, p)
S-9 #pragma omp parallel for
S-10 for (i=0; i<N; i++)
S-11 p[i] = v1[i] * v2[i];
S-12 output(p, N);
S-13 }
C / C++
Fortran
6 Example target.2.f90
S-1 subroutine vec_mult(N)
S-2 integer :: i,N
S-3 real :: p(N), v1(N), v2(N)
S-4 call init(v1, v2, N)
S-5 !$omp target map(v1,v2,p)
S-6 !$omp parallel do
S-7 do i=1,N
S-8 p(i) = v1(i) * v2(i)
S-9 end do
S-10 !$omp end target
S-11 call output(p, N)
S-12 end subroutine
Fortran

120 OpenMP Examples Version 5.0.0 - November 2019

 1 4.1.3 map Clause with to/from map-types
2 The following example shows how the target construct offloads a code region to a target device.
3 In the map clause, the to and from map-types define the mapping between the original (host) data
4 and the target (device) data. The to map-type specifies that the data will only be read on the
5 device, and the from map-type specifies that the data will only be written to on the device. By
6 specifying a guaranteed access on the device, data transfers can be reduced for the target region.
7 The to map-type indicates that at the start of the target region the variables v1 and v2 are
8 initialized with the values of the corresponding variables on the host device, and at the end of the
9 target region the variables v1 and v2 are not assigned to their corresponding variables on the
10 host device.
11 The from map-type indicates that at the start of the target region the variable p is not initialized
12 with the value of the corresponding variable on the host device, and at the end of the target
13 region the variable p is assigned to the corresponding variable on the host device.
C / C++
14 Example target.3.c
S-1 extern void init(float*, float*, int);
S-2 extern void output(float*, int);
S-3 void vec_mult(int N)
S-4 {
S-5 int i;
S-6 float p[N], v1[N], v2[N];
S-7 init(v1, v2, N);
S-8 #pragma omp target map(to: v1, v2) map(from: p)
S-9 #pragma omp parallel for
S-10 for (i=0; i<N; i++)
S-11 p[i] = v1[i] * v2[i];
S-12 output(p, N);
S-13 }
C / C++
15 The to and from map-types allow programmers to optimize data motion. Since data for the v
16 arrays are not returned, and data for the p array are not transferred to the device, only one-half of
17 the data is moved, compared to the default behavior of an implicit mapping.

CHAPTER 4. DEVICES 121

 Fortran
1 Example target.3.f90
S-1 subroutine vec_mult(N)
S-2 integer :: i,N
S-3 real :: p(N), v1(N), v2(N)
S-4 call init(v1, v2, N)
S-5 !$omp target map(to: v1,v2) map(from: p)
S-6 !$omp parallel do
S-7 do i=1,N
S-8 p(i) = v1(i) * v2(i)
S-9 end do
S-10 !$omp end target
S-11 call output(p, N)
S-12 end subroutine
Fortran

2 4.1.4 map Clause with Array Sections

3 The following example shows how the target construct offloads a code region to a target device.
4 In the map clause, map-types are used to optimize the mapping of variables to the target device.
5 Because variables p, v1 and v2 are pointers, array section notation must be used to map the arrays.
6 The notation :N is equivalent to 0:N.
C / C++
7 Example target.4.c
S-1 extern void init(float*, float*, int);
S-2 extern void output(float*, int);
S-3 void vec_mult(float *p, float *v1, float *v2, int N)
S-4 {
S-5 int i;
S-6 init(v1, v2, N);
S-7 #pragma omp target map(to: v1[0:N], v2[:N]) map(from: p[0:N])
S-8 #pragma omp parallel for
S-9 for (i=0; i<N; i++)
S-10 p[i] = v1[i] * v2[i];
S-11 output(p, N);
S-12 }

122 OpenMP Examples Version 5.0.0 - November 2019

 C / C++
1 In C, the length of the pointed-to array must be specified. In Fortran the extent of the array is
2 known and the length need not be specified. A section of the array can be specified with the usual
3 Fortran syntax, as shown in the following example. The value 1 is assumed for the lower bound for
4 array section v2(:N).
Fortran
5 Example target.4.f90
S-1 module mults
S-2 contains
S-3 subroutine vec_mult(p,v1,v2,N)
S-4 real,pointer,dimension(:) :: p, v1, v2
S-5 integer :: N,i
S-6 call init(v1, v2, N)
S-7 !$omp target map(to: v1(1:N), v2(:N)) map(from: p(1:N))
S-8 !$omp parallel do
S-9 do i=1,N
S-10 p(i) = v1(i) * v2(i)
S-11 end do
S-12 !$omp end target
S-13 call output(p, N)
S-14 end subroutine
S-15 end module
Fortran
6 A more realistic situation in which an assumed-size array is passed to vec_mult requires that the
7 length of the arrays be specified, because the compiler does not know the size of the storage. A
8 section of the array must be specified with the usual Fortran syntax, as shown in the following
9 example. The value 1 is assumed for the lower bound for array section v2(:N).

CHAPTER 4. DEVICES 123

 Fortran
1 Example target.4b.f90
S-1 module mults
S-2 contains
S-3 subroutine vec_mult(p,v1,v2,N)
S-4 real,dimension(*) :: p, v1, v2
S-5 integer :: N,i
S-6 call init(v1, v2, N)
S-7 !$omp target map(to: v1(1:N), v2(:N)) map(from: p(1:N))
S-8 !$omp parallel do
S-9 do i=1,N
S-10 p(i) = v1(i) * v2(i)
S-11 end do
S-12 !$omp end target
S-13 call output(p, N)
S-14 end subroutine
S-15 end module
Fortran

2 4.1.5 target Construct with if Clause

3 The following example shows how the target construct offloads a code region to a target device.
4 The if clause on the target construct indicates that if the variable N is smaller than a given
5 threshold, then the target region will be executed by the host device.
6 The if clause on the parallel construct indicates that if the variable N is smaller than a second
7 threshold then the parallel region is inactive.
C / C++
8 Example target.5.c
S-1 #define THRESHOLD1 1000000
S-2 #define THRESHOLD2 1000
S-3 extern void init(float*, float*, int);
S-4 extern void output(float*, int);
S-5 void vec_mult(float *p, float *v1, float *v2, int N)
S-6 {
S-7 int i;
S-8 init(v1, v2, N);
S-9 #pragma omp target if(N>THRESHOLD1) map(to: v1[0:N], v2[:N])\
S-10 map(from: p[0:N])
S-11 #pragma omp parallel for if(N>THRESHOLD2)

124 OpenMP Examples Version 5.0.0 - November 2019

 S-12 for (i=0; i<N; i++)
S-13 p[i] = v1[i] * v2[i];
S-14 output(p, N);
S-15 }
C / C++
Fortran
1 Example target.5.f90
S-1 module params
S-2 integer,parameter :: THRESHOLD1=1000000, THRESHHOLD2=1000
S-3 end module
S-4 subroutine vec_mult(p, v1, v2, N)
S-5 use params
S-6 real :: p(N), v1(N), v2(N)
S-7 integer :: i
S-8 call init(v1, v2, N)
S-9 !$omp target if(N>THRESHHOLD1) map(to: v1, v2 ) map(from: p)
S-10 !$omp parallel do if(N>THRESHOLD2)
S-11 do i=1,N
S-12 p(i) = v1(i) * v2(i)
S-13 end do
S-14 !$omp end target
S-15 call output(p, N)
S-16 end subroutine
Fortran
2 The following example is a modification of the above target.5 code to show the combined target
3 and parallel loop directives. It uses the directive-name modifier in multiple if clauses to specify
4 the component directive to which it applies.
5 The if clause with the target modifier applies to the target component of the combined
6 directive, and the if clause with the parallel modifier applies to the parallel component of
7 the combined directive.

CHAPTER 4. DEVICES 125

 C / C++
1 Example target.6.c
S-1 #define THRESHOLD1 1000000
S-2 #define THRESHOLD2 1000
S-3 extern void init(float*, float*, int);
S-4 extern void output(float*, int);
S-5 void vec_mult(float *p, float *v1, float *v2, int N)
S-6 {
S-7 int i;
S-8 init(v1, v2, N);
S-9 #pragma omp target parallel for \
S-10 if(target: N>THRESHOLD1) if(parallel: N>THRESHOLD2) \
S-11 map(to: v1[0:N], v2[:N]) map(from: p[0:N])
S-12 for (i=0; i<N; i++)
S-13 p[i] = v1[i] * v2[i];
S-14 output(p, N);
S-15 }
C / C++
Fortran
2 Example target.6.f90
S-1 module params
S-2 integer,parameter :: THRESHOLD1=1000000, THRESHHOLD2=1000
S-3 end module
S-4 subroutine vec_mult(p, v1, v2, N)
S-5 use params
S-6 real :: p(N), v1(N), v2(N)
S-7 integer :: i
S-8 call init(v1, v2, N)
S-9 !$omp target parallel do &
S-10 !$omp& if(target: N>THRESHHOLD1) if(parallel: N>THRESHOLD2) &
S-11 !$omp& map(to: v1, v2 ) map(from: p)
S-12 do i=1,N
S-13 p(i) = v1(i) * v2(i)
S-14 end do
S-15 !$omp end target parallel do
S-16 call output(p, N)
S-17 end subroutine
Fortran

126 OpenMP Examples Version 5.0.0 - November 2019

 1 4.1.6 target Reverse Offload
2 Beginning with OpenMP 5.0, implementations are allowed to offload back to the host (reverse
3 offload).
4 In the example below the error_handler function is executed back on the host, if an erroneous value
5 is detected in the A array on the device.
6 This is accomplished by specifying the device-modifier ancestor modifier, along with a device
7 number of 1, to indicate that the execution is to be performed on the immediate parent (1st
8 ancestor)– the host.
9 The requires directive (another 5.0 feature) uses the reverse_offload clause to guarantee
10 that the reverse offload is implemented.
11 Note that the declare target directive uses the device_type clause (another 5.0 feature)
12 to specify that the error_handler function is compiled to execute on the host only. This ensures that
13 no attempt will be made to create a device version of the function. This feature may be necessary if
14 the function exists in another compile unit.
C / C++
15 Example target_reverse_offload.7.c
S-1
S-2 #include <stdio.h>
S-3 #include <stdlib.h>
S-4
S-5 #define N 100
S-6
S-7 #pragma omp requires reverse_offload
S-8
S-9 void error_handler(int wrong_value, int index)
S-10 {
S-11 printf(" Error in offload: A[%d]=%d\n", index,wrong_value);
S-12 printf(" Expecting: A[i ]=i\n");
S-13 exit(1);
S-14 // output: Error in offload: A[99]=-1
S-15 // Expecting: A[i ]=i
S-16
S-17 }
S-18 #pragma omp declare target device_type(host) to(error_handler)
S-19
S-20 int main()
S-21 {
S-22 int A[N];
S-23
S-24 for (int i=0; i<N; i++) A[i] = i;
S-25

CHAPTER 4. DEVICES 127

 S-26 A[N-1]=-1;
S-27
S-28 #pragma omp target map(A)
S-29 {
S-30 for (int i=0; i<N; i++)
S-31 {
S-32 if (A[i] != i)
S-33 {
S-34 #pragma omp target device(ancestor: 1) map(always,to: A[i:1])
S-35 error_handler(A[i], i);
S-36 }
S-37 }
S-38 }
S-39 return 0;
S-40 }
C / C++
Fortran
1 Example target_reverse_offload.7.f90
S-1
S-2 !$omp requires reverse_offload
S-3
S-4 subroutine error_handler(wrong_value, index)
S-5 integer :: error_value,index
S-6 !$omp declare target device_type(host)
S-7
S-8 write( *,’("Error in offload: A(",i3,")=",i3)’ ) index,wrong_value
S-9 write( *,’(" Expecting: A( i)= i")’ )
S-10 stop
S-11 !!output: Error in offload: A( 99)= -1
S-12 !! Expecting: A( i)= i
S-13 end subroutine
S-14
S-15 program rev_off
S-16 use omp_lib
S-17 integer, parameter :: N=100
S-18 integer :: A(N) = (/ (i, i=1,100) /)
S-19
S-20 A(N-1)=-1
S-21
S-22 !$omp target map(A)
S-23 do i=1,N
S-24 if (A(i) /= i) then
S-25 !$omp omp target device(ancestor: 1) map(always,to :A(i))
S-26 call error_handler(A(i), i)
S-27 !$omp omp end target

128 OpenMP Examples Version 5.0.0 - November 2019

S-28 endif
S-29 end do
S-30 !$omp end target
S-31
S-32 end program
Fortran

CHAPTER 4. DEVICES 129

 1 4.2 Pointer mapping
2 The following example shows the basics of mapping pointers with and without associated storage
3 on the host.
4 Storage for pointers ptr1 and ptr2 is created on the host. To map storage that is associated with a
5 pointer on the host, the data can be explicitly mapped as an array section so that the compiler knows
6 the amount of data to be assigned in the device (to the "corresponding" data storage area). On the
7 target construct array sections are mapped; however, the pointer ptr1 is mapped, while ptr2 is
8 not. Since ptr2 is not explicitly mapped, it is firstprivate. This creates a subtle difference in the way
9 these pointers can be used.
10 As a firstprivate pointer, ptr2 can be manipulated on the device; however, as an explicitly mapped
11 pointer, ptr1 becomes an attached pointer and cannot be manipulated. In both cases the host pointer
12 is not updated with the device pointer address—as one would expect for distributed memory. The
13 storage data on the host is updated from the corresponding device data at the end of the target
14 region.
15 As a comparison, note that the aray array is automatically mapped, since the compiler knows the
16 extent of the array.
17 The pointer ptr3 is used in the target region and has a data-sharing attribute of firstprivate. The
18 pointer is implicitly mapped to a zero-length array section. Neither the pointer address nor any of
19 its locally assigned data on the device is returned to the host.
C / C++
20 Example target_ptr_map.1.c
S-1 #include <stdio.h>
S-2 #include <stdlib.h>
S-3 #define N 100
S-4
S-5 int main()
S-6 {
S-7 int *ptr1;
S-8 int *ptr2;
S-9 int *ptr3;
S-10 int aray[N];
S-11
S-12 ptr1 = (int *)malloc(sizeof(int)*N);
S-13 ptr2 = (int *)malloc(sizeof(int)*N);
S-14
S-15 #pragma omp target map(ptr1, ptr1[:N]) map(ptr2[:N] )
S-16 {
S-17 for (int i=0; i<N; i++)
S-18 {
S-19 ptr1[i] = i;

130 OpenMP Examples Version 5.0.0 - November 2019

 S-20 ptr2[i] = i;
S-21 aray[i] = i;
S-22 }
S-23
S-24 //*(++ptr1) = 9; //NOT ALLOWED since ptr1 is an attached pointer
S-25 *(++ptr2) = 9; // allowed since ptr2 is firstprivate
S-26
S-27 ptr3=(int *)malloc(sizeof(int)*N); // ptr3 is firstprivate
S-28 // ptr3 value not returned
S-29 for (int i=0; i<N; i++) ptr3[i] = 5;
S-30
S-31 for (int i=0; i<N; i++) ptr1[i] += ptr3[i];
S-32
S-33 free(ptr3); // explicitly free allocated storage on device
S-34 }
S-35
S-36 printf(" %d %d\n",ptr1[1],ptr2[1]);
S-37 // 6 9
S-38
S-39 free(ptr1);
S-40 free(ptr2);
S-41 return 0;
S-42 }
C / C++
1 In the following example the global pointer p appears in a declare target directive. Hence,
2 the pointer p will persist on the device throughout executions in all target regions.
3 The pointer is also used in an array section of a map clause on a target construct. When storage
4 associated with a declare target pointer is mapped, as for the array section p[:N] in the
5 target construct, the array section on the device is attached to the device pointer p on entry to
6 the construct, and the value of the device pointer p becomes undefined on exit. (Of course, storage
7 allocation for the array section on the device will occur before the pointer on the device is attached.)
C / C++
8 Example target_ptr_map.2.c
S-1 #include <stdio.h>
S-2 #include <stdlib.h>
S-3 #define N 100
S-4
S-5 #pragma omp declare target
S-6 int *p;
S-7 extern void use_arg_p(int *p, int n);
S-8 extern void use_global_p( int n);
S-9 #pragma omp end declare target
S-10

CHAPTER 4. DEVICES 131

S-11 int main()
S-12 {
S-13 int i;
S-14 p = (int *)malloc(sizeof(int)*N);
S-15
S-16 #pragma omp target map(p[:N]) // device p attached to array section
S-17 {
S-18 for (i=0; i<N; i++) p[i] = i;
S-19 use_arg_p(p, N);
S-20 use_global_p(N);
S-21 } // value of host p is preserved
S-22
S-23 printf(" %3.3d %3.3d\n", p[1], p[N-1]);
S-24 // 003 297 <- output
S-25
S-26 free(p);
S-27 return 0;
S-28 }
S-29
S-30 //#pragma omp declare target (optional here because of prototype spec)
S-31 void use_arg_p(int *q, int n)
S-32 {
S-33 int i;
S-34 for (i=0; i<n; i++)
S-35 q[i] *= 2;
S-36 }
S-37
S-38 void use_global_p(int n)
S-39 {
S-40 int i;
S-41 for (i=0; i<n; i++)
S-42 p[i] += i; // valid since p is in declare target and called from
S-43 // inside target region where p was attached to valid memory
S-44 }
S-45 //#pragma omp end declare target (optional here because of prototype spec)
C / C++

132 OpenMP Examples Version 5.0.0 - November 2019

 1 4.3 Structure mapping
2 In the example below, only structure elements S.a, S.b and S.p of the S structure appear in map
3 clauses of a target construct. Only these components have corresponding variables and storage
4 on the device. Hence, the large arrays, S.buffera and S.bufferb, and the S.x component have no
5 storage on the device and cannot be accessed.
6 Also, since the pointer member S.p is used in an array section of a map clause, the array storage of
7 the array section on the device, S.p[:N], is attached to the pointer member S.p on the device.
8 Explicitly mapping the pointer member S.p is optional in this case.
9 Note: The buffer arrays and the x variable have been grouped together, so that the components that
10 will reside on the device are all together (without gaps). This allows the runtime to optimize the
11 transfer and the storage footprint on the device.
C / C++
12 Example target_struct_map.1.c
S-1 #include <stdio.h>
S-2 #include <stdlib.h>
S-3 #define N 100
S-4 #define BAZILLION 2000000
S-5
S-6 struct foo {
S-7 char buffera[BAZILLION];
S-8 char bufferb[BAZILLION];
S-9 float x;
S-10 float a, b;
S-11 float *p;
S-12 };
S-13
S-14 #pragma omp declare target
S-15 void saxpyfun(struct foo *S)
S-16 {
S-17 int i;
S-18 for(i=0; i<N; i++)
S-19 S->p[i] = S->p[i]*S->a + S->b;
S-20 }
S-21 #pragma omp end declare target
S-22
S-23 int main()
S-24 {
S-25 struct foo S;
S-26 int i;
S-27
S-28 S.a = 2.0;
S-29 S.b = 4.0;

CHAPTER 4. DEVICES 133

 S-30 S.p = (float *)malloc(sizeof(float)*N);
S-31 for(i=0; i<N; i++) S.p[i] = i;
S-32
S-33 #pragma omp target map(alloc:S.p) map(S.p[:N]) map(to:S.a, S.b)
S-34 saxpyfun(&S);
S-35
S-36 printf(" %4.0f %4.0f\n", S.p[0], S.p[N-1]);
S-37 // 4 202 <- output
S-38 return 0;
S-39 }
C / C++
1 The following example is a slight modification of the above example for a C++ class. In the member
2 function SAXPY::driver the array section p[:N] is attached to the pointer member p on the device.
C++
3 Example target_struct_map.2.cpp
S-1 #include <cstdio>
S-2 #include <cstdlib>
S-3 #define N 100
S-4
S-5 class SAXPY {
S-6 private:
S-7 float a, b, *p;
S-8 public:
S-9 float buffer[N];
S-10
S-11 SAXPY(float arg_a, float arg_b){ a=arg_a; b=arg_b; }
S-12 void driver();
S-13 void saxpyfun(float *p);
S-14 };
S-15
S-16 #pragma omp declare target
S-17 void SAXPY::saxpyfun(float *q)
S-18 {
S-19 for(int i=0; i<N; i++)
S-20 buffer[i] = q[i]*a + b;
S-21 }
S-22 #pragma omp end declare target
S-23
S-24 void SAXPY::driver()
S-25 {
S-26 p = (float *) malloc(N*sizeof(float));
S-27 for(int i=0; i<N; i++) p[i]=i;
S-28
S-29 #pragma omp target map(alloc:p) map(to:p[:N]) map(to:a,b) \

134 OpenMP Examples Version 5.0.0 - November 2019

S-30 map(from:buffer[:N]) // attach(p) to device_malloc()
S-31 {
S-32 saxpyfun(p);
S-33 }
S-34
S-35 free(p);
S-36 }
S-37
S-38 int main()
S-39 {
S-40 SAXPY my_saxpy(2.0,4.0);
S-41
S-42 my_saxpy.driver();
S-43
S-44 printf(" %4.0f %4.0f\n", my_saxpy.buffer[0], my_saxpy.buffer[N-1]);
S-45 // 4 202 <- output
S-46
S-47 return 0;
S-48 }
C++

CHAPTER 4. DEVICES 135

1 4.4 Array Sections in Device Constructs
2 The following examples show the usage of array sections in map clauses on target and target
3 data constructs.
4 This example shows the invalid usage of two separate sections of the same array inside of a
5 target construct.
C / C++
6 Example array_sections.1.c
S-1 void foo ()
S-2 {
S-3 int A[30];
S-4 #pragma omp target data map( A[0:4] )
S-5 {
S-6 /* Cannot map distinct parts of the same array */
S-7 #pragma omp target map( A[7:20] )
S-8 {
S-9 A[2] = 0;
S-10 }
S-11 }
S-12 }
C / C++
Fortran
7 Example array_sections.1.f90
S-1 subroutine foo()
S-2 integer :: A(30)
S-3 A = 1
S-4 !$omp target data map( A(1:4) )
S-5 ! Cannot map distinct parts of the same array
S-6 !$omp target map( A(8:27) )
S-7 A(3) = 0
S-8 !$omp end target
S-9 !$omp end target data
S-10 end subroutine
Fortran

136 OpenMP Examples Version 5.0.0 - November 2019

1 This example shows the invalid usage of two separate sections of the same array inside of a
2 target construct.
C / C++
3 Example array_sections.2.c
S-1 void foo ()
S-2 {
S-3 int A[30], *p;
S-4 #pragma omp target data map( A[0:4] )
S-5 {
S-6 p = &A[0];
S-7 /* invalid because p[3] and A[3] are the same
S-8 * location on the host but the array section
S-9 * specified via p[...] is not a subset of A[0:4] */
S-10 #pragma omp target map( p[3:20] )
S-11 {
S-12 A[2] = 0;
S-13 p[8] = 0;
S-14 }
S-15 }
S-16 }
C / C++
Fortran
4 Example array_sections.2.f90
S-1 subroutine foo()
S-2 integer,target :: A(30)
S-3 integer,pointer :: p(:)
S-4 A=1
S-5 !$omp target data map( A(1:4) )
S-6 p=>A
S-7 ! invalid because p(4) and A(4) are the same
S-8 ! location on the host but the array section
S-9 ! specified via p(...) is not a subset of A(1:4)
S-10 !$omp target map( p(4:23) )
S-11 A(3) = 0
S-12 p(9) = 0
S-13 !$omp end target
S-14 !$omp end target data
S-15 end subroutine
Fortran

CHAPTER 4. DEVICES 137

1 This example shows the valid usage of two separate sections of the same array inside of a target
2 construct.
C / C++
3 Example array_sections.3.c
S-1 void foo ()
S-2 {
S-3 int A[30], *p;
S-4 #pragma omp target data map( A[0:4] )
S-5 {
S-6 p = &A[0];
S-7 #pragma omp target map( p[7:20] )
S-8 {
S-9 A[2] = 0;
S-10 p[8] = 0;
S-11 }
S-12 }
S-13 }
C / C++
Fortran
4 Example array_sections.3.f90
S-1 subroutine foo()
S-2 integer,target :: A(30)
S-3 integer,pointer :: p(:)
S-4 !$omp target data map( A(1:4) )
S-5 p=>A
S-6 !$omp target map( p(8:27) )
S-7 A(3) = 0
S-8 p(9) = 0
S-9 !$omp end target
S-10 !$omp end target data
S-11 end subroutine
Fortran

138 OpenMP Examples Version 5.0.0 - November 2019

1 This example shows the valid usage of a wholly contained array section of an already mapped array
2 section inside of a target construct.
C / C++
3 Example array_sections.4.c
S-1 void foo ()
S-2 {
S-3 int A[30], *p;
S-4 #pragma omp target data map( A[0:10] )
S-5 {
S-6 p = &A[0];
S-7 #pragma omp target map( p[3:7] )
S-8 {
S-9 A[2] = 0;
S-10 p[8] = 0;
S-11 A[8] = 1;
S-12 }
S-13 }
S-14 }
C / C++
Fortran
4 Example array_sections.4.f90
S-1 subroutine foo()
S-2 integer,target :: A(30)
S-3 integer,pointer :: p(:)
S-4 !$omp target data map( A(1:10) )
S-5 p=>A
S-6 !$omp target map( p(4:10) )
S-7 A(3) = 0
S-8 p(9) = 0
S-9 A(9) = 1
S-10 !$omp end target
S-11 !$omp end target data
S-12 end subroutine
Fortran

CHAPTER 4. DEVICES 139

1 4.5 Array Shaping
C / C++
2 A pointer variable can be shaped to a multi-dimensional array to facilitate data access. This is
3 achieved by a shape-operator casted in front of a pointer (lvalue expression):
4 ([s1 ][s2 ]...[sn ])pointer
5 where each si is an integral-type expression of positive value. The shape-operator can appear in
6 either the motion-clause of the target update directive or the depend clause.
7 The following example shows the use of the shape-operator in the target update directive. The
8 shape-operator ([nx][ny+2]) casts pointer variable a to a 2-dimentional array of size
9 nx×(ny+2). The resulting array is then accessed as array sections (such as [0:nx][1] and
10 [0:nx][ny]) in the from or to clause for transferring two columns of noncontiguous boundary
11 data from or to the device. Note the use of additional parentheses around the shape-operator and a
12 to ensure the correct precedence over array-section operations.
13 Example array_shaping.1.c
S-1 #pragma omp declare target
S-2 int do_work(double *a, int nx, int ny);
S-3 int other_work(double *a, int nx, int ny);
S-4 #pragma omp end declare target
S-5
S-6 void exch_data(double *a, int nx, int ny);
S-7
S-8 void array_shaping(double *a, int nx, int ny)
S-9 {
S-10 // map data to device and do work
S-11 #pragma omp target data map(a[0:nx*(ny+2)])
S-12 {
S-13 // do work on the device
S-14 #pragma omp target // map(a[0:nx*(ny+2)]) is optional here
S-15 do_work(a, nx, ny);
S-16
S-17 // update boundary points (two columns of 2D array) on the host
S-18 // pointer is shaped to 2D array using the shape-operator
S-19 #pragma omp target update from( (([nx][ny+2])a)[0:nx][1], \
S-20 (([nx][ny+2])a)[0:nx][ny] )
S-21
S-22 // exchange ghost points with neighbors
S-23 exch_data(a, nx, ny);
S-24
S-25 // update ghost points (two columns of 2D array) on the device
S-26 // pointer is shaped to 2D array using the shape-operator
S-27 #pragma omp target update to( (([nx][ny+2])a)[0:nx][0], \

140 OpenMP Examples Version 5.0.0 - November 2019

S-28 (([nx][ny+2])a)[0:nx][ny+1] )
S-29
S-30 // perform other work on the device
S-31 #pragma omp target // map(a[0:nx*(ny+2)]) is optional here
S-32 other_work(a, nx, ny);
S-33 }
S-34 }
C / C++

CHAPTER 4. DEVICES 141

 1 4.6 declare mapper Construct
2 The following examples show how to use the declare mapper directive to prescribe a map for
3 later use. It is also quite useful for pre-defining partitioned and nested structure elements.
4 In the first example the declare mapper directive specifies that any structure of type myvec_t
5 for which implicit data-mapping rules apply will be mapped according to its map clause. The
6 variable v is used for referencing the structure and its elements within the map clause. Within the
7 map clause the v variable specifies that all elements of the structure are to be mapped. Additionally,
8 the array section v.data[0:v.len] specifies that the dynamic storage for data is to be mapped.
9 Within the main program the s variable is typed as myvec_t. Since the variable is found within the
10 target region and the type has a mapping prescribed by a declare mapper directive, it will be
11 automatically mapped according to its prescription: full structure, plus the dynamic storage of the
12 data element.
C / C++
13 Example target_mapper.1.c
S-1 #include <stdlib.h>
S-2 #include <stdio.h>
S-3 #define N 100
S-4
S-5 typedef struct myvec{
S-6 size_t len;
S-7 double *data;
S-8 } myvec_t;
S-9
S-10 #pragma omp declare mapper(myvec_t v) \
S-11 map(v, v.data[0:v.len])
S-12 void init(myvec_t *s);
S-13
S-14 int main(){
S-15
S-16 myvec_t s;
S-17
S-18 s.data = (double *)calloc(N,sizeof(double));
S-19 s.len = N;
S-20
S-21 #pragma omp target
S-22 init(&s);
S-23
S-24 printf("s.data[%d]=%lf\n",N-1,s.data[N-1]); //s.data[99]=99.000000
S-25 }
S-26
S-27 void init(myvec_t *s)

142 OpenMP Examples Version 5.0.0 - November 2019

 S-28 { for(int i=0; i<s->len; i++) s->data[i]=i; }
S-29
C / C++
Fortran
1 Example target_mapper.1.f90
S-1 module my_structures
S-2 type myvec_t
S-3 integer :: len
S-4 double precision, pointer :: data(:)
S-5 end type
S-6 end module
S-7
S-8 program main
S-9 use my_structures
S-10 integer, parameter :: N=100
S-11
S-12 !$omp declare mapper(myvec_t :: v) &
S-13 !$omp& map(v, v%data(1:v%len))
S-14
S-15 type(myvec_t) :: s
S-16
S-17 allocate(s%data(N))
S-18 s%data(1:N) = 0.0d0
S-19 s%len = N
S-20
S-21 !$omp target
S-22 call init(s)
S-23 !$omp end target
S-24
S-25 print*,"s%data(",N,")=",s%data(N) !! s%data( 100 )=100.000000000000
S-26 end program
S-27
S-28 subroutine init(s)
S-29 use my_structures
S-30 type(myvec_t) :: s
S-31
S-32 s%data = [ (i, i=1,s%len) ]
S-33 end subroutine
Fortran

CHAPTER 4. DEVICES 143

 1 The next example illustrates the use of the mapper-identifier and deep copy within a structure. The
2 structure, dzmat_t, represents a complex matrix, with separate real (r_m) and imaginary (i_m)
3 elements. Two map identifiers are created for partitioning the dzmat_t structure.
4 For the C/C++ code the first identifier is named top_id and maps the top half of two matrices of
5 type dzmat_t; while the second identifier, bottom_id, maps the lower half of two matrices. Each
6 identifier is applied to a different target construct, as map(mapper(top_id), tofrom:
7 a,b) and map(mapper(bottom_id), tofrom: a,b). Each target offload is allowed to
8 execute concurrently on two different devices (0 and 1) through the nowait clause. The OpenMP
9 5.0 parallel master construct creates a region of two threads for these target constructs,
10 with a single thread (master) generator.
11 The Fortran code uses the left_id and right_id map identifiers in the
12 map(mapper(left_id),tofrom: a,b) and map(mapper(right_id),tofrom:
13 a,b) map clauses. The array sections for these left and right contiguous portions of the matrices
14 were defined previously in the declare mapper directive.
15 Note, the is and ie scalars are firstprivate by default for a target region, but are declared firstprivate
16 anyway to remind the user of important firstprivate data-sharing properties required here.
C / C++
17 Example target_mapper.2.c
S-1 #include <stdio.h>
S-2 // N MUST BE EVEN
S-3 #define N 100
S-4
S-5 typedef struct dzmat
S-6 {
S-7 double r_m[N][N];
S-8 double i_m[N][N];
S-9 } dzmat_t;
S-10
S-11 #pragma omp declare mapper( top_id: dzmat_t v) \
S-12 map(v.r_m[0:N/2][0:N], \
S-13 v.i_m[0:N/2][0:N] )
S-14
S-15 #pragma omp declare mapper(bottom_id: dzmat_t v) \
S-16 map(v.r_m[N/2:N/2][0:N], \
S-17 v.i_m[N/2:N/2][0:N] )
S-18
S-19 void dzmat_init(dzmat_t *z, int is, int ie, int n); //initialization
S-20 void host_add( dzmat_t *a, dzmat_t *b, dzmat_t *c, int n); //matrix add: c=a+b
S-21
S-22
S-23 int main()
S-24 {

144 OpenMP Examples Version 5.0.0 - November 2019

 S-25 dzmat_t a,b,c;
S-26 int is,ie;
S-27
S-28 is=0; ie=N/2-1; //top N/2 rows on device 0
S-29 #pragma omp target map(mapper(top_id), tofrom: a,b) device(0) \
S-30 firstprivate(is,ie) nowait
S-31 {
S-32 dzmat_init(&a,is,ie,N);
S-33 dzmat_init(&b,is,ie,N);
S-34 }
S-35
S-36 is=N/2; ie=N-1; //bottom N/2 rows on device 1
S-37 #pragma omp target map(mapper(bottom_id), tofrom: a,b) device(1) \
S-38 firstprivate(is,ie) nowait
S-39 {
S-40 dzmat_init(&a,is,ie,N);
S-41 dzmat_init(&b,is,ie,N);
S-42 }
S-43
S-44 #pragma omp taskwait
S-45
S-46 host_add(&a,&b,&c,N);
S-47 }
C / C++
Fortran
1 Example target_mapper.2.f90
S-1 module complex_mats
S-2
S-3 integer, parameter :: N=100 !N must be even
S-4 type dzmat_t
S-5 double precision :: r_m(N,N), i_m(N,N)
S-6 end type
S-7
S-8 !$omp declare mapper( left_id: dzmat_t :: v) map( v%r_m(N, 1:N/2), &
S-9 !$omp& v%i_m(N, 1:N/2))
S-10
S-11 !$omp declare mapper(right_id: dzmat_t :: v) map( v%r_m(N,N/2+1:N), &
S-12 !$omp& v%i_m(N,N/2+1:N))
S-13
S-14 end module
S-15
S-16
S-17 program main
S-18 use complex_mats
S-19 type(dzmat_t) :: a,b,c

CHAPTER 4. DEVICES 145

S-20 external dzmat_init, host_add !initialization and matrix add: a=b+c
S-21
S-22 integer :: is,ie
S-23
S-24
S-25 is=1; ie=N/2 !left N/2 columns on device 0
S-26 !$omp target map(mapper( left_id), tofrom: a,b) device(0) &
S-27 !$omp& firstprivate(is,ie) nowait
S-28 call dzmat_init(a,is,ie)
S-29 call dzmat_init(b,is,ie)
S-30 !$omp end target
S-31
S-32 is=N/2+1; ie=N !right N/2 columns on device 1
S-33 !$omp target map(mapper(right_id), tofrom: a,b) device(1) &
S-34 !$omp& firstprivate(is,ie) nowait
S-35 call dzmat_init(a,is,ie)
S-36 call dzmat_init(b,is,ie)
S-37 !$omp end target
S-38
S-39 !omp taskwait
S-40
S-41 call host_add(a,b,c)
S-42
S-43 end program main
Fortran

146 OpenMP Examples Version 5.0.0 - November 2019

 1 In the third example myvec structures are nested within a mypoints structure. The myvec_t type is
2 mapped as in the first example. Following the mypoints structure declaration, the mypoints_t type is
3 mapped by a declare mapper directive. For this structure the hostonly_data element will not
4 be mapped; also the array section of x (v.x[:1]) and x will be mapped; and scratch will be allocated
5 and used as scratch storage on the device. The default map-type mapping, tofrom, applies to the x
6 array section, but not to scratch which is explicitly mapped with the alloc map-type. Note: the
7 variable v is not included in the map list (otherwise the hostonly_data would be mapped)– just the
8 elements to be mapped are listed.
9 The two mappers are combined when a mypoints_t structure type is mapped, because the mapper
10 myvec_t structure type is used within a mypoints_t type structure.
C / C++
11 Example target_mapper.3.c
S-1
S-2 #include <stdlib.h>
S-3 #include <stdio.h>
S-4
S-5 #define N 100
S-6
S-7 typedef struct myvec {
S-8 size_t len;
S-9 double *data;
S-10 } myvec_t;
S-11
S-12 #pragma omp declare mapper(myvec_t v) \
S-13 map(v, v.data[0:v.len])
S-14
S-15 typedef struct mypoints {
S-16 struct myvec scratch;
S-17 struct myvec *x;
S-18 double hostonly_data[500000];
S-19 } mypoints_t;
S-20
S-21 #pragma omp declare mapper(mypoints_t v) \
S-22 map(v.x, v.x[0] ) map(alloc:v.scratch)
S-23
S-24 void init_mypts_array(mypoints_t *P, int n);
S-25 void eval_mypts_array(mypoints_t *P, int n);
S-26
S-27 int main(){
S-28
S-29 mypoints_t P;
S-30
S-31 init_mypts_array(&P, N);
S-32

CHAPTER 4. DEVICES 147

 S-33 #pragma omp target map(P)
S-34 eval_mypts_array(&P, N);
S-35
S-36 }
C / C++
Fortran
1 Example target_mapper.3.f90
S-1
S-2 module my_structures
S-3 type myvec_t
S-4 integer :: len
S-5 double precision, pointer :: data(:)
S-6 end type
S-7 !$omp declare mapper(myvec_t :: v) &
S-8 !$omp& map(v)
S-9
S-10 type mypoints_t
S-11 type(myvec_t) :: scratch
S-12 type(myvec_t), pointer :: x(:)
S-13 double precision :: hostonly_data(500000)
S-14 end type
S-15 !$omp declare mapper(mypoints_t :: v) &
S-16 !$omp& map(v%x, v%x(1)) map(alloc:v%scratch)
S-17
S-18 end module
S-19
S-20
S-21 program main
S-22 use my_structures
S-23 external init_mypts_array, eval_mypts_array
S-24
S-25 type(mypoints_t) :: P
S-26
S-27 call init_mypts_array(P)
S-28
S-29 !$omp target map(P)
S-30 call eval_mypts_array(P)
S-31
S-32 end program
S-33
Fortran

148 OpenMP Examples Version 5.0.0 - November 2019

1 4.7 target data Construct

2 4.7.1 Simple target data Construct

3 This example shows how the target data construct maps variables to a device data
4 environment. The target data construct creates a new device data environment and maps the
5 variables v1, v2, and p to the new device data environment. The target construct enclosed in the
6 target data region creates a new device data environment, which inherits the variables v1, v2,
7 and p from the enclosing device data environment. The variable N is mapped into the new device
8 data environment from the encountering task’s data environment.
C / C++
9 Example target_data.1.c
S-1 extern void init(float*, float*, int);
S-2 extern void output(float*, int);
S-3 void vec_mult(float *p, float *v1, float *v2, int N)
S-4 {
S-5 int i;
S-6 init(v1, v2, N);
S-7 #pragma omp target data map(to: v1[0:N], v2[:N]) map(from: p[0:N])
S-8 {
S-9 #pragma omp target
S-10 #pragma omp parallel for
S-11 for (i=0; i<N; i++)
S-12 p[i] = v1[i] * v2[i];
S-13 }
S-14 output(p, N);
S-15 }
C / C++

CHAPTER 4. DEVICES 149

 1 The Fortran code passes a reference and specifies the extent of the arrays in the declaration. No
2 length information is necessary in the map clause, as is required with C/C++ pointers.
Fortran
3 Example target_data.1.f90
S-1 subroutine vec_mult(p, v1, v2, N)
S-2 real :: p(N), v1(N), v2(N)
S-3 integer :: i
S-4 call init(v1, v2, N)
S-5 !$omp target data map(to: v1, v2) map(from: p)
S-6 !$omp target
S-7 !$omp parallel do
S-8 do i=1,N
S-9 p(i) = v1(i) * v2(i)
S-10 end do
S-11 !$omp end target
S-12 !$omp end target data
S-13 call output(p, N)
S-14 end subroutine
Fortran

4 4.7.2 target data Region Enclosing Multiple target

5 Regions
6 The following examples show how the target data construct maps variables to a device data
7 environment of a target region. The target data construct creates a device data environment
8 and encloses target regions, which have their own device data environments. The device data
9 environment of the target data region is inherited by the device data environment of an
10 enclosed target region. The target data construct is used to create variables that will persist
11 throughout the target data region.
12 In the following example the variables v1 and v2 are mapped at each target construct. Instead of
13 mapping the variable p twice, once at each target construct, p is mapped once by the target
14 data construct.

150 OpenMP Examples Version 5.0.0 - November 2019

 C / C++
1 Example target_data.2.c
S-1 extern void init(float*, float*, int);
S-2 extern void init_again(float*, float*, int);
S-3 extern void output(float*, int);
S-4 void vec_mult(float *p, float *v1, float *v2, int N)
S-5 {
S-6 int i;
S-7 init(v1, v2, N);
S-8 #pragma omp target data map(from: p[0:N])
S-9 {
S-10 #pragma omp target map(to: v1[:N], v2[:N])
S-11 #pragma omp parallel for
S-12 for (i=0; i<N; i++)
S-13 p[i] = v1[i] * v2[i];
S-14 init_again(v1, v2, N);
S-15 #pragma omp target map(to: v1[:N], v2[:N])
S-16 #pragma omp parallel for
S-17 for (i=0; i<N; i++)
S-18 p[i] = p[i] + (v1[i] * v2[i]);
S-19 }
S-20 output(p, N);
S-21 }
C / C++
2 The Fortran code uses reference and specifies the extent of the p, v1 and v2 arrays. No length
3 information is necessary in the map clause, as is required with C/C++ pointers. The arrays v1 and
4 v2 are mapped at each target construct. Instead of mapping the array p twice, once at each target
5 construct, p is mapped once by the target data construct.
Fortran
6 Example target_data.2.f90
S-1 subroutine vec_mult(p, v1, v2, N)
S-2 real :: p(N), v1(N), v2(N)
S-3 integer :: i
S-4 call init(v1, v2, N)
S-5 !$omp target data map(from: p)
S-6 !$omp target map(to: v1, v2 )
S-7 !$omp parallel do
S-8 do i=1,N
S-9 p(i) = v1(i) * v2(i)
S-10 end do
S-11 !$omp end target
S-12 call init_again(v1, v2, N)

CHAPTER 4. DEVICES 151

 S-13 !$omp target map(to: v1, v2 )
S-14 !$omp parallel do
S-15 do i=1,N
S-16 p(i) = p(i) + v1(i) * v2(i)
S-17 end do
S-18 !$omp end target
S-19 !$omp end target data
S-20 call output(p, N)
S-21 end subroutine
Fortran
1 In the following example, the array Q is mapped once at the enclosing target data region
2 instead of at each target construct. In OpenMP 4.0, a scalar variable is implicitly mapped with
3 the tofrom map-type. But since OpenMP 4.5, a scalar variable, such as the tmp variable, has to be
4 explicitly mapped with the tofrom map-type at the first target construct in order to return its
5 reduced value from the parallel loop construct to the host. The variable defaults to firstprivate at the
6 second target construct.
C / C++
7 Example target_data.3.c
S-1
S-2 #include <math.h>
S-3 #define COLS 100
S-4
S-5 void gramSchmidt(float Q[][COLS], const int rows)
S-6 {
S-7 int cols = COLS;
S-8 #pragma omp target data map(Q[0:rows][0:cols])
S-9 for(int k=0; k < cols; k++)
S-10 {
S-11 double tmp = 0.0;
S-12
S-13 #pragma omp target map(tofrom: tmp)
S-14 #pragma omp parallel for reduction(+:tmp)
S-15 for(int i=0; i < rows; i++)
S-16 tmp += (Q[i][k] * Q[i][k]);
S-17
S-18 tmp = 1/sqrt(tmp);
S-19
S-20 #pragma omp target
S-21 #pragma omp parallel for
S-22 for(int i=0; i < rows; i++)
S-23 Q[i][k] *= tmp;
S-24 }
S-25 }
S-26

152 OpenMP Examples Version 5.0.0 - November 2019

 S-27 /* Note: The variable tmp is now mapped with tofrom, for correct
S-28 execution with 4.5 (and pre-4.5) compliant compilers. See Devices Intro.
S-29 */
C / C++
Fortran
1 Example target_data.3.f90
S-1 subroutine gramSchmidt(Q,rows,cols)
S-2 integer :: rows,cols, i,k
S-3 double precision :: Q(rows,cols), tmp
S-4 !$omp target data map(Q)
S-5 do k=1,cols
S-6 tmp = 0.0d0
S-7 !$omp target map(tofrom: tmp)
S-8 !$omp parallel do reduction(+:tmp)
S-9 do i=1,rows
S-10 tmp = tmp + (Q(i,k) * Q(i,k))
S-11 end do
S-12 !$omp end target
S-13
S-14 tmp = 1.0d0/sqrt(tmp)
S-15
S-16 !$omp target
S-17 !$omp parallel do
S-18 do i=1,rows
S-19 Q(i,k) = Q(i,k)*tmp
S-20 enddo
S-21 !$omp end target
S-22 end do
S-23 !$omp end target data
S-24 end subroutine
S-25
S-26 ! Note: The variable tmp is now mapped with tofrom, for correct
S-27 ! execution with 4.5 (and pre-4.5) compliant compilers. See Devices Intro.
Fortran

CHAPTER 4. DEVICES 153

 1 4.7.3 target data Construct with Orphaned Call
2 The following two examples show how the target data construct maps variables to a device
3 data environment. The target data construct’s device data environment encloses the target
4 construct’s device data environment in the function vec_mult().
5 When the type of the variable appearing in an array section is pointer, the pointer variable and the
6 storage location of the corresponding array section are mapped to the device data environment. The
7 pointer variable is treated as if it had appeared in a map clause with a map-type of alloc. The
8 array section’s storage location is mapped according to the map-type in the map clause (the default
9 map-type is tofrom).
10 The target construct’s device data environment inherits the storage locations of the array
11 sections v1[0:N], v2[:n], and p0[0:N] from the enclosing target data construct’s device data
12 environment. Neither initialization nor assignment is performed for the array sections in the new
13 device data environment.
14 The pointer variables p1, v3, and v4 are mapped into the target construct’s device data environment
15 with an implicit map-type of alloc and they are assigned the address of the storage location
16 associated with their corresponding array sections. Note that the following pairs of array section
17 storage locations are equivalent (p0[:N], p1[:N]), (v1[:N],v3[:N]), and (v2[:N],v4[:N]).
C / C++
18 Example target_data.4.c
S-1
S-2
S-3 void vec_mult(float*, float*, float*, int);
S-4
S-5 extern void init(float*, float*, int);
S-6 extern void output(float*, int);
S-7
S-8
S-9 void foo(float *p0, float *v1, float *v2, int N)
S-10 {
S-11 init(v1, v2, N);
S-12
S-13 #pragma omp target data map(to: v1[0:N], v2[:N]) map(from: p0[0:N])
S-14 {
S-15 vec_mult(p0, v1, v2, N);
S-16 }
S-17
S-18 output(p0, N);
S-19 }
S-20
S-21
S-22

154 OpenMP Examples Version 5.0.0 - November 2019

 S-23 void vec_mult(float *p1, float *v3, float *v4, int N)
S-24 {
S-25 int i;
S-26 #pragma omp target map(to: v3[0:N], v4[:N]) map(from: p1[0:N])
S-27 #pragma omp parallel for
S-28 for (i=0; i<N; i++)
S-29 {
S-30 p1[i] = v3[i] * v4[i];
S-31 }
S-32 }
S-33
C / C++
1 The Fortran code maps the pointers and storage in an identical manner (same extent, but uses
2 indices from 1 to N).
3 The target construct’s device data environment inherits the storage locations of the arrays v1, v2
4 and p0 from the enclosing target data constructs’s device data environment. However, in
5 Fortran the associated data of the pointer is known, and the shape is not required.
6 The pointer variables p1, v3, and v4 are mapped into the target construct’s device data
7 environment with an implicit map-type of alloc and they are assigned the address of the storage
8 location associated with their corresponding array sections. Note that the following pair of array
9 storage locations are equivalent (p0,p1), (v1,v3), and (v2,v4).
Fortran
10 Example target_data.4.f90
S-1
S-2 module mults
S-3 contains
S-4 subroutine foo(p0,v1,v2,N)
S-5 real,pointer,dimension(:) :: p0, v1, v2
S-6 integer :: N,i
S-7
S-8 call init(v1, v2, N)
S-9
S-10 !$omp target data map(to: v1, v2) map(from: p0)
S-11 call vec_mult(p0,v1,v2,N)
S-12 !$omp end target data
S-13
S-14 call output(p0, N)
S-15
S-16 end subroutine
S-17
S-18 subroutine vec_mult(p1,v3,v4,N)
S-19 real,pointer,dimension(:) :: p1, v3, v4

CHAPTER 4. DEVICES 155

 S-20 integer :: N,i
S-21
S-22 !$omp target map(to: v3, v4) map(from: p1)
S-23 !$omp parallel do
S-24 do i=1,N
S-25 p1(i) = v3(i) * v4(i)
S-26 end do
S-27 !$omp end target
S-28
S-29 end subroutine
S-30 end module
Fortran
1 In the following example, the variables p1, v3, and v4 are references to the pointer variables p0, v1
2 and v2 respectively. The target construct’s device data environment inherits the pointer variables
3 p0, v1, and v2 from the enclosing target data construct’s device data environment. Thus, p1,
4 v3, and v4 are already present in the device data environment.
C++
5 Example target_data.5.cpp
S-1 void vec_mult(float* &, float* &, float* &, int &);
S-2 extern void init(float*, float*, int);
S-3 extern void output(float*, int);
S-4 void foo(float *p0, float *v1, float *v2, int N)
S-5 {
S-6 init(v1, v2, N);
S-7 #pragma omp target data map(to: v1[0:N], v2[:N]) map(from: p0[0:N])
S-8 {
S-9 vec_mult(p0, v1, v2, N);
S-10 }
S-11 output(p0, N);
S-12 }
S-13 void vec_mult(float* &p1, float* &v3, float* &v4, int &N)
S-14 {
S-15 int i;
S-16 #pragma omp target map(to: v3[0:N], v4[:N]) map(from: p1[0:N])
S-17 #pragma omp parallel for
S-18 for (i=0; i<N; i++)
S-19 p1[i] = v3[i] * v4[i];
S-20 }
C++

6 In the following example, the usual Fortran approach is used for dynamic memory. The p0, v1, and
7 v2 arrays are allocated in the main program and passed as references from one routine to another. In
8 vec_mult, p1, v3 and v4 are references to the p0, v1, and v2 arrays, respectively. The target

156 OpenMP Examples Version 5.0.0 - November 2019

1 construct’s device data environment inherits the arrays p0, v1, and v2 from the enclosing target data
2 construct’s device data environment. Thus, p1, v3, and v4 are already present in the device data
3 environment.
Fortran
4 Example target_data.5.f90
S-1 module my_mult
S-2 contains
S-3 subroutine foo(p0,v1,v2,N)
S-4 real,dimension(:) :: p0, v1, v2
S-5 integer :: N,i
S-6 call init(v1, v2, N)
S-7 !$omp target data map(to: v1, v2) map(from: p0)
S-8 call vec_mult(p0,v1,v2,N)
S-9 !$omp end target data
S-10 call output(p0, N)
S-11 end subroutine
S-12 subroutine vec_mult(p1,v3,v4,N)
S-13 real,dimension(:) :: p1, v3, v4
S-14 integer :: N,i
S-15 !$omp target map(to: v3, v4) map(from: p1)
S-16 !$omp parallel do
S-17 do i=1,N
S-18 p1(i) = v3(i) * v4(i)
S-19 end do
S-20 !$omp end target
S-21 end subroutine
S-22 end module
S-23 program main
S-24 use my_mult
S-25 integer, parameter :: N=1024
S-26 real,allocatable, dimension(:) :: p, v1, v2
S-27 allocate( p(N), v1(N), v2(N) )
S-28 call foo(p,v1,v2,N)
S-29 end program
Fortran

CHAPTER 4. DEVICES 157

 1 4.7.4 target data Construct with if Clause
2 The following two examples show how the target data construct maps variables to a device
3 data environment.
4 In the following example, the if clause on the target data construct indicates that if the variable
5 N is smaller than a given threshold, then the target data construct will not create a device data
6 environment.
7 The target constructs enclosed in the target data region must also use an if clause on the
8 same condition, otherwise the pointer variable p is implicitly mapped with a map-type of tofrom,
9 but the storage location for the array section p[0:N] will not be mapped in the device data
10 environments of the target constructs.
C / C++
11 Example target_data.6.c
S-1 #define THRESHOLD 1000000
S-2 extern void init(float*, float*, int);
S-3 extern void init_again(float*, float*, int);
S-4 extern void output(float*, int);
S-5 void vec_mult(float *p, float *v1, float *v2, int N)
S-6 {
S-7 int i;
S-8 init(v1, v2, N);
S-9 #pragma omp target data if(N>THRESHOLD) map(from: p[0:N])
S-10 {
S-11 #pragma omp target if (N>THRESHOLD) map(to: v1[:N], v2[:N])
S-12 #pragma omp parallel for
S-13 for (i=0; i<N; i++)
S-14 p[i] = v1[i] * v2[i];
S-15 init_again(v1, v2, N);
S-16 #pragma omp target if (N>THRESHOLD) map(to: v1[:N], v2[:N])
S-17 #pragma omp parallel for
S-18 for (i=0; i<N; i++)
S-19 p[i] = p[i] + (v1[i] * v2[i]);
S-20 }
S-21 output(p, N);
S-22 }
C / C++

158 OpenMP Examples Version 5.0.0 - November 2019

1 The if clauses work the same way for the following Fortran code. The target constructs
2 enclosed in the target data region should also use an if clause with the same condition, so
3 that the target data region and the target region are either both created for the device, or are
4 both ignored.
Fortran
5 Example target_data.6.f90
S-1 module params
S-2 integer,parameter :: THRESHOLD=1000000
S-3 end module
S-4 subroutine vec_mult(p, v1, v2, N)
S-5 use params
S-6 real :: p(N), v1(N), v2(N)
S-7 integer :: i
S-8 call init(v1, v2, N)
S-9 !$omp target data if(N>THRESHOLD) map(from: p)
S-10 !$omp target if(N>THRESHOLD) map(to: v1, v2)
S-11 !$omp parallel do
S-12 do i=1,N
S-13 p(i) = v1(i) * v2(i)
S-14 end do
S-15 !$omp end target
S-16 call init_again(v1, v2, N)
S-17 !$omp target if(N>THRESHOLD) map(to: v1, v2)
S-18 !$omp parallel do
S-19 do i=1,N
S-20 p(i) = p(i) + v1(i) * v2(i)
S-21 end do
S-22 !$omp end target
S-23 !$omp end target data
S-24 call output(p, N)
S-25 end subroutine
Fortran

CHAPTER 4. DEVICES 159

1 In the following example, when the if clause conditional expression on the target construct
2 evaluates to false, the target region will execute on the host device. However, the target data
3 construct created an enclosing device data environment that mapped p[0:N] to a device data
4 environment on the default device. At the end of the target data region the array section
5 p[0:N] will be assigned from the device data environment to the corresponding variable in the data
6 environment of the task that encountered the target data construct, resulting in undefined
7 values in p[0:N].
C / C++
8 Example target_data.7.c
S-1 #define THRESHOLD 1000000
S-2 extern void init(float*, float*, int);
S-3 extern void output(float*, int);
S-4 void vec_mult(float *p, float *v1, float *v2, int N)
S-5 {
S-6 int i;
S-7 init(v1, v2, N);
S-8 #pragma omp target data map(from: p[0:N])
S-9 {
S-10 #pragma omp target if (N>THRESHOLD) map(to: v1[:N], v2[:N])
S-11 #pragma omp parallel for
S-12 for (i=0; i<N; i++)
S-13 p[i] = v1[i] * v2[i];
S-14 } /* UNDEFINED behavior if N<=THRESHOLD */
S-15 output(p, N);
S-16 }
C / C++

160 OpenMP Examples Version 5.0.0 - November 2019

1 The if clauses work the same way for the following Fortran code. When the if clause conditional
2 expression on the target construct evaluates to false, the target region will execute on the host
3 device. However, the target data construct created an enclosing device data environment that
4 mapped the p array (and v1 and v2) to a device data environment on the default target device. At the
5 end of the target data region the p array will be assigned from the device data environment to
6 the corresponding variable in the data environment of the task that encountered the target data
7 construct, resulting in undefined values in p.
Fortran
8 Example target_data.7.f90
S-1 module params
S-2 integer, parameter :: THRESHOLD=1000000
S-3 end module
S-4 subroutine vec_mult(p, v1, v2, N)
S-5 use params
S-6 real :: p(N), v1(N), v2(N)
S-7 integer :: i
S-8 call init(v1, v2, N)
S-9 !$omp target data map(from: p)
S-10 !$omp target if(N>THRESHOLD) map(to: v1, v2)
S-11 !$omp parallel do
S-12 do i=1,N
S-13 p(i) = v1(i) * v2(i)
S-14 end do
S-15 !$omp end target
S-16 !$omp end target data
S-17 call output(p, N) !*** UNDEFINED behavior if N<=THRESHOLD
S-18 end subroutine
Fortran

CHAPTER 4. DEVICES 161

 1 4.8 target enter data and target exit data
2 Constructs
3 The structured data construct (target data) provides persistent data on a device for subsequent
4 target constructs as shown in the target data examples above. This is accomplished by
5 creating a single target data region containing target constructs.
6 The unstructured data constructs allow the creation and deletion of data on the device at any
7 appropriate point within the host code, as shown below with the target enter data and
8 target exit data constructs.
9 The following C++ code creates/deletes a vector in a constructor/destructor of a class. The
10 constructor creates a vector with target enter data and uses an alloc modifier in the map
11 clause to avoid copying values to the device. The destructor deletes the data
12 (target exit data) and uses the delete modifier in the map clause to avoid copying data
13 back to the host. Note, the stand-alone target enter data occurs after the host vector is
14 created, and the target exit data construct occurs before the host data is deleted.
C++
15 Example target_unstructured_data.1.cpp
S-1 class Matrix
S-2 {
S-3
S-4 Matrix(int n) {
S-5 len = n;
S-6 v = new double[len];
S-7 #pragma omp target enter data map(alloc:v[0:len])
S-8 }
S-9
S-10 ~Matrix() {
S-11 // NOTE: delete map type should be used, since the corresponding
S-12 // host data will cease to exist after the deconstructor is called.
S-13
S-14 #pragma omp target exit data map(delete:v[0:len])
S-15 delete[] v;
S-16 }
S-17
S-18 private:
S-19 double* v;
S-20 int len;
S-21
S-22 };
C++

162 OpenMP Examples Version 5.0.0 - November 2019

1 The following C code allocates and frees the data member of a Matrix structure. The
2 init_matrix function allocates the memory used in the structure and uses the
3 target enter data directive to map it to the target device. The free_matrix function
4 removes the mapped array from the target device and then frees the memory on the host. Note, the
5 stand-alone target enter data occurs after the host memory is allocated, and the
6 target exit data construct occurs before the host data is freed.
C / C++
7 Example target_unstructured_data.1.c
S-1 #include <stdlib.h>
S-2 typedef struct {
S-3 double *A;
S-4 int N;
S-5 } Matrix;
S-6
S-7 void init_matrix(Matrix *mat, int n)
S-8 {
S-9 mat->A = (double *)malloc(n*sizeof(double));
S-10 mat->N = n;
S-11 #pragma omp target enter data map(alloc:mat->A[:n])
S-12 }
S-13
S-14 void free_matrix(Matrix *mat)
S-15 {
S-16 #pragma omp target exit data map(delete:mat->A[:mat->N])
S-17 mat->N = 0;
S-18 free(mat->A);
S-19 mat->A = NULL;
S-20 }
C / C++

CHAPTER 4. DEVICES 163

1 The following Fortran code allocates and deallocates a module array. The initialize
2 subroutine allocates the module array and uses the target enter data directive to map it to the
3 target device. The finalize subroutine removes the mapped array from the target device and
4 then deallocates the array on the host. Note, the stand-alone target enter data occurs after
5 the host memory is allocated, and the target exit data construct occurs before the host data is
6 deallocated.
Fortran
7 Example target_unstructured_data.1.f90
S-1 module example
S-2 real(8), allocatable :: A(:)
S-3
S-4 contains
S-5 subroutine initialize(N)
S-6 integer :: N
S-7
S-8 allocate(A(N))
S-9 !$omp target enter data map(alloc:A)
S-10
S-11 end subroutine initialize
S-12
S-13 subroutine finalize()
S-14
S-15 !$omp target exit data map(delete:A)
S-16 deallocate(A)
S-17
S-18 end subroutine finalize
S-19 end module example
Fortran

164 OpenMP Examples Version 5.0.0 - November 2019

 1 4.9 target update Construct

2 4.9.1 Simple target data and target update Constructs

3 The following example shows how the target update construct updates variables in a device
4 data environment.
5 The target data construct maps array sections v1[:N] and v2[:N] (arrays v1 and v2 in the
6 Fortran code) into a device data environment.
7 The task executing on the host device encounters the first target region and waits for the
8 completion of the region.
9 After the execution of the first target region, the task executing on the host device then assigns
10 new values to v1[:N] and v2[:N] (v1 and v2 arrays in Fortran code) in the task’s data environment
11 by calling the function init_again().
12 The target update construct assigns the new values of v1 and v2 from the task’s data
13 environment to the corresponding mapped array sections in the device data environment of the
14 target data construct.
15 The task executing on the host device then encounters the second target region and waits for the
16 completion of the region.
17 The second target region uses the updated values of v1[:N] and v2[:N].
C / C++
18 Example target_update.1.c
S-1 extern void init(float *, float *, int);
S-2 extern void init_again(float *, float *, int);
S-3 extern void output(float *, int);
S-4 void vec_mult(float *p, float *v1, float *v2, int N)
S-5 {
S-6 int i;
S-7 init(v1, v2, N);
S-8 #pragma omp target data map(to: v1[:N], v2[:N]) map(from: p[0:N])
S-9 {
S-10 #pragma omp target
S-11 #pragma omp parallel for
S-12 for (i=0; i<N; i++)
S-13 p[i] = v1[i] * v2[i];
S-14 init_again(v1, v2, N);
S-15 #pragma omp target update to(v1[:N], v2[:N])
S-16 #pragma omp target
S-17 #pragma omp parallel for
S-18 for (i=0; i<N; i++)

CHAPTER 4. DEVICES 165

 S-19 p[i] = p[i] + (v1[i] * v2[i]);
S-20 }
S-21 output(p, N);
S-22 }
C / C++
Fortran
1 Example target_update.1.f90
S-1 subroutine vec_mult(p, v1, v2, N)
S-2 real :: p(N), v1(N), v2(N)
S-3 integer :: i
S-4 call init(v1, v2, N)
S-5 !$omp target data map(to: v1, v2) map(from: p)
S-6 !$omp target
S-7 !$omp parallel do
S-8 do i=1,N
S-9 p(i) = v1(i) * v2(i)
S-10 end do
S-11 !$omp end target
S-12 call init_again(v1, v2, N)
S-13 !$omp target update to(v1, v2)
S-14 !$omp target
S-15 !$omp parallel do
S-16 do i=1,N
S-17 p(i) = p(i) + v1(i) * v2(i)
S-18 end do
S-19 !$omp end target
S-20 !$omp end target data
S-21 call output(p, N)
S-22 end subroutine
Fortran

166 OpenMP Examples Version 5.0.0 - November 2019

 1 4.9.2 target update Construct with if Clause
2 The following example shows how the target update construct updates variables in a device
3 data environment.
4 The target data construct maps array sections v1[:N] and v2[:N] (arrays v1 and v2 in the
5 Fortran code) into a device data environment. In between the two target regions, the task
6 executing on the host device conditionally assigns new values to v1 and v2 in the task’s data
7 environment. The function maybe_init_again() returns true if new data is written.
8 When the conditional expression (the return value of maybe_init_again()) in the if clause
9 is true, the target update construct assigns the new values of v1 and v2 from the task’s data
10 environment to the corresponding mapped array sections in the target data construct’s device
11 data environment.
C / C++
12 Example target_update.2.c
S-1 extern void init(float *, float *, int);
S-2 extern int maybe_init_again(float *, int);
S-3 extern void output(float *, int);
S-4 void vec_mult(float *p, float *v1, float *v2, int N)
S-5 {
S-6 int i;
S-7 init(v1, v2, N);
S-8 #pragma omp target data map(to: v1[:N], v2[:N]) map(from: p[0:N])
S-9 {
S-10 int changed;
S-11 #pragma omp target
S-12 #pragma omp parallel for
S-13 for (i=0; i<N; i++)
S-14 p[i] = v1[i] * v2[i];
S-15 changed = maybe_init_again(v1, N);
S-16 #pragma omp target update if (changed) to(v1[:N])
S-17 changed = maybe_init_again(v2, N);
S-18 #pragma omp target update if (changed) to(v2[:N])
S-19 #pragma omp target
S-20 #pragma omp parallel for
S-21 for (i=0; i<N; i++)
S-22 p[i] = p[i] + (v1[i] * v2[i]);
S-23 }
S-24 output(p, N);
S-25 }
C / C++

CHAPTER 4. DEVICES 167

 Fortran
1 Example target_update.2.f90
S-1 subroutine vec_mult(p, v1, v2, N)
S-2 interface
S-3 logical function maybe_init_again (v1, N)
S-4 real :: v1(N)
S-5 integer :: N
S-6 end function
S-7 end interface
S-8 real :: p(N), v1(N), v2(N)
S-9 integer :: i
S-10 logical :: changed
S-11 call init(v1, v2, N)
S-12 !$omp target data map(to: v1, v2) map(from: p)
S-13 !$omp target
S-14 !$omp parallel do
S-15 do i=1, N
S-16 p(i) = v1(i) * v2(i)
S-17 end do
S-18 !$omp end target
S-19 changed = maybe_init_again(v1, N)
S-20 !$omp target update if(changed) to(v1(:N))
S-21 changed = maybe_init_again(v2, N)
S-22 !$omp target update if(changed) to(v2(:N))
S-23 !$omp target
S-24 !$omp parallel do
S-25 do i=1, N
S-26 p(i) = p(i) + v1(i) * v2(i)
S-27 end do
S-28 !$omp end target
S-29 !$omp end target data
S-30 call output(p, N)
S-31 end subroutine
Fortran

168 OpenMP Examples Version 5.0.0 - November 2019

 1 4.10 declare target Construct
2 4.10.1 declare target and end declare target
3 for a Function
4 The following example shows how the declare target directive is used to indicate that the
5 corresponding call inside a target region is to a fib function that can execute on the default
6 target device.
7 A version of the function is also available on the host device. When the if clause conditional
8 expression on the target construct evaluates to false, the target region (thus fib) will execute
9 on the host device.
10 For C/C++ codes the declaration of the function fib appears between the declare target and
11 end declare target directives.
C / C++
12 Example declare_target.1.c
S-1 #pragma omp declare target
S-2 extern void fib(int N);
S-3 #pragma omp end declare target
S-4 #define THRESHOLD 1000000
S-5 void fib_wrapper(int n)
S-6 {
S-7 #pragma omp target if(n > THRESHOLD)
S-8 {
S-9 fib(n);
S-10 }
S-11 }
C / C++
13 The Fortran fib subroutine contains a declare target declaration to indicate to the compiler
14 to create an device executable version of the procedure. The subroutine name has not been included
15 on the declare target directive and is, therefore, implicitly assumed.
16 The program uses the module_fib module, which presents an explicit interface to the compiler
17 with the declare target declarations for processing the fib call.

CHAPTER 4. DEVICES 169

 Fortran
1 Example declare_target.1.f90
S-1 module module_fib
S-2 contains
S-3 subroutine fib(N)
S-4 integer :: N
S-5 !$omp declare target
S-6 !...
S-7 end subroutine
S-8 end module
S-9 module params
S-10 integer :: THRESHOLD=1000000
S-11 end module
S-12 program my_fib
S-13 use params
S-14 use module_fib
S-15 !$omp target if( N > THRESHOLD )
S-16 call fib(N)
S-17 !$omp end target
S-18 end program
Fortran
2 The next Fortran example shows the use of an external subroutine. Without an explicit interface
3 (through module use or an interface block) the declare target declarations within a external
4 subroutine are unknown to the main program unit; therefore, a declare target must be
5 provided within the program scope for the compiler to determine that a target binary should be
6 available.
Fortran
7 Example declare_target.2.f90
S-1 program my_fib
S-2 integer :: N = 8
S-3 !$omp declare target(fib)
S-4 !$omp target
S-5 call fib(N)
S-6 !$omp end target
S-7 end program
S-8 subroutine fib(N)
S-9 integer :: N
S-10 !$omp declare target
S-11 print*,"hello from fib"
S-12 !...
S-13 end subroutine
Fortran

170 OpenMP Examples Version 5.0.0 - November 2019

1 4.10.2 declare target Construct for Class Type
C++
2 The following example shows how the declare target and end declare target directives
3 are used to enclose the declaration of a variable varY with a class type typeY. The member
4 function typeY::foo() cannot be accessed on a target device because its declaration did not
5 appear between declare target and end declare target directives.
6 Example declare_target.2.cpp
S-1 struct typeX
S-2 {
S-3 int a;
S-4 };
S-5 class typeY
S-6 {
S-7 int a;
S-8 public:
S-9 int foo() { return a^0x01;}
S-10 };
S-11 #pragma omp declare target
S-12 struct typeX varX; // ok
S-13 class typeY varY; // ok if varY.foo() not called on target device
S-14 #pragma omp end declare target
S-15 void foo()
S-16 {
S-17 #pragma omp target
S-18 {
S-19 varX.a = 100; // ok
S-20 varY.foo(); // error foo() is not available on a target device
S-21 }
S-22 }
C++

7 4.10.3 declare target and end declare target

8 for Variables
9 The following examples show how the declare target and end declare target directives
10 are used to indicate that global variables are mapped to the implicit device data environment of
11 each target device.
12 In the following example, the declarations of the variables p, v1, and v2 appear between declare
13 target and end declare target directives indicating that the variables are mapped to the

CHAPTER 4. DEVICES 171

1 implicit device data environment of each target device. The target update directive is then
2 used to manage the consistency of the variables p, v1, and v2 between the data environment of the
3 encountering host device task and the implicit device data environment of the default target device.
C / C++
4 Example declare_target.3.c
S-1 #define N 1000
S-2 #pragma omp declare target
S-3 float p[N], v1[N], v2[N];
S-4 #pragma omp end declare target
S-5 extern void init(float *, float *, int);
S-6 extern void output(float *, int);
S-7 void vec_mult()
S-8 {
S-9 int i;
S-10 init(v1, v2, N);
S-11 #pragma omp target update to(v1, v2)
S-12 #pragma omp target
S-13 #pragma omp parallel for
S-14 for (i=0; i<N; i++)
S-15 p[i] = v1[i] * v2[i];
S-16 #pragma omp target update from(p)
S-17 output(p, N);
S-18 }
C / C++
5 The Fortran version of the above C code uses a different syntax. Fortran modules use a list syntax
6 on the declare target directive to declare mapped variables.
Fortran
7 Example declare_target.3.f90
S-1 module my_arrays
S-2 !$omp declare target (N, p, v1, v2)
S-3 integer, parameter :: N=1000
S-4 real :: p(N), v1(N), v2(N)
S-5 end module
S-6 subroutine vec_mult()
S-7 use my_arrays
S-8 integer :: i
S-9 call init(v1, v2, N);
S-10 !$omp target update to(v1, v2)
S-11 !$omp target
S-12 !$omp parallel do
S-13 do i = 1,N
S-14 p(i) = v1(i) * v2(i)

172 OpenMP Examples Version 5.0.0 - November 2019

 S-15 end do
S-16 !$omp end target
S-17 !$omp target update from (p)
S-18 call output(p, N)
S-19 end subroutine
Fortran
1 The following example also indicates that the function Pfun() is available on the target device, as
2 well as the variable Q, which is mapped to the implicit device data environment of each target
3 device. The target update directive is then used to manage the consistency of the variable Q
4 between the data environment of the encountering host device task and the implicit device data
5 environment of the default target device.
6 In the following example, the function and variable declarations appear between the declare
7 target and end declare target directives.
C / C++
8 Example declare_target.4.c
S-1 #define N 10000
S-2 #pragma omp declare target
S-3 float Q[N][N];
S-4 float Pfun(const int i, const int k)
S-5 { return Q[i][k] * Q[k][i]; }
S-6 #pragma omp end declare target
S-7 float accum(int k)
S-8 {
S-9 float tmp = 0.0;
S-10 #pragma omp target update to(Q)
S-11 #pragma omp target map(tofrom: tmp)
S-12 #pragma omp parallel for reduction(+:tmp)
S-13 for(int i=0; i < N; i++)
S-14 tmp += Pfun(i,k);
S-15 return tmp;
S-16 }
S-17
S-18 /* Note: The variable tmp is now mapped with tofrom, for correct
S-19 execution with 4.5 (and pre-4.5) compliant compilers. See Devices Intro.
S-20 */
C / C++
9 The Fortran version of the above C code uses a different syntax. In Fortran modules a list syntax on
10 the declare target directive is used to declare mapped variables and procedures. The N and Q
11 variables are declared as a comma separated list. When the declare target directive is used to
12 declare just the procedure, the procedure name need not be listed – it is implicitly assumed, as
13 illustrated in the Pfun() function.

CHAPTER 4. DEVICES 173

 Fortran
1 Example declare_target.4.f90
S-1 module my_global_array
S-2 !$omp declare target (N,Q)
S-3 integer, parameter :: N=10
S-4 real :: Q(N,N)
S-5 contains
S-6 function Pfun(i,k)
S-7 !$omp declare target
S-8 real :: Pfun
S-9 integer,intent(in) :: i,k
S-10 Pfun=(Q(i,k) * Q(k,i))
S-11 end function
S-12 end module
S-13
S-14 function accum(k) result(tmp)
S-15 use my_global_array
S-16 real :: tmp
S-17 integer :: i, k
S-18 tmp = 0.0e0
S-19 !$omp target map(tofrom: tmp)
S-20 !$omp parallel do reduction(+:tmp)
S-21 do i=1,N
S-22 tmp = tmp + Pfun(k,i)
S-23 end do
S-24 !$omp end target
S-25 end function
S-26
S-27 ! Note: The variable tmp is now mapped with tofrom, for correct
S-28 ! execution with 4.5 (and pre-4.5) compliant compilers. See Devices Intro.
Fortran

2 4.10.4 declare target and end declare target

3 with declare simd
4 The following example shows how the declare target and end declare target directives
5 are used to indicate that a function is available on a target device. The declare simd directive
6 indicates that there is a SIMD version of the function P() that is available on the target device as
7 well as one that is available on the host device.

174 OpenMP Examples Version 5.0.0 - November 2019

 C / C++
1 Example declare_target.5.c
S-1 #define N 10000
S-2 #define M 1024
S-3 #pragma omp declare target
S-4 float Q[N][N];
S-5 #pragma omp declare simd uniform(i) linear(k) notinbranch
S-6 float P(const int i, const int k)
S-7 {
S-8 return Q[i][k] * Q[k][i];
S-9 }
S-10 #pragma omp end declare target
S-11
S-12 float accum(void)
S-13 {
S-14 float tmp = 0.0;
S-15 int i, k;
S-16 #pragma omp target map(tofrom: tmp)
S-17 #pragma omp parallel for reduction(+:tmp)
S-18 for (i=0; i < N; i++) {
S-19 float tmp1 = 0.0;
S-20 #pragma omp simd reduction(+:tmp1)
S-21 for (k=0; k < M; k++) {
S-22 tmp1 += P(i,k);
S-23 }
S-24 tmp += tmp1;
S-25 }
S-26 return tmp;
S-27 }
S-28
S-29 /* Note: The variable tmp is now mapped with tofrom, for correct
S-30 execution with 4.5 (and pre-4.5) compliant compilers. See Devices Intro.
S-31 * /
C / C++
2 The Fortran version of the above C code uses a different syntax. Fortran modules use a list syntax
3 of the declare target declaration for the mapping. Here the N and Q variables are declared in
4 the list form as a comma separated list. The function declaration does not use a list and implicitly
5 assumes the function name. In this Fortran example row and column indices are reversed relative to
6 the C/C++ example, as is usual for codes optimized for memory access.

CHAPTER 4. DEVICES 175

 Fortran
1 Example declare_target.5.f90
S-1 module my_global_array
S-2 !$omp declare target (N,Q)
S-3 integer, parameter :: N=10000, M=1024
S-4 real :: Q(N,N)
S-5 contains
S-6 function P(k,i)
S-7 !$omp declare simd uniform(i) linear(k) notinbranch
S-8 !$omp declare target
S-9 real :: P
S-10 integer,intent(in) :: k,i
S-11 P=(Q(k,i) * Q(i,k))
S-12 end function
S-13 end module
S-14
S-15 function accum() result(tmp)
S-16 use my_global_array
S-17 real :: tmp, tmp1
S-18 integer :: i
S-19 tmp = 0.0e0
S-20 !$omp target map(tofrom: tmp)
S-21 !$omp parallel do private(tmp1) reduction(+:tmp)
S-22 do i=1,N
S-23 tmp1 = 0.0e0
S-24 !$omp simd reduction(+:tmp1)
S-25 do k = 1,M
S-26 tmp1 = tmp1 + P(k,i)
S-27 end do
S-28 tmp = tmp + tmp1
S-29 end do
S-30 !$omp end target
S-31 end function
S-32
S-33 ! Note: The variable tmp is now mapped with tofrom, for correct
S-34 ! execution with 4.5 (and pre-4.5) compliant compilers. See Devices Intro.
Fortran

176 OpenMP Examples Version 5.0.0 - November 2019

 1 4.10.5 declare target Directive with link Clause
2 In the OpenMP 4.5 standard the declare target directive was extended to allow static data to
3 be mapped, when needed, through a link clause.
4 Data storage for items listed in the link clause becomes available on the device when it is mapped
5 implicitly or explicitly in a map clause, and it persists for the scope of the mapping (as specified by
6 a target construct, a target data construct, or target enter/exit data constructs).
7 Tip: When all the global data items will not fit on a device and are not needed simultaneously, use
8 the link clause and map the data only when it is needed.
9 The following C and Fortran examples show two sets of data (single precision and double
10 precision) that are global on the host for the entire execution on the host; but are only used globally
11 on the device for part of the program execution. The single precision data are allocated and persist
12 only for the first target region. Similarly, the double precision data are in scope on the device
13 only for the second target region.
C / C++
14 Example declare_target.6.c
S-1 #define N 100000000
S-2
S-3 float sp[N], sv1[N], sv2[N];
S-4 double dp[N], dv1[N], dv2[N];
S-5 #pragma omp declare target link(sp,sv1,sv2) \
S-6 link(dp,dv1,dv2)
S-7
S-8 void s_init(float *, float *, int);
S-9 void d_init(double *, double *, int);
S-10 void s_output(float *, int);
S-11 void d_output(double *, int);
S-12
S-13 #pragma omp declare target
S-14 void s_vec_mult_accum()
S-15 {
S-16 int i;
S-17
S-18 #pragma omp parallel for
S-19 for (i=0; i<N; i++)
S-20 sp[i] = sv1[i] * sv2[i];
S-21 }
S-22
S-23 void d_vec_mult_accum()
S-24 {
S-25 int i;
S-26

CHAPTER 4. DEVICES 177

 S-27 #pragma omp parallel for
S-28 for (i=0; i<N; i++)
S-29 dp[i] = dv1[i] * dv2[i];
S-30 }
S-31 #pragma omp end declare target
S-32
S-33 int main()
S-34 {
S-35 s_init(sv1, sv2, N);
S-36 #pragma omp target map(to:sv1,sv2) map(from:sp)
S-37 s_vec_mult_accum();
S-38 s_output(sp, N);
S-39
S-40 d_init(dv1, dv2, N);
S-41 #pragma omp target map(to:dv1,dv2) map(from:dp)
S-42 d_vec_mult_accum();
S-43 d_output(dp, N);
S-44
S-45 return 0;
S-46 }
C / C++
Fortran
1 Example declare_target.6.f90
S-1 module m_dat
S-2 integer, parameter :: N=100000000
S-3 !$omp declare target link(sp,sv1,sv2)
S-4 real :: sp(N), sv1(N), sv2(N)
S-5
S-6 !$omp declare target link(dp,dv1,dv2)
S-7 double precision :: dp(N), dv1(N), dv2(N)
S-8
S-9 contains
S-10 subroutine s_vec_mult_accum()
S-11 !$omp declare target
S-12 integer :: i
S-13
S-14 !$omp parallel do
S-15 do i = 1,N
S-16 sp(i) = sv1(i) * sv2(i)
S-17 end do
S-18
S-19 end subroutine s_vec_mult_accum
S-20
S-21 subroutine d_vec_mult_accum()
S-22 !$omp declare target

178 OpenMP Examples Version 5.0.0 - November 2019

S-23 integer :: i
S-24
S-25 !$omp parallel do
S-26 do i = 1,N
S-27 dp(i) = dv1(i) * dv2(i)
S-28 end do
S-29
S-30 end subroutine
S-31 end module m_dat
S-32
S-33 program prec_vec_mult
S-34 use m_dat
S-35
S-36 call s_init(sv1, sv2, N)
S-37 !$omp target map(to:sv1,sv2) map(from:sp)
S-38 call s_vec_mult_accum()
S-39 !$omp end target
S-40 call s_output(sp, N)
S-41
S-42 call d_init(dv1, dv2, N)
S-43 !$omp target map(to:dv1,dv2) map(from:dp)
S-44 call d_vec_mult_accum()
S-45 !$omp end target
S-46 call d_output(dp, N)
S-47
S-48 end program
Fortran

CHAPTER 4. DEVICES 179

 1 4.11 teams Constructs

2 4.11.1 target and teams Constructs with omp_get_num_teams

3 and omp_get_team_num Routines
4 The following example shows how the target and teams constructs are used to create a league
5 of thread teams that execute a region. The teams construct creates a league of at most two teams
6 where the master thread of each team executes the teams region.
7 The omp_get_num_teams routine returns the number of teams executing in a teams region.
8 The omp_get_team_num routine returns the team number, which is an integer between 0 and
9 one less than the value returned by omp_get_num_teams. The following example manually
10 distributes a loop across two teams.
C / C++
11 Example teams.1.c
S-1 #include <stdlib.h>
S-2 #include <omp.h>
S-3 float dotprod(float B[], float C[], int N)
S-4 {
S-5 float sum0 = 0.0;
S-6 float sum1 = 0.0;
S-7 #pragma omp target map(to: B[:N], C[:N]) map(tofrom: sum0, sum1)
S-8 #pragma omp teams num_teams(2)
S-9 {
S-10 int i;
S-11 if (omp_get_num_teams() != 2)
S-12 abort();
S-13 if (omp_get_team_num() == 0)
S-14 {
S-15 #pragma omp parallel for reduction(+:sum0)
S-16 for (i=0; i<N/2; i++)
S-17 sum0 += B[i] * C[i];
S-18 }
S-19 else if (omp_get_team_num() == 1)
S-20 {
S-21 #pragma omp parallel for reduction(+:sum1)
S-22 for (i=N/2; i<N; i++)
S-23 sum1 += B[i] * C[i];
S-24 }
S-25 }
S-26 return sum0 + sum1;
S-27 }
S-28
S-29 /* Note: The variables sum0,sum1 are now mapped with tofrom, for correct

180 OpenMP Examples Version 5.0.0 - November 2019

 S-30 execution with 4.5 (and pre-4.5) compliant compilers. See Devices Intro.
S-31 */
C / C++
Fortran
1 Example teams.1.f90
S-1 function dotprod(B,C,N) result(sum)
S-2 use omp_lib, ONLY : omp_get_num_teams, omp_get_team_num
S-3 real :: B(N), C(N), sum,sum0, sum1
S-4 integer :: N, i
S-5 sum0 = 0.0e0
S-6 sum1 = 0.0e0
S-7 !$omp target map(to: B, C) map(tofrom: sum0, sum1)
S-8 !$omp teams num_teams(2)
S-9 if (omp_get_num_teams() /= 2) stop "2 teams required"
S-10 if (omp_get_team_num() == 0) then
S-11 !$omp parallel do reduction(+:sum0)
S-12 do i=1,N/2
S-13 sum0 = sum0 + B(i) * C(i)
S-14 end do
S-15 else if (omp_get_team_num() == 1) then
S-16 !$omp parallel do reduction(+:sum1)
S-17 do i=N/2+1,N
S-18 sum1 = sum1 + B(i) * C(i)
S-19 end do
S-20 end if
S-21 !$omp end teams
S-22 !$omp end target
S-23 sum = sum0 + sum1
S-24 end function
S-25
S-26 ! Note: The variables sum0,sum1 are now mapped with tofrom, for correct
S-27 ! execution with 4.5 (and pre-4.5) compliant compilers. See Devices Intro.
Fortran

CHAPTER 4. DEVICES 181

 1 4.11.2 target, teams, and distribute Constructs
2 The following example shows how the target, teams, and distribute constructs are used to
3 execute a loop nest in a target region. The teams construct creates a league and the master
4 thread of each team executes the teams region. The distribute construct schedules the
5 subsequent loop iterations across the master threads of each team.
6 The number of teams in the league is less than or equal to the variable num_blocks. Each team in
7 the league has a number of threads less than or equal to the variable block_threads. The iterations
8 in the outer loop are distributed among the master threads of each team.
9 When a team’s master thread encounters the parallel loop construct before the inner loop, the other
10 threads in its team are activated. The team executes the parallel region and then workshares the
11 execution of the loop.
12 Each master thread executing the teams region has a private copy of the variable sum that is
13 created by the reduction clause on the teams construct. The master thread and all threads in
14 its team have a private copy of the variable sum that is created by the reduction clause on the
15 parallel loop construct. The second private sum is reduced into the master thread’s private copy of
16 sum created by the teams construct. At the end of the teams region, each master thread’s private
17 copy of sum is reduced into the final sum that is implicitly mapped into the target region.
C / C++
18 Example teams.2.c
S-1 #define min(x, y) (((x) < (y)) ? (x) : (y))
S-2
S-3 float dotprod(float B[], float C[], int N, int block_size,
S-4 int num_teams, int block_threads)
S-5 {
S-6 float sum = 0.0;
S-7 int i, i0;
S-8 #pragma omp target map(to: B[0:N], C[0:N]) map(tofrom: sum)
S-9 #pragma omp teams num_teams(num_teams) thread_limit(block_threads) \
S-10 reduction(+:sum)
S-11 #pragma omp distribute
S-12 for (i0=0; i0<N; i0 += block_size)
S-13 #pragma omp parallel for reduction(+:sum)
S-14 for (i=i0; i< min(i0+block_size,N); i++)
S-15 sum += B[i] * C[i];
S-16 return sum;
S-17 }
S-18
S-19 /* Note: The variable sum is now mapped with tofrom, for correct
S-20 execution with 4.5 (and pre-4.5) compliant compilers. See Devices Intro.
S-21 */
C / C++

182 OpenMP Examples Version 5.0.0 - November 2019

 Fortran
1 Example teams.2.f90
S-1 function dotprod(B,C,N, block_size, num_teams, block_threads) result(sum)
S-2 implicit none
S-3 real :: B(N), C(N), sum
S-4 integer :: N, block_size, num_teams, block_threads, i, i0
S-5 sum = 0.0e0
S-6 !$omp target map(to: B, C) map(tofrom: sum)
S-7 !$omp teams num_teams(num_teams) thread_limit(block_threads) &
S-8 !$omp& reduction(+:sum)
S-9 !$omp distribute
S-10 do i0=1,N, block_size
S-11 !$omp parallel do reduction(+:sum)
S-12 do i = i0, min(i0+block_size,N)
S-13 sum = sum + B(i) * C(i)
S-14 end do
S-15 end do
S-16 !$omp end teams
S-17 !$omp end target
S-18 end function
S-19
S-20 ! Note: The variable sum is now mapped with tofrom, for correct
S-21 ! execution with 4.5 (and pre-4.5) compliant compilers. See Devices Intro.
Fortran

2 4.11.3 target teams, and Distribute Parallel Loop

3 Constructs
4 The following example shows how the target teams and distribute parallel loop constructs are
5 used to execute a target region. The target teams construct creates a league of teams where
6 the master thread of each team executes the teams region.
7 The distribute parallel loop construct schedules the loop iterations across the master threads of each
8 team and then across the threads of each team.

CHAPTER 4. DEVICES 183

 C / C++
1 Example teams.3.c
S-1 float dotprod(float B[], float C[], int N)
S-2 {
S-3 float sum = 0;
S-4 int i;
S-5 #pragma omp target teams map(to: B[0:N], C[0:N]) \
S-6 defaultmap(tofrom:scalar) reduction(+:sum)
S-7 #pragma omp distribute parallel for reduction(+:sum)
S-8 for (i=0; i<N; i++)
S-9 sum += B[i] * C[i];
S-10 return sum;
S-11 }
S-12
S-13 /* Note: The variable sum is now mapped with tofrom from the defaultmap
S-14 clause on the combined target teams construct, for correct
S-15 execution with 4.5 (and pre-4.5) compliant compilers. See Devices Intro.
S-16 */
C / C++
Fortran
2 Example teams.3.f90
S-1 function dotprod(B,C,N) result(sum)
S-2 real :: B(N), C(N), sum
S-3 integer :: N, i
S-4 sum = 0.0e0
S-5 !$omp target teams map(to: B, C) &
S-6 !$omp& defaultmap(tofrom:scalar) reduction(+:sum)
S-7 !$omp distribute parallel do reduction(+:sum)
S-8 do i = 1,N
S-9 sum = sum + B(i) * C(i)
S-10 end do
S-11 !$omp end target teams
S-12 end function
S-13
S-14 ! Note: The variable sum is now mapped with tofrom from the defaultmap
S-15 ! clause on the combined target teams construct, for correct
S-16 ! execution with 4.5 (and pre-4.5) compliant compilers. See Devices Intro.
Fortran

184 OpenMP Examples Version 5.0.0 - November 2019

 1 4.11.4 target teams and Distribute Parallel Loop
2 Constructs with Scheduling Clauses
3 The following example shows how the target teams and distribute parallel loop constructs are
4 used to execute a target region. The teams construct creates a league of at most eight teams
5 where the master thread of each team executes the teams region. The number of threads in each
6 team is less than or equal to 16.
7 The distribute parallel loop construct schedules the subsequent loop iterations across the
8 master threads of each team and then across the threads of each team.
9 The dist_schedule clause on the distribute parallel loop construct indicates that loop iterations
10 are distributed to the master thread of each team in chunks of 1024 iterations.
11 The schedule clause indicates that the 1024 iterations distributed to a master thread are then
12 assigned to the threads in its associated team in chunks of 64 iterations.
C / C++
13 Example teams.4.c
S-1 #define N 1024*1024
S-2 float dotprod(float B[], float C[])
S-3 {
S-4 float sum = 0.0;
S-5 int i;
S-6 #pragma omp target map(to: B[0:N], C[0:N]) map(tofrom: sum)
S-7 #pragma omp teams num_teams(8) thread_limit(16) reduction(+:sum)
S-8 #pragma omp distribute parallel for reduction(+:sum) \
S-9 dist_schedule(static, 1024) schedule(static, 64)
S-10 for (i=0; i<N; i++)
S-11 sum += B[i] * C[i];
S-12 return sum;
S-13 }
S-14
S-15 /* Note: The variable sum is now mapped with tofrom, for correct
S-16 execution with 4.5 (and pre-4.5) compliant compilers. See Devices Intro.
S-17 */
C / C++

CHAPTER 4. DEVICES 185

 Fortran
1 Example teams.4.f90
S-1 module arrays
S-2 integer,parameter :: N=1024*1024
S-3 real :: B(N), C(N)
S-4 end module
S-5 function dotprod() result(sum)
S-6 use arrays
S-7 real :: sum
S-8 integer :: i
S-9 sum = 0.0e0
S-10 !$omp target map(to: B, C) map(tofrom: sum)
S-11 !$omp teams num_teams(8) thread_limit(16) reduction(+:sum)
S-12 !$omp distribute parallel do reduction(+:sum) &
S-13 !$omp& dist_schedule(static, 1024) schedule(static, 64)
S-14 do i = 1,N
S-15 sum = sum + B(i) * C(i)
S-16 end do
S-17 !$omp end teams
S-18 !$omp end target
S-19 end function
S-20
S-21 ! Note: The variable sum is now mapped with tofrom, for correct
S-22 ! execution with 4.5 (and pre-4.5) compliant compilers. See Devices Intro.
Fortran

2 4.11.5 target teams and distribute simd Constructs

3 The following example shows how the target teams and distribute simd constructs are
4 used to execute a loop in a target region. The target teams construct creates a league of
5 teams where the master thread of each team executes the teams region.
6 The distribute simd construct schedules the loop iterations across the master thread of each
7 team and then uses SIMD parallelism to execute the iterations.

186 OpenMP Examples Version 5.0.0 - November 2019

 C / C++
1 Example teams.5.c
S-1 extern void init(float *, float *, int);
S-2 extern void output(float *, int);
S-3 void vec_mult(float *p, float *v1, float *v2, int N)
S-4 {
S-5 int i;
S-6 init(v1, v2, N);
S-7 #pragma omp target teams map(to: v1[0:N], v2[:N]) map(from: p[0:N])
S-8 #pragma omp distribute simd
S-9 for (i=0; i<N; i++)
S-10 p[i] = v1[i] * v2[i];
S-11 output(p, N);
S-12 }
C / C++
Fortran
2 Example teams.5.f90
S-1 subroutine vec_mult(p, v1, v2, N)
S-2 real :: p(N), v1(N), v2(N)
S-3 integer :: i
S-4 call init(v1, v2, N)
S-5 !$omp target teams map(to: v1, v2) map(from: p)
S-6 !$omp distribute simd
S-7 do i=1,N
S-8 p(i) = v1(i) * v2(i)
S-9 end do
S-10 !$omp end target teams
S-11 call output(p, N)
S-12 end subroutine
Fortran

CHAPTER 4. DEVICES 187

1 4.11.6 target teams and Distribute Parallel Loop
2 SIMD Constructs
3 The following example shows how the target teams and the distribute parallel loop SIMD
4 constructs are used to execute a loop in a target teams region. The target teams construct
5 creates a league of teams where the master thread of each team executes the teams region.
6 The distribute parallel loop SIMD construct schedules the loop iterations across the master thread
7 of each team and then across the threads of each team where each thread uses SIMD parallelism.
C / C++
8 Example teams.6.c
S-1 extern void init(float *, float *, int);
S-2 extern void output(float *, int);
S-3 void vec_mult(float *p, float *v1, float *v2, int N)
S-4 {
S-5 int i;
S-6 init(v1, v2, N);
S-7 #pragma omp target teams map(to: v1[0:N], v2[:N]) map(from: p[0:N])
S-8 #pragma omp distribute parallel for simd
S-9 for (i=0; i<N; i++)
S-10 p[i] = v1[i] * v2[i];
S-11 output(p, N);
S-12 }
C / C++
Fortran
9 Example teams.6.f90
S-1 subroutine vec_mult(p, v1, v2, N)
S-2 real :: p(N), v1(N), v2(N)
S-3 integer :: i
S-4 call init(v1, v2, N)
S-5 !$omp target teams map(to: v1, v2) map(from: p)
S-6 !$omp distribute parallel do simd
S-7 do i=1,N
S-8 p(i) = v1(i) * v2(i)
S-9 end do
S-10 !$omp end target teams
S-11 call output(p, N)
S-12 end subroutine
Fortran

188 OpenMP Examples Version 5.0.0 - November 2019

 1 4.12 Asynchronous target Execution and Dependences
2 Asynchronous execution of a target region can be accomplished by creating an explicit task
3 around the target region. Examples with explicit tasks are shown at the beginning of this section.
4 As of OpenMP 4.5 and beyond the nowait clause can be used on the target directive for
5 asynchronous execution. Examples with nowait clauses follow the explicit task examples.
6 This section also shows the use of depend clauses to order executions through dependences.

7 4.12.1 Asynchronous target with Tasks

8 The following example shows how the task and target constructs are used to execute multiple
9 target regions asynchronously. The task that encounters the task construct generates an
10 explicit task that contains a target region. The thread executing the explicit task encounters a
11 task scheduling point while waiting for the execution of the target region to complete, allowing
12 the thread to switch back to the execution of the encountering task or one of the previously
13 generated explicit tasks.
C / C++
14 Example async_target.1.c
S-1 #pragma omp declare target
S-2 float F(float);
S-3 #pragma omp end declare target
S-4 #define N 1000000000
S-5 #define CHUNKSZ 1000000
S-6 void init(float *, int);
S-7 float Z[N];
S-8 void pipedF(){
S-9 int C, i;
S-10 init(Z, N);
S-11 for (C=0; C<N; C+=CHUNKSZ){
S-12 #pragma omp task shared(Z)
S-13 #pragma omp target map(Z[C:CHUNKSZ])
S-14 #pragma omp parallel for
S-15 for (i=0; i<CHUNKSZ; i++) Z[i] = F(Z[i]);
S-16 }
S-17 #pragma omp taskwait
S-18 }
C / C++

CHAPTER 4. DEVICES 189

1 The Fortran version has an interface block that contains the declare target. An identical
2 statement exists in the function declaration (not shown here).
Fortran
3 Example async_target.1.f90
S-1 module parameters
S-2 integer, parameter :: N=1000000000, CHUNKSZ=1000000
S-3 end module
S-4 subroutine pipedF()
S-5 use parameters, ONLY: N, CHUNKSZ
S-6 integer :: C, i
S-7 real :: z(N)
S-8
S-9 interface
S-10 function F(z)
S-11 !$omp declare target
S-12 real, intent(IN) ::z
S-13 real ::F
S-14 end function F
S-15 end interface
S-16
S-17 call init(z,N)
S-18
S-19 do C=1,N,CHUNKSZ
S-20
S-21 !$omp task shared(z)
S-22 !$omp target map(z(C:C+CHUNKSZ-1))
S-23 !$omp parallel do
S-24 do i=C,C+CHUNKSZ-1
S-25 z(i) = F(z(i))
S-26 end do
S-27 !$omp end target
S-28 !$omp end task
S-29
S-30 end do
S-31 !$omp taskwait
S-32 print*, z
S-33
S-34 end subroutine pipedF
Fortran
4 The following example shows how the task and target constructs are used to execute multiple
5 target regions asynchronously. The task dependence ensures that the storage is allocated and
6 initialized on the device before it is accessed.

190 OpenMP Examples Version 5.0.0 - November 2019

 C / C++
1 Example async_target.2.c
S-1 #include <stdlib.h>
S-2 #include <omp.h>
S-3 #pragma omp declare target
S-4 extern void init(float *, float *, int);
S-5 #pragma omp end declare target
S-6 extern void foo();
S-7 extern void output(float *, int);
S-8 void vec_mult(float *p, int N, int dev)
S-9 {
S-10 float *v1, *v2;
S-11 int i;
S-12 #pragma omp task shared(v1, v2) depend(out: v1, v2)
S-13 #pragma omp target device(dev) map(v1, v2)
S-14 {
S-15 // check whether on device dev
S-16 if (omp_is_initial_device())
S-17 abort();
S-18 v1 = (float *)malloc(N*sizeof(float));
S-19 v2 = (float *)malloc(N*sizeof(float));
S-20 init(v1, v2, N);
S-21 }
S-22 foo(); // execute other work asychronously
S-23 #pragma omp task shared(v1, v2, p) depend(in: v1, v2)
S-24 #pragma omp target device(dev) map(to: v1, v2) map(from: p[0:N])
S-25 {
S-26 // check whether on device dev
S-27 if (omp_is_initial_device())
S-28 abort();
S-29 #pragma omp parallel for
S-30 for (i=0; i<N; i++)
S-31 p[i] = v1[i] * v2[i];
S-32 free(v1);
S-33 free(v2);
S-34 }
S-35 #pragma omp taskwait
S-36 output(p, N);
S-37 }
C / C++
2 The Fortran example below is similar to the C version above. Instead of pointers, though, it uses the
3 convenience of Fortran allocatable arrays on the device. In order to preserve the arrays allocated on
4 the device across multiple target regions, a target data region is used in this case.

CHAPTER 4. DEVICES 191

 1 If there is no shape specified for an allocatable array in a map clause, only the array descriptor (also
2 called a dope vector) is mapped. That is, device space is created for the descriptor, and it is initially
3 populated with host values. In this case, the v1 and v2 arrays will be in a non-associated state on the
4 device. When space for v1 and v2 is allocated on the device in the first target region the
5 addresses to the space will be included in their descriptors.
6 At the end of the first target region, the arrays v1 and v2 are preserved on the device for access in
7 the second target region. At the end of the second target region, the data in array p is copied
8 back, the arrays v1 and v2 are not.
9 A depend clause is used in the task directive to provide a wait at the beginning of the second
10 target region, to insure that there is no race condition with v1 and v2 in the two tasks. It would
11 be noncompliant to use v1 and/or v2 in lieu of N in the depend clauses, because the use of
12 non-allocated allocatable arrays as list items in a depend clause would lead to unspecified
13 behavior.
14 Note – This example is not strictly compliant with the OpenMP 4.5 specification since the
15 allocation status of allocatable arrays v1 and v2 is changed inside the target region, which is not
16 allowed. (See the restrictions for the map clause in the Data-mapping Attribute Rules and Clauses
17 section of the specification.) However, the intention is to relax the restrictions on mapping of
18 allocatable variables in the next release of the specification so that the example will be compliant.
Fortran
19 Example async_target.2.f90
S-1 subroutine mult(p, N, idev)
S-2 use omp_lib, ONLY: omp_is_initial_device
S-3 real :: p(N)
S-4 real,allocatable :: v1(:), v2(:)
S-5 integer :: i, idev
S-6 !$omp declare target (init)
S-7
S-8 !$omp target data map(v1,v2)
S-9
S-10 !$omp task shared(v1,v2) depend(out: N)
S-11 !$omp target device(idev)
S-12 if( omp_is_initial_device() ) &
S-13 stop "not executing on target device"
S-14 allocate(v1(N), v2(N))
S-15 call init(v1,v2,N)
S-16 !$omp end target
S-17 !$omp end task
S-18
S-19 call foo() ! execute other work asychronously
S-20
S-21 !$omp task shared(v1,v2,p) depend(in: N)
S-22 !$omp target device(idev) map(from: p)

192 OpenMP Examples Version 5.0.0 - November 2019

 S-23 if( omp_is_initial_device() ) &
S-24 stop "not executing on target device"
S-25 !$omp parallel do
S-26 do i = 1,N
S-27 p(i) = v1(i) * v2(i)
S-28 end do
S-29 deallocate(v1,v2)
S-30
S-31 !$omp end target
S-32 !$omp end task
S-33
S-34 !$omp taskwait
S-35
S-36 !$omp end target data
S-37
S-38 call output(p, N)
S-39
S-40 end subroutine
Fortran

1 4.12.2 nowait Clause on target Construct

2 The following example shows how to execute code asynchronously on a device without an explicit
3 task. The nowait clause on a target construct allows the thread of the target task to perform
4 other work while waiting for the target region execution to complete. Hence, the the target
5 region can execute asynchronously on the device (without requiring a host thread to idle while
6 waiting for the target task execution to complete).
7 In this example the product of two vectors (arrays), v1 and v2, is formed. One half of the operations
8 is performed on the device, and the last half on the host, concurrently.
9 After a team of threads is formed the master thread generates the target task while the other threads
10 can continue on, without a barrier, to the execution of the host portion of the vector product. The
11 completion of the target task (asynchronous target execution) is guaranteed by the synchronization
12 in the implicit barrier at the end of the host vector-product worksharing loop region. See the
13 barrier glossary entry in the OpenMP specification for details.
14 The host loop scheduling is dynamic, to balance the host thread executions, since one thread is
15 being used for offload generation. In the situation where little time is spent by the target task in
16 setting up and tearing down the the target execution, static scheduling may be desired.

CHAPTER 4. DEVICES 193

 C / C++
1 Example async_target.3.c
S-1
S-2 #include <stdio.h>
S-3
S-4 #define N 1000000 //N must be even
S-5 void init(int n, float *v1, float *v2);
S-6
S-7 int main(){
S-8 int i, n=N;
S-9 int chunk=1000;
S-10 float v1[N],v2[N],vxv[N];
S-11
S-12 init(n, v1,v2);
S-13
S-14 #pragma omp parallel
S-15 {
S-16
S-17 #pragma omp master
S-18 #pragma omp target teams distribute parallel for nowait \
S-19 map(to: v1[0:n/2]) \
S-20 map(to: v2[0:n/2]) \
S-21 map(from: vxv[0:n/2])
S-22 for(i=0; i<n/2; i++){ vxv[i] = v1[i]*v2[i]; }
S-23
S-24 #pragma omp for schedule(dynamic,chunk)
S-25 for(i=n/2; i<n; i++){ vxv[i] = v1[i]*v2[i]; }
S-26
S-27 }
S-28 printf(" vxv[0] vxv[n-1] %f %f\n", vxv[0], vxv[n-1]);
S-29 return 0;
S-30 }
C / C++
Fortran
2 Example async_target.3.f90
S-1
S-2 program concurrent_async
S-3 use omp_lib
S-4 integer,parameter :: n=1000000 !!n must be even
S-5 integer :: i, chunk=1000
S-6 real :: v1(n),v2(n),vxv(n)
S-7
S-8 call init(n, v1,v2)
S-9

194 OpenMP Examples Version 5.0.0 - November 2019

 S-10 !$omp parallel
S-11
S-12 !$omp master
S-13 !$omp target teams distribute parallel do nowait &
S-14 !$omp& map(to: v1(1:n/2)) &
S-15 !$omp& map(to: v2(1:n/2)) &
S-16 !$omp& map(from: vxv(1:n/2))
S-17 do i = 1,n/2; vxv(i) = v1(i)*v2(i); end do
S-18 !$omp end master
S-19
S-20 !$omp do schedule(dynamic,chunk)
S-21 do i = n/2+1,n; vxv(i) = v1(i)*v2(i); end do
S-22
S-23 !$omp end parallel
S-24
S-25 print*, " vxv(1) vxv(n) :", vxv(1), vxv(n)
S-26
S-27 end program
Fortran

1 4.12.3 Asynchronous target with nowait and depend

2 Clauses
3 More details on dependences can be found in Section 3.3 on page 89, Task Dependences. In this
4 example, there are three flow dependences. In the first two dependences the target task does not
5 execute until the preceding explicit tasks have finished. These dependences are produced by arrays
6 v1 and v2 with the out dependence type in the first two tasks, and the in dependence type in the
7 target task.
8 The last dependence is produced by array p with the out dependence type in the target task, and
9 the in dependence type in the last task. The last task does not execute until the target task finishes.
10 The nowait clause on the target construct creates a deferrable target task, allowing the
11 encountering task to continue execution without waiting for the completion of the target task.

CHAPTER 4. DEVICES 195

 C / C++
1 Example async_target.4.c
S-1
S-2 extern void init( float*, int);
S-3 extern void output(float*, int);
S-4
S-5 void vec_mult(int N)
S-6 {
S-7 int i;
S-8 float p[N], v1[N], v2[N];
S-9
S-10 #pragma omp parallel num_threads(2)
S-11 {
S-12 #pragma omp single
S-13 {
S-14 #pragma omp task depend(out:v1)
S-15 init(v1, N);
S-16
S-17 #pragma omp task depend(out:v2)
S-18 init(v2, N);
S-19
S-20 #pragma omp target nowait depend(in:v1,v2) depend(out:p) \
S-21 map(to:v1,v2) map( from: p)
S-22 #pragma omp parallel for private(i)
S-23 for (i=0; i<N; i++)
S-24 p[i] = v1[i] * v2[i];
S-25
S-26 #pragma omp task depend(in:p)
S-27 output(p, N);
S-28 }
S-29 }
S-30 }
C / C++
Fortran
2 Example async_target.4.f90
S-1
S-2 subroutine vec_mult(N)
S-3 implicit none
S-4 integer :: i, N
S-5 real, allocatable :: p(:), v1(:), v2(:)
S-6 allocate( p(N), v1(N), v2(N) )
S-7
S-8 !$omp parallel num_threads(2)
S-9

196 OpenMP Examples Version 5.0.0 - November 2019

S-10 !$omp single
S-11
S-12 !$omp task depend(out:v1)
S-13 call init(v1, N)
S-14 !$omp end task
S-15
S-16 !$omp task depend(out:v2)
S-17 call init(v2, N)
S-18 !$omp end task
S-19
S-20 !$omp target nowait depend(in:v1,v2) depend(out:p) &
S-21 !$omp& map(to:v1,v2) map(from: p)
S-22 !$omp parallel do
S-23 do i=1,N
S-24 p(i) = v1(i) * v2(i)
S-25 end do
S-26 !$omp end target
S-27
S-28
S-29 !$omp task depend(in:p)
S-30 call output(p, N)
S-31 !$omp end task
S-32
S-33 !$omp end single
S-34 !$omp end parallel
S-35
S-36 deallocate( p, v1, v2 )
S-37
S-38 end subroutine
Fortran

CHAPTER 4. DEVICES 197

1 4.13 Device Routines

2 4.13.1 omp_is_initial_device Routine

3 The following example shows how the omp_is_initial_device runtime library routine can
4 be used to query if a code is executing on the initial host device or on a target device. The example
5 then sets the number of threads in the parallel region based on where the code is executing.
C / C++
6 Example device.1.c
S-1 #include <stdio.h>
S-2 #include <omp.h>
S-3 #pragma omp declare target
S-4 void vec_mult(float *p, float *v1, float *v2, int N);
S-5 extern float *p, *v1, *v2;
S-6 extern int N;
S-7 #pragma omp end declare target
S-8 extern void init_vars(float *, float *, int);
S-9 extern void output(float *, int);
S-10 void foo()
S-11 {
S-12 init_vars(v1, v2, N);
S-13 #pragma omp target device(42) map(p[:N], v1[:N], v2[:N])
S-14 {
S-15 vec_mult(p, v1, v2, N);
S-16 }
S-17 output(p, N);
S-18 }
S-19 void vec_mult(float *p, float *v1, float *v2, int N)
S-20 {
S-21 int i;
S-22 int nthreads;
S-23 if (!omp_is_initial_device())
S-24 {
S-25 printf("1024 threads on target device\n");
S-26 nthreads = 1024;
S-27 }
S-28 else
S-29 {
S-30 printf("8 threads on initial device\n");
S-31 nthreads = 8;
S-32 }
S-33 #pragma omp parallel for private(i) num_threads(nthreads)
S-34 for (i=0; i<N; i++)

198 OpenMP Examples Version 5.0.0 - November 2019

 S-35 p[i] = v1[i] * v2[i];
S-36 }
C / C++
Fortran
1 Example device.1.f90
S-1 module params
S-2 integer,parameter :: N=1024
S-3 end module params
S-4 module vmult
S-5 contains
S-6 subroutine vec_mult(p, v1, v2, N)
S-7 use omp_lib, ONLY : omp_is_initial_device
S-8 !$omp declare target
S-9 real :: p(N), v1(N), v2(N)
S-10 integer :: i, nthreads, N
S-11 if (.not. omp_is_initial_device()) then
S-12 print*, "1024 threads on target device"
S-13 nthreads = 1024
S-14 else
S-15 print*, "8 threads on initial device"
S-16 nthreads = 8
S-17 endif
S-18 !$omp parallel do private(i) num_threads(nthreads)
S-19 do i = 1,N
S-20 p(i) = v1(i) * v2(i)
S-21 end do
S-22 end subroutine vec_mult
S-23 end module vmult
S-24 program prog_vec_mult
S-25 use params
S-26 use vmult
S-27 real :: p(N), v1(N), v2(N)
S-28 call init(v1,v2,N)
S-29 !$omp target device(42) map(p, v1, v2)
S-30 call vec_mult(p, v1, v2, N)
S-31 !$omp end target
S-32 call output(p, N)
S-33 end program
Fortran

CHAPTER 4. DEVICES 199

1 4.13.2 omp_get_num_devices Routine
2 The following example shows how the omp_get_num_devices runtime library routine can be
3 used to determine the number of devices.
C / C++
4 Example device.2.c
S-1 #include <omp.h>
S-2 extern void init(float *, float *, int);
S-3 extern void output(float *, int);
S-4 void vec_mult(float *p, float *v1, float *v2, int N)
S-5 {
S-6 int i;
S-7 init(v1, v2, N);
S-8 int ndev = omp_get_num_devices();
S-9 int do_offload = (ndev>0 && N>1000000);
S-10 #pragma omp target if(do_offload) map(to: v1[0:N], v2[:N]) map(from: p[0:N])
S-11 #pragma omp parallel for if(N>1000) private(i)
S-12 for (i=0; i<N; i++)
S-13 p[i] = v1[i] * v2[i];
S-14 output(p, N);
S-15 }
C / C++
Fortran
5 Example device.2.f90
S-1 subroutine vec_mult(p, v1, v2, N)
S-2 use omp_lib, ONLY : omp_get_num_devices
S-3 real :: p(N), v1(N), v2(N)
S-4 integer :: N, i, ndev
S-5 logical :: do_offload
S-6 call init(v1, v2, N)
S-7 ndev = omp_get_num_devices()
S-8 do_offload = (ndev>0) .and. (N>1000000)
S-9 !$omp target if(do_offload) map(to: v1, v2) map(from: p)
S-10 !$omp parallel do if(N>1000)
S-11 do i=1,N
S-12 p(i) = v1(i) * v2(i)
S-13 end do
S-14 !$omp end target
S-15 call output(p, N)
S-16 end subroutine
Fortran

200 OpenMP Examples Version 5.0.0 - November 2019

1 4.13.3 omp_set_default_device and
2 omp_get_default_device Routines
3 The following example shows how the omp_set_default_device and
4 omp_get_default_device runtime library routines can be used to set the default device and
5 determine the default device respectively.
C / C++
6 Example device.3.c
S-1 #include <omp.h>
S-2 #include <stdio.h>
S-3 void foo(void)
S-4 {
S-5 int default_device = omp_get_default_device();
S-6 printf("Default device = %d\n", default_device);
S-7 omp_set_default_device(default_device+1);
S-8 if (omp_get_default_device() != default_device+1)
S-9 printf("Default device is still = %d\n", default_device);
S-10 }
C / C++
Fortran
7 Example device.3.f90
S-1 program foo
S-2 use omp_lib, ONLY : omp_get_default_device, omp_set_default_device
S-3 integer :: old_default_device, new_default_device
S-4 old_default_device = omp_get_default_device()
S-5 print*, "Default device = ", old_default_device
S-6 new_default_device = old_default_device + 1
S-7 call omp_set_default_device(new_default_device)
S-8 if (omp_get_default_device() == old_default_device) &
S-9 print*,"Default device is STILL = ", old_default_device
S-10 end program
Fortran

CHAPTER 4. DEVICES 201

 1 4.13.4 Target Memory and Device Pointers Routines
2 The following example shows how to create space on a device, transfer data to and from that space,
3 and free the space, using API calls. The API calls directly execute allocation, copy and free
4 operations on the device, without invoking any mapping through a target directive. The
5 omp_target_alloc routine allocates space and returns a device pointer for referencing the
6 space in the omp_target_memcpy API routine on the host. The omp_target_free routine
7 frees the space on the device.
8 The example also illustrates how to access that space in a target region by exposing the device
9 pointer in an is_device_ptr clause.
10 The example creates an array of cosine values on the default device, to be used on the host device.
11 The function fails if a default device is not available.
C / C++
12 Example device.4.c
S-1 #include <stdio.h>
S-2 #include <math.h>
S-3 #include <stdlib.h>
S-4 #include <omp.h>
S-5
S-6 void get_dev_cos(double *mem, size_t s)
S-7 {
S-8 int h, t, i;
S-9 double * mem_dev_cpy;
S-10 h = omp_get_initial_device();
S-11 t = omp_get_default_device();
S-12
S-13 if (omp_get_num_devices() < 1 || t < 0){
S-14 printf(" ERROR: No device found.\n");
S-15 exit(1);
S-16 }
S-17
S-18 mem_dev_cpy = (double *)omp_target_alloc( sizeof(double) * s, t);
S-19 if(mem_dev_cpy == NULL){
S-20 printf(" ERROR: No space left on device.\n");
S-21 exit(1);
S-22 }
S-23
S-24 /* dst src */
S-25 omp_target_memcpy(mem_dev_cpy, mem, sizeof(double)*s,
S-26 0, 0,
S-27 t, h);
S-28
S-29 #pragma omp target is_device_ptr(mem_dev_cpy) device(t)

202 OpenMP Examples Version 5.0.0 - November 2019

S-30 #pragma omp teams distribute parallel for
S-31 for(i=0;i<s;i++){ mem_dev_cpy[i] = cos((double)i); } /* init data */
S-32
S-33 /* dst src */
S-34 omp_target_memcpy(mem, mem_dev_cpy, sizeof(double)*s,
S-35 0, 0,
S-36 h, t);
S-37
S-38 omp_target_free(mem_dev_cpy, t);
S-39 }
C / C++

CHAPTER 4. DEVICES 203

1 CHAPTER 5

2 SIMD

3 Single instruction, multiple data (SIMD) is a form of parallel execution in which the same operation
4 is performed on multiple data elements independently in hardware vector processing units (VPU),
5 also called SIMD units. The addition of two vectors to form a third vector is a SIMD operation.
6 Many processors have SIMD (vector) units that can perform simultaneously 2, 4, 8 or more
7 executions of the same operation (by a single SIMD unit).
8 Loops without loop-carried backward dependency (or with dependency preserved using ordered
9 simd) are candidates for vectorization by the compiler for execution with SIMD units. In addition,
10 with state-of-the-art vectorization technology and declare simd construct extensions for
11 function vectorization in the OpenMP 4.5 specification, loops with function calls can be vectorized
12 as well. The basic idea is that a scalar function call in a loop can be replaced by a vector version of
13 the function, and the loop can be vectorized simultaneously by combining a loop vectorization
14 (simd directive on the loop) and a function vectorization (declare simd directive on the
15 function).
16 A simd construct states that SIMD operations be performed on the data within the loop. A number
17 of clauses are available to provide data-sharing attributes (private, linear, reduction and
18 lastprivate). Other clauses provide vector length preference/restrictions (simdlen /
19 safelen), loop fusion (collapse), and data alignment (aligned).
20 The declare simd directive designates that a vector version of the function should also be
21 constructed for execution within loops that contain the function and have a simd directive. Clauses
22 provide argument specifications (linear, uniform, and aligned), a requested vector length
23 (simdlen), and designate whether the function is always/never called conditionally in a loop
24 (branch/inbranch). The latter is for optimizing performance.
25 Also, the simd construct has been combined with the worksharing loop constructs (for simd
26 and do simd) to enable simultaneous thread execution in different SIMD units.

204
1 5.1 simd and declare simd Constructs
2 The following example illustrates the basic use of the simd construct to assure the compiler that
3 the loop can be vectorized.
C / C++
4 Example SIMD.1.c
S-1 void star( double *a, double *b, double *c, int n, int *ioff )
S-2 {
S-3 int i;
S-4 #pragma omp simd
S-5 for ( i = 0; i < n; i++ )
S-6 a[i] *= b[i] * c[i+ *ioff];
S-7 }
C / C++
Fortran
5 Example SIMD.1.f90
S-1 subroutine star(a,b,c,n,ioff_ptr)
S-2 implicit none
S-3 double precision :: a(*),b(*),c(*)
S-4 integer :: n, i
S-5 integer, pointer :: ioff_ptr
S-6
S-7 !$omp simd
S-8 do i = 1,n
S-9 a(i) = a(i) * b(i) * c(i+ioff_ptr)
S-10 end do
S-11
S-12 end subroutine
Fortran

CHAPTER 5. SIMD 205

 1 When a function can be inlined within a loop the compiler has an opportunity to vectorize the loop.
2 By guaranteeing SIMD behavior of a function’s operations, characterizing the arguments of the
3 function and privatizing temporary variables of the loop, the compiler can often create faster, vector
4 code for the loop. In the examples below the declare simd construct is used on the add1 and
5 add2 functions to enable creation of their corresponding SIMD function versions for execution
6 within the associated SIMD loop. The functions characterize two different approaches of accessing
7 data within the function: by a single variable and as an element in a data array, respectively. The
8 add3 C function uses dereferencing.
9 The declare simd constructs also illustrate the use of uniform and linear clauses. The
10 uniform(fact) clause indicates that the variable fact is invariant across the SIMD lanes. In the
11 add2 function a and b are included in the uniform list because the C pointer and the Fortran array
12 references are constant. The i index used in the add2 function is included in a linear clause with
13 a constant-linear-step of 1, to guarantee a unity increment of the associated loop. In the declare
14 simd construct for the add3 C function the linear(a,b:1) clause instructs the compiler to
15 generate unit-stride loads across the SIMD lanes; otherwise, costly gather instructions would be
16 generated for the unknown sequence of access of the pointer dereferences.
17 In the simd constructs for the loops the private(tmp) clause is necessary to assure that the
18 each vector operation has its own tmp variable.
C / C++
19 Example SIMD.2.c
S-1 #include <stdio.h>
S-2
S-3 #pragma omp declare simd uniform(fact)
S-4 double add1(double a, double b, double fact)
S-5 {
S-6 double c;
S-7 c = a + b + fact;
S-8 return c;
S-9 }
S-10
S-11 #pragma omp declare simd uniform(a,b,fact) linear(i:1)
S-12 double add2(double *a, double *b, int i, double fact)
S-13 {
S-14 double c;
S-15 c = a[i] + b[i] + fact;
S-16 return c;
S-17 }
S-18
S-19 #pragma omp declare simd uniform(fact) linear(a,b:1)
S-20 double add3(double *a, double *b, double fact)
S-21 {
S-22 double c;
S-23 c = *a + *b + fact;

206 OpenMP Examples Version 5.0.0 - November 2019

 S-24 return c;
S-25 }
S-26
S-27 void work( double *a, double *b, int n )
S-28 {
S-29 int i;
S-30 double tmp;
S-31 #pragma omp simd private(tmp)
S-32 for ( i = 0; i < n; i++ ) {
S-33 tmp = add1( a[i], b[i], 1.0);
S-34 a[i] = add2( a, b, i, 1.0) + tmp;
S-35 a[i] = add3(&a[i], &b[i], 1.0);
S-36 }
S-37 }
S-38
S-39 int main(){
S-40 int i;
S-41 const int N=32;
S-42 double a[N], b[N];
S-43
S-44 for ( i=0; i<N; i++ ) {
S-45 a[i] = i; b[i] = N-i;
S-46 }
S-47
S-48 work(a, b, N );
S-49
S-50 for ( i=0; i<N; i++ ) {
S-51 printf("%d %f\n", i, a[i]);
S-52 }
S-53
S-54 return 0;
S-55 }
C / C++
Fortran
1 Example SIMD.2.f90
S-1 program main
S-2 implicit none
S-3 integer, parameter :: N=32
S-4 integer :: i
S-5 double precision :: a(N), b(N)
S-6 do i = 1,N
S-7 a(i) = i-1
S-8 b(i) = N-(i-1)
S-9 end do
S-10 call work(a, b, N )

CHAPTER 5. SIMD 207

S-11 do i = 1,N
S-12 print*, i,a(i)
S-13 end do
S-14 end program
S-15
S-16 function add1(a,b,fact) result(c)
S-17 !$omp declare simd(add1) uniform(fact)
S-18 implicit none
S-19 double precision :: a,b,fact, c
S-20 c = a + b + fact
S-21 end function
S-22
S-23 function add2(a,b,i, fact) result(c)
S-24 !$omp declare simd(add2) uniform(a,b,fact) linear(i:1)
S-25 implicit none
S-26 integer :: i
S-27 double precision :: a(*),b(*),fact, c
S-28 c = a(i) + b(i) + fact
S-29 end function
S-30
S-31 subroutine work(a, b, n )
S-32 implicit none
S-33 double precision :: a(n),b(n), tmp
S-34 integer :: n, i
S-35 double precision, external :: add1, add2
S-36
S-37 !$omp simd private(tmp)
S-38 do i = 1,n
S-39 tmp = add1(a(i), b(i), 1.0d0)
S-40 a(i) = add2(a, b, i, 1.0d0) + tmp
S-41 a(i) = a(i) + b(i) + 1.0d0
S-42 end do
S-43 end subroutine
Fortran

208 OpenMP Examples Version 5.0.0 - November 2019

1 A thread that encounters a SIMD construct executes a vectorized code of the iterations. Similar to
2 the concerns of a worksharing loop a loop vectorized with a SIMD construct must assure that
3 temporary and reduction variables are privatized and declared as reductions with clauses. The
4 example below illustrates the use of private and reduction clauses in a SIMD construct.
C / C++
5 Example SIMD.3.c
S-1 double work( double *a, double *b, int n )
S-2 {
S-3 int i;
S-4 double tmp, sum;
S-5 sum = 0.0;
S-6 #pragma omp simd private(tmp) reduction(+:sum)
S-7 for (i = 0; i < n; i++) {
S-8 tmp = a[i] + b[i];
S-9 sum += tmp;
S-10 }
S-11 return sum;
S-12 }
C / C++
Fortran
6 Example SIMD.3.f90
S-1 subroutine work( a, b, n, sum )
S-2 implicit none
S-3 integer :: i, n
S-4 double precision :: a(n), b(n), sum, tmp
S-5
S-6 sum = 0.0d0
S-7 !$omp simd private(tmp) reduction(+:sum)
S-8 do i = 1,n
S-9 tmp = a(i) + b(i)
S-10 sum = sum + tmp
S-11 end do
S-12
S-13 end subroutine work
Fortran

CHAPTER 5. SIMD 209

1 A safelen(N) clause in a simd construct assures the compiler that there are no loop-carried
2 dependencies for vectors of size N or below. If the safelen clause is not specified, then the
3 default safelen value is the number of loop iterations.
4 The safelen(16) clause in the example below guarantees that the vector code is safe for vectors
5 up to and including size 16. In the loop, m can be 16 or greater, for correct code execution. If the
6 value of m is less than 16, the behavior is undefined.
C / C++
7 Example SIMD.4.c
S-1 void work( float *b, int n, int m )
S-2 {
S-3 int i;
S-4 #pragma omp simd safelen(16)
S-5 for (i = m; i < n; i++)
S-6 b[i] = b[i-m] - 1.0f;
S-7 }
C / C++
Fortran
8 Example SIMD.4.f90
S-1 subroutine work( b, n, m )
S-2 implicit none
S-3 real :: b(n)
S-4 integer :: i,n,m
S-5
S-6 !$omp simd safelen(16)
S-7 do i = m+1, n
S-8 b(i) = b(i-m) - 1.0
S-9 end do
S-10 end subroutine work
Fortran

210 OpenMP Examples Version 5.0.0 - November 2019

1 The following SIMD construct instructs the compiler to collapse the i and j loops into a single
2 SIMD loop in which SIMD chunks are executed by threads of the team. Within the workshared
3 loop chunks of a thread, the SIMD chunks are executed in the lanes of the vector units.
C / C++
4 Example SIMD.5.c
S-1 void work( double **a, double **b, double **c, int n )
S-2 {
S-3 int i, j;
S-4 double tmp;
S-5 #pragma omp for simd collapse(2) private(tmp)
S-6 for (i = 0; i < n; i++) {
S-7 for (j = 0; j < n; j++) {
S-8 tmp = a[i][j] + b[i][j];
S-9 c[i][j] = tmp;
S-10 }
S-11 }
S-12 }
C / C++
Fortran
5 Example SIMD.5.f90
S-1 subroutine work( a, b, c, n )
S-2 implicit none
S-3 integer :: i,j,n
S-4 double precision :: a(n,n), b(n,n), c(n,n), tmp
S-5
S-6 !$omp do simd collapse(2) private(tmp)
S-7 do j = 1,n
S-8 do i = 1,n
S-9 tmp = a(i,j) + b(i,j)
S-10 c(i,j) = tmp
S-11 end do
S-12 end do
S-13
S-14 end subroutine work
Fortran

CHAPTER 5. SIMD 211

1 5.2 inbranch and notinbranch Clauses
2 The following examples illustrate the use of the declare simd construct with the inbranch
3 and notinbranch clauses. The notinbranch clause informs the compiler that the function
4 foo is never called conditionally in the SIMD loop of the function myaddint. On the other hand, the
5 inbranch clause for the function goo indicates that the function is always called conditionally in
6 the SIMD loop inside the function myaddfloat.
C / C++
7 Example SIMD.6.c
S-1 #pragma omp declare simd linear(p:1) notinbranch
S-2 int foo(int *p){
S-3 *p = *p + 10;
S-4 return *p;
S-5 }
S-6
S-7 int myaddint(int *a, int *b, int n)
S-8 {
S-9 #pragma omp simd
S-10 for (int i=0; i<n; i++){
S-11 a[i] = foo(&b[i]); /* foo is not called under a condition */
S-12 }
S-13 return a[n-1];
S-14 }
S-15
S-16 #pragma omp declare simd linear(p:1) inbranch
S-17 float goo(float *p){
S-18 *p = *p + 18.5f;
S-19 return *p;
S-20 }
S-21
S-22 int myaddfloat(float *x, float *y, int n)
S-23 {
S-24 #pragma omp simd
S-25 for (int i=0; i<n; i++){
S-26 x[i] = (x[i] > y[i]) ? goo(&y[i]) : y[i];
S-27 /* goo is called under the condition (or within a branch) */
S-28 }
S-29 return x[n-1];
S-30 }
C / C++

212 OpenMP Examples Version 5.0.0 - November 2019

 Fortran
1 Example SIMD.6.f90
S-1 function foo(p) result(r)
S-2 !$omp declare simd(foo) notinbranch
S-3 implicit none
S-4 integer :: p, r
S-5 p = p + 10
S-6 r = p
S-7 end function foo
S-8
S-9 function myaddint(a, b, n) result(r)
S-10 implicit none
S-11 integer :: a(*), b(*), n, r
S-12 integer :: i
S-13 integer, external :: foo
S-14
S-15 !$omp simd
S-16 do i=1, n
S-17 a(i) = foo(b(i)) ! foo is not called under a condition
S-18 end do
S-19 r = a(n)
S-20
S-21 end function myaddint
S-22
S-23 function goo(p) result(r)
S-24 !$omp declare simd(goo) inbranch
S-25 implicit none
S-26 real :: p, r
S-27 p = p + 18.5
S-28 r = p
S-29 end function goo
S-30
S-31 function myaddfloat(x, y, n) result(r)
S-32 implicit none
S-33 real :: x(*), y(*), r
S-34 integer :: n
S-35 integer :: i
S-36 real, external :: goo
S-37
S-38 !$omp simd
S-39 do i=1, n
S-40 if (x(i) > y(i)) then
S-41 x(i) = goo(y(i))
S-42 ! goo is called under the condition (or within a branch)
S-43 else
S-44 x(i) = y(i)

CHAPTER 5. SIMD 213

 S-45 endif
S-46 end do
S-47
S-48 r = x(n)
S-49 end function myaddfloat
Fortran
1 In the code below, the function fib() is called in the main program and also recursively called in the
2 function fib() within an if condition. The compiler creates a masked vector version and a
3 non-masked vector version for the function fib() while retaining the original scalar version of the
4 fib() function.
C / C++
5 Example SIMD.7.c
S-1 #include <stdio.h>
S-2 #include <stdlib.h>
S-3
S-4 #define N 45
S-5 int a[N], b[N], c[N];
S-6
S-7 #pragma omp declare simd inbranch
S-8 int fib( int n )
S-9 {
S-10 if (n <= 1)
S-11 return n;
S-12 else {
S-13 return fib(n-1) + fib(n-2);
S-14 }
S-15 }
S-16
S-17 int main(void)
S-18 {
S-19 int i;
S-20
S-21 #pragma omp simd
S-22 for (i=0; i < N; i++) b[i] = i;
S-23
S-24 #pragma omp simd
S-25 for (i=0; i < N; i++) {
S-26 a[i] = fib(b[i]);
S-27 }
S-28 printf("Done a[%d] = %d\n", N-1, a[N-1]);
S-29 return 0;
S-30 }
C / C++

214 OpenMP Examples Version 5.0.0 - November 2019

 Fortran
1 Example SIMD.7.f90
S-1 program fibonacci
S-2 implicit none
S-3 integer,parameter :: N=45
S-4 integer :: a(0:N-1), b(0:N-1)
S-5 integer :: i
S-6 integer, external :: fib
S-7
S-8 !$omp simd
S-9 do i = 0,N-1
S-10 b(i) = i
S-11 end do
S-12
S-13 !$omp simd
S-14 do i=0,N-1
S-15 a(i) = fib(b(i))
S-16 end do
S-17
S-18 write(*,*) "Done a(", N-1, ") = ", a(N-1)
S-19 ! 44 701408733
S-20 end program
S-21
S-22 recursive function fib(n) result(r)
S-23 !$omp declare simd(fib) inbranch
S-24 implicit none
S-25 integer :: n, r
S-26
S-27 if (n <= 1) then
S-28 r = n
S-29 else
S-30 r = fib(n-1) + fib(n-2)
S-31 endif
S-32
S-33 end function fib
Fortran

CHAPTER 5. SIMD 215

 1 5.3 Loop-Carried Lexical Forward Dependence
2 The following example tests the restriction on an SIMD loop with the loop-carried lexical
3 forward-dependence. This dependence must be preserved for the correct execution of SIMD loops.
4 A loop can be vectorized even though the iterations are not completely independent when it has
5 loop-carried dependences that are forward lexical dependences, indicated in the code below by the
6 read of A[j+1] and the write to A[j] in C/C++ code (or A(j+1) and A(j) in Fortran). That is, the
7 read of A[j+1] (or A(j+1) in Fortran) before the write to A[j] (or A(j) in Fortran) ordering must be
8 preserved for each iteration in j for valid SIMD code generation.
9 This test assures that the compiler preserves the loop carried lexical forward-dependence for
10 generating a correct SIMD code.
C / C++
11 Example SIMD.8.c
S-1 #include <stdio.h>
S-2 #include <math.h>
S-3
S-4 int P[1000];
S-5 float A[1000];
S-6
S-7 float do_work(float *arr)
S-8 {
S-9 float pri;
S-10 int i;
S-11 #pragma omp simd lastprivate(pri)
S-12 for (i = 0; i < 999; ++i) {
S-13 int j = P[i];
S-14
S-15 pri = 0.5f;
S-16 if (j % 2 == 0) {
S-17 pri = A[j+1] + arr[i];
S-18 }
S-19 A[j] = pri * 1.5f;
S-20 pri = pri + A[j];
S-21 }
S-22 return pri;
S-23 }
S-24
S-25 int main(void)
S-26 {
S-27 float pri, arr[1000];
S-28 int i;
S-29
S-30 for (i = 0; i < 1000; ++i) {

216 OpenMP Examples Version 5.0.0 - November 2019

 S-31 P[i] = i;
S-32 A[i] = i * 1.5f;
S-33 arr[i] = i * 1.8f;
S-34 }
S-35 pri = do_work(&arr[0]);
S-36 if (pri == 8237.25) {
S-37 printf("passed: result pri = %7.2f (8237.25) \n", pri);
S-38 }
S-39 else {
S-40 printf("failed: result pri = %7.2f (8237.25) \n", pri);
S-41 }
S-42 return 0;
S-43 }
C / C++
Fortran
1 Example SIMD.8.f90
S-1 module work
S-2
S-3 integer :: P(1000)
S-4 real :: A(1000)
S-5
S-6 contains
S-7 function do_work(arr) result(pri)
S-8 implicit none
S-9 real, dimension(*) :: arr
S-10
S-11 real :: pri
S-12 integer :: i, j
S-13
S-14 !$omp simd private(j) lastprivate(pri)
S-15 do i = 1, 999
S-16 j = P(i)
S-17
S-18 pri = 0.5
S-19 if (mod(j-1, 2) == 0) then
S-20 pri = A(j+1) + arr(i)
S-21 endif
S-22 A(j) = pri * 1.5
S-23 pri = pri + A(j)
S-24 end do
S-25
S-26 end function do_work
S-27
S-28 end module work
S-29

CHAPTER 5. SIMD 217

S-30 program simd_8f
S-31 use work
S-32 implicit none
S-33 real :: pri, arr(1000)
S-34 integer :: i
S-35
S-36 do i = 1, 1000
S-37 P(i) = i
S-38 A(i) = (i-1) * 1.5
S-39 arr(i) = (i-1) * 1.8
S-40 end do
S-41 pri = do_work(arr)
S-42 if (pri == 8237.25) then
S-43 print 2, "passed", pri
S-44 else
S-45 print 2, "failed", pri
S-46 endif
S-47 2 format(a, ": result pri = ", f7.2, " (8237.25)")
S-48
S-49 end program
Fortran

218 OpenMP Examples Version 5.0.0 - November 2019

1 CHAPTER 6

2 Synchronization

3 The barrier construct is a stand-alone directive that requires all threads of a team (within a
4 contention group) to execute the barrier and complete execution of all tasks within the region,
5 before continuing past the barrier.
6 The critical construct is a directive that contains a structured block. The construct allows only
7 a single thread at a time to execute the structured block (region). Multiple critical regions may exist
8 in a parallel region, and may act cooperatively (only one thread at a time in all critical regions),
9 or separately (only one thread at a time in each critical regions when a unique name is supplied
10 on each critical construct). An optional (lock) hint clause may be specified on a named
11 critical construct to provide the OpenMP runtime guidance in selection a locking mechanism.
12 On a finer scale the atomic construct allows only a single thread at a time to have atomic access to
13 a storage location involving a single read, write, update or capture statement, and a limited number
14 of combinations when specifying the capture atomic-clause clause. The atomic-clause clause is
15 required for some expression statements, but is not required for update statements. The
16 memory-order clause can be used to specify the degree of memory ordering enforced by an
17 atomic construct. From weakest to strongest, they are relaxed (the default), acquire and/or
18 release clauses (specified with acquire, release, or acq_rel), and seq_cst. Please see
19 the details in the atomic Construct subsection of the Directives chapter in the OpenMP
20 Specifications document.
21 The ordered construct either specifies a structured block in a loop, simd, or loop SIMD region
22 that will be executed in the order of the loop iterations. The ordered construct sequentializes and
23 orders the execution of ordered regions while allowing code outside the region to run in parallel.
24 Since OpenMP 4.5 the ordered construct can also be a stand-alone directive that specifies
25 cross-iteration dependences in a doacross loop nest. The depend clause uses a sink
26 dependence-type, along with a iteration vector argument (vec) to indicate the iteration that satisfies
27 the dependence. The depend clause with a source dependence-type specifies dependence
28 satisfaction.

219
 1 The flush directive is a stand-alone construct for enforcing consistency between a thread’s view
2 of memory and the view of memory for other threads (see the Memory Model chapter of this
3 document for more details). When the construct is used with an explicit variable list, a strong flush
4 that forces a thread’s temporary view of memory to be consistent with the actual memory is applied
5 to all listed variables. When the construct is used without an explicit variable list and without a
6 memory-order clause, a strong flush is applied to all locally thread-visible data as defined by the
7 base language, and additionally the construct provides both acquire and release memory ordering
8 semantics. When an explicit variable list is not present and a memory-order clause is present, the
9 construct provides acquire and/or release memory ordering semantics according to the
10 memory-order clause, but no strong flush is performed. A resulting strong flush that applies to a set
11 of variables effectively ensures that no memory (load or store) operation for the affected variables
12 may be reordered across the flush directive.
13 General-purpose routines provide mutual exclusion semantics through locks, represented by lock
14 variables. The semantics allows a task to set, and hence own a lock, until it is unset by the task that
15 set it. A nestable lock can be set multiple times by a task, and is used when in code requires nested
16 control of locks. A simple lock can only be set once by the owning task. There are specific calls for
17 the two types of locks, and the variable of a specific lock type cannot be used by the other lock type.
18 Any explicit task will observe the synchronization prescribed in a barrier construct and an
19 implied barrier. Also, additional synchronizations are available for tasks. All children of a task will
20 wait at a taskwait (for their siblings to complete). A taskgroup construct creates a region in
21 which the current task is suspended at the end of the region until all sibling tasks, and their
22 descendants, have completed. Scheduling constraints on task execution can be prescribed by the
23 depend clause to enforce dependence on previously generated tasks. More details on controlling
24 task executions can be found in the Tasking Chapter in the OpenMP Specifications document.

220 OpenMP Examples Version 5.0.0 - November 2019

1 6.1 The critical Construct
2 The following example includes several critical constructs. The example illustrates a queuing
3 model in which a task is dequeued and worked on. To guard against multiple threads dequeuing the
4 same task, the dequeuing operation must be in a critical region. Because the two queues in this
5 example are independent, they are protected by critical constructs with different names, xaxis
6 and yaxis.
C / C++
7 Example critical.1.c
S-1 int dequeue(float *a);
S-2 void work(int i, float *a);
S-3
S-4 void critical_example(float *x, float *y)
S-5 {
S-6 int ix_next, iy_next;
S-7
S-8 #pragma omp parallel shared(x, y) private(ix_next, iy_next)
S-9 {
S-10 #pragma omp critical (xaxis)
S-11 ix_next = dequeue(x);
S-12 work(ix_next, x);
S-13
S-14 #pragma omp critical (yaxis)
S-15 iy_next = dequeue(y);
S-16 work(iy_next, y);
S-17 }
S-18
S-19 }
C / C++
Fortran
8 Example critical.1.f
S-1 SUBROUTINE CRITICAL_EXAMPLE(X, Y)
S-2
S-3 REAL X(*), Y(*)
S-4 INTEGER IX_NEXT, IY_NEXT
S-5
S-6 !$OMP PARALLEL SHARED(X, Y) PRIVATE(IX_NEXT, IY_NEXT)
S-7
S-8 !$OMP CRITICAL(XAXIS)
S-9 CALL DEQUEUE(IX_NEXT, X)
S-10 !$OMP END CRITICAL(XAXIS)
S-11 CALL WORK(IX_NEXT, X)

CHAPTER 6. SYNCHRONIZATION 221

 S-12
S-13 !$OMP CRITICAL(YAXIS)
S-14 CALL DEQUEUE(IY_NEXT,Y)
S-15 !$OMP END CRITICAL(YAXIS)
S-16 CALL WORK(IY_NEXT, Y)
S-17
S-18 !$OMP END PARALLEL
S-19
S-20 END SUBROUTINE CRITICAL_EXAMPLE
Fortran
1 The following example extends the previous example by adding the hint clause to the critical
2 constructs.
C / C++
3 Example critical.2.c
S-1 #include <omp.h>
S-2
S-3 int dequeue(float *a);
S-4 void work(int i, float *a);
S-5
S-6 void critical_example(float *x, float *y)
S-7 {
S-8 int ix_next, iy_next;
S-9
S-10 #pragma omp parallel shared(x, y) private(ix_next, iy_next)
S-11 {
S-12 #pragma omp critical (xaxis) hint(omp_lock_hint_contended)
S-13 ix_next = dequeue(x);
S-14 work(ix_next, x);
S-15
S-16 #pragma omp critical (yaxis) hint(omp_lock_hint_contended)
S-17 iy_next = dequeue(y);
S-18 work(iy_next, y);
S-19 }
S-20
S-21 }
C / C++

222 OpenMP Examples Version 5.0.0 - November 2019

 Fortran
1 Example critical.2.f
S-1 SUBROUTINE CRITICAL_EXAMPLE(X, Y)
S-2 USE OMP_LIB ! or INCLUDE "omp_lib.h"
S-3
S-4 REAL X(*), Y(*)
S-5 INTEGER IX_NEXT, IY_NEXT
S-6
S-7 !$OMP PARALLEL SHARED(X, Y) PRIVATE(IX_NEXT, IY_NEXT)
S-8
S-9 !$OMP CRITICAL(XAXIS) HINT(OMP_LOCK_HINT_CONTENDED)
S-10 CALL DEQUEUE(IX_NEXT, X)
S-11 !$OMP END CRITICAL(XAXIS)
S-12 CALL WORK(IX_NEXT, X)
S-13
S-14 !$OMP CRITICAL(YAXIS) HINT(OMP_LOCK_HINT_CONTENDED)
S-15 CALL DEQUEUE(IY_NEXT,Y)
S-16 !$OMP END CRITICAL(YAXIS)
S-17 CALL WORK(IY_NEXT, Y)
S-18
S-19 !$OMP END PARALLEL
S-20
S-21 END SUBROUTINE CRITICAL_EXAMPLE
Fortran

CHAPTER 6. SYNCHRONIZATION 223

 1 6.2 Worksharing Constructs Inside a critical
2 Construct
3 The following example demonstrates using a worksharing construct inside a critical construct.
4 This example is conforming because the worksharing single region is not closely nested inside
5 the critical region. A single thread executes the one and only section in the sections
6 region, and executes the critical region. The same thread encounters the nested parallel
7 region, creates a new team of threads, and becomes the master of the new team. One of the threads
8 in the new team enters the single region and increments i by 1. At the end of this example i is
9 equal to 2.
C / C++
10 Example worksharing_critical.1.c
S-1 void critical_work()
S-2 {
S-3 int i = 1;
S-4 #pragma omp parallel sections
S-5 {
S-6 #pragma omp section
S-7 {
S-8 #pragma omp critical (name)
S-9 {
S-10 #pragma omp parallel
S-11 {
S-12 #pragma omp single
S-13 {
S-14 i++;
S-15 }
S-16 }
S-17 }
S-18 }
S-19 }
S-20 }
C / C++

224 OpenMP Examples Version 5.0.0 - November 2019

 Fortran
1 Example worksharing_critical.1.f
S-1 SUBROUTINE CRITICAL_WORK()
S-2
S-3 INTEGER I
S-4 I = 1
S-5
S-6 !$OMP PARALLEL SECTIONS
S-7 !$OMP SECTION
S-8 !$OMP CRITICAL (NAME)
S-9 !$OMP PARALLEL
S-10 !$OMP SINGLE
S-11 I = I + 1
S-12 !$OMP END SINGLE
S-13 !$OMP END PARALLEL
S-14 !$OMP END CRITICAL (NAME)
S-15 !$OMP END PARALLEL SECTIONS
S-16 END SUBROUTINE CRITICAL_WORK
Fortran

CHAPTER 6. SYNCHRONIZATION 225

 1 6.3 Binding of barrier Regions
2 The binding rules call for a barrier region to bind to the closest enclosing parallel region.
3 In the following example, the call from the main program to sub2 is conforming because the
4 barrier region (in sub3) binds to the parallel region in sub2. The call from the main
5 program to sub1 is conforming because the barrier region binds to the parallel region in
6 subroutine sub2.
7 The call from the main program to sub3 is conforming because the barrier region binds to the
8 implicit inactive parallel region enclosing the sequential part. Also note that the barrier
9 region in sub3 when called from sub2 only synchronizes the team of threads in the enclosing
10 parallel region and not all the threads created in sub1.
C / C++
11 Example barrier_regions.1.c
S-1 void work(int n) {}
S-2
S-3 void sub3(int n)
S-4 {
S-5 work(n);
S-6 #pragma omp barrier
S-7 work(n);
S-8 }
S-9
S-10 void sub2(int k)
S-11 {
S-12 #pragma omp parallel shared(k)
S-13 sub3(k);
S-14 }
S-15
S-16 void sub1(int n)
S-17 {
S-18 int i;
S-19 #pragma omp parallel private(i) shared(n)
S-20 {
S-21 #pragma omp for
S-22 for (i=0; i<n; i++)
S-23 sub2(i);
S-24 }
S-25 }
S-26
S-27 int main()
S-28 {
S-29 sub1(2);
S-30 sub2(2);

226 OpenMP Examples Version 5.0.0 - November 2019

 S-31 sub3(2);
S-32 return 0;
S-33 }
C / C++
Fortran
1 Example barrier_regions.1.f
S-1 SUBROUTINE WORK(N)
S-2 INTEGER N
S-3 END SUBROUTINE WORK
S-4
S-5 SUBROUTINE SUB3(N)
S-6 INTEGER N
S-7 CALL WORK(N)
S-8 !$OMP BARRIER
S-9 CALL WORK(N)
S-10 END SUBROUTINE SUB3
S-11
S-12 SUBROUTINE SUB2(K)
S-13 INTEGER K
S-14 !$OMP PARALLEL SHARED(K)
S-15 CALL SUB3(K)
S-16 !$OMP END PARALLEL
S-17 END SUBROUTINE SUB2
S-18
S-19
S-20 SUBROUTINE SUB1(N)
S-21 INTEGER N
S-22 INTEGER I
S-23 !$OMP PARALLEL PRIVATE(I) SHARED(N)
S-24 !$OMP DO
S-25 DO I = 1, N
S-26 CALL SUB2(I)
S-27 END DO
S-28 !$OMP END PARALLEL
S-29 END SUBROUTINE SUB1
S-30
S-31 PROGRAM EXAMPLE
S-32 CALL SUB1(2)
S-33 CALL SUB2(2)
S-34 CALL SUB3(2)
S-35 END PROGRAM EXAMPLE
Fortran

CHAPTER 6. SYNCHRONIZATION 227

1 6.4 The atomic Construct
2 The following example avoids race conditions (simultaneous updates of an element of x by multiple
3 threads) by using the atomic construct .
4 The advantage of using the atomic construct in this example is that it allows updates of two
5 different elements of x to occur in parallel. If a critical construct were used instead, then all
6 updates to elements of x would be executed serially (though not in any guaranteed order).
7 Note that the atomic directive applies only to the statement immediately following it. As a result,
8 elements of y are not updated atomically in this example.
C / C++
9 Example atomic.1.c
S-1 float work1(int i)
S-2 {
S-3 return 1.0 * i;
S-4 }
S-5
S-6 float work2(int i)
S-7 {
S-8 return 2.0 * i;
S-9 }
S-10
S-11 void atomic_example(float *x, float *y, int *index, int n)
S-12 {
S-13 int i;
S-14
S-15 #pragma omp parallel for shared(x, y, index, n)
S-16 for (i=0; i<n; i++) {
S-17 #pragma omp atomic update
S-18 x[index[i]] += work1(i);
S-19 y[i] += work2(i);
S-20 }
S-21 }
S-22
S-23 int main()
S-24 {
S-25 float x[1000];
S-26 float y[10000];
S-27 int index[10000];
S-28 int i;
S-29
S-30 for (i = 0; i < 10000; i++) {
S-31 index[i] = i % 1000;
S-32 y[i]=0.0;

228 OpenMP Examples Version 5.0.0 - November 2019

 S-33 }
S-34 for (i = 0; i < 1000; i++)
S-35 x[i] = 0.0;
S-36 atomic_example(x, y, index, 10000);
S-37 return 0;
S-38 }
C / C++
Fortran
1 Example atomic.1.f
S-1 REAL FUNCTION WORK1(I)
S-2 INTEGER I
S-3 WORK1 = 1.0 * I
S-4 RETURN
S-5 END FUNCTION WORK1
S-6
S-7 REAL FUNCTION WORK2(I)
S-8 INTEGER I
S-9 WORK2 = 2.0 * I
S-10 RETURN
S-11 END FUNCTION WORK2
S-12
S-13 SUBROUTINE SUB(X, Y, INDEX, N)
S-14 REAL X(*), Y(*)
S-15 INTEGER INDEX(*), N
S-16
S-17 INTEGER I
S-18
S-19 !$OMP PARALLEL DO SHARED(X, Y, INDEX, N)
S-20 DO I=1,N
S-21 !$OMP ATOMIC UPDATE
S-22 X(INDEX(I)) = X(INDEX(I)) + WORK1(I)
S-23 Y(I) = Y(I) + WORK2(I)
S-24 ENDDO
S-25
S-26 END SUBROUTINE SUB
S-27
S-28 PROGRAM ATOMIC_EXAMPLE
S-29 REAL X(1000), Y(10000)
S-30 INTEGER INDEX(10000)
S-31 INTEGER I
S-32
S-33 DO I=1,10000
S-34 INDEX(I) = MOD(I, 1000) + 1
S-35 Y(I) = 0.0
S-36 ENDDO

CHAPTER 6. SYNCHRONIZATION 229

 S-37
S-38 DO I = 1,1000
S-39 X(I) = 0.0
S-40 ENDDO
S-41
S-42 CALL SUB(X, Y, INDEX, 10000)
S-43
S-44 END PROGRAM ATOMIC_EXAMPLE
Fortran
1 The following example illustrates the read and write clauses for the atomic directive. These
2 clauses ensure that the given variable is read or written, respectively, as a whole. Otherwise, some
3 other thread might read or write part of the variable while the current thread was reading or writing
4 another part of the variable. Note that most hardware provides atomic reads and writes for some set
5 of properly aligned variables of specific sizes, but not necessarily for all the variable types
6 supported by the OpenMP API.
C / C++
7 Example atomic.2.c
S-1 int atomic_read(const int *p)
S-2 {
S-3 int value;
S-4 /* Guarantee that the entire value of *p is read atomically. No part of
S-5 * *p can change during the read operation.
S-6 */
S-7 #pragma omp atomic read
S-8 value = *p;
S-9 return value;
S-10 }
S-11
S-12 void atomic_write(int *p, int value)
S-13 {
S-14 /* Guarantee that value is stored atomically into *p. No part of *p can
S-15 change
S-16 * until after the entire write operation is completed.
S-17 */
S-18 #pragma omp atomic write
S-19 *p = value;
S-20 }
C / C++

230 OpenMP Examples Version 5.0.0 - November 2019

 Fortran
1 Example atomic.2.f
S-1 function atomic_read(p)
S-2 integer :: atomic_read
S-3 integer, intent(in) :: p
S-4 ! Guarantee that the entire value of p is read atomically. No part of
S-5 ! p can change during the read operation.
S-6
S-7 !$omp atomic read
S-8 atomic_read = p
S-9 return
S-10 end function atomic_read
S-11
S-12 subroutine atomic_write(p, value)
S-13 integer, intent(out) :: p
S-14 integer, intent(in) :: value
S-15 ! Guarantee that value is stored atomically into p. No part of p can change
S-16 ! until after the entire write operation is completed.
S-17 !$omp atomic write
S-18 p = value
S-19 end subroutine atomic_write
Fortran
2 The following example illustrates the capture clause for the atomic directive. In this case the
3 value of a variable is captured, and then the variable is incremented. These operations occur
4 atomically. This particular example could be implemented using the fetch-and-add instruction
5 available on many kinds of hardware. The example also shows a way to implement a spin lock
6 using the capture and read clauses.
C / C++
7 Example atomic.3.c
S-1 int fetch_and_add(int *p)
S-2 {
S-3 /* Atomically read the value of *p and then increment it. The previous value
S-4 is
S-5 * returned. This can be used to implement a simple lock as shown below.
S-6 */
S-7 int old;
S-8 #pragma omp atomic capture
S-9 { old = *p; (*p)++; }
S-10 return old;
S-11 }
S-12
S-13 /*

CHAPTER 6. SYNCHRONIZATION 231

 S-14 * Use fetch_and_add to implement a lock
S-15 */
S-16 struct locktype {
S-17 int ticketnumber;
S-18 int turn;
S-19 };
S-20 void do_locked_work(struct locktype *lock)
S-21 {
S-22 int atomic_read(const int *p);
S-23 void work();
S-24
S-25 // Obtain the lock
S-26 int myturn = fetch_and_add(&lock->ticketnumber);
S-27 while (atomic_read(&lock->turn) != myturn)
S-28 ;
S-29 // Do some work. The flush is needed to ensure visibility of
S-30 // variables not involved in atomic directives
S-31
S-32 #pragma omp flush
S-33 work();
S-34 #pragma omp flush
S-35 // Release the lock
S-36 fetch_and_add(&lock->turn);
S-37 }
C / C++
Fortran
1 Example atomic.3.f
S-1 function fetch_and_add(p)
S-2 integer:: fetch_and_add
S-3 integer, intent(inout) :: p
S-4
S-5 ! Atomically read the value of p and then increment it. The previous value is
S-6 ! returned. This can be used to implement a simple lock as shown below.
S-7 !$omp atomic capture
S-8 fetch_and_add = p
S-9 p = p + 1
S-10 !$omp end atomic
S-11 end function fetch_and_add
S-12 module m
S-13 interface
S-14 function fetch_and_add(p)
S-15 integer :: fetch_and_add
S-16 integer, intent(inout) :: p
S-17 end function
S-18 function atomic_read(p)

232 OpenMP Examples Version 5.0.0 - November 2019

S-19 integer :: atomic_read
S-20 integer, intent(in) :: p
S-21 end function
S-22 end interface
S-23 type locktype
S-24 integer ticketnumber
S-25 integer turn
S-26 end type
S-27 contains
S-28 subroutine do_locked_work(lock)
S-29 type(locktype), intent(inout) :: lock
S-30 integer myturn
S-31 integer junk
S-32 ! obtain the lock
S-33 myturn = fetch_and_add(lock%ticketnumber)
S-34 do while (atomic_read(lock%turn) .ne. myturn)
S-35 continue
S-36 enddo
S-37 ! Do some work. The flush is needed to ensure visibility of variables
S-38 ! not involved in atomic directives
S-39 !$omp flush
S-40 call work
S-41 !$omp flush
S-42 ! Release the lock
S-43 junk = fetch_and_add(lock%turn)
S-44 end subroutine
S-45 end module
Fortran

CHAPTER 6. SYNCHRONIZATION 233

1 6.5 Restrictions on the atomic Construct
2 The following non-conforming examples illustrate the restrictions on the atomic construct.
C / C++
3 Example atomic_restrict.1.c
S-1 void atomic_wrong ()
S-2 {
S-3 union {int n; float x;} u;
S-4
S-5 #pragma omp parallel
S-6 {
S-7 #pragma omp atomic update
S-8 u.n++;
S-9
S-10 #pragma omp atomic update
S-11 u.x += 1.0;
S-12
S-13 /* Incorrect because the atomic constructs reference the same location
S-14 through incompatible types */
S-15 }
S-16 }
C / C++
Fortran
4 Example atomic_restrict.1.f
S-1 SUBROUTINE ATOMIC_WRONG()
S-2 INTEGER:: I
S-3 REAL:: R
S-4 EQUIVALENCE(I,R)
S-5
S-6 !$OMP PARALLEL
S-7 !$OMP ATOMIC UPDATE
S-8 I = I + 1
S-9 !$OMP ATOMIC UPDATE
S-10 R = R + 1.0
S-11 ! incorrect because I and R reference the same location
S-12 ! but have different types
S-13 !$OMP END PARALLEL
S-14 END SUBROUTINE ATOMIC_WRONG
Fortran

234 OpenMP Examples Version 5.0.0 - November 2019

 C / C++
1 Example atomic_restrict.2.c
S-1 void atomic_wrong2 ()
S-2 {
S-3 int x;
S-4 int *i;
S-5 float *r;
S-6
S-7 i = &x;
S-8 r = (float *)&x;
S-9
S-10 #pragma omp parallel
S-11 {
S-12 #pragma omp atomic update
S-13 *i += 1;
S-14
S-15 #pragma omp atomic update
S-16 *r += 1.0;
S-17
S-18 /* Incorrect because the atomic constructs reference the same location
S-19 through incompatible types */
S-20
S-21 }
S-22 }
C / C++
Fortran
2 The following example is non-conforming because I and R reference the same location but have
3 different types.
4 Example atomic_restrict.2.f
S-1 SUBROUTINE SUB()
S-2 COMMON /BLK/ R
S-3 REAL R
S-4
S-5 !$OMP ATOMIC UPDATE
S-6 R = R + 1.0
S-7 END SUBROUTINE SUB
S-8
S-9 SUBROUTINE ATOMIC_WRONG2()
S-10 COMMON /BLK/ I
S-11 INTEGER I
S-12
S-13 !$OMP PARALLEL
S-14

CHAPTER 6. SYNCHRONIZATION 235

 S-15 !$OMP ATOMIC UPDATE
S-16 I = I + 1
S-17 CALL SUB()
S-18 !$OMP END PARALLEL
S-19 END SUBROUTINE ATOMIC_WRONG2

1 Although the following example might work on some implementations, this is also non-conforming:
2 Example atomic_restrict.3.f
S-1 SUBROUTINE ATOMIC_WRONG3
S-2 INTEGER:: I
S-3 REAL:: R
S-4 EQUIVALENCE(I,R)
S-5
S-6 !$OMP PARALLEL
S-7 !$OMP ATOMIC UPDATE
S-8 I = I + 1
S-9 ! incorrect because I and R reference the same location
S-10 ! but have different types
S-11 !$OMP END PARALLEL
S-12
S-13 !$OMP PARALLEL
S-14 !$OMP ATOMIC UPDATE
S-15 R = R + 1.0
S-16 ! incorrect because I and R reference the same location
S-17 ! but have different types
S-18 !$OMP END PARALLEL
S-19
S-20 END SUBROUTINE ATOMIC_WRONG3
Fortran

236 OpenMP Examples Version 5.0.0 - November 2019

1 6.6 The flush Construct without a List
2 The following example distinguishes the shared variables affected by a flush construct with no
3 list from the shared objects that are not affected:
C / C++
4 Example flush_nolist.1.c
S-1 int x, *p = &x;
S-2
S-3 void f1(int *q)
S-4 {
S-5 *q = 1;
S-6 #pragma omp flush
S-7 /* x, p, and *q are flushed */
S-8 /* because they are shared and accessible */
S-9 /* q is not flushed because it is not shared. */
S-10 }
S-11
S-12 void f2(int *q)
S-13 {
S-14 #pragma omp barrier
S-15 *q = 2;
S-16 #pragma omp barrier
S-17
S-18 /* a barrier implies a flush */
S-19 /* x, p, and *q are flushed */
S-20 /* because they are shared and accessible */
S-21 /* q is not flushed because it is not shared. */
S-22 }
S-23
S-24 int g(int n)
S-25 {
S-26 int i = 1, j, sum = 0;
S-27 *p = 1;
S-28 #pragma omp parallel reduction(+: sum) num_threads(10)
S-29 {
S-30 f1(&j);
S-31
S-32 /* i, n and sum were not flushed */
S-33 /* because they were not accessible in f1 */
S-34 /* j was flushed because it was accessible */
S-35 sum += j;
S-36
S-37 f2(&j);
S-38
S-39 /* i, n, and sum were not flushed */

CHAPTER 6. SYNCHRONIZATION 237

 S-40 /* because they were not accessible in f2 */
S-41 /* j was flushed because it was accessible */
S-42 sum += i + j + *p + n;
S-43 }
S-44 return sum;
S-45 }
S-46
S-47 int main()
S-48 {
S-49 int result = g(7);
S-50 return result;
S-51 }
C / C++
Fortran
1 Example flush_nolist.1.f
S-1 SUBROUTINE F1(Q)
S-2 COMMON /DATA/ X, P
S-3 INTEGER, TARGET :: X
S-4 INTEGER, POINTER :: P
S-5 INTEGER Q
S-6
S-7 Q = 1
S-8 !$OMP FLUSH
S-9 ! X, P and Q are flushed
S-10 ! because they are shared and accessible
S-11 END SUBROUTINE F1
S-12
S-13 SUBROUTINE F2(Q)
S-14 COMMON /DATA/ X, P
S-15 INTEGER, TARGET :: X
S-16 INTEGER, POINTER :: P
S-17 INTEGER Q
S-18
S-19 !$OMP BARRIER
S-20 Q = 2
S-21 !$OMP BARRIER
S-22 ! a barrier implies a flush
S-23 ! X, P and Q are flushed
S-24 ! because they are shared and accessible
S-25 END SUBROUTINE F2
S-26
S-27 INTEGER FUNCTION G(N)
S-28 COMMON /DATA/ X, P
S-29 INTEGER, TARGET :: X
S-30 INTEGER, POINTER :: P

238 OpenMP Examples Version 5.0.0 - November 2019

S-31 INTEGER N
S-32 INTEGER I, J, SUM
S-33
S-34 I = 1
S-35 SUM = 0
S-36 P = 1
S-37 !$OMP PARALLEL REDUCTION(+: SUM) NUM_THREADS(10)
S-38 CALL F1(J)
S-39 ! I, N and SUM were not flushed
S-40 ! because they were not accessible in F1
S-41 ! J was flushed because it was accessible
S-42 SUM = SUM + J
S-43
S-44 CALL F2(J)
S-45 ! I, N, and SUM were not flushed
S-46 ! because they were not accessible in f2
S-47 ! J was flushed because it was accessible
S-48 SUM = SUM + I + J + P + N
S-49 !$OMP END PARALLEL
S-50
S-51 G = SUM
S-52 END FUNCTION G
S-53
S-54 PROGRAM FLUSH_NOLIST
S-55 COMMON /DATA/ X, P
S-56 INTEGER, TARGET :: X
S-57 INTEGER, POINTER :: P
S-58 INTEGER RESULT, G
S-59
S-60 P => X
S-61 RESULT = G(7)
S-62 PRINT *, RESULT
S-63 END PROGRAM FLUSH_NOLIST
Fortran

CHAPTER 6. SYNCHRONIZATION 239

1 6.7 Synchronization Based on Acquire/Release
2 Semantics
3 As explained in the Memory Model chapter of this document, a flush operation may be an acquire
4 flush and/or a release flush, and OpenMP 5.0 defines acquire/release semantics in terms of these
5 fundamental flush operations. For any synchronization between two threads that is specified by
6 OpenMP, a release flush logically occurs at the source of the synchronization and an acquire flush
7 logically occurs at the sink of the synchronization. OpenMP 5.0 added memory ordering clauses –
8 acquire, release, and acq_rel – to the flush and atomic constructs for explicitly
9 requesting acquire/release semantics. Furthermore, implicit flushes for all OpenMP constructs and
10 runtime routines that synchronize OpenMP threads in some manner were redefined in terms of
11 synchronizing release and acquire flushes to avoid the requirement of strong memory fences (see
12 the Flush Synchronization and Happens Before and Implicit Flushes sections of the OpenMP
13 Specifications document).
14 The examples that follow in this section illustrate how acquire and release flushes may be
15 employed, implicitly or explicitly, for synchronizing threads. A flush directive without a list and
16 without any memory ordering clause can also function as both an acquire and release flush for
17 facilitating thread synchronization. Flushes implied on entry to, or exit from, an atomic operation
18 (specified by an atomic construct) may function as an acquire flush or a release flush if a memory
19 ordering clause appears on the construct. On entry to and exit from a critical construct there is
20 now an implicit acquire flush and release flush, respectively.
21 The first example illustrates how the release and acquire flushes implied by a critical region
22 guarantee a value written by the first thread is visible to a read of the value on the second thread.
23 Thread 0 writes to x and then executes a critical region in which it writes to y; the write to x
24 happens before the execution of the critical region, consistent with the program order of the
25 thread. Meanwhile, thread 1 executes a critical region in a loop until it reads a non-zero value
26 from y in the critical region, after which it prints the value of x; again, the execution of the
27 critical regions happen before the read from x based on the program order of the thread. The
28 critical regions executed by the two threads execute in a serial manner, with a pair-wise
29 synchronization from the exit of one critical region to the entry to the next critical region.
30 These pair-wise synchronizations result from the implicit release flushes that occur on exit from
31 critical regions and the implicit acquire flushes that occur on entry to critical regions;
32 hence, the execution of each critical region in the sequence happens before the execution of the
33 next critical region. A “happens before” order is therefore established between the assignment
34 to x by thread 0 and the read from x by thread 1, and so thread 1 must see that x equals 10.

240 OpenMP Examples Version 5.0.0 - November 2019

 C / C++
1 Example acquire_release.1.c
S-1
S-2 #include <stdio.h>
S-3 #include <omp.h>
S-4
S-5 int main()
S-6 {
S-7 int x = 0, y = 0;
S-8 #pragma omp parallel num_threads(2)
S-9 {
S-10 int thrd = omp_get_thread_num();
S-11 if (thrd == 0) {
S-12 x = 10;
S-13 #pragma omp critical
S-14 { y = 1; }
S-15 } else {
S-16 int tmp = 0;
S-17 while (tmp == 0) {
S-18 #pragma omp critical
S-19 { tmp = y; }
S-20 }
S-21 printf("x = %d\n", x); // always "x = 10"
S-22 }
S-23 }
S-24 return 0;
S-25 }
C / C++
Fortran
2 Example acquire_release.1.f90
S-1
S-2 program rel_acq_ex1
S-3 use omp_lib
S-4 integer :: x, y, thrd, tmp
S-5 x = 0
S-6 y = 0
S-7 !$omp parallel num_threads(2) private(thrd, tmp)
S-8 thrd = omp_get_thread_num()
S-9 if (thrd == 0) then
S-10 x = 10
S-11 !$omp critical
S-12 y = 1
S-13 !$omp end critical
S-14 else

CHAPTER 6. SYNCHRONIZATION 241

 S-15 tmp = 0
S-16 do while (tmp == 0)
S-17 !$omp critical
S-18 tmp = y
S-19 !$omp end critical
S-20 end do
S-21 print *, "x = ", x !! always "x = 10"
S-22 end if
S-23 !$omp end parallel
S-24 end program
Fortran
1 In the second example, the critical constructs are exchanged with atomic constructs that have
2 explicit memory ordering specified. When the atomic read operation on thread 1 reads a non-zero
3 value from y, this results in a release/acquire synchronization that in turn implies that the
4 assignment to x on thread 0 happens before the read of x on thread 1. Therefore, thread 1 will print
5 “x = 10”.
C / C++
6 Example acquire_release.2.c
S-1
S-2 #include <stdio.h>
S-3 #include <omp.h>
S-4
S-5 int main()
S-6 {
S-7 int x = 0, y = 0;
S-8 #pragma omp parallel num_threads(2)
S-9 {
S-10 int thrd = omp_get_thread_num();
S-11 if (thrd == 0) {
S-12 x = 10;
S-13 #pragma omp atomic write release // or seq_cst
S-14 y = 1;
S-15 } else {
S-16 int tmp = 0;
S-17 while (tmp == 0) {
S-18 #pragma omp atomic read acquire // or seq_cst
S-19 tmp = y;
S-20 }
S-21 printf("x = %d\n", x); // always "x = 10"
S-22 }
S-23 }
S-24 return 0;
S-25 }
C / C++

242 OpenMP Examples Version 5.0.0 - November 2019

 Fortran
1 Example acquire_release.2.f90
S-1
S-2 program rel_acq_ex2
S-3 use omp_lib
S-4 integer :: x, y, thrd, tmp
S-5 x = 0
S-6 y = 0
S-7 !$omp parallel num_threads(2) private(thrd, tmp)
S-8 thrd = omp_get_thread_num()
S-9 if (thrd == 0) then
S-10 x = 10
S-11 !$omp atomic write release ! or seq_cst
S-12 y = 1
S-13 !$omp end atomic
S-14 else
S-15 tmp = 0
S-16 do while (tmp == 0)
S-17 !$omp atomic read acquire ! or seq_cst
S-18 tmp = y
S-19 !$omp end atomic
S-20 end do
S-21 print *, "x = ", x !! always "x = 10"
S-22 end if
S-23 !$omp end parallel
S-24 end program
Fortran

CHAPTER 6. SYNCHRONIZATION 243

1 In the third example, atomic constructs that specify relaxed atomic operations are used with
2 explicit flush directives to enforce memory ordering between the two threads. The explicit
3 flush directive on thread 0 must specify a release flush and the explicit flush directive on
4 thread 1 must specify an acquire flush to establish a release/acquire synchronization between the
5 two threads. The flush and atomic constructs encountered by thread 0 can be replaced by the
6 atomic construct used in Example 2 for thread 0, and similarly the flush and atomic
7 constructs encountered by thread 1 can be replaced by the atomic construct used in Example 2 for
8 thread 1.
C / C++
9 Example acquire_release.3.c
S-1
S-2 #include <stdio.h>
S-3 #include <omp.h>
S-4
S-5 int main()
S-6 {
S-7 int x = 0, y = 0;
S-8 #pragma omp parallel num_threads(2)
S-9 {
S-10 int thrd = omp_get_thread_num();
S-11 if (thrd == 0) {
S-12 x = 10;
S-13 #pragma omp flush // or with acq_rel or release clause
S-14 #pragma omp atomic write // or with relaxed clause
S-15 y = 1;
S-16 } else {
S-17 int tmp = 0;
S-18 while (tmp == 0) {
S-19 #pragma omp atomic read // or with relaxed clause
S-20 tmp = y;
S-21 }
S-22 #pragma omp flush // or with acq_rel or acquire clause
S-23 printf("x = %d\n", x); // always "x = 10"
S-24 }
S-25 }
S-26 return 0;
S-27 }
C / C++

244 OpenMP Examples Version 5.0.0 - November 2019

 Fortran
1 Example acquire_release.3.f90
S-1
S-2 program rel_acq_ex3
S-3 use omp_lib
S-4 integer :: x, y, thrd, tmp
S-5 x = 0
S-6 y = 0
S-7 !$omp parallel num_threads(2) private(thrd, tmp)
S-8 thrd = omp_get_thread_num()
S-9 if (thrd == 0) then
S-10 x = 10
S-11 !$omp flush ! or with acq_rel or release clause
S-12 !$omp atomic write
S-13 y = 1
S-14 !$omp end atomic
S-15 else
S-16 tmp = 0
S-17 do while (tmp == 0)
S-18 !$omp atomic read
S-19 tmp = y
S-20 !$omp end atomic
S-21 end do
S-22 !$omp flush ! or with acq_rel or acquire clause
S-23 print *, "x = ", x !! always "x = 10"
S-24 end if
S-25 !$omp end parallel
S-26 end program
Fortran
2 Example 4 will fail to order the write to x on thread 0 before the read from x on thread 1.
3 Importantly, the implicit release flush on exit from the critical region will not synchronize with
4 the acquire flush that occurs on the atomic read operation performed by thread 1. This is because
5 implicit release flushes that occur on a given construct may only synchronize with implicit acquire
6 flushes on a compatible construct (and vice-versa) that internally makes use of the same
7 synchronization variable. For a critical construct, this might correspond to a lock object that is
8 used by a given implementation (for the synchronization semantics of other constructs due to
9 implicit release and acquire flushes, refer to the Implicit Flushes section of the OpenMP
10 Specifications document). Either an explicit flush directive that provides a release flush (i.e., a
11 flush without a list that does not have the acquire clause) must be specified between the
12 critical construct and the atomic write, or an atomic operation that modifies y and provides
13 release semantics must be specified.

CHAPTER 6. SYNCHRONIZATION 245

 C / C++
1 Example acquire_release_broke.4.c
S-1
S-2 #include <stdio.h>
S-3 #include <omp.h>
S-4
S-5 int main()
S-6 {
S-7
S-8 // !!! THIS CODE WILL FAIL TO PRODUCE CONSISTENT RESULTS !!!!!!!
S-9 // !!! DO NOT PROGRAM SYNCHRONIZATION THIS WAY !!!!!!!
S-10
S-11 int x = 0, y;
S-12 #pragma omp parallel num_threads(2)
S-13 {
S-14 int thrd = omp_get_thread_num();
S-15 if (thrd == 0) {
S-16 #pragma omp critical
S-17 { x = 10; }
S-18 // an explicit flush directive that provides
S-19 // release semantics is needed here
S-20 // to complete the synchronization.
S-21 #pragma omp atomic write
S-22 y = 1;
S-23 } else {
S-24 int tmp = 0;
S-25 while (tmp == 0) {
S-26 #pragma omp atomic read acquire // or seq_cst
S-27 tmp = y;
S-28 }
S-29 #pragma omp critical
S-30 { printf("x = %d\n", x); } // !! NOT ALWAYS 10
S-31 }
S-32 }
S-33 return 0;
S-34 }
C / C++

246 OpenMP Examples Version 5.0.0 - November 2019

 Fortran
1 Example acquire_release_broke.4.f90
S-1
S-2 program rel_acq_ex4
S-3 use omp_lib
S-4 integer :: x, y, thrd
S-5 integer :: tmp
S-6 x = 0
S-7
S-8 !! !!! THIS CODE WILL FAIL TO PRODUCE CONSISTENT RESULTS !!!!!!!
S-9 !! !!! DO NOT PROGRAM SYNCHRONIZATION THIS WAY !!!!!!!
S-10
S-11 !$omp parallel num_threads private(thrd) private(tmp)
S-12 thrd = omp_get_thread_num()
S-13 if (thrd == 0) then
S-14 !$omp critical
S-15 x = 10
S-16 !$omp end critical
S-17 ! an explicit flush directive that provides
S-18 ! release semantics is needed here to
S-19 ! complete the synchronization.
S-20 !$omp atomic write
S-21 y = 1
S-22 !$omp end atomic
S-23 else
S-24 tmp = 0
S-25 do while(tmp == 0)
S-26 !$omp atomic read acquire ! or seq_cst
S-27 tmp = x
S-28 !$omp end atomic
S-29 end do
S-30 !$omp critical
S-31 print *, "x = ", x !! !! NOT ALWAYS 10
S-32 !$omp end critical
S-33 end if
S-34 !$omp end parallel
S-35 end program
Fortran

CHAPTER 6. SYNCHRONIZATION 247

1 6.8 The ordered Clause and the ordered Construct
2 Ordered constructs are useful for sequentially ordering the output from work that is done in
3 parallel. The following program prints out the indices in sequential order:
C / C++
4 Example ordered.1.c
S-1 #include <stdio.h>
S-2
S-3 void work(int k)
S-4 {
S-5 #pragma omp ordered
S-6 printf(" %d\n", k);
S-7 }
S-8
S-9 void ordered_example(int lb, int ub, int stride)
S-10 {
S-11 int i;
S-12
S-13 #pragma omp parallel for ordered schedule(dynamic)
S-14 for (i=lb; i<ub; i+=stride)
S-15 work(i);
S-16 }
S-17
S-18 int main()
S-19 {
S-20 ordered_example(0, 100, 5);
S-21 return 0;
S-22 }
C / C++
Fortran
5 Example ordered.1.f
S-1 SUBROUTINE WORK(K)
S-2 INTEGER k
S-3
S-4 !$OMP ORDERED
S-5 WRITE(*,*) K
S-6 !$OMP END ORDERED
S-7
S-8 END SUBROUTINE WORK
S-9
S-10 SUBROUTINE SUB(LB, UB, STRIDE)
S-11 INTEGER LB, UB, STRIDE
S-12 INTEGER I

248 OpenMP Examples Version 5.0.0 - November 2019

 S-13
S-14 !$OMP PARALLEL DO ORDERED SCHEDULE(DYNAMIC)
S-15 DO I=LB,UB,STRIDE
S-16 CALL WORK(I)
S-17 END DO
S-18 !$OMP END PARALLEL DO
S-19
S-20 END SUBROUTINE SUB
S-21
S-22 PROGRAM ORDERED_EXAMPLE
S-23 CALL SUB(1,100,5)
S-24 END PROGRAM ORDERED_EXAMPLE
Fortran
1 It is possible to have multiple ordered constructs within a loop region with the ordered clause
2 specified. The first example is non-conforming because all iterations execute two ordered
3 regions. An iteration of a loop must not execute more than one ordered region:
C / C++
4 Example ordered.2.c
S-1 void work(int i) {}
S-2
S-3 void ordered_wrong(int n)
S-4 {
S-5 int i;
S-6 #pragma omp for ordered
S-7 for (i=0; i<n; i++) {
S-8 /* incorrect because an iteration may not execute more than one
S-9 ordered region */
S-10 #pragma omp ordered
S-11 work(i);
S-12 #pragma omp ordered
S-13 work(i+1);
S-14 }
S-15 }
C / C++

CHAPTER 6. SYNCHRONIZATION 249

 Fortran
1 Example ordered.2.f
S-1 SUBROUTINE WORK(I)
S-2 INTEGER I
S-3 END SUBROUTINE WORK
S-4
S-5 SUBROUTINE ORDERED_WRONG(N)
S-6 INTEGER N
S-7
S-8 INTEGER I
S-9 !$OMP DO ORDERED
S-10 DO I = 1, N
S-11 ! incorrect because an iteration may not execute more than one
S-12 ! ordered region
S-13 !$OMP ORDERED
S-14 CALL WORK(I)
S-15 !$OMP END ORDERED
S-16
S-17 !$OMP ORDERED
S-18 CALL WORK(I+1)
S-19 !$OMP END ORDERED
S-20 END DO
S-21 END SUBROUTINE ORDERED_WRONG
Fortran
2 The following is a conforming example with more than one ordered construct. Each iteration
3 will execute only one ordered region:
C / C++
4 Example ordered.3.c
S-1 void work(int i) {}
S-2 void ordered_good(int n)
S-3 {
S-4 int i;
S-5 #pragma omp for ordered
S-6 for (i=0; i<n; i++) {
S-7 if (i <= 10) {
S-8 #pragma omp ordered
S-9 work(i);
S-10 }
S-11 if (i > 10) {
S-12 #pragma omp ordered
S-13 work(i+1);
S-14 }

250 OpenMP Examples Version 5.0.0 - November 2019

 S-15 }
S-16 }
C / C++
Fortran
1 Example ordered.3.f
S-1 SUBROUTINE ORDERED_GOOD(N)
S-2 INTEGER N
S-3
S-4 !$OMP DO ORDERED
S-5 DO I = 1,N
S-6 IF (I <= 10) THEN
S-7 !$OMP ORDERED
S-8 CALL WORK(I)
S-9 !$OMP END ORDERED
S-10 ENDIF
S-11
S-12 IF (I > 10) THEN
S-13 !$OMP ORDERED
S-14 CALL WORK(I+1)
S-15 !$OMP END ORDERED
S-16 ENDIF
S-17 ENDDO
S-18 END SUBROUTINE ORDERED_GOOD
Fortran

CHAPTER 6. SYNCHRONIZATION 251

 1 6.9 The depobj Construct
2 The stand-alone depobj construct provides a mechanism to create a depend object that expresses
3 a dependence to be used subsequently in the depend clause of another construct. The dependence
4 is created from a dependence type and a storage location, within a depend clause of an depobj
5 construct; and it is stored in the depend object. The depend object is represented by a variable of
6 type omp_depend_t in C/C++ (by a scalar variable of integer kind omp_depend_kind in
7 Fortran).
8 In the example below the stand-alone depobj construct uses the depend, update and
9 destroy clauses to initialize, update and uninitialize a depend object (obj).
10 The first depobj construct initializes the obj depend object with an inout dependence type
11 with a storage location defined by variable a. This dependence is passed into the driver routine via
12 the obj depend object.
13 In the first driver routine call, Task 1 uses the dependence of the object (inout), while Task 2 uses
14 an in dependence specified directly in a depend clause. For these task dependences Task 1 must
15 execute and complete before Task 2 begins.
16 Before the second call to driver, obj is updated using the depobj construct to represent an in
17 dependence. Hence, in the second call to driver, Task 1 will have an in dependence; and Task 1
18 and Task 2 can execute simultaneously. Note: in an update clause, only the dependence type can
19 be (is) updated.
20 The third depobj construct uses the destroy clause. It frees resources as it puts the depend
21 object in an uninitialized state– effectively destroying the depend object. After an object has been
22 uninitialized it can be initialized again with a new dependence type and a new variable.
C / C++
23 Example depobj.1.c
S-1
S-2 #include <stdio.h>
S-3 #include <omp.h>
S-4
S-5 #define N 100
S-6 #define TRUE 1
S-7 #define FALSE 0
S-8
S-9 void driver(int update, float a[], float b[], int n, omp_depend_t *obj);
S-10
S-11 void update_copy(int update, float a[], float b[], int n);
S-12 void checkpoint(float a[],int n);
S-13 void init(float a[], int n);
S-14
S-15

252 OpenMP Examples Version 5.0.0 - November 2019

S-16 int main(){
S-17
S-18 float a[N],b[N];
S-19 omp_depend_t obj;
S-20
S-21 init(a, N);
S-22
S-23 #pragma omp depobj(obj) depend(inout: a)
S-24
S-25 driver(TRUE, a,b,N, &obj); // updating a occurs
S-26
S-27 #pragma omp depobj(obj) update(in)
S-28
S-29 driver(FALSE, a,b,N, &obj); // no updating of a
S-30
S-31 #pragma omp depobj(obj) destroy // obj is set to uninitilized state,
S-32 // resources are freed
S-33 return 0;
S-34
S-35 }
S-36
S-37 void driver(int update, float a[], float b[], int n, omp_depend_t *obj)
S-38 {
S-39 #pragma omp parallel num_threads(2)
S-40 #pragma omp single
S-41 {
S-42
S-43 #pragma omp task depend(depobj: *obj) // Task 1, uses depend object
S-44 update_copy(update, a,b,n); // update a or not, always copy a to b
S-45
S-46 #pragma omp task depend(in: a[:n]) // Task 2, only read a
S-47 checkpoint(a,n);
S-48
S-49 }
S-50 }
S-51
S-52 void update_copy(int update, float a[], float b[], int n)
S-53 {
S-54 if(update) for(int i=0;i<n;i++) a[i]+=1.0f;
S-55
S-56 for(int i=0;i<n;i++) b[i]=a[i];
S-57 }
S-58
S-59 void checkpoint(float a[], int n)
S-60 {
S-61 for(int i=0;i<n;i++) printf(" %f ",a[i]);
S-62 printf("\n");

CHAPTER 6. SYNCHRONIZATION 253

 S-63 }
S-64
S-65 void init(float a[], int n)
S-66 {
S-67 for(int i=0;i<n;i++) a[i]=i;
S-68 }
S-69
C / C++
Fortran
1 Example depobj.1.f90
S-1 program main
S-2 use omp_lib
S-3 implicit none
S-4
S-5 integer,parameter :: N=100
S-6 real :: a(N),b(N)
S-7 integer(omp_depend_kind) :: obj
S-8
S-9 call init(a, N)
S-10
S-11 !$omp depobj(obj) depend(inout: a)
S-12
S-13 call driver(.true., a,b,N, obj) !! updating occurs
S-14
S-15 !$omp depobj(obj) update(in)
S-16
S-17 call driver(.false., a,b,N, obj) !! no updating
S-18
S-19 !$omp depobj(obj) destroy !! obj is set to uninitilized state,
S-20 !! resources are freed
S-21
S-22 end program
S-23
S-24 subroutine driver(update, a, b, n, obj)
S-25 use omp_lib
S-26 implicit none
S-27 logical :: update
S-28 real :: a(n), b(n)
S-29 integer :: n
S-30 integer(omp_depend_kind) :: obj
S-31
S-32 !$omp parallel num_threads(2)
S-33
S-34 !$omp single
S-35

254 OpenMP Examples Version 5.0.0 - November 2019

S-36 !$omp task depend(depobj: obj) !! Task 1, uses depend object
S-37 call update_copy(update, a,b,n) !! update a or not, always copy a to b
S-38 !$omp end task
S-39
S-40 !$omp task depend(in: a) !! Task 2, only read a
S-41 call checkpoint(a,n)
S-42 !$omp end task
S-43
S-44 !$omp end single
S-45
S-46 !$omp end parallel
S-47
S-48 end subroutine
S-49
S-50 subroutine update_copy(update, a, b, n)
S-51 implicit none
S-52 logical :: update
S-53 real :: a(n), b(n)
S-54 integer :: n
S-55
S-56 if (update) a = a + 1.0
S-57
S-58 b = a
S-59
S-60 end subroutine
S-61
S-62 subroutine checkpoint( a, n)
S-63 implicit none
S-64 integer :: n
S-65 real :: a(n)
S-66 integer :: i
S-67
S-68 write(*,’( *(f5.0) )’) (a(i), i=1,n)
S-69 end subroutine
S-70
S-71 subroutine init(a,n)
S-72 implicit none
S-73 integer :: n
S-74 real :: a(n)
S-75 integer :: i
S-76
S-77 a=[ (i, i=1,n) ]
S-78 end subroutine
Fortran

CHAPTER 6. SYNCHRONIZATION 255

 1 6.10 Doacross Loop Nest
2 An ordered clause can be used on a loop construct with an integer parameter argument to define
3 the number of associated loops within a doacross loop nest where cross-iteration dependences
4 exist. A depend clause on an ordered construct within an ordered loop describes the
5 dependences of the doacross loops.
6 In the code below, the depend(sink:i-1) clause defines an i-1 to i cross-iteration dependence
7 that specifies a wait point for the completion of computation from iteration i-1 before proceeding to
8 the subsequent statements. The depend(source) clause indicates the completion of
9 computation from the current iteration (i) to satisfy the cross-iteration dependence that arises from
10 the iteration. For this example the same sequential ordering could have been achieved with an
11 ordered clause without a parameter, on the loop directive, and a single ordered directive
12 without the depend clause specified for the statement executing the bar function.
C / C++
13 Example doacross.1.c
S-1 float foo(int i);
S-2 float bar(float a, float b);
S-3 float baz(float b);
S-4
S-5 void work( int N, float *A, float *B, float *C )
S-6 {
S-7 int i;
S-8
S-9 #pragma omp for ordered(1)
S-10 for (i=1; i<N; i++)
S-11 {
S-12 A[i] = foo(i);
S-13
S-14 #pragma omp ordered depend(sink: i-1)
S-15 B[i] = bar(A[i], B[i-1]);
S-16 #pragma omp ordered depend(source)
S-17
S-18 C[i] = baz(B[i]);
S-19 }
S-20 }
C / C++

256 OpenMP Examples Version 5.0.0 - November 2019

 Fortran
1 Example doacross.1.f90
S-1 subroutine work( N, A, B, C )
S-2 integer :: N, i
S-3 real, dimension(N) :: A, B, C
S-4 real, external :: foo, bar, baz
S-5
S-6 !$omp do ordered(1)
S-7 do i=2, N
S-8 A(i) = foo(i)
S-9
S-10 !$omp ordered depend(sink: i-1)
S-11 B(i) = bar(A(i), B(i-1))
S-12 !$omp ordered depend(source)
S-13
S-14 C(i) = baz(B(i))
S-15 end do
S-16 end subroutine
Fortran
2 The following code is similar to the previous example but with doacross loop nest extended to two
3 nested loops, i and j, as specified by the ordered(2) clause on the loop directive. In the C/C++
4 code, the i and j loops are the first and second associated loops, respectively, whereas in the Fortran
5 code, the j and i loops are the first and second associated loops, respectively. The
6 depend(sink:i-1,j) and depend(sink:i,j-1) clauses in the C/C++ code define
7 cross-iteration dependences in two dimensions from iterations (i-1, j) and (i, j-1) to iteration (i, j).
8 Likewise, the depend(sink:j-1,i) and depend(sink:j,i-1) clauses in the Fortran
9 code define cross-iteration dependences from iterations (j-1, i) and (j, i-1) to iteration (j, i).
C / C++
10 Example doacross.2.c
S-1 float foo(int i, int j);
S-2 float bar(float a, float b, float c);
S-3 float baz(float b);
S-4
S-5 void work( int N, int M, float **A, float **B, float **C )
S-6 {
S-7 int i, j;
S-8
S-9 #pragma omp for ordered(2)
S-10 for (i=1; i<N; i++)
S-11 {
S-12 for (j=1; j<M; j++)
S-13 {

CHAPTER 6. SYNCHRONIZATION 257

 S-14 A[i][j] = foo(i, j);
S-15
S-16 #pragma omp ordered depend(sink: i-1,j) depend(sink: i,j-1)
S-17 B[i][j] = bar(A[i][j], B[i-1][j], B[i][j-1]);
S-18 #pragma omp ordered depend(source)
S-19
S-20 C[i][j] = baz(B[i][j]);
S-21 }
S-22 }
S-23 }
C / C++
Fortran
1 Example doacross.2.f90
S-1 subroutine work( N, M, A, B, C )
S-2 integer :: N, M, i, j
S-3 real, dimension(M,N) :: A, B, C
S-4 real, external :: foo, bar, baz
S-5
S-6 !$omp do ordered(2)
S-7 do j=2, N
S-8 do i=2, M
S-9 A(i,j) = foo(i, j)
S-10
S-11 !$omp ordered depend(sink: j-1,i) depend(sink: j,i-1)
S-12 B(i,j) = bar(A(i,j), B(i-1,j), B(i,j-1))
S-13 !$omp ordered depend(source)
S-14
S-15 C(i,j) = baz(B(i,j))
S-16 end do
S-17 end do
S-18 end subroutine
Fortran
2 The following example shows the incorrect use of the ordered directive with a depend clause.
3 There are two issues with the code. The first issue is a missing ordered depend(source)
4 directive, which could cause a deadlock. The second issue is the depend(sink:i+1,j) and
5 depend(sink:i,j+1) clauses define dependences on lexicographically later source iterations
6 (i+1, j) and (i, j+1), which could cause a deadlock as well since they may not start to execute until
7 the current iteration completes.

258 OpenMP Examples Version 5.0.0 - November 2019

 C / C++
1 Example doacross.3.c
S-1 #define N 100
S-2
S-3 void work_wrong(double p[][N][N])
S-4 {
S-5 int i, j, k;
S-6
S-7 #pragma omp parallel for ordered(2) private(i,j,k)
S-8 for (i=1; i<N-1; i++)
S-9 {
S-10 for (j=1; j<N-1; j++)
S-11 {
S-12 #pragma omp ordered depend(sink: i-1,j) depend(sink: i+1,j) \
S-13 depend(sink: i,j-1) depend(sink: i,j+1)
S-14 for (k=1; k<N-1; k++)
S-15 {
S-16 double tmp1 = p[i-1][j][k] + p[i+1][j][k];
S-17 double tmp2 = p[i][j-1][k] + p[i][j+1][k];
S-18 double tmp3 = p[i][j][k-1] + p[i][j][k+1];
S-19 p[i][j][k] = (tmp1 + tmp2 + tmp3) / 6.0;
S-20 }
S-21 /* missing #pragma omp ordered depend(source) */
S-22 }
S-23 }
S-24 }
C / C++
Fortran
2 Example doacross.3.f90
S-1 subroutine work_wrong(N, p)
S-2 integer :: N
S-3 real(8), dimension(N,N,N) :: p
S-4 integer :: i, j, k
S-5 real(8) :: tmp1, tmp2, tmp3
S-6
S-7 !$omp parallel do ordered(2) private(i,j,k,tmp1,tmp2,tmp3)
S-8 do i=2, N-1
S-9 do j=2, N-1
S-10 !$omp ordered depend(sink: i-1,j) depend(sink: i+1,j) &
S-11 !$omp& depend(sink: i,j-1) depend(sink: i,j+1)
S-12 do k=2, N-1
S-13 tmp1 = p(k-1,j,i) + p(k+1,j,i)
S-14 tmp2 = p(k,j-1,i) + p(k,j+1,i)
S-15 tmp3 = p(k,j,i-1) + p(k,j,i+1)

CHAPTER 6. SYNCHRONIZATION 259

 S-16 p(k,j,i) = (tmp1 + tmp2 + tmp3) / 6.0
S-17 end do
S-18 ! missing !$omp ordered depend(source)
S-19 end do
S-20 end do
S-21 end subroutine
Fortran
1 The following example illustrates the use of the collapse clause for a doacross loop nest. The i
2 and j loops are the associated loops for the collapsed loop as well as for the doacross loop nest. The
3 example also shows a compliant usage of the dependence source directive placed before the
4 corresponding sink directive. Checking the completion of computation from previous iterations at
5 the sink point can occur after the source statement.
C / C++
6 Example doacross.4.c
S-1 double foo(int i, int j);
S-2
S-3 void work( int N, int M, double **A, double **B, double **C )
S-4 {
S-5 int i, j;
S-6 double alpha = 1.2;
S-7
S-8 #pragma omp for collapse(2) ordered(2)
S-9 for (i = 1; i < N-1; i++)
S-10 {
S-11 for (j = 1; j < M-1; j++)
S-12 {
S-13 A[i][j] = foo(i, j);
S-14 #pragma omp ordered depend(source)
S-15
S-16 B[i][j] = alpha * A[i][j];
S-17
S-18 #pragma omp ordered depend(sink: i-1,j) depend(sink: i,j-1)
S-19 C[i][j] = 0.2 * (A[i-1][j] + A[i+1][j] +
S-20 A[i][j-1] + A[i][j+1] + A[i][j]);
S-21 }
S-22 }
S-23 }
C / C++

260 OpenMP Examples Version 5.0.0 - November 2019

 Fortran
1 Example doacross.4.f90
S-1 subroutine work( N, M, A, B, C )
S-2 integer :: N, M
S-3 real(8), dimension(M, N) :: A, B, C
S-4 real(8), external :: foo
S-5 integer :: i, j
S-6 real(8) :: alpha = 1.2
S-7
S-8 !$omp do collapse(2) ordered(2)
S-9 do j=2, N-1
S-10 do i=2, M-1
S-11 A(i,j) = foo(i, j)
S-12 !$omp ordered depend(source)
S-13
S-14 B(i,j) = alpha * A(i,j)
S-15
S-16 !$omp ordered depend(sink: j,i-1) depend(sink: j-1,i)
S-17 C(i,j) = 0.2 * (A(i-1,j) + A(i+1,j) + &
S-18 A(i,j-1) + A(i,j+1) + A(i,j))
S-19 end do
S-20 end do
S-21 end subroutine
Fortran

CHAPTER 6. SYNCHRONIZATION 261

1 6.11 Lock Routines
2 This section is about the use of lock routines for synchronization.

3 6.11.1 The omp_init_lock Routine

4 The following example demonstrates how to initialize an array of locks in a parallel region by
5 using omp_init_lock.
C++
6 Example init_lock.1.cpp
S-1 #include <omp.h>
S-2
S-3 omp_lock_t *new_locks() {
S-4 int i;
S-5 omp_lock_t *lock = new omp_lock_t[1000];
S-6
S-7 #pragma omp parallel for private(i)
S-8 for (i=0; i<1000; i++)
S-9 { omp_init_lock(&lock[i]); }
S-10
S-11 return lock;
S-12 }
C++

Fortran
7 Example init_lock.1.f
S-1 FUNCTION NEW_LOCKS()
S-2 USE OMP_LIB ! or INCLUDE "omp_lib.h"
S-3 INTEGER(OMP_LOCK_KIND), DIMENSION(1000) :: NEW_LOCKS
S-4 INTEGER I
S-5
S-6 !$OMP PARALLEL DO PRIVATE(I)
S-7 DO I=1,1000
S-8 CALL OMP_INIT_LOCK(NEW_LOCKS(I))
S-9 END DO
S-10 !$OMP END PARALLEL DO
S-11
S-12 END FUNCTION NEW_LOCKS
Fortran

262 OpenMP Examples Version 5.0.0 - November 2019

1 6.11.2 The omp_init_lock_with_hint Routine
2 The following example demonstrates how to initialize an array of locks in a parallel region by
3 using omp_init_lock_with_hint. Note, hints are combined with an | or + operator in
4 C/C++ and a + operator in Fortran.
C++
5 Example init_lock_with_hint.1.cpp
S-1 #include <omp.h>
S-2
S-3 omp_lock_t *new_locks()
S-4 {
S-5 int i;
S-6 omp_lock_t *lock = new omp_lock_t[1000];
S-7
S-8 #pragma omp parallel for private(i)
S-9 for (i=0; i<1000; i++)
S-10 {
S-11 omp_init_lock_with_hint(&lock[i],
S-12 static_cast<omp_lock_hint_t>(omp_lock_hint_contended |
S-13 omp_lock_hint_speculative));
S-14 }
S-15 return lock;
S-16 }
C++

Fortran
6 Example init_lock_with_hint.1.f
S-1 FUNCTION NEW_LOCKS()
S-2 USE OMP_LIB ! or INCLUDE "omp_lib.h"
S-3 INTEGER(OMP_LOCK_KIND), DIMENSION(1000) :: NEW_LOCKS
S-4
S-5 INTEGER I
S-6
S-7 !$OMP PARALLEL DO PRIVATE(I)
S-8 DO I=1,1000
S-9 CALL OMP_INIT_LOCK_WITH_HINT(NEW_LOCKS(I),
S-10 & OMP_LOCK_HINT_CONTENDED + OMP_LOCK_HINT_SPECULATIVE)
S-11 END DO
S-12 !$OMP END PARALLEL DO
S-13
S-14 END FUNCTION NEW_LOCKS
Fortran

CHAPTER 6. SYNCHRONIZATION 263

 1 6.11.3 Ownership of Locks
2 Ownership of locks has changed since OpenMP 2.5. In OpenMP 2.5, locks are owned by threads;
3 so a lock released by the omp_unset_lock routine must be owned by the same thread executing
4 the routine. Beginning with OpenMP 3.0, locks are owned by task regions; so a lock released by the
5 omp_unset_lock routine in a task region must be owned by the same task region.
6 This change in ownership requires extra care when using locks. The following program is
7 conforming in OpenMP 2.5 because the thread that releases the lock lck in the parallel region is
8 the same thread that acquired the lock in the sequential part of the program (master thread of
9 parallel region and the initial thread are the same). However, it is not conforming beginning with
10 OpenMP 3.0, because the task region that releases the lock lck is different from the task region
11 that acquires the lock.
C / C++
12 Example lock_owner.1.c
S-1 #include <stdlib.h>
S-2 #include <stdio.h>
S-3 #include <omp.h>
S-4
S-5 int main()
S-6 {
S-7 int x;
S-8 omp_lock_t lck;
S-9
S-10 omp_init_lock (&lck);
S-11 omp_set_lock (&lck);
S-12 x = 0;
S-13
S-14 #pragma omp parallel shared (x)
S-15 {
S-16 #pragma omp master
S-17 {
S-18 x = x + 1;
S-19 omp_unset_lock (&lck);
S-20 }
S-21
S-22 /* Some more stuff. */
S-23 }
S-24 omp_destroy_lock (&lck);
S-25 return 0;
S-26 }
C / C++

264 OpenMP Examples Version 5.0.0 - November 2019

 Fortran
1 Example lock_owner.1.f
S-1 program lock
S-2 use omp_lib
S-3 integer :: x
S-4 integer (kind=omp_lock_kind) :: lck
S-5
S-6 call omp_init_lock (lck)
S-7 call omp_set_lock(lck)
S-8 x = 0
S-9
S-10 !$omp parallel shared (x)
S-11 !$omp master
S-12 x = x + 1
S-13 call omp_unset_lock(lck)
S-14 !$omp end master
S-15
S-16 ! Some more stuff.
S-17 !$omp end parallel
S-18
S-19 call omp_destroy_lock(lck)
S-20 end
Fortran

2 6.11.4 Simple Lock Routines

3 In the following example, the lock routines cause the threads to be idle while waiting for entry to
4 the first critical section, but to do other work while waiting for entry to the second. The
5 omp_set_lock function blocks, but the omp_test_lock function does not, allowing the work
6 in skip to be done.
7 Note that the argument to the lock routines should have type omp_lock_t, and that there is no
8 need to flush it.

CHAPTER 6. SYNCHRONIZATION 265

 C / C++
1 Example simple_lock.1.c
S-1 #include <stdio.h>
S-2 #include <omp.h>
S-3 void skip(int i) {}
S-4 void work(int i) {}
S-5 int main()
S-6 {
S-7 omp_lock_t lck;
S-8 int id;
S-9 omp_init_lock(&lck);
S-10
S-11 #pragma omp parallel shared(lck) private(id)
S-12 {
S-13 id = omp_get_thread_num();
S-14
S-15 omp_set_lock(&lck);
S-16 /* only one thread at a time can execute this printf */
S-17 printf("My thread id is %d.\n", id);
S-18 omp_unset_lock(&lck);
S-19
S-20 while (! omp_test_lock(&lck)) {
S-21 skip(id); /* we do not yet have the lock,
S-22 so we must do something else */
S-23 }
S-24
S-25 work(id); /* we now have the lock
S-26 and can do the work */
S-27
S-28 omp_unset_lock(&lck);
S-29 }
S-30 omp_destroy_lock(&lck);
S-31
S-32 return 0;
S-33 }
C / C++
2 Note that there is no need to flush the lock variable.

266 OpenMP Examples Version 5.0.0 - November 2019

 Fortran
1 Example simple_lock.1.f
S-1 SUBROUTINE SKIP(ID)
S-2 END SUBROUTINE SKIP
S-3
S-4 SUBROUTINE WORK(ID)
S-5 END SUBROUTINE WORK
S-6
S-7 PROGRAM SIMPLELOCK
S-8
S-9 INCLUDE "omp_lib.h" ! or USE OMP_LIB
S-10
S-11 INTEGER(OMP_LOCK_KIND) LCK
S-12 INTEGER ID
S-13
S-14 CALL OMP_INIT_LOCK(LCK)
S-15
S-16 !$OMP PARALLEL SHARED(LCK) PRIVATE(ID)
S-17 ID = OMP_GET_THREAD_NUM()
S-18 CALL OMP_SET_LOCK(LCK)
S-19 PRINT *, ’My thread id is ’, ID
S-20 CALL OMP_UNSET_LOCK(LCK)
S-21
S-22 DO WHILE (.NOT. OMP_TEST_LOCK(LCK))
S-23 CALL SKIP(ID) ! We do not yet have the lock
S-24 ! so we must do something else
S-25 END DO
S-26
S-27 CALL WORK(ID) ! We now have the lock
S-28 ! and can do the work
S-29
S-30 CALL OMP_UNSET_LOCK( LCK )
S-31
S-32 !$OMP END PARALLEL
S-33
S-34 CALL OMP_DESTROY_LOCK( LCK )
S-35
S-36 END PROGRAM SIMPLELOCK
Fortran

CHAPTER 6. SYNCHRONIZATION 267

1 6.11.5 Nestable Lock Routines
2 The following example demonstrates how a nestable lock can be used to synchronize updates both
3 to a whole structure and to one of its members.
C / C++
4 Example nestable_lock.1.c
S-1
S-2 #include <omp.h>
S-3
S-4 typedef struct {
S-5 int a,b;
S-6 omp_nest_lock_t lck;
S-7 } pair;
S-8
S-9 int work1();
S-10 int work2();
S-11 int work3();
S-12
S-13 void incr_a(pair *p, int a)
S-14 {
S-15
S-16 /* Called only from incr_pair, no need to lock. */
S-17 p->a += a;
S-18
S-19 }
S-20
S-21 void incr_b(pair *p, int b)
S-22 {
S-23
S-24 /* Called both from incr_pair and elsewhere, */
S-25 /* so need a nestable lock. */
S-26
S-27 omp_set_nest_lock(&p->lck);
S-28 p->b += b;
S-29 omp_unset_nest_lock(&p->lck);
S-30
S-31 }
S-32
S-33 void incr_pair(pair *p, int a, int b)
S-34 {
S-35
S-36 omp_set_nest_lock(&p->lck);
S-37 incr_a(p, a);
S-38 incr_b(p, b);
S-39 omp_unset_nest_lock(&p->lck);

268 OpenMP Examples Version 5.0.0 - November 2019

 S-40
S-41 }
S-42
S-43 void nestlock(pair *p)
S-44 {
S-45
S-46 #pragma omp parallel sections
S-47 {
S-48 #pragma omp section
S-49 incr_pair(p, work1(), work2());
S-50 #pragma omp section
S-51 incr_b(p, work3());
S-52 }
S-53
S-54 }
C / C++
Fortran
1 Example nestable_lock.1.f
S-1 MODULE DATA
S-2 USE OMP_LIB, ONLY: OMP_NEST_LOCK_KIND
S-3 TYPE LOCKED_PAIR
S-4 INTEGER A
S-5 INTEGER B
S-6 INTEGER (OMP_NEST_LOCK_KIND) LCK
S-7 END TYPE
S-8 END MODULE DATA
S-9
S-10 SUBROUTINE INCR_A(P, A)
S-11 ! called only from INCR_PAIR, no need to lock
S-12 USE DATA
S-13 TYPE(LOCKED_PAIR) :: P
S-14 INTEGER A
S-15 P%A = P%A + A
S-16 END SUBROUTINE INCR_A
S-17
S-18 SUBROUTINE INCR_B(P, B)
S-19 ! called from both INCR_PAIR and elsewhere,
S-20 ! so we need a nestable lock
S-21 USE OMP_LIB ! or INCLUDE "omp_lib.h"
S-22 USE DATA
S-23 TYPE(LOCKED_PAIR) :: P
S-24 INTEGER B
S-25 CALL OMP_SET_NEST_LOCK(P%LCK)
S-26 P%B = P%B + B
S-27 CALL OMP_UNSET_NEST_LOCK(P%LCK)

CHAPTER 6. SYNCHRONIZATION 269

S-28 END SUBROUTINE INCR_B
S-29
S-30 SUBROUTINE INCR_PAIR(P, A, B)
S-31 USE OMP_LIB ! or INCLUDE "omp_lib.h"
S-32 USE DATA
S-33 TYPE(LOCKED_PAIR) :: P
S-34 INTEGER A
S-35 INTEGER B
S-36
S-37 CALL OMP_SET_NEST_LOCK(P%LCK)
S-38 CALL INCR_A(P, A)
S-39 CALL INCR_B(P, B)
S-40 CALL OMP_UNSET_NEST_LOCK(P%LCK)
S-41 END SUBROUTINE INCR_PAIR
S-42
S-43 SUBROUTINE NESTLOCK(P)
S-44 USE OMP_LIB ! or INCLUDE "omp_lib.h"
S-45 USE DATA
S-46 TYPE(LOCKED_PAIR) :: P
S-47 INTEGER WORK1, WORK2, WORK3
S-48 EXTERNAL WORK1, WORK2, WORK3
S-49
S-50 !$OMP PARALLEL SECTIONS
S-51
S-52 !$OMP SECTION
S-53 CALL INCR_PAIR(P, WORK1(), WORK2())
S-54 !$OMP SECTION
S-55 CALL INCR_B(P, WORK3())
S-56 !$OMP END PARALLEL SECTIONS
S-57
S-58 END SUBROUTINE NESTLOCK
Fortran

270 OpenMP Examples Version 5.0.0 - November 2019

1 CHAPTER 7

2 Data Environment

3 The OpenMP data environment contains data attributes of variables and objects. Many constructs
4 (such as parallel, simd, task) accept clauses to control data-sharing attributes of referenced
5 variables in the construct, where data-sharing applies to whether the attribute of the variable is
6 shared, is private storage, or has special operational characteristics (as found in the
7 firstprivate, lastprivate, linear, or reduction clause).
8 The data environment for a device (distinguished as a device data environment) is controlled on the
9 host by data-mapping attributes, which determine the relationship of the data on the host, the
10 original data, and the data on the device, the corresponding data.

11 DATA-SHARING ATTRIBUTES
12 Data-sharing attributes of variables can be classified as being predetermined, explicitly determined
13 or implicitly determined.
14 Certain variables and objects have predetermined attributes. A commonly found case is the loop
15 iteration variable in associated loops of a for or do construct. It has a private data-sharing
16 attribute. Variables with predetermined data-sharing attributes can not be listed in a data-sharing
17 clause; but there are some exceptions (mainly concerning loop iteration variables).
18 Variables with explicitly determined data-sharing attributes are those that are referenced in a given
19 construct and are listed in a data-sharing attribute clause on the construct. Some of the common
20 data-sharing clauses are: shared, private, firstprivate, lastprivate, linear, and
21 reduction.
22 Variables with implicitly determined data-sharing attributes are those that are referenced in a given
23 construct, do not have predetermined data-sharing attributes, and are not listed in a data-sharing
24 attribute clause of an enclosing construct. For a complete list of variables and objects with
25 predetermined and implicitly determined attributes, please refer to the Data-sharing Attribute Rules
26 for Variables Referenced in a Construct subsection of the OpenMP Specifications document.

271
1 DATA-MAPPING ATTRIBUTES
2 The map clause on a device construct explicitly specifies how the list items in the clause are
3 mapped from the encountering task’s data environment (on the host) to the corresponding item in
4 the device data environment (on the device). The common list items are arrays, array sections,
5 scalars, pointers, and structure elements (members).
6 Procedures and global variables have predetermined data mapping if they appear within the list or
7 block of a declare target directive. Also, a C/C++ pointer is mapped as a zero-length array
8 section, as is a C++ variable that is a reference to a pointer.
9 Without explicit mapping, non-scalar and non-pointer variables within the scope of the target
10 construct are implicitly mapped with a map-type of tofrom. Without explicit mapping, scalar
11 variables within the scope of the target construct are not mapped, but have an implicit firstprivate
12 data-sharing attribute. (That is, the value of the original variable is given to a private variable of the
13 same name on the device.) This behavior can be changed with the defaultmap clause.
14 The map clause can appear on target, target data and target enter/exit data
15 constructs. The operations of creation and removal of device storage as well as assignment of the
16 original list item values to the corresponding list items may be complicated when the list item
17 appears on multiple constructs or when the host and device storage is shared. In these cases the
18 item’s reference count, the number of times it has been referenced (+1 on entry and -1 on exited) in
19 nested (structured) map regions and/or accumulative (unstructured) mappings, determines the
20 operation. Details of the map clause and reference count operation are specified in the map Clause
21 subsection of the OpenMP Specifications document.

272 OpenMP Examples Version 5.0.0 - November 2019

1 7.1 The threadprivate Directive
2 The following examples demonstrate how to use the threadprivate directive to give each
3 thread a separate counter.
C / C++
4 Example threadprivate.1.c
S-1 int counter = 0;
S-2 #pragma omp threadprivate(counter)
S-3
S-4 int increment_counter()
S-5 {
S-6 counter++;
S-7 return(counter);
S-8 }
C / C++
Fortran
5 Example threadprivate.1.f
S-1 INTEGER FUNCTION INCREMENT_COUNTER()
S-2 COMMON/INC_COMMON/COUNTER
S-3 !$OMP THREADPRIVATE(/INC_COMMON/)
S-4
S-5 COUNTER = COUNTER +1
S-6 INCREMENT_COUNTER = COUNTER
S-7 RETURN
S-8 END FUNCTION INCREMENT_COUNTER
Fortran
C / C++
6 The following example uses threadprivate on a static variable:
7 Example threadprivate.2.c
S-1 int increment_counter_2()
S-2 {
S-3 static int counter = 0;
S-4 #pragma omp threadprivate(counter)
S-5 counter++;
S-6 return(counter);
S-7 }

CHAPTER 7. DATA ENVIRONMENT 273

1 The following example demonstrates unspecified behavior for the initialization of a
2 threadprivate variable. A threadprivate variable is initialized once at an unspecified
3 point before its first reference. Because a is constructed using the value of x (which is modified by
4 the statement x++), the value of a.val at the start of the parallel region could be either 1 or
5 2. This problem is avoided for b, which uses an auxiliary const variable and a copy-constructor.
6 Example threadprivate.3.cpp
S-1 class T {
S-2 public:
S-3 int val;
S-4 T (int);
S-5 T (const T&);
S-6 };
S-7
S-8 T :: T (int v){
S-9 val = v;
S-10 }
S-11
S-12 T :: T (const T& t) {
S-13 val = t.val;
S-14 }
S-15
S-16 void g(T a, T b){
S-17 a.val += b.val;
S-18 }
S-19
S-20 int x = 1;
S-21 T a(x);
S-22 const T b_aux(x); /* Capture value of x = 1 */
S-23 T b(b_aux);
S-24 #pragma omp threadprivate(a, b)
S-25
S-26 void f(int n) {
S-27 x++;
S-28 #pragma omp parallel for
S-29 /* In each thread:
S-30 * a is constructed from x (with value 1 or 2?)
S-31 * b is copy-constructed from b_aux
S-32 */
S-33
S-34 for (int i=0; i<n; i++) {
S-35 g(a, b); /* Value of a is unspecified. */
S-36 }
S-37 }
C / C++

274 OpenMP Examples Version 5.0.0 - November 2019

1 The following examples show non-conforming uses and correct uses of the threadprivate
2 directive.
Fortran
3 The following example is non-conforming because the common block is not declared local to the
4 subroutine that refers to it:
5 Example threadprivate.2.f
S-1 MODULE INC_MODULE
S-2 COMMON /T/ A
S-3 END MODULE INC_MODULE
S-4
S-5 SUBROUTINE INC_MODULE_WRONG()
S-6 USE INC_MODULE
S-7 !$OMP THREADPRIVATE(/T/)
S-8 !non-conforming because /T/ not declared in INC_MODULE_WRONG
S-9 END SUBROUTINE INC_MODULE_WRONG
6 The following example is also non-conforming because the common block is not declared local to
7 the subroutine that refers to it:
8 Example threadprivate.3.f
S-1 SUBROUTINE INC_WRONG()
S-2 COMMON /T/ A
S-3 !$OMP THREADPRIVATE(/T/)
S-4
S-5 CONTAINS
S-6 SUBROUTINE INC_WRONG_SUB()
S-7 !$OMP PARALLEL COPYIN(/T/)
S-8 !non-conforming because /T/ not declared in INC_WRONG_SUB
S-9 !$OMP END PARALLEL
S-10 END SUBROUTINE INC_WRONG_SUB
S-11 END SUBROUTINE INC_WRONG

9 The following example is a correct rewrite of the previous example:

10 Example threadprivate.4.f
S-1 SUBROUTINE INC_GOOD()
S-2 COMMON /T/ A
S-3 !$OMP THREADPRIVATE(/T/)
S-4
S-5 CONTAINS
S-6 SUBROUTINE INC_GOOD_SUB()
S-7 COMMON /T/ A
S-8 !$OMP THREADPRIVATE(/T/)
S-9
S-10 !$OMP PARALLEL COPYIN(/T/)

CHAPTER 7. DATA ENVIRONMENT 275

 Fortran (cont.)

S-11 !$OMP END PARALLEL

S-12 END SUBROUTINE INC_GOOD_SUB
S-13 END SUBROUTINE INC_GOOD

1 The following is an example of the use of threadprivate for local variables:

2 Example threadprivate.5.f
S-1 PROGRAM INC_GOOD2
S-2 INTEGER, ALLOCATABLE, SAVE :: A(:)
S-3 INTEGER, POINTER, SAVE :: PTR
S-4 INTEGER, SAVE :: I
S-5 INTEGER, TARGET :: TARG
S-6 LOGICAL :: FIRSTIN = .TRUE.
S-7 !$OMP THREADPRIVATE(A, I, PTR)
S-8
S-9 ALLOCATE (A(3))
S-10 A = (/1,2,3/)
S-11 PTR => TARG
S-12 I = 5
S-13
S-14 !$OMP PARALLEL COPYIN(I, PTR)
S-15 !$OMP CRITICAL
S-16 IF (FIRSTIN) THEN
S-17 TARG = 4 ! Update target of ptr
S-18 I = I + 10
S-19 IF (ALLOCATED(A)) A = A + 10
S-20 FIRSTIN = .FALSE.
S-21 END IF
S-22
S-23 IF (ALLOCATED(A)) THEN
S-24 PRINT *, ’a = ’, A
S-25 ELSE
S-26 PRINT *, ’A is not allocated’
S-27 END IF
S-28
S-29 PRINT *, ’ptr = ’, PTR
S-30 PRINT *, ’i = ’, I
S-31 PRINT *
S-32
S-33 !$OMP END CRITICAL
S-34 !$OMP END PARALLEL
S-35 END PROGRAM INC_GOOD2
3 The above program, if executed by two threads, will print one of the following two sets of output:

276 OpenMP Examples Version 5.0.0 - November 2019

 Fortran (cont.)

1 a = 11 12 13
2 ptr = 4
3 i = 15
4 A is not allocated
5 ptr = 4
6 i = 5
7 or
8 A is not allocated
9 ptr = 4
10 i = 15
11 a = 1 2 3
12 ptr = 4
13 i = 5
14 The following is an example of the use of threadprivate for module variables:
15 Example threadprivate.6.f
S-1 MODULE INC_MODULE_GOOD3
S-2 REAL, POINTER :: WORK(:)
S-3 SAVE WORK
S-4 !$OMP THREADPRIVATE(WORK)
S-5 END MODULE INC_MODULE_GOOD3
S-6
S-7 SUBROUTINE SUB1(N)
S-8 USE INC_MODULE_GOOD3
S-9 !$OMP PARALLEL PRIVATE(THE_SUM)
S-10 ALLOCATE(WORK(N))
S-11 CALL SUB2(THE_SUM)
S-12 WRITE(*,*)THE_SUM
S-13 !$OMP END PARALLEL
S-14 END SUBROUTINE SUB1
S-15
S-16 SUBROUTINE SUB2(THE_SUM)
S-17 USE INC_MODULE_GOOD3
S-18 WORK(:) = 10
S-19 THE_SUM=SUM(WORK)
S-20 END SUBROUTINE SUB2
S-21
S-22 PROGRAM INC_GOOD3
S-23 N = 10
S-24 CALL SUB1(N)

CHAPTER 7. DATA ENVIRONMENT 277

 S-25 END PROGRAM INC_GOOD3
Fortran
C++
1 The following example illustrates initialization of threadprivate variables for class-type T. t1
2 is default constructed, t2 is constructed taking a constructor accepting one argument of integer
3 type, t3 is copy constructed with argument f():
4 Example threadprivate.4.cpp
S-1 struct T { T (); T (int); ~T (); int t; };
S-2 int f();
S-3 static T t1;
S-4 #pragma omp threadprivate(t1)
S-5 static T t2( 23 );
S-6 #pragma omp threadprivate(t2)
S-7 static T t3 = f();
S-8 #pragma omp threadprivate(t3)

5 The following example illustrates the use of threadprivate for static class members. The
6 threadprivate directive for a static class member must be placed inside the class definition.
7 Example threadprivate.5.cpp
S-1 class T {
S-2 public:
S-3 static int i;
S-4 #pragma omp threadprivate(i)
S-5 };
C++

278 OpenMP Examples Version 5.0.0 - November 2019

1 7.2 The default(none) Clause
2 The following example distinguishes the variables that are affected by the default(none)
3 clause from those that are not.
C / C++
4 Beginning with OpenMP 4.0, variables with const-qualified type and no mutable member are no
5 longer predetermined shared. Thus, these variables (variable c in the example) need to be explicitly
6 listed in data-sharing attribute clauses when the default(none) clause is specified.
7 Example default_none.1.c
S-1 #include <omp.h>
S-2 int x, y, z[1000];
S-3 #pragma omp threadprivate(x)
S-4
S-5 void default_none(int a) {
S-6 const int c = 1;
S-7 int i = 0;
S-8
S-9 #pragma omp parallel default(none) private(a) shared(z, c)
S-10 {
S-11 int j = omp_get_num_threads();
S-12 /* O.K. - j is declared within parallel region */
S-13 a = z[j]; /* O.K. - a is listed in private clause */
S-14 /* - z is listed in shared clause */
S-15 x = c; /* O.K. - x is threadprivate */
S-16 /* - c has const-qualified type and
S-17 is listed in shared clause */
S-18 z[i] = y; /* Error - cannot reference i or y here */
S-19
S-20 #pragma omp for firstprivate(y)
S-21 /* Error - Cannot reference y in the firstprivate clause */
S-22 for (i=0; i<10 ; i++) {
S-23 z[i] = i; /* O.K. - i is the loop iteration variable */
S-24 }
S-25
S-26 z[i] = y; /* Error - cannot reference i or y here */
S-27 }
S-28 }
C / C++

CHAPTER 7. DATA ENVIRONMENT 279

 Fortran
1 Example default_none.1.f
S-1 SUBROUTINE DEFAULT_NONE(A)
S-2 INCLUDE "omp_lib.h" ! or USE OMP_LIB
S-3
S-4 INTEGER A
S-5
S-6 INTEGER X, Y, Z(1000)
S-7 COMMON/BLOCKX/X
S-8 COMMON/BLOCKY/Y
S-9 COMMON/BLOCKZ/Z
S-10 !$OMP THREADPRIVATE(/BLOCKX/)
S-11
S-12 INTEGER I, J
S-13 i = 1
S-14
S-15 !$OMP PARALLEL DEFAULT(NONE) PRIVATE(A) SHARED(Z) PRIVATE(J)
S-16 J = OMP_GET_NUM_THREADS();
S-17 ! O.K. - J is listed in PRIVATE clause
S-18 A = Z(J) ! O.K. - A is listed in PRIVATE clause
S-19 ! - Z is listed in SHARED clause
S-20 X = 1 ! O.K. - X is THREADPRIVATE
S-21 Z(I) = Y ! Error - cannot reference I or Y here
S-22
S-23 !$OMP DO firstprivate(y)
S-24 ! Error - Cannot reference y in the firstprivate clause
S-25 DO I = 1,10
S-26 Z(I) = I ! O.K. - I is the loop iteration variable
S-27 END DO
S-28
S-29
S-30 Z(I) = Y ! Error - cannot reference I or Y here
S-31 !$OMP END PARALLEL
S-32 END SUBROUTINE DEFAULT_NONE
Fortran

280 OpenMP Examples Version 5.0.0 - November 2019

1 7.3 The private Clause
2 In the following example, the values of original list items i and j are retained on exit from the
3 parallel region, while the private list items i and j are modified within the parallel
4 construct.
C / C++
5 Example private.1.c
S-1 #include <stdio.h>
S-2 #include <assert.h>
S-3
S-4 int main()
S-5 {
S-6 int i, j;
S-7 int *ptr_i, *ptr_j;
S-8
S-9 i = 1;
S-10 j = 2;
S-11
S-12 ptr_i = &i;
S-13 ptr_j = &j;
S-14
S-15 #pragma omp parallel private(i) firstprivate(j)
S-16 {
S-17 i = 3;
S-18 j = j + 2;
S-19 assert (*ptr_i == 1 && *ptr_j == 2);
S-20 }
S-21
S-22 assert(i == 1 && j == 2);
S-23
S-24 return 0;
S-25 }
C / C++

CHAPTER 7. DATA ENVIRONMENT 281

 Fortran
1 Example private.1.f
S-1 PROGRAM PRIV_EXAMPLE
S-2 INTEGER I, J
S-3
S-4 I = 1
S-5 J = 2
S-6
S-7 !$OMP PARALLEL PRIVATE(I) FIRSTPRIVATE(J)
S-8 I = 3
S-9 J = J + 2
S-10 !$OMP END PARALLEL
S-11
S-12 PRINT *, I, J ! I .eq. 1 .and. J .eq. 2
S-13 END PROGRAM PRIV_EXAMPLE
Fortran
2 In the following example, all uses of the variable a within the loop construct in the routine f refer to
3 a private list item a, while it is unspecified whether references to a in the routine g are to a private
4 list item or the original list item.
C / C++
5 Example private.2.c
S-1 int a;
S-2
S-3 void g(int k) {
S-4 a = k; /* Accessed in the region but outside of the construct;
S-5 * therefore unspecified whether original or private list
S-6 * item is modified. */
S-7 }
S-8
S-9
S-10 void f(int n) {
S-11 int a = 0;
S-12
S-13 #pragma omp parallel for private(a)
S-14 for (int i=1; i<n; i++) {
S-15 a = i;
S-16 g(a*2); /* Private copy of "a" */
S-17 }
S-18 }
C / C++

282 OpenMP Examples Version 5.0.0 - November 2019

 Fortran
1 Example private.2.f
S-1 MODULE PRIV_EXAMPLE2
S-2 REAL A
S-3
S-4 CONTAINS
S-5
S-6 SUBROUTINE G(K)
S-7 REAL K
S-8 A = K ! Accessed in the region but outside of the
S-9 ! construct; therefore unspecified whether
S-10 ! original or private list item is modified.
S-11 END SUBROUTINE G
S-12
S-13 SUBROUTINE F(N)
S-14 INTEGER N
S-15 REAL A
S-16
S-17 INTEGER I
S-18 !$OMP PARALLEL DO PRIVATE(A)
S-19 DO I = 1,N
S-20 A = I
S-21 CALL G(A*2)
S-22 ENDDO
S-23 !$OMP END PARALLEL DO
S-24 END SUBROUTINE F
S-25
S-26 END MODULE PRIV_EXAMPLE2
Fortran
2 The following example demonstrates that a list item that appears in a private clause in a
3 parallel construct may also appear in a private clause in an enclosed worksharing construct,
4 which results in an additional private copy.
C / C++
5 Example private.3.c
S-1 #include <assert.h>
S-2 void priv_example3()
S-3 {
S-4 int i, a;
S-5
S-6 #pragma omp parallel private(a)
S-7 {
S-8 a = 1;
S-9 #pragma omp parallel for private(a)

CHAPTER 7. DATA ENVIRONMENT 283

 S-10 for (i=0; i<10; i++)
S-11 {
S-12 a = 2;
S-13 }
S-14 assert(a == 1);
S-15 }
S-16 }
C / C++
Fortran
1 Example private.3.f
S-1 SUBROUTINE PRIV_EXAMPLE3()
S-2 INTEGER I, A
S-3
S-4 !$OMP PARALLEL PRIVATE(A)
S-5 A = 1
S-6 !$OMP PARALLEL DO PRIVATE(A)
S-7 DO I = 1, 10
S-8 A = 2
S-9 END DO
S-10 !$OMP END PARALLEL DO
S-11 PRINT *, A ! Outer A still has value 1
S-12 !$OMP END PARALLEL
S-13 END SUBROUTINE PRIV_EXAMPLE3
Fortran

284 OpenMP Examples Version 5.0.0 - November 2019

1 7.4 Fortran Private Loop Iteration Variables
Fortran
2 In general loop iteration variables will be private, when used in the do-loop of a do and
3 parallel do construct or in sequential loops in a parallel construct (see Section 2.7.1 and
4 Section 2.14.1 of the OpenMP 4.0 specification). In the following example of a sequential loop in a
5 parallel construct the loop iteration variable I will be private.
6 Example fort_loopvar.1.f90
S-1 SUBROUTINE PLOOP_1(A,N)
S-2 INCLUDE "omp_lib.h" ! or USE OMP_LIB
S-3
S-4 REAL A(*)
S-5 INTEGER I, MYOFFSET, N
S-6
S-7 !$OMP PARALLEL PRIVATE(MYOFFSET)
S-8 MYOFFSET = OMP_GET_THREAD_NUM()*N
S-9 DO I = 1, N
S-10 A(MYOFFSET+I) = FLOAT(I)
S-11 ENDDO
S-12 !$OMP END PARALLEL
S-13
S-14 END SUBROUTINE PLOOP_1

7 In exceptional cases, loop iteration variables can be made shared, as in the following example:
8 Example fort_loopvar.2.f90
S-1 SUBROUTINE PLOOP_2(A,B,N,I1,I2)
S-2 REAL A(*), B(*)
S-3 INTEGER I1, I2, N
S-4
S-5 !$OMP PARALLEL SHARED(A,B,I1,I2)
S-6 !$OMP SECTIONS
S-7 !$OMP SECTION
S-8 DO I1 = I1, N
S-9 IF (A(I1).NE.0.0) EXIT
S-10 ENDDO
S-11 !$OMP SECTION
S-12 DO I2 = I2, N
S-13 IF (B(I2).NE.0.0) EXIT
S-14 ENDDO
S-15 !$OMP END SECTIONS
S-16 !$OMP SINGLE
S-17 IF (I1.LE.N) PRINT *, ’ITEMS IN A UP TO ’, I1, ’ARE ALL ZERO.’
S-18 IF (I2.LE.N) PRINT *, ’ITEMS IN B UP TO ’, I2, ’ARE ALL ZERO.’

CHAPTER 7. DATA ENVIRONMENT 285

 S-19 !$OMP END SINGLE
S-20 !$OMP END PARALLEL
S-21
S-22 END SUBROUTINE PLOOP_2

1 Note however that the use of shared loop iteration variables can easily lead to race conditions.
Fortran

286 OpenMP Examples Version 5.0.0 - November 2019

1 7.5 Fortran Restrictions on shared and private
2 Clauses with Common Blocks
Fortran
3 When a named common block is specified in a private, firstprivate, or lastprivate
4 clause of a construct, none of its members may be declared in another data-sharing attribute clause
5 on that construct. The following examples illustrate this point.
6 The following example is conforming:
7 Example fort_sp_common.1.f
S-1 SUBROUTINE COMMON_GOOD()
S-2 COMMON /C/ X,Y
S-3 REAL X, Y
S-4
S-5 !$OMP PARALLEL PRIVATE (/C/)
S-6 ! do work here
S-7 !$OMP END PARALLEL
S-8 !$OMP PARALLEL SHARED (X,Y)
S-9 ! do work here
S-10 !$OMP END PARALLEL
S-11 END SUBROUTINE COMMON_GOOD

8 The following example is also conforming:

9 Example fort_sp_common.2.f
S-1 SUBROUTINE COMMON_GOOD2()
S-2 COMMON /C/ X,Y
S-3 REAL X, Y
S-4 INTEGER I
S-5 !$OMP PARALLEL
S-6 !$OMP DO PRIVATE(/C/)
S-7 DO I=1,1000
S-8 ! do work here
S-9 ENDDO
S-10 !$OMP END DO
S-11 !$OMP DO PRIVATE(X)
S-12 DO I=1,1000
S-13 ! do work here
S-14 ENDDO
S-15 !$OMP END DO
S-16 !$OMP END PARALLEL
S-17 END SUBROUTINE COMMON_GOOD2

CHAPTER 7. DATA ENVIRONMENT 287

1 The following example is conforming:
2 Example fort_sp_common.3.f
S-1 SUBROUTINE COMMON_GOOD3()
S-2 COMMON /C/ X,Y
S-3 !$OMP PARALLEL PRIVATE (/C/)
S-4 ! do work here
S-5 !$OMP END PARALLEL
S-6 !$OMP PARALLEL SHARED (/C/)
S-7 ! do work here
S-8 !$OMP END PARALLEL
S-9 END SUBROUTINE COMMON_GOOD3

3 The following example is non-conforming because x is a constituent element of c:

4 Example fort_sp_common.4.f
S-1 SUBROUTINE COMMON_WRONG()
S-2 COMMON /C/ X,Y
S-3 ! Incorrect because X is a constituent element of C
S-4 !$OMP PARALLEL PRIVATE(/C/), SHARED(X)
S-5 ! do work here
S-6 !$OMP END PARALLEL
S-7 END SUBROUTINE COMMON_WRONG
5 The following example is non-conforming because a common block may not be declared both
6 shared and private:
7 Example fort_sp_common.5.f
S-1 SUBROUTINE COMMON_WRONG2()
S-2 COMMON /C/ X,Y
S-3 ! Incorrect: common block C cannot be declared both
S-4 ! shared and private
S-5 !$OMP PARALLEL PRIVATE (/C/), SHARED(/C/)
S-6 ! do work here
S-7 !$OMP END PARALLEL
S-8
S-9 END SUBROUTINE COMMON_WRONG2
Fortran

288 OpenMP Examples Version 5.0.0 - November 2019

1 7.6 Fortran Restrictions on Storage Association
2 with the private Clause
Fortran
3 The following non-conforming examples illustrate the implications of the private clause rules
4 with regard to storage association.
5 Example fort_sa_private.1.f
S-1 SUBROUTINE SUB()
S-2 COMMON /BLOCK/ X
S-3 PRINT *,X ! X is undefined
S-4 END SUBROUTINE SUB
S-5
S-6 PROGRAM PRIV_RESTRICT
S-7 COMMON /BLOCK/ X
S-8 X = 1.0
S-9 !$OMP PARALLEL PRIVATE (X)
S-10 X = 2.0
S-11 CALL SUB()
S-12 !$OMP END PARALLEL
S-13 END PROGRAM PRIV_RESTRICT
6 Example fort_sa_private.2.f
S-1 PROGRAM PRIV_RESTRICT2
S-2 COMMON /BLOCK2/ X
S-3 X = 1.0
S-4
S-5 !$OMP PARALLEL PRIVATE (X)
S-6 X = 2.0
S-7 CALL SUB()
S-8 !$OMP END PARALLEL
S-9
S-10 CONTAINS
S-11
S-12 SUBROUTINE SUB()
S-13 COMMON /BLOCK2/ Y
S-14
S-15 PRINT *,X ! X is undefined
S-16 PRINT *,Y ! Y is undefined
S-17 END SUBROUTINE SUB
S-18
S-19 END PROGRAM PRIV_RESTRICT2

7 Example fort_sa_private.3.f

CHAPTER 7. DATA ENVIRONMENT 289

 Fortran (cont.)

S-1 PROGRAM PRIV_RESTRICT3

S-2 EQUIVALENCE (X,Y)
S-3 X = 1.0
S-4
S-5 !$OMP PARALLEL PRIVATE(X)
S-6 PRINT *,Y ! Y is undefined
S-7 Y = 10
S-8 PRINT *,X ! X is undefined
S-9 !$OMP END PARALLEL
S-10 END PROGRAM PRIV_RESTRICT3

1 Example fort_sa_private.4.f
S-1 PROGRAM PRIV_RESTRICT4
S-2 INTEGER I, J
S-3 INTEGER A(100), B(100)
S-4 EQUIVALENCE (A(51), B(1))
S-5
S-6 !$OMP PARALLEL DO DEFAULT(PRIVATE) PRIVATE(I,J) LASTPRIVATE(A)
S-7 DO I=1,100
S-8 DO J=1,100
S-9 B(J) = J - 1
S-10 ENDDO
S-11
S-12 DO J=1,100
S-13 A(J) = J ! B becomes undefined at this point
S-14 ENDDO
S-15
S-16 DO J=1,50
S-17 B(J) = B(J) + 1 ! B is undefined
S-18 ! A becomes undefined at this point
S-19 ENDDO
S-20 ENDDO
S-21 !$OMP END PARALLEL DO ! The LASTPRIVATE write for A has
S-22 ! undefined results
S-23
S-24 PRINT *, B ! B is undefined since the LASTPRIVATE
S-25 ! write of A was not defined
S-26 END PROGRAM PRIV_RESTRICT4

2 Example fort_sa_private.5.f
S-1 SUBROUTINE SUB1(X)
S-2 DIMENSION X(10)
S-3
S-4 ! This use of X does not conform to the

290 OpenMP Examples Version 5.0.0 - November 2019

 S-5 ! specification. It would be legal Fortran 90,
S-6 ! but the OpenMP private directive allows the
S-7 ! compiler to break the sequence association that
S-8 ! A had with the rest of the common block.
S-9
S-10 FORALL (I = 1:10) X(I) = I
S-11 END SUBROUTINE SUB1
S-12
S-13 PROGRAM PRIV_RESTRICT5
S-14 COMMON /BLOCK5/ A
S-15
S-16 DIMENSION B(10)
S-17 EQUIVALENCE (A,B(1))
S-18
S-19 ! the common block has to be at least 10 words
S-20 A = 0
S-21
S-22 !$OMP PARALLEL PRIVATE(/BLOCK5/)
S-23
S-24 ! Without the private clause,
S-25 ! we would be passing a member of a sequence
S-26 ! that is at least ten elements long.
S-27 ! With the private clause, A may no longer be
S-28 ! sequence-associated.
S-29
S-30 CALL SUB1(A)
S-31 !$OMP MASTER
S-32 PRINT *, A
S-33 !$OMP END MASTER
S-34
S-35 !$OMP END PARALLEL
S-36 END PROGRAM PRIV_RESTRICT5
Fortran

CHAPTER 7. DATA ENVIRONMENT 291

1 7.7 C/C++ Arrays in a firstprivate Clause
C / C++
2 The following example illustrates the size and value of list items of array or pointer type in a
3 firstprivate clause . The size of new list items is based on the type of the corresponding
4 original list item, as determined by the base language.
5 In this example:
6 • The type of A is array of two arrays of two ints.
7 • The type of B is adjusted to pointer to array of n ints, because it is a function parameter.
8 • The type of C is adjusted to pointer to int, because it is a function parameter.
9 • The type of D is array of two arrays of two ints.
10 • The type of E is array of n arrays of n ints.
11 Note that B and E involve variable length array types.
12 The new items of array type are initialized as if each integer element of the original array is
13 assigned to the corresponding element of the new array. Those of pointer type are initialized as if
14 by assignment from the original item to the new item.
15 Example carrays_fpriv.1.c
S-1 #include <assert.h>
S-2
S-3 int A[2][2] = {1, 2, 3, 4};
S-4
S-5 void f(int n, int B[n][n], int C[])
S-6 {
S-7 int D[2][2] = {1, 2, 3, 4};
S-8 int E[n][n];
S-9
S-10 assert(n >= 2);
S-11 E[1][1] = 4;
S-12
S-13 #pragma omp parallel firstprivate(B, C, D, E)
S-14 {
S-15 assert(sizeof(B) == sizeof(int (*)[n]));
S-16 assert(sizeof(C) == sizeof(int*));
S-17 assert(sizeof(D) == 4 * sizeof(int));
S-18 assert(sizeof(E) == n * n * sizeof(int));
S-19
S-20 /* Private B and C have values of original B and C. */
S-21 assert(&B[1][1] == &A[1][1]);
S-22 assert(&C[3] == &A[1][1]);
S-23 assert(D[1][1] == 4);
S-24 assert(E[1][1] == 4);

292 OpenMP Examples Version 5.0.0 - November 2019

S-25 }
S-26 }
S-27
S-28 int main() {
S-29 f(2, A, A[0]);
S-30 return 0;
S-31 }
C / C++

CHAPTER 7. DATA ENVIRONMENT 293

1 7.8 The lastprivate Clause
2 Correct execution sometimes depends on the value that the last iteration of a loop assigns to a
3 variable. Such programs must list all such variables in a lastprivate clause so that the values
4 of the variables are the same as when the loop is executed sequentially.
C / C++
5 Example lastprivate.1.c
S-1 void lastpriv (int n, float *a, float *b)
S-2 {
S-3 int i;
S-4
S-5 #pragma omp parallel
S-6 {
S-7 #pragma omp for lastprivate(i)
S-8 for (i=0; i<n-1; i++)
S-9 a[i] = b[i] + b[i+1];
S-10 }
S-11
S-12 a[i]=b[i]; /* i == n-1 here */
S-13 }
C / C++
Fortran
6 Example lastprivate.1.f
S-1 SUBROUTINE LASTPRIV(N, A, B)
S-2
S-3 INTEGER N
S-4 REAL A(*), B(*)
S-5 INTEGER I
S-6 !$OMP PARALLEL
S-7 !$OMP DO LASTPRIVATE(I)
S-8
S-9 DO I=1,N-1
S-10 A(I) = B(I) + B(I+1)
S-11 ENDDO
S-12
S-13 !$OMP END PARALLEL
S-14 A(I) = B(I) ! I has the value of N here
S-15
S-16 END SUBROUTINE LASTPRIV
Fortran

294 OpenMP Examples Version 5.0.0 - November 2019

1 7.9 Reduction
2 This section covers ways to perform reductions in parallel, task, taskloop, and SIMD regions.

3 7.9.1 The reduction Clause

4 The following example demonstrates the reduction clause; note that some reductions can be
5 expressed in the loop in several ways, as shown for the max and min reductions below:
C / C++
6 Example reduction.1.c
S-1 #include <math.h>
S-2 void reduction1(float *x, int *y, int n)
S-3 {
S-4 int i, b, c;
S-5 float a, d;
S-6 a = 0.0;
S-7 b = 0;
S-8 c = y[0];
S-9 d = x[0];
S-10 #pragma omp parallel for private(i) shared(x, y, n) \
S-11 reduction(+:a) reduction(^:b) \
S-12 reduction(min:c) reduction(max:d)
S-13 for (i=0; i<n; i++) {
S-14 a += x[i];
S-15 b ^= y[i];
S-16 if (c > y[i]) c = y[i];
S-17 d = fmaxf(d,x[i]);
S-18 }
S-19 }
C / C++

CHAPTER 7. DATA ENVIRONMENT 295

 Fortran
1 Example reduction.1.f90
S-1 SUBROUTINE REDUCTION1(A, B, C, D, X, Y, N)
S-2 REAL :: X(*), A, D
S-3 INTEGER :: Y(*), N, B, C
S-4 INTEGER :: I
S-5 A = 0
S-6 B = 0
S-7 C = Y(1)
S-8 D = X(1)
S-9 !$OMP PARALLEL DO PRIVATE(I) SHARED(X, Y, N) REDUCTION(+:A) &
S-10 !$OMP& REDUCTION(IEOR:B) REDUCTION(MIN:C) REDUCTION(MAX:D)
S-11 DO I=1,N
S-12 A = A + X(I)
S-13 B = IEOR(B, Y(I))
S-14 C = MIN(C, Y(I))
S-15 IF (D < X(I)) D = X(I)
S-16 END DO
S-17
S-18 END SUBROUTINE REDUCTION1
Fortran
2 A common implementation of the preceding example is to treat it as if it had been written as
3 follows:
C / C++
4 Example reduction.2.c
S-1 #include <limits.h>
S-2 #include <math.h>
S-3 void reduction2(float *x, int *y, int n)
S-4 {
S-5 int i, b, b_p, c, c_p;
S-6 float a, a_p, d, d_p;
S-7 a = 0.0f;
S-8 b = 0;
S-9 c = y[0];
S-10 d = x[0];
S-11 #pragma omp parallel shared(a, b, c, d, x, y, n) \
S-12 private(a_p, b_p, c_p, d_p)
S-13 {
S-14 a_p = 0.0f;
S-15 b_p = 0;
S-16 c_p = INT_MAX;
S-17 d_p = -HUGE_VALF;
S-18 #pragma omp for private(i)

296 OpenMP Examples Version 5.0.0 - November 2019

 S-19 for (i=0; i<n; i++) {
S-20 a_p += x[i];
S-21 b_p ^= y[i];
S-22 if (c_p > y[i]) c_p = y[i];
S-23 d_p = fmaxf(d_p,x[i]);
S-24 }
S-25 #pragma omp critical
S-26 {
S-27 a += a_p;
S-28 b ^= b_p;
S-29 if( c > c_p ) c = c_p;
S-30 d = fmaxf(d,d_p);
S-31 }
S-32 }
S-33 }
C / C++
Fortran
1 Example reduction.2.f90
S-1 SUBROUTINE REDUCTION2(A, B, C, D, X, Y, N)
S-2 REAL :: X(*), A, D
S-3 INTEGER :: Y(*), N, B, C
S-4 REAL :: A_P, D_P
S-5 INTEGER :: I, B_P, C_P
S-6 A = 0
S-7 B = 0
S-8 C = Y(1)
S-9 D = X(1)
S-10 !$OMP PARALLEL SHARED(X, Y, A, B, C, D, N) &
S-11 !$OMP& PRIVATE(A_P, B_P, C_P, D_P)
S-12 A_P = 0.0
S-13 B_P = 0
S-14 C_P = HUGE(C_P)
S-15 D_P = -HUGE(D_P)
S-16 !$OMP DO PRIVATE(I)
S-17 DO I=1,N
S-18 A_P = A_P + X(I)
S-19 B_P = IEOR(B_P, Y(I))
S-20 C_P = MIN(C_P, Y(I))
S-21 IF (D_P < X(I)) D_P = X(I)
S-22 END DO
S-23 !$OMP CRITICAL
S-24 A = A + A_P
S-25 B = IEOR(B, B_P)
S-26 C = MIN(C, C_P)
S-27 D = MAX(D, D_P)

CHAPTER 7. DATA ENVIRONMENT 297

 Fortran (cont.)

S-28 !$OMP END CRITICAL

S-29 !$OMP END PARALLEL
S-30 END SUBROUTINE REDUCTION2

1 The following program is non-conforming because the reduction is on the intrinsic procedure name
2 MAX but that name has been redefined to be the variable named MAX.
3 Example reduction.3.f90
S-1 PROGRAM REDUCTION_WRONG
S-2 MAX = HUGE(0)
S-3 M = 0
S-4
S-5 !$OMP PARALLEL DO REDUCTION(MAX: M)
S-6 ! MAX is no longer the intrinsic so this is non-conforming
S-7 DO I = 1, 100
S-8 CALL SUB(M,I)
S-9 END DO
S-10
S-11 END PROGRAM REDUCTION_WRONG
S-12
S-13 SUBROUTINE SUB(M,I)
S-14 M = MAX(M,I)
S-15 END SUBROUTINE SUB
4 The following conforming program performs the reduction using the intrinsic procedure name MAX
5 even though the intrinsic MAX has been renamed to REN.
6 Example reduction.4.f90
S-1 MODULE M
S-2 INTRINSIC MAX
S-3 END MODULE M
S-4
S-5 PROGRAM REDUCTION3
S-6 USE M, REN => MAX
S-7 N = 0
S-8 !$OMP PARALLEL DO REDUCTION(REN: N) ! still does MAX
S-9 DO I = 1, 100
S-10 N = MAX(N,I)
S-11 END DO
S-12 END PROGRAM REDUCTION3

7 The following conforming program performs the reduction using intrinsic procedure name MAX
8 even though the intrinsic MAX has been renamed to MIN.
9 Example reduction.5.f90

298 OpenMP Examples Version 5.0.0 - November 2019

 S-1 MODULE MOD
S-2 INTRINSIC MAX, MIN
S-3 END MODULE MOD
S-4
S-5 PROGRAM REDUCTION4
S-6 USE MOD, MIN=>MAX, MAX=>MIN
S-7 REAL :: R
S-8 R = -HUGE(0.0)
S-9
S-10 !$OMP PARALLEL DO REDUCTION(MIN: R) ! still does MAX
S-11 DO I = 1, 1000
S-12 R = MIN(R, SIN(REAL(I)))
S-13 END DO
S-14 PRINT *, R
S-15 END PROGRAM REDUCTION4
Fortran

CHAPTER 7. DATA ENVIRONMENT 299

1 The following example is non-conforming because the initialization (a = 0) of the original list
2 item a is not synchronized with the update of a as a result of the reduction computation in the for
3 loop. Therefore, the example may print an incorrect value for a.
4 To avoid this problem, the initialization of the original list item a should complete before any
5 update of a as a result of the reduction clause. This can be achieved by adding an explicit
6 barrier after the assignment a = 0, or by enclosing the assignment a = 0 in a single directive
7 (which has an implied barrier), or by initializing a before the start of the parallel region.
C / C++
8 Example reduction.6.c
S-1 #include <stdio.h>
S-2
S-3 int main (void)
S-4 {
S-5 int a, i;
S-6
S-7 #pragma omp parallel shared(a) private(i)
S-8 {
S-9 #pragma omp master
S-10 a = 0;
S-11
S-12 // To avoid race conditions, add a barrier here.
S-13
S-14 #pragma omp for reduction(+:a)
S-15 for (i = 0; i < 10; i++) {
S-16 a += i;
S-17 }
S-18
S-19 #pragma omp single
S-20 printf ("Sum is %d\n", a);
S-21 }
S-22 return 0;
S-23 }
C / C++

300 OpenMP Examples Version 5.0.0 - November 2019

 Fortran
1 Example reduction.6.f
S-1 INTEGER A, I
S-2
S-3 !$OMP PARALLEL SHARED(A) PRIVATE(I)
S-4
S-5 !$OMP MASTER
S-6 A = 0
S-7 !$OMP END MASTER
S-8
S-9 ! To avoid race conditions, add a barrier here.
S-10
S-11 !$OMP DO REDUCTION(+:A)
S-12 DO I= 0, 9
S-13 A = A + I
S-14 END DO
S-15
S-16 !$OMP SINGLE
S-17 PRINT *, "Sum is ", A
S-18 !$OMP END SINGLE
S-19
S-20 !$OMP END PARALLEL
S-21 END
Fortran
2 The following example demonstrates the reduction of array a. In C/C++ this is illustrated by the
3 explicit use of an array section a[0:N] in the reduction clause. The corresponding Fortran
4 example uses array syntax supported in the base language. As of the OpenMP 4.5 specification the
5 explicit use of array section in the reduction clause in Fortran is not permitted. But this
6 oversight will be fixed in the next release of the specification.
C / C++
7 Example reduction.7.c
S-1 #include <stdio.h>
S-2
S-3 #define N 100
S-4 void init(int n, float (*b)[N]);
S-5
S-6 int main(){
S-7
S-8 int i,j;
S-9 float a[N], b[N][N];
S-10
S-11 init(N,b);

CHAPTER 7. DATA ENVIRONMENT 301

 S-12
S-13 for(i=0; i<N; i++) a[i]=0.0e0;
S-14
S-15 #pragma omp parallel for reduction(+:a[0:N]) private(j)
S-16 for(i=0; i<N; i++){
S-17 for(j=0; j<N; j++){
S-18 a[j] += b[i][j];
S-19 }
S-20 }
S-21 printf(" a[0] a[N-1]: %f %f\n", a[0], a[N-1]);
S-22
S-23 return 0;
S-24 }
C / C++
Fortran
1 Example reduction.7.f90
S-1 program array_red
S-2
S-3 integer,parameter :: n=100
S-4 integer :: j
S-5 real :: a(n), b(n,n)
S-6
S-7 call init(n,b)
S-8
S-9 a(:) = 0.0e0
S-10
S-11 !$omp parallel do reduction(+:a)
S-12 do j = 1, n
S-13 a(:) = a(:) + b(:,j)
S-14 end do
S-15
S-16 print*, " a(1) a(n): ", a(1), a(n)
S-17
S-18 end program
Fortran

302 OpenMP Examples Version 5.0.0 - November 2019

 1 7.9.2 Task Reduction
2 The following C/C++ and Fortran examples show how to implement a task reduction over a linked
3 list.
4 Task reductions are supported by the task_reduction clause which can only be applied to the
5 taskgroup directive, and a in_reduction clause which can be applied to the task construct
6 among others.
7 The task_reduction clause on the taskgroup construct is used to define the scope of a new
8 reduction, and after the taskgroup region the original variable will contain the final value of the
9 reduction. In the task-generating while loop the in_reduction clause of the task construct is
10 used to specify that the task participates "in" the reduction.
11 Note: The res variable is private in the linked_list_sum routine and is not required to be shared (as
12 in the case of a parallel construct reduction).
C / C++
13 Example task_reduction.1.c
S-1
S-2 #include<stdlib.h>
S-3 #include<stdio.h>
S-4 #define N 10
S-5
S-6 typedef struct node_tag {
S-7 int val;
S-8 struct node_tag *next;
S-9 } node_t;
S-10
S-11 int linked_list_sum(node_t *p)
S-12 {
S-13 int res = 0;
S-14
S-15 #pragma omp taskgroup task_reduction(+: res)
S-16 {
S-17 node_t* aux = p;
S-18 while(aux != 0)
S-19 {
S-20 #pragma omp task in_reduction(+: res)
S-21 res += aux->val;
S-22
S-23 aux = aux->next;
S-24 }
S-25 }
S-26 return res;
S-27 }
S-28

CHAPTER 7. DATA ENVIRONMENT 303

 S-29
S-30 int main(int argc, char *argv[])
S-31 {
S-32 int i;
S-33 // Create the root node.
S-34 node_t* root = (node_t*) malloc(sizeof(node_t));
S-35 root->val = 1;
S-36
S-37 node_t* aux = root;
S-38
S-39 // Create N-1 more nodes.
S-40 for(i=2;i<=N;++i)
S-41 {
S-42 aux->next = (node_t*) malloc(sizeof(node_t));
S-43 aux = aux->next;
S-44 aux->val = i;
S-45 }
S-46
S-47 aux->next = 0;
S-48
S-49 #pragma omp parallel
S-50 #pragma omp single
S-51 {
S-52 int result = linked_list_sum(root);
S-53 printf( "Calculated: %d Analytic:%d\n", result, (N*(N+1)/2) );
S-54 }
S-55
S-56 return 0;
S-57 }
S-58
C / C++
Fortran
1 Example task_reduction.1.f90
S-1
S-2 module m
S-3 type node_t
S-4 integer :: val
S-5 type(node_t), pointer :: next
S-6 end type
S-7 end module m
S-8
S-9 function linked_list_sum(p) result(res)
S-10 use m
S-11 implicit none
S-12 type(node_t), pointer :: p

304 OpenMP Examples Version 5.0.0 - November 2019

S-13 type(node_t), pointer :: aux
S-14 integer :: res
S-15
S-16 res = 0
S-17
S-18 !$omp taskgroup task_reduction(+: res)
S-19 aux => p
S-20 do while (associated(aux))
S-21 !$omp task in_reduction(+: res)
S-22 res = res + aux%val
S-23 !$omp end task
S-24 aux => aux%next
S-25 end do
S-26 !$omp end taskgroup
S-27 end function linked_list_sum
S-28
S-29
S-30 program main
S-31 use m
S-32 implicit none
S-33 type(node_t), pointer :: root, aux
S-34 integer :: res, i
S-35 integer, parameter :: N=10
S-36
S-37 interface
S-38 function linked_list_sum(p) result(res)
S-39 use m
S-40 implicit none
S-41 type(node_t), pointer :: p
S-42 integer :: res
S-43 end function
S-44 end interface
S-45 ! Create the root node.
S-46 allocate(root)
S-47 root%val = 1
S-48 aux => root
S-49
S-50 ! Create N-1 more nodes.
S-51 do i = 2,N
S-52 allocate(aux%next)
S-53 aux => aux%next
S-54 aux%val = i
S-55 end do
S-56
S-57 aux%next => null()
S-58
S-59 !$omp parallel

CHAPTER 7. DATA ENVIRONMENT 305

 S-60 !$omp single
S-61 res = linked_list_sum(root)
S-62 print *, "Calculated:", res, " Analytic:", (N*(N+1))/2
S-63 !$omp end single
S-64 !$omp end parallel
S-65
S-66 end program main
S-67
Fortran

1 7.9.3 Taskloop Reduction

2 In the OpenMP 5.0 Specification the taskloop construct was extended to include the reductions.
3 The following two examples show how to implement a reduction over an array using taskloop
4 reduction in two different ways. In the first example we apply the reduction clause to the
5 taskloop construct. As it was explained above in the task reduction examples, a reduction over
6 tasks is divided in two components: the scope of the reduction, which is defined by a taskgroup
7 region, and the tasks that participate in the reduction. In this example, the reduction clause
8 defines both semantics. First, it specifies that the implicit taskgroup region associated with the
9 taskloop construct is the scope of the reduction, and second, it defines all tasks created by the
10 taskloop construct as participants of the reduction. About the first property, it is important to
11 note that if we add the nogroup clause to the taskloop construct the code will be
12 nonconforming, basically because we have a set of tasks that participate in a reduction that has not
13 been defined.
C / C++
14 Example taskloop_reduction.1.c
S-1 #include <stdio.h>
S-2
S-3 int array_sum(int n, int *v) {
S-4 int i;
S-5 int res = 0;
S-6
S-7 #pragma omp taskloop reduction(+: res)
S-8 for(i = 0; i < n; ++i)
S-9 res += v[i];
S-10
S-11 return res;
S-12 }
S-13
S-14 int main(int argc, char *argv[]) {

306 OpenMP Examples Version 5.0.0 - November 2019

 S-15 int n = 10;
S-16 int v[10] = {1,2,3,4,5,6,7,8,9,10};
S-17
S-18 #pragma omp parallel
S-19 #pragma omp single
S-20 {
S-21 int res = array_sum(n, v);
S-22 printf("The result is %d\n", res);
S-23 }
S-24 return 0;
S-25 }
C / C++
Fortran
1 Example taskloop_reduction.1.f90
S-1 function array_sum(n, v) result(res)
S-2 implicit none
S-3 integer :: n, v(n), res
S-4 integer :: i
S-5
S-6 res = 0
S-7 !$omp taskloop reduction(+: res)
S-8 do i=1, n
S-9 res = res + v(i)
S-10 end do
S-11 !$omp end taskoop
S-12
S-13 end function array_sum
S-14
S-15 program main
S-16 implicit none
S-17 integer :: n, v(10), res
S-18 integer :: i
S-19
S-20 integer, external :: array_sum
S-21
S-22 n = 10
S-23 do i=1, n
S-24 v(i) = i
S-25 end do
S-26
S-27 !$omp parallel
S-28 !$omp single
S-29 res = array_sum(n, v)
S-30 print *, "The result is", res
S-31 !$omp end single

CHAPTER 7. DATA ENVIRONMENT 307

 S-32 !$omp end parallel
S-33 end program main
Fortran
1 The second example computes exactly the same value as in the precedingtaskloop_reduction.1 code
2 section, but in a very different way. First, in the array_sum function a taskgroup region is
3 created that defines the scope of a new reduction using the task_reduction clause. After that,
4 a task and also the tasks generated by a taskloop participate in that reduction by using the
5 in_reduction clause on the task and taskloop constructs, respectively. Note that the
6 nogroup clause was added to the taskloop construct. This is allowed because what is
7 expressed with the in_reduction clause is different from what is expressed with the
8 reduction clause. In one case the generated tasks are specified to participate in a previously
9 declared reduction (in_reduction clause) whereas in the other case creation of a new reduction
10 is specified and also that all tasks generated by the taskloop will participate on it.
C / C++
11 Example taskloop_reduction.2.c
S-1 #include <stdio.h>
S-2
S-3 int array_sum(int n, int *v) {
S-4 int i;
S-5 int res = 0;
S-6
S-7 #pragma omp taskgroup task_reduction(+: res)
S-8 {
S-9 if (n > 0) {
S-10 #pragma omp task in_reduction(+: res)
S-11 res = res + v[0];
S-12
S-13 #pragma omp taskloop in_reduction(+: res) nogroup
S-14 for(i = 1; i < n; ++i)
S-15 res += v[i];
S-16 }
S-17 }
S-18
S-19 return res;
S-20 }
S-21
S-22 int main(int argc, char *argv[]) {
S-23 int n = 10;
S-24 int v[10] = {1,2,3,4,5,6,7,8,9,10};
S-25
S-26 #pragma omp parallel
S-27 #pragma omp single
S-28 {

308 OpenMP Examples Version 5.0.0 - November 2019

 S-29 int res = array_sum(n, v);
S-30 printf("The result is %d\n", res);
S-31 }
S-32 return 0;
S-33 }
C / C++
Fortran
1 Example taskloop_reduction.2.f90
S-1 function array_sum(n, v) result(res)
S-2 implicit none
S-3 integer :: n, v(n), res
S-4 integer :: i
S-5
S-6 res = 0
S-7 !$omp taskgroup task_reduction(+: res)
S-8 if (n > 0) then
S-9 !$omp task in_reduction(+: res)
S-10 res = res + v(1)
S-11 !$omp end task
S-12
S-13 !$omp taskloop in_reduction(+: res) nogroup
S-14 do i=2, n
S-15 res = res + v(i)
S-16 end do
S-17 !$omp end taskoop
S-18 endif
S-19 !$omp end taskgroup
S-20
S-21 end function array_sum
S-22
S-23 program main
S-24 implicit none
S-25 integer :: n, v(10), res
S-26 integer :: i
S-27
S-28 integer, external :: array_sum
S-29
S-30 n = 10
S-31 do i=1, n
S-32 v(i) = i
S-33 end do
S-34
S-35 !$omp parallel
S-36 !$omp single
S-37 res = array_sum(n, v)

CHAPTER 7. DATA ENVIRONMENT 309

 S-38 print *, "The result is", res
S-39 !$omp end single
S-40 !$omp end parallel
S-41 end program main
Fortran
1 In the OpenMP 5.0 Specification, reduction clauses for the taskloop simd construct were
2 also added.
3 The examples below compare reductions for the taskloop and the taskloop simd constructs.
4 These examples illustrate the use of reduction clauses within "stand-alone" taskloop
5 constructs, and the use of in_reduction clauses for tasks of taskloops to participate with other
6 reductions within the scope of a parallel region.
7 taskloop reductions:
8 In the taskloop reductions section of the example below, taskloop 1 uses the reduction clause in
9 a taskloop construct for a sum reduction, accumulated in asum. The behavior is as though a
10 taskgroup construct encloses the taskloop region with a task_reduction clause, and each
11 taskloop task has an in_reduction clause with the specifications of the reduction clause.
12 At the end of the taskloop region asum contains the result of the reduction.
13 The next taskloop, taskloop 2, illustrates the use of the in_reduction clause to participate in a
14 previously defined reduction scope of a parallel construct.
15 The task reductions of task 2 and taskloop 2 are combined across the taskloop construct and the
16 single task construct, as specified in the reduction(task, +:asum) clause of the
17 parallel construct. At the end of the parallel region asum contains the combined result of all
18 reductions.
19 taskloop simd reductions:
20 Reductions for the taskloop simd construct are shown in the second half of the code. Since
21 each component construct, taskloop and simd, can accept a reduction-type clause, the
22 taskloop simd construct is a composite construct, and the specific application of the reduction
23 clause is defined within the taskloop simd construct section of the OpenMP 5.0 Specification.
24 The code below illustrates use cases for these reductions.
25 In the taskloop simd reduction section of the example below, taskloop simd 3 uses the reduction
26 clause in a taskloop simd construct for a sum reduction within a loop. For this case a
27 reduction clause is used, as one would use for a simd construct. The SIMD reductions of each
28 task are combined, and the results of these tasks are further combined just as in the taskloop
29 construct with the reduction clause for taskloop 1. At the end of the taskloop region asum
30 contains the combined result of all reductions.
31 If a taskloop simd construct is to participate in a previously defined reduction scope, the
32 reduction participation should be specified with a in_reduction clause, as shown in the
33 parallel region enclosing task 4 and taskloop simd 4 code sections.

310 OpenMP Examples Version 5.0.0 - November 2019

1 Here the taskloop simd construct’s in_reduction clause specifies participation of the
2 construct’s tasks as a task reduction within the scope of the parallel region. That is, the results of
3 each task of the taskloop construct component contribute to the reduction in a broader level, just
4 as in parallel reduction a code section above. Also, each simd-component construct occurs as if it
5 has a reduction clause, and the SIMD results of each task are combined as though to form a
6 single result for each task (that participates in the in_reduction clause). At the end of the
7 parallel region asum contains the combined result of all reductions.
C / C++
8 Example taskloop_simd_reduction.1.c
S-1
S-2 #include <stdio.h>
S-3 #define N 100
S-4
S-5 int main(){
S-6 int i, a[N], asum=0;
S-7
S-8 for(i=0;i<N;i++) a[i]=i;
S-9
S-10 // taskloop reductions
S-11
S-12 #pragma omp parallel master
S-13 #pragma omp taskloop reduction(+:asum) //taskloop 1
S-14 for(i=0;i<N;i++){ asum += a[i]; }
S-15
S-16
S-17 #pragma omp parallel reduction(task, +:asum) // parallel reduction a
S-18 {
S-19 #pragma omp master
S-20 #pragma omp task in_reduction(+:asum) //task 2
S-21 for(i=0;i<N;i++){ asum += a[i]; }
S-22
S-23 #pragma omp master taskloop in_reduction(+:asum) //taskloop 2
S-24 for(i=0;i<N;i++){ asum += a[i]; }
S-25 }
S-26
S-27 // taskloop simd reductions
S-28
S-29 #pragma omp parallel master
S-30 #pragma omp taskloop simd reduction(+:asum) //taskloop simd 3
S-31 for(i=0;i<N;i++){ asum += a[i]; }
S-32
S-33
S-34 #pragma omp parallel reduction(task, +:asum) // parallel reduction b
S-35 {
S-36 #pragma omp master

CHAPTER 7. DATA ENVIRONMENT 311

 S-37 #pragma omp task in_reduction(+:asum) //task 4
S-38 for(i=0;i<N;i++){ asum += a[i]; }
S-39
S-40 #pragma omp master taskloop simd in_reduction(+:asum) //taskloop simd 4
S-41 for(i=0;i<N;i++){ asum += a[i]; }
S-42
S-43 }
S-44
S-45 printf("asum=%d \n",asum); // output: asum=29700
S-46 }
C / C++
Fortran
1 Example taskloop_simd_reduction.1.f90
S-1
S-2 program main
S-3
S-4 use omp_lib
S-5 integer, parameter :: N=100
S-6 integer :: i, a(N), asum=0
S-7
S-8 a = [( i, i=1,N )] !! initialize
S-9
S-10 !! taskloop reductions
S-11
S-12 !$omp parallel master
S-13 !$omp taskloop reduction(+:asum) !! taskloop 1
S-14 do i=1,N; asum = asum + a(i); enddo
S-15 !$omp end taskloop
S-16 !$omp end parallel master
S-17
S-18
S-19 !$omp parallel reduction(task, +:asum) !! parallel reduction a
S-20
S-21 !$omp master
S-22 !$omp task in_reduction(+:asum) !! task 2
S-23 do i=1,N; asum = asum + a(i); enddo
S-24 !$omp end task
S-25 !$omp end master
S-26
S-27 !$omp master taskloop in_reduction(+:asum) !! taskloop 2
S-28 do i=1,N; asum = asum + a(i); enddo
S-29 !$omp end master taskloop
S-30
S-31 !$omp end parallel
S-32

312 OpenMP Examples Version 5.0.0 - November 2019

 S-33 !! taskloop simd reductions
S-34
S-35 !$omp parallel master
S-36 !$omp taskloop simd reduction(+:asum) !! taskloop simd 3
S-37 do i=1,N; asum = asum + a(i); enddo
S-38 !$omp end taskloop simd
S-39 !$omp end parallel master
S-40
S-41
S-42 !$omp parallel reduction(task, +:asum) !! parallel reduction b
S-43
S-44 !$omp master
S-45 !$omp task in_reduction(+:asum) !! task 4
S-46 do i=1,N; asum = asum + a(i); enddo
S-47 !$omp end task
S-48 !$omp end master
S-49
S-50 !$omp master taskloop simd in_reduction(+:asum) !! taskloop simd 4
S-51 do i=1,N; asum = asum + a(i); enddo
S-52 !$omp end master taskloop simd
S-53
S-54 !$omp end parallel
S-55
S-56 print*,"asum=",asum !! output: asum=30300
S-57
S-58 end program
Fortran

1 7.9.4 User-Defined Reduction

2 The declare reduction directive can be used to specify user-defined reductions (UDR) for
3 user data types.
4 In the following example, declare reduction directives are used to define min and max
5 operations for the point data structure for computing the rectangle that encloses a set of 2-D points.
6 Each declare reduction directive defines new reduction identifiers, min and max, to be used
7 in a reduction clause. The next item in the declaration list is the data type (struct point) used in
8 the reduction, followed by the combiner, here the functions minproc and maxproc perform the min
9 and max operations, respectively, on the user data (of type struct point). In the function argument
10 list are two special OpenMP variable identifiers, omp_in and omp_out, that denote the two
11 values to be combined in the "real" function; the omp_out identifier indicates which one is to hold
12 the result.

CHAPTER 7. DATA ENVIRONMENT 313

1 The initializer of the declare reduction directive specifies the initial value for the private
2 variable of each implicit task. The omp_priv identifier is used to denote the private variable.
C / C++
3 Example udr.1.c
S-1 #include <stdio.h>
S-2 #include <limits.h>
S-3
S-4 struct point {
S-5 int x;
S-6 int y;
S-7 };
S-8
S-9 void minproc ( struct point *out, struct point *in )
S-10 {
S-11 if ( in->x < out->x ) out->x = in->x;
S-12 if ( in->y < out->y ) out->y = in->y;
S-13 }
S-14
S-15 void maxproc ( struct point *out, struct point *in )
S-16 {
S-17 if ( in->x > out->x ) out->x = in->x;
S-18 if ( in->y > out->y ) out->y = in->y;
S-19 }
S-20
S-21 #pragma omp declare reduction(min : struct point : \
S-22 minproc(&omp_out, &omp_in)) \
S-23 initializer( omp_priv = { INT_MAX, INT_MAX } )
S-24
S-25 #pragma omp declare reduction(max : struct point : \
S-26 maxproc(&omp_out, &omp_in)) \
S-27 initializer( omp_priv = { 0, 0 } )
S-28
S-29 void find_enclosing_rectangle ( int n, struct point points[] )
S-30 {
S-31 struct point minp = { INT_MAX, INT_MAX }, maxp = {0,0};
S-32 int i;
S-33
S-34 #pragma omp parallel for reduction(min:minp) reduction(max:maxp)
S-35 for ( i = 0; i < n; i++ ) {
S-36 minproc(&minp, &points[i]);
S-37 maxproc(&maxp, &points[i]);
S-38 }
S-39 printf("min = (%d, %d)\n", minp.x, minp.y);
S-40 printf("max = (%d, %d)\n", maxp.x, maxp.y);
S-41 }

314 OpenMP Examples Version 5.0.0 - November 2019

 C / C++
1 The following example shows the corresponding code in Fortran. The declare reduction
2 directives are specified as part of the declaration in subroutine find_enclosing_rectangle and the
3 procedures that perform the min and max operations are specified as subprograms.
Fortran
4 Example udr.1.f90
S-1 module data_type
S-2
S-3 type :: point
S-4 integer :: x
S-5 integer :: y
S-6 end type
S-7
S-8 end module data_type
S-9
S-10 subroutine find_enclosing_rectangle ( n, points )
S-11 use data_type
S-12 implicit none
S-13 integer :: n
S-14 type(point) :: points(*)
S-15
S-16 !$omp declare reduction(min : point : minproc(omp_out, omp_in)) &
S-17 !$omp& initializer( omp_priv = point( HUGE(0), HUGE(0) ) )
S-18
S-19 !$omp declare reduction(max : point : maxproc(omp_out, omp_in)) &
S-20 !$omp& initializer( omp_priv = point( 0, 0 ) )
S-21
S-22 type(point) :: minp = point( HUGE(0), HUGE(0) ), maxp = point( 0, 0 )
S-23 integer :: i
S-24
S-25 !$omp parallel do reduction(min:minp) reduction(max:maxp)
S-26 do i = 1, n
S-27 call minproc(minp, points(i))
S-28 call maxproc(maxp, points(i))
S-29 end do
S-30 print *, "min = (", minp%x, minp%y, ")"
S-31 print *, "max = (", maxp%x, maxp%y, ")"
S-32
S-33 contains
S-34 subroutine minproc ( out, in )
S-35 implicit none
S-36 type(point), intent(inout) :: out
S-37 type(point), intent(in) :: in
S-38

CHAPTER 7. DATA ENVIRONMENT 315

 S-39 out%x = min( out%x, in%x )
S-40 out%y = min( out%y, in%y )
S-41 end subroutine minproc
S-42
S-43 subroutine maxproc ( out, in )
S-44 implicit none
S-45 type(point), intent(inout) :: out
S-46 type(point), intent(in) :: in
S-47
S-48 out%x = max( out%x, in%x )
S-49 out%y = max( out%y, in%y )
S-50 end subroutine maxproc
S-51
S-52 end subroutine
Fortran
1 The following example shows the same computation as udr.1 but it illustrates that you can craft
2 complex expressions in the user-defined reduction declaration. In this case, instead of calling the
3 minproc and maxproc functions we inline the code in a single expression.
C / C++
4 Example udr.2.c
S-1 #include <stdio.h>
S-2 #include <limits.h>
S-3
S-4 struct point {
S-5 int x;
S-6 int y;
S-7 };
S-8
S-9 #pragma omp declare reduction(min : struct point : \
S-10 omp_out.x = omp_in.x > omp_out.x ? omp_out.x : omp_in.x, \
S-11 omp_out.y = omp_in.y > omp_out.y ? omp_out.y : omp_in.y ) \
S-12 initializer( omp_priv = { INT_MAX, INT_MAX } )
S-13
S-14 #pragma omp declare reduction(max : struct point : \
S-15 omp_out.x = omp_in.x < omp_out.x ? omp_out.x : omp_in.x, \
S-16 omp_out.y = omp_in.y < omp_out.y ? omp_out.y : omp_in.y ) \
S-17 initializer( omp_priv = { 0, 0 } )
S-18
S-19 void find_enclosing_rectangle ( int n, struct point points[] )
S-20 {
S-21 struct point minp = { INT_MAX, INT_MAX }, maxp = {0,0};
S-22 int i;
S-23
S-24 #pragma omp parallel for reduction(min:minp) reduction(max:maxp)

316 OpenMP Examples Version 5.0.0 - November 2019

 S-25 for ( i = 0; i < n; i++ ) {
S-26 if ( points[i].x < minp.x ) minp.x = points[i].x;
S-27 if ( points[i].y < minp.y ) minp.y = points[i].y;
S-28 if ( points[i].x > maxp.x ) maxp.x = points[i].x;
S-29 if ( points[i].y > maxp.y ) maxp.y = points[i].y;
S-30 }
S-31 printf("min = (%d, %d)\n", minp.x, minp.y);
S-32 printf("max = (%d, %d)\n", maxp.x, maxp.y);
S-33 }
C / C++
1 The corresponding code of the same example in Fortran is very similar except that the assignment
2 expression in the declare reduction directive can only be used for a single variable, in this
3 case through a type structure constructor point(. . .).
Fortran
4 Example udr.2.f90
S-1 module data_type
S-2
S-3 type :: point
S-4 integer :: x
S-5 integer :: y
S-6 end type
S-7
S-8 end module data_type
S-9
S-10 subroutine find_enclosing_rectangle ( n, points )
S-11 use data_type
S-12 implicit none
S-13 integer :: n
S-14 type(point) :: points(*)
S-15
S-16 !$omp declare reduction( min : point : &
S-17 !$omp& omp_out = point(min( omp_out%x, omp_in%x ), &
S-18 !$omp& min( omp_out%y, omp_in%y )) ) &
S-19 !$omp& initializer( omp_priv = point( HUGE(0), HUGE(0) ) )
S-20
S-21 !$omp declare reduction( max : point : &
S-22 !$omp& omp_out = point(max( omp_out%x, omp_in%x ), &
S-23 !$omp& max( omp_out%y, omp_in%y )) ) &
S-24 !$omp& initializer( omp_priv = point( 0, 0 ) )
S-25
S-26 type(point) :: minp = point( HUGE(0), HUGE(0) ), maxp = point( 0, 0 )
S-27 integer :: i
S-28
S-29 !$omp parallel do reduction(min: minp) reduction(max: maxp)

CHAPTER 7. DATA ENVIRONMENT 317

 S-30 do i = 1, n
S-31 minp%x = min(minp%x, points(i)%x)
S-32 minp%y = min(minp%y, points(i)%y)
S-33 maxp%x = max(maxp%x, points(i)%x)
S-34 maxp%y = max(maxp%y, points(i)%y)
S-35 end do
S-36 print *, "min = (", minp%x, minp%y, ")"
S-37 print *, "max = (", maxp%x, maxp%y, ")"
S-38
S-39 end subroutine
Fortran
1 The following example shows the use of special variables in arguments for combiner (omp_in and
2 omp_out) and initializer (omp_priv and omp_orig) routines. This example returns the
3 maximum value of an array and the corresponding index value. The declare reduction
4 directive specifies a user-defined reduction operation maxloc for data type struct mx_s. The
5 function mx_combine is the combiner and the function mx_init is the initializer.
C / C++
6 Example udr.3.c
S-1
S-2 #include <stdio.h>
S-3 #define N 100
S-4
S-5 struct mx_s {
S-6 float value;
S-7 int index;
S-8 };
S-9
S-10
S-11 /* prototype functions for combiner and initializer in
S-12 the declare reduction */
S-13
S-14 void mx_combine(struct mx_s *out, struct mx_s *in);
S-15
S-16 void mx_init(struct mx_s *priv, struct mx_s *orig);
S-17
S-18 #pragma omp declare reduction(maxloc: struct mx_s: \
S-19 mx_combine(&omp_out, &omp_in)) \
S-20 initializer(mx_init(&omp_priv, &omp_orig))
S-21
S-22 void mx_combine(struct mx_s *out, struct mx_s *in)
S-23 {
S-24 if ( out->value < in->value ) {
S-25 out->value = in->value;
S-26 out->index = in->index;

318 OpenMP Examples Version 5.0.0 - November 2019

 S-27 }
S-28 }
S-29
S-30
S-31 void mx_init(struct mx_s *priv, struct mx_s *orig)
S-32 {
S-33 priv->value = orig->value;
S-34 priv->index = orig->index;
S-35 }
S-36
S-37
S-38 int main(void)
S-39 {
S-40 struct mx_s mx;
S-41 float val[N], d;
S-42 int i, count = N;
S-43
S-44 for (i = 0; i < count; i++) {
S-45 d = (N*0.8f - i);
S-46 val[i] = N * N - d * d;
S-47 }
S-48
S-49 mx.value = val[0];
S-50 mx.index = 0;
S-51 #pragma omp parallel for reduction(maxloc: mx)
S-52 for (i = 1; i < count; i++) {
S-53 if (mx.value < val[i])
S-54 {
S-55 mx.value = val[i];
S-56 mx.index = i;
S-57 }
S-58 }
S-59
S-60 printf("max value = %g, index = %d\n", mx.value, mx.index);
S-61 /* prints 10000, 80 */
S-62
S-63 return 0;
S-64 }
C / C++
1 Below is the corresponding Fortran version of the above example. The declare reduction
2 directive specifies the user-defined operation maxloc for user-derived type mx_s. The combiner
3 mx_combine and the initializer mx_init are specified as subprograms.

CHAPTER 7. DATA ENVIRONMENT 319

 Fortran
1 Example udr.3.f90
S-1 program max_loc
S-2 implicit none
S-3
S-4 type :: mx_s
S-5 real value
S-6 integer index
S-7 end type
S-8
S-9 !$omp declare reduction(maxloc: mx_s: &
S-10 !$omp& mx_combine(omp_out, omp_in)) &
S-11 !$omp& initializer(mx_init(omp_priv, omp_orig))
S-12
S-13 integer, parameter :: N = 100
S-14 type(mx_s) :: mx
S-15 real :: val(N), d
S-16 integer :: i, count
S-17
S-18 count = N
S-19 do i = 1, count
S-20 d = N*0.8 - i + 1
S-21 val(i) = N * N - d * d
S-22 enddo
S-23
S-24 mx%value = val(1)
S-25 mx%index = 1
S-26 !$omp parallel do reduction(maxloc: mx)
S-27 do i = 2, count
S-28 if (mx%value < val(i)) then
S-29 mx%value = val(i)
S-30 mx%index = i
S-31 endif
S-32 enddo
S-33
S-34 print *, ’max value = ’, mx%value, ’ index = ’, mx%index
S-35 ! prints 10000, 81
S-36
S-37 contains
S-38
S-39 subroutine mx_combine(out, in)
S-40 implicit none
S-41 type(mx_s), intent(inout) :: out
S-42 type(mx_s), intent(in) :: in
S-43
S-44 if ( out%value < in%value ) then

320 OpenMP Examples Version 5.0.0 - November 2019

 S-45 out%value = in%value
S-46 out%index = in%index
S-47 endif
S-48 end subroutine mx_combine
S-49
S-50 subroutine mx_init(priv, orig)
S-51 implicit none
S-52 type(mx_s), intent(out) :: priv
S-53 type(mx_s), intent(in) :: orig
S-54
S-55 priv%value = orig%value
S-56 priv%index = orig%index
S-57 end subroutine mx_init
S-58
S-59 end program
Fortran
1 The following example explains a few details of the user-defined reduction in Fortran through
2 modules. The declare reduction directive is declared in a module (data_red). The
3 reduction-identifier .add. is a user-defined operator that is to allow accessibility in the scope that
4 performs the reduction operation. The user-defined operator .add. and the subroutine dt_init
5 specified in the initializer clause are defined in the same subprogram.
6 The reduction operation (that is, the reduction clause) is in the main program. The reduction
7 identifier .add. is accessible by use association. Since .add. is a user-defined operator, the explicit
8 interface should also be accessible by use association in the current program unit. Since the
9 declare reduction associated to this reduction clause has the initializer clause, the
10 subroutine specified on the clause must be accessible in the current scoping unit. In this case, the
11 subroutine dt_init is accessible by use association.
Fortran
12 Example udr.4.f90
S-1 module data_red
S-2 ! Declare data type.
S-3 type dt
S-4 real :: r1
S-5 real :: r2
S-6 end type
S-7
S-8 ! Declare the user-defined operator .add.
S-9 interface operator(.add.)
S-10 module procedure addc
S-11 end interface
S-12
S-13 ! Declare the user-defined reduction operator .add.
S-14 !$omp declare reduction(.add.:dt:omp_out=omp_out.add.omp_in) &

CHAPTER 7. DATA ENVIRONMENT 321

 S-15 !$omp& initializer(dt_init(omp_priv))
S-16
S-17 contains
S-18 ! Declare the initialization routine.
S-19 subroutine dt_init(u)
S-20 type(dt) :: u
S-21 u%r1 = 0.0
S-22 u%r2 = 0.0
S-23 end subroutine
S-24
S-25 ! Declare the specific procedure for the .add. operator.
S-26 function addc(x1, x2) result(xresult)
S-27 type(dt), intent(in) :: x1, x2
S-28 type(dt) :: xresult
S-29 xresult%r1 = x1%r1 + x2%r2
S-30 xresult%r2 = x1%r2 + x2%r1
S-31 end function
S-32
S-33 end module data_red
S-34
S-35 program main
S-36 use data_red, only : dt, dt_init, operator(.add.)
S-37
S-38 type(dt) :: xdt1, xdt2
S-39 integer :: i
S-40
S-41 xdt1 = dt(1.0,2.0)
S-42 xdt2 = dt(2.0,3.0)
S-43
S-44 ! The reduction operation
S-45 !$omp parallel do reduction(.add.: xdt1)
S-46 do i = 1, 10
S-47 xdt1 = xdt1 .add. xdt2
S-48 end do
S-49 !$omp end parallel do
S-50
S-51 print *, xdt1
S-52
S-53 end program
Fortran
1 The following example uses user-defined reductions to declare a plus (+) reduction for a C++ class.
2 As the declare reduction directive is inside the context of the V class the expressions in the
3 declare reduction directive are resolved in the context of the class. Also, note that the
4 initializer clause uses a copy constructor to initialize the private variables of the reduction
5 and it uses as parameter to its original variable by using the special variable omp_orig.

322 OpenMP Examples Version 5.0.0 - November 2019

 C++
1 Example udr.5.cpp
S-1 class V {
S-2 float *p;
S-3 int n;
S-4
S-5 public:
S-6 V( int _n ) : n(_n) { p = new float[n]; }
S-7 V( const V& m ) : n(m.n) { p = new float[n]; }
S-8 ~V() { delete[] p; }
S-9
S-10 V& operator+= ( const V& );
S-11
S-12 #pragma omp declare reduction( + : V : omp_out += omp_in ) \
S-13 initializer(omp_priv(omp_orig))
S-14 };
C++

2 The following examples shows how user-defined reductions can be defined for some STL
3 containers. The first declare reduction defines the plus (+) operation for std::vector<int> by
4 making use of the std::transform algorithm. The second and third define the merge (or
5 concatenation) operation for std::vector<int> and std::list<int>. It shows how the user-defined
6 reduction operation can be applied to specific data types of an STL.
C++
7 Example udr.6.cpp
S-1 #include <algorithm>
S-2 #include <list>
S-3 #include <vector>
S-4
S-5 #pragma omp declare reduction( + : std::vector<int> : \
S-6 std::transform (omp_out.begin(), omp_out.end(), \
S-7 omp_in.begin(), omp_in.end(),std::plus<int>()))
S-8
S-9 #pragma omp declare reduction( merge : std::vector<int> : \
S-10 omp_out.insert(omp_out.end(), omp_in.begin(), omp_in.end()))
S-11
S-12 #pragma omp declare reduction( merge : std::list<int> : \
S-13 omp_out.merge(omp_in))
C++

CHAPTER 7. DATA ENVIRONMENT 323

1 7.10 The copyin Clause
2 The copyin clause is used to initialize threadprivate data upon entry to a parallel region. The
3 value of the threadprivate variable in the master thread is copied to the threadprivate variable of
4 each other team member.
C / C++
5 Example copyin.1.c
S-1 #include <stdlib.h>
S-2
S-3 float* work;
S-4 int size;
S-5 float tol;
S-6
S-7 #pragma omp threadprivate(work,size,tol)
S-8
S-9 void build()
S-10 {
S-11 int i;
S-12 work = (float*)malloc( sizeof(float)*size );
S-13 for( i = 0; i < size; ++i ) work[i] = tol;
S-14 }
S-15
S-16 void copyin_example( float t, int n )
S-17 {
S-18 tol = t;
S-19 size = n;
S-20 #pragma omp parallel copyin(tol,size)
S-21 {
S-22 build();
S-23 }
S-24 }
C / C++

324 OpenMP Examples Version 5.0.0 - November 2019

 Fortran
1 Example copyin.1.f
S-1 MODULE M
S-2 REAL, POINTER, SAVE :: WORK(:)
S-3 INTEGER :: SIZE
S-4 REAL :: TOL
S-5 !$OMP THREADPRIVATE(WORK,SIZE,TOL)
S-6 END MODULE M
S-7
S-8 SUBROUTINE COPYIN_EXAMPLE( T, N )
S-9 USE M
S-10 REAL :: T
S-11 INTEGER :: N
S-12 TOL = T
S-13 SIZE = N
S-14 !$OMP PARALLEL COPYIN(TOL,SIZE)
S-15 CALL BUILD
S-16 !$OMP END PARALLEL
S-17 END SUBROUTINE COPYIN_EXAMPLE
S-18
S-19 SUBROUTINE BUILD
S-20 USE M
S-21 ALLOCATE(WORK(SIZE))
S-22 WORK = TOL
S-23 END SUBROUTINE BUILD
Fortran

CHAPTER 7. DATA ENVIRONMENT 325

 1 7.11 The copyprivate Clause
2 The copyprivate clause can be used to broadcast values acquired by a single thread directly to
3 all instances of the private variables in the other threads. In this example, if the routine is called
4 from the sequential part, its behavior is not affected by the presence of the directives. If it is called
5 from a parallel region, then the actual arguments with which a and b are associated must be
6 private.
7 The thread that executes the structured block associated with the single construct broadcasts the
8 values of the private variables a, b, x, and y from its implicit task’s data environment to the data
9 environments of the other implicit tasks in the thread team. The broadcast completes before any of
10 the threads have left the barrier at the end of the construct.
C / C++
11 Example copyprivate.1.c
S-1 #include <stdio.h>
S-2 float x, y;
S-3 #pragma omp threadprivate(x, y)
S-4
S-5 void init(float a, float b ) {
S-6 #pragma omp single copyprivate(a,b,x,y)
S-7 {
S-8 scanf("%f %f %f %f", &a, &b, &x, &y);
S-9 }
S-10 }
C / C++
Fortran
12 Example copyprivate.1.f
S-1 SUBROUTINE INIT(A,B)
S-2 REAL A, B
S-3 COMMON /XY/ X,Y
S-4 !$OMP THREADPRIVATE (/XY/)
S-5
S-6 !$OMP SINGLE
S-7 READ (11) A,B,X,Y
S-8 !$OMP END SINGLE COPYPRIVATE (A,B,/XY/)
S-9
S-10 END SUBROUTINE INIT
Fortran
13 In this example, assume that the input must be performed by the master thread. Since the master
14 construct does not support the copyprivate clause, it cannot broadcast the input value that is
15 read. However, copyprivate is used to broadcast an address where the input value is stored.

326 OpenMP Examples Version 5.0.0 - November 2019

 C / C++
1 Example copyprivate.2.c
S-1 #include <stdio.h>
S-2 #include <stdlib.h>
S-3
S-4 float read_next( ) {
S-5 float * tmp;
S-6 float return_val;
S-7
S-8 #pragma omp single copyprivate(tmp)
S-9 {
S-10 tmp = (float *) malloc(sizeof(float));
S-11 } /* copies the pointer only */
S-12
S-13
S-14 #pragma omp master
S-15 {
S-16 scanf("%f", tmp);
S-17 }
S-18
S-19 #pragma omp barrier
S-20 return_val = *tmp;
S-21 #pragma omp barrier
S-22
S-23 #pragma omp single nowait
S-24 {
S-25 free(tmp);
S-26 }
S-27
S-28 return return_val;
S-29 }
C / C++
Fortran
2 Example copyprivate.2.f
S-1 REAL FUNCTION READ_NEXT()
S-2 REAL, POINTER :: TMP
S-3
S-4 !$OMP SINGLE
S-5 ALLOCATE (TMP)
S-6 !$OMP END SINGLE COPYPRIVATE (TMP) ! copies the pointer only
S-7
S-8 !$OMP MASTER
S-9 READ (11) TMP
S-10 !$OMP END MASTER

CHAPTER 7. DATA ENVIRONMENT 327

 S-11
S-12 !$OMP BARRIER
S-13 READ_NEXT = TMP
S-14 !$OMP BARRIER
S-15
S-16 !$OMP SINGLE
S-17 DEALLOCATE (TMP)
S-18 !$OMP END SINGLE NOWAIT
S-19 END FUNCTION READ_NEXT
Fortran
1 Suppose that the number of lock variables required within a parallel region cannot easily be
2 determined prior to entering it. The copyprivate clause can be used to provide access to shared
3 lock variables that are allocated within that parallel region.
C / C++
4 Example copyprivate.3.c
S-1 #include <stdio.h>
S-2 #include <stdlib.h>
S-3 #include <omp.h>
S-4
S-5 omp_lock_t *new_lock()
S-6 {
S-7 omp_lock_t *lock_ptr;
S-8
S-9 #pragma omp single copyprivate(lock_ptr)
S-10 {
S-11 lock_ptr = (omp_lock_t *) malloc(sizeof(omp_lock_t));
S-12 omp_init_lock( lock_ptr );
S-13 }
S-14
S-15 return lock_ptr;
S-16 }
C / C++

328 OpenMP Examples Version 5.0.0 - November 2019

 Fortran
1 Example copyprivate.3.f
S-1 FUNCTION NEW_LOCK()
S-2 USE OMP_LIB ! or INCLUDE "omp_lib.h"
S-3 INTEGER(OMP_LOCK_KIND), POINTER :: NEW_LOCK
S-4
S-5 !$OMP SINGLE
S-6 ALLOCATE(NEW_LOCK)
S-7 CALL OMP_INIT_LOCK(NEW_LOCK)
S-8 !$OMP END SINGLE COPYPRIVATE(NEW_LOCK)
S-9 END FUNCTION NEW_LOCK

2 Note that the effect of the copyprivate clause on a variable with the allocatable attribute
3 is different than on a variable with the pointer attribute. The value of A is copied (as if by
4 intrinsic assignment) and the pointer B is copied (as if by pointer assignment) to the corresponding
5 list items in the other implicit tasks belonging to the parallel region.
6 Example copyprivate.4.f
S-1 SUBROUTINE S(N)
S-2 INTEGER N
S-3
S-4 REAL, DIMENSION(:), ALLOCATABLE :: A
S-5 REAL, DIMENSION(:), POINTER :: B
S-6
S-7 ALLOCATE (A(N))
S-8 !$OMP SINGLE
S-9 ALLOCATE (B(N))
S-10 READ (11) A,B
S-11 !$OMP END SINGLE COPYPRIVATE(A,B)
S-12 ! Variable A is private and is
S-13 ! assigned the same value in each thread
S-14 ! Variable B is shared
S-15
S-16 !$OMP BARRIER
S-17 !$OMP SINGLE
S-18 DEALLOCATE (B)
S-19 !$OMP END SINGLE NOWAIT
S-20 END SUBROUTINE S
Fortran

CHAPTER 7. DATA ENVIRONMENT 329

1 7.12 C++ Reference in Data-Sharing Clauses
C++
2 C++ reference types are allowed in data-sharing attribute clauses as of OpenMP 4.5, except for the
3 threadprivate, copyin and copyprivate clauses. (See the Data-Sharing Attribute
4 Clauses Section of the 4.5 OpenMP specification.) When a variable with C++ reference type is
5 privatized, the object the reference refers to is privatized in addition to the reference itself. The
6 following example shows the use of reference types in data-sharing clauses in the usual way.
7 Additionally it shows how the data-sharing of formal arguments with a C++ reference type on an
8 orphaned task generating construct is determined implicitly. (See the Data-sharing Attribute Rules
9 for Variables Referenced in a Construct Section of the 4.5 OpenMP specification.)
10 Example cpp_reference.1.cpp
S-1
S-2 void task_body (int &);
S-3 void gen_task (int &x) { // on orphaned task construct reference argument
S-4 #pragma omp task // x is implicitly determined firstprivate(x)
S-5 task_body (x);
S-6 }
S-7 void test (int &y, int &z) {
S-8 #pragma omp parallel private(y)
S-9 {
S-10 y = z + 2;
S-11 gen_task (y); // no matter if the argument is determined private
S-12 gen_task (z); // or shared in the enclosing context.
S-13
S-14 y++; // each thread has its own int object y refers to
S-15 gen_task (y);
S-16 }
S-17 }
S-18
C++

330 OpenMP Examples Version 5.0.0 - November 2019

1 7.13 Fortran ASSOCIATE Construct
Fortran
2 The following is an invalid example of specifying an associate name on a data-sharing attribute
3 clause. The constraint in the Data Sharing Attribute Rules section in the OpenMP 4.0 API
4 Specifications states that an associate name preserves the association with the selector established
5 at the ASSOCIATE statement. The associate name b is associated with the shared variable a. With
6 the predetermined data-sharing attribute rule, the associate name b is not allowed to be specified on
7 the private clause.
8 Example associate.1.f
S-1 program example
S-2 real :: a, c
S-3 associate (b => a)
S-4 !$omp parallel private(b, c) ! invalid to privatize b
S-5 c = 2.0*b
S-6 !$omp end parallel
S-7 end associate
S-8 end program

9 In next example, within the parallel construct, the association name thread_id is associated
10 with the private copy of i. The print statement should output the unique thread number.
11 Example associate.2.f
S-1 program example
S-2 use omp_lib
S-3 integer i
S-4 !$omp parallel private(i)
S-5 i = omp_get_thread_num()
S-6 associate(thread_id => i)
S-7 print *, thread_id ! print private i value
S-8 end associate
S-9 !$omp end parallel
S-10 end program

12 The following example illustrates the effect of specifying a selector name on a data-sharing
13 attribute clause. The associate name u is associated with v and the variable v is specified on the
14 private clause of the parallel construct. The construct association is established prior to the
15 parallel region. The association between u and the original v is retained (see the Data Sharing
16 Attribute Rules section in the OpenMP 4.0 API Specifications). Inside the parallel region, v
17 has the value of -1 and u has the value of the original v.
18 Example associate.3.f90

CHAPTER 7. DATA ENVIRONMENT 331

 S-1 program example
S-2 integer :: v
S-3 v = 15
S-4 associate(u => v)
S-5 !$omp parallel private(v)
S-6 v = -1
S-7 print *, v ! private v=-1
S-8 print *, u ! original v=15
S-9 !$omp end parallel
S-10 end associate
S-11 end program
Fortran

332 OpenMP Examples Version 5.0.0 - November 2019

1 CHAPTER 8

2 Memory Model

3 OpenMP provides a shared-memory model that allows all threads on a given device shared access
4 to memory. For a given OpenMP region that may be executed by more than one thread or SIMD
5 lane, variables in memory may be shared or private with respect to those threads or SIMD lanes. A
6 variable’s data-sharing attribute indicates whether it is shared (the shared attribute) or private (the
7 private, firstprivate, lastprivate, linear, and reduction attributes) in the data environment of an
8 OpenMP region. While private variables in an OpenMP region are new copies of the original
9 variable (with same name) that may then be concurrently accessed or modified by their respective
10 threads or SIMD lanes, a shared variable in an OpenMP region is the same as the variable of the
11 same name in the enclosing region. Concurrent accesses or modifications to a shared variable may
12 therefore require synchronization to avoid data races.
13 OpenMP’s memory model also includes a temporary view of memory that is associated with each
14 thread. Two different threads may see different values for a given variable in their respective
15 temporary views. Threads may employ flush operations for the purposes of making their temporary
16 view of a variable consistent with the value of the variable in memory. The effect of a given flush
17 operation is characterized by its flush properties – some combination of strong, release, and
18 acquire – and, for strong flushes, a flush-set.
19 A strong flush will force consistency between the temporary view and the memory for all variables
20 in its flush-set. Furthermore all strong flushes in a program that have intersecting flush-sets will
21 execute in some total order, and within a thread strong flushes may not be reordered with respect to
22 other memory operations on variables in its flush-set. Release and acquire flushes operate in pairs.
23 A release flush may “synchronize” with an acquire flush, and when it does so the local memory
24 operations that precede the release flush will appear to have been completed before the local
25 memory operations on the same variables that follow the acquire flush.
26 Flush operations arise from explicit flush directives, implicit flush directives, and also from
27 the execution of atomic constructs. The flush directive forces a consistent view of local
28 variables of the thread executing the flush. When a list is supplied on the directive, only the items
29 (variables) in the list are guaranteed to be flushed. Implied flushes exist at prescribed locations of

333
1 certain constructs. For the complete list of these locations and associated constructs, please refer to
2 the flush Construct section of the OpenMP Specifications document.
3 In this chapter, examples illustrate how race conditions may arise for accesses to variables with a
4 shared data-sharing attribute when flush operations are not properly employed. A race condition
5 can exist when two or more threads are involved in accessing a variable in which not all of the
6 accesses are reads; that is, a WaR, RaW or WaW condition exists (R=read, a=after, W=write). A
7 RaR does not produce a race condition. In particular, a data race will arise when conflicting
8 accesses do not have a well-defined completion order. The existence of data races in OpenMP
9 programs result in undefined behavior, and so they should generally be avoided for programs to be
10 correct. The completion order of accesses to a shared variable is guaranteed in OpenMP through a
11 set of memory consistency rules that are described in the OpenMP Memory Consitency section of
12 the OpenMP Specifications document.

334 OpenMP Examples Version 5.0.0 - November 2019

1 8.1 The OpenMP Memory Model
2 In the following example, at Print 1, the value of x could be either 2 or 5, depending on the timing
3 of the threads, and the implementation of the assignment to x. There are two reasons that the value
4 at Print 1 might not be 5. First, Print 1 might be executed before the assignment to x is executed.
5 Second, even if Print 1 is executed after the assignment, the value 5 is not guaranteed to be seen by
6 thread 1 because a flush may not have been executed by thread 0 since the assignment.
7 The barrier after Print 1 contains implicit flushes on all threads, as well as a thread synchronization,
8 so the programmer is guaranteed that the value 5 will be printed by both Print 2 and Print 3.
C / C++
9 Example mem_model.1.c
S-1 #include <stdio.h>
S-2 #include <omp.h>
S-3
S-4 int main(){
S-5 int x;
S-6
S-7 x = 2;
S-8 #pragma omp parallel num_threads(2) shared(x)
S-9 {
S-10
S-11 if (omp_get_thread_num() == 0) {
S-12 x = 5;
S-13 } else {
S-14 /* Print 1: the following read of x has a race */
S-15 printf("1: Thread# %d: x = %d\n", omp_get_thread_num(),x );
S-16 }
S-17
S-18 #pragma omp barrier
S-19
S-20 if (omp_get_thread_num() == 0) {
S-21 /* Print 2 */
S-22 printf("2: Thread# %d: x = %d\n", omp_get_thread_num(),x );
S-23 } else {
S-24 /* Print 3 */
S-25 printf("3: Thread# %d: x = %d\n", omp_get_thread_num(),x );
S-26 }
S-27 }
S-28 return 0;
S-29 }
C / C++

CHAPTER 8. MEMORY MODEL 335

 Fortran
1 Example mem_model.1.f90
S-1 PROGRAM MEMMODEL
S-2 INCLUDE "omp_lib.h" ! or USE OMP_LIB
S-3 INTEGER X
S-4
S-5 X = 2
S-6 !$OMP PARALLEL NUM_THREADS(2) SHARED(X)
S-7
S-8 IF (OMP_GET_THREAD_NUM() .EQ. 0) THEN
S-9 X = 5
S-10 ELSE
S-11 ! PRINT 1: The following read of x has a race
S-12 PRINT *,"1: THREAD# ", OMP_GET_THREAD_NUM(), "X = ", X
S-13 ENDIF
S-14
S-15 !$OMP BARRIER
S-16
S-17 IF (OMP_GET_THREAD_NUM() .EQ. 0) THEN
S-18 ! PRINT 2
S-19 PRINT *,"2: THREAD# ", OMP_GET_THREAD_NUM(), "X = ", X
S-20 ELSE
S-21 ! PRINT 3
S-22 PRINT *,"3: THREAD# ", OMP_GET_THREAD_NUM(), "X = ", X
S-23 ENDIF
S-24
S-25 !$OMP END PARALLEL
S-26
S-27 END PROGRAM MEMMODEL
Fortran

336 OpenMP Examples Version 5.0.0 - November 2019

1 The following example demonstrates why synchronization is difficult to perform correctly through
2 variables. The value of flag is undefined in both prints on thread 1 and the value of data is only
3 well-defined in the second print.
C / C++
4 Example mem_model.2.c
S-1 #include <omp.h>
S-2 #include <stdio.h>
S-3 int main()
S-4 {
S-5 int data;
S-6 int flag=0;
S-7 #pragma omp parallel num_threads(2)
S-8 {
S-9 if (omp_get_thread_num()==0)
S-10 {
S-11 /* Write to the data buffer that will be
S-12 read by thread */
S-13 data = 42;
S-14 /* Flush data to thread 1 and strictly order
S-15 the write to data
S-16 relative to the write to the flag */
S-17 #pragma omp flush(flag, data)
S-18 /* Set flag to release thread 1 */
S-19 flag = 1;
S-20 /* Flush flag to ensure that thread 1 sees
S-21 the change */
S-22 #pragma omp flush(flag)
S-23 }
S-24 else if(omp_get_thread_num()==1)
S-25 {
S-26 /* Loop until we see the update to the flag */
S-27 #pragma omp flush(flag, data)
S-28 while (flag < 1)
S-29 {
S-30 #pragma omp flush(flag, data)
S-31 }
S-32 /* Values of flag and data are undefined */
S-33 printf("flag=%d data=%d\n", flag, data);
S-34 #pragma omp flush(flag, data)
S-35 /* Values data will be 42, value of flag
S-36 still undefined */
S-37 printf("flag=%d data=%d\n", flag, data);
S-38 }
S-39 }

CHAPTER 8. MEMORY MODEL 337

 S-40 return 0;
S-41 }
C / C++
Fortran
1 Example mem_model.2.f
S-1 PROGRAM EXAMPLE
S-2 INCLUDE "omp_lib.h" ! or USE OMP_LIB
S-3 INTEGER DATA
S-4 INTEGER FLAG
S-5
S-6 FLAG = 0
S-7 !$OMP PARALLEL NUM_THREADS(2)
S-8 IF(OMP_GET_THREAD_NUM() .EQ. 0) THEN
S-9 ! Write to the data buffer that will be read by thread 1
S-10 DATA = 42
S-11 ! Flush DATA to thread 1 and strictly order the write to DATA
S-12 ! relative to the write to the FLAG
S-13 !$OMP FLUSH(FLAG, DATA)
S-14 ! Set FLAG to release thread 1
S-15 FLAG = 1;
S-16 ! Flush FLAG to ensure that thread 1 sees the change */
S-17 !$OMP FLUSH(FLAG)
S-18 ELSE IF(OMP_GET_THREAD_NUM() .EQ. 1) THEN
S-19 ! Loop until we see the update to the FLAG
S-20 !$OMP FLUSH(FLAG, DATA)
S-21 DO WHILE(FLAG .LT. 1)
S-22 !$OMP FLUSH(FLAG, DATA)
S-23 ENDDO
S-24
S-25 ! Values of FLAG and DATA are undefined
S-26 PRINT *, ’FLAG=’, FLAG, ’ DATA=’, DATA
S-27 !$OMP FLUSH(FLAG, DATA)
S-28
S-29 !Values DATA will be 42, value of FLAG still undefined */
S-30 PRINT *, ’FLAG=’, FLAG, ’ DATA=’, DATA
S-31 ENDIF
S-32 !$OMP END PARALLEL
S-33 END
Fortran

338 OpenMP Examples Version 5.0.0 - November 2019

1 The next example demonstrates why synchronization is difficult to perform correctly through
2 variables. Because the write(1)-flush(1)-flush(2)-read(2) sequence cannot be guaranteed in the
3 example, the statements on thread 0 and thread 1 may execute in either order.
C / C++
4 Example mem_model.3.c
S-1 #include <omp.h>
S-2 #include <stdio.h>
S-3 int main()
S-4 {
S-5 int flag=0;
S-6
S-7 #pragma omp parallel num_threads(3)
S-8 {
S-9 if(omp_get_thread_num()==0)
S-10 {
S-11 /* Set flag to release thread 1 */
S-12 #pragma omp atomic update
S-13 flag++;
S-14 /* Flush of flag is implied by the atomic directive */
S-15 }
S-16 else if(omp_get_thread_num()==1)
S-17 {
S-18 /* Loop until we see that flag reaches 1*/
S-19 #pragma omp flush(flag)
S-20 while(flag < 1)
S-21 {
S-22 #pragma omp flush(flag)
S-23 }
S-24 printf("Thread 1 awoken\n");
S-25
S-26 /* Set flag to release thread 2 */
S-27 #pragma omp atomic update
S-28 flag++;
S-29 /* Flush of flag is implied by the atomic directive */
S-30 }
S-31 else if(omp_get_thread_num()==2)
S-32 {
S-33 /* Loop until we see that flag reaches 2 */
S-34 #pragma omp flush(flag)
S-35 while(flag < 2)
S-36 {
S-37 #pragma omp flush(flag)
S-38 }
S-39 printf("Thread 2 awoken\n");
S-40 }

CHAPTER 8. MEMORY MODEL 339

 S-41 }
S-42 return 0;
S-43 }
C / C++
Fortran
1 Example mem_model.3.f
S-1 PROGRAM EXAMPLE
S-2 INCLUDE "omp_lib.h" ! or USE OMP_LIB
S-3 INTEGER FLAG
S-4
S-5 FLAG = 0
S-6 !$OMP PARALLEL NUM_THREADS(3)
S-7 IF(OMP_GET_THREAD_NUM() .EQ. 0) THEN
S-8 ! Set flag to release thread 1
S-9 !$OMP ATOMIC UPDATE
S-10 FLAG = FLAG + 1
S-11 !Flush of FLAG is implied by the atomic directive
S-12 ELSE IF(OMP_GET_THREAD_NUM() .EQ. 1) THEN
S-13 ! Loop until we see that FLAG reaches 1
S-14 !$OMP FLUSH(FLAG)
S-15 DO WHILE(FLAG .LT. 1)
S-16 !$OMP FLUSH(FLAG)
S-17 ENDDO
S-18
S-19 PRINT *, ’Thread 1 awoken’
S-20
S-21 ! Set FLAG to release thread 2
S-22 !$OMP ATOMIC UPDATE
S-23 FLAG = FLAG + 1
S-24 !Flush of FLAG is implied by the atomic directive
S-25 ELSE IF(OMP_GET_THREAD_NUM() .EQ. 2) THEN
S-26 ! Loop until we see that FLAG reaches 2
S-27 !$OMP FLUSH(FLAG)
S-28 DO WHILE(FLAG .LT. 2)
S-29 !$OMP FLUSH(FLAG)
S-30 ENDDO
S-31
S-32 PRINT *, ’Thread 2 awoken’
S-33 ENDIF
S-34 !$OMP END PARALLEL
S-35 END
Fortran

340 OpenMP Examples Version 5.0.0 - November 2019

 1 8.2 Memory Allocators
2 OpenMP memory allocators can be used to allocate memory with specific allocator traits. In the
3 following example an OpenMP allocator is used to specify an alignment for arrays x and y. The
4 general approach for attributing traits to variables allocated by OpenMP is to create or specify a
5 pre-defined memory space, create an array of traits, and then form an allocator from the memory
6 space and trait. The allocator is then specified in an OpenMP allocation (using an API omp_alloc()
7 function for C/C++ code and an allocate directive for Fortran code in the allocators.1 example).
8 In the example below the xy_memspace variable is declared and assigned the default memory space
9 (omp_default_mem_space). Next, an array for traits is created. Since only one trait will be used,
10 the array size is 1. A trait is a structure in C/C++ and a derived type in Fortran, containing 2
11 components: a key and a corresponding value (key-value pair). The trait key used here is
12 omp_atk_alignment (an enum for C/C++ and a parameter for Fortran) and the trait value of 64 is
13 specified in the xy_traits declaration. These declarations are followed by a call to the
14 omp_init_allocator() function to combine the memory space (xy_memspace) and the traits
15 (xy_traits) to form an allocator (xy_alloc).
16 In the C/C++ code the API omp_allocate() function is used to allocate space, similar to malloc,
17 except that the allocator is specified as the second argument. In Fortran an allocate directive is
18 used to specify an allocator for a following Fortran allocate statement. A variable list may be
19 supplied if the allocator is to be applied to a subset of variables in the Fortran allocate statement.
20 Specifying the complete list is optional. Here, the xy_alloc allocator is specified in the
21 allocator clause, and the set of all variables used in the allocate statement is specified in the list.
C / C++
22 Example allocators.1.c
S-1 #include <omp.h>
S-2 #include <stdio.h>
S-3 #include <stdlib.h>
S-4 #include <stdint.h>
S-5 #define N 1000
S-6
S-7 int main()
S-8 {
S-9 float *x, *y;
S-10 float s=2.0;
S-11
S-12 omp_memspace_handle_t xy_memspace = omp_default_mem_space;
S-13 omp_alloctrait_t xy_traits[1]={omp_atk_alignment, 64};
S-14 omp_allocator_handle_t xy_alloc = omp_init_allocator(xy_memspace,1,xy_traits);
S-15
S-16
S-17 x=(float *)omp_alloc(N*sizeof(float), xy_alloc);
S-18 y=(float *)omp_alloc(N*sizeof(float), xy_alloc);

CHAPTER 8. MEMORY MODEL 341

 S-19
S-20 if( ((intptr_t)(y))%64 != 0 || ((intptr_t)(x))%64 != 0 )
S-21 { printf("ERROR: x|y not 64-Byte aligned\n"); exit(1); }
S-22
S-23 #pragma omp parallel
S-24 {
S-25 #pragma omp for simd simdlen(16) aligned(x,y:64)
S-26 for(int i=0; i<N; i++){ x[i]=i+1; y[i]=i+1; } // initialize
S-27
S-28 #pragma omp for simd simdlen(16) aligned(x,y:64)
S-29 for(int i=0; i<N; i++) y[i] = s*x[i] + y[i];
S-30 }
S-31
S-32
S-33 printf("y[0],y[N-1]: %5.0f %5.0f\n",y[0],y[N-1]); //output: y... 3 3000
S-34
S-35 omp_free(x, xy_alloc);
S-36 omp_free(y, xy_alloc);
S-37 omp_destroy_allocator(xy_alloc);
S-38
S-39 return 0;
S-40 }
C / C++
Fortran
1 Example allocators.1.f90
S-1
S-2 program main
S-3 use omp_lib
S-4
S-5 integer, parameter :: N=1000, align=64
S-6 real, allocatable :: x(:),y(:)
S-7 real :: s = 2.0e0
S-8 integer :: i
S-9
S-10 integer(omp_memspace_handle_kind ) :: xy_memspace = omp_default_mem_space
S-11 type( omp_alloctrait ) :: xy_traits(1) = &
S-12 [omp_alloctrait(omp_atk_alignment,64)]
S-13 integer(omp_allocator_handle_kind) :: xy_alloc
S-14
S-15 xy_alloc = omp_init_allocator( xy_memspace, 1, xy_traits)
S-16
S-17 !$omp allocate(x,y) allocator(xy_alloc)
S-18 allocate(x(N),y(N))
S-19 !! loc is non-standard, but found everywhere
S-20 !! remove these lines if not available

342 OpenMP Examples Version 5.0.0 - November 2019

S-21 if(modulo(loc(x),align) /= 0 .and. modulo(loc(y),align) /=0 ) then
S-22 print*,"ERROR: x|y not 64-byte aligned"; stop
S-23 endif
S-24
S-25 !$omp parallel
S-26
S-27 !$omp do simd simdlen(16) aligned(x,y: 64) !! 64B aligned
S-28 do i=1,N !! initialize
S-29 x(i)=i
S-30 y(i)=i
S-31 end do
S-32
S-33 !$omp do simd simdlen(16) aligned(x,y: 64) !! 64B aligned
S-34 do i = 1,N
S-35 y(i) = s*x(i) + y(i)
S-36 end do
S-37
S-38 !$omp end parallel
S-39
S-40 write(*,’("y(1),y(N):",2f6.0)’) y(1),y(N) !!output: y... 3. 3000.
S-41
S-42 deallocate(x,y)
S-43 call omp_destroy_allocator(xy_alloc)
S-44
S-45 end program
S-46
Fortran

CHAPTER 8. MEMORY MODEL 343

1 8.3 Race Conditions Caused by Implied Copies
2 of Shared Variables in Fortran
Fortran
3 The following example contains a race condition, because the shared variable, which is an array
4 section, is passed as an actual argument to a routine that has an assumed-size array as its dummy
5 argument. The subroutine call passing an array section argument may cause the compiler to copy
6 the argument into a temporary location prior to the call and copy from the temporary location into
7 the original variable when the subroutine returns. This copying would cause races in the
8 parallel region.
9 Example fort_race.1.f90
S-1 SUBROUTINE SHARED_RACE
S-2
S-3 INCLUDE "omp_lib.h" ! or USE OMP_LIB
S-4
S-5 REAL A(20)
S-6 INTEGER MYTHREAD
S-7
S-8 !$OMP PARALLEL SHARED(A) PRIVATE(MYTHREAD)
S-9
S-10 MYTHREAD = OMP_GET_THREAD_NUM()
S-11 IF (MYTHREAD .EQ. 0) THEN
S-12 CALL SUB(A(1:10)) ! compiler may introduce writes to A(6:10)
S-13 ELSE
S-14 A(6:10) = 12
S-15 ENDIF
S-16
S-17 !$OMP END PARALLEL
S-18
S-19 END SUBROUTINE SHARED_RACE
S-20
S-21 SUBROUTINE SUB(X)
S-22 REAL X(*)
S-23 X(1:5) = 4
S-24 END SUBROUTINE SUB
Fortran

344 OpenMP Examples Version 5.0.0 - November 2019

1 CHAPTER 9

2 Program Control

3 Some specific and elementary concepts of controlling program execution are illustrated in the
4 examples of this chapter. Control can be directly managed with conditional control code (ifdef’s
5 with the _OPENMP macro, and the Fortran sentinel (!$) for conditionally compiling). The if
6 clause on some constructs can direct the runtime to ignore or alter the behavior of the construct. Of
7 course, the base-language if statements can be used to control the "execution" of stand-alone
8 directives (such as flush, barrier, taskwait, and taskyield). However, the directives
9 must appear in a block structure, and not as a substatement as shown in examples 1 and 2 of this
10 chapter.

11 CANCELLATION
12 Cancellation (termination) of the normal sequence of execution for the threads in an OpenMP
13 region can be accomplished with the cancel construct. The construct uses a
14 construct-type-clause to set the region-type to activate for the cancellation. That is, inclusion of one
15 of the construct-type-clause names parallel, for, do, sections or taskgroup on the
16 directive line activates the corresponding region. The cancel construct is activated by the first
17 encountering thread, and it continues execution at the end of the named region. The cancel
18 construct is also a cancellation point for any other thread of the team to also continue execution at
19 the end of the named region.
20 Also, once the specified region has been activated for cancellation any thread that encounnters a
21 cancellation point construct with the same named region (construct-type-clause),
22 continues execution at the end of the region.
23 For an activated cancel taskgroup construct, the tasks that belong to the taskgroup set of the
24 innermost enclosing taskgroup region will be canceled.
25 A task that encounters the cancel taskgroup construct continues execution at the end of its task
26 region. Any task of the taskgroup that has already begun execution will run to completion, unless it
27 encounters a cancellation point; tasks that have not begun execution "may" be discarded as
28 completed tasks.

345
1 CONTROL VARIABLES
2 Internal control variables (ICV) are used by implementations to hold values which control the
3 execution of OpenMP regions. Control (and hence the ICVs) may be set as implementation
4 defaults, or set and adjusted through environment variables, clauses, and API functions. Many of
5 the ICV control values are accessible through API function calls. Also, initial ICV values are
6 reported by the runtime if the OMP_DISPLAY_ENV environment variable has been set to TRUE.

7 NESTED CONSTRUCTS
8 Certain combinations of nested constructs are permitted, giving rise to a combined construct
9 consisting of two or more constructs. These can be used when the two (or several) constructs would
10 be used immediately in succession (closely nested). A combined construct can use the clauses of
11 the component constructs without restrictions. A composite construct is a combined construct
12 which has one or more clauses with (an often obviously) modified or restricted meaning, relative to
13 when the constructs are uncombined.
14 Certain nestings are forbidden, and often the reasoning is obvious. Worksharing constructs cannot
15 be nested, and the barrier construct cannot be nested inside a worksharing construct, or a
16 critical construct. Also, target constructs cannot be nested.
17 The parallel construct can be nested, as well as the task construct. The parallel execution in
18 the nested parallel construct(s) is control by the OMP_NESTED and
19 OMP_MAX_ACTIVE_LEVELS environment variables, and the omp_set_nested() and
20 omp_set_max_active_levels() functions.
21 More details on nesting can be found in the Nesting of Regions of the Directives chapter in the
22 OpenMP Specifications document.

346 OpenMP Examples Version 5.0.0 - November 2019

1 9.1 Conditional Compilation
C / C++
2 The following example illustrates the use of conditional compilation using the OpenMP macro
3 _OPENMP. With OpenMP compilation, the _OPENMP macro becomes defined.
4 Example cond_comp.1.c
S-1 #include <stdio.h>
S-2
S-3 int main()
S-4 {
S-5
S-6 # ifdef _OPENMP
S-7 printf("Compiled by an OpenMP-compliant implementation.\n");
S-8 # endif
S-9
S-10 return 0;
S-11 }
C / C++
Fortran
5 The following example illustrates the use of the conditional compilation sentinel. With OpenMP
6 compilation, the conditional compilation sentinel !$ is recognized and treated as two spaces. In
7 fixed form source, statements guarded by the sentinel must start after column 6.
8 Example cond_comp.1.f
S-1 PROGRAM EXAMPLE
S-2
S-3 C234567890
S-4 !$ PRINT *, "Compiled by an OpenMP-compliant implementation."
S-5
S-6 END PROGRAM EXAMPLE
Fortran

CHAPTER 9. PROGRAM CONTROL 347

1 9.2 Internal Control Variables (ICVs)
2 According to Section 2.3 of the OpenMP 4.0 specification, an OpenMP implementation must act as
3 if there are ICVs that control the behavior of the program. This example illustrates two ICVs,
4 nthreads-var and max-active-levels-var. The nthreads-var ICV controls the number of threads
5 requested for encountered parallel regions; there is one copy of this ICV per task. The
6 max-active-levels-var ICV controls the maximum number of nested active parallel regions; there is
7 one copy of this ICV for the whole program.
8 In the following example, the nest-var, max-active-levels-var, dyn-var, and nthreads-var ICVs are
9 modified through calls to the runtime library routines omp_set_nested,
10 omp_set_max_active_levels, omp_set_dynamic, and omp_set_num_threads
11 respectively. These ICVs affect the operation of parallel regions. Each implicit task generated
12 by a parallel region has its own copy of the nest-var, dyn-var, and nthreads-var ICVs.
13 In the following example, the new value of nthreads-var applies only to the implicit tasks that
14 execute the call to omp_set_num_threads. There is one copy of the max-active-levels-var
15 ICV for the whole program and its value is the same for all tasks. This example assumes that nested
16 parallelism is supported.
17 The outer parallel region creates a team of two threads; each of the threads will execute one of
18 the two implicit tasks generated by the outer parallel region.
19 Each implicit task generated by the outer parallel region calls omp_set_num_threads(3),
20 assigning the value 3 to its respective copy of nthreads-var. Then each implicit task encounters an
21 inner parallel region that creates a team of three threads; each of the threads will execute one of
22 the three implicit tasks generated by that inner parallel region.
23 Since the outer parallel region is executed by 2 threads, and the inner by 3, there will be a total
24 of 6 implicit tasks generated by the two inner parallel regions.
25 Each implicit task generated by an inner parallel region will execute the call to
26 omp_set_num_threads(4), assigning the value 4 to its respective copy of nthreads-var.
27 The print statement in the outer parallel region is executed by only one of the threads in the
28 team. So it will be executed only once.
29 The print statement in an inner parallel region is also executed by only one of the threads in the
30 team. Since we have a total of two inner parallel regions, the print statement will be executed
31 twice – once per inner parallel region.

348 OpenMP Examples Version 5.0.0 - November 2019

 C / C++
1 Example icv.1.c
S-1 #include <stdio.h>
S-2 #include <omp.h>
S-3
S-4 int main (void)
S-5 {
S-6 omp_set_nested(1);
S-7 omp_set_max_active_levels(8);
S-8 omp_set_dynamic(0);
S-9 omp_set_num_threads(2);
S-10 #pragma omp parallel
S-11 {
S-12 omp_set_num_threads(3);
S-13
S-14 #pragma omp parallel
S-15 {
S-16 omp_set_num_threads(4);
S-17 #pragma omp single
S-18 {
S-19 // The following should print:
S-20 // Inner: max_act_lev=8, num_thds=3, max_thds=4
S-21 // Inner: max_act_lev=8, num_thds=3, max_thds=4
S-22 printf ("Inner: max_act_lev=%d, num_thds=%d, max_thds=%d\n",
S-23 omp_get_max_active_levels(), omp_get_num_threads(),
S-24 omp_get_max_threads());
S-25 }
S-26 }
S-27
S-28 #pragma omp barrier
S-29 #pragma omp single
S-30 {
S-31 // The following should print:
S-32 // Outer: max_act_lev=8, num_thds=2, max_thds=3
S-33 printf ("Outer: max_act_lev=%d, num_thds=%d, max_thds=%d\n",
S-34 omp_get_max_active_levels(), omp_get_num_threads(),
S-35 omp_get_max_threads());
S-36 }
S-37 }
S-38 return 0;
S-39 }
C / C++

CHAPTER 9. PROGRAM CONTROL 349

 Fortran
1 Example icv.1.f
S-1 program icv
S-2 use omp_lib
S-3
S-4 call omp_set_nested(.true.)
S-5 call omp_set_max_active_levels(8)
S-6 call omp_set_dynamic(.false.)
S-7 call omp_set_num_threads(2)
S-8
S-9 !$omp parallel
S-10 call omp_set_num_threads(3)
S-11
S-12 !$omp parallel
S-13 call omp_set_num_threads(4)
S-14 !$omp single
S-15 ! The following should print:
S-16 ! Inner: max_act_lev= 8 , num_thds= 3 , max_thds= 4
S-17 ! Inner: max_act_lev= 8 , num_thds= 3 , max_thds= 4
S-18 print *, "Inner: max_act_lev=", omp_get_max_active_levels(),
S-19 & ", num_thds=", omp_get_num_threads(),
S-20 & ", max_thds=", omp_get_max_threads()
S-21 !$omp end single
S-22 !$omp end parallel
S-23
S-24 !$omp barrier
S-25 !$omp single
S-26 ! The following should print:
S-27 ! Outer: max_act_lev= 8 , num_thds= 2 , max_thds= 3
S-28 print *, "Outer: max_act_lev=", omp_get_max_active_levels(),
S-29 & ", num_thds=", omp_get_num_threads(),
S-30 & ", max_thds=", omp_get_max_threads()
S-31 !$omp end single
S-32 !$omp end parallel
S-33 end
Fortran

350 OpenMP Examples Version 5.0.0 - November 2019

1 9.3 Placement of flush, barrier, taskwait
2 and taskyield Directives
3 The following example is non-conforming, because the flush, barrier, taskwait, and
4 taskyield directives are stand-alone directives and cannot be the immediate substatement of an
5 if statement.
C / C++
6 Example standalone.1.c
S-1
S-2 void standalone_wrong()
S-3 {
S-4 int a = 1;
S-5
S-6 if (a != 0)
S-7 #pragma omp flush(a)
S-8 /* incorrect as flush cannot be immediate substatement
S-9 of if statement */
S-10
S-11 if (a != 0)
S-12 #pragma omp barrier
S-13 /* incorrect as barrier cannot be immediate substatement
S-14 of if statement */
S-15
S-16 if (a!=0)
S-17 #pragma omp taskyield
S-18 /* incorrect as taskyield cannot be immediate substatement of if statement
S-19 */
S-20
S-21 if (a != 0)
S-22 #pragma omp taskwait
S-23 /* incorrect as taskwait cannot be immediate substatement
S-24 of if statement */
S-25
S-26 }
C / C++

CHAPTER 9. PROGRAM CONTROL 351

1 The following example is non-conforming, because the flush, barrier, taskwait, and
2 taskyield directives are stand-alone directives and cannot be the action statement of an if
3 statement or a labeled branch target.
Fortran
4 Example standalone.1.f90
S-1
S-2
S-3 SUBROUTINE STANDALONE_WRONG()
S-4
S-5 INTEGER A
S-6
S-7 A = 1
S-8
S-9 ! the FLUSH directive must not be the action statement
S-10 ! in an IF statement
S-11 IF (A .NE. 0) !$OMP FLUSH(A)
S-12
S-13 ! the BARRIER directive must not be the action statement
S-14 ! in an IF statement
S-15 IF (A .NE. 0) !$OMP BARRIER
S-16
S-17 ! the TASKWAIT directive must not be the action statement
S-18 ! in an IF statement
S-19 IF (A .NE. 0) !$OMP TASKWAIT
S-20
S-21 ! the TASKYIELD directive must not be the action statement
S-22 ! in an IF statement
S-23 IF (A .NE. 0) !$OMP TASKYIELD
S-24
S-25 GOTO 100
S-26
S-27 ! the FLUSH directive must not be a labeled branch target
S-28 ! statement
S-29 100 !$OMP FLUSH(A)
S-30 GOTO 200
S-31
S-32 ! the BARRIER directive must not be a labeled branch target
S-33 ! statement
S-34 200 !$OMP BARRIER
S-35 GOTO 300
S-36
S-37 ! the TASKWAIT directive must not be a labeled branch target
S-38 ! statement
S-39 300 !$OMP TASKWAIT
S-40 GOTO 400

352 OpenMP Examples Version 5.0.0 - November 2019

 S-41
S-42 ! the TASKYIELD directive must not be a labeled branch target
S-43 ! statement
S-44 400 !$OMP TASKYIELD
S-45
S-46 END SUBROUTINE
Fortran
1 The following version of the above example is conforming because the flush, barrier,
2 taskwait, and taskyield directives are enclosed in a compound statement.
C / C++
3 Example standalone.2.c
S-1 void standalone_ok()
S-2 {
S-3 int a = 1;
S-4
S-5 #pragma omp parallel
S-6 {
S-7 if (a != 0) {
S-8 #pragma omp flush(a)
S-9 }
S-10 if (a != 0) {
S-11 #pragma omp barrier
S-12 }
S-13 if (a != 0) {
S-14 #pragma omp taskwait
S-15 }
S-16 if (a != 0) {
S-17 #pragma omp taskyield
S-18 }
S-19 }
S-20 }
C / C++

CHAPTER 9. PROGRAM CONTROL 353

1 The following example is conforming because the flush, barrier, taskwait, and
2 taskyield directives are enclosed in an if construct or follow the labeled branch target.
Fortran
3 Example standalone.2.f90
S-1 SUBROUTINE STANDALONE_OK()
S-2 INTEGER A
S-3 A = 1
S-4 IF (A .NE. 0) THEN
S-5 !$OMP FLUSH(A)
S-6 ENDIF
S-7 IF (A .NE. 0) THEN
S-8 !$OMP BARRIER
S-9 ENDIF
S-10 IF (A .NE. 0) THEN
S-11 !$OMP TASKWAIT
S-12 ENDIF
S-13 IF (A .NE. 0) THEN
S-14 !$OMP TASKYIELD
S-15 ENDIF
S-16 GOTO 100
S-17 100 CONTINUE
S-18 !$OMP FLUSH(A)
S-19 GOTO 200
S-20 200 CONTINUE
S-21 !$OMP BARRIER
S-22 GOTO 300
S-23 300 CONTINUE
S-24 !$OMP TASKWAIT
S-25 GOTO 400
S-26 400 CONTINUE
S-27 !$OMP TASKYIELD
S-28 END SUBROUTINE
Fortran

354 OpenMP Examples Version 5.0.0 - November 2019

1 9.4 Cancellation Constructs
2 The following example shows how the cancel directive can be used to terminate an OpenMP
3 region. Although the cancel construct terminates the OpenMP worksharing region, programmers
4 must still track the exception through the pointer ex and issue a cancellation for the parallel
5 region if an exception has been raised. The master thread checks the exception pointer to make sure
6 that the exception is properly handled in the sequential part. If cancellation of the parallel
7 region has been requested, some threads might have executed phase_1(). However, it is
8 guaranteed that none of the threads executed phase_2().
C++
9 Example cancellation.1.cpp
S-1 #include <iostream>
S-2 #include <exception>
S-3 #include <cstddef>
S-4
S-5 #define N 10000
S-6
S-7 extern void causes_an_exception();
S-8 extern void phase_1();
S-9 extern void phase_2();
S-10
S-11 void example() {
S-12 std::exception *ex = NULL;
S-13 #pragma omp parallel shared(ex)
S-14 {
S-15 #pragma omp for
S-16 for (int i = 0; i < N; i++) {
S-17 // no ’if’ that prevents compiler optimizations
S-18 try {
S-19 causes_an_exception();
S-20 }
S-21 catch (std::exception *e) {
S-22 // still must remember exception for later handling
S-23 #pragma omp atomic write
S-24 ex = e;
S-25 // cancel worksharing construct
S-26 #pragma omp cancel for
S-27 }
S-28 }
S-29 // if an exception has been raised, cancel parallel region
S-30 if (ex) {
S-31 #pragma omp cancel parallel
S-32 }
S-33 phase_1();

CHAPTER 9. PROGRAM CONTROL 355

 S-34 #pragma omp barrier
S-35 phase_2();
S-36 }
S-37 // continue here if an exception has been thrown in the worksharing loop
S-38 if (ex) {
S-39 // handle exception stored in ex
S-40 }
S-41 }
C++

1 The following example illustrates the use of the cancel construct in error handling. If there is an
2 error condition from the allocate statement, the cancellation is activated. The encountering
3 thread sets the shared variable err and other threads of the binding thread set proceed to the end of
4 the worksharing construct after the cancellation has been activated.
Fortran
5 Example cancellation.1.f90
S-1 subroutine example(n, dim)
S-2 integer, intent(in) :: n, dim(n)
S-3 integer :: i, s, err
S-4 real, allocatable :: B(:)
S-5 err = 0
S-6 !$omp parallel shared(err)
S-7 ! ...
S-8 !$omp do private(s, B)
S-9 do i=1, n
S-10 !$omp cancellation point do
S-11 allocate(B(dim(i)), stat=s)
S-12 if (s .gt. 0) then
S-13 !$omp atomic write
S-14 err = s
S-15 !$omp cancel do
S-16 endif
S-17 ! ...
S-18 ! deallocate private array B
S-19 if (allocated(B)) then
S-20 deallocate(B)
S-21 endif
S-22 enddo
S-23 !$omp end parallel
S-24 end subroutine
Fortran

356 OpenMP Examples Version 5.0.0 - November 2019

1 The following example shows how to cancel a parallel search on a binary tree as soon as the search
2 value has been detected. The code creates a task to descend into the child nodes of the current tree
3 node. If the search value has been found, the code remembers the tree node with the found value
4 through an atomic write to the result variable and then cancels execution of all search tasks. The
5 function search_tree_parallel groups all search tasks into a single task group to control
6 the effect of the cancel taskgroup directive. The level argument is used to create undeferred
7 tasks after the first ten levels of the tree.
C / C++
8 Example cancellation.2.c
S-1 #include <stddef.h>
S-2
S-3 typedef struct binary_tree_s {
S-4 int value;
S-5 struct binary_tree_s *left, *right;
S-6 } binary_tree_t;
S-7
S-8 binary_tree_t *search_tree(binary_tree_t *tree, int value, int level) {
S-9 binary_tree_t *found = NULL;
S-10 if (tree) {
S-11 if (tree->value == value) {
S-12 found = tree;
S-13 }
S-14 else {
S-15 #pragma omp task shared(found) if(level < 10)
S-16 {
S-17 binary_tree_t *found_left = NULL;
S-18 found_left = search_tree(tree->left, value, level + 1);
S-19 if (found_left) {
S-20 #pragma omp atomic write
S-21 found = found_left;
S-22 #pragma omp cancel taskgroup
S-23 }
S-24 }
S-25 #pragma omp task shared(found) if(level < 10)
S-26 {
S-27 binary_tree_t *found_right = NULL;
S-28 found_right = search_tree(tree->right, value, level + 1);
S-29 if (found_right) {
S-30 #pragma omp atomic write
S-31 found = found_right;
S-32 #pragma omp cancel taskgroup
S-33 }
S-34 }
S-35 #pragma omp taskwait
S-36 }

CHAPTER 9. PROGRAM CONTROL 357

 S-37 }
S-38 return found;
S-39 }
S-40 binary_tree_t *search_tree_parallel(binary_tree_t *tree, int value) {
S-41 binary_tree_t *found = NULL;
S-42 #pragma omp parallel shared(found, tree, value)
S-43 {
S-44 #pragma omp master
S-45 {
S-46 #pragma omp taskgroup
S-47 {
S-48 found = search_tree(tree, value, 0);
S-49 }
S-50 }
S-51 }
S-52 return found;
S-53 }
C / C++
1 The following is the equivalent parallel search example in Fortran.
Fortran
2 Example cancellation.2.f90
S-1 module parallel_search
S-2 type binary_tree
S-3 integer :: value
S-4 type(binary_tree), pointer :: right
S-5 type(binary_tree), pointer :: left
S-6 end type
S-7
S-8 contains
S-9 recursive subroutine search_tree(tree, value, level, found)
S-10 type(binary_tree), intent(in), pointer :: tree
S-11 integer, intent(in) :: value, level
S-12 type(binary_tree), pointer :: found
S-13 type(binary_tree), pointer :: found_left => NULL(), found_right => NULL()
S-14
S-15 if (associated(tree)) then
S-16 if (tree%value .eq. value) then
S-17 found => tree
S-18 else
S-19 !$omp task shared(found) if(level<10)
S-20 call search_tree(tree%left, value, level+1, found_left)
S-21 if (associated(found_left)) then
S-22 !$omp critical
S-23 found => found_left

358 OpenMP Examples Version 5.0.0 - November 2019

S-24 !$omp end critical
S-25
S-26 !$omp cancel taskgroup
S-27 endif
S-28 !$omp end task
S-29
S-30 !$omp task shared(found) if(level<10)
S-31 call search_tree(tree%right, value, level+1, found_right)
S-32 if (associated(found_right)) then
S-33 !$omp critical
S-34 found => found_right
S-35 !$omp end critical
S-36
S-37 !$omp cancel taskgroup
S-38 endif
S-39 !$omp end task
S-40
S-41 !$omp taskwait
S-42 endif
S-43 endif
S-44 end subroutine
S-45
S-46 subroutine search_tree_parallel(tree, value, found)
S-47 type(binary_tree), intent(in), pointer :: tree
S-48 integer, intent(in) :: value
S-49 type(binary_tree), pointer :: found
S-50
S-51 found => NULL()
S-52 !$omp parallel shared(found, tree, value)
S-53 !$omp master
S-54 !$omp taskgroup
S-55 call search_tree(tree, value, 0, found)
S-56 !$omp end taskgroup
S-57 !$omp end master
S-58 !$omp end parallel
S-59 end subroutine
S-60
S-61 end module parallel_search
Fortran

CHAPTER 9. PROGRAM CONTROL 359

 1 9.5 The requires Directive
2 The declarative requires directive can be used to specify features that an implementation must
3 provide to compile and execute correctly.
4 In the following example the unified_shared_memory clause of the requires directive
5 ensures that the host and all devices accessible through OpenMP provide a unified address space
6 for memory that is shared by all devices.
7 The example illustrates the use of the requires directive specifying unified shared memory in
8 file scope, before any device directives or device routines. No map clause is needed for the p
9 structure on the device (and its address &p, for the C++ code, is the same address on the host and
10 device). However, scalar variables referenced within the target construct still have a default
11 data-sharing attribute of firstprivate. The q scalar is incremented on the device, and its change is
12 not updated on the host.
C++
13 Example requires.1.cpp
S-1
S-2 #include <iostream>
S-3 using namespace std;
S-4
S-5 #pragma omp requires unified_shared_memory
S-6
S-7 typedef struct mypoints
S-8 {
S-9 double res;
S-10 double data[500];
S-11 } mypoints_t;
S-12
S-13 void do_something_with_p(mypoints_t *p, int q);
S-14
S-15 int main()
S-16 {
S-17 mypoints_t p;
S-18 int q=0;
S-19
S-20 #pragma omp target // no map clauses needed
S-21 { // q is firstprivate
S-22 q++;
S-23 do_something_with_p(&p,q);
S-24 }
S-25 cout<< p.res << " " << q << endl; // output 1 0
S-26 return 0;
S-27 }
S-28 void do_something_with_p(mypoints_t *p, int q)

360 OpenMP Examples Version 5.0.0 - November 2019

 S-29 {
S-30 p->res = q;
S-31 for(int i=0;i<sizeof(p->data)/sizeof(double);i++)
S-32 p->data[i]=q*i;
S-33 }
C++

Fortran
1 Example requires.1.f90
S-1
S-2 module data
S-3 !$omp requires unified_shared_memory
S-4 type,public :: mypoints
S-5 double precision :: res
S-6 double precision :: data(500)
S-7 end type
S-8 end module
S-9
S-10 program main
S-11 use data
S-12 type(mypoints) :: p
S-13 integer :: q=0
S-14
S-15 !$omp target !! no map clauses needed
S-16 q = q + 1 !! q is firstprivate
S-17 call do_something_with_p(p,q)
S-18 !$omp end target
S-19
S-20 write(*,’(f5.0,i5)’) p%res, q !! output 1. 0
S-21
S-22 end program
S-23
S-24 subroutine do_something_with_p(p,q)
S-25 use data
S-26 type(mypoints) :: p
S-27 integer :: q
S-28
S-29 p%res = q;
S-30 do i=1,size(p%data)
S-31 p%data(i)=q*i
S-32 enddo
S-33
S-34 end subroutine
Fortran

CHAPTER 9. PROGRAM CONTROL 361

 1 9.6 declare variant Directive
2 A declare variant directive specifies an alternate function, function variant, to be used in
3 place of the base function when the trait within the match clause matches the OpenMP context at a
4 given call site. The base function follows the directive in the C and C++ languages. In Fortran,
5 either a subroutine or function may be used as the base function, and the declare variant
6 directive must be in the specification part of a subroutine or function (unless a base-proc-name
7 modifier is used, as in the case of a procedure declaration statement). See the OpenMP 5.0
8 Specification for details on the modifier.
9 When multiple declare variant directives are used a function variant becomes a candidate for
10 replacing the base function if the context at the base function call matches the traits of all selectors
11 in the match clause. If there are multiple candidates, a score is assigned with rules for each of the
12 selector traits. The scoring algorithm can be found in the OpenMP 5.0 Specification.
13 In the first example the vxv() function is called within a parallel region, a target region, and
14 in a sequential part of the program. Two function variants, p_vxv() and t_vxv(), are defined for the
15 first two regions by using parallel and target selectors (within the construct trait set) in a match
16 clause. The p_vxv() function variant includes a for construct (do construct for Fortran) for the
17 parallel region, while t_vxv() includes a distribute simd construct for the target
18 region. The t_vxv() function is explicitly compiled for the device using a declare target
19 directive.
20 Since the two declare variant directives have no selectors that match traits for the context of
21 the base function call in the sequential part of the program, the base vxv() function is used there, as
22 expected. (The vectors in the p_vxv and t_vxv functions have been multiplied by 3 and 2,
23 respectively, for checking the validity of the replacement. Normally the purpose of a function
24 variant is to produce the same results by a different method.)
C / C++
25 Example declare_variant.1.c
S-1
S-2 #define N 100
S-3 #include <stdio.h>
S-4 #include <omp.h>
S-5
S-6 void p_vxv(int *v1,int *v2,int *v3,int n);
S-7 void t_vxv(int *v1,int *v2,int *v3,int n);
S-8
S-9 #pragma omp declare variant( p_vxv ) match( construct={parallel} )
S-10 #pragma omp declare variant( t_vxv ) match( construct={target} )
S-11 void vxv(int *v1,int *v2,int *v3,int n) // base function
S-12 {
S-13 for (int i= 0; i< n; i++) v3[i] = v1[i] * v2[i];
S-14 }

362 OpenMP Examples Version 5.0.0 - November 2019

 S-15
S-16 void p_vxv(int *v1,int *v2,int *v3,int n) // function variant
S-17 {
S-18 #pragma omp for
S-19 for (int i= 0; i< n; i++) v3[i] = v1[i] * v2[i]*3;
S-20 }
S-21
S-22 #pragma omp declare target
S-23 void t_vxv(int *v1,int *v2,int *v3,int n) // function variant
S-24 {
S-25 #pragma omp distribute simd
S-26 for (int i= 0; i< n; i++) v3[i] = v1[i] * v2[i]*2;
S-27 }
S-28
S-29 int main()
S-30 {
S-31 int v1[N], v2[N], v3[N];
S-32 for(int i=0; i<N; i++){ v1[i]=(i+1); v2[i]=-(i+1); v3[i]=0; } //init
S-33
S-34 #pragma omp parallel
S-35 {
S-36 vxv(v1,v2,v3,N);
S-37 }
S-38 printf(" %d %d\n",v3[0],v3[N-1]); //from p_vxv -- output: -3 -30000
S-39
S-40 #pragma omp target teams map(to: v1[:N],v2[:N]) map(from: v3[:N])
S-41 {
S-42 vxv(v1,v2,v3,N);
S-43 }
S-44 printf(" %d %d\n",v3[0],v3[N-1]); //from t_vxv -- output: -2 -20000
S-45
S-46 vxv(v1,v2,v3,N);
S-47 printf(" %d %d\n",v3[0],v3[N-1]); //from vxv -- output: -1 -10000
S-48
S-49 return 0;
S-50 }
C / C++
Fortran
1 Example declare_variant.1.f90
S-1
S-2 module subs
S-3 use omp_lib
S-4 contains
S-5 subroutine vxv(v1, v2, v3) !! base function
S-6 integer,intent(in) :: v1(:),v2(:)

CHAPTER 9. PROGRAM CONTROL 363

 S-7 integer,intent(out) :: v3(:)
S-8 integer :: i,n
S-9 !$omp declare variant( p_vxv ) match( construct={parallel} )
S-10 !$omp declare variant( t_vxv ) match( construct={target} )
S-11
S-12 n=size(v1)
S-13 do i = 1,n; v3(i) = v1(i) * v2(i); enddo
S-14
S-15 end subroutine
S-16
S-17 subroutine p_vxv(v1, v2, v3) !! function variant
S-18 integer,intent(in) :: v1(:),v2(:)
S-19 integer,intent(out) :: v3(:)
S-20 integer :: i,n
S-21 n=size(v1)
S-22
S-23 !$omp do
S-24 do i = 1,n; v3(i) = v1(i) * v2(i) * 3; enddo
S-25
S-26 end subroutine
S-27
S-28 subroutine t_vxv(v1, v2, v3) !! function variant
S-29 integer,intent(in) :: v1(:),v2(:)
S-30 integer,intent(out) :: v3(:)
S-31 integer :: i,n
S-32 !$omp declare target
S-33 n=size(v1)
S-34
S-35 !$omp distribute simd
S-36 do i = 1,n; v3(i) = v1(i) * v2(i) * 2; enddo
S-37
S-38 end subroutine
S-39
S-40 end module subs
S-41
S-42
S-43 program main
S-44 use omp_lib
S-45 use subs
S-46 integer,parameter :: N = 100
S-47 integer :: v1(N), v2(N), v3(N)
S-48
S-49 do i= 1,N; v1(i)= i; v2(i)= -i; v3(i)= 0; enddo !! init
S-50
S-51 !$omp parallel
S-52 call vxv(v1,v2,v3)
S-53 !$omp end parallel

364 OpenMP Examples Version 5.0.0 - November 2019

 S-54 print *, v3(1),v3(N) !! from p_vxv -- output: -3 -30000
S-55
S-56 !$omp target teams map(to: v1,v2) map(from: v3)
S-57 call vxv(v1,v2,v3)
S-58 !$omp end target teams
S-59 print *, v3(1),v3(N) !! from t_vxv -- output: -2 -20000
S-60
S-61 call vxv(v1,v2,v3)
S-62 print *, v3(1),v3(N) !! from vxv -- output: -1 -10000
S-63
S-64 end program
Fortran
1 In this example, traits from the device set are used to select a function variant. In the
2 declare variant directive, an isa selector specifies that if the implementation of the
3 “core-avx512” instruction set is detected at compile time the avx512_saxpy() variant function is
4 used for the call to base_saxpy().
5 A compilation of avx512_saxpy() is aware of the AVX-512 instruction set that supports 512-bit
6 vector extensions (for Xeon or Xeon Phi architectures). Within avx512_saxpy(), the
7 parallel for simd construct performs parallel execution, and takes advantage of 64-byte data
8 alignment. When the avx512_saxpy() function variant is not selected, the base base_saxpy()
9 function variant containing only a basic parallel for construct is used for the call to
10 base_saxpy().
C / C++
11 Example declare_variant.2.c
S-1 #include <omp.h>
S-2
S-3 void base_saxpy(int, float, float *, float *);
S-4 void avx512_saxpy(int, float, float *, float *);
S-5
S-6 #pragma omp declare variant( avx512_saxpy ) \
S-7 match( device={isa("core-avx512")} )
S-8 void base_saxpy(int n, float s, float *x, float *y) // base function
S-9 {
S-10 #pragma omp parallel for
S-11 for(int i=0; i<n; i++) y[i] = s*x[i] + y[i];
S-12 }
S-13
S-14 void avx512_saxpy(int n, float s, float *x, float *y) //function variant
S-15 {
S-16 //assume 64-byte alignment for AVX-512
S-17 #pragma omp parallel for simd simdlen(16) aligned(x,y:64)
S-18 for(int i=0; i<n; i++) y[i] = s*x[i] + y[i];
S-19 }

CHAPTER 9. PROGRAM CONTROL 365

 S-20
S-21 // Above may be in another file scope.
S-22
S-23 #include <stdio.h>
S-24 #include <stdlib.h>
S-25 #include <stdint.h>
S-26 #define N 1000
S-27
S-28 int main()
S-29 {
S-30 static float x[N],y[N] __attribute__ ((aligned(64)));
S-31 float s=2.0;
S-32 // Check for 64-byte aligned
S-33 if( ((intptr_t)y)%64 != 0 || ((intptr_t)x)%64 != 0 )
S-34 { printf("ERROR: x|y not 64-Byte aligned\n"); exit(1); }
S-35
S-36 for(int i=0; i<N; i++){ x[i]=i+1; y[i]=i+1; } // initialize
S-37
S-38 base_saxpy(N,s,x,y);
S-39
S-40 printf("y[0],y[N-1]: %5.0f %5.0f\n",y[0],y[N-1]); //output: y... 3 3000
S-41
S-42 return 0;
S-43 }
C / C++
Fortran
1 Example declare_variant.2.f90
S-1
S-2 module subs
S-3 use omp_lib
S-4 contains
S-5
S-6 subroutine base_saxpy(s,x,y) !! base function
S-7 real,intent(inout) :: s,x(:),y(:)
S-8 !$omp declare variant( avx512_saxpy ) &
S-9 !$omp& match( device={isa("core-avx512")} )
S-10
S-11 y = s*x + y
S-12
S-13 end subroutine
S-14
S-15 subroutine avx512_saxpy(s,x,y) !! function variant
S-16 real,intent(inout) :: s,x(:),y(:)
S-17 integer :: i,n
S-18 n=size(x)

366 OpenMP Examples Version 5.0.0 - November 2019

S-19 !!assume 64-byte alignment for AVX-512
S-20 !$omp parallel do simd simdlen(16) aligned(x,y: 64)
S-21 do i = 1,n
S-22 y(i) = s*x(i) + y(i)
S-23 end do
S-24
S-25 end subroutine
S-26
S-27 end module subs
S-28
S-29
S-30 program main
S-31 use omp_lib
S-32 use subs
S-33
S-34 integer, parameter :: N=1000, align=64
S-35 real, allocatable :: x(:),y(:)
S-36 real :: s = 2.0e0
S-37 integer :: i
S-38
S-39 allocate(x(N),y(N)) !! Assumes allocation is 64-byte aligned
S-40 !! (using compiler options, or another
S-41 !! allocation method).
S-42
S-43 !! loc is non-standard, but found everywhere
S-44 !! remove these lines if not available
S-45 if(modulo(loc(x),align) /= 0 .and. modulo(loc(y),align) /=0 ) then
S-46 print*,"ERROR: x|y not 64-byte aligned"; stop
S-47 endif
S-48
S-49 do i=1,N !! initialize
S-50 x(i)=i
S-51 y(i)=i
S-52 end do
S-53
S-54 call base_saxpy(s,x,y)
S-55
S-56 write(*,’("y(1),y(N):",2f6.0)’) y(1),y(N) !!output: y... 3. 3000.
S-57
S-58 deallocate(x,y)
S-59
S-60 end program
Fortran

CHAPTER 9. PROGRAM CONTROL 367

 1 9.7 Metadirective Directive
2 A metadirective directive provides a mechanism to select a directive in a when clause to be
3 used, depending upon one or more contexts: implementation, available devices and the present
4 enclosing construct. The directive in a default clause is used when a directive of the when
5 clause is not selected.
6 In the when clause the context selector (or just selector) defines traits that are evaluated for
7 selection of the directive that follows the selector. This "selectable" directive is called a directive
8 variant. Traits are grouped by construct, implementation and device sets to be used by a selector of
9 the same name.
10 In the first example the architecture trait arch of the device selector set specifies that if an nvptx
11 (NVIDIA) architecture is active in the OpenMP context, then the teams loop directive variant is
12 selected as the directive; otherwise, the parallel loop directive variant of the default
13 clause is selected as the directive. That is, if a device of nvptx architecture is supported by the
14 implementation within the enclosing target construct, its directive variant is selected. The
15 architecture names, such as nvptx, are implementation defined. Also, note that device as used in a
16 target construct specifies a device number, while device, as used in the metadirective
17 directive as selector set, has traits of kind, isa and arch.
C / C++
18 Example metadirective.1.c
S-1
S-2 #define N 100
S-3 #include <stdio.h>
S-4
S-5 int main()
S-6 {
S-7 int v1[N], v2[N], v3[N];
S-8 for(int i=0; i<N; i++){ v1[i]=(i+1); v2[i]=-(i+1); }
S-9
S-10 #pragma omp target map(to:v1,v2) map(from:v3) device(0)
S-11 #pragma omp metadirective \
S-12 when( device={arch("nvptx")}: teams loop) \
S-13 default( parallel loop)
S-14 for (int i= 0; i< N; i++) v3[i] = v1[i] * v2[i];
S-15
S-16 printf(" %d %d\n",v3[0],v3[N-1]); //output: -1 -10000
S-17
S-18 return 0;
S-19 }
C / C++

368 OpenMP Examples Version 5.0.0 - November 2019

 Fortran
1 Example metadirective.1.f90
S-1
S-2 program main
S-3 integer, parameter :: N= 100
S-4 integer :: v1(N), v2(N), v3(N);
S-5
S-6 do i=1,N; v1(i)=i; v2(i)=-i; enddo ! initialize
S-7
S-8 !$omp target map(to:v1,v2) map(from:v3) device(0)
S-9 !$omp metadirective &
S-10 !$omp& when( device={arch("nvptx")}: teams loop) &
S-11 !$omp& default( parallel loop)
S-12 do i= 1,N; v3(i) = v1(i) * v2(i); enddo
S-13
S-14 print *, v3(1),v3(N) !!output: -1 -10000
S-15 end program
Fortran
2 In the second example, the implementation selector set is specified in the when clause to
3 distinguish between AMD and NVIDIA platforms. Additionally, specific architectures are specified
4 with the device selector set.
5 In the code, different teams constructs are employed as determined by the metadirective
6 directive. The number of teams is restricted by a num_teams clause and a thread limit is also set
7 by a thread_limit clause for vendor AMD and NVIDIA platforms and specific architecture
8 traits. Otherwise, just the teams construct is used without any clauses, as prescribed by the
9 default clause.
C / C++
10 Example metadirective.2.c
S-1
S-2 #define N 100
S-3 #include <stdio.h>
S-4 #include <omp.h>
S-5
S-6 void work_on_chunk(int idev, int i);
S-7
S-8 int main() //Driver
S-9 {
S-10 int i,idev;
S-11
S-12 for (idev=0; idev<omp_get_num_devices()-1; idev++)
S-13 {
S-14 #pragma omp target device(i)

CHAPTER 9. PROGRAM CONTROL 369

 S-15 #pragma omp metadirective \
S-16 when( implementation={vendor(nvidia)}, device={arch("kepler")}: \
S-17 teams num_teams(512) thread_limit(32) ) \
S-18 when( implementation={vendor(amd)}, device={arch("fiji" )}: \
S-19 teams num_teams(512) thread_limit(64) ) \
S-20 default( \
S-21 teams)
S-22 #pragma omp distribute parallel for
S-23 for (i=0; i<N; i++) work_on_chunk(idev,i);
S-24 }
S-25 }
S-26
C / C++
Fortran
1 Example metadirective.2.f90
S-1
S-2 program main !!Driver
S-3 use omp_lib
S-4 implicit none
S-5 integer, parameter :: N=1000
S-6 external :: work_on_chunk
S-7 integer :: i,idev
S-8
S-9 do idev=0,omp_get_num_devices()-1
S-10
S-11 !$omp target device(i)
S-12 !$omp metadirective \
S-13 !$omp& when( implementation={vendor(nvidia)}, device={arch("kepler")}: &
S-14 !$omp teams num_teams(512) thread_limit(32) ) &
S-15 !$omp& when( implementation={vendor(amd)}, device={arch("fiji" )}: &
S-16 !$omp& teams num_teams(512) thread_limit(64) ) &
S-17 !$omp& default( &
S-18 !$omp& teams)
S-19 !$omp distribute parallel for
S-20 do i=1,N
S-21 call work_on_chunk(idev,i)
S-22 end do
S-23
S-24 end do
S-25
S-26 end program
S-27
Fortran

370 OpenMP Examples Version 5.0.0 - November 2019

 1 In the third example, a construct selector set is specified in the when clause. Here, a
2 metadirective directive is used within a function that is also compiled as a function for a
3 target device as directed by the declare target directive. The target directive name of the
4 construct selector ensures that the distribute parallel for/do construct is employed
5 for the target compilation. Otherwise, for the host-compiled version the
6 parallel for/do simd construct is used.
7 In the first call to the exp_pi_diff() routine the context is a target teams construct and the
8 distribute parallel for/do construct version of the function is invoked, while in the
9 second call the parallel for/do simd construct version is used.
10 This case illustrates an important point for users that may want to hoist the target directive out of
11 a function that contains the usual target teams distribute parallel for/do construct
12 (for providing alternate constructs through the metadirective directive as here). While this
13 combined construct can be decomposed into a target and teams distribute parallel
14 for/do constructs, the OpenMP 5.0 specification has the restriction: “If a teams construct is
15 nested within a target construct, that target construct must contain no statements, declarations
16 or directives outside of the teams construct”. So, the teams construct must immediately follow
17 the target construct without any intervening code statements (which includes function calls).
18 Since the target construct alone cannot be hoisted out of a function, the target teams
19 construct has been hoisted out of the function, and the distribute parallel for/do
20 construct is used as the variant directive of the metadirective directive within the function.
C / C++
21 Example metadirective.3.c
S-1 #include <stdio.h>
S-2 #include <math.h>
S-3 #define N 1000
S-4
S-5 #pragma omp declare target
S-6 void exp_pi_diff(double *d, double my_pi){
S-7 #pragma omp metadirective \
S-8 when( construct={target}: distribute parallel for ) \
S-9 default( parallel for simd)
S-10 for(int i = 0; i<N; i++) d[i] = exp( (M_PI-my_pi)*i );
S-11 }
S-12 #pragma omp end declare target
S-13
S-14 int main()
S-15 {
S-16 //Calculates sequence of exponentials: (M_PI-my_pi) * index
S-17 //M_PI is from math.h, and my_pi is user provided.
S-18
S-19 double d[N];
S-20 double my_pi=3.14159265358979e0;
S-21

CHAPTER 9. PROGRAM CONTROL 371

 S-22 #pragma omp target teams map(tofrom: d[0:N])
S-23 exp_pi_diff(d,my_pi);
S-24 // value should be near 1
S-25 printf("d[N-1] = %20.14f\n",d[N-1]); // ...= 1.00000000000311
S-26
S-27 exp_pi_diff(d,my_pi); // value should be near 1
S-28 printf("d[N-1] = %20.14f\n",d[N-1]); // ...= 1.00000000000311
S-29 }
C / C++
Fortran
1 Example metadirective.3.f90
S-1
S-2 module params
S-3 integer, parameter :: N=1000
S-4 DOUBLE PRECISION, PARAMETER::M_PI=4.0d0*DATAN(1.0d0) !3.1415926535897932_8
S-5 end module
S-6
S-7
S-8 subroutine exp_pi_diff(d, my_pi)
S-9 use params
S-10 implicit none
S-11 integer :: i
S-12 double precision :: d(N), my_pi
S-13 !$omp declare target
S-14
S-15 !$omp metadirective &
S-16 !$omp& when( construct={target}: distribute parallel do ) &
S-17 !$omp& default( parallel do simd)
S-18
S-19 do i = 1,size(d)
S-20 d(i) = exp( (M_PI-my_pi)*i )
S-21 end do
S-22
S-23 end subroutine
S-24
S-25 program main
S-26 ! Calculates sequence of exponentials: (M_PI-my_pi) * index
S-27 ! M_PI is from usual way, and my_pi is user provided.
S-28 ! Fortran Standard does not provide PI
S-29
S-30 use params
S-31 implicit none
S-32 double precision :: d(N)
S-33 double precision :: my_pi=3.14159265358979d0
S-34

372 OpenMP Examples Version 5.0.0 - November 2019

S-35 !$omp target teams map(from: d)
S-36 call exp_pi_diff(d,my_pi)
S-37 ! value should be near 1
S-38 print*, "d(N) = ",d(N) ! 1.00000000000311
S-39
S-40 call exp_pi_diff(d,my_pi) ! value should be near 1
S-41 print*, "d(N) = ",d(N) ! 1.00000000000311
S-42
S-43 end program
Fortran

CHAPTER 9. PROGRAM CONTROL 373

1 9.8 Nested Loop Constructs
2 The following example of loop construct nesting is conforming because the inner and outer loop
3 regions bind to different parallel regions:
C / C++
4 Example nested_loop.1.c
S-1 void work(int i, int j) {}
S-2
S-3 void good_nesting(int n)
S-4 {
S-5 int i, j;
S-6 #pragma omp parallel default(shared)
S-7 {
S-8 #pragma omp for
S-9 for (i=0; i<n; i++) {
S-10 #pragma omp parallel shared(i, n)
S-11 {
S-12 #pragma omp for
S-13 for (j=0; j < n; j++)
S-14 work(i, j);
S-15 }
S-16 }
S-17 }
S-18 }
C / C++
Fortran
5 Example nested_loop.1.f
S-1 SUBROUTINE WORK(I, J)
S-2 INTEGER I, J
S-3 END SUBROUTINE WORK
S-4
S-5 SUBROUTINE GOOD_NESTING(N)
S-6 INTEGER N
S-7
S-8 INTEGER I
S-9 !$OMP PARALLEL DEFAULT(SHARED)
S-10 !$OMP DO
S-11 DO I = 1, N
S-12 !$OMP PARALLEL SHARED(I,N)
S-13 !$OMP DO
S-14 DO J = 1, N
S-15 CALL WORK(I,J)
S-16 END DO

374 OpenMP Examples Version 5.0.0 - November 2019

 S-17 !$OMP END PARALLEL
S-18 END DO
S-19 !$OMP END PARALLEL
S-20 END SUBROUTINE GOOD_NESTING
Fortran
1 The following variation of the preceding example is also conforming:
C / C++
2 Example nested_loop.2.c
S-1 void work(int i, int j) {}
S-2
S-3
S-4 void work1(int i, int n)
S-5 {
S-6 int j;
S-7 #pragma omp parallel default(shared)
S-8 {
S-9 #pragma omp for
S-10 for (j=0; j<n; j++)
S-11 work(i, j);
S-12 }
S-13 }
S-14
S-15
S-16 void good_nesting2(int n)
S-17 {
S-18 int i;
S-19 #pragma omp parallel default(shared)
S-20 {
S-21 #pragma omp for
S-22 for (i=0; i<n; i++)
S-23 work1(i, n);
S-24 }
S-25 }
C / C++

CHAPTER 9. PROGRAM CONTROL 375

 Fortran
1 Example nested_loop.2.f
S-1 SUBROUTINE WORK(I, J)
S-2 INTEGER I, J
S-3 END SUBROUTINE WORK
S-4
S-5 SUBROUTINE WORK1(I, N)
S-6 INTEGER J
S-7 !$OMP PARALLEL DEFAULT(SHARED)
S-8 !$OMP DO
S-9 DO J = 1, N
S-10 CALL WORK(I,J)
S-11 END DO
S-12 !$OMP END PARALLEL
S-13 END SUBROUTINE WORK1
S-14
S-15 SUBROUTINE GOOD_NESTING2(N)
S-16 INTEGER N
S-17 !$OMP PARALLEL DEFAULT(SHARED)
S-18 !$OMP DO
S-19 DO I = 1, N
S-20 CALL WORK1(I, N)
S-21 END DO
S-22 !$OMP END PARALLEL
S-23 END SUBROUTINE GOOD_NESTING2
Fortran

376 OpenMP Examples Version 5.0.0 - November 2019

1 9.9 Restrictions on Nesting of Regions
2 The examples in this section illustrate the region nesting rules.
3 The following example is non-conforming because the inner and outer loop regions are closely
4 nested:
C / C++
5 Example nesting_restrict.1.c
S-1
S-2 void work(int i, int j) {}
S-3
S-4 void wrong1(int n)
S-5 {
S-6
S-7 #pragma omp parallel default(shared)
S-8 {
S-9 int i, j;
S-10 #pragma omp for
S-11 for (i=0; i<n; i++) {
S-12 /* incorrect nesting of loop regions */
S-13 #pragma omp for
S-14 for (j=0; j<n; j++)
S-15 work(i, j);
S-16 }
S-17 }
S-18
S-19 }
C / C++
Fortran
6 Example nesting_restrict.1.f
S-1
S-2 SUBROUTINE WORK(I, J)
S-3 INTEGER I, J
S-4
S-5 END SUBROUTINE WORK
S-6
S-7 SUBROUTINE WRONG1(N)
S-8
S-9 INTEGER N
S-10 INTEGER I,J
S-11 !$OMP PARALLEL DEFAULT(SHARED)
S-12 !$OMP DO
S-13 DO I = 1, N

CHAPTER 9. PROGRAM CONTROL 377

 S-14 !$OMP DO ! incorrect nesting of loop regions
S-15 DO J = 1, N
S-16 CALL WORK(I,J)
S-17 END DO
S-18 END DO
S-19 !$OMP END PARALLEL
S-20
S-21 END SUBROUTINE WRONG1
Fortran
1 The following orphaned version of the preceding example is also non-conforming:
C / C++
2 Example nesting_restrict.2.c
S-1 void work(int i, int j) {}
S-2 void work1(int i, int n)
S-3 {
S-4 int j;
S-5 /* incorrect nesting of loop regions */
S-6 #pragma omp for
S-7 for (j=0; j<n; j++)
S-8 work(i, j);
S-9 }
S-10
S-11 void wrong2(int n)
S-12 {
S-13 #pragma omp parallel default(shared)
S-14 {
S-15 int i;
S-16 #pragma omp for
S-17 for (i=0; i<n; i++)
S-18 work1(i, n);
S-19 }
S-20 }
C / C++

378 OpenMP Examples Version 5.0.0 - November 2019

 Fortran
1 Example nesting_restrict.2.f
S-1 SUBROUTINE WORK1(I,N)
S-2 INTEGER I, N
S-3 INTEGER J
S-4 !$OMP DO ! incorrect nesting of loop regions
S-5 DO J = 1, N
S-6 CALL WORK(I,J)
S-7 END DO
S-8 END SUBROUTINE WORK1
S-9 SUBROUTINE WRONG2(N)
S-10 INTEGER N
S-11 INTEGER I
S-12 !$OMP PARALLEL DEFAULT(SHARED)
S-13 !$OMP DO
S-14 DO I = 1, N
S-15 CALL WORK1(I,N)
S-16 END DO
S-17 !$OMP END PARALLEL
S-18 END SUBROUTINE WRONG2
Fortran
2 The following example is non-conforming because the loop and single regions are closely nested:
C / C++
3 Example nesting_restrict.3.c
S-1 void work(int i, int j) {}
S-2 void wrong3(int n)
S-3 {
S-4 #pragma omp parallel default(shared)
S-5 {
S-6 int i;
S-7 #pragma omp for
S-8 for (i=0; i<n; i++) {
S-9 /* incorrect nesting of regions */
S-10 #pragma omp single
S-11 work(i, 0);
S-12 }
S-13 }
S-14 }
C / C++

CHAPTER 9. PROGRAM CONTROL 379

 Fortran
1 Example nesting_restrict.3.f
S-1 SUBROUTINE WRONG3(N)
S-2 INTEGER N
S-3
S-4 INTEGER I
S-5 !$OMP PARALLEL DEFAULT(SHARED)
S-6 !$OMP DO
S-7 DO I = 1, N
S-8 !$OMP SINGLE ! incorrect nesting of regions
S-9 CALL WORK(I, 1)
S-10 !$OMP END SINGLE
S-11 END DO
S-12 !$OMP END PARALLEL
S-13 END SUBROUTINE WRONG3
Fortran
2 The following example is non-conforming because a barrier region cannot be closely nested
3 inside a loop region:
C / C++
4 Example nesting_restrict.4.c
S-1 void work(int i, int j) {}
S-2 void wrong4(int n)
S-3 {
S-4
S-5 #pragma omp parallel default(shared)
S-6 {
S-7 int i;
S-8 #pragma omp for
S-9 for (i=0; i<n; i++) {
S-10 work(i, 0);
S-11 /* incorrect nesting of barrier region in a loop region */
S-12 #pragma omp barrier
S-13 work(i, 1);
S-14 }
S-15 }
S-16 }
C / C++

380 OpenMP Examples Version 5.0.0 - November 2019

 Fortran
1 Example nesting_restrict.4.f
S-1 SUBROUTINE WRONG4(N)
S-2 INTEGER N
S-3
S-4 INTEGER I
S-5 !$OMP PARALLEL DEFAULT(SHARED)
S-6 !$OMP DO
S-7 DO I = 1, N
S-8 CALL WORK(I, 1)
S-9 ! incorrect nesting of barrier region in a loop region
S-10 !$OMP BARRIER
S-11 CALL WORK(I, 2)
S-12 END DO
S-13 !$OMP END PARALLEL
S-14 END SUBROUTINE WRONG4
Fortran
2 The following example is non-conforming because the barrier region cannot be closely nested
3 inside the critical region. If this were permitted, it would result in deadlock due to the fact that
4 only one thread at a time can enter the critical region:
C / C++
5 Example nesting_restrict.5.c
S-1 void work(int i, int j) {}
S-2 void wrong5(int n)
S-3 {
S-4 #pragma omp parallel
S-5 {
S-6 #pragma omp critical
S-7 {
S-8 work(n, 0);
S-9 /* incorrect nesting of barrier region in a critical region */
S-10 #pragma omp barrier
S-11 work(n, 1);
S-12 }
S-13 }
S-14 }
C / C++

CHAPTER 9. PROGRAM CONTROL 381

 Fortran
1 Example nesting_restrict.5.f
S-1 SUBROUTINE WRONG5(N)
S-2 INTEGER N
S-3
S-4 !$OMP PARALLEL DEFAULT(SHARED)
S-5 !$OMP CRITICAL
S-6 CALL WORK(N,1)
S-7 ! incorrect nesting of barrier region in a critical region
S-8 !$OMP BARRIER
S-9 CALL WORK(N,2)
S-10 !$OMP END CRITICAL
S-11 !$OMP END PARALLEL
S-12 END SUBROUTINE WRONG5
Fortran
2 The following example is non-conforming because the barrier region cannot be closely nested
3 inside the single region. If this were permitted, it would result in deadlock due to the fact that
4 only one thread executes the single region:
C / C++
5 Example nesting_restrict.6.c
S-1 void work(int i, int j) {}
S-2 void wrong6(int n)
S-3 {
S-4 #pragma omp parallel
S-5 {
S-6 #pragma omp single
S-7 {
S-8 work(n, 0);
S-9 /* incorrect nesting of barrier region in a single region */
S-10 #pragma omp barrier
S-11 work(n, 1);
S-12 }
S-13 }
S-14 }
C / C++

382 OpenMP Examples Version 5.0.0 - November 2019

 Fortran
1 Example nesting_restrict.6.f
S-1 SUBROUTINE WRONG6(N)
S-2 INTEGER N
S-3
S-4 !$OMP PARALLEL DEFAULT(SHARED)
S-5 !$OMP SINGLE
S-6 CALL WORK(N,1)
S-7 ! incorrect nesting of barrier region in a single region
S-8 !$OMP BARRIER
S-9 CALL WORK(N,2)
S-10 !$OMP END SINGLE
S-11 !$OMP END PARALLEL
S-12 END SUBROUTINE WRONG6
Fortran

CHAPTER 9. PROGRAM CONTROL 383

 1 9.10 Target Offload
2 In the OpenMP 5.0 implementation the OMP_TARGET_OFFLOAD environment variable was
3 defined to change default offload behavior. By default the target code (region) is executed on the
4 host if the target device does not exist or the implementation does not support the target device.
5 In an OpenMP 5.0 compliant implementation, setting the OMP_TARGET_OFFLOAD variable to
6 MANDATORY will force the program to terminate execution when a target construct is
7 encountered and the target device is not supported or is not available. With a value DEFAULT the
8 target region will execute on a device if the device exists and is supported by the implementation,
9 otherwise it will execute on the host. Support for the DISABLED value is optional; when it is
10 supported the behavior is as if only the host device exists (other devices are considered non-existent
11 to the runtime), and target regions are executed on the host.
12 The following example reports execution behavior for different values of the
13 OMP_TARGET_OFFLOAD variable. A handy routine for extracting the OMP_TARGET_OFFLOAD
14 environment variable value is deployed here, because the OpenMP API does not have a routine for
15 obtaining the value.
16 Note: The example issues a warning when a pre-5.0 implementation is used, indicating that the
17 OMP_TARGET_OFFLOAD is ignored. The value of the OMP_TARGET_OFFLOAD variable is
18 reported when the OMP_DISPLAY_ENV environment variable is set to TRUE or VERBOSE.
C / C++
19 Example target_offload_control.1.c
S-1
S-2 #include <omp.h>
S-3 #include <stdio.h>
S-4 #include <ctype.h>
S-5 #include <stdlib.h>
S-6 #include <string.h>
S-7
S-8 typedef enum offload_policy
S-9 {MANDATORY, DISABLED, DEFAULT, UNKNOWN, NOTSET} offload_policy_t;
S-10
S-11
S-12 offload_policy_t get_offload_policy()
S-13 {
S-14 char *env, *end;
S-15 size_t n;
S-16
S-17 env = getenv("OMP_TARGET_OFFLOAD");
S-18 if(env == NULL) return NOTSET;
S-19
S-20 end = env + strlen(env); //Find trimmed beginning/end
S-21 while ( *env && isspace(*(env )) ) env++;

384 OpenMP Examples Version 5.0.0 - November 2019

S-22 while (end != env && isspace(*(end-1)) ) end--;
S-23 n = (int)(end - env);
S-24
S-25 //Find ONLY string -nothing more, case insensitive
S-26 if (n == 9 && !strncasecmp(env, "MANDATORY",n)) return MANDATORY;
S-27 else if (n == 8 && !strncasecmp(env, "DISABLED" ,n)) return DISABLED ;
S-28 else if (n == 7 && !strncasecmp(env, "DEFAULT" ,n)) return DEFAULT ;
S-29 else return UNKNOWN ;
S-30 }
S-31
S-32
S-33 int main()
S-34 {
S-35 int i;
S-36 int device_num, on_init_dev;
S-37
S-38 // get policy from OMP_TARGET_OFFLOAD variable
S-39 offload_policy_t policy = get_offload_policy();
S-40
S-41 if(_OPENMP< 201811)
S-42 {
S-43 printf("Warning: OMP_TARGET_OFFLOAD NOT supported by VER. %d\n",_OPENMP );
S-44 printf(" If OMP_TARGET_OFFLOAD is set, it will be ignored.\n");
S-45 }
S-46
S-47 // Set target device number to an unavailable
S-48 // device to test offload policy.
S-49 device_num = omp_get_num_devices() + 1;
S-50
S-51 // Policy:
S-52 printf("OMP_TARGET_OFFLOAD Policy: ");
S-53 if (policy==MANDATORY) printf("MANDATORY-Terminate if dev. not avail\n");
S-54 else if(policy==DISABLED ) printf("DISABLED -(if supported) Only on Host\n");
S-55 else if(policy==DEFAULT ) printf("DEFAULT -On host if device not avail\n");
S-56 else if(policy==UNKNOWN ) printf("OMP_TARGET_OFFLOAD has unknown value\n" );
S-57 else if(policy==NOTSET ) printf("OMP_TARGET_OFFLOAD not set\n" );
S-58
S-59
S-60 on_init_dev = 1;
S-61 // device# out of range--not supported
S-62 #pragma omp target device(device_num) map(tofrom: on_init_dev)
S-63 on_init_dev=omp_is_initial_device();
S-64
S-65 if (policy == MANDATORY && _OPENMP >= 201811)
S-66 printf("ERROR: OpenMP 5.0 implementation ignored MANDATORY policy.\n");
S-67
S-68 printf("Target region executed on init dev %s\n", on_init_dev ? "TRUE":"FALSE"

CHAPTER 9. PROGRAM CONTROL 385

 S-69
S-70 return 0;
S-71 }
C / C++
Fortran
1 Example target_offload_control.1.f90
S-1
S-2
S-3 module offload_policy
S-4 implicit none
S-5 integer, parameter :: LEN_POLICY=10
S-6 contains
S-7 character(LEN_POLICY) function get_offload_policy()
S-8 character(64) :: env
S-9 integer :: length, i
S-10 env=repeat(’ ’,len(env))
S-11 !policy is blank if not found *
S-12 call get_environment_variable("OMP_TARGET_OFFLOAD",env,length)
S-13
S-14 do i = 1,len(env) !Makes a-z upper case
S-15 if(iachar(env(i:i))>96) env(i:i)=achar(iachar(env(i:i))-32)
S-16 end do
S-17
S-18 get_offload_policy = trim(adjustl(env)) !remove peripheral spaces
S-19
S-20 if(length==0) get_offload_policy="NOTSET"
S-21
S-22 return
S-23
S-24 end function
S-25
S-26 end module
S-27
S-28 program policy_test
S-29
S-30 use omp_lib
S-31 use offload_policy
S-32
S-33 integer :: i, device_num
S-34 logical :: on_init_dev
S-35 character(LEN_POLICY) :: policy
S-36
S-37 policy = get_offload_policy() !!Get OMP_TARGET_OFFLOAD value
S-38
S-39 if (OPENMP_VERSION < 201811) then

386 OpenMP Examples Version 5.0.0 - November 2019

S-40 print*,"Warning: OMP_TARGET_OFFLOAD NOT supported by VER.",OPENMP_VERSION
S-41 print*," If OMP_TARGET_OFFLOAD is set, it will be ignored."
S-42 endif
S-43
S-44 !Set target device number to an unavailable device to test offload policy.
S-45 device_num = omp_get_num_devices() + 1
S-46
S-47 !!Report OMP_TARGET_OFFOAD value
S-48 select CASE (policy)
S-49 case("MANDATORY")
S-50 print*,"Policy: MANDATORY-Terminate if dev. not avail."
S-51 case("DISABLED")
S-52 print*,"Policy: DISABLED-(if supported) Only on Host."
S-53 case("DEFAULT")
S-54 print*,"Policy: DEFAULT On host if device not avail."
S-55 case("NOTSET")
S-56 print*," OMP_TARGET_OFFLOAD is not set."
S-57 case DEFAULT
S-58 print*," OMP_TARGET_OFFLOAD has unknown value."
S-59 print*," UPPER CASE VALUE=",policy
S-60 end select
S-61
S-62
S-63 on_init_dev = .FALSE.
S-64 !! device# out of range--not supported
S-65 !$omp target device(device_num) map(tofrom: on_init_dev)
S-66 on_init_dev=omp_is_initial_device()
S-67 !$omp end target
S-68
S-69 if (policy=="MANDATORY" .and. OPENMP_VERSION>=201811) then
S-70 print*,"OMP ERROR: OpenMP 5.0 implementation ignored MANDATORY policy."
S-71 print*," Termination should have occurred at target directive."
S-72 endif
S-73
S-74 print*, "Target executed on init dev (T|F): ", on_init_dev
S-75
S-76 end program policy_test
Fortran

CHAPTER 9. PROGRAM CONTROL 387

1 APPENDIX A

2 Document Revision History

3 A.1 Changes from 4.5.0 to 5.0.0

4 • Added the following examples for the 5.0 features:
5 – Extended teams construct for host execution (Section 1.3 on page 8)
6 – loop and teams loop constructs specify loop iterations that can execute concurrently
7 (Section 1.15 on page 38)
8 – Task data affinity is indicated by affinity clause of task construct (Section 2.2 on
9 page 52)
10 – Display thread affinity with OMP_DISPLAY_AFFINITY environment variable or
11 omp_display_affinity() API routine (Section 2.3 on page 53)
12 – taskwait with dependences (Section 3.3.6 on page 94)
13 – mutexinoutset task dependences (Section 3.3.7 on page 101)
14 – Multidependence Iterators (in depend clauses) (Section 3.3.8 on page 104)
15 – Combined constructs: parallel master taskloop and
16 parallel master taskloop simd (Section 3.7 on page 116)
17 – Reverse Offload through ancestor modifier of device clause. (Section 4.1.6 on page 127)
18 – Array Shaping with the shape-operator (Section 4.5 on page 140)
19 – The declare mapper construct (Section 4.6 on page 142)
20 – Acquire and Release Semantics Synchronization: Memory ordering clauses acquire,
21 release, and acq_rel were added to flush and atomic constructs (Section 6.7 on page 240)
22 – depobj construct provides dependence objects for subsequent use in depend clauses
23 (Section 6.9 on page 252)

388
 1 – reduction clause for task construct (Section 7.9.2 on page 303)
2 – reduction clause for taskloop construct (Section 7.9.3 on page 306)
3 – reduction clause for taskloop simd construct (Section 7.9.3 on page 306)
4 – Memory Allocators for making OpenMP memory requests with traits (Section 8.2 on
5 page 341)
6 – requires directive specifies required features of implementation (Section 9.5 on page 360)
7 – declare variant directive - for function variants (Section 9.6 on page 362)
8 – metadirective directive - for directive variants (Section 9.7 on page 368)
9 • Included the following additional examples for the 4.x features:
10 – more taskloop examples (Section 3.6 on page 112)
11 – user-defined reduction (UDR) (Section 7.9.4 on page 313)

12 A.2 Changes from 4.0.2 to 4.5.0

13 • Reorganized into chapters of major topics
14 • Included file extensions in example labels to indicate source type
15 • Applied the explicit map(tofrom) for scalar variables in a number of examples to comply
16 with the change of the default behavior for scalar variables from map(tofrom) to
17 firstprivate in the 4.5 specification
18 • Added the following new examples:
19 – linear clause in loop constructs (Section 1.9 on page 25)
20 – priority clause for task construct (Section 3.2 on page 87)
21 – taskloop construct (Section 3.6 on page 112)
22 – directive-name modifier in multiple if clauses on a combined construct (Section 4.1.5 on
23 page 124)
24 – unstructured data mapping (Section 4.8 on page 162)
25 – link clause for declare target directive (Section 4.10.5 on page 177)
26 – asynchronous target execution with nowait clause (Section 4.12 on page 189)
27 – device memory routines and device pointers (Section 4.13.4 on page 202)

APPENDIX A. DOCUMENT REVISION HISTORY 389

1 – doacross loop nest (Section 6.10 on page 256)
2 – locks with hints (Section 6.11 on page 262)
3 – C/C++ array reduction (Section 7.9.1 on page 295)
4 – C++ reference types in data sharing clauses (Section 7.12 on page 330)

5 A.3 Changes from 4.0.1 to 4.0.2

6 • Names of examples were changed from numbers to mnemonics
7 • Added SIMD examples (Section 5.1 on page 205)
8 • Applied miscellaneous fixes in several source codes
9 • Added the revision history

10 A.4 Changes from 4.0 to 4.0.1

11 Added the following new examples:
12 • the proc_bind clause (Section 2.1 on page 46)
13 • the taskgroup construct (Section 3.4 on page 107)

14 A.5 Changes from 3.1 to 4.0

15 • Beginning with OpenMP 4.0, examples were placed in a separate document from the
16 specification document.
17 • Version 4.0 added the following new examples:
18 – task dependences (Section 3.3 on page 89)
19 – target construct (Section 4.1 on page 119)

390 OpenMP Examples Version 5.0.0 - November 2019

1 – target data construct (Section 4.7 on page 149)
2 – target update construct (Section 4.9 on page 165)
3 – declare target construct (Section 4.10 on page 169)
4 – teams constructs (Section 4.11 on page 180)
5 – asynchronous execution of a target region using tasks (Section 4.12.1 on page 189)
6 – array sections in device constructs (Section 4.4 on page 136)
7 – device runtime routines (Section 4.13 on page 198)
8 – Fortran ASSOCIATE construct (Section 7.13 on page 331)
9 – cancellation constructs (Section 9.4 on page 355)

APPENDIX A. DOCUMENT REVISION HISTORY 391