# xerbla.f

          SUBROUTINE XERBLA (SRNAME, INFO)
    C***BEGIN PROLOGUE  XERBLA
    ....
    ....
    Warning:   this routine is not intended to be user-callable.
    ....
    ....
    C***SUBSIDIARY
    C***PURPOSE  Error handler for the Level 2 and Level 3 BLAS Routines.
    C***LIBRARY   SLATEC
    C***CATEGORY  R3
    C***TYPE      ALL (XERBLA-A)
    C***KEYWORDS  ERROR MESSAGE
    C***AUTHOR  Dongarra, J. J., (ANL)
    C***DESCRIPTION
    C
    C  Purpose
    C  =======
    C
    C  It is called by Level 2 and 3 BLAS routines if an input parameter
    C  is invalid.
    C
    C  Parameters
    C  ==========
    C
    C  SRNAME - CHARACTER*6.
    C           On entry, SRNAME specifies the name of the routine which
    C           called XERBLA.
    C
    C  INFO   - INTEGER.
    C           On entry, INFO specifies the position of the invalid
    C           parameter in the parameter-list of the calling routine.
    C
    C***REFERENCES  (NONE)
    C***ROUTINES CALLED  XERMSG
    C***REVISION HISTORY  (YYMMDD)
    C   860720  DATE WRITTEN
    C   910610  Routine rewritten to serve as an interface between the
    C           Level 2 and Level 3 BLAS routines and the SLATEC error
    C           handler XERMSG.  (BKS)
    C***END PROLOGUE  XERBLA