add some f2c runtime functions, remove exception, avoid name conflict with libgfortran
This commit is contained in:
26
lib/linalg/s_lmp_copy.cpp
Normal file
26
lib/linalg/s_lmp_copy.cpp
Normal 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++ = ' ';
|
||||
}
|
||||
}
|
||||
}
|
||||
Reference in New Issue
Block a user