10
* This checks the functioning of the include file gaf2cp.h.
18
#define PARG_ F77_FUNC(parg,PARG)
23
Integer limit = F2C_IARGC();
24
printf("argc=%d\n", (int)limit);
26
for (i=0; i<limit; i++) {
27
char fstring[ARGLIMIT];
28
char cstring[ARGLIMIT];
29
F2C_GETARG(&i, fstring, ARGLIMIT);
30
ga_f2cstring(fstring, ARGLIMIT, cstring, ARGLIMIT);
31
(void) printf("argv(%ld)=%s\n", (long)i, cstring);