git.maemo.org Git - opencv/blob - 3rdparty/lapack/xerbla.c

   1 #include "clapack.h"
   2 #include "stdio.h"
   3
   4 /* Subroutine */ int xerbla_(char *srname, integer *info)
   5 {
   6 /*  -- LAPACK auxiliary routine (version 2.0) --
   7        Univ. of Tennessee, Univ. of California Berkeley, NAG Ltd.,
   8        Courant Institute, Argonne National Lab, and Rice University
   9        September 30, 1994
  10
  11
  12     Purpose
  13     =======
  14
  15     XERBLA  is an error handler for the LAPACK routines.
  16     It is called by an LAPACK routine if an input parameter has an
  17     invalid value.  A message is printed and execution stops.
  18
  19     Installers may consider modifying the STOP statement in order to
  20     call system-specific exception-handling facilities.
  21
  22     Arguments
  23     =========
  24
  25     SRNAME  (input) CHARACTER*6
  26             The name of the routine which called XERBLA.
  27
  28     INFO    (input) INTEGER
  29             The position of the invalid parameter in the parameter list
  30
  31             of the calling routine.
  32
  33    =====================================================================
  34 */
  35
  36     printf("** On entry to %6s, parameter number %2i had an illegal value\n",
  37                 srname, *info);
  38
  39 /*     End of XERBLA */
  40
  41     return 0;
  42 } /* xerbla_ */
  43