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
1.5.1