1/*
2 * Copyright 1993-2011 University Corporation for Atmospheric Research/Unidata
3 *
4 * This header contains prototypes for functions only called by fortran 77.
5 */
6#ifndef _NETCDF_F_
7#define _NETCDF_F_
8
9#include <netcdf.h>
10
11#if defined(__cplusplus)
12extern "C" {
13#endif
14
15EXTERNL int
16nc_inq_var_chunking_ints(int ncid, int varid, int *contiguousp, int *chunksizesp);
17
18EXTERNL int
19nc_def_var_chunking_ints(int ncid, int varid, int contiguous, int *chunksizesp);
20
21EXTERNL int
22nc_open_par_fortran(const char *path, int mode, int comm,
23     int info, int *ncidp);
24
25EXTERNL int
26nc_create_par_fortran(const char *path, int cmode, int comm,
27       int info, int *ncidp);
28
29EXTERNL int
30nc_set_chunk_cache_ints(int size, int nelems, int preemption);
31
32EXTERNL int
33nc_get_chunk_cache_ints(int *sizep, int *nelemsp, int *preemptionp);
34
35EXTERNL int
36nc_set_var_chunk_cache_ints(int ncid, int varid, int size, int nelems,
37     int preemption);
38EXTERNL int
39nc_get_var_chunk_cache_ints(int ncid, int varid, int *sizep,
40     int *nelemsp, int *preemptionp);
41
42/* Prototypes for some extra functions in fort-lib.c. */
43EXTERNL int
44nc_inq_varids_f(int ncid, int *nvars, int *fvarids);
45
46EXTERNL int
47nc_inq_dimids_f(int ncid, int *ndims, int *fdimids, int parent);
48
49EXTERNL int
50nc_insert_array_compound_f(int ncid, int typeid1, char *name,
51    size_t offsetnc_type field_typeid,
52    int ndims, int *dim_sizesp);
53
54EXTERNL int
55nc_inq_compound_field_f(int ncidnc_type xtype, int fieldid, char *name,
56 size_t *offsetpnc_type *field_typeidp, int *ndimsp,
57 int *dim_sizesp);
58
59#if defined(__cplusplus)
60}
61#endif
62
63#endif


HyperKWIC - Version 7.20DA executed at 11:37 on 27 Oct 2017 | Polyhedron Solutions - INTERNAL USE | COMMERCIAL (Any O/S) SN 4AKIed