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 файл Показать все файлы Свернуть все файлы

3
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
@ -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)

101
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
@ -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
@ -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