ports/openmpi
ports/openmpi
1
1
Форкнуть 0
Код Релизы Активность

mpiext/pcollreq: fix more typos

Просмотр исходного кода 
Signed-off-by: KAWASHIMA Takahiro <t-kawashima@jp.fujitsu.com>
(cherry picked from commit 4a0a2598f63b081045fdeb51256493ce2a8ec96a)
Этот коммит содержится в:
KAWASHIMA Takahiro 2018-09-18 14:36:28 +09:00
родитель 73f531a8f2
Коммит e83e118ae7
2 изменённых файлов: 4 добавлений и 2 удалений
Показать статистику Скачать Patch файл Скачать Diff файл Показать все файлы Свернуть все файлы

3
ompi/mpiext/pcollreq/mpif-h/neighbor_alltoall_init_f.c
Просмотреть файл

@ -15,6 +15,7 @@
* reserved. * reserved.
* Copyright (c) 2015-2018 Research Organization for Information Science * Copyright (c) 2015-2018 Research Organization for Information Science
* and Technology (RIST). All rights reserved. * and Technology (RIST). All rights reserved.
* Copyright (c) 2018 FUJITSU LIMITED. All rights reserved.
* $COPYRIGHT$ * $COPYRIGHT$
* *
* Additional copyrights may follow * 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 #pragma weak MPIX_Neighbor_alltoall_init_f08 = ompix_neighbor_alltoall_init_f
#else #else
#if ! OMPI_BUILD_MPI_PROFILING #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_, mpix_neighbor_alltoall_init_,
mpix_neighbor_alltoall_init__, mpix_neighbor_alltoall_init__,

3
ompi/mpiext/pcollreq/use-mpi-f08/bcast_init_f08.F90
Просмотреть файл

@ -5,6 +5,7 @@
! All rights reserved. ! All rights reserved.
! Copyright (c) 2018 Research Organization for Information Science ! Copyright (c) 2018 Research Organization for Information Science
! and Technology (RIST). All rights reserved. ! and Technology (RIST). All rights reserved.
! Copyright (c) 2018 FUJITSU LIMITED. All rights reserved.
! $COPYRIGHT$ ! $COPYRIGHT$
#include "ompi/mpi/fortran/configure-fortran-output.h" #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) 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 if (present(ierror)) ierror = c_ierror
end subroutine MPIX_Bcast_init_f08 end subroutine MPIX_Bcast_init_f08