14 #include "nfconfig.inc" 15 #include "ncfortran.h" 22 FCALLSCFUN6(NF_INT, nc_put_vars_text, NF_PUT_VARS_TEXT, nf_put_vars_text,
23 NCID, VARID, COORDS, COUNTS, STRIDES, CBUF)
29 FCALLSCFUN6(NF_INT, nc_get_vars_text, NF_GET_VARS_TEXT, nf_get_vars_text,
30 NCID, VARID, COORDS, COUNTS, STRIDES, CBUF)
36 #if NF_INT1_IS_C_SIGNED_CHAR 37 FCALLSCFUN6(NF_INT, nc_put_vars_schar, NF_PUT_VARS_INT1, nf_put_vars_int1,
38 NCID, VARID, COORDS, COUNTS, STRIDES, INT1VARV)
39 #elif NF_INT1_IS_C_SHORT 40 FCALLSCFUN6(NF_INT, nc_put_vars_short, NF_PUT_VARS_INT1, nf_put_vars_int1,
41 NCID, VARID, COORDS, COUNTS, STRIDES, INT1VARV)
42 #elif NF_INT1_IS_C_INT 43 FCALLSCFUN6(NF_INT, nc_put_vars_int, NF_PUT_VARS_INT1, nf_put_vars_int1,
44 NCID, VARID, COORDS, COUNTS, STRIDES, INT1VARV)
45 #elif NF_INT1_IS_C_LONG 46 FCALLSCFUN6(NF_INT, nc_put_vars_long, NF_PUT_VARS_INT1, nf_put_vars_int1,
47 NCID, VARID, COORDS, COUNTS, STRIDES, INT1VARV)
54 #if NF_INT1_IS_C_SIGNED_CHAR 55 FCALLSCFUN6(NF_INT, nc_get_vars_schar, NF_GET_VARS_INT1, nf_get_vars_int1,
56 NCID, VARID, COORDS, COUNTS, STRIDES, PINT1VARV)
57 #elif NF_INT1_IS_C_SHORT 58 FCALLSCFUN6(NF_INT, nc_get_vars_short, NF_GET_VARS_INT1, nf_get_vars_int1,
59 NCID, VARID, COORDS, COUNTS, STRIDES, PINT1VARV)
60 #elif NF_INT1_IS_C_INT 61 FCALLSCFUN6(NF_INT, nc_get_vars_int, NF_GET_VARS_INT1, nf_get_vars_int1,
62 NCID, VARID, COORDS, COUNTS, STRIDES, PINT1VARV)
63 #elif NF_INT1_IS_C_LONG 64 FCALLSCFUN6(NF_INT, nc_get_vars_long, NF_GET_VARS_INT1, nf_get_vars_int1,
65 NCID, VARID, COORDS, COUNTS, STRIDES, PINT1VARV)
72 #if NF_INT2_IS_C_SHORT 73 FCALLSCFUN6(NF_INT, nc_put_vars_short, NF_PUT_VARS_INT2, nf_put_vars_int2,
74 NCID, VARID, COORDS, COUNTS, STRIDES, INT2VARV)
75 #elif NF_INT2_IS_C_INT 76 FCALLSCFUN6(NF_INT, nc_put_vars_int, NF_PUT_VARS_INT2, nf_put_vars_int2,
77 NCID, VARID, COORDS, COUNTS, STRIDES, INT2VARV)
78 #elif NF_INT2_IS_C_LONG 79 FCALLSCFUN6(NF_INT, nc_put_vars_long, NF_PUT_VARS_INT2, nf_put_vars_int2,
80 NCID, VARID, COORDS, COUNTS, STRIDES, INT2VARV)
87 #if NF_INT2_IS_C_SHORT 88 FCALLSCFUN6(NF_INT, nc_get_vars_short, NF_GET_VARS_INT2, nf_get_vars_int2,
89 NCID, VARID, COORDS, COUNTS, STRIDES, PINT2VARV)
90 #elif NF_INT2_IS_C_INT 91 FCALLSCFUN6(NF_INT, nc_get_vars_int, NF_GET_VARS_INT2, nf_get_vars_int2,
92 NCID, VARID, COORDS, COUNTS, STRIDES, PINT2VARV)
93 #elif NF_INT2_IS_C_LONG 94 FCALLSCFUN6(NF_INT, nc_get_vars_long, NF_GET_VARS_INT2, nf_get_vars_int2,
95 NCID, VARID, COORDS, COUNTS, STRIDES, PINT2VARV)
103 FCALLSCFUN6(NF_INT, nc_put_vars_int, NF_PUT_VARS_INT, nf_put_vars_int,
104 NCID, VARID, COORDS, COUNTS, STRIDES, INTVARV)
105 #elif NF_INT_IS_C_LONG 106 FCALLSCFUN6(NF_INT, nc_put_vars_long, NF_PUT_VARS_INT, nf_put_vars_int,
107 NCID, VARID, COORDS, COUNTS, STRIDES, INTVARV)
115 FCALLSCFUN6(NF_INT, nc_get_vars_int, NF_GET_VARS_INT, nf_get_vars_int,
116 NCID, VARID, COORDS, COUNTS, STRIDES, PINTVARV)
117 #elif NF_INT_IS_C_LONG 118 FCALLSCFUN6(NF_INT, nc_get_vars_long, NF_GET_VARS_INT, nf_get_vars_int,
119 NCID, VARID, COORDS, COUNTS, STRIDES, PINTVARV)
126 #if NF_REAL_IS_C_DOUBLE 127 FCALLSCFUN6(NF_INT, nc_put_vars_double, NF_PUT_VARS_REAL, nf_put_vars_real,
128 NCID, VARID, COORDS, COUNTS, STRIDES, DOUBLEVARV)
130 FCALLSCFUN6(NF_INT, nc_put_vars_float, NF_PUT_VARS_REAL, nf_put_vars_real,
131 NCID, VARID, COORDS, COUNTS, STRIDES, REALVARV)
138 #if NF_REAL_IS_C_DOUBLE 139 FCALLSCFUN6(NF_INT, nc_get_vars_double, NF_GET_VARS_REAL, nf_get_vars_real,
140 NCID, VARID, COORDS, COUNTS, STRIDES, PDOUBLEVARV)
142 FCALLSCFUN6(NF_INT, nc_get_vars_float, NF_GET_VARS_REAL, nf_get_vars_real,
143 NCID, VARID, COORDS, COUNTS, STRIDES, PREALVARV)
150 FCALLSCFUN6(NF_INT, nc_put_vars_double, NF_PUT_VARS_DOUBLE, nf_put_vars_double,
151 NCID, VARID, COORDS, COUNTS, STRIDES, DOUBLEVARV)
157 FCALLSCFUN6(NF_INT, nc_get_vars_double, NF_GET_VARS_DOUBLE, nf_get_vars_double,
158 NCID, VARID, COORDS, COUNTS, STRIDES, PDOUBLEVARV)
160 FCALLSCFUN6(NF_INT, nc_put_vars, NF_PUT_VARS, nf_put_vars,
161 NCID, VARID, COORDS, COUNTS, STRIDES, PVOID)
163 FCALLSCFUN6(NF_INT, nc_get_vars, NF_GET_VARS, nf_get_vars,
164 NCID, VARID, COORDS, COUNTS, STRIDES, PVOID)