14 #include "nfconfig.inc"
15 #include "ncfortran.h"
23 FCALLSCFUN4(NF_INT, nc_put_var1_text, NF_PUT_VAR1_TEXT, nf_put_var1_text,
24 NCID, VARID, COORDS, CBUF)
31 FCALLSCFUN4(NF_INT, nc_get_var1_text, NF_GET_VAR1_TEXT, nf_get_var1_text,
32 NCID, VARID, COORDS, CBUF)
38 #if NF_INT1_IS_C_SIGNED_CHAR
39 FCALLSCFUN4(NF_INT, nc_put_var1_schar, NF_PUT_VAR1_INT1, nf_put_var1_int1,
40 NCID, VARID, COORDS, INT1VAR)
41 #elif NF_INT1_IS_C_SHORT
42 FCALLSCFUN4(NF_INT, nc_put_var1_short, NF_PUT_VAR1_INT1, nf_put_var1_int1,
43 NCID, VARID, COORDS, INT1VAR)
44 #elif NF_INT1_IS_C_INT
45 FCALLSCFUN4(NF_INT, nc_put_var1_int, NF_PUT_VAR1_INT1, nf_put_var1_int1,
46 NCID, VARID, COORDS, INT1VAR)
47 #elif NF_INT1_IS_C_LONG
48 FCALLSCFUN4(NF_INT, nc_put_var1_long, NF_PUT_VAR1_INT1, nf_put_var1_int1,
49 NCID, VARID, COORDS, INT1VAR)
56 #if NF_INT1_IS_C_SIGNED_CHAR
57 FCALLSCFUN4(NF_INT, nc_get_var1_schar, NF_GET_VAR1_INT1, nf_get_var1_int1,
58 NCID, VARID, COORDS, PINT1VAR)
59 #elif NF_INT1_IS_C_SHORT
60 FCALLSCFUN4(NF_INT, nc_get_var1_short, NF_GET_VAR1_INT1, nf_get_var1_int1,
61 NCID, VARID, COORDS, PINT1VAR)
62 #elif NF_INT1_IS_C_INT
63 FCALLSCFUN4(NF_INT, nc_get_var1_int, NF_GET_VAR1_INT1, nf_get_var1_int1,
64 NCID, VARID, COORDS, PINT1VAR)
65 #elif NF_INT1_IS_C_LONG
66 FCALLSCFUN4(NF_INT, nc_get_var1_long, NF_GET_VAR1_INT1, nf_get_var1_int1,
67 NCID, VARID, COORDS, PINT1VAR)
74 #if NF_INT2_IS_C_SHORT
75 FCALLSCFUN4(NF_INT, nc_put_var1_short, NF_PUT_VAR1_INT2, nf_put_var1_int2,
76 NCID, VARID, COORDS, INT2VAR)
77 #elif NF_INT2_IS_C_INT
78 FCALLSCFUN4(NF_INT, nc_put_var1_int, NF_PUT_VAR1_INT2, nf_put_var1_int2,
79 NCID, VARID, COORDS, INT2VAR)
80 #elif NF_INT2_IS_C_LONG
81 FCALLSCFUN4(NF_INT, nc_put_var1_long, NF_PUT_VAR1_INT2, nf_put_var1_int2,
82 NCID, VARID, COORDS, INT2VAR)
89 #if NF_INT2_IS_C_SHORT
90 FCALLSCFUN4(NF_INT, nc_get_var1_short, NF_GET_VAR1_INT2, nf_get_var1_int2,
91 NCID, VARID, COORDS, PINT2VAR)
92 #elif NF_INT2_IS_C_INT
93 FCALLSCFUN4(NF_INT, nc_get_var1_int, NF_GET_VAR1_INT2, nf_get_var1_int2,
94 NCID, VARID, COORDS, PINT2VAR)
95 #elif NF_INT2_IS_C_LONG
96 FCALLSCFUN4(NF_INT, nc_get_var1_long, NF_GET_VAR1_INT2, nf_get_var1_int2,
97 NCID, VARID, COORDS, PINT2VAR)
105 FCALLSCFUN4(NF_INT, nc_put_var1_int, NF_PUT_VAR1_INT, nf_put_var1_int,
106 NCID, VARID, COORDS, INTVAR)
107 #elif NF_INT_IS_C_LONG
108 FCALLSCFUN4(NF_INT, nc_put_var1_long, NF_PUT_VAR1_INT, nf_put_var1_int,
109 NCID, VARID, COORDS, INTVAR)
117 FCALLSCFUN4(NF_INT, nc_get_var1_int, NF_GET_VAR1_INT, nf_get_var1_int,
118 NCID, VARID, COORDS, PINTVAR)
119 #elif NF_INT_IS_C_LONG
120 FCALLSCFUN4(NF_INT, nc_get_var1_long, NF_GET_VAR1_INT, nf_get_var1_int,
121 NCID, VARID, COORDS, PINTVAR)
128 #if NF_REAL_IS_C_DOUBLE
129 FCALLSCFUN4(NF_INT, nc_put_var1_double, NF_PUT_VAR1_REAL, nf_put_var1_real,
130 NCID, VARID, COORDS, DOUBLEVAR)
132 FCALLSCFUN4(NF_INT, nc_put_var1_float, NF_PUT_VAR1_REAL, nf_put_var1_real,
133 NCID, VARID, COORDS, REALVAR)
140 #if NF_REAL_IS_C_DOUBLE
141 FCALLSCFUN4(NF_INT, nc_get_var1_double, NF_GET_VAR1_REAL, nf_get_var1_real,
142 NCID, VARID, COORDS, PDOUBLEVAR)
144 FCALLSCFUN4(NF_INT, nc_get_var1_float, NF_GET_VAR1_REAL, nf_get_var1_real,
145 NCID, VARID, COORDS, PREALVAR)
152 FCALLSCFUN4(NF_INT, nc_put_var1_double, NF_PUT_VAR1_DOUBLE, nf_put_var1_double,
153 NCID, VARID, COORDS, DOUBLEVAR)
159 FCALLSCFUN4(NF_INT, nc_get_var1_double, NF_GET_VAR1_DOUBLE, nf_get_var1_double,
160 NCID, VARID, COORDS, PDOUBLEVAR)
162 FCALLSCFUN4(NF_INT, nc_put_var1, NF_PUT_VAR1, nf_put_var1,
163 NCID, VARID, COORDS, PVOID)
165 FCALLSCFUN4(NF_INT, nc_get_var1, NF_GET_VAR1, nf_get_var1,
166 NCID, VARID, COORDS, PVOID)