Return to xerbla.f CVS log

Up to [local] / rpl / lapack / blas

En route pour la 4.0.15 !

    1:       SUBROUTINE XERBLA( SRNAME, INFO )
    2: *
    3: *  -- LAPACK auxiliary routine (preliminary version) --
    4: *     Univ. of Tennessee, Univ. of California Berkeley and NAG Ltd..
    5: *     November 2006
    6: *
    7: *     .. Scalar Arguments ..
    8:       CHARACTER*(*)      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*(*)
   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: *     .. Intrinsic Functions ..
   35:       INTRINSIC          LEN_TRIM
   36: *     ..
   37: *     .. Executable Statements ..
   38: *
   39:       WRITE( *, FMT = 9999 )SRNAME( 1:LEN_TRIM( SRNAME ) ), INFO
   40: *
   41:       STOP
   42: *
   43:  9999 FORMAT( ' ** On entry to ', A, ' parameter number ', I2, ' had ',
   44:      $      'an illegal value' )
   45: *
   46: *     End of XERBLA
   47: *
   48:       END