xref: /csrg-svn/usr.bin/f77/libF77/CCI/iargc_.c (revision 29957)
1*29957Smckusick /*
2*29957Smckusick  *	@(#)iargc_.c	5.1 (Berkeley) 11/03/86
3*29957Smckusick  */
4*29957Smckusick 
5*29957Smckusick long int iargc_()
6*29957Smckusick {
7*29957Smckusick extern int xargc;
8*29957Smckusick return ( xargc - 1 );
9*29957Smckusick }
10