NetCDF-Fortran  4.4.3
fort-nc4.c
1 /*
2 This file is part of netcdf-4, a netCDF-like interface for HDF5, or a
3 HDF5 backend for netCDF, depending on your point of view.
4 
5 This file provides the fortran functions for the new functions added
6 to the API as part of netCDF-4. This file is only compiled for
7 netCDF-4 builds.
8 
9 Copyright 2005, University Corporation for Atmospheric Research. See
10 COPYRIGHT file for copying and redistribution conditions.
11 
12 $Id: fort-nc4.c,v 1.55 2010/01/19 18:31:43 ed Exp $
13 */
14 
15 #include <config.h>
16 #include "netcdf_f.h"
17 #include <ncfortran.h>
18 #include <fort-lib.h>
19 
20 
21 FCALLSCFUN5(NF_INT, nc_create_par_fortran, NF_CREATE_PAR, nf_create_par,
22  STRING, FINT2CINT, FINT2CINT, FINT2CINT, PCINT2FINT)
23 
24 FCALLSCFUN5(NF_INT, nc_open_par_fortran, NF_OPEN_PAR, nf_open_par,
25  STRING, FINT2CINT, FINT2CINT, FINT2CINT, PCINT2FINT)
26 
27 FCALLSCFUN3(NF_INT, nc_var_par_access, NF_VAR_PAR_ACCESS, nf_var_par_access,
28  NCID, VARID, FINT2CINT)
29 
30 FCALLSCFUN3(NF_INT, nc_inq_ncid, NF_INQ_NCID, nf_inq_ncid,
31  NCID, STRING, PCINT2FINT)
32 
33 FCALLSCFUN3(NF_INT, nc_inq_grps, NF_INQ_GRPS, nf_inq_grps,
34  NCID, PCINT2FINT, INTV)
35 
36 FCALLSCFUN2(NF_INT, nc_inq_grpname, NF_INQ_GRPNAME, nf_inq_grpname,
37  NCID, PSTRING)
38 
39 FCALLSCFUN3(NF_INT, nc_inq_grpname_full, NF_INQ_GRPNAME_FULL, nf_inq_grpname_full,
40  NCID, PSIZET, PSTRING)
41 
42 FCALLSCFUN2(NF_INT, nc_inq_grpname_len, NF_INQ_GRPNAME_LEN, nf_inq_grpname_len,
43  NCID, PSIZET)
44 
45 FCALLSCFUN2(NF_INT, nc_inq_grp_parent, NF_INQ_GRP_PARENT, nf_inq_grp_parent,
46  NCID, PCINT2FINT)
47 
48 FCALLSCFUN3(NF_INT, nc_inq_grp_ncid, NF_INQ_GRP_NCID, nf_inq_grp_ncid,
49  NCID, STRING, PCINT2FINT)
50 
51 FCALLSCFUN3(NF_INT, nc_inq_grp_full_ncid, NF_INQ_GRP_FULL_NCID, nf_inq_grp_full_ncid,
52  NCID, STRING, PCINT2FINT)
53 
54 FCALLSCFUN3(NF_INT, nc_inq_varids_f, NF_INQ_VARIDS, nf_inq_varids,
55  NCID, PCINT2FINT, INTV)
56 
57 FCALLSCFUN4(NF_INT, nc_inq_dimids_f, NF_INQ_DIMIDS, nf_inq_dimids,
58  NCID, PCINT2FINT, INTV, FINT2CINT)
59 
60 FCALLSCFUN3(NF_INT, nc_inq_typeids, NF_INQ_TYPEIDS, nf_inq_typeids,
61  NCID, PCINT2FINT, INTV)
62 
63 FCALLSCFUN3(NF_INT, nc_inq_typeid, NF_INQ_TYPEID, nf_inq_typeid,
64  NCID, STRING, PCINT2FINT)
65 
66 FCALLSCFUN3(NF_INT, nc_def_grp, NF_DEF_GRP, nf_def_grp,
67  NCID, STRING, PCINT2FINT)
68 
69 FCALLSCFUN2(NF_INT, nc_rename_grp, NF_RENAME_GRP, nf_rename_grp,
70  NCID, STRING)
71 
72 FCALLSCFUN4(NF_INT, nc_def_compound, NF_DEF_COMPOUND, nf_def_compound,
73  NCID, FINT2CSIZET, STRING, PCINT2FINT)
74 
75 FCALLSCFUN5(NF_INT, nc_insert_compound, NF_INSERT_COMPOUND, nf_insert_compound,
76  NCID, FINT2CINT, STRING, FINT2CSIZET, FINT2CINT)
77 
78 FCALLSCFUN7(NF_INT, nc_insert_array_compound_f, NF_INSERT_ARRAY_COMPOUND,
79  nf_insert_array_compound,
80  NCID, FINT2CINT, STRING, FINT2CSIZET,
81  FINT2CINT, FINT2CINT, INTV)
82 
83 FCALLSCFUN4(NF_INT, nc_inq_type, NF_INQ_TYPE, nf_inq_type,
84  NCID, FINT2CINT, PSTRING, PSIZET)
85 
86 FCALLSCFUN5(NF_INT, nc_inq_compound, NF_INQ_COMPOUND, nf_inq_compound,
87  NCID, FINT2CINT, STRING, PSIZET, PSIZET)
88 
89 FCALLSCFUN3(NF_INT, nc_inq_compound_name, NF_INQ_COMPOUND_NAME, nf_inq_compound_name,
90  NCID, FINT2CINT, STRING)
91 
92 FCALLSCFUN3(NF_INT, nc_inq_compound_size, NF_INQ_COMPOUND_SIZE, nf_inq_compound_size,
93  NCID, FINT2CINT, PSIZET)
94 
95 FCALLSCFUN3(NF_INT, nc_inq_compound_nfields, NF_INQ_COMPOUND_NFIELDS,
96  nf_inq_compound_nfields,
97  NCID, FINT2CINT, PSIZET)
98 
99 FCALLSCFUN8(NF_INT, nc_inq_compound_field_f, NF_INQ_COMPOUND_FIELD,
100  nf_inq_compound_field,
101  NCID, FINT2CINT, VARID, PSTRING, PSIZET, PCINT2FINT,
102  PCINT2FINT, INTV)
103 
104 FCALLSCFUN4(NF_INT, nc_inq_compound_fieldname, NF_INQ_COMPOUND_FIELDNAME,
105  nf_inq_compound_fieldname,
106  NCID, FINT2CINT, FIELDIDX, PSTRING)
107 
108 FCALLSCFUN4(NF_INT, nc_inq_compound_fieldindex, NF_INQ_COMPOUND_FIELDINDEX,
109  nf_inq_compound_fieldindex,
110  NCID, FINT2CINT, STRING, PCNDX2FNDX)
111 
112 FCALLSCFUN4(NF_INT, nc_inq_compound_fieldoffset, NF_INQ_COMPOUND_FIELDOFFSET,
113  nf_inq_compound_fieldoffset,
114  NCID, FINT2CINT, FIELDIDX, PSIZET)
115 
116 FCALLSCFUN4(NF_INT, nc_inq_compound_fieldtype, NF_INQ_COMPOUND_FIELDTYPE,
117  nf_inq_compound_fieldtype,
118  NCID, FINT2CINT, FIELDIDX, PCINT2FINT)
119 
120 FCALLSCFUN4(NF_INT, nc_inq_compound_fieldndims, NF_INQ_COMPOUND_FIELDNDIMS,
121  nf_inq_compound_fieldndims,
122  NCID, FINT2CINT, FIELDIDX, PCINT2FINT)
123 
124 FCALLSCFUN4(NF_INT, nc_inq_compound_fielddim_sizes, NF_INQ_COMPOUND_FIELDDIM_SIZES,
125  nf_inq_compound_fielddim_sizes,
126  NCID, FINT2CINT, FIELDIDX, PCINT2FINT)
127 
128 FCALLSCFUN4(NF_INT, nc_def_vlen, NF_DEF_VLEN, nf_def_vlen,
129  NCID, STRING, FINT2CINT, PCINT2FINT)
130 
131 FCALLSCFUN5(NF_INT, nc_inq_vlen, NF_INQ_VLEN, nf_inq_vlen,
132  NCID, FINT2CINT, PSTRING, PSIZET, PCINT2FINT)
133 
134 FCALLSCFUN7(NF_INT, nc_inq_user_type, NF_INQ_USER_TYPE, nf_inq_user_type,
135  NCID, FINT2CINT, PSTRING, PSIZET, PCINT2FINT, PSIZET, PCINT2FINT)
136 
137 FCALLSCFUN4(NF_INT, nc_def_enum, NF_DEF_ENUM, nf_def_enum,
138  NCID, FINT2CINT, STRING, PCINT2FINT)
139 
140 FCALLSCFUN4(NF_INT, nc_insert_enum, NF_INSERT_ENUM, nf_insert_enum,
141  NCID, FINT2CINT, STRING, PVOID)
142 
143 FCALLSCFUN6(NF_INT, nc_inq_enum, NF_INQ_ENUM, nf_inq_enum,
144  NCID, FINT2CINT, STRING, PCINT2FINT, PSIZET, PSIZET)
145 
146 FCALLSCFUN5(NF_INT, nc_inq_enum_member, NF_INQ_ENUM_MEMBER, nf_inq_enum_member,
147  NCID, FINT2CINT, FNDX2CNDX, PSTRING, PVOID)
148 
149 FCALLSCFUN4(NF_INT, nc_inq_enum_ident, NF_INQ_ENUM_IDENT, nf_inq_enum_ident,
150  NCID, FINT2CINT, FINT2CINT, PSTRING)
151 
152 FCALLSCFUN4(NF_INT, nc_def_opaque, NF_DEF_OPAQUE, nf_def_opaque,
153  NCID, FINT2CSIZET, STRING, PCINT2FINT)
154 
155 FCALLSCFUN4(NF_INT, nc_inq_opaque, NF_INQ_OPAQUE, nf_inq_opaque,
156  NCID, FINT2CSIZET, STRING, PSIZET)
157 
158 FCALLSCFUN4(NF_INT, nc_def_var_chunking_ints, NF_DEF_VAR_CHUNKING, nf_def_var_chunking,
159  NCID, VARID, FINT2CINT, CHUNKSIZES)
160 
161 FCALLSCFUN5(NF_INT, nc_def_var_deflate, NF_DEF_VAR_DEFLATE, nf_def_var_deflate,
162  NCID, VARID, FINT2CINT, FINT2CINT, FINT2CINT)
163 
164 FCALLSCFUN4(NF_INT, nc_def_var_fill, NF_DEF_VAR_FILL, nf_def_var_fill,
165  NCID, VARID, FINT2CINT, PVOID)
166 
167 FCALLSCFUN4(NF_INT, nc_inq_var_fill, NF_INQ_VAR_FILL, nf_inq_var_fill,
168  NCID, VARID, PCINT2FINT, PVOID)
169 
170 FCALLSCFUN3(NF_INT, nc_def_var_fletcher32, NF_DEF_VAR_FLETCHER32, nf_def_var_fletcher32,
171  NCID, VARID, FINT2CINT)
172 
173 FCALLSCFUN4(NF_INT, nc_inq_var_chunking_ints, NF_INQ_VAR_CHUNKING, nf_inq_var_chunking,
174  NCID, VARID, PCINT2FINT, PCHUNKSIZES)
175 
176 FCALLSCFUN5(NF_INT, nc_inq_var_deflate, NF_INQ_VAR_DEFLATE, nf_inq_var_deflate,
177  NCID, VARID, PCINT2FINT, PCINT2FINT, PCINT2FINT)
178 
179 FCALLSCFUN4(NF_INT, nc_inq_var_szip, NF_INQ_VAR_SZIP, nf_inq_var_szip,
180  NCID, VARID, PCINT2FINT, PCINT2FINT)
181 
182 FCALLSCFUN3(NF_INT, nc_inq_var_fletcher32, NF_INQ_VAR_FLETCHER32, nf_inq_var_fletcher32,
183  NCID, VARID, PCINT2FINT)
184 
185 FCALLSCFUN3(NF_INT, nc_def_var_endian, NF_DEF_VAR_ENDIAN, nf_def_var_endian,
186  NCID, VARID, FINT2CINT)
187 
188 FCALLSCFUN3(NF_INT, nc_inq_var_endian, NF_INQ_VAR_ENDIAN, nf_inq_var_endian,
189  NCID, VARID, PCINT2FINT)
190 
191 FCALLSCFUN6(NF_INT, nc_put_att, NF_PUT_ATT, nf_put_att,
192  NCID, VARID, STRING, FINT2CINT, FINT2CSIZET, PVOID)
193 
194 FCALLSCFUN4(NF_INT, nc_get_att, NF_GET_ATT, nf_get_att,
195  NCID, VARID, STRING, PVOID)
196 
197 FCALLSCFUN5(NF_INT, nc_put_vlen_element, NF_PUT_VLEN_ELEMENT, nf_put_vlen_element,
198  NCID, FINT2CINT, PVOID, FINT2CSIZET, PVOID)
199 
200 FCALLSCFUN5(NF_INT, nc_get_vlen_element, NF_GET_VLEN_ELEMENT, nf_get_vlen_element,
201  NCID, FINT2CINT, PVOID, PSIZET, PVOID)
202 
203 FCALLSCFUN1(NF_INT, nc_free_vlen, NF_FREE_VLEN, nf_free_vlen, PVOID)
204 FCALLSCFUN2(NF_INT, nc_free_vlens, NF_FREE_VLENS, nf_free_vlens, FINT2CSIZET, PVOID)
205 FCALLSCFUN2(NF_INT, nc_free_string, NF_FREE_STRING, nf_free_string, FINT2CSIZET, PVOID)
206 
207 FCALLSCFUN4(NF_INT, nc_put_var1_longlong, NF_PUT_VAR1_INT64, nf_put_var1_int64,
208  NCID, VARID, COORDS, INTVAR)
209 FCALLSCFUN5(NF_INT, nc_put_vara_longlong, NF_PUT_VARA_INT64, nf_put_vara_int64,
210  NCID, VARID, COORDS, COUNTS, INTVARV)
211 FCALLSCFUN6(NF_INT, nc_put_vars_longlong, NF_PUT_VARS_INT64, nf_put_vars_int64,
212  NCID, VARID, COORDS, COUNTS, STRIDES, INTVARV)
213 FCALLSCFUN7(NF_INT, nc_put_varm_longlong, NF_PUT_VARM_INT64, nf_put_varm_int64,
214  NCID, VARID, COORDS, COUNTS, STRIDES, MAPS, PINTVARV)
215 FCALLSCFUN3(NF_INT, nc_put_var_longlong, NF_PUT_VAR_INT64, nf_put_var_int64,
216  NCID, VARID, PINTVAR)
217 
218 FCALLSCFUN4(NF_INT, nc_get_var1_longlong, NF_GET_VAR1_INT64, nf_get_var1_int64,
219  NCID, VARID, COORDS, INTVAR)
220 FCALLSCFUN5(NF_INT, nc_get_vara_longlong, NF_GET_VARA_INT64, nf_get_vara_int64,
221  NCID, VARID, COORDS, COUNTS, INTVARV)
222 FCALLSCFUN6(NF_INT, nc_get_vars_longlong, NF_GET_VARS_INT64, nf_get_vars_int64,
223  NCID, VARID, COORDS, COUNTS, STRIDES, INTVARV)
224 FCALLSCFUN7(NF_INT, nc_get_varm_longlong, NF_GET_VARM_INT64, nf_get_varm_int64,
225  NCID, VARID, COORDS, COUNTS, STRIDES, MAPS, PINTVARV)
226 FCALLSCFUN3(NF_INT, nc_get_var_longlong, NF_GET_VAR_INT64, nf_get_var_int64,
227  NCID, VARID, PINTVAR)
228 
229 FCALLSCFUN3(NF_INT, nc_set_chunk_cache_ints, NF_SET_CHUNK_CACHE, nf_set_chunk_cache,
230  INT, INT, INT)
231 FCALLSCFUN3(NF_INT, nc_get_chunk_cache_ints, NF_GET_CHUNK_CACHE, nf_get_chunk_cache,
232  PINT, PINT, PINT)
233 
234 FCALLSCFUN5(NF_INT, nc_set_var_chunk_cache_ints, NF_SET_VAR_CHUNK_CACHE, nf_set_var_chunk_cache,
235  NCID, VARID, INT, INT, INT)
236 FCALLSCFUN5(NF_INT, nc_get_var_chunk_cache_ints, NF_GET_VAR_CHUNK_CACHE, nf_get_var_chunk_cache,
237  NCID, VARID, PINT, PINT, PINT)
238 
239 
240 
241 

Return to the Main Unidata NetCDF page.
Generated on Sun Mar 27 2016 13:46:12 for NetCDF-Fortran. NetCDF is a Unidata library.