4 * subroutine getarg(k, c)
5 * returns the kth unix command argument in fortran character
10 G77_getarg_0 (ftnint * n, register char *s, ftnlen ls)
13 extern char **f__xargv;
17 if (*n >= 0 && *n < f__xargc)
21 for (i = 0; i < ls && *t != '\0'; ++i)