cbcast_int.F File Reference

Go to the source code of this file.

Functions/Subroutines
subroutine	cmumps_mcast2 (data, ldata, mpitype, root, commw, tag, slavef, keep)
subroutine	cmumps_bdc_error (myid, slavef, comm, keep)

Function/Subroutine Documentation

cmumps_bdc_error()

subroutine cmumps_bdc_error	(	integer	myid,
		integer	slavef,
		integer	comm,
		integer, dimension(500), intent(inout)	keep )

Definition at line 37 of file cbcast_int.F.

      INTEGER MYID, SLAVEF, COMM
      INTEGER, INTENT(INOUT) :: KEEP(500)
      include 'mpif.h'
      include 'mumps_tags.h'
      INTEGER DUMMY (1)
      dummy(1) = -98765
      CALL cmumps_mcast2( dummy, 1, mpi_integer, myid,
     &                 comm, terreur, slavef, keep )
      RETURN

cmumps_mcast2()

subroutine cmumps_mcast2	(	integer, dimension(ldata)	data,
		integer	ldata,
		integer	mpitype,
		integer	root,
		integer	commw,
		integer	tag,
		integer	slavef,
		integer, dimension(500), intent(inout)	keep )

Definition at line 14 of file cbcast_int.F.

      USE cmumps_buf
      IMPLICIT NONE
      include 'mpif.h'
      INTEGER IERR
      INTEGER LDATA, ROOT, COMMW, TAG, MPITYPE, SLAVEF
      INTEGER DEST
      INTEGER, INTENT(INOUT) :: KEEP(500)
      INTEGER DATA(LDATA)
      DO 10 dest = 0, slavef - 1
        IF (dest .NE. root) THEN
          IF ( ldata .EQ. 1 .and. mpitype .EQ. mpi_integer ) THEN
            CALL cmumps_buf_send_1int( DATA(1), dest, tag, 
     &                                commw, keep, ierr )
          ELSE
            WRITE(*,*) 'Error : bad argument to CMUMPS_MCAST2'
            CALL mumps_abort()
          END IF
        ENDIF
   10 CONTINUE
      RETURN