aboutsummaryrefslogtreecommitdiff
path: root/libf2c/libF77/setarg.c
blob: 49515746f4825ca7cff85083c291cf66e69411d1 (plain)
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;
}