"Fossies" - the Fresh Open Source Software Archive

Member "openmpi-4.1.2/ompi/mpi/fortran/use-mpi-f08/add_error_string_f08.F90" (24 Nov 2021, 793 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 "add_error_string_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-2011 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_Add_error_string_f08(errorcode,string,ierror)
   11    use :: ompi_mpifh_bindings, only : ompi_add_error_string_f
   12    implicit none
   13    integer, intent(in) :: errorcode
   14    character(len=*), intent(in) :: string
   15    integer, optional, intent(out) :: ierror
   16    integer :: c_ierror
   17 
   18    call ompi_add_error_string_f(errorcode, string, c_ierror, len(string))
   19    if (present(ierror)) ierror = c_ierror
   20 
   21 end subroutine MPI_Add_error_string_f08