29 строки
920 B
Fortran
29 строки
920 B
Fortran
! -*- fortran -*-
|
|
!
|
|
! Copyright (c) 2012 Cisco Systems, Inc. All rights reserved.
|
|
! $COPYRIGHT$
|
|
!
|
|
! Additional copyrights may follow
|
|
!
|
|
! $HEADER$
|
|
!
|
|
|
|
! This whole file will be included in the mpi_f08_ext module interface
|
|
! section. Note that the extension's mpif.h file will be included
|
|
! first, so there's no need to re-define anything that's in there (e.g.,
|
|
! OMPI_EXAMPLE_GLOBAL).
|
|
|
|
! Declare any interfaces, subroutines, and global variables/constants
|
|
! here. Note that the mpiext_example_mpif.h will automatically be
|
|
! included before this, so anything declared there does not need to be
|
|
! replicated here.
|
|
|
|
interface OMPI_Progress
|
|
subroutine ompi_progress(count, comm, ierr)
|
|
use :: mpi_f08_types, only : MPI_Comm
|
|
integer, intent(IN) :: count
|
|
type(MPI_Comm), intent(IN) :: comm
|
|
integer, optional, intent(OUT) :: ierr
|
|
end subroutine ompi_progress
|
|
end interface OMPI_Progress
|