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