Logo ROOT   6.13/01
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 
17 namespace ROOT {
18 
19  namespace Minuit2 {
20 
21 
22 bool 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
Namespace for new ROOT classes and functions.
Definition: TFoamSampler.h:19
bool mnlsame(const char *, const char *)
Definition: mnlsame.cxx:22