1
1

Propagate the use of MPI_COUNT_KIND everywhere.

This commit was SVN r28956.
Этот коммит содержится в:
Jeff Squyres 2013-07-25 22:41:48 +00:00
родитель a001f01f05
Коммит c59770651f
11 изменённых файлов: 19 добавлений и 19 удалений

Просмотреть файл

@ -585,7 +585,7 @@ end interface MPI_Get_elements
interface MPI_Get_elements_x
subroutine MPI_Get_elements_x_f08(status,datatype,count,ierror &
) OMPI_F08_INTERFACE_BIND_C("MPI_Get_elements_x_f08")
use :: mpi_f08_types, only : MPI_Status, MPI_Datatype
use :: mpi_f08_types, only : MPI_Status, MPI_Datatype, MPI_COUNT_KIND
implicit none
TYPE(MPI_Status), INTENT(IN) :: status
TYPE(MPI_Datatype), INTENT(IN) :: datatype
@ -858,7 +858,7 @@ end interface MPI_Type_get_extent
interface MPI_Type_get_extent_x
subroutine MPI_Type_get_extent_x_f08(datatype,lb,extent,ierror &
) OMPI_F08_INTERFACE_BIND_C("MPI_Type_get_extent_x_f08")
use :: mpi_f08_types, only : MPI_Datatype, MPI_ADDRESS_KIND
use :: mpi_f08_types, only : MPI_Datatype, MPI_ADDRESS_KIND, MPI_COUNT_KIND
implicit none
TYPE(MPI_Datatype), INTENT(IN) :: datatype
INTEGER(MPI_COUNT_KIND), INTENT(OUT) :: lb, extent
@ -880,7 +880,7 @@ end interface MPI_Type_get_true_extent
interface MPI_Type_get_true_extent_x
subroutine MPI_Type_get_true_extent_x_f08(datatype,true_lb,true_extent,ierror &
) OMPI_F08_INTERFACE_BIND_C("MPI_Type_get_true_extent_x_f08")
use :: mpi_f08_types, only : MPI_Datatype, MPI_ADDRESS_KIND
use :: mpi_f08_types, only : MPI_Datatype, MPI_ADDRESS_KIND, MPI_COUNT_KIND
implicit none
TYPE(MPI_Datatype), INTENT(IN) :: datatype
INTEGER(MPI_COUNT_KIND), INTENT(OUT) :: true_lb, true_extent
@ -916,7 +916,7 @@ end interface MPI_Type_size
interface MPI_Type_size_x
subroutine MPI_Type_size_x_f08(datatype,size,ierror &
) OMPI_F08_INTERFACE_BIND_C("MPI_Type_size_x_f08")
use :: mpi_f08_types, only : MPI_Datatype
use :: mpi_f08_types, only : MPI_Datatype, MPI_COUNT_KIND
implicit none
TYPE(MPI_Datatype), INTENT(IN) :: datatype
INTEGER(MPI_COUNT_KIND), INTENT(OUT) :: size
@ -3282,7 +3282,7 @@ end interface MPI_Status_set_elements
interface MPI_Status_set_elements_x
subroutine MPI_Status_set_elements_x_f08(status,datatype,count,ierror &
) OMPI_F08_INTERFACE_BIND_C("MPI_Status_set_elements_x_f08")
use :: mpi_f08_types, only : MPI_Status, MPI_Datatype
use :: mpi_f08_types, only : MPI_Status, MPI_Datatype, MPI_COUNT_KIND
implicit none
TYPE(MPI_Status), INTENT(INOUT) :: status
TYPE(MPI_Datatype), INTENT(IN) :: datatype

Просмотреть файл

@ -585,7 +585,7 @@ end interface PMPI_Get_elements
interface PMPI_Get_elements_x
subroutine PMPI_Get_elements_x_f08(status,datatype,count,ierror &
) OMPI_F08_INTERFACE_BIND_C("PMPI_Get_elements_x_f08")
use :: mpi_f08_types, only : MPI_Status, MPI_Datatype
use :: mpi_f08_types, only : MPI_Status, MPI_Datatype, MPI_COUNT_KIND
implicit none
TYPE(MPI_Status), INTENT(IN) :: status
TYPE(MPI_Datatype), INTENT(IN) :: datatype
@ -858,7 +858,7 @@ end interface PMPI_Type_get_extent
interface PMPI_Type_get_extent_x
subroutine PMPI_Type_get_extent_x_f08(datatype,lb,extent,ierror &
) OMPI_F08_INTERFACE_BIND_C("PMPI_Type_get_extent_x_f08")
use :: mpi_f08_types, only : MPI_Datatype, MPI_ADDRESS_KIND
use :: mpi_f08_types, only : MPI_Datatype, MPI_ADDRESS_KIND, MPI_COUNT_KIND
implicit none
TYPE(MPI_Datatype), INTENT(IN) :: datatype
INTEGER(MPI_COUNT_KIND), INTENT(OUT) :: lb, extent
@ -880,7 +880,7 @@ end interface PMPI_Type_get_true_extent
interface PMPI_Type_get_true_extent_x
subroutine PMPI_Type_get_true_extent_x_f08(datatype,true_lb,true_extent,ierror &
) OMPI_F08_INTERFACE_BIND_C("PMPI_Type_get_true_extent_x_f08")
use :: mpi_f08_types, only : MPI_Datatype, MPI_ADDRESS_KIND
use :: mpi_f08_types, only : MPI_Datatype, MPI_ADDRESS_KIND, MPI_COUNT_KIND
implicit none
TYPE(MPI_Datatype), INTENT(IN) :: datatype
INTEGER(MPI_COUNT_KIND), INTENT(OUT) :: true_lb, true_extent
@ -916,7 +916,7 @@ end interface PMPI_Type_size
interface PMPI_Type_size_x
subroutine PMPI_Type_size_x_f08(datatype,size,ierror &
) OMPI_F08_INTERFACE_BIND_C("PMPI_Type_size_x_f08")
use :: mpi_f08_types, only : MPI_Datatype
use :: mpi_f08_types, only : MPI_Datatype, MPI_COUNT_KIND
implicit none
TYPE(MPI_Datatype), INTENT(IN) :: datatype
INTEGER(MPI_COUNT_KIND), INTENT(OUT) :: size
@ -3282,7 +3282,7 @@ end interface PMPI_Status_set_elements
interface PMPI_Status_set_elements_x
subroutine PMPI_Status_set_elements_x_f08(status,datatype,count,ierror &
) OMPI_F08_INTERFACE_BIND_C("PMPI_Status_set_elements_x_f08")
use :: mpi_f08_types, only : MPI_Status, MPI_Datatype
use :: mpi_f08_types, only : MPI_Status, MPI_Datatype, MPI_COUNT_KIND
implicit none
TYPE(MPI_Status), INTENT(INOUT) :: status
TYPE(MPI_Datatype), INTENT(IN) :: datatype

Просмотреть файл

@ -6,7 +6,7 @@
! $COPYRIGHT$
subroutine MPI_Get_elements_x_f08(status,datatype,count,ierror)
use :: mpi_f08_types, only : MPI_Status, MPI_Datatype
use :: mpi_f08_types, only : MPI_Status, MPI_Datatype, MPI_COUNT_KIND
use :: mpi_f08, only : ompi_get_elements_x_f
implicit none
TYPE(MPI_Status), INTENT(IN) :: status

Просмотреть файл

@ -6,7 +6,7 @@
! $COPYRIGHT$
subroutine PMPI_Get_elements_x_f08(status,datatype,count,ierror)
use :: mpi_f08_types, only : MPI_Status, MPI_Datatype
use :: mpi_f08_types, only : MPI_Status, MPI_Datatype, MPI_COUNT_KIND
use :: mpi_f08, only : ompi_get_elements_x_f
implicit none
TYPE(MPI_Status), INTENT(IN) :: status

Просмотреть файл

@ -6,7 +6,7 @@
! $COPYRIGHT$
subroutine PMPI_Status_set_elements_x_f08(status,datatype,count,ierror)
use :: mpi_f08_types, only : MPI_Status, MPI_Datatype
use :: mpi_f08_types, only : MPI_Status, MPI_Datatype, MPI_COUNT_KIND
use :: mpi_f08, only : ompi_status_set_elements_x_f
implicit none
TYPE(MPI_Status), INTENT(INOUT) :: status

Просмотреть файл

@ -6,7 +6,7 @@
! $COPYRIGHT$
subroutine PMPI_Type_get_extent_x_f08(datatype,lb,extent,ierror)
use :: mpi_f08_types, only : MPI_Datatype, MPI_ADDRESS_KIND
use :: mpi_f08_types, only : MPI_Datatype, MPI_ADDRESS_KIND, MPI_COUNT_KIND
use :: mpi_f08, only : ompi_type_get_extent_x_f
implicit none
TYPE(MPI_Datatype), INTENT(IN) :: datatype

Просмотреть файл

@ -6,7 +6,7 @@
! $COPYRIGHT$
subroutine PMPI_Type_get_true_extent_x_f08(datatype,true_lb,true_extent,ierror)
use :: mpi_f08_types, only : MPI_Datatype, MPI_ADDRESS_KIND
use :: mpi_f08_types, only : MPI_Datatype, MPI_ADDRESS_KIND, MPI_COUNT_KIND
use :: mpi_f08, only : ompi_type_get_true_extent_x_f
implicit none
TYPE(MPI_Datatype), INTENT(IN) :: datatype

Просмотреть файл

@ -6,7 +6,7 @@
! $COPYRIGHT$
subroutine PMPI_Type_size_x_f08(datatype,size,ierror)
use :: mpi_f08_types, only : MPI_Datatype, MPI_ADDRESS_KIND
use :: mpi_f08_types, only : MPI_Datatype, MPI_ADDRESS_KIND, MPI_COUNT_KIND
use :: mpi_f08, only : ompi_type_size_x_f
implicit none
TYPE(MPI_Datatype), INTENT(IN) :: datatype

Просмотреть файл

@ -6,7 +6,7 @@
! $COPYRIGHT$
subroutine MPI_Status_set_elements_x_f08(status,datatype,count,ierror)
use :: mpi_f08_types, only : MPI_Status, MPI_Datatype
use :: mpi_f08_types, only : MPI_Status, MPI_Datatype, MPI_COUNT_KIND
use :: mpi_f08, only : ompi_status_set_elements_x_f
implicit none
TYPE(MPI_Status), INTENT(INOUT) :: status

Просмотреть файл

@ -6,7 +6,7 @@
! $COPYRIGHT$
subroutine MPI_Type_get_extent_x_f08(datatype,lb,extent,ierror)
use :: mpi_f08_types, only : MPI_Datatype, MPI_ADDRESS_KIND
use :: mpi_f08_types, only : MPI_Datatype, MPI_ADDRESS_KIND, MPI_COUNT_KIND
use :: mpi_f08, only : ompi_type_get_extent_x_f
implicit none
TYPE(MPI_Datatype), INTENT(IN) :: datatype

Просмотреть файл

@ -6,7 +6,7 @@
! $COPYRIGHT$
subroutine MPI_Type_get_true_extent_x_f08(datatype,true_lb,true_extent,ierror)
use :: mpi_f08_types, only : MPI_Datatype, MPI_ADDRESS_KIND
use :: mpi_f08_types, only : MPI_Datatype, MPI_ADDRESS_KIND, MPI_COUNT_KIND
use :: mpi_f08, only : ompi_type_get_true_extent_x_f
implicit none
TYPE(MPI_Datatype), INTENT(IN) :: datatype