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