"Fossies" - the Fresh Open Source Software Archive

Member "openmpi-4.1.2/ompi/mpi/fortran/use-mpi-f08/abort_f08.F90" (24 Nov 2021, 775 Bytes) of package /linux/misc/openmpi-4.1.2.tar.bz2:


As a special service "Fossies" has tried to format the requested source page into HTML format using (guessed) Fortran 90 source code syntax highlighting (style: standard) with prefixed line numbers. Alternatively you can here view or download the uninterpreted source code file. For more information about "abort_f08.F90" see the Fossies "Dox" file reference documentation and the last Fossies "Diffs" side-by-side code changes report: 4.1.1_vs_5.0.0rc2.

    1 ! -*- f90 -*-
    2 !
    3 ! Copyright (c) 2010-2012 Cisco Systems, Inc.  All rights reserved.
    4 ! Copyright (c) 2009-2012 Los Alamos National Security, LLC.
    5 !                         All rights reserved.
    6 ! Copyright (c) 2018      Research Organization for Information Science
    7 !                         and Technology (RIST).  All rights reserved.
    8 ! $COPYRIGHT$
    9 
   10 subroutine MPI_Abort_f08(comm,errorcode,ierror)
   11    use :: mpi_f08_types, only : MPI_Comm
   12    use :: ompi_mpifh_bindings, only : ompi_abort_f
   13    implicit none
   14    TYPE(MPI_Comm), INTENT(IN) :: comm
   15    INTEGER, INTENT(IN) :: errorcode
   16    INTEGER, OPTIONAL, INTENT(OUT) :: ierror
   17    integer :: c_ierror
   18 
   19    call ompi_abort_f(comm%MPI_VAL,errorcode,c_ierror)
   20    if (present(ierror)) ierror = c_ierror
   21 
   22 end subroutine MPI_Abort_f08