74
74
* doesn't make sense to copy them to new windows (because they're
75
75
* values specific and unique to each window) -- especially when
76
76
* WIN_CREATE will explicitly set them on new windows anyway.
77
- *
78
- * These are not supported yet, but are included here for consistency:
79
- *
80
- * MPI_IMPI_CLIENT_SIZE, MPI_IMPI_CLIENT_COLOR, MPI_IMPI_HOST_SIZE,
81
- * and MPI_IMPI_HOST_COLOR are integer-valued attributes.
82
77
*/
83
78
84
79
#include "ompi_config.h"
@@ -128,15 +123,7 @@ int ompi_attr_create_predefined(void)
128
123
OMPI_SUCCESS != (ret = create_win (MPI_WIN_SIZE )) ||
129
124
OMPI_SUCCESS != (ret = create_win (MPI_WIN_DISP_UNIT )) ||
130
125
OMPI_SUCCESS != (ret = create_win (MPI_WIN_CREATE_FLAVOR )) ||
131
- OMPI_SUCCESS != (ret = create_win (MPI_WIN_MODEL )) ||
132
- #if 0
133
- /* JMS For when we implement IMPI */
134
- OMPI_SUCCESS != (ret = create_comm (IMPI_CLIENT_SIZE , true)) ||
135
- OMPI_SUCCESS != (ret = create_comm (IMPI_CLIENT_COLOR , true)) ||
136
- OMPI_SUCCESS != (ret = create_comm (IMPI_HOST_SIZE , true)) ||
137
- OMPI_SUCCESS != (ret = create_comm (IMPI_HOST_COLOR , true)) ||
138
- #endif
139
- 0 ) {
126
+ OMPI_SUCCESS != (ret = create_win (MPI_WIN_MODEL ))) {
140
127
return ret ;
141
128
}
142
129
@@ -147,19 +134,7 @@ int ompi_attr_create_predefined(void)
147
134
OMPI_SUCCESS != (ret = set_f (MPI_IO , MPI_ANY_SOURCE )) ||
148
135
OMPI_SUCCESS != (ret = set_f (MPI_WTIME_IS_GLOBAL , 0 )) ||
149
136
OMPI_SUCCESS != (ret = set_f (MPI_LASTUSEDCODE ,
150
- ompi_mpi_errcode_lastused )) ||
151
- #if 0
152
- /* JMS For when we implement IMPI */
153
- OMPI_SUCCESS != (ret = set (IMPI_CLIENT_SIZE ,
154
- & attr_impi_client_size )) ||
155
- OMPI_SUCCESS != (ret = set (IMPI_CLIENT_COLOR ,
156
- & attr_impi_client_color )) ||
157
- OMPI_SUCCESS != (ret = set (IMPI_HOST_SIZE ,
158
- & attr_impi_host_size )) ||
159
- OMPI_SUCCESS != (ret = set (IMPI_HOST_COLOR ,
160
- & attr_impi_host_color )) ||
161
- #endif
162
- 0 ) {
137
+ ompi_mpi_errcode_lastused ))) {
163
138
return ret ;
164
139
}
165
140
@@ -196,15 +171,7 @@ int ompi_attr_free_predefined(void)
196
171
OMPI_SUCCESS != (ret = free_win (MPI_WIN_SIZE )) ||
197
172
OMPI_SUCCESS != (ret = free_win (MPI_WIN_DISP_UNIT )) ||
198
173
OMPI_SUCCESS != (ret = free_win (MPI_WIN_CREATE_FLAVOR )) ||
199
- OMPI_SUCCESS != (ret = free_win (MPI_WIN_MODEL )) ||
200
- #if 0
201
- /* JMS For when we implement IMPI */
202
- OMPI_SUCCESS != (ret = free_comm (IMPI_CLIENT_SIZE )) ||
203
- OMPI_SUCCESS != (ret = free_comm (IMPI_CLIENT_COLOR )) ||
204
- OMPI_SUCCESS != (ret = free_comm (IMPI_HOST_SIZE )) ||
205
- OMPI_SUCCESS != (ret = free_comm (IMPI_HOST_COLOR )) ||
206
- #endif
207
- 0 ) {
174
+ OMPI_SUCCESS != (ret = free_win (MPI_WIN_MODEL ))) {
208
175
return ret ;
209
176
}
210
177
return OMPI_SUCCESS ;
0 commit comments