File |
Line number |
Procedure |
Code |
./eesupp/src/bar2.F |
125 |
BAR2 |
BAR2_level(1,myThid) = BAR2_level(1,myThid)+1 |
./eesupp/src/bar2.F |
126 |
BAR2 |
myLevel = BAR2_level(1,myThid) |
./eesupp/src/bar2.F |
128 |
BAR2 |
IF ( BAR2_level(1,1) .EQ. myLevel ) GOTO 11 |
./eesupp/src/bar2.F |
130 |
BAR2 |
CALL FOOL_THE_COMPILER( BAR2_level(1,1) ) |
./eesupp/src/bar2.F |
136 |
BAR2 |
myLevel = BAR2_level(1,1) |
./eesupp/src/bar2.F |
138 |
BAR2 |
CALL FOOL_THE_COMPILER( BAR2_level(1,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 |
146 |
BAR2 |
BAR2_level(1,1) = myLevel+1 |
./eesupp/src/bar2.F |
42 |
BAR2_INIT |
BAR2_level(I,myThid) = 0 |
./eesupp/inc/BAR2.h |
41 |
NO PROCEDURE |
& BAR2_level, |
./eesupp/inc/BAR2.h |
44 |
NO PROCEDURE |
INTEGER BAR2_level(cacheLineSize/4,MAX_NO_THREADS) |