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