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

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

 2 

 3 extern "C" {

 4 

 5 //-- lsamen --------------------------------------------------------------------

 6 LOGICAL

 7 LAPACK_DECL(lsamen)(const INTEGER    *N,

 8                     const char       *CA,

 9                     const char       *CB)

10 {

11     DEBUG_FLENS_LAPACK("lsamen");

12     for (int i=0; i<*N; ++i) {

13         if (toupper(CA[i])!=toupper(CB[i])) {

14             return LOGICAL(0);

15         }

16     }

17     return LOGICAL(1);

18 }

19 

20 } // extern "C"