diff options
Diffstat (limited to 'Build/source/utils/pmx/pmx-2.6.18/libf2c/getarg_.c')
-rw-r--r-- | Build/source/utils/pmx/pmx-2.6.18/libf2c/getarg_.c | 34 |
1 files changed, 34 insertions, 0 deletions
diff --git a/Build/source/utils/pmx/pmx-2.6.18/libf2c/getarg_.c b/Build/source/utils/pmx/pmx-2.6.18/libf2c/getarg_.c new file mode 100644 index 00000000000..9006ad20169 --- /dev/null +++ b/Build/source/utils/pmx/pmx-2.6.18/libf2c/getarg_.c @@ -0,0 +1,34 @@ +#include "f2c.h" +#ifdef __cplusplus +extern "C" { +#endif + +/* + * subroutine getarg(k, c) + * returns the kth unix command argument in fortran character + * variable argument c +*/ + +#ifdef KR_headers +VOID getarg_(n, s, ls) ftnint *n; register char *s; ftnlen ls; +#else +void getarg_(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++ = ' '; +} +#ifdef __cplusplus +} +#endif |