LAPACK 3.12.0
LAPACK: Linear Algebra PACKage
Loading...
Searching...
No Matches

◆ 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*