1e2019ce2a
This reverts commit cb55c88a8b
.
28 строки
853 B
Fortran
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
|