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
)