12 |
|
|
13 |
C !DESCRIPTION: |
C !DESCRIPTION: |
14 |
C *=====================================================================* |
C *=====================================================================* |
15 |
C | SUBROUTINE BARRIER_INIT |
C | SUBROUTINE BARRIER\_INIT |
16 |
C | o Setup global barrier data structures. |
C | o Setup global barrier data structures. |
17 |
C *=====================================================================* |
C *=====================================================================* |
18 |
C | Initialise global barrier data structures that can be used in |
C | Initialise global barrier data structures that can be used in |
65 |
C | The door and key variables are assumed to have been |
C | The door and key variables are assumed to have been |
66 |
C | initialized once an initial state of key = INVALID |
C | initialized once an initial state of key = INVALID |
67 |
C | and door = SHUT. |
C | and door = SHUT. |
68 |
C | We use the routine FOOL_THE_COMPILER to stop compilers |
C | We use the routine FOOL\_THE\_COMPILER to stop compilers |
69 |
C | generating code which might simply set and test a |
C | generating code which might simply set and test a |
70 |
C | register value. Shared-memory systems only maintain |
C | register value. Shared-memory systems only maintain |
71 |
C | coherency over process caches and not registers. |
C | coherency over process caches and not registers. |