29 lines
504 B
C
29 lines
504 B
C
/* f77 interface to system routine */
|
|
|
|
#include "f2c.h"
|
|
|
|
#undef abs
|
|
#undef min
|
|
#undef max
|
|
#include <stdlib.h>
|
|
extern char *F77_aloc (ftnlen, char *);
|
|
|
|
integer
|
|
G77_system_0 (register char *s, ftnlen n)
|
|
{
|
|
char buff0[256], *buff;
|
|
register char *bp, *blast;
|
|
integer rv;
|
|
|
|
buff = bp = n < (ftnlen) sizeof (buff0) ? buff0 : F77_aloc (n + 1, "system_");
|
|
blast = bp + n;
|
|
|
|
while (bp < blast && *s)
|
|
*bp++ = *s++;
|
|
*bp = 0;
|
|
rv = system (buff);
|
|
if (buff != buff0)
|
|
free (buff);
|
|
return rv;
|
|
}
|