contrib/gcc-3.4/libf2c/libF77/getarg_.c

   1 #include "f2c.h"
   2
   3 /*
   4  * subroutine getarg(k, c)
   5  * returns the kth unix command argument in fortran character
   6  * variable argument c
   7 */
   8
   9 void
  10 G77_getarg_0 (ftnint * n, register char *s, ftnlen ls)
  11 {
  12   extern int f__xargc;
  13   extern char **f__xargv;
  14   register char *t;
  15   register int i;
  16
  17   if (*n >= 0 && *n < f__xargc)
  18     t = f__xargv[*n];
  19   else
  20     t = "";
  21   for (i = 0; i < ls && *t != '\0'; ++i)
  22     *s++ = *t++;
  23   for (; i < ls; ++i)
  24     *s++ = ' ';
  25 }