summaryrefslogtreecommitdiffstats
path: root/contrib/libf2c/libF77/iargc_.c
blob: 1e04c7744b3bfbf4f3ea32f3155364d47a161095 (plain) 
1
2
3
4
5
6
7
8
9
10
11

#include "f2c.h"

#ifdef KR_headers
ftnint G77_iargc_0 ()
#else
ftnint G77_iargc_0 (void)
#endif
{
extern int f__xargc;
return ( f__xargc - 1 );
}
OpenPOWER on IntegriCloud