include/cfortran/cspack.h

0001 #ifndef _CSPACK_H
0002 #define _CSPACK_H
0003 #include <cfortran/cfortran.h>
0004
0005 #ifdef __cplusplus
0006 extern "C" {
0007 #endif
0008 PROTOCCALLSFSUB2(CZPUTA,czputa,STRING,PINT)
0009 #define CZPUTA(CHMAIL,ISTAT) CCALLSFSUB2(CZPUTA,czputa,STRING,PINT,CHMAIL,ISTAT)
0010
0011 PROTOCCALLSFSUB2(CZGETA,czgeta,PSTRING,PINT)
0012 #define CZGETA(CHMAIL,ISTAT) CCALLSFSUB2(CZGETA,czgeta,PSTRING,PINT,CHMAIL,ISTAT)
0013 #ifdef __cplusplus
0014 } /* extern "C" */
0015 #endif
0016
0017 #endif /* #ifndef _CSPACK_H */