38 |
CEOP |
CEOP |
39 |
COMMON / BARRIER_COMMON / key1, key2, key3, |
COMMON / BARRIER_COMMON / key1, key2, key3, |
40 |
& door1, door2, door3, |
& door1, door2, door3, |
41 |
& bCount |
& bCount, masterSet |
42 |
INTEGER key1(lShare4,MAX_NO_THREADS) |
INTEGER key1(lShare4,MAX_NO_THREADS) |
43 |
INTEGER key2(lShare4,MAX_NO_THREADS) |
INTEGER key2(lShare4,MAX_NO_THREADS) |
44 |
INTEGER key3(lShare4,MAX_NO_THREADS) |
INTEGER key3(lShare4,MAX_NO_THREADS) |
54 |
INTEGER SHUT |
INTEGER SHUT |
55 |
PARAMETER ( SHUT = 0 ) |
PARAMETER ( SHUT = 0 ) |
56 |
INTEGER bCount(MAX_NO_THREADS) |
INTEGER bCount(MAX_NO_THREADS) |
57 |
|
INTEGER masterSet(MAX_NO_THREADS) |