convert linalg library from Fortran to C++

This commit is contained in:
Axel Kohlmeyer
2022-12-28 13:18:38 -05:00
parent 7cceabe5bd
commit c5a87f75d6
410 changed files with 80736 additions and 30 deletions

17
lib/linalg/lsame.cpp Normal file
View File

@ -0,0 +1,17 @@
#include <cctype>
extern "C" {
#include "lmp_f2c.h"
logical lsame_(const char *a, const char *b)
{
char ua, ub;
if (!a || !b) return FALSE_;
ua = toupper(*a);
ub = toupper(*b);
return (ua == ub) ? TRUE_ : FALSE_;
}
}