#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 f__xargc; extern char **f__xargv; register char *t; register int i; if(*n>=0 && *n<f__xargc) t = f__xargv[*n]; else t = ""; for(i = 0; i<ls && *t!='\0' ; ++i) *s++ = *t++; for( ; i<ls ; ++i) *s++ = ' '; }