/* f77 interface to system routine */ #include "f2c.h" #ifdef KR_headers system_(s, n) register char *s; ftnlen n; #else #undef abs #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); }