3 |
|
|
4 |
|
#include "parse_tree.h" |
5 |
|
|
6 |
+ |
#ifdef IS_MPI |
7 |
+ |
#define __is_lex__ |
8 |
+ |
#include "../headers/mpiBASS.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: |
338 |
|
case STR_ASSN: |
339 |
|
fprintf( stderr, |
340 |
|
"%s", |
341 |
< |
err_node->the_data.asmt.rhs ); |
341 |
> |
err_node->the_data.asmt.rhs.str_ptr ); |
342 |
|
break; |
343 |
|
|
344 |
|
case INT_ASSN: |
345 |
|
fprintf( stderr, |
346 |
|
"%d", |
347 |
< |
err_node->the_data.asmt.rhs ); |
347 |
> |
err_node->the_data.asmt.rhs.i_val ); |
348 |
|
break; |
349 |
|
|
350 |
|
case DOUBLE_ASSN: |
351 |
|
fprintf( stderr, |
352 |
|
"%lf", |
353 |
< |
err_node->the_data.asmt.rhs ); |
353 |
> |
err_node->the_data.asmt.rhs.d_val ); |
354 |
|
break; |
355 |
|
} |
356 |
|
|
364 |
|
fprintf( stderr, |
365 |
|
"Parse tree error: position node error => ( %lf, %lf, %lf )\n" |
366 |
|
" -> %s\n", |
367 |
+ |
err_node->the_data.pos.x, |
368 |
+ |
err_node->the_data.pos.y, |
369 |
+ |
err_node->the_data.pos.z, |
370 |
|
err_msg ); |
371 |
|
break; |
372 |
|
|
374 |
|
fprintf( stderr, |
375 |
|
"Parse tree error: orientation node error => ( %lf, %lf, %lf )\n" |
376 |
|
" -> %s\n", |
377 |
+ |
err_node->the_data.ort.x, |
378 |
+ |
err_node->the_data.ort.y, |
379 |
+ |
err_node->the_data.ort.z, |
380 |
|
err_msg ); |
381 |
|
break; |
382 |
|
|
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 |
|
|