!>
!> 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
!>