source: XIOS/trunk/extern/src_netcdf4/netcdf_f.h @ 409

Last change on this file since 409 was 409, checked in by ymipsl, 11 years ago

Add improved nectdf internal library src

YM

  • Property svn:eol-style set to native
File size: 1.6 KB
Line 
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 typeid, char *name, 
51                           size_t offset, nc_type field_typeid,
52                           int ndims, int *dim_sizesp);
53
54EXTERNL int 
55nc_inq_compound_field_f(int ncid, nc_type xtype, int fieldid, char *name, 
56                        size_t *offsetp, nc_type *field_typeidp, int *ndimsp, 
57                        int *dim_sizesp);
58
59#if defined(__cplusplus)
60}
61#endif
62
63#endif
Note: See TracBrowser for help on using the repository browser.