Logo ROOT  
Reference Guide
mnlsame.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/* lsame.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 <cstring>
16
17namespace ROOT {
18
19namespace Minuit2 {
20
21bool mnlsame(const char *ca, const char *cb)
22{
23 /* System generated locals */
24 bool ret_val = false;
25
26 /* Local variables */
27 // integer inta, intb, zcode;
28
29 /* -- LAPACK auxiliary routine (version 2.0) -- */
30 /* Univ. of Tennessee, Univ. of California Berkeley, NAG Ltd., */
31 /* Courant Institute, Argonne National Lab, and Rice University */
32 /* January 31, 1994 */
33
34 /* .. Scalar Arguments .. */
35 /* .. */
36
37 /* Purpose */
38 /* ======= */
39
40 /* LSAME returns .TRUE. if CA is the same letter as CB regardless of */
41 /* case. */
42
43 /* Arguments */
44 /* ========= */
45
46 /* CA (input) CHARACTER*1 */
47 /* CB (input) CHARACTER*1 */
48 /* CA and CB specify the single characters to be compared. */
49
50 /* ===================================================================== */
51
52 /* .. Intrinsic Functions .. */
53 /* .. */
54 /* .. Local Scalars .. */
55 /* .. */
56 /* .. Executable Statements .. */
57
58 /* Test if the characters are equal */
59
60 int comp = std::strcmp(ca, cb);
61 if (comp == 0)
62 ret_val = true;
63
64 return ret_val;
65} /* lsame_ */
66
67} // namespace Minuit2
68
69} // namespace ROOT
bool mnlsame(const char *, const char *)
Definition: mnlsame.cxx:21
This file contains a specialised ROOT message handler to test for diagnostic in unit tests.