25 lines
396 B
C
25 lines
396 B
C
|
/* f77 interface to system routine */
|
||
|
|
|
||
|
|
#include "f2c.h"
|
||
|
|
|
||
|
|
#ifdef KR_headers
|
||
|
|
system_(s, n) register char *s; ftnlen n;
|
||
|
|
#else
|
||
|
|
#undef abs
|
||
|
|
#undef min
|
||
|
|
#undef max
|
||
|
|
#include "stdlib.h"
|
||
|
|
system_(register char *s, ftnlen n)
|
||
|
|
#endif
|
||
|
|
{
|
||
|
|
char buff[1000];
|
||
|
|
register char *bp, *blast;
|
||
|
|
|
||
|
|
blast = buff + (n < 1000 ? n : 1000);
|
||
|
|
|
||
|
|
for(bp = buff ; bp<blast && *s!='\0' ; )
|
||
|
|
*bp++ = *s++;
|
||
|
|
*bp = '\0';
|
||
|
|
return system(buff);
|
||
|
|
}
|