Annotation of rpl/lapack/blas/xerbla.f, revision 1.1
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
CVSweb interface <joel.bertrand@systella.fr>