NetCDF-Fortran  4.4.4
fort-var1io.c
Go to the documentation of this file.
1 /*
2 This file is part of the netCDF Fortran 77 API.
3 
4 This file handles the netCDF var1 functions.
5 
6 Copyright 2006, University Corporation for Atmospheric Research. See
7 the COPYRIGHT file for copying and redistribution conditions.
8 
9 $Id: fort-var1io.c,v 1.10 2008/02/25 17:24:24 ed Exp $
10 */
11 
12 #include <config.h>
13 #include "netcdf.h"
14 #include "nfconfig.inc"
15 #include "ncfortran.h"
16 #include "fort-lib.h"
17 
18 
19 /*
20  * Write a single value from a FORTRAN CHARACTER*(*) variable (the
21  * `single value' is the whole string).
22  */
23 FCALLSCFUN4(NF_INT, nc_put_var1_text, NF_PUT_VAR1_TEXT, nf_put_var1_text,
24  NCID, VARID, COORDS, CBUF)
25 
26 
27 /*
28  * Read a single value into a FORTRAN CHARACTER*(*) variable (the
29  * `single value' is the whole string).
30  */
31 FCALLSCFUN4(NF_INT, nc_get_var1_text, NF_GET_VAR1_TEXT, nf_get_var1_text,
32  NCID, VARID, COORDS, CBUF)
33 
34 
35 /*
36  * Write a single value from a FORTRAN INTEGER*1 variable.
37  */
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)
50 #endif
51 
52 
53 /*
54  * Read a single value into a FORTRAN INTEGER*1 variable.
55  */
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)
68 #endif
69 
70 
71 /*
72  * Write a single value from a FORTRAN INTEGER*2 variable.
73  */
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)
83 #endif
84 
85 
86 /*
87  * Read a single value into a FORTRAN INTEGER*2 variable.
88  */
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)
98 #endif
99 
100 
101 /*
102  * Write a single value from a FORTRAN INTEGER variable.
103  */
104 #if NF_INT_IS_C_INT
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)
110 #endif
111 
112 
113 /*
114  * Read a single value into a FORTRAN INTEGER variable.
115  */
116 #if NF_INT_IS_C_INT
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)
122 #endif
123 
124 
125 /*
126  * Write a single value from a FORTRAN REAL variable.
127  */
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)
131 #else
132 FCALLSCFUN4(NF_INT, nc_put_var1_float, NF_PUT_VAR1_REAL, nf_put_var1_real,
133  NCID, VARID, COORDS, REALVAR)
134 #endif
135 
136 
137 /*
138  * Read a single value into a FORTRAN REAL variable.
139  */
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)
143 #else
144 FCALLSCFUN4(NF_INT, nc_get_var1_float, NF_GET_VAR1_REAL, nf_get_var1_real,
145  NCID, VARID, COORDS, PREALVAR)
146 #endif
147 
148 
149 /*
150  * Write a single value from a FORTRAN DOUBLEPRECISION variable.
151  */
152 FCALLSCFUN4(NF_INT, nc_put_var1_double, NF_PUT_VAR1_DOUBLE, nf_put_var1_double,
153  NCID, VARID, COORDS, DOUBLEVAR)
154 
155 
156 /*
157  * Read a single value into a FORTRAN DOUBLEPRECISION variable.
158  */
159 FCALLSCFUN4(NF_INT, nc_get_var1_double, NF_GET_VAR1_DOUBLE, nf_get_var1_double,
160  NCID, VARID, COORDS, PDOUBLEVAR)
161 
162 FCALLSCFUN4(NF_INT, nc_put_var1, NF_PUT_VAR1, nf_put_var1,
163  NCID, VARID, COORDS, PVOID)
164 
165 FCALLSCFUN4(NF_INT, nc_get_var1, NF_GET_VAR1, nf_get_var1,
166  NCID, VARID, COORDS, PVOID)
integer function nf_get_var1_double(ncid, varid, ndex, dval)
Definition: nf_var1io.F90:686
integer function nf_put_var1_int2(ncid, varid, ndex, ival)
Definition: nf_var1io.F90:145
integer function nf_put_var1_double(ncid, varid, ndex, dval)
Definition: nf_var1io.F90:309
integer function nf_put_var1_int1(ncid, varid, ndex, ival)
Definition: nf_var1io.F90:83
FCALLSCFUN4(NF_INT, c_ncddef, NCDDEF, ncddef, NCID, STRING, DIMLEN, PRCODE)
#define NF_INT
Definition: ncfortran.h:19
integer function nf_get_var1_text(ncid, varid, ndex, chval)
Definition: nf_var1io.F90:412
integer function nf_get_var1_int(ncid, varid, ndex, ival)
Definition: nf_var1io.F90:582
integer function nf_put_var1_int(ncid, varid, ndex, ival)
Definition: nf_var1io.F90:205
integer function nf_put_var1_real(ncid, varid, ndex, rval)
Definition: nf_var1io.F90:258
integer function nf_get_var1_int2(ncid, varid, ndex, ival)
Definition: nf_var1io.F90:522
integer function nf_get_var1(ncid, varid, ndex, values)
Definition: nf_var1io.F90:733
integer function nf_get_var1_int1(ncid, varid, ndex, ival)
Definition: nf_var1io.F90:460
integer function nf_get_var1_real(ncid, varid, ndex, rval)
Definition: nf_var1io.F90:635
integer function nf_put_var1(ncid, varid, ndex, values)
Definition: nf_var1io.F90:356
integer function nf_put_var1_text(ncid, varid, ndex, chval)
Definition: nf_var1io.F90:36

Return to the Main Unidata NetCDF page.
Generated on Tue Jul 17 2018 12:21:03 for NetCDF-Fortran. NetCDF is a Unidata library.