Logo ROOT  
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
18namespace ROOT {
19
20namespace Minuit2 {
21
22/* Table of constant values */
23
24// static integer c__1 = 1;
25
26int 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
void Warn(const Ts &... args)
Definition MnPrint.h:135
int mnxerbla(const char *, int)
Definition mnxerbla.cxx:26
This file contains a specialised ROOT message handler to test for diagnostic in unit tests.