Return to xerbla.f CVS log

Up to [local] / rpl / lapack / blas

Annotation of rpl/lapack/blas/xerbla.f, revision 1.6

1.1       bertrand    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