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

Merge pull request #4667 from kawashima-fj/pr/f08-pmpi

Просмотр исходного кода 
fortran: Fix PMPI interface bugs in mpi_f08 module
Этот коммит содержится в:
KAWASHIMA Takahiro 2018-01-05 03:45:10 -06:00 коммит произвёл GitHub
родитель 56fe714776 00e3c7a973
Коммит 710080be63
Не найден ключ, соответствующий данной подписи
Идентификатор ключа GPG: 4AEE18F83AFDEB23
2 изменённых файлов: 66 добавлений и 68 удалений
Показать статистику Скачать Patch файл Скачать Diff файл Показать все файлы Свернуть все файлы

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

@ -9,6 +9,7 @@
! Copyright (c) 2012 Inria. All rights reserved. ! Copyright (c) 2012 Inria. All rights reserved.
! Copyright (c) 2015-2017 Research Organization for Information Science ! Copyright (c) 2015-2017 Research Organization for Information Science
! and Technology (RIST). All rights reserved. ! and Technology (RIST). All rights reserved.
! Copyright (c) 2017 FUJITSU LIMITED. All rights reserved.
! $COPYRIGHT$ ! $COPYRIGHT$
! !
! This file provides the interface specifications for the MPI Fortran ! This file provides the interface specifications for the MPI Fortran
@ -2101,7 +2102,7 @@ subroutine MPI_Type_set_name_f08(datatype,type_name,ierror)
end subroutine MPI_Type_set_name_f08 end subroutine MPI_Type_set_name_f08
end interface MPI_Type_set_name end interface MPI_Type_set_name
interface MPI_Win_allocate interface MPI_Win_allocate
subroutine MPI_Win_allocate_f08(size, disp_unit, info, comm, & subroutine MPI_Win_allocate_f08(size, disp_unit, info, comm, &
baseptr, win, ierror) baseptr, win, ierror)
USE, INTRINSIC :: ISO_C_BINDING, ONLY : C_PTR USE, INTRINSIC :: ISO_C_BINDING, ONLY : C_PTR
@ -2114,9 +2115,9 @@ subroutine MPI_Win_allocate_f08(size, disp_unit, info, comm, &
TYPE(MPI_Win), INTENT(OUT) :: win TYPE(MPI_Win), INTENT(OUT) :: win
INTEGER, OPTIONAL, INTENT(OUT) :: ierror INTEGER, OPTIONAL, INTENT(OUT) :: ierror
end subroutine MPI_Win_allocate_f08 end subroutine MPI_Win_allocate_f08
end interface MPI_Win_allocate end interface MPI_Win_allocate
interface MPI_Win_allocate_shared interface MPI_Win_allocate_shared
subroutine MPI_Win_allocate_shared_f08(size, disp_unit, info, comm, & subroutine MPI_Win_allocate_shared_f08(size, disp_unit, info, comm, &
baseptr, win, ierror) baseptr, win, ierror)
USE, INTRINSIC :: ISO_C_BINDING, ONLY : C_PTR USE, INTRINSIC :: ISO_C_BINDING, ONLY : C_PTR
@ -2129,7 +2130,7 @@ subroutine MPI_Win_allocate_shared_f08(size, disp_unit, info, comm, &
TYPE(MPI_Win), INTENT(OUT) :: win TYPE(MPI_Win), INTENT(OUT) :: win
INTEGER, OPTIONAL, INTENT(OUT) :: ierror INTEGER, OPTIONAL, INTENT(OUT) :: ierror
end subroutine MPI_Win_allocate_shared_f08 end subroutine MPI_Win_allocate_shared_f08
end interface MPI_Win_allocate_shared end interface MPI_Win_allocate_shared
interface MPI_Win_create_keyval interface MPI_Win_create_keyval
subroutine MPI_Win_create_keyval_f08(win_copy_attr_fn,win_delete_attr_fn,win_keyval, & subroutine MPI_Win_create_keyval_f08(win_copy_attr_fn,win_delete_attr_fn,win_keyval, &
@ -2465,7 +2466,7 @@ function MPI_Wtick_f08( ) BIND(C,name="MPI_Wtick")
use, intrinsic :: ISO_C_BINDING use, intrinsic :: ISO_C_BINDING
implicit none implicit none
DOUBLE PRECISION :: MPI_Wtick_f08 DOUBLE PRECISION :: MPI_Wtick_f08
end function MPI_Wtick_f08 end function MPI_Wtick_f08
end interface MPI_Wtick end interface MPI_Wtick
! MPI_Wtime is not a wrapper function ! MPI_Wtime is not a wrapper function
@ -2475,7 +2476,7 @@ function MPI_Wtime_f08( ) BIND(C,name="MPI_Wtime")
use, intrinsic :: ISO_C_BINDING use, intrinsic :: ISO_C_BINDING
implicit none implicit none
DOUBLE PRECISION :: MPI_Wtime_f08 DOUBLE PRECISION :: MPI_Wtime_f08
end function MPI_Wtime_f08 end function MPI_Wtime_f08
end interface MPI_Wtime end interface MPI_Wtime
interface MPI_Aint_add interface MPI_Aint_add
@ -2485,7 +2486,7 @@ function MPI_Aint_add_f08(base,diff)
INTEGER(MPI_ADDRESS_KIND) :: base INTEGER(MPI_ADDRESS_KIND) :: base
INTEGER(MPI_ADDRESS_KIND) :: diff INTEGER(MPI_ADDRESS_KIND) :: diff
INTEGER(MPI_ADDRESS_KIND) :: MPI_Aint_add_f08 INTEGER(MPI_ADDRESS_KIND) :: MPI_Aint_add_f08
end function MPI_Aint_add_f08 end function MPI_Aint_add_f08
end interface MPI_Aint_add end interface MPI_Aint_add
interface MPI_Aint_diff interface MPI_Aint_diff
@ -2495,7 +2496,7 @@ function MPI_Aint_diff_f08(addr1,addr2)
INTEGER(MPI_ADDRESS_KIND) :: addr1 INTEGER(MPI_ADDRESS_KIND) :: addr1
INTEGER(MPI_ADDRESS_KIND) :: addr2 INTEGER(MPI_ADDRESS_KIND) :: addr2
INTEGER(MPI_ADDRESS_KIND) :: MPI_Aint_diff_f08 INTEGER(MPI_ADDRESS_KIND) :: MPI_Aint_diff_f08
end function MPI_Aint_diff_f08 end function MPI_Aint_diff_f08
end interface MPI_Aint_diff end interface MPI_Aint_diff
interface MPI_Abort interface MPI_Abort
@ -3336,7 +3337,7 @@ subroutine MPI_Win_post_f08(group,assert,win,ierror)
end subroutine MPI_Win_post_f08 end subroutine MPI_Win_post_f08
end interface MPI_Win_post end interface MPI_Win_post
interface MPI_Win_shared_query interface MPI_Win_shared_query
subroutine MPI_Win_shared_query_f08(win, rank, size, disp_unit, baseptr,& subroutine MPI_Win_shared_query_f08(win, rank, size, disp_unit, baseptr,&
ierror) ierror)
USE, INTRINSIC :: ISO_C_BINDING, ONLY : C_PTR USE, INTRINSIC :: ISO_C_BINDING, ONLY : C_PTR
@ -3348,7 +3349,7 @@ subroutine MPI_Win_shared_query_f08(win, rank, size, disp_unit, baseptr,&
TYPE(C_PTR), INTENT(OUT) :: baseptr TYPE(C_PTR), INTENT(OUT) :: baseptr
INTEGER, OPTIONAL, INTENT(OUT) :: ierror INTEGER, OPTIONAL, INTENT(OUT) :: ierror
end subroutine MPI_Win_shared_query_f08 end subroutine MPI_Win_shared_query_f08
end interface end interface MPI_Win_shared_query
interface MPI_Win_start interface MPI_Win_start
subroutine MPI_Win_start_f08(group,assert,win,ierror) subroutine MPI_Win_start_f08(group,assert,win,ierror)

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

@ -47,7 +47,7 @@ subroutine PMPI_Bsend_init_f08(buf,count,datatype,dest,tag,comm,request,ierror)
!$PRAGMA IGNORE_TKR buf !$PRAGMA IGNORE_TKR buf
!DIR$ IGNORE_TKR buf !DIR$ IGNORE_TKR buf
!IBM* IGNORE_TKR buf !IBM* IGNORE_TKR buf
OMPI_FORTRAN_IGNORE_TKR_TYPE OMPI_ASYNCHRONOUS :: buf OMPI_FORTRAN_IGNORE_TKR_TYPE :: buf
INTEGER, INTENT(IN) :: count, dest, tag INTEGER, INTENT(IN) :: count, dest, tag
TYPE(MPI_Datatype), INTENT(IN) :: datatype TYPE(MPI_Datatype), INTENT(IN) :: datatype
TYPE(MPI_Comm), INTENT(IN) :: comm TYPE(MPI_Comm), INTENT(IN) :: comm
@ -64,7 +64,7 @@ subroutine PMPI_Buffer_attach_f08(buffer,size,ierror)
!$PRAGMA IGNORE_TKR buffer !$PRAGMA IGNORE_TKR buffer
!DIR$ IGNORE_TKR buffer !DIR$ IGNORE_TKR buffer
!IBM* IGNORE_TKR buffer !IBM* IGNORE_TKR buffer
OMPI_FORTRAN_IGNORE_TKR_TYPE OMPI_ASYNCHRONOUS :: buffer OMPI_FORTRAN_IGNORE_TKR_TYPE :: buffer
INTEGER, INTENT(IN) :: size INTEGER, INTENT(IN) :: size
INTEGER, OPTIONAL, INTENT(OUT) :: ierror INTEGER, OPTIONAL, INTENT(OUT) :: ierror
end subroutine PMPI_Buffer_attach_f08 end subroutine PMPI_Buffer_attach_f08
@ -72,13 +72,9 @@ end interface PMPI_Buffer_attach
interface PMPI_Buffer_detach interface PMPI_Buffer_detach
subroutine PMPI_Buffer_detach_f08(buffer_addr,size,ierror) subroutine PMPI_Buffer_detach_f08(buffer_addr,size,ierror)
USE, INTRINSIC :: ISO_C_BINDING, ONLY : C_PTR
implicit none implicit none
!DEC$ ATTRIBUTES NO_ARG_CHECK :: buffer_addr TYPE(C_PTR), INTENT(OUT) :: buffer_addr
!GCC$ ATTRIBUTES NO_ARG_CHECK :: buffer_addr
!$PRAGMA IGNORE_TKR buffer_addr
!DIR$ IGNORE_TKR buffer_addr
!IBM* IGNORE_TKR buffer_addr
OMPI_FORTRAN_IGNORE_TKR_TYPE OMPI_ASYNCHRONOUS :: buffer_addr
INTEGER, INTENT(OUT) :: size INTEGER, INTENT(OUT) :: size
INTEGER, OPTIONAL, INTENT(OUT) :: ierror INTEGER, OPTIONAL, INTENT(OUT) :: ierror
end subroutine PMPI_Buffer_detach_f08 end subroutine PMPI_Buffer_detach_f08
@ -113,7 +109,7 @@ subroutine PMPI_Ibsend_f08(buf,count,datatype,dest,tag,comm,request,ierror)
!$PRAGMA IGNORE_TKR buf !$PRAGMA IGNORE_TKR buf
!DIR$ IGNORE_TKR buf !DIR$ IGNORE_TKR buf
!IBM* IGNORE_TKR buf !IBM* IGNORE_TKR buf
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) OMPI_ASYNCHRONOUS :: buf OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: buf
INTEGER, INTENT(IN) :: count, dest, tag INTEGER, INTENT(IN) :: count, dest, tag
TYPE(MPI_Datatype), INTENT(IN) :: datatype TYPE(MPI_Datatype), INTENT(IN) :: datatype
TYPE(MPI_Comm), INTENT(IN) :: comm TYPE(MPI_Comm), INTENT(IN) :: comm
@ -143,7 +139,7 @@ subroutine PMPI_Irecv_f08(buf,count,datatype,source,tag,comm,request,ierror)
!$PRAGMA IGNORE_TKR buf !$PRAGMA IGNORE_TKR buf
!DIR$ IGNORE_TKR buf !DIR$ IGNORE_TKR buf
!IBM* IGNORE_TKR buf !IBM* IGNORE_TKR buf
OMPI_FORTRAN_IGNORE_TKR_TYPE OMPI_ASYNCHRONOUS :: buf OMPI_FORTRAN_IGNORE_TKR_TYPE :: buf
INTEGER, INTENT(IN) :: count, source, tag INTEGER, INTENT(IN) :: count, source, tag
TYPE(MPI_Datatype), INTENT(IN) :: datatype TYPE(MPI_Datatype), INTENT(IN) :: datatype
TYPE(MPI_Comm), INTENT(IN) :: comm TYPE(MPI_Comm), INTENT(IN) :: comm
@ -161,7 +157,7 @@ subroutine PMPI_Irsend_f08(buf,count,datatype,dest,tag,comm,request,ierror)
!$PRAGMA IGNORE_TKR buf !$PRAGMA IGNORE_TKR buf
!DIR$ IGNORE_TKR buf !DIR$ IGNORE_TKR buf
!IBM* IGNORE_TKR buf !IBM* IGNORE_TKR buf
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) OMPI_ASYNCHRONOUS :: buf OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: buf
INTEGER, INTENT(IN) :: count, dest, tag INTEGER, INTENT(IN) :: count, dest, tag
TYPE(MPI_Datatype), INTENT(IN) :: datatype TYPE(MPI_Datatype), INTENT(IN) :: datatype
TYPE(MPI_Comm), INTENT(IN) :: comm TYPE(MPI_Comm), INTENT(IN) :: comm
@ -179,7 +175,7 @@ subroutine PMPI_Isend_f08(buf,count,datatype,dest,tag,comm,request,ierror)
!$PRAGMA IGNORE_TKR buf !$PRAGMA IGNORE_TKR buf
!DIR$ IGNORE_TKR buf !DIR$ IGNORE_TKR buf
!IBM* IGNORE_TKR buf !IBM* IGNORE_TKR buf
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) OMPI_ASYNCHRONOUS :: buf OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: buf
INTEGER, INTENT(IN) :: count, dest, tag INTEGER, INTENT(IN) :: count, dest, tag
TYPE(MPI_Datatype), INTENT(IN) :: datatype TYPE(MPI_Datatype), INTENT(IN) :: datatype
TYPE(MPI_Comm), INTENT(IN) :: comm TYPE(MPI_Comm), INTENT(IN) :: comm
@ -197,7 +193,7 @@ subroutine PMPI_Issend_f08(buf,count,datatype,dest,tag,comm,request,ierror)
!$PRAGMA IGNORE_TKR buf !$PRAGMA IGNORE_TKR buf
!DIR$ IGNORE_TKR buf !DIR$ IGNORE_TKR buf
!IBM* IGNORE_TKR buf !IBM* IGNORE_TKR buf
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) OMPI_ASYNCHRONOUS :: buf OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: buf
INTEGER, INTENT(IN) :: count, dest, tag INTEGER, INTENT(IN) :: count, dest, tag
TYPE(MPI_Datatype), INTENT(IN) :: datatype TYPE(MPI_Datatype), INTENT(IN) :: datatype
TYPE(MPI_Comm), INTENT(IN) :: comm TYPE(MPI_Comm), INTENT(IN) :: comm
@ -244,7 +240,7 @@ subroutine PMPI_Recv_init_f08(buf,count,datatype,source,tag,comm,request,ierror)
!$PRAGMA IGNORE_TKR buf !$PRAGMA IGNORE_TKR buf
!DIR$ IGNORE_TKR buf !DIR$ IGNORE_TKR buf
!IBM* IGNORE_TKR buf !IBM* IGNORE_TKR buf
OMPI_FORTRAN_IGNORE_TKR_TYPE OMPI_ASYNCHRONOUS :: buf OMPI_FORTRAN_IGNORE_TKR_TYPE :: buf
INTEGER, INTENT(IN) :: count, source, tag INTEGER, INTENT(IN) :: count, source, tag
TYPE(MPI_Datatype), INTENT(IN) :: datatype TYPE(MPI_Datatype), INTENT(IN) :: datatype
TYPE(MPI_Comm), INTENT(IN) :: comm TYPE(MPI_Comm), INTENT(IN) :: comm
@ -299,7 +295,7 @@ subroutine PMPI_Rsend_init_f08(buf,count,datatype,dest,tag,comm,request,ierror)
!$PRAGMA IGNORE_TKR buf !$PRAGMA IGNORE_TKR buf
!DIR$ IGNORE_TKR buf !DIR$ IGNORE_TKR buf
!IBM* IGNORE_TKR buf !IBM* IGNORE_TKR buf
OMPI_FORTRAN_IGNORE_TKR_TYPE OMPI_ASYNCHRONOUS :: buf OMPI_FORTRAN_IGNORE_TKR_TYPE :: buf
INTEGER, INTENT(IN) :: count, dest, tag INTEGER, INTENT(IN) :: count, dest, tag
TYPE(MPI_Datatype), INTENT(IN) :: datatype TYPE(MPI_Datatype), INTENT(IN) :: datatype
TYPE(MPI_Comm), INTENT(IN) :: comm TYPE(MPI_Comm), INTENT(IN) :: comm
@ -373,7 +369,7 @@ subroutine PMPI_Send_init_f08(buf,count,datatype,dest,tag,comm,request,ierror)
!$PRAGMA IGNORE_TKR buf !$PRAGMA IGNORE_TKR buf
!DIR$ IGNORE_TKR buf !DIR$ IGNORE_TKR buf
!IBM* IGNORE_TKR buf !IBM* IGNORE_TKR buf
OMPI_FORTRAN_IGNORE_TKR_TYPE OMPI_ASYNCHRONOUS :: buf OMPI_FORTRAN_IGNORE_TKR_TYPE :: buf
INTEGER, INTENT(IN) :: count, dest, tag INTEGER, INTENT(IN) :: count, dest, tag
TYPE(MPI_Datatype), INTENT(IN) :: datatype TYPE(MPI_Datatype), INTENT(IN) :: datatype
TYPE(MPI_Comm), INTENT(IN) :: comm TYPE(MPI_Comm), INTENT(IN) :: comm
@ -408,7 +404,7 @@ subroutine PMPI_Ssend_init_f08(buf,count,datatype,dest,tag,comm,request,ierror)
!$PRAGMA IGNORE_TKR buf !$PRAGMA IGNORE_TKR buf
!DIR$ IGNORE_TKR buf !DIR$ IGNORE_TKR buf
!IBM* IGNORE_TKR buf !IBM* IGNORE_TKR buf
OMPI_FORTRAN_IGNORE_TKR_TYPE OMPI_ASYNCHRONOUS :: buf OMPI_FORTRAN_IGNORE_TKR_TYPE :: buf
INTEGER, INTENT(IN) :: count, dest, tag INTEGER, INTENT(IN) :: count, dest, tag
TYPE(MPI_Datatype), INTENT(IN) :: datatype TYPE(MPI_Datatype), INTENT(IN) :: datatype
TYPE(MPI_Comm), INTENT(IN) :: comm TYPE(MPI_Comm), INTENT(IN) :: comm
@ -550,7 +546,7 @@ subroutine PMPI_Get_address_f08(location,address,ierror)
!$PRAGMA IGNORE_TKR location !$PRAGMA IGNORE_TKR location
!DIR$ IGNORE_TKR location !DIR$ IGNORE_TKR location
!IBM* IGNORE_TKR location !IBM* IGNORE_TKR location
OMPI_FORTRAN_IGNORE_TKR_TYPE OMPI_ASYNCHRONOUS :: location OMPI_FORTRAN_IGNORE_TKR_TYPE :: location
INTEGER(MPI_ADDRESS_KIND), INTENT(OUT) :: address INTEGER(MPI_ADDRESS_KIND), INTENT(OUT) :: address
INTEGER, OPTIONAL, INTENT(OUT) :: ierror INTEGER, OPTIONAL, INTENT(OUT) :: ierror
end subroutine PMPI_Get_address_f08 end subroutine PMPI_Get_address_f08
@ -1763,7 +1759,7 @@ subroutine PMPI_Comm_get_info_f08(comm,info_used,ierror)
use :: mpi_f08_types, only : MPI_Comm, MPI_Info use :: mpi_f08_types, only : MPI_Comm, MPI_Info
implicit none implicit none
TYPE(MPI_Comm), INTENT(IN) :: comm TYPE(MPI_Comm), INTENT(IN) :: comm
TYPE(MPI_Comm), INTENT(OUT) :: info_used TYPE(MPI_Info), INTENT(OUT) :: info_used
INTEGER, OPTIONAL, INTENT(OUT) :: ierror INTEGER, OPTIONAL, INTENT(OUT) :: ierror
end subroutine PMPI_Comm_get_info_f08 end subroutine PMPI_Comm_get_info_f08
end interface PMPI_Comm_get_info end interface PMPI_Comm_get_info
@ -2106,7 +2102,7 @@ subroutine PMPI_Type_set_name_f08(datatype,type_name,ierror)
end subroutine PMPI_Type_set_name_f08 end subroutine PMPI_Type_set_name_f08
end interface PMPI_Type_set_name end interface PMPI_Type_set_name
interface PMPI_Win_allocate interface PMPI_Win_allocate
subroutine PMPI_Win_allocate_f08(size, disp_unit, info, comm, & subroutine PMPI_Win_allocate_f08(size, disp_unit, info, comm, &
baseptr, win, ierror) baseptr, win, ierror)
USE, INTRINSIC :: ISO_C_BINDING, ONLY : C_PTR USE, INTRINSIC :: ISO_C_BINDING, ONLY : C_PTR
@ -2119,9 +2115,9 @@ subroutine PMPI_Win_allocate_f08(size, disp_unit, info, comm, &
TYPE(MPI_Win), INTENT(OUT) :: win TYPE(MPI_Win), INTENT(OUT) :: win
INTEGER, OPTIONAL, INTENT(OUT) :: ierror INTEGER, OPTIONAL, INTENT(OUT) :: ierror
end subroutine PMPI_Win_allocate_f08 end subroutine PMPI_Win_allocate_f08
end interface PMPI_Win_allocate end interface PMPI_Win_allocate
interface PMPI_Win_allocate_shared interface PMPI_Win_allocate_shared
subroutine PMPI_Win_allocate_shared_f08(size, disp_unit, info, comm, & subroutine PMPI_Win_allocate_shared_f08(size, disp_unit, info, comm, &
baseptr, win, ierror) baseptr, win, ierror)
USE, INTRINSIC :: ISO_C_BINDING, ONLY : C_PTR USE, INTRINSIC :: ISO_C_BINDING, ONLY : C_PTR
@ -2134,7 +2130,7 @@ subroutine PMPI_Win_allocate_shared_f08(size, disp_unit, info, comm, &
TYPE(MPI_Win), INTENT(OUT) :: win TYPE(MPI_Win), INTENT(OUT) :: win
INTEGER, OPTIONAL, INTENT(OUT) :: ierror INTEGER, OPTIONAL, INTENT(OUT) :: ierror
end subroutine PMPI_Win_allocate_shared_f08 end subroutine PMPI_Win_allocate_shared_f08
end interface PMPI_Win_allocate_shared end interface PMPI_Win_allocate_shared
interface PMPI_Win_create_keyval interface PMPI_Win_create_keyval
subroutine PMPI_Win_create_keyval_f08(win_copy_attr_fn,win_delete_attr_fn,win_keyval, & subroutine PMPI_Win_create_keyval_f08(win_copy_attr_fn,win_delete_attr_fn,win_keyval, &
@ -2484,21 +2480,23 @@ end function PMPI_Wtime_f08
end interface PMPI_Wtime end interface PMPI_Wtime
interface PMPI_Aint_add interface PMPI_Aint_add
subroutine PMPI_Aint_add_f08(base,diff) function PMPI_Aint_add_f08(base,diff)
use :: mpi_f08_types, only : MPI_ADDRESS_KIND use :: mpi_f08_types, only : MPI_ADDRESS_KIND
implicit none implicit none
INTEGER(MPI_ADDRESS_KIND) :: base INTEGER(MPI_ADDRESS_KIND) :: base
INTEGER(MPI_ADDRESS_KIND) :: diff INTEGER(MPI_ADDRESS_KIND) :: diff
end subroutine PMPI_Aint_add_f08 INTEGER(MPI_ADDRESS_KIND) :: PMPI_Aint_add_f08
end function PMPI_Aint_add_f08
end interface PMPI_Aint_add end interface PMPI_Aint_add
interface PMPI_Aint_diff interface PMPI_Aint_diff
subroutine PMPI_Aint_diff_f08(addr1,addr2) function PMPI_Aint_diff_f08(addr1,addr2)
use :: mpi_f08_types, only : MPI_ADDRESS_KIND use :: mpi_f08_types, only : MPI_ADDRESS_KIND
implicit none implicit none
INTEGER(MPI_ADDRESS_KIND) :: addr1 INTEGER(MPI_ADDRESS_KIND) :: addr1
INTEGER(MPI_ADDRESS_KIND) :: addr2 INTEGER(MPI_ADDRESS_KIND) :: addr2
end subroutine PMPI_Aint_diff_f08 INTEGER(MPI_ADDRESS_KIND) :: PMPI_Aint_diff_f08
end function PMPI_Aint_diff_f08
end interface PMPI_Aint_diff end interface PMPI_Aint_diff
interface PMPI_Abort interface PMPI_Abort
@ -2678,7 +2676,6 @@ end interface PMPI_Finalized
! ASYNCHRONOUS had to removed from the base argument because ! ASYNCHRONOUS had to removed from the base argument because
! the dummy argument is not an assumed-shape array. This will ! the dummy argument is not an assumed-shape array. This will
! be okay once the Interop TR is implemented. ! be okay once the Interop TR is implemented.
!
interface PMPI_Free_mem interface PMPI_Free_mem
subroutine PMPI_Free_mem_f08(base,ierror) subroutine PMPI_Free_mem_f08(base,ierror)
implicit none implicit none
@ -3004,7 +3001,7 @@ subroutine PMPI_Accumulate_f08(origin_addr,origin_count,origin_datatype,target_r
!$PRAGMA IGNORE_TKR origin_addr !$PRAGMA IGNORE_TKR origin_addr
!DIR$ IGNORE_TKR origin_addr !DIR$ IGNORE_TKR origin_addr
!IBM* IGNORE_TKR origin_addr !IBM* IGNORE_TKR origin_addr
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) OMPI_ASYNCHRONOUS :: origin_addr OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: origin_addr
INTEGER, INTENT(IN) :: origin_count, target_rank, target_count INTEGER, INTENT(IN) :: origin_count, target_rank, target_count
TYPE(MPI_Datatype), INTENT(IN) :: origin_datatype TYPE(MPI_Datatype), INTENT(IN) :: origin_datatype
INTEGER(MPI_ADDRESS_KIND), INTENT(IN) :: target_disp INTEGER(MPI_ADDRESS_KIND), INTENT(IN) :: target_disp
@ -3048,7 +3045,7 @@ subroutine PMPI_Get_f08(origin_addr,origin_count,origin_datatype,target_rank, &
!$PRAGMA IGNORE_TKR origin_addr !$PRAGMA IGNORE_TKR origin_addr
!DIR$ IGNORE_TKR origin_addr !DIR$ IGNORE_TKR origin_addr
!IBM* IGNORE_TKR origin_addr !IBM* IGNORE_TKR origin_addr
OMPI_FORTRAN_IGNORE_TKR_TYPE OMPI_ASYNCHRONOUS :: origin_addr OMPI_FORTRAN_IGNORE_TKR_TYPE :: origin_addr
INTEGER, INTENT(IN) :: origin_count, target_rank, target_count INTEGER, INTENT(IN) :: origin_count, target_rank, target_count
TYPE(MPI_Datatype), INTENT(IN) :: origin_datatype TYPE(MPI_Datatype), INTENT(IN) :: origin_datatype
INTEGER(MPI_ADDRESS_KIND), INTENT(IN) :: target_disp INTEGER(MPI_ADDRESS_KIND), INTENT(IN) :: target_disp
@ -3138,7 +3135,7 @@ subroutine PMPI_Put_f08(origin_addr,origin_count,origin_datatype,target_rank, &
!$PRAGMA IGNORE_TKR origin_addr !$PRAGMA IGNORE_TKR origin_addr
!DIR$ IGNORE_TKR origin_addr !DIR$ IGNORE_TKR origin_addr
!IBM* IGNORE_TKR origin_addr !IBM* IGNORE_TKR origin_addr
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) OMPI_ASYNCHRONOUS :: origin_addr OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: origin_addr
INTEGER, INTENT(IN) :: origin_count, target_rank, target_count INTEGER, INTENT(IN) :: origin_count, target_rank, target_count
TYPE(MPI_Datatype), INTENT(IN) :: origin_datatype TYPE(MPI_Datatype), INTENT(IN) :: origin_datatype
INTEGER(MPI_ADDRESS_KIND), INTENT(IN) :: target_disp INTEGER(MPI_ADDRESS_KIND), INTENT(IN) :: target_disp
@ -3228,7 +3225,7 @@ subroutine PMPI_Win_create_f08(base,size,disp_unit,info,comm,win,ierror)
!$PRAGMA IGNORE_TKR base !$PRAGMA IGNORE_TKR base
!DIR$ IGNORE_TKR base !DIR$ IGNORE_TKR base
!IBM* IGNORE_TKR base !IBM* IGNORE_TKR base
OMPI_FORTRAN_IGNORE_TKR_TYPE OMPI_ASYNCHRONOUS :: base OMPI_FORTRAN_IGNORE_TKR_TYPE :: base
INTEGER(MPI_ADDRESS_KIND), INTENT(IN) :: size INTEGER(MPI_ADDRESS_KIND), INTENT(IN) :: size
INTEGER, INTENT(IN) :: disp_unit INTEGER, INTENT(IN) :: disp_unit
TYPE(MPI_Info), INTENT(IN) :: info TYPE(MPI_Info), INTENT(IN) :: info
@ -3340,7 +3337,7 @@ subroutine PMPI_Win_post_f08(group,assert,win,ierror)
end subroutine PMPI_Win_post_f08 end subroutine PMPI_Win_post_f08
end interface PMPI_Win_post end interface PMPI_Win_post
interface PMPI_Win_shared_query interface PMPI_Win_shared_query
subroutine PMPI_Win_shared_query_f08(win, rank, size, disp_unit, baseptr,& subroutine PMPI_Win_shared_query_f08(win, rank, size, disp_unit, baseptr,&
ierror) ierror)
USE, INTRINSIC :: ISO_C_BINDING, ONLY : C_PTR USE, INTRINSIC :: ISO_C_BINDING, ONLY : C_PTR
@ -3352,7 +3349,7 @@ subroutine PMPI_Win_shared_query_f08(win, rank, size, disp_unit, baseptr,&
TYPE(C_PTR), INTENT(OUT) :: baseptr TYPE(C_PTR), INTENT(OUT) :: baseptr
INTEGER, OPTIONAL, INTENT(OUT) :: ierror INTEGER, OPTIONAL, INTENT(OUT) :: ierror
end subroutine PMPI_Win_shared_query_f08 end subroutine PMPI_Win_shared_query_f08
end interface PMPI_Win_shared_query end interface PMPI_Win_shared_query
interface PMPI_Win_start interface PMPI_Win_start
subroutine PMPI_Win_start_f08(group,assert,win,ierror) subroutine PMPI_Win_start_f08(group,assert,win,ierror)
@ -3667,7 +3664,7 @@ subroutine PMPI_File_iread_f08(fh,buf,count,datatype,request,ierror)
!$PRAGMA IGNORE_TKR buf !$PRAGMA IGNORE_TKR buf
!DIR$ IGNORE_TKR buf !DIR$ IGNORE_TKR buf
!IBM* IGNORE_TKR buf !IBM* IGNORE_TKR buf
OMPI_FORTRAN_IGNORE_TKR_TYPE OMPI_ASYNCHRONOUS :: buf OMPI_FORTRAN_IGNORE_TKR_TYPE :: buf
INTEGER, INTENT(IN) :: count INTEGER, INTENT(IN) :: count
TYPE(MPI_Datatype), INTENT(IN) :: datatype TYPE(MPI_Datatype), INTENT(IN) :: datatype
TYPE(MPI_Request), INTENT(OUT) :: request TYPE(MPI_Request), INTENT(OUT) :: request
@ -3686,7 +3683,7 @@ subroutine PMPI_File_iread_at_f08(fh,offset,buf,count,datatype,request,ierror)
!$PRAGMA IGNORE_TKR buf !$PRAGMA IGNORE_TKR buf
!DIR$ IGNORE_TKR buf !DIR$ IGNORE_TKR buf
!IBM* IGNORE_TKR buf !IBM* IGNORE_TKR buf
OMPI_FORTRAN_IGNORE_TKR_TYPE OMPI_ASYNCHRONOUS :: buf OMPI_FORTRAN_IGNORE_TKR_TYPE :: buf
INTEGER, INTENT(IN) :: count INTEGER, INTENT(IN) :: count
TYPE(MPI_Datatype), INTENT(IN) :: datatype TYPE(MPI_Datatype), INTENT(IN) :: datatype
TYPE(MPI_Request), INTENT(OUT) :: request TYPE(MPI_Request), INTENT(OUT) :: request
@ -3704,7 +3701,7 @@ subroutine PMPI_File_iread_all_f08(fh,buf,count,datatype,request,ierror)
!$PRAGMA IGNORE_TKR buf !$PRAGMA IGNORE_TKR buf
!DIR$ IGNORE_TKR buf !DIR$ IGNORE_TKR buf
!IBM* IGNORE_TKR buf !IBM* IGNORE_TKR buf
OMPI_FORTRAN_IGNORE_TKR_TYPE OMPI_ASYNCHRONOUS :: buf OMPI_FORTRAN_IGNORE_TKR_TYPE :: buf
INTEGER, INTENT(IN) :: count INTEGER, INTENT(IN) :: count
TYPE(MPI_Datatype), INTENT(IN) :: datatype TYPE(MPI_Datatype), INTENT(IN) :: datatype
TYPE(MPI_Request), INTENT(OUT) :: request TYPE(MPI_Request), INTENT(OUT) :: request
@ -3723,7 +3720,7 @@ subroutine PMPI_File_iread_at_all_f08(fh,offset,buf,count,datatype,request,ierro
!$PRAGMA IGNORE_TKR buf !$PRAGMA IGNORE_TKR buf
!DIR$ IGNORE_TKR buf !DIR$ IGNORE_TKR buf
!IBM* IGNORE_TKR buf !IBM* IGNORE_TKR buf
OMPI_FORTRAN_IGNORE_TKR_TYPE OMPI_ASYNCHRONOUS :: buf OMPI_FORTRAN_IGNORE_TKR_TYPE :: buf
INTEGER, INTENT(IN) :: count INTEGER, INTENT(IN) :: count
TYPE(MPI_Datatype), INTENT(IN) :: datatype TYPE(MPI_Datatype), INTENT(IN) :: datatype
TYPE(MPI_Request), INTENT(OUT) :: request TYPE(MPI_Request), INTENT(OUT) :: request
@ -3741,7 +3738,7 @@ subroutine PMPI_File_iread_shared_f08(fh,buf,count,datatype,request,ierror)
!$PRAGMA IGNORE_TKR buf !$PRAGMA IGNORE_TKR buf
!DIR$ IGNORE_TKR buf !DIR$ IGNORE_TKR buf
!IBM* IGNORE_TKR buf !IBM* IGNORE_TKR buf
OMPI_FORTRAN_IGNORE_TKR_TYPE OMPI_ASYNCHRONOUS :: buf OMPI_FORTRAN_IGNORE_TKR_TYPE :: buf
INTEGER, INTENT(IN) :: count INTEGER, INTENT(IN) :: count
TYPE(MPI_Datatype), INTENT(IN) :: datatype TYPE(MPI_Datatype), INTENT(IN) :: datatype
TYPE(MPI_Request), INTENT(OUT) :: request TYPE(MPI_Request), INTENT(OUT) :: request
@ -3759,7 +3756,7 @@ subroutine PMPI_File_iwrite_f08(fh,buf,count,datatype,request,ierror)
!$PRAGMA IGNORE_TKR buf !$PRAGMA IGNORE_TKR buf
!DIR$ IGNORE_TKR buf !DIR$ IGNORE_TKR buf
!IBM* IGNORE_TKR buf !IBM* IGNORE_TKR buf
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) OMPI_ASYNCHRONOUS :: buf OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: buf
INTEGER, INTENT(IN) :: count INTEGER, INTENT(IN) :: count
TYPE(MPI_Datatype), INTENT(IN) :: datatype TYPE(MPI_Datatype), INTENT(IN) :: datatype
TYPE(MPI_Request), INTENT(OUT) :: request TYPE(MPI_Request), INTENT(OUT) :: request
@ -3778,7 +3775,7 @@ subroutine PMPI_File_iwrite_at_f08(fh,offset,buf,count,datatype,request,ierror)
!$PRAGMA IGNORE_TKR buf !$PRAGMA IGNORE_TKR buf
!DIR$ IGNORE_TKR buf !DIR$ IGNORE_TKR buf
!IBM* IGNORE_TKR buf !IBM* IGNORE_TKR buf
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) OMPI_ASYNCHRONOUS :: buf OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: buf
INTEGER, INTENT(IN) :: count INTEGER, INTENT(IN) :: count
TYPE(MPI_Datatype), INTENT(IN) :: datatype TYPE(MPI_Datatype), INTENT(IN) :: datatype
TYPE(MPI_Request), INTENT(OUT) :: request TYPE(MPI_Request), INTENT(OUT) :: request
@ -3796,7 +3793,7 @@ subroutine PMPI_File_iwrite_all_f08(fh,buf,count,datatype,request,ierror)
!$PRAGMA IGNORE_TKR buf !$PRAGMA IGNORE_TKR buf
!DIR$ IGNORE_TKR buf !DIR$ IGNORE_TKR buf
!IBM* IGNORE_TKR buf !IBM* IGNORE_TKR buf
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) OMPI_ASYNCHRONOUS :: buf OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: buf
INTEGER, INTENT(IN) :: count INTEGER, INTENT(IN) :: count
TYPE(MPI_Datatype), INTENT(IN) :: datatype TYPE(MPI_Datatype), INTENT(IN) :: datatype
TYPE(MPI_Request), INTENT(OUT) :: request TYPE(MPI_Request), INTENT(OUT) :: request
@ -3815,7 +3812,7 @@ subroutine PMPI_File_iwrite_at_all_f08(fh,offset,buf,count,datatype,request,ierr
!$PRAGMA IGNORE_TKR buf !$PRAGMA IGNORE_TKR buf
!DIR$ IGNORE_TKR buf !DIR$ IGNORE_TKR buf
!IBM* IGNORE_TKR buf !IBM* IGNORE_TKR buf
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) OMPI_ASYNCHRONOUS :: buf OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: buf
INTEGER, INTENT(IN) :: count INTEGER, INTENT(IN) :: count
TYPE(MPI_Datatype), INTENT(IN) :: datatype TYPE(MPI_Datatype), INTENT(IN) :: datatype
TYPE(MPI_Request), INTENT(OUT) :: request TYPE(MPI_Request), INTENT(OUT) :: request
@ -3832,7 +3829,7 @@ subroutine PMPI_File_iwrite_shared_f08(fh,buf,count,datatype,request,ierror)
!$PRAGMA IGNORE_TKR buf !$PRAGMA IGNORE_TKR buf
!DIR$ IGNORE_TKR buf !DIR$ IGNORE_TKR buf
!IBM* IGNORE_TKR buf !IBM* IGNORE_TKR buf
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) OMPI_ASYNCHRONOUS :: buf OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: buf
TYPE(MPI_File), INTENT(IN) :: fh TYPE(MPI_File), INTENT(IN) :: fh
INTEGER, INTENT(IN) :: count INTEGER, INTENT(IN) :: count
TYPE(MPI_Datatype), INTENT(IN) :: datatype TYPE(MPI_Datatype), INTENT(IN) :: datatype
@ -3910,7 +3907,7 @@ subroutine PMPI_File_read_all_begin_f08(fh,buf,count,datatype,ierror)
!$PRAGMA IGNORE_TKR buf !$PRAGMA IGNORE_TKR buf
!DIR$ IGNORE_TKR buf !DIR$ IGNORE_TKR buf
!IBM* IGNORE_TKR buf !IBM* IGNORE_TKR buf
OMPI_FORTRAN_IGNORE_TKR_TYPE OMPI_ASYNCHRONOUS :: buf OMPI_FORTRAN_IGNORE_TKR_TYPE :: buf
INTEGER, INTENT(IN) :: count INTEGER, INTENT(IN) :: count
TYPE(MPI_Datatype), INTENT(IN) :: datatype TYPE(MPI_Datatype), INTENT(IN) :: datatype
INTEGER, OPTIONAL, INTENT(OUT) :: ierror INTEGER, OPTIONAL, INTENT(OUT) :: ierror
@ -3927,7 +3924,7 @@ subroutine PMPI_File_read_all_end_f08(fh,buf,status,ierror)
!$PRAGMA IGNORE_TKR buf !$PRAGMA IGNORE_TKR buf
!DIR$ IGNORE_TKR buf !DIR$ IGNORE_TKR buf
!IBM* IGNORE_TKR buf !IBM* IGNORE_TKR buf
OMPI_FORTRAN_IGNORE_TKR_TYPE OMPI_ASYNCHRONOUS :: buf OMPI_FORTRAN_IGNORE_TKR_TYPE :: buf
TYPE(MPI_Status) :: status TYPE(MPI_Status) :: status
INTEGER, OPTIONAL, INTENT(OUT) :: ierror INTEGER, OPTIONAL, INTENT(OUT) :: ierror
end subroutine PMPI_File_read_all_end_f08 end subroutine PMPI_File_read_all_end_f08
@ -3982,7 +3979,7 @@ subroutine PMPI_File_read_at_all_begin_f08(fh,offset,buf,count,datatype,ierror)
!$PRAGMA IGNORE_TKR buf !$PRAGMA IGNORE_TKR buf
!DIR$ IGNORE_TKR buf !DIR$ IGNORE_TKR buf
!IBM* IGNORE_TKR buf !IBM* IGNORE_TKR buf
OMPI_FORTRAN_IGNORE_TKR_TYPE OMPI_ASYNCHRONOUS :: buf OMPI_FORTRAN_IGNORE_TKR_TYPE :: buf
INTEGER, INTENT(IN) :: count INTEGER, INTENT(IN) :: count
TYPE(MPI_Datatype), INTENT(IN) :: datatype TYPE(MPI_Datatype), INTENT(IN) :: datatype
INTEGER, OPTIONAL, INTENT(OUT) :: ierror INTEGER, OPTIONAL, INTENT(OUT) :: ierror
@ -3999,7 +3996,7 @@ subroutine PMPI_File_read_at_all_end_f08(fh,buf,status,ierror)
!$PRAGMA IGNORE_TKR buf !$PRAGMA IGNORE_TKR buf
!DIR$ IGNORE_TKR buf !DIR$ IGNORE_TKR buf
!IBM* IGNORE_TKR buf !IBM* IGNORE_TKR buf
OMPI_FORTRAN_IGNORE_TKR_TYPE OMPI_ASYNCHRONOUS :: buf OMPI_FORTRAN_IGNORE_TKR_TYPE :: buf
TYPE(MPI_Status) :: status TYPE(MPI_Status) :: status
INTEGER, OPTIONAL, INTENT(OUT) :: ierror INTEGER, OPTIONAL, INTENT(OUT) :: ierror
end subroutine PMPI_File_read_at_all_end_f08 end subroutine PMPI_File_read_at_all_end_f08
@ -4033,7 +4030,7 @@ subroutine PMPI_File_read_ordered_begin_f08(fh,buf,count,datatype,ierror)
!$PRAGMA IGNORE_TKR buf !$PRAGMA IGNORE_TKR buf
!DIR$ IGNORE_TKR buf !DIR$ IGNORE_TKR buf
!IBM* IGNORE_TKR buf !IBM* IGNORE_TKR buf
OMPI_FORTRAN_IGNORE_TKR_TYPE OMPI_ASYNCHRONOUS :: buf OMPI_FORTRAN_IGNORE_TKR_TYPE :: buf
INTEGER, INTENT(IN) :: count INTEGER, INTENT(IN) :: count
TYPE(MPI_Datatype), INTENT(IN) :: datatype TYPE(MPI_Datatype), INTENT(IN) :: datatype
INTEGER, OPTIONAL, INTENT(OUT) :: ierror INTEGER, OPTIONAL, INTENT(OUT) :: ierror
@ -4050,7 +4047,7 @@ subroutine PMPI_File_read_ordered_end_f08(fh,buf,status,ierror)
!$PRAGMA IGNORE_TKR buf !$PRAGMA IGNORE_TKR buf
!DIR$ IGNORE_TKR buf !DIR$ IGNORE_TKR buf
!IBM* IGNORE_TKR buf !IBM* IGNORE_TKR buf
OMPI_FORTRAN_IGNORE_TKR_TYPE OMPI_ASYNCHRONOUS :: buf OMPI_FORTRAN_IGNORE_TKR_TYPE :: buf
TYPE(MPI_Status) :: status TYPE(MPI_Status) :: status
INTEGER, OPTIONAL, INTENT(OUT) :: ierror INTEGER, OPTIONAL, INTENT(OUT) :: ierror
end subroutine PMPI_File_read_ordered_end_f08 end subroutine PMPI_File_read_ordered_end_f08
@ -4195,7 +4192,7 @@ subroutine PMPI_File_write_all_begin_f08(fh,buf,count,datatype,ierror)
!$PRAGMA IGNORE_TKR buf !$PRAGMA IGNORE_TKR buf
!DIR$ IGNORE_TKR buf !DIR$ IGNORE_TKR buf
!IBM* IGNORE_TKR buf !IBM* IGNORE_TKR buf
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) OMPI_ASYNCHRONOUS :: buf OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: buf
INTEGER, INTENT(IN) :: count INTEGER, INTENT(IN) :: count
TYPE(MPI_Datatype), INTENT(IN) :: datatype TYPE(MPI_Datatype), INTENT(IN) :: datatype
INTEGER, OPTIONAL, INTENT(OUT) :: ierror INTEGER, OPTIONAL, INTENT(OUT) :: ierror
@ -4212,7 +4209,7 @@ subroutine PMPI_File_write_all_end_f08(fh,buf,status,ierror)
!$PRAGMA IGNORE_TKR buf !$PRAGMA IGNORE_TKR buf
!DIR$ IGNORE_TKR buf !DIR$ IGNORE_TKR buf
!IBM* IGNORE_TKR buf !IBM* IGNORE_TKR buf
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) OMPI_ASYNCHRONOUS :: buf OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: buf
TYPE(MPI_Status) :: status TYPE(MPI_Status) :: status
INTEGER, OPTIONAL, INTENT(OUT) :: ierror INTEGER, OPTIONAL, INTENT(OUT) :: ierror
end subroutine PMPI_File_write_all_end_f08 end subroutine PMPI_File_write_all_end_f08
@ -4267,7 +4264,7 @@ subroutine PMPI_File_write_at_all_begin_f08(fh,offset,buf,count,datatype,ierror)
!$PRAGMA IGNORE_TKR buf !$PRAGMA IGNORE_TKR buf
!DIR$ IGNORE_TKR buf !DIR$ IGNORE_TKR buf
!IBM* IGNORE_TKR buf !IBM* IGNORE_TKR buf
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) OMPI_ASYNCHRONOUS :: buf OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: buf
INTEGER, INTENT(IN) :: count INTEGER, INTENT(IN) :: count
TYPE(MPI_Datatype), INTENT(IN) :: datatype TYPE(MPI_Datatype), INTENT(IN) :: datatype
INTEGER, OPTIONAL, INTENT(OUT) :: ierror INTEGER, OPTIONAL, INTENT(OUT) :: ierror
@ -4284,7 +4281,7 @@ subroutine PMPI_File_write_at_all_end_f08(fh,buf,status,ierror)
!$PRAGMA IGNORE_TKR buf !$PRAGMA IGNORE_TKR buf
!DIR$ IGNORE_TKR buf !DIR$ IGNORE_TKR buf
!IBM* IGNORE_TKR buf !IBM* IGNORE_TKR buf
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) OMPI_ASYNCHRONOUS :: buf OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: buf
TYPE(MPI_Status) :: status TYPE(MPI_Status) :: status
INTEGER, OPTIONAL, INTENT(OUT) :: ierror INTEGER, OPTIONAL, INTENT(OUT) :: ierror
end subroutine PMPI_File_write_at_all_end_f08 end subroutine PMPI_File_write_at_all_end_f08
@ -4318,7 +4315,7 @@ subroutine PMPI_File_write_ordered_begin_f08(fh,buf,count,datatype,ierror)
!$PRAGMA IGNORE_TKR buf !$PRAGMA IGNORE_TKR buf
!DIR$ IGNORE_TKR buf !DIR$ IGNORE_TKR buf
!IBM* IGNORE_TKR buf !IBM* IGNORE_TKR buf
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) OMPI_ASYNCHRONOUS :: buf OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: buf
INTEGER, INTENT(IN) :: count INTEGER, INTENT(IN) :: count
TYPE(MPI_Datatype), INTENT(IN) :: datatype TYPE(MPI_Datatype), INTENT(IN) :: datatype
INTEGER, OPTIONAL, INTENT(OUT) :: ierror INTEGER, OPTIONAL, INTENT(OUT) :: ierror
@ -4335,7 +4332,7 @@ subroutine PMPI_File_write_ordered_end_f08(fh,buf,status,ierror)
!$PRAGMA IGNORE_TKR buf !$PRAGMA IGNORE_TKR buf
!DIR$ IGNORE_TKR buf !DIR$ IGNORE_TKR buf
!IBM* IGNORE_TKR buf !IBM* IGNORE_TKR buf
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) OMPI_ASYNCHRONOUS :: buf OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: buf
TYPE(MPI_Status) :: status TYPE(MPI_Status) :: status
INTEGER, OPTIONAL, INTENT(OUT) :: ierror INTEGER, OPTIONAL, INTENT(OUT) :: ierror
end subroutine PMPI_File_write_ordered_end_f08 end subroutine PMPI_File_write_ordered_end_f08
@ -4465,7 +4462,7 @@ subroutine PMPI_F_sync_reg_f08(buf)
!$PRAGMA IGNORE_TKR buf !$PRAGMA IGNORE_TKR buf
!DIR$ IGNORE_TKR buf !DIR$ IGNORE_TKR buf
!IBM* IGNORE_TKR buf !IBM* IGNORE_TKR buf
OMPI_FORTRAN_IGNORE_TKR_TYPE OMPI_ASYNCHRONOUS :: buf OMPI_FORTRAN_IGNORE_TKR_TYPE :: buf
end subroutine PMPI_F_sync_reg_f08 end subroutine PMPI_F_sync_reg_f08
end interface PMPI_F_sync_reg end interface PMPI_F_sync_reg
@ -4513,7 +4510,7 @@ subroutine PMPI_Imrecv_f08(buf,count,datatype,message,request,ierror)
!$PRAGMA IGNORE_TKR buf !$PRAGMA IGNORE_TKR buf
!DIR$ IGNORE_TKR buf !DIR$ IGNORE_TKR buf
!IBM* IGNORE_TKR buf !IBM* IGNORE_TKR buf
OMPI_FORTRAN_IGNORE_TKR_TYPE OMPI_ASYNCHRONOUS :: buf OMPI_FORTRAN_IGNORE_TKR_TYPE :: buf
INTEGER, INTENT(IN) :: count INTEGER, INTENT(IN) :: count
TYPE(MPI_Datatype), INTENT(IN) :: datatype TYPE(MPI_Datatype), INTENT(IN) :: datatype
TYPE(MPI_Message), INTENT(INOUT) :: message TYPE(MPI_Message), INTENT(INOUT) :: message