xerbla()

subroutine xerbla	(	character*(*)	srname,
		integer	info )

Definition at line 3649 of file zblat3.f.

*
*  This is a special version of XERBLA to be used only as part of
*  the test program for testing error exits from the Level 3 BLAS
*  routines.
*
*  XERBLA  is an error handler for the Level 3 BLAS routines.
*
*  It is called by the Level 3 BLAS routines if an input parameter is
*  invalid.
*
*  Auxiliary routine for test program for Level 3 Blas.
*
*  -- Written on 8-February-1989.
*     Jack Dongarra, Argonne National Laboratory.
*     Iain Duff, AERE Harwell.
*     Jeremy Du Croz, Numerical Algorithms Group Ltd.
*     Sven Hammarling, Numerical Algorithms Group Ltd.
*
*     .. Scalar Arguments ..
      INTEGER            INFO
      CHARACTER*(*)      SRNAME
*     .. Scalars in Common ..
      INTEGER            INFOT, NOUT
      LOGICAL            LERR, OK
      CHARACTER*7        SRNAMT
*     .. Common blocks ..
      COMMON             /infoc/infot, nout, ok, lerr
      COMMON             /srnamc/srnamt
*     .. Executable Statements ..
      lerr = .true.
      IF( info.NE.infot )THEN
         IF( infot.NE.0 )THEN
            WRITE( nout, fmt = 9999 )info, infot
         ELSE
            WRITE( nout, fmt = 9997 )info
         END IF
         ok = .false.
      END IF
      IF( srname.NE.srnamt )THEN
         WRITE( nout, fmt = 9998 )srname, srnamt
         ok = .false.
      END IF
      RETURN
*
 9999 FORMAT( ' ******* XERBLA WAS CALLED WITH INFO = ', i6, ' INSTEAD',
     $      ' OF ', i2, ' *******' )
 9998 FORMAT( ' ******* XERBLA WAS CALLED WITH SRNAME = ', a6, ' INSTE',
     $      'AD OF ', a6, ' *******' )
 9997 FORMAT( ' ******* XERBLA WAS CALLED WITH INFO = ', i6,
     $      ' *******' )
*
*     End of XERBLA
*