source/include/kuip.h

0001 #ifndef _KUIP_H
0002 #define _KUIP_H
0003 #include <cfortran/cfortran.h>
0004
0005 #ifdef __cplusplus
0006 extern "C" {
0007 #endif
0008 PROTOCCALLSFSUB3(KUCLOS,kuclos,INT,STRING,INT)
0009 #define KUCLOS(A1,A2,A3)    CCALLSFSUB3(KUCLOS,kuclos,INT,STRING,INT,A1,A2,A3)
0010
0011 PROTOCCALLSFSUB4(KUOPEN,kuopen,INT,STRING,STRING,PINT)
0012 #define KUOPEN(A1,A2,A3,A4) CCALLSFSUB4(KUOPEN,kuopen,INT,STRING,STRING,PINT,A1,A2,A3,A4)
0013
0014 PROTOCCALLSFSUB0(KUWHAG,kuwhag)
0015 #define KUWHAG() CCALLSFSUB0(KUWHAG,kuwhag)
0016 #ifdef __cplusplus
0017 } /* extern "C" */
0018 #endif
0019
0020 #endif /* #ifndef _KUIP_H */