From fa080de7afc95aa1c19a6e6fc0e0708ced2eadc4 Mon Sep 17 00:00:00 2001 From: Joseph Hunkeler Date: Wed, 8 Jul 2015 20:46:52 -0400 Subject: Initial commit --- unix/f2c/libf2c/iargc_.c | 17 +++++++++++++++++ 1 file changed, 17 insertions(+) create mode 100644 unix/f2c/libf2c/iargc_.c (limited to 'unix/f2c/libf2c/iargc_.c') diff --git a/unix/f2c/libf2c/iargc_.c b/unix/f2c/libf2c/iargc_.c new file mode 100644 index 00000000..2f29da0e --- /dev/null +++ b/unix/f2c/libf2c/iargc_.c @@ -0,0 +1,17 @@ +#include "f2c.h" +#ifdef __cplusplus +extern "C" { +#endif + +#ifdef KR_headers +ftnint iargc_() +#else +ftnint iargc_(void) +#endif +{ +extern int xargc; +return ( xargc - 1 ); +} +#ifdef __cplusplus +} +#endif -- cgit