Free cookie consent management tool by TermsFeed Policy Generator

source: branches/2789_MathNetNumerics-Exploration/HeuristicLab.Algorithms.DataAnalysis.Experimental/sbart/xerbla.f @ 17185

Last change on this file since 17185 was 15457, checked in by gkronber, 7 years ago

#2789 added Finbarr O'Sullivan smoothing spline code

File size: 1.0 KB
Line 
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      INTEGER INFO
9      CHARACTER*6 SRNAME
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*6
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      WRITE (*,FMT=9999) SRNAME,INFO
34*
35      STOP
36*
37 9999 FORMAT (' ** On entry to ',A6,' parameter number ',I2,' had ',
38     +       'an illegal value')
39*
40*     End of XERBLA
41*
42      END
Note: See TracBrowser for help on using the repository browser.