bcast_errors.F

Go to the documentation of this file.

C
C  This file is part of MUMPS 5.5.1, released
C  on Tue Jul 12 13:17:24 UTC 2022
C
C
C  Copyright 1991-2022 CERFACS, CNRS, ENS Lyon, INP Toulouse, Inria,
C  Mumps Technologies, University of Bordeaux.
C
C  This version of MUMPS is provided to you free of charge. It is
C  released under the CeCILL-C license 
C  (see doc/CeCILL-C_V1-en.txt, doc/CeCILL-C_V1-fr.txt, and
C  https://cecill.info/licences/Licence_CeCILL-C_V1-en.html)
C
      SUBROUTINE mumps_propinfo( ICNTL, INFO, COMM, ID )
      INTEGER ICNTL(60), INFO(80), COMM, ID
      include 'mpif.h'
#if defined(WORKAROUNDINTELILP64MPI2INTEGER)
      INTEGER(4) :: IN( 2 ), OUT( 2 )
#else
      INTEGER :: IN( 2 ), OUT( 2 )
#endif
      INTEGER ::  LP, IERR
      lp      = icntl( 1 )
      in( 1 ) = info( 1 )
      in( 2 ) = id
      CALL mpi_allreduce( in, out, 1, mpi_2integer, mpi_minloc,
     &                    comm, ierr)
      IF ( out( 1 ) .LT. 0 .and. info(1) .GE. 0 ) THEN
        info( 1 ) = -001
        info( 2 ) = out( 2 )
      END IF
      RETURN
      END SUBROUTINE mumps_propinfo