share/lapack/blas/fortran/xerbla.f

   1       SUBROUTINE XERBLA( SRNAME, INFO )
   2 *
   3 *  -- LAPACK auxiliary routine (preliminary version) --
   4 *     Univ. of Tennessee, Univ. of California Berkeley, NAG Ltd.,
   5 *     Courant Institute, Argonne National Lab, and Rice University
   6 *     February 29, 1992
   7 *
   8 *     .. Scalar Arguments ..
   9       CHARACTER*6        SRNAME
  10       INTEGER            INFO
  11 *     ..
  12 *
  13 *  Purpose
  14 *  =======
  15 *
  16 *  XERBLA  is an error handler for the LAPACK routines.
  17 *  It is called by an LAPACK routine if an input parameter has an
  18 *  invalid value.  A message is printed and execution stops.
  19 *
  20 *  Installers may consider modifying the STOP statement in order to
  21 *  call system-specific exception-handling facilities.
  22 *
  23 *  Arguments
  24 *  =========
  25 *
  26 *  SRNAME  (input) CHARACTER*6
  27 *          The name of the routine which called XERBLA.
  28 *
  29 *  INFO    (input) INTEGER
  30 *          The position of the invalid parameter in the parameter list
  31 *          of the calling routine.
  32 *
  33 *
  34       WRITE( *, FMT = 9999 )SRNAME, INFO
  35 *
  36 *
  37 * commented out by RLT
  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