libf2c/libF77/setarg.c


1
2
3
4
5
6
7
8
9
10
11
12
13
14

/* Set up the global argc/argv info for use by getarg_, iargc_, and
   g77's inlined intrinsic equivalents.  */

#include <stdlib.h>

int f__xargc;
char **f__xargv;

void
f_setarg (int argc, char **argv)
{
  f__xargc = argc;
  f__xargv = argv;
}