ROOT
6.10/09
Reference Guide
math
minuit2
src
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
Namespace for new ROOT classes and functions.
Definition:
StringConv.hxx:21
ROOT::Minuit2::mnxerbla
int mnxerbla(const char *, int)
Definition:
mnxerbla.cxx:27
MnConfig.h