|
14 | 14 | * Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. |
15 | 15 | * Copyright (c) 2013-2015 Los Alamos National Security, LLC. All rights |
16 | 16 | * reserved. |
17 | | - * Copyright (c) 2015 Research Organization for Information Science |
| 17 | + * Copyright (c) 2015-2016 Research Organization for Information Science |
18 | 18 | * and Technology (RIST). All rights reserved. |
19 | 19 | * $COPYRIGHT$ |
20 | 20 | * |
@@ -167,18 +167,18 @@ config_window(void *base, size_t size, int disp_unit, |
167 | 167 | MPI_WIN_SIZE, size, true); |
168 | 168 | if (OMPI_SUCCESS != ret) return ret; |
169 | 169 |
|
170 | | - ret = ompi_attr_set_fortran_mpi2(WIN_ATTR, win, |
| 170 | + ret = ompi_attr_set_fortran_mpi1(WIN_ATTR, win, |
171 | 171 | &win->w_keyhash, |
172 | 172 | MPI_WIN_DISP_UNIT, disp_unit, |
173 | 173 | true); |
174 | 174 | if (OMPI_SUCCESS != ret) return ret; |
175 | 175 |
|
176 | | - ret = ompi_attr_set_fortran_mpi2(WIN_ATTR, win, |
| 176 | + ret = ompi_attr_set_fortran_mpi1(WIN_ATTR, win, |
177 | 177 | &win->w_keyhash, |
178 | 178 | MPI_WIN_CREATE_FLAVOR, flavor, true); |
179 | 179 | if (OMPI_SUCCESS != ret) return ret; |
180 | 180 |
|
181 | | - ret = ompi_attr_set_fortran_mpi2(WIN_ATTR, win, |
| 181 | + ret = ompi_attr_set_fortran_mpi1(WIN_ATTR, win, |
182 | 182 | &win->w_keyhash, |
183 | 183 | MPI_WIN_MODEL, model, true); |
184 | 184 | if (OMPI_SUCCESS != ret) return ret; |
|
0 commit comments