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, 0 insertions, 34 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 deleted file mode 100644 index 9006ad20169..00000000000 --- a/Build/source/utils/pmx/pmx-2.6.18/libf2c/getarg_.c +++ /dev/null @@ -1,34 +0,0 @@ -#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 |