lang/fortran/lib/libF77/system_.c

   1 /* f77 interface to system routine */
   2
   3 #include "f2c.h"
   4
   5  integer
   6 system_(s, n)
   7 register char *s;
   8 long int n;
   9 {
  10 char buff[1000];
  11 register char *bp, *blast;
  12
  13 blast = buff + (n < 1000 ? n : 1000);
  14
  15 for(bp = buff ; bp<blast && *s!='\0' ; )
  16         *bp++ = *s++;
  17 *bp = '\0';
  18 return system(buff);
  19 }