/[ascend]/trunk/blas/xerbla.f
ViewVC logotype

Annotation of /trunk/blas/xerbla.f

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1 - (hide annotations) (download)
Fri Oct 29 20:54:12 2004 UTC (15 years, 5 months ago) by aw0a
File size: 1026 byte(s)
Setting up web subdirectory in repository
1 aw0a 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

john.pye@anu.edu.au
ViewVC Help
Powered by ViewVC 1.1.22