NetCDF-Fortran  4.4.4
fort-varmio.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 varm functions.
5 
6 Copyright 2006, University Corporation for Atmospheric Research. See
7 the COPYRIGHT file for copying and redistribution conditions.
8 
9 $Id: fort-varmio.c,v 1.9 2006/08/16 03:55:12 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 values from a FORTRAN CHARACTER*(*) variable.
21  */
22 FCALLSCFUN7(NF_INT, nc_put_varm_text, NF_PUT_VARM_TEXT, nf_put_varm_text,
23  NCID, VARID, COORDS, COUNTS, STRIDES, MAPS, CBUF)
24 
25 
26 /*
27  * Read values into a FORTRAN CHARACTER*(*) variable.
28  */
29 FCALLSCFUN7(NF_INT, nc_get_varm_text, NF_GET_VARM_TEXT, nf_get_varm_text,
30  NCID, VARID, COORDS, COUNTS, STRIDES, MAPS, CBUF)
31 
32 
33 /*
34  * Write values from a FORTRAN INTEGER*1 variable array.
35  */
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)
48 #endif
49 
50 
51 /*
52  * Read values into a FORTRAN INTEGER*1 variable array.
53  */
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)
66 #endif
67 
68 
69 /*
70  * Write values from a FORTRAN INTEGER*2 variable array.
71  */
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)
81 #endif
82 
83 
84 /*
85  * Read values into a FORTRAN INTEGER*2 variable array.
86  */
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)
96 #endif
97 
98 
99 /*
100  * Write values from a FORTRAN INTEGER variable array.
101  */
102 #if NF_INT_IS_C_INT
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)
108 #endif
109 
110 
111 /*
112  * Read values into a FORTRAN INTEGER variable array.
113  */
114 #if NF_INT_IS_C_INT
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)
120 #endif
121 
122 
123 /*
124  * Write values from a FORTRAN REAL variable array.
125  */
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)
129 #else
130 FCALLSCFUN7(NF_INT, nc_put_varm_float, NF_PUT_VARM_REAL, nf_put_varm_real,
131  NCID, VARID, COORDS, COUNTS, STRIDES, MAPS, REALVARV)
132 #endif
133 
134 
135 /*
136  * Read values into a FORTRAN REAL variable array.
137  */
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)
141 #else
142 FCALLSCFUN7(NF_INT, nc_get_varm_float, NF_GET_VARM_REAL, nf_get_varm_real,
143  NCID, VARID, COORDS, COUNTS, STRIDES, MAPS, PREALVARV)
144 #endif
145 
146 
147 /*
148  * Write values from a FORTRAN DOUBLEPRECISION variable array.
149  */
150 FCALLSCFUN7(NF_INT, nc_put_varm_double, NF_PUT_VARM_DOUBLE, nf_put_varm_double,
151  NCID, VARID, COORDS, COUNTS, STRIDES, MAPS, DOUBLEVARV)
152 
153 
154 /*
155  * Read values into a FORTRAN DOUBLEPRECISION variable array.
156  */
157 FCALLSCFUN7(NF_INT, nc_get_varm_double, NF_GET_VARM_DOUBLE, nf_get_varm_double,
158  NCID, VARID, COORDS, COUNTS, STRIDES, MAPS, PDOUBLEVARV)
integer function nf_put_varm_text(ncid, varid, start, counts, strides, maps, text)
Definition: nf_varmio.F90:40
integer function nf_put_varm_int2(ncid, varid, start, counts, strides, maps, i2vals)
Definition: nf_varmio.F90:260
#define INTVARV
Definition: ncfortran.h:367
integer function nf_get_varm_int1(ncid, varid, start, counts, strides, maps, i1vals)
Definition: nf_varmio.F90:692
integer function nf_get_varm_text(ncid, varid, start, counts, strides, maps, text)
Definition: nf_varmio.F90:555
integer function nf_get_varm_real(ncid, varid, start, counts, strides, maps, rvals)
Definition: nf_varmio.F90:930
integer function nf_put_varm_int1(ncid, varid, start, counts, strides, maps, i1vals)
Definition: nf_varmio.F90:176
#define FCALLSCFUN7(T0, CN, UN, LN, T1, T2, T3, T4, T5, T6, T7)
Definition: cfortran.h:2427
#define PDOUBLEVARV
Definition: ncfortran.h:445
#define REALVARV
Definition: ncfortran.h:407
#define NF_INT
Definition: ncfortran.h:19
#define PINT2VARV
Definition: ncfortran.h:341
#define PREALVARV
Definition: ncfortran.h:413
integer function nf_get_varm_int(ncid, varid, start, counts, strides, maps, ivals)
Definition: nf_varmio.F90:857
#define INT1VARV
Definition: ncfortran.h:291
integer function nf_put_varm_double(ncid, varid, start, counts, strides, maps, dvals)
Definition: nf_varmio.F90:487
#define DOUBLEVARV
Definition: ncfortran.h:439
integer function nf_get_varm_int2(ncid, varid, start, counts, strides, maps, i2vals)
Definition: nf_varmio.F90:776
integer function nf_put_varm_real(ncid, varid, start, counts, strides, maps, rvals)
Definition: nf_varmio.F90:414
#define PINT1VARV
Definition: ncfortran.h:297
#define INT2VARV
Definition: ncfortran.h:335
#define PINTVARV
Definition: ncfortran.h:373
integer function nf_put_varm_int(ncid, varid, start, counts, strides, maps, ivals)
Definition: nf_varmio.F90:341
integer function nf_get_varm_double(ncid, varid, start, counts, strides, maps, dvals)
Definition: nf_varmio.F90:1003

Return to the Main Unidata NetCDF page.
Generated on Thu Nov 9 2017 06:56:52 for NetCDF-Fortran. NetCDF is a Unidata library.