1 /* fe.c == fe.C */ /* anonymous ftp@zebra.desy.de */
2 /* An example from cfortran.h package. Requires fe_f.f */
3 /* Burkhard Burow burow@desy.de 1990 - 1997. */
4
5 #include <stdio.h>
6 #include <stdlib.h> /* EXIT_SUCCESS */
7 #include "cfortran.h"
8
Ce(char v[][5])9 void Ce(char v[][5])
10 {printf("ce: had string vector argument:%s,%s,%s.\n",v[0],v[1],v[2]);}
11 #define ce_STRV_A1 TERM_CHARS(' ',1)
FCALLSCSUB1(Ce,CE,ce,STRINGV)12 FCALLSCSUB1(Ce,CE,ce, STRINGV)
13
14
15 PROTOCCALLSFSUB1(FE,fe, STRINGV)
16 #define FE(A1) CCALLSFSUB1(FE,fe, STRINGV, A1)
17
18 main()
19 {static char v[][5] = {"0000", "1", "22", ""}; FE(v); return EXIT_SUCCESS;}
20