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" |
22 |
CEndOfInterface |
CEndOfInterface |
23 |
|
|
24 |
C == Local variables == |
C == Local variables == |
|
C msgBuf - Variable for building informational messages |
|
25 |
C I - Loop counter |
C I - Loop counter |
26 |
INTEGER I |
INTEGER I |
|
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
27 |
|
|
28 |
C-- Set error reporting flags and I/O streams |
C-- Set error reporting flags and I/O streams |
29 |
C fatalError is a flag used to indicate that the program |
C fatalError is a flag used to indicate that the program |
55 |
allMyEdgesAreSharedMemory(I) = .TRUE. |
allMyEdgesAreSharedMemory(I) = .TRUE. |
56 |
threadIsRunning(I) = .FALSE. |
threadIsRunning(I) = .FALSE. |
57 |
threadIsComplete(I) = .FALSE. |
threadIsComplete(I) = .FALSE. |
58 |
|
ioErrorCount(I) = 0 |
59 |
ENDDO |
ENDDO |
60 |
scrUnit1 = 11 |
scrUnit1 = 11 |
61 |
scrUnit2 = 12 |
scrUnit2 = 12 |
101 |
C example under MPI we create datatypes for communication |
C example under MPI we create datatypes for communication |
102 |
C of array edges. |
C of array edges. |
103 |
CALL INI_PROCS |
CALL INI_PROCS |
104 |
|
#ifdef LETS_MAKE_JAM |
105 |
|
CALL INI_JAM |
106 |
|
#endif |
107 |
IF ( eeBootError ) GOTO 999 |
IF ( eeBootError ) GOTO 999 |
108 |
|
|
109 |
C-- Initialise variables to support "nThreads" of computation. |
C-- Initialise variables to support "nThreads" of computation. |
111 |
C execution at this stage. |
C execution at this stage. |
112 |
CALL INI_THREADING_ENVIRONMENT |
CALL INI_THREADING_ENVIRONMENT |
113 |
IF ( eeBootError ) GOTO 999 |
IF ( eeBootError ) GOTO 999 |
114 |
|
|
115 |
|
#ifdef USE_DFILE |
116 |
|
C-- Initiialise the multi-process IO package |
117 |
|
CALL DFILE_INIT |
118 |
|
#endif |
119 |
|
|
120 |
999 CONTINUE |
999 CONTINUE |
121 |
RETURN |
RETURN |