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)