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

Merge pull request #5113 from ThemosTsikas/patch-2

Просмотр исходного кода 
Use standard-conforming dummy names for Fortran bindings
Этот коммит содержится в:
Jeff Squyres 2018-05-02 06:36:08 -04:00 коммит произвёл GitHub
родитель 1aa82c0e08 4d126c16fa
Коммит b2aaf28a67
Не найден ключ, соответствующий данной подписи
Идентификатор ключа GPG: 4AEE18F83AFDEB23
21 изменённых файлов: 256 добавлений и 242 удалений
Показать статистику Скачать Patch файл Скачать Diff файл Показать все файлы Свернуть все файлы

16
ompi/mpi/fortran/base/attr-fn-int-callback-interfaces.h
Просмотреть файл

@ -4,8 +4,8 @@
! Copyright (c) 2006-2014 Cisco Systems, Inc. All rights reserved.
! Copyright (c) 2013 Los Alamos National Security, LLC. All rights
! reserved.
! Copyright (c) 2015 Research Organization for Information Science
! and Technology (RIST). All rights reserved.
! Copyright (c) 2015-2018 Research Organization for Information Science
! and Technology (RIST). All rights reserved.
! $COPYRIGHT$
!
! Additional copyrights may follow
@ -84,35 +84,35 @@ interface
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
subroutine MPI_TYPE_DUP_FN( oldtype, type_keyval, extra_state, &
subroutine MPI_TYPE_DUP_FN( datatype, type_keyval, extra_state, &
attribute_val_in, attribute_val_out, &
flag, ierr )
implicit none
include 'mpif-config.h'
integer :: oldtype
integer :: datatype
integer :: type_keyval
integer(KIND=MPI_ADDRESS_KIND) :: extra_state, attribute_val_in, attribute_val_out
logical :: flag
integer :: ierr
end subroutine MPI_TYPE_DUP_FN
subroutine MPI_TYPE_NULL_COPY_FN( type, type_keyval, extra_state, &
subroutine MPI_TYPE_NULL_COPY_FN( datatype, type_keyval, extra_state, &
attribute_val_in, attribute_val_out, &
flag, ierr )
implicit none
include 'mpif-config.h'
integer :: type
integer :: datatype
integer :: type_keyval
integer(kind=MPI_ADDRESS_KIND) :: extra_state, attribute_val_in, attribute_val_out
integer :: ierr
logical :: flag
end subroutine MPI_TYPE_NULL_COPY_FN
subroutine MPI_TYPE_NULL_DELETE_FN( type, type_keyval, attribute_val_out, &
subroutine MPI_TYPE_NULL_DELETE_FN( datatype, type_keyval, attribute_val_out, &
extra_state, ierr )
implicit none
include 'mpif-config.h'
integer :: type
integer :: datatype
integer :: type_keyval
integer(kind=MPI_ADDRESS_KIND) :: attribute_val_out, extra_state
integer :: ierr

10
ompi/mpi/fortran/use-mpi-f08/mod/mpi-f08-interfaces-callbacks.F90
Просмотреть файл

@ -2,8 +2,8 @@
! Copyright (c) 2009-2013 Cisco Systems, Inc. All rights reserved.
! Copyright (c) 2009-2012 Los Alamos National Security, LLC.
! All rights reserved.
! Copyright (c) 2015-2017 Research Organization for Information Science
! and Technology (RIST). All rights reserved.
! Copyright (c) 2015-2018 Research Organization for Information Science
! and Technology (RIST). All rights reserved.
! $COPYRIGHT$
#include "ompi/mpi/fortran/configure-fortran-output.h"
@ -23,13 +23,13 @@ END INTERFACE
!Example of a user defined callback function
!
! subroutine my_user_function( invec, inoutvec, len, type ) bind(c)
! subroutine my_user_function( invec, inoutvec, len, datatype ) bind(c)
! use, intrinsic :: iso_c_binding, only : c_ptr, c_f_pointer
! type(c_ptr), value :: invec, inoutvec
! integer, intent(in) :: len
! type(MPI_Datatype) :: type
! type(MPI_Datatype) :: datatype
! real, pointer :: invec_r(:), inoutvec_r(:)
! if (type%MPI_VAL == MPI_REAL%MPI_VAL) then
! if (datatype%MPI_VAL == MPI_REAL%MPI_VAL) then
! call c_f_pointer(invec, invec_r, (/ len /) )
! call c_f_pointer(inoutvec, inoutvec_r, (/ len /) )
! inoutvec_r = invec_r + inoutvec_r

28
ompi/mpi/fortran/use-mpi-f08/mpi-f-interfaces-bind.h
Просмотреть файл

@ -7,8 +7,8 @@
! of Tennessee Research Foundation. All rights
! reserved.
! Copyright (c) 2012 Inria. All rights reserved.
! Copyright (c) 2015-2017 Research Organization for Information Science
! and Technology (RIST). All rights reserved.
! Copyright (c) 2015-2018 Research Organization for Information Science
! and Technology (RIST). All rights reserved.
! $COPYRIGHT$
!
! This file provides the interface specifications for the MPI Fortran
@ -655,10 +655,10 @@ subroutine ompi_type_create_subarray_f(ndims,array_of_sizes, &
INTEGER, INTENT(OUT) :: ierror
end subroutine ompi_type_create_subarray_f
subroutine ompi_type_dup_f(type,newtype,ierror) &
subroutine ompi_type_dup_f(oldtype,newtype,ierror) &
BIND(C, name="ompi_type_dup_f")
implicit none
INTEGER, INTENT(IN) :: type
INTEGER, INTENT(IN) :: oldtype
INTEGER, INTENT(OUT) :: newtype
INTEGER, INTENT(OUT) :: ierror
end subroutine ompi_type_dup_f
@ -1536,10 +1536,10 @@ subroutine ompi_type_create_keyval_f(type_copy_attr_fn,type_delete_attr_fn, &
INTEGER, INTENT(OUT) :: ierror
end subroutine ompi_type_create_keyval_f
subroutine ompi_type_delete_attr_f(type,type_keyval,ierror) &
subroutine ompi_type_delete_attr_f(datatype,type_keyval,ierror) &
BIND(C, name="ompi_type_delete_attr_f")
implicit none
INTEGER, INTENT(IN) :: type
INTEGER, INTENT(IN) :: datatype
INTEGER, INTENT(IN) :: type_keyval
INTEGER, INTENT(OUT) :: ierror
end subroutine ompi_type_delete_attr_f
@ -1551,32 +1551,32 @@ subroutine ompi_type_free_keyval_f(type_keyval,ierror) &
INTEGER, INTENT(OUT) :: ierror
end subroutine ompi_type_free_keyval_f
subroutine ompi_type_get_name_f(type,type_name,resultlen,ierror,type_name_len) &
subroutine ompi_type_get_name_f(datatype,type_name,resultlen,ierror,type_name_len) &
BIND(C, name="ompi_type_get_name_f")
use, intrinsic :: ISO_C_BINDING, only : C_CHAR
implicit none
INTEGER, INTENT(IN) :: type
INTEGER, INTENT(IN) :: datatype
CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(OUT) :: type_name
INTEGER, INTENT(OUT) :: resultlen
INTEGER, INTENT(OUT) :: ierror
INTEGER, VALUE, INTENT(IN) :: type_name_len
end subroutine ompi_type_get_name_f
subroutine ompi_type_set_attr_f(type,type_keyval,attribute_val,ierror) &
subroutine ompi_type_set_attr_f(datatype,type_keyval,attribute_val,ierror) &
BIND(C, name="ompi_type_set_attr_f")
use :: mpi_f08_types, only : MPI_ADDRESS_KIND
implicit none
INTEGER, INTENT(IN) :: type
INTEGER, INTENT(IN) :: datatype
INTEGER, INTENT(IN) :: type_keyval
INTEGER(MPI_ADDRESS_KIND), INTENT(IN) :: attribute_val
INTEGER, INTENT(OUT) :: ierror
end subroutine ompi_type_set_attr_f
subroutine ompi_type_set_name_f(type,type_name,ierror,type_name_len) &
subroutine ompi_type_set_name_f(datatype,type_name,ierror,type_name_len) &
BIND(C, name="ompi_type_set_name_f")
use, intrinsic :: ISO_C_BINDING, only : C_CHAR
implicit none
INTEGER, INTENT(IN) :: type
INTEGER, INTENT(IN) :: datatype
CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(IN) :: type_name
INTEGER, INTENT(OUT) :: ierror
INTEGER, VALUE, INTENT(IN) :: type_name_len
@ -3246,11 +3246,11 @@ subroutine ompi_type_create_f90_real_f(p,r,newtype,ierror) &
INTEGER, INTENT(OUT) :: ierror
end subroutine ompi_type_create_f90_real_f
subroutine ompi_type_match_size_f(typeclass,size,type,ierror) &
subroutine ompi_type_match_size_f(typeclass,size,datatype,ierror) &
BIND(C, name="ompi_type_match_size_f")
implicit none
INTEGER, INTENT(IN) :: typeclass, size
INTEGER, INTENT(OUT) :: type
INTEGER, INTENT(OUT) :: datatype
INTEGER, INTENT(OUT) :: ierror
end subroutine ompi_type_match_size_f

28
ompi/mpi/fortran/use-mpi-f08/pmpi-f-interfaces-bind.h
Просмотреть файл

@ -7,8 +7,8 @@
! of Tennessee Research Foundation. All rights
! reserved.
! Copyright (c) 2012 Inria. All rights reserved.
! Copyright (c) 2015-2017 Research Organization for Information Science
! and Technology (RIST). All rights reserved.
! Copyright (c) 2015-2018 Research Organization for Information Science
! and Technology (RIST). All rights reserved.
! $COPYRIGHT$
!
! This file provides the interface specifications for the MPI Fortran
@ -560,10 +560,10 @@ subroutine pompi_type_create_subarray_f(ndims,array_of_sizes, &
INTEGER, INTENT(OUT) :: ierror
end subroutine pompi_type_create_subarray_f
subroutine pompi_type_dup_f(type,newtype,ierror) &
subroutine pompi_type_dup_f(oldtype,newtype,ierror) &
BIND(C, name="pompi_type_dup_f")
implicit none
INTEGER, INTENT(IN) :: type
INTEGER, INTENT(IN) :: oldtype
INTEGER, INTENT(OUT) :: newtype
INTEGER, INTENT(OUT) :: ierror
end subroutine pompi_type_dup_f
@ -1370,10 +1370,10 @@ subroutine pompi_type_create_keyval_f(type_copy_attr_fn,type_delete_attr_fn, &
INTEGER, INTENT(OUT) :: ierror
end subroutine pompi_type_create_keyval_f
subroutine pompi_type_delete_attr_f(type,type_keyval,ierror) &
subroutine pompi_type_delete_attr_f(datatype,type_keyval,ierror) &
BIND(C, name="pompi_type_delete_attr_f")
implicit none
INTEGER, INTENT(IN) :: type
INTEGER, INTENT(IN) :: datatype
INTEGER, INTENT(IN) :: type_keyval
INTEGER, INTENT(OUT) :: ierror
end subroutine pompi_type_delete_attr_f
@ -1385,32 +1385,32 @@ subroutine pompi_type_free_keyval_f(type_keyval,ierror) &
INTEGER, INTENT(OUT) :: ierror
end subroutine pompi_type_free_keyval_f
subroutine pompi_type_get_name_f(type,type_name,resultlen,ierror,type_name_len) &
subroutine pompi_type_get_name_f(datatype,type_name,resultlen,ierror,type_name_len) &
BIND(C, name="pompi_type_get_name_f")
use, intrinsic :: ISO_C_BINDING, only : C_CHAR
implicit none
INTEGER, INTENT(IN) :: type
INTEGER, INTENT(IN) :: datatype
CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(OUT) :: type_name
INTEGER, INTENT(OUT) :: resultlen
INTEGER, INTENT(OUT) :: ierror
INTEGER, VALUE, INTENT(IN) :: type_name_len
end subroutine pompi_type_get_name_f
subroutine pompi_type_set_attr_f(type,type_keyval,attribute_val,ierror) &
subroutine pompi_type_set_attr_f(datatype,type_keyval,attribute_val,ierror) &
BIND(C, name="pompi_type_set_attr_f")
use :: mpi_f08_types, only : MPI_ADDRESS_KIND
implicit none
INTEGER, INTENT(IN) :: type
INTEGER, INTENT(IN) :: datatype
INTEGER, INTENT(IN) :: type_keyval
INTEGER(MPI_ADDRESS_KIND), INTENT(IN) :: attribute_val
INTEGER, INTENT(OUT) :: ierror
end subroutine pompi_type_set_attr_f
subroutine pompi_type_set_name_f(type,type_name,ierror,type_name_len) &
subroutine pompi_type_set_name_f(datatype,type_name,ierror,type_name_len) &
BIND(C, name="pompi_type_set_name_f")
use, intrinsic :: ISO_C_BINDING, only : C_CHAR
implicit none
INTEGER, INTENT(IN) :: type
INTEGER, INTENT(IN) :: datatype
CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(IN) :: type_name
INTEGER, INTENT(OUT) :: ierror
INTEGER, VALUE, INTENT(IN) :: type_name_len
@ -3029,11 +3029,11 @@ subroutine pompi_type_create_f90_real_f(p,r,newtype,ierror) &
INTEGER, INTENT(OUT) :: ierror
end subroutine pompi_type_create_f90_real_f
subroutine pompi_type_match_size_f(typeclass,size,type,ierror) &
subroutine pompi_type_match_size_f(typeclass,size,datatype,ierror) &
BIND(C, name="pompi_type_match_size_f")
implicit none
INTEGER, INTENT(IN) :: typeclass, size
INTEGER, INTENT(OUT) :: type
INTEGER, INTENT(OUT) :: datatype
INTEGER, INTENT(OUT) :: ierror
end subroutine pompi_type_match_size_f

8
ompi/mpi/fortran/use-mpi-f08/profile/ptype_delete_attr_f08.F90
Просмотреть файл

@ -3,18 +3,20 @@
! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved.
! Copyright (c) 2009-2012 Los Alamos National Security, LLC.
! All rights reserved.
! Copyright (c) 2018 Research Organization for Information Science
! and Technology (RIST). All rights reserved.
! $COPYRIGHT$
subroutine PMPI_Type_delete_attr_f08(type,type_keyval,ierror)
subroutine PMPI_Type_delete_attr_f08(datatype,type_keyval,ierror)
use :: mpi_f08_types, only : MPI_Datatype
use :: mpi_f08, only : ompi_type_delete_attr_f
implicit none
TYPE(MPI_Datatype), INTENT(IN) :: type
TYPE(MPI_Datatype), INTENT(IN) :: datatype
INTEGER, INTENT(IN) :: type_keyval
INTEGER, OPTIONAL, INTENT(OUT) :: ierror
integer :: c_ierror
call ompi_type_delete_attr_f(type%MPI_VAL,type_keyval,c_ierror)
call ompi_type_delete_attr_f(datatype%MPI_VAL,type_keyval,c_ierror)
if (present(ierror)) ierror = c_ierror
end subroutine PMPI_Type_delete_attr_f08

8
ompi/mpi/fortran/use-mpi-f08/profile/ptype_dup_f08.F90
Просмотреть файл

@ -3,18 +3,20 @@
! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved.
! Copyright (c) 2009-2012 Los Alamos National Security, LLC.
! All rights reserved.
! Copyright (c) 2018 Research Organization for Information Science
! and Technology (RIST). All rights reserved.
! $COPYRIGHT$
subroutine PMPI_Type_dup_f08(type,newtype,ierror)
subroutine PMPI_Type_dup_f08(oldtype,newtype,ierror)
use :: mpi_f08_types, only : MPI_Datatype
use :: mpi_f08, only : ompi_type_dup_f
implicit none
TYPE(MPI_Datatype), INTENT(IN) :: type
TYPE(MPI_Datatype), INTENT(IN) :: oldtype
TYPE(MPI_Datatype), INTENT(OUT) :: newtype
INTEGER, OPTIONAL, INTENT(OUT) :: ierror
integer :: c_ierror
call ompi_type_dup_f(type%MPI_VAL,newtype%MPI_VAL,c_ierror)
call ompi_type_dup_f(oldtype%MPI_VAL,newtype%MPI_VAL,c_ierror)
if (present(ierror)) ierror = c_ierror
end subroutine PMPI_Type_dup_f08

8
ompi/mpi/fortran/use-mpi-f08/profile/ptype_get_attr_f08.F90
Просмотреть файл

@ -3,21 +3,23 @@
! Copyright (c) 2009-2013 Cisco Systems, Inc. All rights reserved.
! Copyright (c) 2009-2012 Los Alamos National Security, LLC.
! All rights reserved.
! Copyright (c) 2018 Research Organization for Information Science
! and Technology (RIST). All rights reserved.
! $COPYRIGHT$
subroutine PMPI_Type_get_attr_f08(type,type_keyval,attribute_val,flag,ierror)
subroutine PMPI_Type_get_attr_f08(datatype,type_keyval,attribute_val,flag,ierror)
use :: mpi_f08_types, only : MPI_Datatype, MPI_ADDRESS_KIND
! See note in mpi-f-interfaces-bind.h for why we "use mpi" here and
! call a PMPI_* subroutine below.
use :: mpi, only : PMPI_Type_get_attr
implicit none
TYPE(MPI_Datatype), INTENT(IN) :: type
TYPE(MPI_Datatype), INTENT(IN) :: datatype
INTEGER, INTENT(IN) :: type_keyval
INTEGER(MPI_ADDRESS_KIND), INTENT(OUT) :: attribute_val
LOGICAL, INTENT(OUT) :: flag
INTEGER, OPTIONAL, INTENT(OUT) :: ierror
integer :: c_ierror
call PMPI_Type_get_attr(type%MPI_VAL,type_keyval,attribute_val,flag,c_ierror)
call PMPI_Type_get_attr(datatype%MPI_VAL,type_keyval,attribute_val,flag,c_ierror)
if (present(ierror)) ierror = c_ierror
end subroutine PMPI_Type_get_attr_f08

8
ompi/mpi/fortran/use-mpi-f08/profile/ptype_get_name_f08.F90
Просмотреть файл

@ -3,19 +3,21 @@
! Copyright (c) 2010-2011 Cisco Systems, Inc. All rights reserved.
! Copyright (c) 2009-2012 Los Alamos National Security, LLC.
! All rights reserved.
! Copyright (c) 2018 Research Organization for Information Science
! and Technology (RIST). All rights reserved.
! $COPYRIGHT$
subroutine PMPI_Type_get_name_f08(type,type_name,resultlen,ierror)
subroutine PMPI_Type_get_name_f08(datatype,type_name,resultlen,ierror)
use :: mpi_f08_types, only : MPI_Datatype, MPI_MAX_OBJECT_NAME
use :: mpi_f08, only : ompi_type_get_name_f
implicit none
TYPE(MPI_Datatype), INTENT(IN) :: type
TYPE(MPI_Datatype), INTENT(IN) :: datatype
CHARACTER(LEN=*), INTENT(OUT) :: type_name
INTEGER, INTENT(OUT) :: resultlen
INTEGER, OPTIONAL, INTENT(OUT) :: ierror
integer :: c_ierror
call ompi_type_get_name_f(type%MPI_VAL,type_name,resultlen,c_ierror,len(type_name))
call ompi_type_get_name_f(datatype%MPI_VAL,type_name,resultlen,c_ierror,len(type_name))
if (present(ierror)) ierror = c_ierror
end subroutine PMPI_Type_get_name_f08

8
ompi/mpi/fortran/use-mpi-f08/profile/ptype_match_size_f08.F90
Просмотреть файл

@ -3,18 +3,20 @@
! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved.
! Copyright (c) 2009-2012 Los Alamos National Security, LLC.
! All Rights reserved.
! Copyright (c) 2018 Research Organization for Information Science
! and Technology (RIST). All rights reserved.
! $COPYRIGHT$
subroutine PMPI_Type_match_size_f08(typeclass,size,type,ierror)
subroutine PMPI_Type_match_size_f08(typeclass,size,datatype,ierror)
use :: mpi_f08_types, only : MPI_Datatype
use :: mpi_f08, only : ompi_type_match_size_f
implicit none
INTEGER, INTENT(IN) :: typeclass, size
TYPE(MPI_Datatype), INTENT(OUT) :: type
TYPE(MPI_Datatype), INTENT(OUT) :: datatype
INTEGER, OPTIONAL, INTENT(OUT) :: ierror
integer :: c_ierror
call ompi_type_match_size_f(typeclass,size,type%MPI_VAL,c_ierror)
call ompi_type_match_size_f(typeclass,size,datatype%MPI_VAL,c_ierror)
if (present(ierror)) ierror = c_ierror
end subroutine PMPI_Type_match_size_f08

8
ompi/mpi/fortran/use-mpi-f08/profile/ptype_set_attr_f08.F90
Просмотреть файл

@ -3,19 +3,21 @@
! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved.
! Copyright (c) 2009-2012 Los Alamos National Security, LLC.
! All rights reserved.
! Copyright (c) 2018 Research Organization for Information Science
! and Technology (RIST). All rights reserved.
! $COPYRIGHT$
subroutine PMPI_Type_set_attr_f08(type,type_keyval,attribute_val,ierror)
subroutine PMPI_Type_set_attr_f08(datatype,type_keyval,attribute_val,ierror)
use :: mpi_f08_types, only : MPI_Datatype, MPI_ADDRESS_KIND
use :: mpi_f08, only : ompi_type_set_attr_f
implicit none
TYPE(MPI_Datatype), INTENT(IN) :: type
TYPE(MPI_Datatype), INTENT(IN) :: datatype
INTEGER, INTENT(IN) :: type_keyval
INTEGER(MPI_ADDRESS_KIND), INTENT(IN) :: attribute_val
INTEGER, OPTIONAL, INTENT(OUT) :: ierror
integer :: c_ierror
call ompi_type_set_attr_f(type%MPI_VAL,type_keyval,attribute_val,c_ierror)
call ompi_type_set_attr_f(datatype%MPI_VAL,type_keyval,attribute_val,c_ierror)
if (present(ierror)) ierror = c_ierror
end subroutine PMPI_Type_set_attr_f08

8
ompi/mpi/fortran/use-mpi-f08/profile/ptype_set_name_f08.F90
Просмотреть файл

@ -3,18 +3,20 @@
! Copyright (c) 2010-2011 Cisco Systems, Inc. All rights reserved.
! Copyright (c) 2009-2012 Los Alamos National Security, LLC.
! All rights reserved.
! Copyright (c) 2018 Research Organization for Information Science
! and Technology (RIST). All rights reserved.
! $COPYRIGHT$
subroutine PMPI_Type_set_name_f08(type,type_name,ierror)
subroutine PMPI_Type_set_name_f08(datatype,type_name,ierror)
use :: mpi_f08_types, only : MPI_Datatype
use :: mpi_f08, only : ompi_type_set_name_f
implicit none
TYPE(MPI_Datatype), INTENT(IN) :: type
TYPE(MPI_Datatype), INTENT(IN) :: datatype
CHARACTER(LEN=*), INTENT(IN) :: type_name
INTEGER, OPTIONAL, INTENT(OUT) :: ierror
integer :: c_ierror
call ompi_type_set_name_f(type%MPI_VAL,type_name,c_ierror,len(type_name))
call ompi_type_set_name_f(datatype%MPI_VAL,type_name,c_ierror,len(type_name))
if (present(ierror)) ierror = c_ierror
end subroutine PMPI_Type_set_name_f08

8
ompi/mpi/fortran/use-mpi-f08/type_delete_attr_f08.F90
Просмотреть файл

@ -1,20 +1,20 @@
! -*- f90 -*-
!
! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved.
! Copyright (c) 2009-2018 Cisco Systems, Inc. All rights reserved
! Copyright (c) 2009-2012 Los Alamos National Security, LLC.
! All rights reserved.
! $COPYRIGHT$
subroutine MPI_Type_delete_attr_f08(type,type_keyval,ierror)
subroutine MPI_Type_delete_attr_f08(datatype,type_keyval,ierror)
use :: mpi_f08_types, only : MPI_Datatype
use :: mpi_f08, only : ompi_type_delete_attr_f
implicit none
TYPE(MPI_Datatype), INTENT(IN) :: type
TYPE(MPI_Datatype), INTENT(IN) :: datatype
INTEGER, INTENT(IN) :: type_keyval
INTEGER, OPTIONAL, INTENT(OUT) :: ierror
integer :: c_ierror
call ompi_type_delete_attr_f(type%MPI_VAL,type_keyval,c_ierror)
call ompi_type_delete_attr_f(datatype%MPI_VAL,type_keyval,c_ierror)
if (present(ierror)) ierror = c_ierror
end subroutine MPI_Type_delete_attr_f08

8
ompi/mpi/fortran/use-mpi-f08/type_dup_f08.F90
Просмотреть файл

@ -1,20 +1,20 @@
! -*- f90 -*-
!
! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved.
! Copyright (c) 2009-2018 Cisco Systems, Inc. All rights reserved
! Copyright (c) 2009-2012 Los Alamos National Security, LLC.
! All rights reserved.
! $COPYRIGHT$
subroutine MPI_Type_dup_f08(type,newtype,ierror)
subroutine MPI_Type_dup_f08(datatype,newtype,ierror)
use :: mpi_f08_types, only : MPI_Datatype
use :: mpi_f08, only : ompi_type_dup_f
implicit none
TYPE(MPI_Datatype), INTENT(IN) :: type
TYPE(MPI_Datatype), INTENT(IN) :: datatype
TYPE(MPI_Datatype), INTENT(OUT) :: newtype
INTEGER, OPTIONAL, INTENT(OUT) :: ierror
integer :: c_ierror
call ompi_type_dup_f(type%MPI_VAL,newtype%MPI_VAL,c_ierror)
call ompi_type_dup_f(datatype%MPI_VAL,newtype%MPI_VAL,c_ierror)
if (present(ierror)) ierror = c_ierror
end subroutine MPI_Type_dup_f08

8
ompi/mpi/fortran/use-mpi-f08/type_get_attr_f08.F90
Просмотреть файл

@ -1,23 +1,23 @@
! -*- f90 -*-
!
! Copyright (c) 2009-2013 Cisco Systems, Inc. All rights reserved.
! Copyright (c) 2009-2018 Cisco Systems, Inc. All rights reserved
! Copyright (c) 2009-2012 Los Alamos National Security, LLC.
! All rights reserved.
! $COPYRIGHT$
subroutine MPI_Type_get_attr_f08(type,type_keyval,attribute_val,flag,ierror)
subroutine MPI_Type_get_attr_f08(datatype,type_keyval,attribute_val,flag,ierror)
use :: mpi_f08_types, only : MPI_Datatype, MPI_ADDRESS_KIND
! See note in mpi-f-interfaces-bind.h for why we "use mpi" here and
! call a PMPI_* subroutine below.
use :: mpi, only : PMPI_Type_get_attr
implicit none
TYPE(MPI_Datatype), INTENT(IN) :: type
TYPE(MPI_Datatype), INTENT(IN) :: datatype
INTEGER, INTENT(IN) :: type_keyval
INTEGER(MPI_ADDRESS_KIND), INTENT(OUT) :: attribute_val
LOGICAL, INTENT(OUT) :: flag
INTEGER, OPTIONAL, INTENT(OUT) :: ierror
integer :: c_ierror
call PMPI_Type_get_attr(type%MPI_VAL,type_keyval,attribute_val,flag,c_ierror)
call PMPI_Type_get_attr(datatype%MPI_VAL,type_keyval,attribute_val,flag,c_ierror)
if (present(ierror)) ierror = c_ierror
end subroutine MPI_Type_get_attr_f08

8
ompi/mpi/fortran/use-mpi-f08/type_get_name_f08.F90
Просмотреть файл

@ -1,21 +1,21 @@
! -*- f90 -*-
!
! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved.
! Copyright (c) 2009-2018 Cisco Systems, Inc. All rights reserved
! Copyright (c) 2009-2012 Los Alamos National Security, LLC.
! All rights reserved.
! $COPYRIGHT$
subroutine MPI_Type_get_name_f08(type,type_name,resultlen,ierror)
subroutine MPI_Type_get_name_f08(datatype,type_name,resultlen,ierror)
use :: mpi_f08_types, only : MPI_Datatype, MPI_MAX_OBJECT_NAME
use :: mpi_f08, only : ompi_type_get_name_f
implicit none
TYPE(MPI_Datatype), INTENT(IN) :: type
TYPE(MPI_Datatype), INTENT(IN) :: datatype
CHARACTER(LEN=*), INTENT(OUT) :: type_name
INTEGER, INTENT(OUT) :: resultlen
INTEGER, OPTIONAL, INTENT(OUT) :: ierror
integer :: c_ierror
call ompi_type_get_name_f(type%MPI_VAL,type_name,resultlen,c_ierror,len(type_name))
call ompi_type_get_name_f(datatype%MPI_VAL,type_name,resultlen,c_ierror,len(type_name))
if (present(ierror)) ierror = c_ierror
end subroutine MPI_Type_get_name_f08

8
ompi/mpi/fortran/use-mpi-f08/type_match_size_f08.F90
Просмотреть файл

@ -1,20 +1,20 @@
! -*- f90 -*-
!
! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved.
! Copyright (c) 2009-2018 Cisco Systems, Inc. All rights reserved
! Copyright (c) 2009-2012 Los Alamos National Security, LLC.
! All Rights reserved.
! $COPYRIGHT$
subroutine MPI_Type_match_size_f08(typeclass,size,type,ierror)
subroutine MPI_Type_match_size_f08(typeclass,size,datatype,ierror)
use :: mpi_f08_types, only : MPI_Datatype
use :: mpi_f08, only : ompi_type_match_size_f
implicit none
INTEGER, INTENT(IN) :: typeclass, size
TYPE(MPI_Datatype), INTENT(OUT) :: type
TYPE(MPI_Datatype), INTENT(OUT) :: datatype
INTEGER, OPTIONAL, INTENT(OUT) :: ierror
integer :: c_ierror
call ompi_type_match_size_f(typeclass,size,type%MPI_VAL,c_ierror)
call ompi_type_match_size_f(typeclass,size,datatype%MPI_VAL,c_ierror)
if (present(ierror)) ierror = c_ierror
end subroutine MPI_Type_match_size_f08

8
ompi/mpi/fortran/use-mpi-f08/type_set_attr_f08.F90
Просмотреть файл

@ -1,21 +1,21 @@
! -*- f90 -*-
!
! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved.
! Copyright (c) 2009-2018 Cisco Systems, Inc. All rights reserved
! Copyright (c) 2009-2012 Los Alamos National Security, LLC.
! All rights reserved.
! $COPYRIGHT$
subroutine MPI_Type_set_attr_f08(type,type_keyval,attribute_val,ierror)
subroutine MPI_Type_set_attr_f08(datatype,type_keyval,attribute_val,ierror)
use :: mpi_f08_types, only : MPI_Datatype, MPI_ADDRESS_KIND
use :: mpi_f08, only : ompi_type_set_attr_f
implicit none
TYPE(MPI_Datatype), INTENT(IN) :: type
TYPE(MPI_Datatype), INTENT(IN) :: datatype
INTEGER, INTENT(IN) :: type_keyval
INTEGER(MPI_ADDRESS_KIND), INTENT(IN) :: attribute_val
INTEGER, OPTIONAL, INTENT(OUT) :: ierror
integer :: c_ierror
call ompi_type_set_attr_f(type%MPI_VAL,type_keyval,attribute_val,c_ierror)
call ompi_type_set_attr_f(datatype%MPI_VAL,type_keyval,attribute_val,c_ierror)
if (present(ierror)) ierror = c_ierror
end subroutine MPI_Type_set_attr_f08

8
ompi/mpi/fortran/use-mpi-f08/type_set_name_f08.F90
Просмотреть файл

@ -1,20 +1,20 @@
! -*- f90 -*-
!
! Copyright (c) 2010-2011 Cisco Systems, Inc. All rights reserved.
! Copyright (c) 2010-2018 Cisco Systems, Inc. All rights reserved
! Copyright (c) 2009-2012 Los Alamos National Security, LLC.
! All rights reserved.
! $COPYRIGHT$
subroutine MPI_Type_set_name_f08(type,type_name,ierror)
subroutine MPI_Type_set_name_f08(datatype,type_name,ierror)
use :: mpi_f08_types, only : MPI_Datatype
use :: mpi_f08, only : ompi_type_set_name_f
implicit none
TYPE(MPI_Datatype), INTENT(IN) :: type
TYPE(MPI_Datatype), INTENT(IN) :: datatype
CHARACTER(LEN=*), INTENT(IN) :: type_name
INTEGER, OPTIONAL, INTENT(OUT) :: ierror
integer :: c_ierror
call ompi_type_set_name_f(type%MPI_VAL,type_name,c_ierror,len(type_name))
call ompi_type_set_name_f(datatype%MPI_VAL,type_name,c_ierror,len(type_name))
if (present(ierror)) ierror = c_ierror
end subroutine MPI_Type_set_name_f08

150
ompi/mpi/fortran/use-mpi-ignore-tkr/mpi-ignore-tkr-interfaces.h.in
Просмотреть файл

@ -1,6 +1,6 @@
! -*- fortran -*-
!
! Copyright (c) 2006-2012 Cisco Systems, Inc. All rights reserved.
! Copyright (c) 2006-2018 Cisco Systems, Inc. All rights reserved.
! Copyright (c) 2007 Los Alamos National Security, LLC. All rights
! reserved.
! Copyright (c) 2012 The University of Tennessee and The University
@ -9,8 +9,8 @@
! Copyright (c) 2012 Inria. All rights reserved.
! Copyright (c) 2013-2015 Los Alamos National Security, LLC. All rights
! reserved.
! Copyright (c) 2015 Research Organization for Information Science
! and Technology (RIST). All rights reserved.
! Copyright (c) 2015-2018 Research Organization for Information Science
! and Technology (RIST). All rights reserved.
! $COPYRIGHT$
!
! Additional copyrights may follow
@ -6335,8 +6335,8 @@ end interface
interface MPI_Type_commit
subroutine MPI_Type_commit(type, ierror)
integer, intent(inout) :: type
subroutine MPI_Type_commit(datatype, ierror)
integer, intent(inout) :: datatype
integer, intent(out) :: ierror
end subroutine MPI_Type_commit
@ -6344,8 +6344,8 @@ end interface
interface PMPI_Type_commit
subroutine PMPI_Type_commit(type, ierror)
integer, intent(inout) :: type
subroutine PMPI_Type_commit(datatype, ierror)
integer, intent(inout) :: datatype
integer, intent(out) :: ierror
end subroutine PMPI_Type_commit
@ -6723,8 +6723,8 @@ end interface
interface MPI_Type_delete_attr
subroutine MPI_Type_delete_attr(type, type_keyval, ierror)
integer, intent(in) :: type
subroutine MPI_Type_delete_attr(datatype, type_keyval, ierror)
integer, intent(in) :: datatype
integer, intent(in) :: type_keyval
integer, intent(out) :: ierror
end subroutine MPI_Type_delete_attr
@ -6733,8 +6733,8 @@ end interface
interface PMPI_Type_delete_attr
subroutine PMPI_Type_delete_attr(type, type_keyval, ierror)
integer, intent(in) :: type
subroutine PMPI_Type_delete_attr(datatype, type_keyval, ierror)
integer, intent(in) :: datatype
integer, intent(in) :: type_keyval
integer, intent(out) :: ierror
end subroutine PMPI_Type_delete_attr
@ -6744,8 +6744,8 @@ end interface
interface MPI_Type_dup
subroutine MPI_Type_dup(type, newtype, ierror)
integer, intent(in) :: type
subroutine MPI_Type_dup(datatype, newtype, ierror)
integer, intent(in) :: datatype
integer, intent(out) :: newtype
integer, intent(out) :: ierror
end subroutine MPI_Type_dup
@ -6754,8 +6754,8 @@ end interface
interface PMPI_Type_dup
subroutine PMPI_Type_dup(type, newtype, ierror)
integer, intent(in) :: type
subroutine PMPI_Type_dup(datatype, newtype, ierror)
integer, intent(in) :: datatype
integer, intent(out) :: newtype
integer, intent(out) :: ierror
end subroutine PMPI_Type_dup
@ -6765,8 +6765,8 @@ end interface
interface MPI_Type_extent
subroutine MPI_Type_extent(type, extent, ierror)
integer, intent(in) :: type
subroutine MPI_Type_extent(datatype, extent, ierror)
integer, intent(in) :: datatype
integer, intent(out) :: extent
integer, intent(out) :: ierror
end subroutine MPI_Type_extent
@ -6775,8 +6775,8 @@ end interface
interface PMPI_Type_extent
subroutine PMPI_Type_extent(type, extent, ierror)
integer, intent(in) :: type
subroutine PMPI_Type_extent(datatype, extent, ierror)
integer, intent(in) :: datatype
integer, intent(out) :: extent
integer, intent(out) :: ierror
end subroutine PMPI_Type_extent
@ -6786,8 +6786,8 @@ end interface
interface MPI_Type_free
subroutine MPI_Type_free(type, ierror)
integer, intent(inout) :: type
subroutine MPI_Type_free(datatype, ierror)
integer, intent(inout) :: datatype
integer, intent(out) :: ierror
end subroutine MPI_Type_free
@ -6795,8 +6795,8 @@ end interface
interface PMPI_Type_free
subroutine PMPI_Type_free(type, ierror)
integer, intent(inout) :: type
subroutine PMPI_Type_free(datatype, ierror)
integer, intent(inout) :: datatype
integer, intent(out) :: ierror
end subroutine PMPI_Type_free
@ -6824,9 +6824,9 @@ end interface
interface MPI_Type_get_attr
subroutine MPI_Type_get_attr(type, type_keyval, attribute_val, flag, ierror)
subroutine MPI_Type_get_attr(datatype, type_keyval, attribute_val, flag, ierror)
include 'mpif-config.h'
integer, intent(in) :: type
integer, intent(in) :: datatype
integer, intent(in) :: type_keyval
integer(kind=MPI_ADDRESS_KIND), intent(out) :: attribute_val
logical, intent(out) :: flag
@ -6837,9 +6837,9 @@ end interface
interface PMPI_Type_get_attr
subroutine PMPI_Type_get_attr(type, type_keyval, attribute_val, flag, ierror)
subroutine PMPI_Type_get_attr(datatype, type_keyval, attribute_val, flag, ierror)
include 'mpif-config.h'
integer, intent(in) :: type
integer, intent(in) :: datatype
integer, intent(in) :: type_keyval
integer(kind=MPI_ADDRESS_KIND), intent(out) :: attribute_val
logical, intent(out) :: flag
@ -6851,10 +6851,10 @@ end interface
interface MPI_Type_get_contents
subroutine MPI_Type_get_contents(mtype, max_integers, max_addresses, max_datatypes, array_of_integers, &
subroutine MPI_Type_get_contents(datatype, max_integers, max_addresses, max_datatypes, array_of_integers, &
array_of_addresses, array_of_datatypes, ierror)
include 'mpif-config.h'
integer, intent(in) :: mtype
integer, intent(in) :: datatype
integer, intent(in) :: max_integers
integer, intent(in) :: max_addresses
integer, intent(in) :: max_datatypes
@ -6868,10 +6868,10 @@ end interface
interface PMPI_Type_get_contents
subroutine PMPI_Type_get_contents(mtype, max_integers, max_addresses, max_datatypes, array_of_integers, &
subroutine PMPI_Type_get_contents(datatype, max_integers, max_addresses, max_datatypes, array_of_integers, &
array_of_addresses, array_of_datatypes, ierror)
include 'mpif-config.h'
integer, intent(in) :: mtype
integer, intent(in) :: datatype
integer, intent(in) :: max_integers
integer, intent(in) :: max_addresses
integer, intent(in) :: max_datatypes
@ -6886,9 +6886,9 @@ end interface
interface MPI_Type_get_envelope
subroutine MPI_Type_get_envelope(type, num_integers, num_addresses, num_datatypes, combiner&
subroutine MPI_Type_get_envelope(datatype, num_integers, num_addresses, num_datatypes, combiner&
, ierror)
integer, intent(in) :: type
integer, intent(in) :: datatype
integer, intent(out) :: num_integers
integer, intent(out) :: num_addresses
integer, intent(out) :: num_datatypes
@ -6900,9 +6900,9 @@ end interface
interface PMPI_Type_get_envelope
subroutine PMPI_Type_get_envelope(type, num_integers, num_addresses, num_datatypes, combiner&
subroutine PMPI_Type_get_envelope(datatype, num_integers, num_addresses, num_datatypes, combiner&
, ierror)
integer, intent(in) :: type
integer, intent(in) :: datatype
integer, intent(out) :: num_integers
integer, intent(out) :: num_addresses
integer, intent(out) :: num_datatypes
@ -6915,9 +6915,9 @@ end interface
interface MPI_Type_get_extent
subroutine MPI_Type_get_extent(type, lb, extent, ierror)
subroutine MPI_Type_get_extent(datatype, lb, extent, ierror)
include 'mpif-config.h'
integer, intent(in) :: type
integer, intent(in) :: datatype
integer(kind=MPI_ADDRESS_KIND), intent(out) :: lb
integer(kind=MPI_ADDRESS_KIND), intent(out) :: extent
integer, intent(out) :: ierror
@ -6927,9 +6927,9 @@ end interface
interface PMPI_Type_get_extent
subroutine PMPI_Type_get_extent(type, lb, extent, ierror)
subroutine PMPI_Type_get_extent(datatype, lb, extent, ierror)
include 'mpif-config.h'
integer, intent(in) :: type
integer, intent(in) :: datatype
integer(kind=MPI_ADDRESS_KIND), intent(out) :: lb
integer(kind=MPI_ADDRESS_KIND), intent(out) :: extent
integer, intent(out) :: ierror
@ -6940,9 +6940,9 @@ end interface
interface MPI_Type_get_extent_x
subroutine MPI_Type_get_extent_x(type, lb, extent, ierror)
subroutine MPI_Type_get_extent_x(datatype, lb, extent, ierror)
include 'mpif-config.h'
integer, intent(in) :: type
integer, intent(in) :: datatype
integer(kind=MPI_COUNT_KIND), intent(out) :: lb
integer(kind=MPI_COUNT_KIND), intent(out) :: extent
integer, intent(out) :: ierror
@ -6952,9 +6952,9 @@ end interface
interface PMPI_Type_get_extent_x
subroutine PMPI_Type_get_extent_x(type, lb, extent, ierror)
subroutine PMPI_Type_get_extent_x(datatype, lb, extent, ierror)
include 'mpif-config.h'
integer, intent(in) :: type
integer, intent(in) :: datatype
integer(kind=MPI_COUNT_KIND), intent(out) :: lb
integer(kind=MPI_COUNT_KIND), intent(out) :: extent
integer, intent(out) :: ierror
@ -6965,8 +6965,8 @@ end interface
interface MPI_Type_get_name
subroutine MPI_Type_get_name(type, type_name, resultlen, ierror)
integer, intent(in) :: type
subroutine MPI_Type_get_name(datatype, type_name, resultlen, ierror)
integer, intent(in) :: datatype
character(len=*), intent(out) :: type_name
integer, intent(out) :: resultlen
integer, intent(out) :: ierror
@ -6976,8 +6976,8 @@ end interface
interface PMPI_Type_get_name
subroutine PMPI_Type_get_name(type, type_name, resultlen, ierror)
integer, intent(in) :: type
subroutine PMPI_Type_get_name(datatype, type_name, resultlen, ierror)
integer, intent(in) :: datatype
character(len=*), intent(out) :: type_name
integer, intent(out) :: resultlen
integer, intent(out) :: ierror
@ -7125,8 +7125,8 @@ end interface
interface MPI_Type_lb
subroutine MPI_Type_lb(type, lb, ierror)
integer, intent(in) :: type
subroutine MPI_Type_lb(datatype, lb, ierror)
integer, intent(in) :: datatype
integer, intent(out) :: lb
integer, intent(out) :: ierror
end subroutine MPI_Type_lb
@ -7135,8 +7135,8 @@ end interface
interface PMPI_Type_lb
subroutine PMPI_Type_lb(type, lb, ierror)
integer, intent(in) :: type
subroutine PMPI_Type_lb(datatype, lb, ierror)
integer, intent(in) :: datatype
integer, intent(out) :: lb
integer, intent(out) :: ierror
end subroutine PMPI_Type_lb
@ -7146,10 +7146,10 @@ end interface
interface MPI_Type_match_size
subroutine MPI_Type_match_size(typeclass, size, type, ierror)
subroutine MPI_Type_match_size(typeclass, size, datatype, ierror)
integer, intent(in) :: typeclass
integer, intent(in) :: size
integer, intent(out) :: type
integer, intent(out) :: datatype
integer, intent(out) :: ierror
end subroutine MPI_Type_match_size
@ -7157,10 +7157,10 @@ end interface
interface PMPI_Type_match_size
subroutine PMPI_Type_match_size(typeclass, size, type, ierror)
subroutine PMPI_Type_match_size(typeclass, size, datatype, ierror)
integer, intent(in) :: typeclass
integer, intent(in) :: size
integer, intent(out) :: type
integer, intent(out) :: datatype
integer, intent(out) :: ierror
end subroutine PMPI_Type_match_size
@ -7169,9 +7169,9 @@ end interface
interface MPI_Type_set_attr
subroutine MPI_Type_set_attr(type, type_keyval, attr_val, ierror)
subroutine MPI_Type_set_attr(datatype, type_keyval, attr_val, ierror)
include 'mpif-config.h'
integer, intent(in) :: type
integer, intent(in) :: datatype
integer, intent(in) :: type_keyval
integer(kind=MPI_ADDRESS_KIND), intent(in) :: attr_val
integer, intent(out) :: ierror
@ -7181,9 +7181,9 @@ end interface
interface PMPI_Type_set_attr
subroutine PMPI_Type_set_attr(type, type_keyval, attr_val, ierror)
subroutine PMPI_Type_set_attr(datatype, type_keyval, attr_val, ierror)
include 'mpif-config.h'
integer, intent(in) :: type
integer, intent(in) :: datatype
integer, intent(in) :: type_keyval
integer(kind=MPI_ADDRESS_KIND), intent(in) :: attr_val
integer, intent(out) :: ierror
@ -7194,8 +7194,8 @@ end interface
interface MPI_Type_set_name
subroutine MPI_Type_set_name(type, type_name, ierror)
integer, intent(in) :: type
subroutine MPI_Type_set_name(datatype, type_name, ierror)
integer, intent(in) :: datatype
character(len=*), intent(in) :: type_name
integer, intent(out) :: ierror
end subroutine MPI_Type_set_name
@ -7204,8 +7204,8 @@ end interface
interface PMPI_Type_set_name
subroutine PMPI_Type_set_name(type, type_name, ierror)
integer, intent(in) :: type
subroutine PMPI_Type_set_name(datatype, type_name, ierror)
integer, intent(in) :: datatype
character(len=*), intent(in) :: type_name
integer, intent(out) :: ierror
end subroutine PMPI_Type_set_name
@ -7215,8 +7215,8 @@ end interface
interface MPI_Type_size
subroutine MPI_Type_size(type, size, ierror)
integer, intent(in) :: type
subroutine MPI_Type_size(datatype, size, ierror)
integer, intent(in) :: datatype
integer, intent(out) :: size
integer, intent(out) :: ierror
end subroutine MPI_Type_size
@ -7225,8 +7225,8 @@ end interface
interface PMPI_Type_size
subroutine PMPI_Type_size(type, size, ierror)
integer, intent(in) :: type
subroutine PMPI_Type_size(datatype, size, ierror)
integer, intent(in) :: datatype
integer, intent(out) :: size
integer, intent(out) :: ierror
end subroutine PMPI_Type_size
@ -7236,9 +7236,9 @@ end interface
interface MPI_Type_size_x
subroutine MPI_Type_size_x(type, size, ierror)
subroutine MPI_Type_size_x(datatype, size, ierror)
include 'mpif-config.h'
integer, intent(in) :: type
integer, intent(in) :: datatype
integer(kind=MPI_COUNT_KIND), intent(out) :: size
integer, intent(out) :: ierror
end subroutine MPI_Type_size_x
@ -7247,9 +7247,9 @@ end interface
interface PMPI_Type_size_x
subroutine PMPI_Type_size_x(type, size, ierror)
subroutine PMPI_Type_size_x(datatype, size, ierror)
include 'mpif-config.h'
integer, intent(in) :: type
integer, intent(in) :: datatype
integer(kind=MPI_COUNT_KIND), intent(out) :: size
integer, intent(out) :: ierror
end subroutine PMPI_Type_size_x
@ -7288,8 +7288,8 @@ end interface
interface MPI_Type_ub
subroutine MPI_Type_ub(mtype, ub, ierror)
integer, intent(in) :: mtype
subroutine MPI_Type_ub(datatype, ub, ierror)
integer, intent(in) :: datatype
integer, intent(out) :: ub
integer, intent(out) :: ierror
end subroutine MPI_Type_ub
@ -7298,8 +7298,8 @@ end interface
interface PMPI_Type_ub
subroutine PMPI_Type_ub(mtype, ub, ierror)
integer, intent(in) :: mtype
subroutine PMPI_Type_ub(datatype, ub, ierror)
integer, intent(in) :: datatype
integer, intent(out) :: ub
integer, intent(out) :: ierror
end subroutine PMPI_Type_ub

76
ompi/mpi/fortran/use-mpi-tkr/mpi-f90-interfaces.h
Просмотреть файл

@ -11,8 +11,8 @@
! Copyright (c) 2004-2005 The Regents of the University of California.
! All rights reserved.
! Copyright (c) 2006-2014 Cisco Systems, Inc. All rights reserved.
! Copyright (c) 2016 Research Organization for Information Science
! and Technology (RIST). All rights reserved.
! Copyright (c) 2016-2018 Research Organization for Information Science
! and Technology (RIST). All rights reserved.
! $COPYRIGHT$
!
! Additional copyrights may follow
@ -1481,8 +1481,8 @@ end interface
interface MPI_Type_commit
subroutine MPI_Type_commit(type, ierror)
integer, intent(inout) :: type
subroutine MPI_Type_commit(datatype, ierror)
integer, intent(inout) :: datatype
integer, intent(out) :: ierror
end subroutine MPI_Type_commit
@ -1666,8 +1666,8 @@ end interface
interface MPI_Type_delete_attr
subroutine MPI_Type_delete_attr(type, type_keyval, ierror)
integer, intent(in) :: type
subroutine MPI_Type_delete_attr(datatype, type_keyval, ierror)
integer, intent(in) :: datatype
integer, intent(in) :: type_keyval
integer, intent(out) :: ierror
end subroutine MPI_Type_delete_attr
@ -1677,8 +1677,8 @@ end interface
interface MPI_Type_dup
subroutine MPI_Type_dup(type, newtype, ierror)
integer, intent(in) :: type
subroutine MPI_Type_dup(oldtype, newtype, ierror)
integer, intent(in) :: oldtype
integer, intent(out) :: newtype
integer, intent(out) :: ierror
end subroutine MPI_Type_dup
@ -1688,8 +1688,8 @@ end interface
interface MPI_Type_extent
subroutine MPI_Type_extent(type, extent, ierror)
integer, intent(in) :: type
subroutine MPI_Type_extent(datatype, extent, ierror)
integer, intent(in) :: datatype
integer, intent(out) :: extent
integer, intent(out) :: ierror
end subroutine MPI_Type_extent
@ -1699,8 +1699,8 @@ end interface
interface MPI_Type_free
subroutine MPI_Type_free(type, ierror)
integer, intent(inout) :: type
subroutine MPI_Type_free(datatype, ierror)
integer, intent(inout) :: datatype
integer, intent(out) :: ierror
end subroutine MPI_Type_free
@ -1719,9 +1719,9 @@ end interface
interface MPI_Type_get_attr
subroutine MPI_Type_get_attr(type, type_keyval, attribute_val, flag, ierror)
subroutine MPI_Type_get_attr(datatype, type_keyval, attribute_val, flag, ierror)
include 'mpif-config.h'
integer, intent(in) :: type
integer, intent(in) :: datatype
integer, intent(in) :: type_keyval
integer(kind=MPI_ADDRESS_KIND), intent(out) :: attribute_val
logical, intent(out) :: flag
@ -1733,10 +1733,10 @@ end interface
interface MPI_Type_get_contents
subroutine MPI_Type_get_contents(mtype, max_integers, max_addresses, max_datatypes, array_of_integers, &
subroutine MPI_Type_get_contents(datatype, max_integers, max_addresses, max_datatypes, array_of_integers, &
array_of_addresses, array_of_datatypes, ierror)
include 'mpif-config.h'
integer, intent(in) :: mtype
integer, intent(in) :: datatype
integer, intent(in) :: max_integers
integer, intent(in) :: max_addresses
integer, intent(in) :: max_datatypes
@ -1751,9 +1751,9 @@ end interface
interface MPI_Type_get_envelope
subroutine MPI_Type_get_envelope(type, num_integers, num_addresses, num_datatypes, combiner&
subroutine MPI_Type_get_envelope(datatype, num_integers, num_addresses, num_datatypes, combiner&
, ierror)
integer, intent(in) :: type
integer, intent(in) :: datatype
integer, intent(out) :: num_integers
integer, intent(out) :: num_addresses
integer, intent(out) :: num_datatypes
@ -1766,9 +1766,9 @@ end interface
interface MPI_Type_get_extent
subroutine MPI_Type_get_extent(type, lb, extent, ierror)
subroutine MPI_Type_get_extent(datatype, lb, extent, ierror)
include 'mpif-config.h'
integer, intent(in) :: type
integer, intent(in) :: datatype
integer(kind=MPI_ADDRESS_KIND), intent(out) :: lb
integer(kind=MPI_ADDRESS_KIND), intent(out) :: extent
integer, intent(out) :: ierror
@ -1779,9 +1779,9 @@ end interface
interface MPI_Type_get_extent_x
subroutine MPI_Type_get_extent_x(type, lb, extent, ierror)
subroutine MPI_Type_get_extent_x(datatype, lb, extent, ierror)
include 'mpif-config.h'
integer, intent(in) :: type
integer, intent(in) :: datatype
integer(kind=MPI_COUNT_KIND), intent(out) :: lb
integer(kind=MPI_COUNT_KIND), intent(out) :: extent
integer, intent(out) :: ierror
@ -1792,8 +1792,8 @@ end interface
interface MPI_Type_get_name
subroutine MPI_Type_get_name(type, type_name, resultlen, ierror)
integer, intent(in) :: type
subroutine MPI_Type_get_name(datatype, type_name, resultlen, ierror)
integer, intent(in) :: datatype
character(len=*), intent(out) :: type_name
integer, intent(out) :: resultlen
integer, intent(out) :: ierror
@ -1875,8 +1875,8 @@ end interface
interface MPI_Type_lb
subroutine MPI_Type_lb(type, lb, ierror)
integer, intent(in) :: type
subroutine MPI_Type_lb(datatype, lb, ierror)
integer, intent(in) :: datatype
integer, intent(out) :: lb
integer, intent(out) :: ierror
end subroutine MPI_Type_lb
@ -1886,10 +1886,10 @@ end interface
interface MPI_Type_match_size
subroutine MPI_Type_match_size(typeclass, size, type, ierror)
subroutine MPI_Type_match_size(typeclass, size, datatype, ierror)
integer, intent(in) :: typeclass
integer, intent(in) :: size
integer, intent(out) :: type
integer, intent(out) :: datatype
integer, intent(out) :: ierror
end subroutine MPI_Type_match_size
@ -1898,9 +1898,9 @@ end interface
interface MPI_Type_set_attr
subroutine MPI_Type_set_attr(type, type_keyval, attr_val, ierror)
subroutine MPI_Type_set_attr(datatype, type_keyval, attr_val, ierror)
include 'mpif-config.h'
integer, intent(in) :: type
integer, intent(in) :: datatype
integer, intent(in) :: type_keyval
integer(kind=MPI_ADDRESS_KIND), intent(in) :: attr_val
integer, intent(out) :: ierror
@ -1911,8 +1911,8 @@ end interface
interface MPI_Type_set_name
subroutine MPI_Type_set_name(type, type_name, ierror)
integer, intent(in) :: type
subroutine MPI_Type_set_name(datatype, type_name, ierror)
integer, intent(in) :: datatype
character(len=*), intent(in) :: type_name
integer, intent(out) :: ierror
end subroutine MPI_Type_set_name
@ -1922,8 +1922,8 @@ end interface
interface MPI_Type_size
subroutine MPI_Type_size(type, size, ierror)
integer, intent(in) :: type
subroutine MPI_Type_size(datatype, size, ierror)
integer, intent(in) :: datatype
integer, intent(out) :: size
integer, intent(out) :: ierror
end subroutine MPI_Type_size
@ -1933,9 +1933,9 @@ end interface
interface MPI_Type_size_x
subroutine MPI_Type_size_x(type, size, ierror)
subroutine MPI_Type_size_x(datatype, size, ierror)
include 'mpif-config.h'
integer, intent(in) :: type
integer, intent(in) :: datatype
integer(kind=MPI_COUNT_KIND), intent(out) :: size
integer, intent(out) :: ierror
end subroutine MPI_Type_size_x
@ -1960,8 +1960,8 @@ end interface
interface MPI_Type_ub
subroutine MPI_Type_ub(mtype, ub, ierror)
integer, intent(in) :: mtype
subroutine MPI_Type_ub(datatype, ub, ierror)
integer, intent(in) :: datatype
integer, intent(out) :: ub
integer, intent(out) :: ierror
end subroutine MPI_Type_ub

78
ompi/mpi/fortran/use-mpi-tkr/pmpi-f90-interfaces.h
Просмотреть файл

@ -10,9 +10,9 @@
! University of Stuttgart. All rights reserved.
! Copyright (c) 2004-2005 The Regents of the University of California.
! All rights reserved.
! Copyright (c) 2006-2014 Cisco Systems, Inc. All rights reserved.
! Copyright (c) 2016 Research Organization for Information Science
! and Technology (RIST). All rights reserved.
! Copyright (c) 2006-2018 Cisco Systems, Inc. All rights reserved.
! Copyright (c) 2016-2018 Research Organization for Information Science
! and Technology (RIST). All rights reserved.
! $COPYRIGHT$
!
! Additional copyrights may follow
@ -1481,8 +1481,8 @@ end interface
interface PMPI_Type_commit
subroutine PMPI_Type_commit(type, ierror)
integer, intent(inout) :: type
subroutine PMPI_Type_commit(datatype, ierror)
integer, intent(inout) :: datatype
integer, intent(out) :: ierror
end subroutine PMPI_Type_commit
@ -1666,8 +1666,8 @@ end interface
interface PMPI_Type_delete_attr
subroutine PMPI_Type_delete_attr(type, type_keyval, ierror)
integer, intent(in) :: type
subroutine PMPI_Type_delete_attr(datatype, type_keyval, ierror)
integer, intent(in) :: datatype
integer, intent(in) :: type_keyval
integer, intent(out) :: ierror
end subroutine PMPI_Type_delete_attr
@ -1677,8 +1677,8 @@ end interface
interface PMPI_Type_dup
subroutine PMPI_Type_dup(type, newtype, ierror)
integer, intent(in) :: type
subroutine PMPI_Type_dup(datatype, newtype, ierror)
integer, intent(in) :: datatype
integer, intent(out) :: newtype
integer, intent(out) :: ierror
end subroutine PMPI_Type_dup
@ -1688,8 +1688,8 @@ end interface
interface PMPI_Type_extent
subroutine PMPI_Type_extent(type, extent, ierror)
integer, intent(in) :: type
subroutine PMPI_Type_extent(datatype, extent, ierror)
integer, intent(in) :: datatype
integer, intent(out) :: extent
integer, intent(out) :: ierror
end subroutine PMPI_Type_extent
@ -1699,8 +1699,8 @@ end interface
interface PMPI_Type_free
subroutine PMPI_Type_free(type, ierror)
integer, intent(inout) :: type
subroutine PMPI_Type_free(datatype, ierror)
integer, intent(inout) :: datatype
integer, intent(out) :: ierror
end subroutine PMPI_Type_free
@ -1719,9 +1719,9 @@ end interface
interface PMPI_Type_get_attr
subroutine PMPI_Type_get_attr(type, type_keyval, attribute_val, flag, ierror)
subroutine PMPI_Type_get_attr(datatype, type_keyval, attribute_val, flag, ierror)
include 'mpif-config.h'
integer, intent(in) :: type
integer, intent(in) :: datatype
integer, intent(in) :: type_keyval
integer(kind=MPI_ADDRESS_KIND), intent(out) :: attribute_val
logical, intent(out) :: flag
@ -1733,10 +1733,10 @@ end interface
interface PMPI_Type_get_contents
subroutine PMPI_Type_get_contents(mtype, max_integers, max_addresses, max_datatypes, array_of_integers, &
subroutine PMPI_Type_get_contents(datatype, max_integers, max_addresses, max_datatypes, array_of_integers, &
array_of_addresses, array_of_datatypes, ierror)
include 'mpif-config.h'
integer, intent(in) :: mtype
integer, intent(in) :: datatype
integer, intent(in) :: max_integers
integer, intent(in) :: max_addresses
integer, intent(in) :: max_datatypes
@ -1751,9 +1751,9 @@ end interface
interface PMPI_Type_get_envelope
subroutine PMPI_Type_get_envelope(type, num_integers, num_addresses, num_datatypes, combiner&
subroutine PMPI_Type_get_envelope(datatype, num_integers, num_addresses, num_datatypes, combiner&
, ierror)
integer, intent(in) :: type
integer, intent(in) :: datatype
integer, intent(out) :: num_integers
integer, intent(out) :: num_addresses
integer, intent(out) :: num_datatypes
@ -1766,9 +1766,9 @@ end interface
interface PMPI_Type_get_extent
subroutine PMPI_Type_get_extent(type, lb, extent, ierror)
subroutine PMPI_Type_get_extent(datatype, lb, extent, ierror)
include 'mpif-config.h'
integer, intent(in) :: type
integer, intent(in) :: datatype
integer(kind=MPI_ADDRESS_KIND), intent(out) :: lb
integer(kind=MPI_ADDRESS_KIND), intent(out) :: extent
integer, intent(out) :: ierror
@ -1779,9 +1779,9 @@ end interface
interface PMPI_Type_get_extent_x
subroutine PMPI_Type_get_extent_x(type, lb, extent, ierror)
subroutine PMPI_Type_get_extent_x(datatype, lb, extent, ierror)
include 'mpif-config.h'
integer, intent(in) :: type
integer, intent(in) :: datatype
integer(kind=MPI_COUNT_KIND), intent(out) :: lb
integer(kind=MPI_COUNT_KIND), intent(out) :: extent
integer, intent(out) :: ierror
@ -1792,8 +1792,8 @@ end interface
interface PMPI_Type_get_name
subroutine PMPI_Type_get_name(type, type_name, resultlen, ierror)
integer, intent(in) :: type
subroutine PMPI_Type_get_name(datatype, type_name, resultlen, ierror)
integer, intent(in) :: datatype
character(len=*), intent(out) :: type_name
integer, intent(out) :: resultlen
integer, intent(out) :: ierror
@ -1875,8 +1875,8 @@ end interface
interface PMPI_Type_lb
subroutine PMPI_Type_lb(type, lb, ierror)
integer, intent(in) :: type
subroutine PMPI_Type_lb(datatype, lb, ierror)
integer, intent(in) :: datatype
integer, intent(out) :: lb
integer, intent(out) :: ierror
end subroutine PMPI_Type_lb
@ -1886,10 +1886,10 @@ end interface
interface PMPI_Type_match_size
subroutine PMPI_Type_match_size(typeclass, size, type, ierror)
subroutine PMPI_Type_match_size(typeclass, size, datatype, ierror)
integer, intent(in) :: typeclass
integer, intent(in) :: size
integer, intent(out) :: type
integer, intent(out) :: datatype
integer, intent(out) :: ierror
end subroutine PMPI_Type_match_size
@ -1898,9 +1898,9 @@ end interface
interface PMPI_Type_set_attr
subroutine PMPI_Type_set_attr(type, type_keyval, attr_val, ierror)
subroutine PMPI_Type_set_attr(datatype, type_keyval, attr_val, ierror)
include 'mpif-config.h'
integer, intent(in) :: type
integer, intent(in) :: datatype
integer, intent(in) :: type_keyval
integer(kind=MPI_ADDRESS_KIND), intent(in) :: attr_val
integer, intent(out) :: ierror
@ -1911,8 +1911,8 @@ end interface
interface PMPI_Type_set_name
subroutine PMPI_Type_set_name(type, type_name, ierror)
integer, intent(in) :: type
subroutine PMPI_Type_set_name(datatype, type_name, ierror)
integer, intent(in) :: datatype
character(len=*), intent(in) :: type_name
integer, intent(out) :: ierror
end subroutine PMPI_Type_set_name
@ -1922,8 +1922,8 @@ end interface
interface PMPI_Type_size
subroutine PMPI_Type_size(type, size, ierror)
integer, intent(in) :: type
subroutine PMPI_Type_size(datatype, size, ierror)
integer, intent(in) :: datatype
integer, intent(out) :: size
integer, intent(out) :: ierror
end subroutine PMPI_Type_size
@ -1933,9 +1933,9 @@ end interface
interface PMPI_Type_size_x
subroutine PMPI_Type_size_x(type, size, ierror)
subroutine PMPI_Type_size_x(datatype, size, ierror)
include 'mpif-config.h'
integer, intent(in) :: type
integer, intent(in) :: datatype
integer(kind=MPI_COUNT_KIND), intent(out) :: size
integer, intent(out) :: ierror
end subroutine PMPI_Type_size_x
@ -1960,8 +1960,8 @@ end interface
interface PMPI_Type_ub
subroutine PMPI_Type_ub(mtype, ub, ierror)
integer, intent(in) :: mtype
subroutine PMPI_Type_ub(datatype, ub, ierror)
integer, intent(in) :: datatype
integer, intent(out) :: ub
integer, intent(out) :: ierror
end subroutine PMPI_Type_ub