summaryrefslogtreecommitdiffstats
path: root/contrib/libf2c/libF77/getarg_.c
diff options
context:
space:
mode:
Diffstat (limited to 'contrib/libf2c/libF77/getarg_.c')
-rw-r--r--contrib/libf2c/libF77/getarg_.c31
1 files changed, 14 insertions, 17 deletions
diff --git a/contrib/libf2c/libF77/getarg_.c b/contrib/libf2c/libF77/getarg_.c
index 5cf3ffb..b35043b 100644
--- a/contrib/libf2c/libF77/getarg_.c
+++ b/contrib/libf2c/libF77/getarg_.c
@@ -6,23 +6,20 @@
* 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
+void
+G77_getarg_0 (ftnint * n, register char *s, ftnlen ls)
{
-extern int f__xargc;
-extern char **f__xargv;
-register char *t;
-register int i;
+ 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++ = ' ';
+ 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++ = ' ';
}
OpenPOWER on IntegriCloud