libf2c/libF77/setarg.c


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23

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

#undef VOID
#include <stdlib.h>

#ifndef VOID
#define VOID void
#endif

int f__xargc;
char **f__xargv;

#ifdef __cplusplus
	}
#endif

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