libf2c/libF77/setarg.c

   1 /* Set up the global argc/argv info for use by getarg_, iargc_, and
   2    g77's inlined intrinsic equivalents.  */
   3
   4 #ifndef KR_headers
   5 #undef VOID
   6 #include <stdlib.h>
   7 #endif
   8
   9 #ifndef VOID
  10 #define VOID void
  11 #endif
  12
  13 int f__xargc;
  14 char **f__xargv;
  15
  16 #ifdef __cplusplus
  17         }
  18 #endif
  19
  20  void
  21 #ifdef KR_headers
  22 f_setarg(argc, argv) int argc; char **argv;
  23 #else
  24 f_setarg(int argc, char **argv)
  25 #endif
  26 {
  27 f__xargc = argc;
  28 f__xargv = argv;
  29 }