64 |
C the main.F master loop. This should not happen |
C the main.F master loop. This should not happen |
65 |
C if the multi-threading compilation tools works right. |
C if the multi-threading compilation tools works right. |
66 |
C But (see for example KAP) this is not always the case! |
C But (see for example KAP) this is not always the case! |
67 |
|
C printMapIncludesZeros - Flag that controls whether character constant map code ignores |
68 |
|
C exact zero values. |
69 |
COMMON /EESUPP_L/ thError, threadIsRunning, threadIsComplete, |
COMMON /EESUPP_L/ thError, threadIsRunning, threadIsComplete, |
70 |
& allMyEdgesAreSharedMemory, usingMPI, usingSyncMessages, |
& allMyEdgesAreSharedMemory, usingMPI, usingSyncMessages, |
71 |
& notUsingXPeriodicity, notUsingYPeriodicity |
& notUsingXPeriodicity, notUsingYPeriodicity, |
72 |
|
& printMapIncludesZeros |
73 |
LOGICAL thError(MAX_NO_THREADS) |
LOGICAL thError(MAX_NO_THREADS) |
74 |
LOGICAL threadIsRunning(MAX_NO_THREADS) |
LOGICAL threadIsRunning(MAX_NO_THREADS) |
75 |
LOGICAL threadIsComplete(MAX_NO_THREADS) |
LOGICAL threadIsComplete(MAX_NO_THREADS) |
78 |
LOGICAL usingSyncMessages |
LOGICAL usingSyncMessages |
79 |
LOGICAL notUsingXPeriodicity |
LOGICAL notUsingXPeriodicity |
80 |
LOGICAL notUsingYPeriodicity |
LOGICAL notUsingYPeriodicity |
81 |
|
LOGICAL printMapIncludesZeros |
82 |
|
|
83 |
|
|
84 |
C-- COMMON /EESUPP_I/ Parallel support integer globals |
C-- COMMON /EESUPP_I/ Parallel support integer globals |