This commit was generated by cvs2svn to track changes on a CVS vendor

[unix-history] / lib / libF77 / iargc_.c

#include "f2c.h"

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