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 #include <stdlib.h>
   5
   6 int f__xargc;
   7 char **f__xargv;
   8
   9 void
  10 f_setarg (int argc, char **argv)
  11 {
  12   f__xargc = argc;
  13   f__xargv = argv;
  14 }