1 |
C $Id$ |
C $Header$ |
2 |
|
|
3 |
#include "CPP_EEOPTIONS.h" |
#include "CPP_EEOPTIONS.h" |
4 |
|
|
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 |
103 |
C example under MPI we create datatypes for communication |
C example under MPI we create datatypes for communication |
104 |
C of array edges. |
C of array edges. |
105 |
CALL INI_PROCS |
CALL INI_PROCS |
106 |
|
#ifdef LETS_MAKE_JAM |
107 |
|
CALL INI_JAM |
108 |
|
#endif |
109 |
IF ( eeBootError ) GOTO 999 |
IF ( eeBootError ) GOTO 999 |
110 |
|
|
111 |
C-- Initialise variables to support "nThreads" of computation. |
C-- Initialise variables to support "nThreads" of computation. |
113 |
C execution at this stage. |
C execution at this stage. |
114 |
CALL INI_THREADING_ENVIRONMENT |
CALL INI_THREADING_ENVIRONMENT |
115 |
IF ( eeBootError ) GOTO 999 |
IF ( eeBootError ) GOTO 999 |
116 |
|
|
117 |
|
C-- Initiialise the multi-process IO package |
118 |
|
CALL DFILE_INIT |
119 |
|
|
120 |
999 CONTINUE |
999 CONTINUE |
121 |
RETURN |
RETURN |
122 |
END |
END |
|
C $Id$ |
|