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

#include "f2c.h"

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