1
1
openmpi/ompi/mpiext/example/use-mpi/mpiext_example_usempi.h
2016-11-22 15:03:20 -08:00

28 строки
853 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_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)
integer, intent(IN) :: count
integer, intent(IN) :: comm
integer, intent(OUT) :: ierr
end subroutine ompi_progress
end interface OMPI_Progress