File indexing completed on 2024-05-18 08:29:41
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 }
0015 #endif
0016
0017 #endif
