|
1
by aw0a
Setting up web subdirectory in repository |
1 |
SUBROUTINE XERBLA(SRNAME,INFO) |
2 |
C .. Scalar Arguments ..
|
|
3 |
INTEGER INFO |
|
4 |
CHARACTER SRNAME*6 |
|
5 |
C ..
|
|
6 |
C
|
|
7 |
C Purpose
|
|
8 |
C =======
|
|
9 |
C
|
|
10 |
C XERBLA is an error handler for the Level 2 BLAS routines.
|
|
11 |
C
|
|
12 |
C It is called by the Level 2 BLAS routines if an input parameter is
|
|
13 |
C invalid.
|
|
14 |
C
|
|
15 |
C Installers should consider modifying the STOP statement in order to
|
|
16 |
C call system-specific exception-handling facilities.
|
|
17 |
C
|
|
18 |
C Parameters
|
|
19 |
C ==========
|
|
20 |
C
|
|
21 |
C SRNAME - CHARACTER*6.
|
|
22 |
C On entry, SRNAME specifies the name of the routine which
|
|
23 |
C called XERBLA.
|
|
24 |
C
|
|
25 |
C INFO - INTEGER.
|
|
26 |
C On entry, INFO specifies the position of the invalid
|
|
27 |
C parameter in the parameter-list of the calling routine.
|
|
28 |
C
|
|
29 |
C
|
|
30 |
C Auxiliary routine for Level 2 Blas.
|
|
31 |
C
|
|
32 |
C Written on 20-July-1986.
|
|
33 |
C
|
|
34 |
C .. Executable Statements ..
|
|
35 |
C
|
|
36 |
WRITE (*,FMT=99999) SRNAME,INFO |
|
37 |
C
|
|
38 |
STOP |
|
39 |
C
|
|
40 |
99999 FORMAT (' ** On entry to ',A6,' parameter number ',I2, |
|
41 |
+ ' had an illegal value') |
|
42 |
C
|
|
43 |
C End of XERBLA.
|
|
44 |
C
|
|
45 |
END |