This is a special version of XERBLA to be used only as part of


 the test program for testing error exits from the LAPACK routines.


 Error messages are printed if INFO.NE.INFOT or if SRNAME.NE.SRNAMT,


 where INFOT and SRNAMT are values stored in COMMON.

SRNAME

          SRNAME is CHARACTER*(*)


          The name of the subroutine calling XERBLA.  This name should


          match the COMMON variable SRNAMT.

INFO

          INFO is INTEGER


          The error return code from the calling subroutine.  INFO


          should equal the COMMON variable INFOT.

Univ. of Tennessee

Univ. of California Berkeley

Univ. of Colorado Denver

NAG Ltd.

  The following variables are passed via the common blocks INFOC and


  SRNAMC:


  INFOT   INTEGER      Expected integer return code


  NOUT    INTEGER      Unit number for printing error messages


  OK      LOGICAL      Set to .TRUE. if INFO = INFOT and


                       SRNAME = SRNAMT, otherwise set to .FALSE.


  LERR    LOGICAL      Set to .TRUE., indicating that XERBLA was called


  SRNAMT  CHARACTER*(*) Expected name of calling subroutine