13 |
C | directives set so that no multi-processing is initialised| |
C | directives set so that no multi-processing is initialised| |
14 |
C | This is OK and should work fine. | |
C | This is OK and should work fine. | |
15 |
C \==========================================================/ |
C \==========================================================/ |
16 |
|
IMPLICIT NONE |
17 |
|
|
18 |
C == Global variables == |
C == Global variables == |
19 |
#include "SIZE.h" |
#include "SIZE.h" |
57 |
allMyEdgesAreSharedMemory(I) = .TRUE. |
allMyEdgesAreSharedMemory(I) = .TRUE. |
58 |
threadIsRunning(I) = .FALSE. |
threadIsRunning(I) = .FALSE. |
59 |
threadIsComplete(I) = .FALSE. |
threadIsComplete(I) = .FALSE. |
60 |
|
ioErrorCount(I) = 0 |
61 |
ENDDO |
ENDDO |
62 |
scrUnit1 = 11 |
scrUnit1 = 11 |
63 |
scrUnit2 = 12 |
scrUnit2 = 12 |
110 |
C execution at this stage. |
C execution at this stage. |
111 |
CALL INI_THREADING_ENVIRONMENT |
CALL INI_THREADING_ENVIRONMENT |
112 |
IF ( eeBootError ) GOTO 999 |
IF ( eeBootError ) GOTO 999 |
113 |
|
|
114 |
|
C-- Initiialise the multi-process IO package |
115 |
|
CALL DFILE_INIT |
116 |
|
|
117 |
999 CONTINUE |
999 CONTINUE |
118 |
RETURN |
RETURN |
119 |
END |
END |
|
C $Id$ |
|