1
1

mpi_f08: add MPI_Type_size_x and misc PMPI_xxx bindings

Этот коммит содержится в:
Gilles Gouaillardet 2015-06-30 16:15:00 +09:00
родитель 18fd30a173
Коммит c4025f55a4
3 изменённых файлов: 13 добавлений и 2 удалений

Просмотреть файл

@ -329,6 +329,7 @@ mpi_api_files = \
type_set_attr_f08.F90 \
type_set_name_f08.F90 \
type_size_f08.F90 \
type_size_x_f08.F90 \
type_vector_f08.F90 \
unpack_external_f08.F90 \
unpack_f08.F90 \
@ -529,6 +530,7 @@ pmpi_api_files = \
profile/pget_elements_f08.F90 \
profile/pget_elements_x_f08.F90 \
profile/pget_f08.F90 \
profile/pget_library_version_f08.F90 \
profile/pget_processor_name_f08.F90 \
profile/pget_version_f08.F90 \
profile/pgraph_create_f08.F90 \
@ -693,12 +695,15 @@ pmpi_api_files = \
profile/pwaitsome_f08.F90 \
profile/pwin_allocate_f08.F90 \
profile/pwin_allocate_shared_f08.F90 \
profile/pwin_attach_f08.F90 \
profile/pwin_call_errhandler_f08.F90 \
profile/pwin_complete_f08.F90 \
profile/pwin_create_dynamic_f08.F90 \
profile/pwin_create_errhandler_f08.F90 \
profile/pwin_create_f08.F90 \
profile/pwin_create_keyval_f08.F90 \
profile/pwin_delete_attr_f08.F90 \
profile/pwin_detach_f08.F90 \
profile/pwin_fence_f08.F90 \
profile/pwin_flush_f08.F90 \
profile/pwin_flush_all_f08.F90 \
@ -709,12 +714,14 @@ pmpi_api_files = \
profile/pwin_get_attr_f08.F90 \
profile/pwin_get_errhandler_f08.F90 \
profile/pwin_get_group_f08.F90 \
profile/pwin_get_info_f08.F90 \
profile/pwin_get_name_f08.F90 \
profile/pwin_lock_f08.F90 \
profile/pwin_lock_all_f08.F90 \
profile/pwin_post_f08.F90 \
profile/pwin_set_attr_f08.F90 \
profile/pwin_set_errhandler_f08.F90 \
profile/pwin_set_info_f08.F90 \
profile/pwin_set_name_f08.F90 \
profile/pwin_shared_query_f08.F90 \
profile/pwin_start_f08.F90 \

Просмотреть файл

@ -3,10 +3,12 @@
! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved.
! Copyright (c) 2009-2013 Los Alamos National Security, LLC.
! All rights reserved.
! Copyright (c) 2015 Research Organization for Information Science
! and Technology (RIST). All rights reserved.
! $COPYRIGHT$
subroutine PMPI_Type_size_x_f08(datatype,size,ierror)
use :: mpi_f08_types, only : MPI_Datatype, MPI_ADDRESS_KIND, MPI_COUNT_KIND
use :: mpi_f08_types, only : MPI_Datatype, MPI_COUNT_KIND
use :: mpi_f08, only : ompi_type_size_x_f
implicit none
TYPE(MPI_Datatype), INTENT(IN) :: datatype

Просмотреть файл

@ -3,10 +3,12 @@
! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved.
! Copyright (c) 2009-2013 Los Alamos National Security, LLC.
! All rights reserved.
! Copyright (c) 2015 Research Organization for Information Science
! and Technology (RIST). All rights reserved.
! $COPYRIGHT$
subroutine MPI_Type_size_x_f08(datatype,size,ierror)
use :: mpi_f08_types, only : MPI_Datatype, MPI_ADDRESS_KIND
use :: mpi_f08_types, only : MPI_Datatype, MPI_COUNT_KIND
use :: mpi_f08, only : ompi_type_size_x_f
implicit none
TYPE(MPI_Datatype), INTENT(IN) :: datatype