btmpierr()

subroutine btmpierr	(	character*(*)	rout,
		integer	ierr0
	)

Definition at line 361 of file btprim.f.

      CHARACTER*(*) ROUT
      INTEGER IERR0
*     ..
*     .. include files ..
      include 'mpif.h'
*     ..
*     .. Common blocks ..
      COMMON /btmpi/ btcomm, ierr
      INTEGER BTCOMM, IERR
*
      WRITE(*,1000) rout, ierr
      CALL mpi_abort(btcomm, ierr0, ierr)
*
 1000 FORMAT('Error #',i20,' from routine ',a)
      RETURN

Here is the caller graph for this function: