14 #include "nfconfig.inc" 15 #include "ncfortran.h" 22 FCALLSCFUN7(NF_INT, nc_put_varm_text, NF_PUT_VARM_TEXT, nf_put_varm_text,
23 NCID, VARID, COORDS, COUNTS, STRIDES, MAPS, CBUF)
29 FCALLSCFUN7(NF_INT, nc_get_varm_text, NF_GET_VARM_TEXT, nf_get_varm_text,
30 NCID, VARID, COORDS, COUNTS, STRIDES, MAPS, CBUF)
36 #if NF_INT1_IS_C_SIGNED_CHAR 37 FCALLSCFUN7(NF_INT, nc_put_varm_schar, NF_PUT_VARM_INT1, nf_put_varm_int1,
38 NCID, VARID, COORDS, COUNTS, STRIDES, MAPS, INT1VARV)
39 #elif NF_INT1_IS_C_SHORT 40 FCALLSCFUN7(NF_INT, nc_put_varm_short, NF_PUT_VARM_INT1, nf_put_varm_int1,
41 NCID, VARID, COORDS, COUNTS, STRIDES, MAPS, INT1VARV)
42 #elif NF_INT1_IS_C_INT 43 FCALLSCFUN7(NF_INT, nc_put_varm_int, NF_PUT_VARM_INT1, nf_put_varm_int1,
44 NCID, VARID, COORDS, COUNTS, STRIDES, MAPS, INT1VARV)
45 #elif NF_INT1_IS_C_LONG 46 FCALLSCFUN7(NF_INT, nc_put_varm_long, NF_PUT_VARM_INT1, nf_put_varm_int1,
47 NCID, VARID, COORDS, COUNTS, STRIDES, MAPS, INT1VARV)
54 #if NF_INT1_IS_C_SIGNED_CHAR 55 FCALLSCFUN7(NF_INT, nc_get_varm_schar, NF_GET_VARM_INT1, nf_get_varm_int1,
56 NCID, VARID, COORDS, COUNTS, STRIDES, MAPS, PINT1VARV)
57 #elif NF_INT1_IS_C_SHORT 58 FCALLSCFUN7(NF_INT, nc_get_varm_short, NF_GET_VARM_INT1, nf_get_varm_int1,
59 NCID, VARID, COORDS, COUNTS, STRIDES, MAPS, PINT1VARV)
60 #elif NF_INT1_IS_C_INT 61 FCALLSCFUN7(NF_INT, nc_get_varm_int, NF_GET_VARM_INT1, nf_get_varm_int1,
62 NCID, VARID, COORDS, COUNTS, STRIDES, MAPS, PINT1VARV)
63 #elif NF_INT1_IS_C_LONG 64 FCALLSCFUN7(NF_INT, nc_get_varm_long, NF_GET_VARM_INT1, nf_get_varm_int1,
65 NCID, VARID, COORDS, COUNTS, STRIDES, MAPS, PINT1VARV)
72 #if NF_INT2_IS_C_SHORT 73 FCALLSCFUN7(NF_INT, nc_put_varm_short, NF_PUT_VARM_INT2, nf_put_varm_int2,
74 NCID, VARID, COORDS, COUNTS, STRIDES, MAPS, INT2VARV)
75 #elif NF_INT2_IS_C_INT 76 FCALLSCFUN7(NF_INT, nc_put_varm_int, NF_PUT_VARM_INT2, nf_put_varm_int2,
77 NCID, VARID, COORDS, COUNTS, STRIDES, MAPS, INT2VARV)
78 #elif NF_INT2_IS_C_LONG 79 FCALLSCFUN7(NF_INT, nc_put_varm_long, NF_PUT_VARM_INT2, nf_put_varm_int2,
80 NCID, VARID, COORDS, COUNTS, STRIDES, MAPS, INT2VARV)
87 #if NF_INT2_IS_C_SHORT 88 FCALLSCFUN7(NF_INT, nc_get_varm_short, NF_GET_VARM_INT2, nf_get_varm_int2,
89 NCID, VARID, COORDS, COUNTS, STRIDES, MAPS, PINT2VARV)
90 #elif NF_INT2_IS_C_INT 91 FCALLSCFUN7(NF_INT, nc_get_varm_int, NF_GET_VARM_INT2, nf_get_varm_int2,
92 NCID, VARID, COORDS, COUNTS, STRIDES, MAPS, PINT2VARV)
93 #elif NF_INT2_IS_C_LONG 94 FCALLSCFUN7(NF_INT, nc_get_varm_long, NF_GET_VARM_INT2, nf_get_varm_int2,
95 NCID, VARID, COORDS, COUNTS, STRIDES, MAPS, PINT2VARV)
103 FCALLSCFUN7(NF_INT, nc_put_varm_int, NF_PUT_VARM_INT, nf_put_varm_int,
104 NCID, VARID, COORDS, COUNTS, STRIDES, MAPS, INTVARV)
105 #elif NF_INT_IS_C_LONG 106 FCALLSCFUN7(NF_INT, nc_put_varm_long, NF_PUT_VARM_INT, nf_put_varm_int,
107 NCID, VARID, COORDS, COUNTS, STRIDES, MAPS, INTVARV)
115 FCALLSCFUN7(NF_INT, nc_get_varm_int, NF_GET_VARM_INT, nf_get_varm_int,
116 NCID, VARID, COORDS, COUNTS, STRIDES, MAPS, PINTVARV)
117 #elif NF_INT_IS_C_LONG 118 FCALLSCFUN7(NF_INT, nc_get_varm_long, NF_GET_VARM_INT, nf_get_varm_int,
119 NCID, VARID, COORDS, COUNTS, STRIDES, MAPS, PINTVARV)
126 #if NF_REAL_IS_C_DOUBLE 127 FCALLSCFUN7(NF_INT, nc_put_varm_double, NF_PUT_VARM_REAL, nf_put_varm_real,
128 NCID, VARID, COORDS, COUNTS, STRIDES, MAPS, DOUBLEVARV)
130 FCALLSCFUN7(NF_INT, nc_put_varm_float, NF_PUT_VARM_REAL, nf_put_varm_real,
131 NCID, VARID, COORDS, COUNTS, STRIDES, MAPS, REALVARV)
138 #if NF_REAL_IS_C_DOUBLE 139 FCALLSCFUN7(NF_INT, nc_get_varm_double, NF_GET_VARM_REAL, nf_get_varm_real,
140 NCID, VARID, COORDS, COUNTS, STRIDES, MAPS, PDOUBLEVARV)
142 FCALLSCFUN7(NF_INT, nc_get_varm_float, NF_GET_VARM_REAL, nf_get_varm_real,
143 NCID, VARID, COORDS, COUNTS, STRIDES, MAPS, PREALVARV)
150 FCALLSCFUN7(NF_INT, nc_put_varm_double, NF_PUT_VARM_DOUBLE, nf_put_varm_double,
151 NCID, VARID, COORDS, COUNTS, STRIDES, MAPS, DOUBLEVARV)
157 FCALLSCFUN7(NF_INT, nc_get_varm_double, NF_GET_VARM_DOUBLE, nf_get_varm_double,
158 NCID, VARID, COORDS, COUNTS, STRIDES, MAPS, PDOUBLEVARV)