/*! \file
Copyright (c) 2003, The Regents of the University of California, through
Lawrence Berkeley National Laboratory (subject to receipt of any required
approvals from U.S. Dept. of Energy)

All rights reserved.

The source code is distributed under BSD license, see the file License.txt
at the top-level directory.
*/
#include <stdio.h>

/* Subroutine */ int xerbla_(char* srname, int* info) {
    /*  -- LAPACK auxiliary routine (version 2.0) --
           Univ. of Tennessee, Univ. of California Berkeley, NAG Ltd.,
           Courant Institute, Argonne National Lab, and Rice University
           September 30, 1994


        Purpose
        =======

        XERBLA  is an error handler for the LAPACK routines.
        It is called by an LAPACK routine if an input parameter has an
        invalid value.  A message is printed and execution stops.

        Installers may consider modifying the STOP statement in order to
        call system-specific exception-handling facilities.

        Arguments
        =========

        SRNAME  (input) CHARACTER*6
                The name of the routine which called XERBLA.

        INFO    (input) INT
                The position of the invalid parameter in the parameter list

                of the calling routine.

       =====================================================================
    */

    printf("** On entry to %6s, parameter number %2d had an illegal value\n", srname, *info);

    /*     End of XERBLA */

    return 0;
} /* xerbla_ */
