mpiext/pcollreq: fix more typos
Signed-off-by: KAWASHIMA Takahiro <t-kawashima@jp.fujitsu.com>
(cherry picked from commit 4a0a2598f6
)
Этот коммит содержится в:
родитель
73f531a8f2
Коммит
e83e118ae7
@ -15,6 +15,7 @@
|
||||
* reserved.
|
||||
* Copyright (c) 2015-2018 Research Organization for Information Science
|
||||
* and Technology (RIST). All rights reserved.
|
||||
* Copyright (c) 2018 FUJITSU LIMITED. All rights reserved.
|
||||
* $COPYRIGHT$
|
||||
*
|
||||
* Additional copyrights may follow
|
||||
@ -58,7 +59,7 @@ OMPI_GENERATE_F77_BINDINGS (PMPIX_NEIGHBOR_ALLTOALL_INIT,
|
||||
#pragma weak MPIX_Neighbor_alltoall_init_f08 = ompix_neighbor_alltoall_init_f
|
||||
#else
|
||||
#if ! OMPI_BUILD_MPI_PROFILING
|
||||
OMPI_GENERATE_F77_BINDINGS (MPIX_NEIGHBOR_ALLTOALL,
|
||||
OMPI_GENERATE_F77_BINDINGS (MPIX_NEIGHBOR_ALLTOALL_INIT,
|
||||
mpix_neighbor_alltoall_init,
|
||||
mpix_neighbor_alltoall_init_,
|
||||
mpix_neighbor_alltoall_init__,
|
||||
|
@ -5,6 +5,7 @@
|
||||
! All rights reserved.
|
||||
! Copyright (c) 2018 Research Organization for Information Science
|
||||
! and Technology (RIST). All rights reserved.
|
||||
! Copyright (c) 2018 FUJITSU LIMITED. All rights reserved.
|
||||
! $COPYRIGHT$
|
||||
|
||||
#include "ompi/mpi/fortran/configure-fortran-output.h"
|
||||
@ -25,4 +26,4 @@ subroutine MPIX_Bcast_init_f08(buffer,count,datatype,root,comm,info,request,ierr
|
||||
call ompix_bcast_init_f(buffer,count,datatype%MPI_VAL,root,comm%MPI_VAL,info%MPI_VAL,request%MPI_VAL,c_ierror)
|
||||
if (present(ierror)) ierror = c_ierror
|
||||
|
||||
end subroutine MPIX_Bcast_init_f08
|
||||
end subroutine MPIX_Bcast_init_f08
|
||||
|
Загрузка…
Ссылка в новой задаче
Block a user