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)