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

      1
      2
      3
      4
      5
      6
      7
      8
      9
     10
     11
     12
     13
     14
     15

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

extern "C" {

//-- lsame ---------------------------------------------------------------------
LOGICAL
LAPACK_DECL(lsame)(const char       *CA,
                   const char       *CB)
{
//    DEBUG_FLENS_LAPACK("lsame");
//    std::cerr << "*CA = " << *CA << ", *CB = " << *CB << std::endl;
    return (*CA==*CB) ? LOGICAL(1) : LOGICAL(0);
}

} // extern "C"