blob: 7dcfe414120bc7f1588deb33b636aed55e71e97d (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
|
real :: r1, r2
complex :: c1, c2
integer :: i1, i2
!$omp atomic write
c1 = 0
!$omp atomic write
r2 = 0
!$omp atomic write
i2 = 0
!$omp atomic read
r1 = c1
!$omp atomic read
c2 = r2
!$omp atomic read
i1 = r2
!$omp atomic read
c2 = i2
!$omp atomic write
c1 = r1
!$omp atomic write
r2 = c2
!$omp atomic write
r2 = i1
!$omp atomic write
i2 = c2
!$omp end atomic
!$omp atomic write
c1 = 1 + 2 + r1
!$omp atomic write
r2 = c2 + 2 + 3
!$omp atomic write
r2 = 3 + 4 + i1
!$omp atomic write
i2 = c2 + 4 + 5
!$omp atomic
c1 = c1 * 2.
!$omp atomic update
r2 = r2 / 4
!$omp end atomic
!$omp atomic update
i2 = i2 + 8
!$omp atomic capture
c1 = c1 * 2.
r1 = c1
!$omp end atomic
!$omp atomic capture
c2 = r2
r2 = r2 / 4
!$omp end atomic
!$omp atomic capture
i2 = i2 + 8
c2 = i2
!$omp end atomic
end
|
