1 |
+ |
|
2 |
|
#include <cstring> |
3 |
|
#include <cstdio> |
4 |
|
#include <cstdlib> |
6 |
|
#include "SimSetup.hpp" |
7 |
|
#include "Globals.hpp" |
8 |
|
#include "BASS_interface.h" |
9 |
+ |
#include "simError.h" |
10 |
|
|
11 |
|
#ifdef IS_MPI |
12 |
< |
#include "mpiInterface.h" |
12 |
> |
#include "mpiBASS.h" |
13 |
|
#endif |
14 |
|
|
15 |
|
|
263 |
|
block_stack_ptr++; |
264 |
|
|
265 |
|
if( block_stack_ptr >= MAX_NEST ){ |
266 |
< |
fprintf( stderr, "Event blocks nested too deeply\n" ); |
267 |
< |
#ifdef IS_MPI |
268 |
< |
mpiInterfaceExit(); |
269 |
< |
#endif |
268 |
< |
exit(1); |
266 |
> |
sprintf( painCave.errMsg, |
267 |
> |
"Event blocks nested too deeply\n" ); |
268 |
> |
painCave.isFatal = 1; |
269 |
> |
simError(); |
270 |
|
} |
271 |
|
|
272 |
|
else current_block = new_block; |
279 |
|
|
280 |
|
if( block_stack_ptr < 0 ){ |
281 |
|
|
282 |
< |
fprintf( stderr, "Too many event blocks closed\n" ); |
283 |
< |
#ifdef IS_MPI |
284 |
< |
mpiInterfaceExit(); |
285 |
< |
#endif |
285 |
< |
exit(1); |
282 |
> |
sprintf( painCave.errMsg, |
283 |
> |
"Too many event blocks closed\n" ); |
284 |
> |
painCave.isFatal = 1; |
285 |
> |
simError(); |
286 |
|
} |
287 |
|
|
288 |
|
else current_block = block_stack[block_stack_ptr]; |