9
9
* University of Stuttgart. All rights reserved.
10
10
* Copyright (c) 2004-2005 The Regents of the University of California.
11
11
* All rights reserved.
12
- * Copyright (c) 2008-2021 University of Houston. All rights reserved.
12
+ * Copyright (c) 2008-2022 University of Houston. All rights reserved.
13
13
* Copyright (c) 2017-2018 Research Organization for Information Science
14
14
* and Technology (RIST). All rights reserved.
15
15
* $COPYRIGHT$
20
20
*/
21
21
22
22
#include "ompi_config.h"
23
- #include "fcoll_vulcan.h"
24
23
25
24
#include "mpi.h"
26
25
#include "ompi/constants.h"
27
26
#include "ompi/mca/fcoll/fcoll.h"
28
27
#include "ompi/mca/fcoll/base/fcoll_base_coll_array.h"
28
+ #include "ompi/mca/fcoll/base/base.h"
29
29
#include "ompi/mca/common/ompio/common_ompio.h"
30
30
#include "ompi/mca/io/io.h"
31
31
#include "math.h"
32
32
#include "ompi/mca/pml/pml.h"
33
33
#include <unistd.h>
34
34
35
35
#define DEBUG_ON 0
36
+ #define FCOLL_BASE_SHUFFLE_TAG 123
37
+ #define INIT_LEN 10
36
38
37
39
/*Used for loading file-offsets per aggregator*/
38
40
typedef struct mca_io_ompio_local_io_array {
@@ -49,7 +51,7 @@ static int read_heap_sort (mca_io_ompio_local_io_array *io_array,
49
51
50
52
51
53
int
52
- mca_fcoll_vulcan_file_read_all (ompio_file_t * fh ,
54
+ mca_fcoll_base_file_read_all (ompio_file_t * fh ,
53
55
void * buf ,
54
56
int count ,
55
57
struct ompi_datatype_t * datatype ,
@@ -89,7 +91,7 @@ mca_fcoll_vulcan_file_read_all (ompio_file_t *fh,
89
91
/* array that contains the sorted indices of the global_iov */
90
92
int * sorted = NULL ;
91
93
int * displs = NULL ;
92
- int vulcan_num_io_procs ;
94
+ int base_num_io_procs ;
93
95
size_t max_data = 0 ;
94
96
MPI_Aint * total_bytes_per_process = NULL ;
95
97
ompi_datatype_t * * sendtype = NULL ;
@@ -126,14 +128,14 @@ mca_fcoll_vulcan_file_read_all (ompio_file_t *fh,
126
128
status -> _ucount = max_data ;
127
129
}
128
130
129
- vulcan_num_io_procs = fh -> f_get_mca_parameter_value ( "num_aggregators" , strlen ("num_aggregators" ));
130
- if ( OMPI_ERR_MAX == vulcan_num_io_procs ) {
131
+ base_num_io_procs = fh -> f_get_mca_parameter_value ( "num_aggregators" , strlen ("num_aggregators" ));
132
+ if ( OMPI_ERR_MAX == base_num_io_procs ) {
131
133
ret = OMPI_ERROR ;
132
134
goto exit ;
133
135
}
134
136
135
137
ret = mca_common_ompio_set_aggregator_props ((struct ompio_file_t * ) fh ,
136
- vulcan_num_io_procs ,
138
+ base_num_io_procs ,
137
139
max_data );
138
140
if (OMPI_SUCCESS != ret ){
139
141
goto exit ;
@@ -741,7 +743,7 @@ mca_fcoll_vulcan_file_read_all (ompio_file_t *fh,
741
743
1 ,
742
744
sendtype [i ],
743
745
fh -> f_procs_in_group [i ],
744
- FCOLL_VULCAN_SHUFFLE_TAG ,
746
+ FCOLL_BASE_SHUFFLE_TAG ,
745
747
MCA_PML_BASE_SEND_STANDARD ,
746
748
fh -> f_comm ,
747
749
& send_req [i ]));
@@ -822,7 +824,7 @@ mca_fcoll_vulcan_file_read_all (ompio_file_t *fh,
822
824
1 ,
823
825
newType ,
824
826
my_aggregator ,
825
- FCOLL_VULCAN_SHUFFLE_TAG ,
827
+ FCOLL_BASE_SHUFFLE_TAG ,
826
828
fh -> f_comm ,
827
829
& recv_req ));
828
830
@@ -867,7 +869,7 @@ mca_fcoll_vulcan_file_read_all (ompio_file_t *fh,
867
869
nentry .aggregator = 1 ;
868
870
else
869
871
nentry .aggregator = 0 ;
870
- nentry .nprocs_for_coll = vulcan_num_io_procs ;
872
+ nentry .nprocs_for_coll = base_num_io_procs ;
871
873
if (!mca_common_ompio_full_print_queue (fh -> f_coll_read_time )){
872
874
mca_common_ompio_register_print_entry (fh -> f_coll_read_time ,
873
875
nentry );
0 commit comments