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

make the f08 interface actually compile.

Просмотр исходного кода
Этот коммит содержится в:
Edgar Gabriel 2015-07-09 10:54:44 -05:00
родитель 601e5efca8
Коммит 95c144c4b6
4 изменённых файлов: 244 добавлений и 0 удалений
Показать статистику Скачать Patch файл Скачать Diff файл Показать все файлы Свернуть все файлы

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

@ -2750,6 +2750,30 @@ subroutine ompi_file_iread_at_f(fh,offset,buf,count,datatype,request,ierror) &
INTEGER, INTENT(OUT) :: ierror INTEGER, INTENT(OUT) :: ierror
end subroutine ompi_file_iread_at_f end subroutine ompi_file_iread_at_f
subroutine ompi_file_iread_all_f(fh,buf,count,datatype,request,ierror) &
BIND(C, name="ompi_file_iread_all_f")
implicit none
INTEGER, INTENT(IN) :: fh
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: buf
INTEGER, INTENT(IN) :: count
INTEGER, INTENT(IN) :: datatype
INTEGER, INTENT(OUT) :: request
INTEGER, INTENT(OUT) :: ierror
end subroutine ompi_file_iread_all_f
subroutine ompi_file_iread_at_all_f(fh,offset,buf,count,datatype,request,ierror) &
BIND(C, name="ompi_file_iread_at_all_f")
use :: mpi_f08_types, only : MPI_OFFSET_KIND
implicit none
INTEGER, INTENT(IN) :: fh
INTEGER(MPI_OFFSET_KIND), INTENT(IN) :: offset
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: buf
INTEGER, INTENT(IN) :: count
INTEGER, INTENT(IN) :: datatype
INTEGER, INTENT(OUT) :: request
INTEGER, INTENT(OUT) :: ierror
end subroutine ompi_file_iread_at_all_f
subroutine ompi_file_iread_shared_f(fh,buf,count,datatype,request,ierror) & subroutine ompi_file_iread_shared_f(fh,buf,count,datatype,request,ierror) &
BIND(C, name="ompi_file_iread_shared_f") BIND(C, name="ompi_file_iread_shared_f")
implicit none implicit none
@ -2785,6 +2809,30 @@ subroutine ompi_file_iwrite_at_f(fh,offset,buf,count,datatype,request,ierror) &
INTEGER, INTENT(OUT) :: ierror INTEGER, INTENT(OUT) :: ierror
end subroutine ompi_file_iwrite_at_f end subroutine ompi_file_iwrite_at_f
subroutine ompi_file_iwrite_all_f(fh,buf,count,datatype,request,ierror) &
BIND(C, name="ompi_file_iwrite_all_f")
implicit none
INTEGER, INTENT(IN) :: fh
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: buf
INTEGER, INTENT(IN) :: count
INTEGER, INTENT(IN) :: datatype
INTEGER, INTENT(OUT) :: request
INTEGER, INTENT(OUT) :: ierror
end subroutine ompi_file_iwrite_all_f
subroutine ompi_file_iwrite_at_all_f(fh,offset,buf,count,datatype,request,ierror) &
BIND(C, name="ompi_file_iwrite_at_all_f")
use :: mpi_f08_types, only : MPI_OFFSET_KIND
implicit none
INTEGER, INTENT(IN) :: fh
INTEGER(MPI_OFFSET_KIND), INTENT(IN) :: offset
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: buf
INTEGER, INTENT(IN) :: count
INTEGER, INTENT(IN) :: datatype
INTEGER, INTENT(OUT) :: request
INTEGER, INTENT(OUT) :: ierror
end subroutine ompi_file_iwrite_at_all_f
subroutine ompi_file_iwrite_shared_f(fh,buf,count,datatype,request,ierror) & subroutine ompi_file_iwrite_shared_f(fh,buf,count,datatype,request,ierror) &
BIND(C, name="ompi_file_iwrite_shared_f") BIND(C, name="ompi_file_iwrite_shared_f")
implicit none implicit none

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

@ -3697,6 +3697,43 @@ subroutine MPI_File_iread_at_f08(fh,offset,buf,count,datatype,request,ierror)
end subroutine MPI_File_iread_at_f08 end subroutine MPI_File_iread_at_f08
end interface MPI_File_iread_at end interface MPI_File_iread_at
interface MPI_File_iread_all
subroutine MPI_File_iread_all_f08(fh,buf,count,datatype,request,ierror)
use :: mpi_f08_types, only : MPI_File, MPI_Datatype, MPI_Request
implicit none
TYPE(MPI_File), INTENT(IN) :: fh
!DEC$ ATTRIBUTES NO_ARG_CHECK :: buf
!GCC$ ATTRIBUTES NO_ARG_CHECK :: buf
!$PRAGMA IGNORE_TKR buf
!DIR$ IGNORE_TKR buf
!IBM* IGNORE_TKR buf
OMPI_FORTRAN_IGNORE_TKR_TYPE :: buf
INTEGER, INTENT(IN) :: count
TYPE(MPI_Datatype), INTENT(IN) :: datatype
TYPE(MPI_Request), INTENT(OUT) :: request
INTEGER, OPTIONAL, INTENT(OUT) :: ierror
end subroutine MPI_File_iread_all_f08
end interface MPI_File_iread_all
interface MPI_File_iread_at_all
subroutine MPI_File_iread_at_all_f08(fh,offset,buf,count,datatype,request,ierror)
use :: mpi_f08_types, only : MPI_File, MPI_Datatype, MPI_Request, MPI_OFFSET_KIND
implicit none
TYPE(MPI_File), INTENT(IN) :: fh
INTEGER(MPI_OFFSET_KIND), INTENT(IN) :: offset
!DEC$ ATTRIBUTES NO_ARG_CHECK :: buf
!GCC$ ATTRIBUTES NO_ARG_CHECK :: buf
!$PRAGMA IGNORE_TKR buf
!DIR$ IGNORE_TKR buf
!IBM* IGNORE_TKR buf
OMPI_FORTRAN_IGNORE_TKR_TYPE :: buf
INTEGER, INTENT(IN) :: count
TYPE(MPI_Datatype), INTENT(IN) :: datatype
TYPE(MPI_Request), INTENT(OUT) :: request
INTEGER, OPTIONAL, INTENT(OUT) :: ierror
end subroutine MPI_File_iread_at_all_f08
end interface MPI_File_iread_at_all
interface MPI_File_iread_shared interface MPI_File_iread_shared
subroutine MPI_File_iread_shared_f08(fh,buf,count,datatype,request,ierror) subroutine MPI_File_iread_shared_f08(fh,buf,count,datatype,request,ierror)
use :: mpi_f08_types, only : MPI_File, MPI_Datatype, MPI_Request use :: mpi_f08_types, only : MPI_File, MPI_Datatype, MPI_Request
@ -3752,6 +3789,43 @@ subroutine MPI_File_iwrite_at_f08(fh,offset,buf,count,datatype,request,ierror)
end subroutine MPI_File_iwrite_at_f08 end subroutine MPI_File_iwrite_at_f08
end interface MPI_File_iwrite_at end interface MPI_File_iwrite_at
interface MPI_File_iwrite_all
subroutine MPI_File_iwrite_all_f08(fh,buf,count,datatype,request,ierror)
use :: mpi_f08_types, only : MPI_File, MPI_Datatype, MPI_Request
implicit none
TYPE(MPI_File), INTENT(IN) :: fh
!DEC$ ATTRIBUTES NO_ARG_CHECK :: buf
!GCC$ ATTRIBUTES NO_ARG_CHECK :: buf
!$PRAGMA IGNORE_TKR buf
!DIR$ IGNORE_TKR buf
!IBM* IGNORE_TKR buf
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: buf
INTEGER, INTENT(IN) :: count
TYPE(MPI_Datatype), INTENT(IN) :: datatype
TYPE(MPI_Request), INTENT(OUT) :: request
INTEGER, OPTIONAL, INTENT(OUT) :: ierror
end subroutine MPI_File_iwrite_all_f08
end interface MPI_File_iwrite_all
interface MPI_File_iwrite_at_all
subroutine MPI_File_iwrite_at_all_f08(fh,offset,buf,count,datatype,request,ierror)
use :: mpi_f08_types, only : MPI_File, MPI_Datatype, MPI_Request, MPI_OFFSET_KIND
implicit none
TYPE(MPI_File), INTENT(IN) :: fh
INTEGER(MPI_OFFSET_KIND), INTENT(IN) :: offset
!DEC$ ATTRIBUTES NO_ARG_CHECK :: buf
!GCC$ ATTRIBUTES NO_ARG_CHECK :: buf
!$PRAGMA IGNORE_TKR buf
!DIR$ IGNORE_TKR buf
!IBM* IGNORE_TKR buf
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: buf
INTEGER, INTENT(IN) :: count
TYPE(MPI_Datatype), INTENT(IN) :: datatype
TYPE(MPI_Request), INTENT(OUT) :: request
INTEGER, OPTIONAL, INTENT(OUT) :: ierror
end subroutine MPI_File_iwrite_at_all_f08
end interface MPI_File_iwrite_at_all
interface MPI_File_iwrite_shared interface MPI_File_iwrite_shared
subroutine MPI_File_iwrite_shared_f08(fh,buf,count,datatype,request,ierror) subroutine MPI_File_iwrite_shared_f08(fh,buf,count,datatype,request,ierror)
use :: mpi_f08_types, only : MPI_File, MPI_Datatype, MPI_Request use :: mpi_f08_types, only : MPI_File, MPI_Datatype, MPI_Request

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

@ -2537,6 +2537,30 @@ subroutine pompi_file_iread_at_f(fh,offset,buf,count,datatype,request,ierror) &
INTEGER, INTENT(OUT) :: ierror INTEGER, INTENT(OUT) :: ierror
end subroutine pompi_file_iread_at_f end subroutine pompi_file_iread_at_f
subroutine pompi_file_iread_all_f(fh,buf,count,datatype,request,ierror) &
BIND(C, name="pompi_file_iread_all_f")
implicit none
INTEGER, INTENT(IN) :: fh
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: buf
INTEGER, INTENT(IN) :: count
INTEGER, INTENT(IN) :: datatype
INTEGER, INTENT(OUT) :: request
INTEGER, INTENT(OUT) :: ierror
end subroutine pompi_file_iread_all_f
subroutine pompi_file_iread_at_all_f(fh,offset,buf,count,datatype,request,ierror) &
BIND(C, name="pompi_file_iread_at_all_f")
use :: mpi_f08_types, only : MPI_OFFSET_KIND
implicit none
INTEGER, INTENT(IN) :: fh
INTEGER(MPI_OFFSET_KIND), INTENT(IN) :: offset
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: buf
INTEGER, INTENT(IN) :: count
INTEGER, INTENT(IN) :: datatype
INTEGER, INTENT(OUT) :: request
INTEGER, INTENT(OUT) :: ierror
end subroutine pompi_file_iread_at_all_f
subroutine pompi_file_iread_shared_f(fh,buf,count,datatype,request,ierror) & subroutine pompi_file_iread_shared_f(fh,buf,count,datatype,request,ierror) &
BIND(C, name="pompi_file_iread_shared_f") BIND(C, name="pompi_file_iread_shared_f")
implicit none implicit none
@ -2572,6 +2596,30 @@ subroutine pompi_file_iwrite_at_f(fh,offset,buf,count,datatype,request,ierror) &
INTEGER, INTENT(OUT) :: ierror INTEGER, INTENT(OUT) :: ierror
end subroutine pompi_file_iwrite_at_f end subroutine pompi_file_iwrite_at_f
subroutine pompi_file_iwrite_all_f(fh,buf,count,datatype,request,ierror) &
BIND(C, name="pompi_file_iwrite_all_f")
implicit none
INTEGER, INTENT(IN) :: fh
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: buf
INTEGER, INTENT(IN) :: count
INTEGER, INTENT(IN) :: datatype
INTEGER, INTENT(OUT) :: request
INTEGER, INTENT(OUT) :: ierror
end subroutine pompi_file_iwrite_all_f
subroutine pompi_file_iwrite_at_all_f(fh,offset,buf,count,datatype,request,ierror) &
BIND(C, name="pompi_file_iwrite_at_all_f")
use :: mpi_f08_types, only : MPI_OFFSET_KIND
implicit none
INTEGER, INTENT(IN) :: fh
INTEGER(MPI_OFFSET_KIND), INTENT(IN) :: offset
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: buf
INTEGER, INTENT(IN) :: count
INTEGER, INTENT(IN) :: datatype
INTEGER, INTENT(OUT) :: request
INTEGER, INTENT(OUT) :: ierror
end subroutine pompi_file_iwrite_at_all_f
subroutine pompi_file_iwrite_shared_f(fh,buf,count,datatype,request,ierror) & subroutine pompi_file_iwrite_shared_f(fh,buf,count,datatype,request,ierror) &
BIND(C, name="pompi_file_iwrite_shared_f") BIND(C, name="pompi_file_iwrite_shared_f")
implicit none implicit none

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

@ -3594,6 +3594,43 @@ subroutine PMPI_File_iread_at_f08(fh,offset,buf,count,datatype,request,ierror)
end subroutine PMPI_File_iread_at_f08 end subroutine PMPI_File_iread_at_f08
end interface PMPI_File_iread_at end interface PMPI_File_iread_at
interface PMPI_File_iread_all
subroutine PMPI_File_iread_all_f08(fh,buf,count,datatype,request,ierror)
use :: mpi_f08_types, only : MPI_File, MPI_Datatype, MPI_Request
implicit none
TYPE(MPI_File), INTENT(IN) :: fh
!DEC$ ATTRIBUTES NO_ARG_CHECK :: buf
!GCC$ ATTRIBUTES NO_ARG_CHECK :: buf
!$PRAGMA IGNORE_TKR buf
!DIR$ IGNORE_TKR buf
!IBM* IGNORE_TKR buf
OMPI_FORTRAN_IGNORE_TKR_TYPE OMPI_ASYNCHRONOUS :: buf
INTEGER, INTENT(IN) :: count
TYPE(MPI_Datatype), INTENT(IN) :: datatype
TYPE(MPI_Request), INTENT(OUT) :: request
INTEGER, OPTIONAL, INTENT(OUT) :: ierror
end subroutine PMPI_File_iread_all_f08
end interface PMPI_File_iread_all
interface PMPI_File_iread_at_all
subroutine PMPI_File_iread_at_all_f08(fh,offset,buf,count,datatype,request,ierror)
use :: mpi_f08_types, only : MPI_File, MPI_Datatype, MPI_Request, MPI_OFFSET_KIND
implicit none
TYPE(MPI_File), INTENT(IN) :: fh
INTEGER(MPI_OFFSET_KIND), INTENT(IN) :: offset
!DEC$ ATTRIBUTES NO_ARG_CHECK :: buf
!GCC$ ATTRIBUTES NO_ARG_CHECK :: buf
!$PRAGMA IGNORE_TKR buf
!DIR$ IGNORE_TKR buf
!IBM* IGNORE_TKR buf
OMPI_FORTRAN_IGNORE_TKR_TYPE OMPI_ASYNCHRONOUS :: buf
INTEGER, INTENT(IN) :: count
TYPE(MPI_Datatype), INTENT(IN) :: datatype
TYPE(MPI_Request), INTENT(OUT) :: request
INTEGER, OPTIONAL, INTENT(OUT) :: ierror
end subroutine PMPI_File_iread_at_all_f08
end interface PMPI_File_iread_at_all
interface PMPI_File_iread_shared interface PMPI_File_iread_shared
subroutine PMPI_File_iread_shared_f08(fh,buf,count,datatype,request,ierror) subroutine PMPI_File_iread_shared_f08(fh,buf,count,datatype,request,ierror)
use :: mpi_f08_types, only : MPI_File, MPI_Datatype, MPI_Request use :: mpi_f08_types, only : MPI_File, MPI_Datatype, MPI_Request
@ -3649,6 +3686,43 @@ subroutine PMPI_File_iwrite_at_f08(fh,offset,buf,count,datatype,request,ierror)
end subroutine PMPI_File_iwrite_at_f08 end subroutine PMPI_File_iwrite_at_f08
end interface PMPI_File_iwrite_at end interface PMPI_File_iwrite_at
interface PMPI_File_iwrite_all
subroutine PMPI_File_iwrite_all_f08(fh,buf,count,datatype,request,ierror)
use :: mpi_f08_types, only : MPI_File, MPI_Datatype, MPI_Request
implicit none
TYPE(MPI_File), INTENT(IN) :: fh
!DEC$ ATTRIBUTES NO_ARG_CHECK :: buf
!GCC$ ATTRIBUTES NO_ARG_CHECK :: buf
!$PRAGMA IGNORE_TKR buf
!DIR$ IGNORE_TKR buf
!IBM* IGNORE_TKR buf
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) OMPI_ASYNCHRONOUS :: buf
INTEGER, INTENT(IN) :: count
TYPE(MPI_Datatype), INTENT(IN) :: datatype
TYPE(MPI_Request), INTENT(OUT) :: request
INTEGER, OPTIONAL, INTENT(OUT) :: ierror
end subroutine PMPI_File_iwrite_all_f08
end interface PMPI_File_iwrite_all
interface PMPI_File_iwrite_at_all
subroutine PMPI_File_iwrite_at_all_f08(fh,offset,buf,count,datatype,request,ierror)
use :: mpi_f08_types, only : MPI_File, MPI_Datatype, MPI_Request, MPI_OFFSET_KIND
implicit none
TYPE(MPI_File), INTENT(IN) :: fh
INTEGER(MPI_OFFSET_KIND), INTENT(IN) :: offset
!DEC$ ATTRIBUTES NO_ARG_CHECK :: buf
!GCC$ ATTRIBUTES NO_ARG_CHECK :: buf
!$PRAGMA IGNORE_TKR buf
!DIR$ IGNORE_TKR buf
!IBM* IGNORE_TKR buf
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) OMPI_ASYNCHRONOUS :: buf
INTEGER, INTENT(IN) :: count
TYPE(MPI_Datatype), INTENT(IN) :: datatype
TYPE(MPI_Request), INTENT(OUT) :: request
INTEGER, OPTIONAL, INTENT(OUT) :: ierror
end subroutine PMPI_File_iwrite_at_all_f08
end interface PMPI_File_iwrite_at_all
interface PMPI_File_iwrite_shared interface PMPI_File_iwrite_shared
subroutine PMPI_File_iwrite_shared_f08(fh,buf,count,datatype,request,ierror) subroutine PMPI_File_iwrite_shared_f08(fh,buf,count,datatype,request,ierror)
use :: mpi_f08_types, only : MPI_File, MPI_Datatype, MPI_Request use :: mpi_f08_types, only : MPI_File, MPI_Datatype, MPI_Request