@@ -442,7 +442,7 @@ int mca_io_ompio_create_groups(mca_io_ompio_file_t *fh,
442442 & ompio_grouping_flag );
443443 if ( OMPI_SUCCESS != ret ) {
444444 opal_output (1 , "mca_io_ompio_create_groups: error in mca_io_ompio_prepare_to_group\n" );
445- return ret ;
445+ goto exit ;
446446 }
447447
448448 switch (ompio_grouping_flag ){
@@ -471,7 +471,7 @@ int mca_io_ompio_create_groups(mca_io_ompio_file_t *fh,
471471 }
472472 if ( OMPI_SUCCESS != ret ) {
473473 opal_output (1 , "mca_io_ompio_create_groups: error in subroutine called within switch statement\n" );
474- return ret ;
474+ goto exit ;
475475 }
476476
477477 //Set aggregator index
@@ -490,27 +490,13 @@ int mca_io_ompio_create_groups(mca_io_ompio_file_t *fh,
490490 fh -> f_comm -> c_coll .coll_allreduce_module );
491491 if ( OMPI_SUCCESS != ret ) {
492492 opal_output (1 , "mca_io_ompio_create_groups: error in allreduce\n" );
493- return ret ;
494493 }
495494
496495 //Set final number of aggregators in file handle
497496 fh -> f_final_num_aggrs = final_num_aggrs ;
498497
499- //Print final number of aggregators if required
500- /*if(fh->f_rank == 0){
501- printf("Rank %d : has final_num_aggrs = %d\n",fh->f_rank,final_num_aggrs);
502- }*/
503-
504- //Print final grouping
505- /*if (fh->f_procs_in_group[fh->f_aggregator_index] == fh->f_rank) {
506- for (j=0 ; j<fh->f_procs_per_group; j++) {
507- printf ("%d: Proc %d: %d\n", fh->f_rank, j, fh->f_procs_in_group[j]);
508- }
509-
510- printf("\n\n");
511- }
498+ exit :
512499
513- */
514500 if (NULL != start_offsets_lens ) {
515501 free (start_offsets_lens );
516502 start_offsets_lens = NULL ;
0 commit comments