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

fortran: Remove ASYNCHRONOUS from mpi_f08 pmpi

Просмотр исходного кода 
It was removed from only `mpi` as a bug fix in db41d749c1a.

Signed-off-by: KAWASHIMA Takahiro <t-kawashima@jp.fujitsu.com>
Этот коммит содержится в:
KAWASHIMA Takahiro 2017-12-26 11:13:02 +09:00
родитель 39d598899b
Коммит 9240967b8f
1 изменённых файлов: 40 добавлений и 40 удалений
Показать статистику Скачать Patch файл Скачать Diff файл Показать все файлы Свернуть все файлы

80
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
@ -113,7 +113,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 +143,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 +161,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 +179,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 +197,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 +244,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 +299,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 +373,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 +408,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 +550,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
@ -3004,7 +3004,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 +3048,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 +3138,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 +3228,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 +3667,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 +3686,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 +3704,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 +3723,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 +3741,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 +3759,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 +3778,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 +3796,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 +3815,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 +3832,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 +3910,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 +3927,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 +3982,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 +3999,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 +4033,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 +4050,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 +4195,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 +4212,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 +4267,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 +4284,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 +4318,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 +4335,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 +4465,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 +4513,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