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

Contents of /trunk/blas/xerbla.f

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1 - (show annotations) (download)
Fri Oct 29 20:54:12 2004 UTC (20 years, 1 month ago) by aw0a
File size: 1026 byte(s)
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

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