File:
[local] /
rpl /
lapack /
blas /
xerbla.f
Revision
1.6:
download - view:
text,
annotated -
select for diffs -
revision graph
Tue Dec 21 13:51:26 2010 UTC (13 years, 6 months ago) by
bertrand
Branches:
MAIN
CVS tags:
rpl-4_1_3,
rpl-4_1_2,
rpl-4_1_1,
rpl-4_1_0,
rpl-4_0_24,
rpl-4_0_22,
rpl-4_0_21,
rpl-4_0_20,
rpl-4_0,
HEAD
Mise à jour de lapack vers la version 3.3.0
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>