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