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

      1
      2
      3
      4
      5
      6
      7
      8
      9
     10
     11
     12
     13
     14
     15
     16
     17
     18
     19

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

extern "C" {

//-- lsamen --------------------------------------------------------------------
LOGICAL
LAPACK_DECL(lsamen)(const INTEGER    *N,
                    const char       *CA,
                    const char       *CB)
{
    for (int i=0; i<*N; ++i) {
        if (toupper(CA[i])!=toupper(CB[i])) {
            return LOGICAL(0);
        }
    }
    return LOGICAL(1);
}

} // extern "C"