ROOT  6.07/01
Reference Guide
 All Classes Namespaces Files Functions Variables Typedefs Enumerations Enumerator Properties Friends Macros Groups Pages
mnxerbla.cxx
Go to the documentation of this file.
1 // @(#)root/minuit2:$Id$
2 // Authors: M. Winkler, F. James, L. Moneta, A. Zsenei 2003-2005
3 
4 /**********************************************************************
5  * *
6  * Copyright (c) 2005 LCG ROOT Math team, CERN/PH-SFT *
7  * *
8  **********************************************************************/
9 
10 /* xerbla.f -- translated by f2c (version 20010320).
11  You must link the resulting object file with the libraries:
12  -lf2c -lm (in that order)
13 */
14 
15 #include "Minuit2/MnConfig.h"
16 #include <iostream>
17 
18 namespace ROOT {
19 
20  namespace Minuit2 {
21 
22 
23 /* Table of constant values */
24 
25 // static integer c__1 = 1;
26 
27 int mnxerbla(const char* srname, int info) {
28  /* Format strings */
29 // static char fmt_9999[] = "(\002 ** On entry to \002,a6,\002 Parameter nu\// mber \002,i2,\002 had \002,\002an illegal Value\002)";
30 
31 /* -- LAPACK auxiliary routine (version 3.0) -- */
32 /* Univ. of Tennessee, Univ. of California Berkeley, NAG Ltd., */
33 /* Courant Institute, Argonne National Lab, and Rice University */
34 /* September 30, 1994 */
35 
36 /* .. Scalar Arguments .. */
37 /* .. */
38 
39 /* Purpose */
40 /* ======= */
41 
42 /* XERBLA is an Error handler for the LAPACK routines. */
43 /* It is called by an LAPACK routine if an input Parameter has an */
44 /* invalid Value. A message is printed and execution stops. */
45 
46 /* Installers may consider modifying the STOP statement in order to */
47 /* call system-specific exception-handling facilities. */
48 
49 /* Arguments */
50 /* ========= */
51 
52 /* SRNAME (input) CHARACTER*6 */
53 /* The Name of the routine which called XERBLA. */
54 
55 /* INFO (input) INTEGER */
56 /* The position of the invalid Parameter in the Parameter list */
57 /* of the calling routine. */
58 
59 /* ===================================================================== */
60 
61 /* .. Executable Statements .. */
62 
63  std::cout<<" ** On entry to "<<srname<<" Parameter number "<<info<<" had an illegal Value"<<std::endl;
64 
65  /* End of XERBLA */
66 
67  return 0;
68 } /* xerbla_ */
69 
70 
71  } // namespace Minuit2
72 
73 } // namespace ROOT
ROOT::Minuit2::mnxerbla
int mnxerbla(const char *, int)
Definition: mnxerbla.cxx:27