| File |
Line number |
Procedure |
Code |
|
./eesupp/src/bar2.F |
100 |
BAR2 |
INTEGER nDone |
|
./eesupp/src/bar2.F |
139 |
BAR2 |
nDone = 1 |
|
./eesupp/src/bar2.F |
141 |
BAR2 |
IF ( BAR2_level(1,1) .EQ. BAR2_level(1,I)-1 ) nDone = nDone+1 |
|
./eesupp/src/bar2.F |
144 |
BAR2 |
IF ( nDone .LT. nThreads ) GOTO 12 |
|
./eesupp/src/barrier.F |
110 |
BARRIER |
INTEGER nDone |
|
./eesupp/src/barrier.F |
160 |
BARRIER |
nDone = 0 |
|
./eesupp/src/barrier.F |
162 |
BARRIER |
if ( key1(1,I) .EQ. VALID ) nDone = nDone+1 |
|
./eesupp/src/barrier.F |
165 |
BARRIER |
IF ( nDone .LT. nThreads ) GOTO 10 |
|
./eesupp/src/barrier.F |
206 |
BARRIER |
nDone = 0 |
|
./eesupp/src/barrier.F |
208 |
BARRIER |
if ( key2(1,I) .EQ. VALID ) nDone = nDone+1 |
|
./eesupp/src/barrier.F |
211 |
BARRIER |
IF ( nDone .LT. nThreads ) GOTO 20 |
|
./eesupp/src/barrier.F |
242 |
BARRIER |
nDone = 0 |
|
./eesupp/src/barrier.F |
244 |
BARRIER |
if ( key3(1,I) .EQ. VALID ) nDone = nDone+1 |
|
./eesupp/src/barrier.F |
247 |
BARRIER |
IF ( nDone .LT. nThreads ) GOTO 30 |
|
./eesupp/src/gsum.F |
126 |
GSUM_R8 |
nDone = 1 |
|
./eesupp/src/gsum.F |
128 |
GSUM_R8 |
IF ( GSR8_value(curLev,I) .NE. _NOT_SET_ ) nDone = nDone+1 |
|
./eesupp/src/gsum.F |
130 |
GSUM_R8 |
IF ( nDone .LT. nThreads ) GOTO 12 |
|
./eesupp/src/gsum.F |
95 |
GSUM_R8 |
INTEGER nDone |