add some f2c runtime functions, remove exception, avoid name conflict with libgfortran

This commit is contained in:
Axel Kohlmeyer
2022-12-28 15:31:49 -05:00
parent 1e8b2ad5a0
commit f157ba2389
100 changed files with 1233 additions and 437 deletions

26
lib/linalg/s_lmp_copy.cpp Normal file
View File

@ -0,0 +1,26 @@
#include "lmp_f2c.h"
extern "C" {
/* assign strings: a = b */
void s_lmp_copy(register char *a, register char *b, ftnlen la, ftnlen lb)
{
register char *aend, *bend;
aend = a + la;
if (la <= lb)
while (a < aend)
*a++ = *b++;
else {
bend = b + lb;
while (b < bend)
*a++ = *b++;
while (a < aend)
*a++ = ' ';
}
}
}