* subroutine getarg(k, c)
* returns the kth unix command argument in fortran character
VOID
getarg_(n
, s
, ls
) ftnint
*n
; register char *s
; ftnlen ls
;
void getarg_(ftnint
*n
, register char *s
, ftnlen ls
)
for(i
= 0; i
<ls
&& *t
!='\0' ; ++i
)