1C
2C  This file is part of MUMPS 5.1.2, released
3C  on Mon Oct  2 07:37:01 UTC 2017
4C
5C
6C  Copyright 1991-2017 CERFACS, CNRS, ENS Lyon, INP Toulouse, Inria,
7C  University of Bordeaux.
8C
9C  This version of MUMPS is provided to you free of charge. It is
10C  released under the CeCILL-C license:
11C  http://www.cecill.info/licences/Licence_CeCILL-C_V1-en.html
12C
13      SUBROUTINE MUMPS_PROPINFO( ICNTL, INFO, COMM, ID )
14      INTEGER ICNTL(40), INFO(40), COMM, ID
15      INCLUDE 'mpif.h'
16#if defined(WORKAROUNDINTELILP64MPI2INTEGER)
17      INTEGER(4) :: IN( 2 ), OUT( 2 )
18#else
19      INTEGER :: IN( 2 ), OUT( 2 )
20#endif
21      INTEGER ::  LP, IERR
22      LP      = ICNTL( 1 )
23      IN( 1 ) = INFO ( 1 )
24      IN( 2 ) = ID
25      CALL MPI_ALLREDUCE( IN, OUT, 1, MPI_2INTEGER, MPI_MINLOC,
26     &                    COMM, IERR)
27      IF ( OUT( 1 ) .LT. 0 .and. INFO(1) .GE. 0 ) THEN
28        INFO( 1 ) = -001
29        INFO( 2 ) = OUT( 2 )
30      END IF
31      RETURN
32      END SUBROUTINE MUMPS_PROPINFO
33