| 3 |
|
|
| 4 |
|
#include "parse_tree.h" |
| 5 |
|
|
| 6 |
+ |
#ifdef IS_MPI |
| 7 |
+ |
#define __is_lex__ |
| 8 |
+ |
#include "../headers/mpiInterface.h" |
| 9 |
+ |
#endif |
| 10 |
+ |
|
| 11 |
|
void walk_down( struct node_tag* the_node, struct namespc the_namespc ); |
| 12 |
|
int mol_index; // keeps track of the number of molecules |
| 13 |
|
int comp_index; // keeps track of the number of components. |
| 32 |
|
|
| 33 |
|
mol_index = 0; |
| 34 |
|
comp_index = 0; |
| 35 |
< |
walk_down( head_node->next_stmt, global_namespc ); |
| 35 |
> |
walk_down( head_node->next_stmt, global_namespc ); // closed global namespace + exit |
| 36 |
> |
|
| 37 |
|
} |
| 38 |
|
|
| 39 |
|
/* |
| 230 |
|
exit(0); |
| 231 |
|
} |
| 232 |
|
|
| 233 |
< |
init_start_index( the_node, the_namespc ); |
| 233 |
> |
//init_start_index( the_node, the_namespc ); |
| 234 |
|
break; |
| 235 |
|
|
| 236 |
|
default: |
| 392 |
|
"Parse tree error: unknown node type -> %s\n", |
| 393 |
|
err_msg ); |
| 394 |
|
} |
| 395 |
+ |
|
| 396 |
+ |
#ifdef IS_MPI |
| 397 |
+ |
mpiInterfaceExit(); |
| 398 |
+ |
#endif |
| 399 |
+ |
|
| 400 |
|
} |
| 401 |
|
|
| 402 |
|
|
