1 /* fstrtok.c == fstrtok.C */ /* anonymous ftp@zebra.desy.de */
2 /* An example from cfortran.h package. Requires fstrtok_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
9
10
11 #include <string.h>
FCALLSCFUN2(STRING,strtok,CSTRTOK,cstrtok,STRING,STRING)12 FCALLSCFUN2(STRING,strtok,CSTRTOK,cstrtok, STRING, STRING)
13
14 PROTOCCALLSFSUB0(FSTRTOK,fstrtok)
15 #define FSTRTOK() CCALLSFSUB0(FSTRTOK,fstrtok)
16
17 main() {FSTRTOK(); return EXIT_SUCCESS;}
18