mnlsame.cxx

Go to the documentation of this file.

// @(#)root/minuit2:$Id$
// Authors: M. Winkler, F. James, L. Moneta, A. Zsenei   2003-2005
 
/**********************************************************************
 *                                                                    *
 * Copyright (c) 2005 LCG ROOT Math team,  CERN/PH-SFT                *
 *                                                                    *
 **********************************************************************/
 
/* lsame.f -- translated by f2c (version 20010320).
   You must link the resulting object file with the libraries:
   -lf2c -lm   (in that order)
*/
 
#include <string.h>
 
namespace ROOT {
 
   namespace Minuit2 {
 
 
bool mnlsame(const char* ca, const char* cb) {
   /* System generated locals */
   bool ret_val = false;
 
   /* Local variables */
   //     integer inta, intb, zcode;
 
 
   /*  -- LAPACK auxiliary routine (version 2.0) -- */
   /*     Univ. of Tennessee, Univ. of California Berkeley, NAG Ltd., */
   /*     Courant Institute, Argonne National Lab, and Rice University */
   /*     January 31, 1994 */
 
   /*     .. Scalar Arguments .. */
   /*     .. */
 
   /*  Purpose */
   /*  ======= */
 
   /*  LSAME returns .TRUE. if CA is the same letter as CB regardless of */
   /*  case. */
 
   /*  Arguments */
   /*  ========= */
 
   /*  CA      (input) CHARACTER*1 */
   /*  CB      (input) CHARACTER*1 */
   /*          CA and CB specify the single characters to be compared. */
 
   /* ===================================================================== */
 
   /*     .. Intrinsic Functions .. */
   /*     .. */
   /*     .. Local Scalars .. */
   /*     .. */
   /*     .. Executable Statements .. */
 
   /*     Test if the characters are equal */
 
   int comp = strcmp(ca, cb);
   if(comp == 0) ret_val = true;
 
   return ret_val;
} /* lsame_ */
 
 
   }  // namespace Minuit2
 
}  // namespace ROOT