Annotation of rpl/lapack/lapack/xerbla.f, revision 1.1
1.1 ! bertrand 1: SUBROUTINE XERBLA( SRNAME, INFO )
! 2: *
! 3: * -- LAPACK auxiliary routine (version 3.2) --
! 4: * -- LAPACK is a software package provided by Univ. of Tennessee, --
! 5: * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
! 6: * November 2006
! 7: *
! 8: * .. Scalar Arguments ..
! 9: CHARACTER*(*) 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*(*)
! 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: *
! 35: * .. Intrinsic Functions ..
! 36: INTRINSIC LEN_TRIM
! 37: * ..
! 38: * .. Executable Statements ..
! 39: *
! 40: WRITE( *, FMT = 9999 )SRNAME( 1:LEN_TRIM( SRNAME ) ), INFO
! 41: *
! 42: STOP
! 43: *
! 44: 9999 FORMAT( ' ** On entry to ', A, ' parameter number ', I2, ' had ',
! 45: $ 'an illegal value' )
! 46: *
! 47: * End of XERBLA
! 48: *
! 49: END
CVSweb interface <joel.bertrand@systella.fr>