1 | 1 |
2 | 2 |
3 | 3 |
4 | 4 |
5 | 5 |
6 | 6 |
7 | 7 |
8 | 8 |
9 | 9 |
10 | 10 |
11 | 11 |
12 | 12 |
13 | 13 |
14 | 14 |
15 | 15 |
16 | 16 |
17 | 17 |
18 | 18 |
19 | 19 |
20 | 20 |
21 | 21 |
22 | 22 |
23 | 23 |
24 | 24 |
25 | 25 |
26 | 26 |
27 | 27 |
28 | 28 |
29 | 29 |
30 | 30 |
31 | 31 |
32 | 32 |
33 | 33 |
34 | 34 |
35 | 35 |
36 | 36 |
37 | 1 |
38 | 2 |
39 | 3 |
40 | 4 |
41 | 5 |
42 | 6 |
43 | 7 |
44 | 8 |
45 | 9 |
46 | 10 |
47 | 11 |
48 | 12 |
49 | 13 |
50 | 14 |
51 | 15 |
52 | 16 |
53 | 17 |
54 | 18 |
55 | 19 |
56 | 20 |
57 | 21 |
58 | 22 |
59 | 23 |
60 | 24 |
61 | 25 |
62 | 26 |
63 | 27 |
64 | 28 |
65 | 29 |
66 | 30 |
67 | 31 |
68 | 32 |
69 | 33 |
70 | 34 |
71 | 35 |
72 | 36 |
73 | !$OMP PARALLEL DO & |
74 | !$OMP SCHEDULE(DYNAMIC,1) |
75 | DO J = 1, 36 |
76 | CALL SUBR(J) |
77 | END DO |
78 | !$OMP END DO |
79 | !$OMP PARALLEL DO & |
80 | !$OMP SCHEDULE(GUIDED,1) |
81 | DO J = 1, 36 |
82 | CALL SUBR(J) |
83 | END DO |
84 | !$OMP END DO |