1! -*- f90 -*- 2! 3! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. 4! Copyright (c) 2009-2012 Los Alamos National Security, LLC. 5! All rights reserved. 6! $COPYRIGHT$ 7 8subroutine PMPI_Comm_compare_f08(comm1,comm2,result,ierror) 9 use :: mpi_f08_types, only : MPI_Comm 10 use :: mpi_f08, only : ompi_comm_compare_f 11 implicit none 12 TYPE(MPI_Comm), INTENT(IN) :: comm1 13 TYPE(MPI_Comm), INTENT(IN) :: comm2 14 INTEGER, INTENT(OUT) :: result 15 INTEGER, OPTIONAL, INTENT(OUT) :: ierror 16 integer :: c_ierror 17 18 call ompi_comm_compare_f(comm1%MPI_VAL,comm2%MPI_VAL,result,c_ierror) 19 if (present(ierror)) ierror = c_ierror 20 21end subroutine PMPI_Comm_compare_f08 22