![]() ![]() | ![]() |
Mise à jour de lapack vers la version 3.3.0.
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