87 |
C the main.F master loop. This should not happen |
C the main.F master loop. This should not happen |
88 |
C if the multi-threading compilation tools works right. |
C if the multi-threading compilation tools works right. |
89 |
C But (see for example KAP) this is not always the case! |
C But (see for example KAP) this is not always the case! |
|
C printMapIncludesZeros - Flag that controls whether character constant map code ignores |
|
|
C exact zero values. |
|
90 |
COMMON /EESUPP_L/ thError, threadIsRunning, threadIsComplete, |
COMMON /EESUPP_L/ thError, threadIsRunning, threadIsComplete, |
91 |
& allMyEdgesAreSharedMemory, usingMPI, usingSyncMessages, |
& allMyEdgesAreSharedMemory, usingMPI, usingSyncMessages, |
92 |
& notUsingXPeriodicity, notUsingYPeriodicity, |
& notUsingXPeriodicity, notUsingYPeriodicity |
|
& printMapIncludesZeros |
|
93 |
LOGICAL thError(MAX_NO_THREADS) |
LOGICAL thError(MAX_NO_THREADS) |
94 |
LOGICAL threadIsRunning(MAX_NO_THREADS) |
LOGICAL threadIsRunning(MAX_NO_THREADS) |
95 |
LOGICAL threadIsComplete(MAX_NO_THREADS) |
LOGICAL threadIsComplete(MAX_NO_THREADS) |
98 |
LOGICAL usingSyncMessages |
LOGICAL usingSyncMessages |
99 |
LOGICAL notUsingXPeriodicity |
LOGICAL notUsingXPeriodicity |
100 |
LOGICAL notUsingYPeriodicity |
LOGICAL notUsingYPeriodicity |
101 |
LOGICAL printMapIncludesZeros |
|
|
|
|
102 |
C-- COMMON /EESUPP_I/ Parallel support integer globals |
C-- COMMON /EESUPP_I/ Parallel support integer globals |
103 |
C pidW - Process ID of neighbor to West |
C pidW - Process ID of neighbor to West |
104 |
C pidE - ditto East |
C pidE - ditto East |