00001 // @(#)root/minuit2:$Id: mnlsame.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 /* lsame.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 <string.h> 00016 00017 namespace ROOT { 00018 00019 namespace Minuit2 { 00020 00021 00022 bool mnlsame(const char* ca, const char* cb) { 00023 /* System generated locals */ 00024 bool ret_val = false; 00025 00026 /* Local variables */ 00027 // integer inta, intb, zcode; 00028 00029 00030 /* -- LAPACK auxiliary routine (version 2.0) -- */ 00031 /* Univ. of Tennessee, Univ. of California Berkeley, NAG Ltd., */ 00032 /* Courant Institute, Argonne National Lab, and Rice University */ 00033 /* January 31, 1994 */ 00034 00035 /* .. Scalar Arguments .. */ 00036 /* .. */ 00037 00038 /* Purpose */ 00039 /* ======= */ 00040 00041 /* LSAME returns .TRUE. if CA is the same letter as CB regardless of */ 00042 /* case. */ 00043 00044 /* Arguments */ 00045 /* ========= */ 00046 00047 /* CA (input) CHARACTER*1 */ 00048 /* CB (input) CHARACTER*1 */ 00049 /* CA and CB specify the single characters to be compared. */ 00050 00051 /* ===================================================================== */ 00052 00053 /* .. Intrinsic Functions .. */ 00054 /* .. */ 00055 /* .. Local Scalars .. */ 00056 /* .. */ 00057 /* .. Executable Statements .. */ 00058 00059 /* Test if the characters are equal */ 00060 00061 int comp = strcmp(ca, cb); 00062 if(comp == 0) ret_val = true; 00063 00064 return ret_val; 00065 } /* lsame_ */ 00066 00067 00068 } // namespace Minuit2 00069 00070 } // namespace ROOT
1.5.1