| 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 IS_MPI |
| 392 |
+ |
mpiInterfaceExit(); |
| 393 |
+ |
#endif |
| 394 |
+ |
|
| 395 |
|
} |
| 396 |
|
|
| 397 |
|
|