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

Add missing f08 binding declarations for MPI_Count functions

Просмотр исходного кода 
This commit was SVN r28936.
Этот коммит содержится в:
Nathan Hjelm 2013-07-23 19:00:06 +00:00
родитель a3995f73d3
Коммит 90f5bd9424
1 изменённых файлов: 47 добавлений и 0 удалений
Показать статистику Скачать Patch файл Скачать Diff файл Показать все файлы Свернуть все файлы

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

@ -410,6 +410,16 @@ subroutine ompi_get_elements_f(status,datatype,count,ierror) &
INTEGER, INTENT(OUT) :: ierror
end subroutine ompi_get_elements_f
subroutine ompi_get_elements_x_f(status,datatype,count,ierror) &
BIND(C, name="ompi_get_elements_x_f")
use :: mpi_f08_types, only : MPI_Status, MPI_COUNT_KIND
implicit none
TYPE(MPI_Status), INTENT(IN) :: status
INTEGER, INTENT(IN) :: datatype
INTEGER(MPI_COUNT_KIND), INTENT(OUT) :: count
INTEGER, INTENT(OUT) :: ierror
end subroutine ompi_get_elements_x_f
subroutine ompi_pack_f(inbuf,incount,datatype,outbuf,outsize, &
position,comm,ierror) &
BIND(C, name="ompi_pack_f")
@ -618,6 +628,15 @@ subroutine ompi_type_get_extent_f(datatype,lb,extent,ierror) &
INTEGER, INTENT(OUT) :: ierror
end subroutine ompi_type_get_extent_f
subroutine ompi_type_get_extent_x_f(datatype,lb,extent,ierror) &
BIND(C, name="ompi_type_get_extent_x_f")
use :: mpi_f08_types, only : MPI_COUNT_KIND
implicit none
INTEGER, INTENT(IN) :: datatype
INTEGER(MPI_COUNT_KIND), INTENT(OUT) :: lb, extent
INTEGER, INTENT(OUT) :: ierror
end subroutine ompi_type_get_extent_x_f
subroutine ompi_type_get_true_extent_f(datatype,true_lb,true_extent,ierror) &
BIND(C, name="ompi_type_get_true_extent_f")
use :: mpi_f08_types, only : MPI_ADDRESS_KIND
@ -627,6 +646,15 @@ subroutine ompi_type_get_true_extent_f(datatype,true_lb,true_extent,ierror) &
INTEGER, INTENT(OUT) :: ierror
end subroutine ompi_type_get_true_extent_f
subroutine ompi_type_get_true_extent_x_f(datatype,true_lb,true_extent,ierror) &
BIND(C, name="ompi_type_get_true_extent_x_f")
use :: mpi_f08_types, only : MPI_COUNT_KIND
implicit none
INTEGER, INTENT(IN) :: datatype
INTEGER(MPI_COUNT_KIND), INTENT(OUT) :: true_lb, true_extent
INTEGER, INTENT(OUT) :: ierror
end subroutine ompi_type_get_true_extent_x_f
subroutine ompi_type_indexed_f(count,array_of_blocklengths, &
array_of_displacements,oldtype,newtype,ierror) &
BIND(C, name="ompi_type_indexed_f")
@ -646,6 +674,15 @@ subroutine ompi_type_size_f(datatype,size,ierror) &
INTEGER, INTENT(OUT) :: ierror
end subroutine ompi_type_size_f
subroutine ompi_type_size_x_f(datatype,size,ierror) &
BIND(C, name="ompi_type_size_x_f")
use :: mpi_f08_types, only : MPI_COUNT_KIND
implicit none
INTEGER, INTENT(IN) :: datatype
INTEGER(MPI_COUNT_KIND), INTENT(OUT) :: size
INTEGER, INTENT(OUT) :: ierror
end subroutine ompi_type_size_x_f
subroutine ompi_type_vector_f(count,blocklength,stride,oldtype,newtype,ierror) &
BIND(C, name="ompi_type_vector_f")
implicit none
@ -2411,6 +2448,16 @@ subroutine ompi_status_set_elements_f(status,datatype,count,ierror) &
INTEGER, INTENT(OUT) :: ierror
end subroutine ompi_status_set_elements_f
subroutine ompi_status_set_elements_x_f(status,datatype,count,ierror) &
BIND(C, name="ompi_status_set_elements_x_f")
use :: mpi_f08_types, only : MPI_Status, MPI_COUNT_KIND
implicit none
TYPE(MPI_Status), INTENT(INOUT) :: status
INTEGER, INTENT(IN) :: datatype
INTEGER(MPI_COUNT_KIND), INTENT(IN) :: count
INTEGER, INTENT(OUT) :: ierror
end subroutine ompi_status_set_elements_x_f
#if OMPI_PROVIDE_MPI_FILE_INTERFACE
subroutine ompi_file_close_f(fh,ierror) &