iargc_.c
[
plain text
]
#
include
"f2c.h"
ftnint
G77_iargc_0
(
void
) {
extern
int
f__xargc;
return
(f__xargc - 1); }