#include "f2c.h" | |
/* | |
* subroutine getarg(k, c) | |
* returns the kth unix command argument in fortran character | |
* variable argument c | |
*/ | |
#ifdef KR_headers | |
VOID G77_getarg_0 (n, s, ls) ftnint *n; register char *s; ftnlen ls; | |
#else | |
void G77_getarg_0 (ftnint *n, register char *s, ftnlen ls) | |
#endif | |
{ | |
extern int xargc; | |
extern char **xargv; | |
register char *t; | |
register int i; | |
if(*n>=0 && *n<xargc) | |
t = xargv[*n]; | |
else | |
t = ""; | |
for(i = 0; i<ls && *t!='\0' ; ++i) | |
*s++ = *t++; | |
for( ; i<ls ; ++i) | |
*s++ = ' '; | |
} |