ROOT_528-00b_version: math/minuit2/src/mnxerbla.cxx Source File

00001 // @(#)root/minuit2:$Id: mnxerbla.cxx 20880 2007-11-19 11:23:41Z rdm $
00002 // Authors: M. Winkler, F. James, L. Moneta, A. Zsenei   2003-2005  
00003 
00004 /**********************************************************************
00005  *                                                                    *
00006  * Copyright (c) 2005 LCG ROOT Math team,  CERN/PH-SFT                *
00007  *                                                                    *
00008  **********************************************************************/
00009 
00010 /* xerbla.f -- translated by f2c (version 20010320).
00011    You must link the resulting object file with the libraries:
00012         -lf2c -lm   (in that order)
00013 */
00014 
00015 #include "Minuit2/MnConfig.h"
00016 #include <iostream>
00017 
00018 namespace ROOT {
00019 
00020    namespace Minuit2 {
00021 
00022 
00023 /* Table of constant values */
00024 
00025 // static integer c__1 = 1;
00026 
00027 int mnxerbla(const char* srname, int info) {
00028     /* Format strings */
00029 //     static char fmt_9999[] = "(\002 ** On entry to \002,a6,\002 Parameter nu\// mber \002,i2,\002 had \002,\002an illegal Value\002)";
00030   
00031 /*  -- LAPACK auxiliary routine (version 3.0) -- */
00032 /*     Univ. of Tennessee, Univ. of California Berkeley, NAG Ltd., */
00033 /*     Courant Institute, Argonne National Lab, and Rice University */
00034 /*     September 30, 1994 */
00035 
00036 /*     .. Scalar Arguments .. */
00037 /*     .. */
00038 
00039 /*  Purpose */
00040 /*  ======= */
00041 
00042 /*  XERBLA  is an Error handler for the LAPACK routines. */
00043 /*  It is called by an LAPACK routine if an input Parameter has an */
00044 /*  invalid Value.  A message is printed and execution stops. */
00045 
00046 /*  Installers may consider modifying the STOP statement in order to */
00047 /*  call system-specific exception-handling facilities. */
00048 
00049 /*  Arguments */
00050 /*  ========= */
00051 
00052 /*  SRNAME  (input) CHARACTER*6 */
00053 /*          The Name of the routine which called XERBLA. */
00054 
00055 /*  INFO    (input) INTEGER */
00056 /*          The position of the invalid Parameter in the Parameter list */
00057 /*          of the calling routine. */
00058 
00059 /* ===================================================================== */
00060 
00061 /*     .. Executable Statements .. */
00062    
00063    std::cout<<" ** On entry to "<<srname<<" Parameter number "<<info<<" had an illegal Value"<<std::endl;
00064    
00065    /*     End of XERBLA */
00066    
00067    return 0;
00068 } /* xerbla_ */
00069 
00070 
00071    }  // namespace Minuit2
00072 
00073 }  // namespace ROOT