lsame.cc (flens/lapack/interface/src/lsame.cc)

 1 #include <flens/lapack/interface/include/config.h>

 2 

 3 extern "C" {

 4 

 5 //-- lsame ---------------------------------------------------------------------

 6 LOGICAL

 7 LAPACK_DECL(lsame)(const char       *CA,

 8                    const char       *CB)

 9 {

10     DEBUG_FLENS_LAPACK("lsame");

11 //    std::cerr << "*CA = " << *CA << ", *CB = " << *CB << std::endl;

12     return (*CA==*CB) ? LOGICAL(1) : LOGICAL(0);

13 }

14 

15 } // extern "C"