1 |
C $Header$ |
C $Header$ |
2 |
|
C $Name$ |
3 |
|
|
4 |
#include "CPP_EEOPTIONS.h" |
#include "CPP_EEOPTIONS.h" |
5 |
|
|
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 |
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 |
C-- Initiialise the multi-process IO package |
118 |
CALL DFILE_INIT |
CALL DFILE_INIT |
119 |
|
#endif |
120 |
|
|
121 |
999 CONTINUE |
999 CONTINUE |
122 |
RETURN |
RETURN |