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 <iostream>
17
18namespace ROOT {
19
20 namespace Minuit2 {
21
22
23/* Table of constant values */
24
25// static integer c__1 = 1;
26
27int 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
int mnxerbla(const char *, int)
Definition: mnxerbla.cxx:27
VSD Structures.
Definition: StringConv.hxx:21