ROOT
master
Reference Guide
Loading...
Searching...
No Matches
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
MnConfig.h
MnPrint.h
ROOT::Minuit2::MnPrint
Definition
MnPrint.h:73
ROOT::Minuit2::MnPrint::Warn
void Warn(const Ts &... args)
Definition
MnPrint.h:135
ROOT::Minuit2::mnxerbla
int mnxerbla(const char *, int)
Definition
mnxerbla.cxx:26
ROOT
tbb::task_arena is an alias of tbb::interface7::task_arena, which doesn't allow to forward declare tb...
Definition
EExecutionPolicy.hxx:4
math
minuit2
src
mnxerbla.cxx
ROOT master - Reference Guide Generated on Thu Dec 12 2024 09:44:06 (GVA Time) using Doxygen 1.9.8