1! -*- f90 -*- 2! 3! Copyright (c) 2010-2013 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_Initialized_f08(flag,ierror) 9 ! See note in mpi-f-interfaces-bind.h for why we "use mpi" here and 10 ! call a PMPI_* subroutine below. 11 use :: mpi, only : PMPI_Initialized 12 implicit none 13 LOGICAL, INTENT(OUT) :: flag 14 INTEGER, OPTIONAL, INTENT(OUT) :: ierror 15 integer :: c_ierror 16 17 call PMPI_Initialized(flag,c_ierror) 18 if (present(ierror)) ierror = c_ierror 19end subroutine PMPI_Initialized_f08 20