ROOT
6.10/09
Reference Guide
math
minuit2
src
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
ROOT
Namespace for new ROOT classes and functions.
Definition:
StringConv.hxx:21
ROOT::Minuit2::mnlsame
bool mnlsame(const char *, const char *)
Definition:
mnlsame.cxx:22