1 |
C $Header$ |
C $Header$ |
2 |
|
C $Name$ |
3 |
|
|
4 |
#include "CPP_EEOPTIONS.h" |
#include "CPP_EEOPTIONS.h" |
5 |
|
|
14 |
C | directives set so that no multi-processing is initialised| |
C | directives set so that no multi-processing is initialised| |
15 |
C | This is OK and should work fine. | |
C | This is OK and should work fine. | |
16 |
C \==========================================================/ |
C \==========================================================/ |
17 |
|
IMPLICIT NONE |
18 |
|
|
19 |
C == Global variables == |
C == Global variables == |
20 |
#include "SIZE.h" |
#include "SIZE.h" |
23 |
CEndOfInterface |
CEndOfInterface |
24 |
|
|
25 |
C == Local variables == |
C == Local variables == |
|
C msgBuf - Variable for building informational messages |
|
26 |
C I - Loop counter |
C I - Loop counter |
27 |
INTEGER I |
INTEGER I |
|
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
28 |
|
|
29 |
C-- Set error reporting flags and I/O streams |
C-- Set error reporting flags and I/O streams |
30 |
C fatalError is a flag used to indicate that the program |
C fatalError is a flag used to indicate that the program |
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 |
102 |
C example under MPI we create datatypes for communication |
C example under MPI we create datatypes for communication |
103 |
C of array edges. |
C of array edges. |
104 |
CALL INI_PROCS |
CALL INI_PROCS |
105 |
|
#ifdef LETS_MAKE_JAM |
106 |
|
CALL INI_JAM |
107 |
|
#endif |
108 |
IF ( eeBootError ) GOTO 999 |
IF ( eeBootError ) GOTO 999 |
109 |
|
|
110 |
C-- Initialise variables to support "nThreads" of computation. |
C-- Initialise variables to support "nThreads" of computation. |
112 |
C execution at this stage. |
C execution at this stage. |
113 |
CALL INI_THREADING_ENVIRONMENT |
CALL INI_THREADING_ENVIRONMENT |
114 |
IF ( eeBootError ) GOTO 999 |
IF ( eeBootError ) GOTO 999 |
115 |
|
|
116 |
|
#ifdef USE_DFILE |
117 |
|
C-- Initiialise the multi-process IO package |
118 |
|
CALL DFILE_INIT |
119 |
|
#endif |
120 |
|
|
121 |
999 CONTINUE |
999 CONTINUE |
122 |
RETURN |
RETURN |