bcast_errors.F File Reference

Go to the source code of this file.

Functions/Subroutines
subroutine	mumps_propinfo (icntl, info, comm, id)

Function/Subroutine Documentation

mumps_propinfo()

subroutine mumps_propinfo	(	integer, dimension(60)	icntl,
		integer, dimension(80)	info,
		integer	comm,
		integer	id )

Definition at line 14 of file bcast_errors.F.

      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