1 2 3 4 5 6 7 8 9 10 11
#include "f2c.h" #ifdef KR_headers ftnint iargc_() #else ftnint iargc_(void) #endif { extern int xargc; return ( xargc - 1 ); }