4BSD/usr/src/lib/libF77/iargc_.c

Compare this file to the similar file:
Show the results in this format: 

long int iargc_()
{
extern int xargc;
return ( xargc - 1 );
}