102 |
INTEGER spinCount |
INTEGER spinCount |
103 |
CEOP |
CEOP |
104 |
|
|
105 |
|
#ifdef USE_OMP_THREADING |
106 |
|
C$OMP BARRIER |
107 |
|
BAR2_barrierCount(1,myThid) = BAR2_barrierCount(1,myThid)+1 |
108 |
|
Cdbg C$OMP BARRIER |
109 |
|
Cdbg DO I = 2, nThreads |
110 |
|
Cdbg IF ( BAR2_barrierCount(1,I) .NE. BAR2_barrierCount(1,1) ) THEN |
111 |
|
Cdbg PRINT *, BAR2_barrierCount(1,1:nThreads) |
112 |
|
Cdbg CALL SYSTEM('sleep 1') |
113 |
|
Cdbg PRINT *, BAR2_barrierCount(1,1:nThreads) |
114 |
|
Cdbg Stop ' bar2 OUT OF SYNC ' |
115 |
|
Cdbg ENDIF |
116 |
|
Cdbg ENDDO |
117 |
|
Cdbg C$OMP BARRIER |
118 |
|
RETURN |
119 |
|
#endif |
120 |
|
|
121 |
C |
C |
122 |
spinCount = 0 |
spinCount = 0 |
123 |
C |
C |