1 ! -*- fortran -*- 2 ! 3 ! Copyright (c) 2012 Cisco Systems, Inc. All rights reserved. 4 ! $COPYRIGHT$ 5 ! 6 ! Additional copyrights may follow 7 ! 8 ! $HEADER$ 9 ! 10 11 ! This whole file will be included in the mpi_f08_ext module interface 12 ! section. Note that the extension's mpif.h file will be included 13 ! first, so there's no need to re-define anything that's in there (e.g., 14 ! OMPI_EXAMPLE_GLOBAL). 15 16 ! Declare any interfaces, subroutines, and global variables/constants 17 ! here. Note that the mpiext_example_mpif.h will automatically be 18 ! included before this, so anything declared there does not need to be 19 ! replicated here. 20 21 interface OMPI_Progress 22 subroutine ompi_progress(count, comm, ierr) 23 use :: mpi_f08_types, only : MPI_Comm 24 integer, intent(IN) :: count 25 type(MPI_Comm), intent(IN) :: comm 26 integer, optional, intent(OUT) :: ierr 27 end subroutine ompi_progress 28 end interface OMPI_Progress