14 #include "nfconfig.inc"
15 #include "ncfortran.h"
22 FCALLSCFUN3(NF_INT, nc_put_var_text, NF_PUT_VAR_TEXT, nf_put_var_text,
29 FCALLSCFUN3(NF_INT, nc_get_var_text, NF_GET_VAR_TEXT, nf_get_var_text,
36 #if NF_INT1_IS_C_SIGNED_CHAR
37 FCALLSCFUN3(NF_INT, nc_put_var_schar, NF_PUT_VAR_INT1, nf_put_var_int1,
39 #elif NF_INT1_IS_C_SHORT
40 FCALLSCFUN3(NF_INT, nc_put_var_short, NF_PUT_VAR_INT1, nf_put_var_int1,
42 #elif NF_INT1_IS_C_INT
43 FCALLSCFUN3(NF_INT, nc_put_var_int, NF_PUT_VAR_INT1, nf_put_var_int1,
45 #elif NF_INT1_IS_C_LONG
46 FCALLSCFUN3(NF_INT, nc_put_var_long, NF_PUT_VAR_INT1, nf_put_var_int1,
54 #if NF_INT1_IS_C_SIGNED_CHAR
55 FCALLSCFUN3(NF_INT, nc_get_var_schar, NF_GET_VAR_INT1, nf_get_var_int1,
56 NCID, VARID, PINT1VAR)
57 #elif NF_INT1_IS_C_SHORT
58 FCALLSCFUN3(NF_INT, nc_get_var_short, NF_GET_VAR_INT1, nf_get_var_int1,
59 NCID, VARID, PINT1VAR)
60 #elif NF_INT1_IS_C_INT
61 FCALLSCFUN3(NF_INT, nc_get_var_int, NF_GET_VAR_INT1, nf_get_var_int1,
62 NCID, VARID, PINT1VAR)
63 #elif NF_INT1_IS_C_LONG
64 FCALLSCFUN3(NF_INT, nc_get_var_long, NF_GET_VAR_INT1, nf_get_var_int1,
65 NCID, VARID, PINT1VAR)
72 #if NF_INT2_IS_C_SHORT
73 FCALLSCFUN3(NF_INT, nc_put_var_short, NF_PUT_VAR_INT2, nf_put_var_int2,
75 #elif NF_INT2_IS_C_INT
76 FCALLSCFUN3(NF_INT, nc_put_var_int, NF_PUT_VAR_INT2, nf_put_var_int2,
78 #elif NF_INT2_IS_C_LONG
79 FCALLSCFUN3(NF_INT, nc_put_var_long, NF_PUT_VAR_INT2, nf_put_var_int2,
87 #if NF_INT2_IS_C_SHORT
88 FCALLSCFUN3(NF_INT, nc_get_var_short, NF_GET_VAR_INT2, nf_get_var_int2,
89 NCID, VARID, PINT2VAR)
90 #elif NF_INT2_IS_C_INT
91 FCALLSCFUN3(NF_INT, nc_get_var_int, NF_GET_VAR_INT2, nf_get_var_int2,
92 NCID, VARID, PINT2VAR)
93 #elif NF_INT2_IS_C_LONG
94 FCALLSCFUN3(NF_INT, nc_get_var_long, NF_GET_VAR_INT2, nf_get_var_int2,
95 NCID, VARID, PINT2VAR)
103 FCALLSCFUN3(NF_INT, nc_put_var_int, NF_PUT_VAR_INT, nf_put_var_int,
105 #elif NF_INT_IS_C_LONG
106 FCALLSCFUN3(NF_INT, nc_put_var_long, NF_PUT_VAR_INT, nf_put_var_int,
115 FCALLSCFUN3(NF_INT, nc_get_var_int, NF_GET_VAR_INT, nf_get_var_int,
116 NCID, VARID, PINTVAR)
117 #elif NF_INT_IS_C_LONG
118 FCALLSCFUN3(NF_INT, nc_get_var_long, NF_GET_VAR_INT, nf_get_var_int,
119 NCID, VARID, PINTVAR)
126 #if NF_REAL_IS_C_DOUBLE
127 FCALLSCFUN3(NF_INT, nc_put_var_double, NF_PUT_VAR_REAL, nf_put_var_real,
128 NCID, VARID, DOUBLEVAR)
130 FCALLSCFUN3(NF_INT, nc_put_var_float, NF_PUT_VAR_REAL, nf_put_var_real,
131 NCID, VARID, REALVAR)
138 #if NF_REAL_IS_C_DOUBLE
139 FCALLSCFUN3(NF_INT, nc_get_var_double, NF_GET_VAR_REAL, nf_get_var_real,
140 NCID, VARID, PDOUBLEVAR)
142 FCALLSCFUN3(NF_INT, nc_get_var_float, NF_GET_VAR_REAL, nf_get_var_real,
143 NCID, VARID, PREALVAR)
150 FCALLSCFUN3(NF_INT, nc_put_var_double, NF_PUT_VAR_DOUBLE, nf_put_var_double,
151 NCID, VARID, DOUBLEVAR)
157 FCALLSCFUN3(NF_INT, nc_get_var_double, NF_GET_VAR_DOUBLE, nf_get_var_double,
158 NCID, VARID, PDOUBLEVAR)
164 FCALLSCFUN3(NF_INT, nc_put_var, NF_PUT_VAR, nf_put_var, NCID, VARID, PVOID)
167 FCALLSCFUN3(NF_INT, nc_get_var, NF_GET_VAR, nf_get_var, NCID, VARID, PVOID)