27 |
|
|
28 |
|
mol_index = 0; |
29 |
|
comp_index = 0; |
30 |
< |
walk_down( head_node->next_stmt, global_namespc ); |
30 |
> |
walk_down( head_node->next_stmt, global_namespc ); // closed global namespace + exit |
31 |
> |
|
32 |
|
} |
33 |
|
|
34 |
|
/* |
333 |
|
case STR_ASSN: |
334 |
|
fprintf( stderr, |
335 |
|
"%s", |
336 |
< |
err_node->the_data.asmt.rhs ); |
336 |
> |
err_node->the_data.asmt.rhs.str_ptr ); |
337 |
|
break; |
338 |
|
|
339 |
|
case INT_ASSN: |
340 |
|
fprintf( stderr, |
341 |
|
"%d", |
342 |
< |
err_node->the_data.asmt.rhs ); |
342 |
> |
err_node->the_data.asmt.rhs.i_val ); |
343 |
|
break; |
344 |
|
|
345 |
|
case DOUBLE_ASSN: |
346 |
|
fprintf( stderr, |
347 |
|
"%lf", |
348 |
< |
err_node->the_data.asmt.rhs ); |
348 |
> |
err_node->the_data.asmt.rhs.d_val ); |
349 |
|
break; |
350 |
|
} |
351 |
|
|
359 |
|
fprintf( stderr, |
360 |
|
"Parse tree error: position node error => ( %lf, %lf, %lf )\n" |
361 |
|
" -> %s\n", |
362 |
+ |
err_node->the_data.pos.x, |
363 |
+ |
err_node->the_data.pos.y, |
364 |
+ |
err_node->the_data.pos.z, |
365 |
|
err_msg ); |
366 |
|
break; |
367 |
|
|
369 |
|
fprintf( stderr, |
370 |
|
"Parse tree error: orientation node error => ( %lf, %lf, %lf )\n" |
371 |
|
" -> %s\n", |
372 |
+ |
err_node->the_data.ort.x, |
373 |
+ |
err_node->the_data.ort.y, |
374 |
+ |
err_node->the_data.ort.z, |
375 |
|
err_msg ); |
376 |
|
break; |
377 |
|
|
387 |
|
"Parse tree error: unknown node type -> %s\n", |
388 |
|
err_msg ); |
389 |
|
} |
390 |
+ |
|
391 |
+ |
#ifdef MPI |
392 |
+ |
mpiInterfaceExit(); |
393 |
+ |
#endif |
394 |
+ |
|
395 |
|
} |
396 |
|
|
397 |
|
|