source: trunk/SOURCES/BLAS/xerbla.f @ 140

Last change on this file since 140 was 4, checked in by dumas, 10 years ago

initial import GRISLI trunk
File size: 1.1 KB
RevLine 
[4]1      SUBROUTINE XERBLA( SRNAME, INFO )
2*
3*  -- LAPACK auxiliary routine (preliminary version) --
4*     Univ. of Tennessee, Univ. of California Berkeley, NAG Ltd.,
5*     Courant Institute, Argonne National Lab, and Rice University
6*     February 29, 1992
7*
8*     .. Scalar Arguments ..
9      CHARACTER*6        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*6
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      WRITE( *, FMT = 9999 )SRNAME, INFO
35*
36      STOP
37*
38 9999 FORMAT( ' ** On entry to ', A6, ' parameter number ', I2, ' had ',
39     $      'an illegal value' )
40*
41*     End of XERBLA
42*
43      END
Note: See TracBrowser for help on using the repository browser.