Go to the documentation of this file.00001 #include "f2c.h"
00002 #ifdef __cplusplus
00003 extern "C" {
00004 #endif
00005
00006 #ifdef KR_headers
00007 ftnint iargc_()
00008 #else
00009 ftnint iargc_(void)
00010 #endif
00011 {
00012 extern int xargc;
00013 return ( xargc - 1 );
00014 }
00015 #ifdef __cplusplus
00016 }
00017 #endif