Logo ROOT  
Reference Guide
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 "Minuit2/MnPrint.h"
17 
18 namespace ROOT {
19 
20 namespace Minuit2 {
21 
22 /* Table of constant values */
23 
24 // static integer c__1 = 1;
25 
26 int mnxerbla(const char *srname, int info)
27 {
28  /* Format strings */
29  // static char fmt_9999[] = "(\002 ** On entry to \002,a6,\002 Parameter nu\// mber \002,i2,\002 had \002,\002an
30  // illegal Value\002)";
31 
32  /* -- LAPACK auxiliary routine (version 3.0) -- */
33  /* Univ. of Tennessee, Univ. of California Berkeley, NAG Ltd., */
34  /* Courant Institute, Argonne National Lab, and Rice University */
35  /* September 30, 1994 */
36 
37  /* .. Scalar Arguments .. */
38  /* .. */
39 
40  /* Purpose */
41  /* ======= */
42 
43  /* XERBLA is an Error handler for the LAPACK routines. */
44  /* It is called by an LAPACK routine if an input Parameter has an */
45  /* invalid Value. A message is printed and execution stops. */
46 
47  /* Installers may consider modifying the STOP statement in order to */
48  /* call system-specific exception-handling facilities. */
49 
50  /* Arguments */
51  /* ========= */
52 
53  /* SRNAME (input) CHARACTER*6 */
54  /* The Name of the routine which called XERBLA. */
55 
56  /* INFO (input) INTEGER */
57  /* The position of the invalid Parameter in the Parameter list */
58  /* of the calling routine. */
59 
60  /* ===================================================================== */
61 
62  /* .. Executable Statements .. */
63 
64  MnPrint print("mnxerbla");
65  print.Warn("On entry to", srname, "Parameter number", info, "had an illegal Value");
66 
67  /* End of XERBLA */
68 
69  return 0;
70 } /* xerbla_ */
71 
72 } // namespace Minuit2
73 
74 } // namespace ROOT
ROOT::Minuit2::mnxerbla
int mnxerbla(const char *, int)
Definition: mnxerbla.cxx:26
ROOT::Minuit2::MnPrint::Warn
void Warn(const Ts &... args)
Definition: MnPrint.h:126
MnPrint.h
ROOT
tbb::task_arena is an alias of tbb::interface7::task_arena, which doesn't allow to forward declare tb...
Definition: EExecutionPolicy.hxx:4
MnConfig.h
ROOT::Minuit2::MnPrint
Definition: MnPrint.h:73