1 /* f77 interface to system routine */
6 extern char *F77_aloc();
9 G77_system_0 (s, n) register char *s; ftnlen n;
15 extern char *F77_aloc(ftnlen, char*);
18 G77_system_0 (register char *s, ftnlen n)
21 char buff0[256], *buff;
22 register char *bp, *blast;
25 buff = bp = n < sizeof(buff0)
26 ? buff0 : F77_aloc(n+1, "system_");
29 while(bp < blast && *s)