src/LAPACK/xerbla.f

   1       SUBROUTINE XERBLA( SRNAME, INFO )
   2 *
   3 *  -- LAPACK auxiliary routine (version 3.1) --
   4 *     Univ. of Tennessee, Univ. of California Berkeley and NAG Ltd..
   5 *     November 2006
   6 *
   7 *     .. Scalar Arguments ..
   8       CHARACTER*6        SRNAME
   9       INTEGER            INFO
  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 *          of the calling routine.
  31 *
  32 * =====================================================================
  33 *
  34 *     .. Executable Statements ..
  35 *
  36       WRITE( *, FMT = 9999 )SRNAME, INFO
  37 *
  38       STOP
  39 *
  40  9999 FORMAT( ' ** On entry to ', A6, ' parameter number ', I2, ' had ',
  41      $      'an illegal value' )
  42 *
  43 *     End of XERBLA
  44 *
  45       END