56 |
allMyEdgesAreSharedMemory(I) = .TRUE. |
allMyEdgesAreSharedMemory(I) = .TRUE. |
57 |
threadIsRunning(I) = .FALSE. |
threadIsRunning(I) = .FALSE. |
58 |
threadIsComplete(I) = .FALSE. |
threadIsComplete(I) = .FALSE. |
59 |
|
ioErrorCount(I) = 0 |
60 |
ENDDO |
ENDDO |
61 |
scrUnit1 = 11 |
scrUnit1 = 11 |
62 |
scrUnit2 = 12 |
scrUnit2 = 12 |
109 |
C execution at this stage. |
C execution at this stage. |
110 |
CALL INI_THREADING_ENVIRONMENT |
CALL INI_THREADING_ENVIRONMENT |
111 |
IF ( eeBootError ) GOTO 999 |
IF ( eeBootError ) GOTO 999 |
112 |
|
|
113 |
|
C-- Initiialise the multi-process IO package |
114 |
|
CALL DFILE_INIT |
115 |
|
|
116 |
999 CONTINUE |
999 CONTINUE |
117 |
RETURN |
RETURN |