Symbol Description Uses
key2 8



File Line number Procedure Code
./eesupp/src/barrier.F 196 BARRIER
      IF ( key2(1,myThid) .EQ. VALID ) THEN
./eesupp/src/barrier.F 202 BARRIER
      key2(1,myThid) = VALID
./eesupp/src/barrier.F 208 BARRIER
         if ( key2(1,I) .EQ. VALID ) nDone = nDone+1
./eesupp/src/barrier.F 210 BARRIER
        CALL FOOL_THE_COMPILER( key2(1,1) )
./eesupp/src/barrier.F 220 BARRIER
      key2(1,myThid) = INVALID
./eesupp/src/barrier.F 37 BARRIER_INIT
       key2(1,I) = INVALID
./eesupp/inc/BARRIER.h 39 NO PROCEDURE
      COMMON / BARRIER_COMMON / key1,  key2,  key3, 
./eesupp/inc/BARRIER.h 43 NO PROCEDURE
      INTEGER key2(lShare4,MAX_NO_THREADS)