LAPACK  3.10.0
LAPACK: Linear Algebra PACKage

◆ xerbla()

subroutine xerbla ( character*6  SRNAME,
integer  INFO 
)

Definition at line 2815 of file dblat3.f.

2816 *
2817 * This is a special version of XERBLA to be used only as part of
2818 * the test program for testing error exits from the Level 3 BLAS
2819 * routines.
2820 *
2821 * XERBLA is an error handler for the Level 3 BLAS routines.
2822 *
2823 * It is called by the Level 3 BLAS routines if an input parameter is
2824 * invalid.
2825 *
2826 * Auxiliary routine for test program for Level 3 Blas.
2827 *
2828 * -- Written on 8-February-1989.
2829 * Jack Dongarra, Argonne National Laboratory.
2830 * Iain Duff, AERE Harwell.
2831 * Jeremy Du Croz, Numerical Algorithms Group Ltd.
2832 * Sven Hammarling, Numerical Algorithms Group Ltd.
2833 *
2834 * .. Scalar Arguments ..
2835  INTEGER INFO
2836  CHARACTER*6 SRNAME
2837 * .. Scalars in Common ..
2838  INTEGER INFOT, NOUT
2839  LOGICAL LERR, OK
2840  CHARACTER*6 SRNAMT
2841 * .. Common blocks ..
2842  COMMON /infoc/infot, nout, ok, lerr
2843  COMMON /srnamc/srnamt
2844 * .. Executable Statements ..
2845  lerr = .true.
2846  IF( info.NE.infot )THEN
2847  IF( infot.NE.0 )THEN
2848  WRITE( nout, fmt = 9999 )info, infot
2849  ELSE
2850  WRITE( nout, fmt = 9997 )info
2851  END IF
2852  ok = .false.
2853  END IF
2854  IF( srname.NE.srnamt )THEN
2855  WRITE( nout, fmt = 9998 )srname, srnamt
2856  ok = .false.
2857  END IF
2858  RETURN
2859 *
2860  9999 FORMAT( ' ******* XERBLA WAS CALLED WITH INFO = ', i6, ' INSTEAD',
2861  $ ' OF ', i2, ' *******' )
2862  9998 FORMAT( ' ******* XERBLA WAS CALLED WITH SRNAME = ', a6, ' INSTE',
2863  $ 'AD OF ', a6, ' *******' )
2864  9997 FORMAT( ' ******* XERBLA WAS CALLED WITH INFO = ', i6,
2865  $ ' *******' )
2866 *
2867 * End of XERBLA
2868 *