mirror of
https://github.com/Unidata/netcdf-c.git
synced 2025-03-31 17:50:26 +08:00
Moved libsrc5 to libsrcp
because pnetcdf is used for more than CDF-5 files.
This commit is contained in:
dmh
parent
26be22c7db
commit
fab66699d1
@ -1334,7 +1334,7 @@ add_subdirectory(libdispatch)
|
||||
add_subdirectory(libsrc)
|
||||
|
||||
IF(USE_PNETCDF)
|
||||
add_subdirectory(libsrc5)
|
||||
add_subdirectory(libsrcp)
|
||||
ENDIF(USE_PNETCDF)
|
||||
|
||||
IF(USE_HDF5)
|
||||
|
||||
@ -64,7 +64,7 @@ endif
|
||||
|
||||
# Build pnetcdf
|
||||
if USE_PNETCDF
|
||||
LIBSRC5 = libsrc5
|
||||
LIBSRCP = libsrcp
|
||||
endif
|
||||
|
||||
# Build UDUNITS?
|
||||
@ -86,7 +86,7 @@ endif
|
||||
# and run. ncgen must come before ncdump, because their tests
|
||||
# depend on it.
|
||||
SUBDIRS = include $(OCLIB) $(H5_TEST_DIR) libdispatch libsrc \
|
||||
$(LIBSRC4_DIR) $(DAP2) $(LIBCDMR) $(LIBSRC5) liblib \
|
||||
$(LIBSRC4_DIR) $(DAP2) $(LIBCDMR) $(LIBSRCP) liblib \
|
||||
$(NCGEN3) $(NCGEN) $(NCDUMP) \
|
||||
$(TESTDIRS) \
|
||||
docs $(EXAMPLES) \
|
||||
|
||||
@ -1167,7 +1167,7 @@ AC_CONFIG_FILES([Makefile
|
||||
docs/images/Makefile
|
||||
libsrc/Makefile
|
||||
libsrc4/Makefile
|
||||
libsrc5/Makefile
|
||||
libsrcp/Makefile
|
||||
nctest/Makefile
|
||||
nc_test4/Makefile
|
||||
nc_test/Makefile
|
||||
|
||||
@ -61,8 +61,7 @@
|
||||
#define NC_DISPATCH_NC3 1
|
||||
#define NC_DISPATCH_NC4 2
|
||||
#define NC_DISPATCH_NCD 4
|
||||
#define NC_DISPATCH_NCR 8
|
||||
#define NC_DISPATCH_NC5 16
|
||||
#define NC_DISPATCH_NCP 8
|
||||
|
||||
|
||||
/* Define a type for use when doing e.g. nc_get_vara_long, etc. */
|
||||
@ -123,8 +122,8 @@ extern int NCD2_initialize(void);
|
||||
#endif
|
||||
|
||||
#ifdef USE_PNETCDF
|
||||
extern NC_Dispatch* NC5_dispatch_table;
|
||||
extern int NC5_initialize(void);
|
||||
extern NC_Dispatch* NCP_dispatch_table;
|
||||
extern int NCP_initialize(void);
|
||||
#endif
|
||||
|
||||
#ifdef USE_NETCDF4
|
||||
|
||||
@ -21,10 +21,6 @@ static struct NCPROTOCOLLIST {
|
||||
{"file",NULL,NC_DISPATCH_NCD},
|
||||
{"dods","http",NC_DISPATCH_NCD},
|
||||
{"dodss","https",NC_DISPATCH_NCD},
|
||||
{"cdmr","http",NC_DISPATCH_NCR|NC_DISPATCH_NC4},
|
||||
{"cdmrs","https",NC_DISPATCH_NCR|NC_DISPATCH_NC4},
|
||||
{"cdmremote","http",NC_DISPATCH_NCR|NC_DISPATCH_NC4},
|
||||
{"cdmremotes","https",NC_DISPATCH_NCR|NC_DISPATCH_NC4},
|
||||
{NULL,NULL,0} /* Terminate search */
|
||||
};
|
||||
|
||||
@ -151,9 +147,6 @@ NC_urlmodel(const char* path)
|
||||
} else if(ncurilookup(tmpurl,"netcdf3",NULL)
|
||||
|| ncurilookup(tmpurl,"netcdf-3",NULL)) {
|
||||
model = (NC_DISPATCH_NC3|NC_DISPATCH_NCD);
|
||||
} else if(ncurilookup(tmpurl,"cdmremote",NULL)
|
||||
|| ncurilookup(tmpurl,"cdmr",NULL)) {
|
||||
model = (NC_DISPATCH_NCR|NC_DISPATCH_NC4);
|
||||
}
|
||||
|
||||
if(model == 0) {
|
||||
|
||||
@ -106,7 +106,7 @@ NC_interpret_magic_number(char* magic, int* model, int* version, int use_paralle
|
||||
#endif
|
||||
else
|
||||
{status = NC_ENOTNC; goto done;}
|
||||
*model = (use_parallel || *version == 5)?NC_DISPATCH_NC5:NC_DISPATCH_NC3;
|
||||
*model = (use_parallel || *version == 5)?NC_DISPATCH_NCP:NC_DISPATCH_NC3;
|
||||
} else
|
||||
{status = NC_ENOTNC; goto done;}
|
||||
done:
|
||||
@ -1627,7 +1627,7 @@ NC_create(const char *path, int cmode, size_t initialsz,
|
||||
#endif
|
||||
#ifdef USE_PNETCDF
|
||||
if(cmode & NC_PNETCDF)
|
||||
model = NC_DISPATCH_NC5;
|
||||
model = NC_DISPATCH_NCP;
|
||||
else
|
||||
#endif
|
||||
if(cmode & NC_CLASSIC_MODEL)
|
||||
@ -1686,8 +1686,8 @@ NC_create(const char *path, int cmode, size_t initialsz,
|
||||
else
|
||||
#endif
|
||||
#ifdef USE_PNETCDF
|
||||
if(model == (NC_DISPATCH_NC5))
|
||||
dispatcher = NC5_dispatch_table;
|
||||
if(model == (NC_DISPATCH_NCP))
|
||||
dispatcher = NCP_dispatch_table;
|
||||
else
|
||||
#endif
|
||||
if(model == (NC_DISPATCH_NC3))
|
||||
@ -1797,7 +1797,7 @@ NC_open(const char *path, int cmode,
|
||||
else if(model & NC_DISPATCH_NC3) {
|
||||
cmode &= ~NC_NETCDF4; /* must be netcdf-3 */
|
||||
if(version == 2) cmode |= NC_64BIT_OFFSET;
|
||||
} else if(model & NC_DISPATCH_NC5) {
|
||||
} else if(model & NC_DISPATCH_NCP) {
|
||||
#if 0
|
||||
It appears that pnetcdf can read NC_64_BIT_OFFSET
|
||||
cmode &= ~(NC_NETCDF4 | NC_64BIT_OFFSET); /* must be pnetcdf */
|
||||
@ -1826,8 +1826,8 @@ It appears that pnetcdf can read NC_64_BIT_OFFSET
|
||||
else
|
||||
#endif
|
||||
#if defined(USE_PNETCDF)
|
||||
if(model == (NC_DISPATCH_NC5))
|
||||
dispatcher = NC5_dispatch_table;
|
||||
if(model == (NC_DISPATCH_NCP))
|
||||
dispatcher = NCP_dispatch_table;
|
||||
else
|
||||
#endif
|
||||
#if defined(USE_NETCDF4)
|
||||
|
||||
@ -43,8 +43,8 @@ libnetcdf_la_LIBADD += ${top_builddir}/libdispatch/libdispatch.la \
|
||||
|
||||
# + pnetcdf
|
||||
if USE_PNETCDF
|
||||
AM_CPPFLAGS += -I${top_srcdir}/libsrc5
|
||||
libnetcdf_la_LIBADD += ${top_builddir}/libsrc5/libnetcdf5.la
|
||||
AM_CPPFLAGS += -I${top_srcdir}/libsrcp
|
||||
libnetcdf_la_LIBADD += ${top_builddir}/libsrcp/libnetcdfp.la
|
||||
endif # USE_PNETCDF
|
||||
|
||||
# + dap
|
||||
|
||||
@ -23,7 +23,7 @@ extern int NCCR_initialize(void);
|
||||
#endif
|
||||
|
||||
#ifdef USE_PNETCDF
|
||||
extern int NC5_initialize(void);
|
||||
extern int NCP_initialize(void);
|
||||
#endif
|
||||
|
||||
/**
|
||||
@ -51,7 +51,7 @@ NC_initialize(void)
|
||||
#endif
|
||||
|
||||
#ifdef USE_PNETCDF
|
||||
if((stat = NC5_initialize())) return stat;
|
||||
if((stat = NCP_initialize())) return stat;
|
||||
#endif
|
||||
|
||||
#ifdef USE_NETCDF4
|
||||
|
||||
339
libsrc/attr.c
339
libsrc/attr.c
@ -1,4 +1,6 @@
|
||||
#line 5 "attr.m4"
|
||||
/* Do not edit this file. It is produced from the corresponding .m4 source */
|
||||
#line 7
|
||||
/*
|
||||
* Copyright 1996, University Corporation for Atmospheric Research
|
||||
* See netcdf/COPYRIGHT file for copying and redistribution conditions.
|
||||
@ -611,367 +613,704 @@ NC3_del_att(int ncid, int varid, const char *uname)
|
||||
return NC_NOERR;
|
||||
}
|
||||
|
||||
#line 674
|
||||
|
||||
static int
|
||||
#line 675
|
||||
ncx_pad_putn_Iuchar(void **xpp, size_t nelems, const uchar *tp, nc_type type)
|
||||
#line 675
|
||||
{
|
||||
#line 675
|
||||
switch(type) {
|
||||
#line 675
|
||||
case NC_CHAR:
|
||||
#line 675
|
||||
return NC_ECHAR;
|
||||
#line 675
|
||||
case NC_BYTE:
|
||||
#line 675
|
||||
return ncx_pad_putn_schar_uchar(xpp, nelems, tp);
|
||||
#line 675
|
||||
case NC_SHORT:
|
||||
#line 675
|
||||
return ncx_pad_putn_short_uchar(xpp, nelems, tp);
|
||||
#line 675
|
||||
case NC_INT:
|
||||
#line 675
|
||||
return ncx_putn_int_uchar(xpp, nelems, tp);
|
||||
#line 675
|
||||
case NC_FLOAT:
|
||||
#line 675
|
||||
return ncx_putn_float_uchar(xpp, nelems, tp);
|
||||
#line 675
|
||||
case NC_DOUBLE:
|
||||
#line 675
|
||||
return ncx_putn_double_uchar(xpp, nelems, tp);
|
||||
#line 675
|
||||
default:
|
||||
#line 675
|
||||
assert("ncx_pad_putn_Iuchar invalid type" == 0);
|
||||
#line 675
|
||||
}
|
||||
#line 675
|
||||
return NC_EBADTYPE;
|
||||
#line 675
|
||||
}
|
||||
#line 675
|
||||
|
||||
static int
|
||||
#line 676
|
||||
ncx_pad_getn_Iuchar(const void **xpp, size_t nelems, uchar *tp, nc_type type)
|
||||
#line 676
|
||||
{
|
||||
#line 676
|
||||
switch(type) {
|
||||
#line 676
|
||||
case NC_CHAR:
|
||||
#line 676
|
||||
return NC_ECHAR;
|
||||
#line 676
|
||||
case NC_BYTE:
|
||||
#line 676
|
||||
return ncx_pad_getn_schar_uchar(xpp, nelems, tp);
|
||||
#line 676
|
||||
case NC_SHORT:
|
||||
#line 676
|
||||
return ncx_pad_getn_short_uchar(xpp, nelems, tp);
|
||||
#line 676
|
||||
case NC_INT:
|
||||
#line 676
|
||||
return ncx_getn_int_uchar(xpp, nelems, tp);
|
||||
#line 676
|
||||
case NC_FLOAT:
|
||||
#line 676
|
||||
return ncx_getn_float_uchar(xpp, nelems, tp);
|
||||
#line 676
|
||||
case NC_DOUBLE:
|
||||
#line 676
|
||||
return ncx_getn_double_uchar(xpp, nelems, tp);
|
||||
#line 676
|
||||
default:
|
||||
#line 676
|
||||
assert("ncx_pad_getn_Iuchar invalid type" == 0);
|
||||
#line 676
|
||||
}
|
||||
#line 676
|
||||
return NC_EBADTYPE;
|
||||
#line 676
|
||||
}
|
||||
#line 676
|
||||
|
||||
|
||||
static int
|
||||
#line 678
|
||||
ncx_pad_putn_Ischar(void **xpp, size_t nelems, const schar *tp, nc_type type)
|
||||
#line 678
|
||||
{
|
||||
#line 678
|
||||
switch(type) {
|
||||
#line 678
|
||||
case NC_CHAR:
|
||||
#line 678
|
||||
return NC_ECHAR;
|
||||
#line 678
|
||||
case NC_BYTE:
|
||||
#line 678
|
||||
return ncx_pad_putn_schar_schar(xpp, nelems, tp);
|
||||
#line 678
|
||||
case NC_SHORT:
|
||||
#line 678
|
||||
return ncx_pad_putn_short_schar(xpp, nelems, tp);
|
||||
#line 678
|
||||
case NC_INT:
|
||||
#line 678
|
||||
return ncx_putn_int_schar(xpp, nelems, tp);
|
||||
#line 678
|
||||
case NC_FLOAT:
|
||||
#line 678
|
||||
return ncx_putn_float_schar(xpp, nelems, tp);
|
||||
#line 678
|
||||
case NC_DOUBLE:
|
||||
#line 678
|
||||
return ncx_putn_double_schar(xpp, nelems, tp);
|
||||
#line 678
|
||||
default:
|
||||
#line 678
|
||||
assert("ncx_pad_putn_Ischar invalid type" == 0);
|
||||
#line 678
|
||||
}
|
||||
#line 678
|
||||
return NC_EBADTYPE;
|
||||
#line 678
|
||||
}
|
||||
#line 678
|
||||
|
||||
static int
|
||||
#line 679
|
||||
ncx_pad_getn_Ischar(const void **xpp, size_t nelems, schar *tp, nc_type type)
|
||||
#line 679
|
||||
{
|
||||
#line 679
|
||||
switch(type) {
|
||||
#line 679
|
||||
case NC_CHAR:
|
||||
#line 679
|
||||
return NC_ECHAR;
|
||||
#line 679
|
||||
case NC_BYTE:
|
||||
#line 679
|
||||
return ncx_pad_getn_schar_schar(xpp, nelems, tp);
|
||||
#line 679
|
||||
case NC_SHORT:
|
||||
#line 679
|
||||
return ncx_pad_getn_short_schar(xpp, nelems, tp);
|
||||
#line 679
|
||||
case NC_INT:
|
||||
#line 679
|
||||
return ncx_getn_int_schar(xpp, nelems, tp);
|
||||
#line 679
|
||||
case NC_FLOAT:
|
||||
#line 679
|
||||
return ncx_getn_float_schar(xpp, nelems, tp);
|
||||
#line 679
|
||||
case NC_DOUBLE:
|
||||
#line 679
|
||||
return ncx_getn_double_schar(xpp, nelems, tp);
|
||||
#line 679
|
||||
default:
|
||||
#line 679
|
||||
assert("ncx_pad_getn_Ischar invalid type" == 0);
|
||||
#line 679
|
||||
}
|
||||
#line 679
|
||||
return NC_EBADTYPE;
|
||||
#line 679
|
||||
}
|
||||
#line 679
|
||||
|
||||
|
||||
static int
|
||||
#line 681
|
||||
ncx_pad_putn_Ishort(void **xpp, size_t nelems, const short *tp, nc_type type)
|
||||
#line 681
|
||||
{
|
||||
#line 681
|
||||
switch(type) {
|
||||
#line 681
|
||||
case NC_CHAR:
|
||||
#line 681
|
||||
return NC_ECHAR;
|
||||
#line 681
|
||||
case NC_BYTE:
|
||||
#line 681
|
||||
return ncx_pad_putn_schar_short(xpp, nelems, tp);
|
||||
#line 681
|
||||
case NC_SHORT:
|
||||
#line 681
|
||||
return ncx_pad_putn_short_short(xpp, nelems, tp);
|
||||
#line 681
|
||||
case NC_INT:
|
||||
#line 681
|
||||
return ncx_putn_int_short(xpp, nelems, tp);
|
||||
#line 681
|
||||
case NC_FLOAT:
|
||||
#line 681
|
||||
return ncx_putn_float_short(xpp, nelems, tp);
|
||||
#line 681
|
||||
case NC_DOUBLE:
|
||||
#line 681
|
||||
return ncx_putn_double_short(xpp, nelems, tp);
|
||||
#line 681
|
||||
default:
|
||||
#line 681
|
||||
assert("ncx_pad_putn_Ishort invalid type" == 0);
|
||||
#line 681
|
||||
}
|
||||
#line 681
|
||||
return NC_EBADTYPE;
|
||||
#line 681
|
||||
}
|
||||
#line 681
|
||||
|
||||
static int
|
||||
#line 682
|
||||
ncx_pad_getn_Ishort(const void **xpp, size_t nelems, short *tp, nc_type type)
|
||||
#line 682
|
||||
{
|
||||
#line 682
|
||||
switch(type) {
|
||||
#line 682
|
||||
case NC_CHAR:
|
||||
#line 682
|
||||
return NC_ECHAR;
|
||||
#line 682
|
||||
case NC_BYTE:
|
||||
#line 682
|
||||
return ncx_pad_getn_schar_short(xpp, nelems, tp);
|
||||
#line 682
|
||||
case NC_SHORT:
|
||||
#line 682
|
||||
return ncx_pad_getn_short_short(xpp, nelems, tp);
|
||||
#line 682
|
||||
case NC_INT:
|
||||
#line 682
|
||||
return ncx_getn_int_short(xpp, nelems, tp);
|
||||
#line 682
|
||||
case NC_FLOAT:
|
||||
#line 682
|
||||
return ncx_getn_float_short(xpp, nelems, tp);
|
||||
#line 682
|
||||
case NC_DOUBLE:
|
||||
#line 682
|
||||
return ncx_getn_double_short(xpp, nelems, tp);
|
||||
#line 682
|
||||
default:
|
||||
#line 682
|
||||
assert("ncx_pad_getn_Ishort invalid type" == 0);
|
||||
#line 682
|
||||
}
|
||||
#line 682
|
||||
return NC_EBADTYPE;
|
||||
#line 682
|
||||
}
|
||||
#line 682
|
||||
|
||||
|
||||
static int
|
||||
#line 684
|
||||
ncx_pad_putn_Iint(void **xpp, size_t nelems, const int *tp, nc_type type)
|
||||
#line 684
|
||||
{
|
||||
#line 684
|
||||
switch(type) {
|
||||
#line 684
|
||||
case NC_CHAR:
|
||||
#line 684
|
||||
return NC_ECHAR;
|
||||
#line 684
|
||||
case NC_BYTE:
|
||||
#line 684
|
||||
return ncx_pad_putn_schar_int(xpp, nelems, tp);
|
||||
#line 684
|
||||
case NC_SHORT:
|
||||
#line 684
|
||||
return ncx_pad_putn_short_int(xpp, nelems, tp);
|
||||
#line 684
|
||||
case NC_INT:
|
||||
#line 684
|
||||
return ncx_putn_int_int(xpp, nelems, tp);
|
||||
#line 684
|
||||
case NC_FLOAT:
|
||||
#line 684
|
||||
return ncx_putn_float_int(xpp, nelems, tp);
|
||||
#line 684
|
||||
case NC_DOUBLE:
|
||||
#line 684
|
||||
return ncx_putn_double_int(xpp, nelems, tp);
|
||||
#line 684
|
||||
default:
|
||||
#line 684
|
||||
assert("ncx_pad_putn_Iint invalid type" == 0);
|
||||
#line 684
|
||||
}
|
||||
#line 684
|
||||
return NC_EBADTYPE;
|
||||
#line 684
|
||||
}
|
||||
#line 684
|
||||
|
||||
static int
|
||||
#line 685
|
||||
ncx_pad_getn_Iint(const void **xpp, size_t nelems, int *tp, nc_type type)
|
||||
#line 685
|
||||
{
|
||||
#line 685
|
||||
switch(type) {
|
||||
#line 685
|
||||
case NC_CHAR:
|
||||
#line 685
|
||||
return NC_ECHAR;
|
||||
#line 685
|
||||
case NC_BYTE:
|
||||
#line 685
|
||||
return ncx_pad_getn_schar_int(xpp, nelems, tp);
|
||||
#line 685
|
||||
case NC_SHORT:
|
||||
#line 685
|
||||
return ncx_pad_getn_short_int(xpp, nelems, tp);
|
||||
#line 685
|
||||
case NC_INT:
|
||||
#line 685
|
||||
return ncx_getn_int_int(xpp, nelems, tp);
|
||||
#line 685
|
||||
case NC_FLOAT:
|
||||
#line 685
|
||||
return ncx_getn_float_int(xpp, nelems, tp);
|
||||
#line 685
|
||||
case NC_DOUBLE:
|
||||
#line 685
|
||||
return ncx_getn_double_int(xpp, nelems, tp);
|
||||
#line 685
|
||||
default:
|
||||
#line 685
|
||||
assert("ncx_pad_getn_Iint invalid type" == 0);
|
||||
#line 685
|
||||
}
|
||||
#line 685
|
||||
return NC_EBADTYPE;
|
||||
#line 685
|
||||
}
|
||||
#line 685
|
||||
|
||||
|
||||
static int
|
||||
#line 687
|
||||
ncx_pad_putn_Ifloat(void **xpp, size_t nelems, const float *tp, nc_type type)
|
||||
#line 687
|
||||
{
|
||||
#line 687
|
||||
switch(type) {
|
||||
#line 687
|
||||
case NC_CHAR:
|
||||
#line 687
|
||||
return NC_ECHAR;
|
||||
#line 687
|
||||
case NC_BYTE:
|
||||
#line 687
|
||||
return ncx_pad_putn_schar_float(xpp, nelems, tp);
|
||||
#line 687
|
||||
case NC_SHORT:
|
||||
#line 687
|
||||
return ncx_pad_putn_short_float(xpp, nelems, tp);
|
||||
#line 687
|
||||
case NC_INT:
|
||||
#line 687
|
||||
return ncx_putn_int_float(xpp, nelems, tp);
|
||||
#line 687
|
||||
case NC_FLOAT:
|
||||
#line 687
|
||||
return ncx_putn_float_float(xpp, nelems, tp);
|
||||
#line 687
|
||||
case NC_DOUBLE:
|
||||
#line 687
|
||||
return ncx_putn_double_float(xpp, nelems, tp);
|
||||
#line 687
|
||||
default:
|
||||
#line 687
|
||||
assert("ncx_pad_putn_Ifloat invalid type" == 0);
|
||||
#line 687
|
||||
}
|
||||
#line 687
|
||||
return NC_EBADTYPE;
|
||||
#line 687
|
||||
}
|
||||
#line 687
|
||||
|
||||
static int
|
||||
#line 688
|
||||
ncx_pad_getn_Ifloat(const void **xpp, size_t nelems, float *tp, nc_type type)
|
||||
#line 688
|
||||
{
|
||||
#line 688
|
||||
switch(type) {
|
||||
#line 688
|
||||
case NC_CHAR:
|
||||
#line 688
|
||||
return NC_ECHAR;
|
||||
#line 688
|
||||
case NC_BYTE:
|
||||
#line 688
|
||||
return ncx_pad_getn_schar_float(xpp, nelems, tp);
|
||||
#line 688
|
||||
case NC_SHORT:
|
||||
#line 688
|
||||
return ncx_pad_getn_short_float(xpp, nelems, tp);
|
||||
#line 688
|
||||
case NC_INT:
|
||||
#line 688
|
||||
return ncx_getn_int_float(xpp, nelems, tp);
|
||||
#line 688
|
||||
case NC_FLOAT:
|
||||
#line 688
|
||||
return ncx_getn_float_float(xpp, nelems, tp);
|
||||
#line 688
|
||||
case NC_DOUBLE:
|
||||
#line 688
|
||||
return ncx_getn_double_float(xpp, nelems, tp);
|
||||
#line 688
|
||||
default:
|
||||
#line 688
|
||||
assert("ncx_pad_getn_Ifloat invalid type" == 0);
|
||||
#line 688
|
||||
}
|
||||
#line 688
|
||||
return NC_EBADTYPE;
|
||||
#line 688
|
||||
}
|
||||
#line 688
|
||||
|
||||
|
||||
static int
|
||||
#line 690
|
||||
ncx_pad_putn_Idouble(void **xpp, size_t nelems, const double *tp, nc_type type)
|
||||
#line 690
|
||||
{
|
||||
#line 690
|
||||
switch(type) {
|
||||
#line 690
|
||||
case NC_CHAR:
|
||||
#line 690
|
||||
return NC_ECHAR;
|
||||
#line 690
|
||||
case NC_BYTE:
|
||||
#line 690
|
||||
return ncx_pad_putn_schar_double(xpp, nelems, tp);
|
||||
#line 690
|
||||
case NC_SHORT:
|
||||
#line 690
|
||||
return ncx_pad_putn_short_double(xpp, nelems, tp);
|
||||
#line 690
|
||||
case NC_INT:
|
||||
#line 690
|
||||
return ncx_putn_int_double(xpp, nelems, tp);
|
||||
#line 690
|
||||
case NC_FLOAT:
|
||||
#line 690
|
||||
return ncx_putn_float_double(xpp, nelems, tp);
|
||||
#line 690
|
||||
case NC_DOUBLE:
|
||||
#line 690
|
||||
return ncx_putn_double_double(xpp, nelems, tp);
|
||||
#line 690
|
||||
default:
|
||||
#line 690
|
||||
assert("ncx_pad_putn_Idouble invalid type" == 0);
|
||||
#line 690
|
||||
}
|
||||
#line 690
|
||||
return NC_EBADTYPE;
|
||||
#line 690
|
||||
}
|
||||
#line 690
|
||||
|
||||
static int
|
||||
#line 691
|
||||
ncx_pad_getn_Idouble(const void **xpp, size_t nelems, double *tp, nc_type type)
|
||||
#line 691
|
||||
{
|
||||
#line 691
|
||||
switch(type) {
|
||||
#line 691
|
||||
case NC_CHAR:
|
||||
#line 691
|
||||
return NC_ECHAR;
|
||||
#line 691
|
||||
case NC_BYTE:
|
||||
#line 691
|
||||
return ncx_pad_getn_schar_double(xpp, nelems, tp);
|
||||
#line 691
|
||||
case NC_SHORT:
|
||||
#line 691
|
||||
return ncx_pad_getn_short_double(xpp, nelems, tp);
|
||||
#line 691
|
||||
case NC_INT:
|
||||
#line 691
|
||||
return ncx_getn_int_double(xpp, nelems, tp);
|
||||
#line 691
|
||||
case NC_FLOAT:
|
||||
#line 691
|
||||
return ncx_getn_float_double(xpp, nelems, tp);
|
||||
#line 691
|
||||
case NC_DOUBLE:
|
||||
#line 691
|
||||
return ncx_getn_double_double(xpp, nelems, tp);
|
||||
#line 691
|
||||
default:
|
||||
#line 691
|
||||
assert("ncx_pad_getn_Idouble invalid type" == 0);
|
||||
#line 691
|
||||
}
|
||||
#line 691
|
||||
return NC_EBADTYPE;
|
||||
#line 691
|
||||
}
|
||||
#line 691
|
||||
|
||||
|
||||
#ifdef IGNORE
|
||||
static int
|
||||
#line 694
|
||||
ncx_pad_putn_Ilong(void **xpp, size_t nelems, const long *tp, nc_type type)
|
||||
#line 694
|
||||
{
|
||||
#line 694
|
||||
switch(type) {
|
||||
#line 694
|
||||
case NC_CHAR:
|
||||
#line 694
|
||||
return NC_ECHAR;
|
||||
#line 694
|
||||
case NC_BYTE:
|
||||
#line 694
|
||||
return ncx_pad_putn_schar_long(xpp, nelems, tp);
|
||||
#line 694
|
||||
case NC_SHORT:
|
||||
#line 694
|
||||
return ncx_pad_putn_short_long(xpp, nelems, tp);
|
||||
#line 694
|
||||
case NC_INT:
|
||||
#line 694
|
||||
return ncx_putn_int_long(xpp, nelems, tp);
|
||||
#line 694
|
||||
case NC_FLOAT:
|
||||
#line 694
|
||||
return ncx_putn_float_long(xpp, nelems, tp);
|
||||
#line 694
|
||||
case NC_DOUBLE:
|
||||
#line 694
|
||||
return ncx_putn_double_long(xpp, nelems, tp);
|
||||
#line 694
|
||||
default:
|
||||
#line 694
|
||||
assert("ncx_pad_putn_Ilong invalid type" == 0);
|
||||
#line 694
|
||||
}
|
||||
#line 694
|
||||
return NC_EBADTYPE;
|
||||
#line 694
|
||||
}
|
||||
#line 694
|
||||
|
||||
static int
|
||||
#line 695
|
||||
ncx_pad_getn_Ilong(const void **xpp, size_t nelems, long *tp, nc_type type)
|
||||
#line 695
|
||||
{
|
||||
#line 695
|
||||
switch(type) {
|
||||
#line 695
|
||||
case NC_CHAR:
|
||||
#line 695
|
||||
return NC_ECHAR;
|
||||
#line 695
|
||||
case NC_BYTE:
|
||||
#line 695
|
||||
return ncx_pad_getn_schar_long(xpp, nelems, tp);
|
||||
#line 695
|
||||
case NC_SHORT:
|
||||
#line 695
|
||||
return ncx_pad_getn_short_long(xpp, nelems, tp);
|
||||
#line 695
|
||||
case NC_INT:
|
||||
#line 695
|
||||
return ncx_getn_int_long(xpp, nelems, tp);
|
||||
#line 695
|
||||
case NC_FLOAT:
|
||||
#line 695
|
||||
return ncx_getn_float_long(xpp, nelems, tp);
|
||||
#line 695
|
||||
case NC_DOUBLE:
|
||||
#line 695
|
||||
return ncx_getn_double_long(xpp, nelems, tp);
|
||||
#line 695
|
||||
default:
|
||||
#line 695
|
||||
assert("ncx_pad_getn_Ilong invalid type" == 0);
|
||||
#line 695
|
||||
}
|
||||
#line 695
|
||||
return NC_EBADTYPE;
|
||||
#line 695
|
||||
}
|
||||
#line 695
|
||||
|
||||
#endif
|
||||
|
||||
static int
|
||||
#line 698
|
||||
ncx_pad_putn_Ilonglong(void **xpp, size_t nelems, const longlong *tp, nc_type type)
|
||||
#line 698
|
||||
{
|
||||
#line 698
|
||||
switch(type) {
|
||||
#line 698
|
||||
case NC_CHAR:
|
||||
#line 698
|
||||
return NC_ECHAR;
|
||||
#line 698
|
||||
case NC_BYTE:
|
||||
#line 698
|
||||
return ncx_pad_putn_schar_longlong(xpp, nelems, tp);
|
||||
#line 698
|
||||
case NC_SHORT:
|
||||
#line 698
|
||||
return ncx_pad_putn_short_longlong(xpp, nelems, tp);
|
||||
#line 698
|
||||
case NC_INT:
|
||||
#line 698
|
||||
return ncx_putn_int_longlong(xpp, nelems, tp);
|
||||
#line 698
|
||||
case NC_FLOAT:
|
||||
#line 698
|
||||
return ncx_putn_float_longlong(xpp, nelems, tp);
|
||||
#line 698
|
||||
case NC_DOUBLE:
|
||||
#line 698
|
||||
return ncx_putn_double_longlong(xpp, nelems, tp);
|
||||
#line 698
|
||||
default:
|
||||
#line 698
|
||||
assert("ncx_pad_putn_Ilonglong invalid type" == 0);
|
||||
#line 698
|
||||
}
|
||||
#line 698
|
||||
return NC_EBADTYPE;
|
||||
#line 698
|
||||
}
|
||||
#line 698
|
||||
|
||||
static int
|
||||
#line 699
|
||||
ncx_pad_getn_Ilonglong(const void **xpp, size_t nelems, longlong *tp, nc_type type)
|
||||
#line 699
|
||||
{
|
||||
#line 699
|
||||
switch(type) {
|
||||
#line 699
|
||||
case NC_CHAR:
|
||||
#line 699
|
||||
return NC_ECHAR;
|
||||
#line 699
|
||||
case NC_BYTE:
|
||||
#line 699
|
||||
return ncx_pad_getn_schar_longlong(xpp, nelems, tp);
|
||||
#line 699
|
||||
case NC_SHORT:
|
||||
#line 699
|
||||
return ncx_pad_getn_short_longlong(xpp, nelems, tp);
|
||||
#line 699
|
||||
case NC_INT:
|
||||
#line 699
|
||||
return ncx_getn_int_longlong(xpp, nelems, tp);
|
||||
#line 699
|
||||
case NC_FLOAT:
|
||||
#line 699
|
||||
return ncx_getn_float_longlong(xpp, nelems, tp);
|
||||
#line 699
|
||||
case NC_DOUBLE:
|
||||
#line 699
|
||||
return ncx_getn_double_longlong(xpp, nelems, tp);
|
||||
#line 699
|
||||
default:
|
||||
#line 699
|
||||
assert("ncx_pad_getn_Ilonglong invalid type" == 0);
|
||||
#line 699
|
||||
}
|
||||
#line 699
|
||||
return NC_EBADTYPE;
|
||||
#line 699
|
||||
}
|
||||
#line 699
|
||||
|
||||
|
||||
|
||||
|
||||
5957
libsrc/ncx.c
5957
libsrc/ncx.c
File diff suppressed because it is too large
Load Diff
@ -1902,7 +1902,7 @@ ncx_get_double_ulonglong(const void *xp, unsigned long long *ip)
|
||||
{
|
||||
double xx;
|
||||
get_ix_double(xp, &xx);
|
||||
*ip = (unsigned longlong) xx;
|
||||
*ip = (unsigned long long) xx;
|
||||
if(xx > ULONG_LONG_MAX || xx < 0)
|
||||
return NC_ERANGE;
|
||||
return ENOERR;
|
||||
|
||||
@ -1,4 +1,4 @@
|
||||
#line 9 "../../libsrc/putget.m4"
|
||||
#line 9 "putget.m4"
|
||||
/* Do not edit this file. It is produced from the corresponding .m4 source */
|
||||
#line 11
|
||||
/*
|
||||
|
||||
@ -1,5 +0,0 @@
|
||||
SET(libsrc5_SOURCES nc5dispatch.c)
|
||||
|
||||
add_library(netcdf5 OBJECT ${libsrc5_SOURCES})
|
||||
|
||||
ADD_EXTRA_DIST(${libsrc5_SOURCES} CMakeLists.txt)
|
||||
5
libsrcp/CMakeLists.txt
Normal file
5
libsrcp/CMakeLists.txt
Normal file
@ -0,0 +1,5 @@
|
||||
SET(libsrcp_SOURCES ncpdispatch.c)
|
||||
|
||||
add_library(netcdfp OBJECT ${libsrcp_SOURCES})
|
||||
|
||||
ADD_EXTRA_DIST(${libsrcp_SOURCES} CMakeLists.txt)
|
||||
@ -6,19 +6,19 @@
|
||||
|
||||
include $(top_srcdir)/lib_flags.am
|
||||
|
||||
libnetcdf5_la_CPPFLAGS = ${AM_CPPFLAGS}
|
||||
libnetcdfp_la_CPPFLAGS = ${AM_CPPFLAGS}
|
||||
|
||||
# This is the code for a dispatch table for pnetcdf
|
||||
# (which has CDF5 as its magic number)
|
||||
|
||||
# Turn on a pre-processor flag when building a DLL for windows.
|
||||
if BUILD_DLL
|
||||
libnetcdf5_la_CPPFLAGS += -DDLL_EXPORT
|
||||
libnetcdfp_la_CPPFLAGS += -DDLL_EXPORT
|
||||
endif # BUILD_DLL
|
||||
|
||||
# These files comprise the pnetcdf dispatch library code.
|
||||
libnetcdf5_la_SOURCES = nc5dispatch.c
|
||||
libnetcdfp_la_SOURCES = ncpdispatch.c
|
||||
|
||||
noinst_LTLIBRARIES = libnetcdf5.la
|
||||
noinst_LTLIBRARIES = libnetcdfp.la
|
||||
|
||||
EXTRA_DIST = CMakeLists.txt
|
||||
@ -1,6 +1,6 @@
|
||||
/********************************************************************* * Copyright 1993, UCAR/Unidata
|
||||
* See netcdf/COPYRIGHT file for copying and redistribution conditions.
|
||||
* $Header: /upc/share/CVS/netcdf-3/libsrc4/NC5dispatch.c,v 1.5 2010/05/27 02:19:37 dmh Exp $
|
||||
* $Header: /upc/share/CVS/netcdf-3/libsrc4/NCPdispatch.c,v 1.5 2010/05/27 02:19:37 dmh Exp $
|
||||
*********************************************************************/
|
||||
|
||||
/* WARNING: Order of mpi.h, nc.h, and pnetcdf.h is important */
|
||||
@ -12,7 +12,7 @@
|
||||
/* Must follow netcdf.h */
|
||||
#include <pnetcdf.h>
|
||||
|
||||
typedef struct NC5_INFO
|
||||
typedef struct NCP_INFO
|
||||
{
|
||||
/* pnetcdf_file will be true if the file is created/opened with the
|
||||
* parallel-netcdf library. pnetcdf_access_mode keeps track of
|
||||
@ -23,11 +23,11 @@ typedef struct NC5_INFO
|
||||
* to find out the number of dims, because these are collective in
|
||||
* pnetcdf.) */
|
||||
int pnetcdf_access_mode;
|
||||
} NC5_INFO;
|
||||
} NCP_INFO;
|
||||
|
||||
/* Define accessors for the dispatchdata */
|
||||
#define NC5_DATA(nc) ((NC5_INFO*)(nc)->dispatchdata)
|
||||
#define NC5_DATA_SET(nc,data) ((nc)->dispatchdata = (void*)(data))
|
||||
#define NCP_DATA(nc) ((NCP_INFO*)(nc)->dispatchdata)
|
||||
#define NCP_DATA_SET(nc,data) ((nc)->dispatchdata = (void*)(data))
|
||||
|
||||
#define LEGAL_CREATE_FLAGS (NC_NOCLOBBER | NC_64BIT_OFFSET | NC_CLASSIC_MODEL | NC_SHARE | NC_MPIIO | NC_MPIPOSIX | NC_LOCK | NC_PNETCDF)
|
||||
|
||||
@ -37,13 +37,13 @@ typedef struct NC5_INFO
|
||||
/**************************************************/
|
||||
|
||||
static int
|
||||
NC5_create(const char *path, int cmode,
|
||||
NCP_create(const char *path, int cmode,
|
||||
size_t initialsz, int basepe, size_t *chunksizehintp,
|
||||
int use_parallel, void* mpidata,
|
||||
struct NC_Dispatch* table, NC* nc)
|
||||
{
|
||||
int res;
|
||||
NC5_INFO* nc5;
|
||||
NCP_INFO* ncp;
|
||||
MPI_Comm comm = MPI_COMM_WORLD;
|
||||
MPI_Info info = MPI_INFO_NULL;
|
||||
|
||||
@ -62,12 +62,12 @@ NC5_create(const char *path, int cmode,
|
||||
comm = ((NC_MPI_INFO *)mpidata)->comm;
|
||||
info = ((NC_MPI_INFO *)mpidata)->info;
|
||||
|
||||
/* Create our specific NC5_INFO instance */
|
||||
nc5 = (NC5_INFO*)calloc(1,sizeof(NC5_INFO));
|
||||
if(nc5 == NULL) return NC_ENOMEM;
|
||||
/* Create our specific NCP_INFO instance */
|
||||
ncp = (NCP_INFO*)calloc(1,sizeof(NCP_INFO));
|
||||
if(ncp == NULL) return NC_ENOMEM;
|
||||
|
||||
/* Link nc5 and nc */
|
||||
NC5_DATA_SET(nc,nc5);
|
||||
/* Link ncp and nc */
|
||||
NCP_DATA_SET(nc,ncp);
|
||||
|
||||
/* Fix up the cmode by keeping only essential flags;
|
||||
these are the flags that are the same in netcf.h and pnetcdf.h
|
||||
@ -90,18 +90,18 @@ NC5_create(const char *path, int cmode,
|
||||
cmode |= (NC_NETCDF4);
|
||||
res = ncmpi_create(comm, path, cmode, info, &(nc->int_ncid));
|
||||
|
||||
if(res && nc5 != NULL) free(nc5); /* reclaim allocated space */
|
||||
if(res && ncp != NULL) free(ncp); /* reclaim allocated space */
|
||||
return res;
|
||||
}
|
||||
|
||||
static int
|
||||
NC5_open(const char *path, int cmode,
|
||||
NCP_open(const char *path, int cmode,
|
||||
int basepe, size_t *chunksizehintp,
|
||||
int use_parallel, void* mpidata,
|
||||
struct NC_Dispatch* table, NC* nc)
|
||||
{
|
||||
int res;
|
||||
NC5_INFO* nc5;
|
||||
NCP_INFO* ncp;
|
||||
MPI_Comm comm = MPI_COMM_WORLD;
|
||||
MPI_Info info = MPI_INFO_NULL;
|
||||
|
||||
@ -130,28 +130,28 @@ NC5_open(const char *path, int cmode,
|
||||
*/
|
||||
cmode &= (NC_WRITE | NC_NOCLOBBER | NC_LOCK | NC_SHARE | NC_64BIT_OFFSET);
|
||||
|
||||
cmode |= (NC_NETCDF4); /* see comment in NC5_create */
|
||||
cmode |= (NC_NETCDF4); /* see comment in NCP_create */
|
||||
|
||||
/* Create our specific NC5_INFO instance */
|
||||
nc5 = (NC5_INFO*)calloc(1,sizeof(NC5_INFO));
|
||||
if(nc5 == NULL) return NC_ENOMEM;
|
||||
/* Create our specific NCP_INFO instance */
|
||||
ncp = (NCP_INFO*)calloc(1,sizeof(NCP_INFO));
|
||||
if(ncp == NULL) return NC_ENOMEM;
|
||||
|
||||
/* Link nc5 and nc */
|
||||
NC5_DATA_SET(nc,nc5);
|
||||
/* Link ncp and nc */
|
||||
NCP_DATA_SET(nc,ncp);
|
||||
|
||||
res = ncmpi_open(comm, path, cmode, info, &(nc->int_ncid));
|
||||
|
||||
/* Default to independent access, like netCDF-4/HDF5 files. */
|
||||
if(!res) {
|
||||
res = ncmpi_begin_indep_data(nc->int_ncid);
|
||||
nc5->pnetcdf_access_mode = NC_INDEPENDENT;
|
||||
ncp->pnetcdf_access_mode = NC_INDEPENDENT;
|
||||
}
|
||||
|
||||
return res;
|
||||
}
|
||||
|
||||
static int
|
||||
NC5_redef(int ncid)
|
||||
NCP_redef(int ncid)
|
||||
{
|
||||
NC* nc;
|
||||
int status = NC_check_id(ncid, &nc);
|
||||
@ -160,35 +160,35 @@ NC5_redef(int ncid)
|
||||
}
|
||||
|
||||
static int
|
||||
NC5_enddef(int ncid)
|
||||
NCP_enddef(int ncid)
|
||||
{
|
||||
int status;
|
||||
NC* nc;
|
||||
NC5_INFO* nc5;
|
||||
NCP_INFO* ncp;
|
||||
|
||||
status = NC_check_id(ncid, &nc);
|
||||
if(status != NC_NOERR)
|
||||
return status;
|
||||
|
||||
nc5 = NC5_DATA(nc);
|
||||
assert(nc5);
|
||||
ncp = NCP_DATA(nc);
|
||||
assert(ncp);
|
||||
|
||||
status = ncmpi_enddef(nc->int_ncid);
|
||||
if(!status) {
|
||||
if (nc5->pnetcdf_access_mode == NC_INDEPENDENT)
|
||||
if (ncp->pnetcdf_access_mode == NC_INDEPENDENT)
|
||||
status = ncmpi_begin_indep_data(nc->int_ncid);
|
||||
}
|
||||
return status;
|
||||
}
|
||||
|
||||
static int
|
||||
NC5__enddef(int ncid, size_t h_minfree, size_t v_align, size_t v_minfree, size_t r_align)
|
||||
NCP__enddef(int ncid, size_t h_minfree, size_t v_align, size_t v_minfree, size_t r_align)
|
||||
{
|
||||
return NC5_enddef(ncid);
|
||||
return NCP_enddef(ncid);
|
||||
}
|
||||
|
||||
static int
|
||||
NC5_sync(int ncid)
|
||||
NCP_sync(int ncid)
|
||||
{
|
||||
NC* nc;
|
||||
int status = NC_check_id(ncid, &nc);
|
||||
@ -197,40 +197,40 @@ NC5_sync(int ncid)
|
||||
}
|
||||
|
||||
static int
|
||||
NC5_abort(int ncid)
|
||||
NCP_abort(int ncid)
|
||||
{
|
||||
NC* nc;
|
||||
NC5_INFO* nc5;
|
||||
NCP_INFO* ncp;
|
||||
int status = NC_check_id(ncid, &nc);
|
||||
if(status != NC_NOERR) goto done;
|
||||
|
||||
status = ncmpi_abort(nc->int_ncid);
|
||||
|
||||
done:
|
||||
nc5 = NC5_DATA(nc);
|
||||
if(nc5 != NULL) free(nc5); /* reclaim allocated space */
|
||||
ncp = NCP_DATA(nc);
|
||||
if(ncp != NULL) free(ncp); /* reclaim allocated space */
|
||||
return status;
|
||||
}
|
||||
|
||||
|
||||
static int
|
||||
NC5_close(int ncid)
|
||||
NCP_close(int ncid)
|
||||
{
|
||||
NC* nc;
|
||||
NC5_INFO* nc5;
|
||||
NCP_INFO* ncp;
|
||||
int status = NC_check_id(ncid, &nc);
|
||||
if(status != NC_NOERR) goto done;
|
||||
|
||||
status = ncmpi_close(nc->int_ncid);
|
||||
|
||||
done:
|
||||
nc5 = NC5_DATA(nc);
|
||||
if(nc5 != NULL) free(nc5); /* reclaim allocated space */
|
||||
ncp = NCP_DATA(nc);
|
||||
if(ncp != NULL) free(ncp); /* reclaim allocated space */
|
||||
return status;
|
||||
}
|
||||
|
||||
static int
|
||||
NC5_set_fill(int ncid, int fillmode, int *old_mode_ptr)
|
||||
NCP_set_fill(int ncid, int fillmode, int *old_mode_ptr)
|
||||
{
|
||||
NC* nc;
|
||||
int status = NC_check_id(ncid, &nc);
|
||||
@ -239,20 +239,20 @@ NC5_set_fill(int ncid, int fillmode, int *old_mode_ptr)
|
||||
}
|
||||
|
||||
static int
|
||||
NC5_inq_base_pe(int ncid, int* pep)
|
||||
NCP_inq_base_pe(int ncid, int* pep)
|
||||
{
|
||||
if(pep) *pep = 0;
|
||||
return NC_NOERR;
|
||||
}
|
||||
|
||||
static int
|
||||
NC5_set_base_pe(int ncid, int pe)
|
||||
NCP_set_base_pe(int ncid, int pe)
|
||||
{
|
||||
return NC_NOERR;
|
||||
}
|
||||
|
||||
static int
|
||||
NC5_inq_format(int ncid, int* formatp)
|
||||
NCP_inq_format(int ncid, int* formatp)
|
||||
{
|
||||
NC* nc;
|
||||
int status = NC_check_id(ncid, &nc);
|
||||
@ -261,7 +261,7 @@ NC5_inq_format(int ncid, int* formatp)
|
||||
}
|
||||
|
||||
static int
|
||||
NC5_inq_format_extended(int ncid, int* formatp, int *modep)
|
||||
NCP_inq_format_extended(int ncid, int* formatp, int *modep)
|
||||
{
|
||||
NC* nc;
|
||||
int status = NC_check_id(ncid, &nc);
|
||||
@ -272,7 +272,7 @@ NC5_inq_format_extended(int ncid, int* formatp, int *modep)
|
||||
}
|
||||
|
||||
static int
|
||||
NC5_inq(int ncid,
|
||||
NCP_inq(int ncid,
|
||||
int *ndimsp,
|
||||
int *nvarsp,
|
||||
int *nattsp,
|
||||
@ -294,7 +294,7 @@ atomic_name[6][NC_MAX_NAME + 1] = {
|
||||
};
|
||||
|
||||
static int
|
||||
NC5_inq_type(int ncid, nc_type typeid, char* name, size_t* size)
|
||||
NCP_inq_type(int ncid, nc_type typeid, char* name, size_t* size)
|
||||
{
|
||||
if(typeid < NC_BYTE || typeid > NC_DOUBLE)
|
||||
return NC_EBADTYPE;
|
||||
@ -310,24 +310,24 @@ NC5_inq_type(int ncid, nc_type typeid, char* name, size_t* size)
|
||||
}
|
||||
|
||||
static int
|
||||
NC5_def_dim(int ncid, const char* name, size_t len, int* idp)
|
||||
NCP_def_dim(int ncid, const char* name, size_t len, int* idp)
|
||||
{
|
||||
int status;
|
||||
NC5_INFO* nc5;
|
||||
NCP_INFO* ncp;
|
||||
NC* nc;
|
||||
|
||||
status = NC_check_id(ncid, &nc);
|
||||
if(status != NC_NOERR)
|
||||
return status;
|
||||
|
||||
nc5 = NC5_DATA(nc);
|
||||
assert(nc5);
|
||||
ncp = NCP_DATA(nc);
|
||||
assert(ncp);
|
||||
|
||||
return ncmpi_def_dim(nc->int_ncid, name, len, idp);
|
||||
}
|
||||
|
||||
static int
|
||||
NC5_inq_dimid(int ncid, const char *name, int *idp)
|
||||
NCP_inq_dimid(int ncid, const char *name, int *idp)
|
||||
{
|
||||
NC* nc;
|
||||
int status = NC_check_id(ncid, &nc);
|
||||
@ -336,7 +336,7 @@ NC5_inq_dimid(int ncid, const char *name, int *idp)
|
||||
}
|
||||
|
||||
static int
|
||||
NC5_inq_dim(int ncid, int dimid, char *name, size_t* lenp)
|
||||
NCP_inq_dim(int ncid, int dimid, char *name, size_t* lenp)
|
||||
{
|
||||
int status;
|
||||
NC* nc;
|
||||
@ -349,7 +349,7 @@ NC5_inq_dim(int ncid, int dimid, char *name, size_t* lenp)
|
||||
}
|
||||
|
||||
static int
|
||||
NC5_inq_unlimdim(int ncid, int *unlimdimidp)
|
||||
NCP_inq_unlimdim(int ncid, int *unlimdimidp)
|
||||
{
|
||||
NC* nc;
|
||||
int status = NC_check_id(ncid, &nc);
|
||||
@ -358,7 +358,7 @@ NC5_inq_unlimdim(int ncid, int *unlimdimidp)
|
||||
}
|
||||
|
||||
static int
|
||||
NC5_rename_dim(int ncid, int dimid, const char* newname)
|
||||
NCP_rename_dim(int ncid, int dimid, const char* newname)
|
||||
{
|
||||
NC* nc;
|
||||
int status = NC_check_id(ncid, &nc);
|
||||
@ -367,7 +367,7 @@ NC5_rename_dim(int ncid, int dimid, const char* newname)
|
||||
}
|
||||
|
||||
static int
|
||||
NC5_inq_att(int ncid, int varid, const char* name, nc_type* xtypep, size_t* lenp)
|
||||
NCP_inq_att(int ncid, int varid, const char* name, nc_type* xtypep, size_t* lenp)
|
||||
{
|
||||
NC* nc;
|
||||
MPI_Offset mpilen;
|
||||
@ -379,7 +379,7 @@ NC5_inq_att(int ncid, int varid, const char* name, nc_type* xtypep, size_t* lenp
|
||||
}
|
||||
|
||||
static int
|
||||
NC5_inq_attid(int ncid, int varid, const char *name, int *idp)
|
||||
NCP_inq_attid(int ncid, int varid, const char *name, int *idp)
|
||||
{
|
||||
NC* nc;
|
||||
int status = NC_check_id(ncid, &nc);
|
||||
@ -388,7 +388,7 @@ NC5_inq_attid(int ncid, int varid, const char *name, int *idp)
|
||||
}
|
||||
|
||||
static int
|
||||
NC5_inq_attname(int ncid, int varid, int attnum, char *name)
|
||||
NCP_inq_attname(int ncid, int varid, int attnum, char *name)
|
||||
{
|
||||
NC* nc;
|
||||
int status = NC_check_id(ncid, &nc);
|
||||
@ -398,7 +398,7 @@ NC5_inq_attname(int ncid, int varid, int attnum, char *name)
|
||||
}
|
||||
|
||||
static int
|
||||
NC5_rename_att(int ncid, int varid, const char *name,
|
||||
NCP_rename_att(int ncid, int varid, const char *name,
|
||||
const char *newname)
|
||||
{
|
||||
NC* nc;
|
||||
@ -408,7 +408,7 @@ NC5_rename_att(int ncid, int varid, const char *name,
|
||||
}
|
||||
|
||||
static int
|
||||
NC5_del_att(int ncid, int varid, const char *name)
|
||||
NCP_del_att(int ncid, int varid, const char *name)
|
||||
{
|
||||
NC* nc;
|
||||
int status = NC_check_id(ncid, &nc);
|
||||
@ -417,7 +417,7 @@ NC5_del_att(int ncid, int varid, const char *name)
|
||||
}
|
||||
|
||||
int
|
||||
NC5_get_att(
|
||||
NCP_get_att(
|
||||
int ncid,
|
||||
int varid,
|
||||
const char *name,
|
||||
@ -431,7 +431,7 @@ NC5_get_att(
|
||||
status = NC_check_id(ncid, &nc);
|
||||
if(status != NC_NOERR) return status;
|
||||
|
||||
status = NC5_inq_att(ncid,varid,name,&xtype,NULL);
|
||||
status = NCP_inq_att(ncid,varid,name,&xtype,NULL);
|
||||
|
||||
if(memtype == NC_NAT) memtype = xtype;
|
||||
|
||||
@ -459,7 +459,7 @@ NC5_get_att(
|
||||
}
|
||||
|
||||
int
|
||||
NC5_put_att(
|
||||
NCP_put_att(
|
||||
int ncid,
|
||||
int varid,
|
||||
const char *name,
|
||||
@ -509,24 +509,24 @@ NC5_put_att(
|
||||
}
|
||||
|
||||
static int
|
||||
NC5_def_var(int ncid, const char *name, nc_type xtype,
|
||||
NCP_def_var(int ncid, const char *name, nc_type xtype,
|
||||
int ndims, const int *dimidsp, int *varidp)
|
||||
{
|
||||
NC* nc;
|
||||
NC5_INFO* nc5;
|
||||
NCP_INFO* ncp;
|
||||
int status;
|
||||
|
||||
status = NC_check_id(ncid, &nc);
|
||||
if(status != NC_NOERR) return status;
|
||||
nc5 = NC5_DATA(nc);
|
||||
assert(nc5);
|
||||
ncp = NCP_DATA(nc);
|
||||
assert(ncp);
|
||||
|
||||
status = ncmpi_def_var(nc->int_ncid,name,xtype,ndims,dimidsp,varidp);
|
||||
return status;
|
||||
}
|
||||
|
||||
static int
|
||||
NC5_inq_varid(int ncid, const char *name, int *varidp)
|
||||
NCP_inq_varid(int ncid, const char *name, int *varidp)
|
||||
{
|
||||
NC* nc;
|
||||
int status = NC_check_id(ncid, &nc);
|
||||
@ -535,7 +535,7 @@ NC5_inq_varid(int ncid, const char *name, int *varidp)
|
||||
}
|
||||
|
||||
static int
|
||||
NC5_rename_var(int ncid, int varid, const char *name)
|
||||
NCP_rename_var(int ncid, int varid, const char *name)
|
||||
{
|
||||
NC* nc;
|
||||
int status = NC_check_id(ncid, &nc);
|
||||
@ -544,7 +544,7 @@ NC5_rename_var(int ncid, int varid, const char *name)
|
||||
}
|
||||
|
||||
static int
|
||||
NC5_get_vara(int ncid,
|
||||
NCP_get_vara(int ncid,
|
||||
int varid,
|
||||
const size_t* startp,
|
||||
const size_t* countp,
|
||||
@ -552,7 +552,7 @@ NC5_get_vara(int ncid,
|
||||
nc_type memtype)
|
||||
{
|
||||
NC* nc;
|
||||
NC5_INFO* nc5;
|
||||
NCP_INFO* ncp;
|
||||
int status;
|
||||
MPI_Offset mpi_start[NC_MAX_VAR_DIMS], mpi_count[NC_MAX_VAR_DIMS];
|
||||
int d;
|
||||
@ -561,8 +561,8 @@ NC5_get_vara(int ncid,
|
||||
status = NC_check_id(ncid, &nc);
|
||||
if(status != NC_NOERR) return status;
|
||||
|
||||
nc5 = NC5_DATA(nc);
|
||||
assert(nc5);
|
||||
ncp = NCP_DATA(nc);
|
||||
assert(ncp);
|
||||
|
||||
/* get variable's rank */
|
||||
status= ncmpi_inq_varndims(nc->int_ncid, varid, &rank);
|
||||
@ -574,7 +574,7 @@ NC5_get_vara(int ncid,
|
||||
mpi_count[d] = countp[d];
|
||||
}
|
||||
|
||||
if(nc5->pnetcdf_access_mode == NC_INDEPENDENT) {
|
||||
if(ncp->pnetcdf_access_mode == NC_INDEPENDENT) {
|
||||
switch(memtype) {
|
||||
case NC_BYTE:
|
||||
status=ncmpi_get_vara_schar(nc->int_ncid, varid, mpi_start, mpi_count, ip); break;
|
||||
@ -621,7 +621,7 @@ NC5_get_vara(int ncid,
|
||||
}
|
||||
|
||||
static int
|
||||
NC5_put_vara(int ncid,
|
||||
NCP_put_vara(int ncid,
|
||||
int varid,
|
||||
const size_t* startp,
|
||||
const size_t* countp,
|
||||
@ -629,7 +629,7 @@ NC5_put_vara(int ncid,
|
||||
nc_type memtype)
|
||||
{
|
||||
NC* nc;
|
||||
NC5_INFO* nc5;
|
||||
NCP_INFO* ncp;
|
||||
int status;
|
||||
MPI_Offset mpi_start[NC_MAX_VAR_DIMS], mpi_count[NC_MAX_VAR_DIMS];
|
||||
int d;
|
||||
@ -638,8 +638,8 @@ NC5_put_vara(int ncid,
|
||||
status = NC_check_id(ncid, &nc);
|
||||
if(status != NC_NOERR) return status;
|
||||
|
||||
nc5 = NC5_DATA(nc);
|
||||
assert(nc5);
|
||||
ncp = NCP_DATA(nc);
|
||||
assert(ncp);
|
||||
|
||||
/* get variable's rank */
|
||||
status = ncmpi_inq_varndims(nc->int_ncid, varid, &rank);
|
||||
@ -651,7 +651,7 @@ NC5_put_vara(int ncid,
|
||||
mpi_count[d] = countp[d];
|
||||
}
|
||||
|
||||
if(nc5->pnetcdf_access_mode == NC_INDEPENDENT) {
|
||||
if(ncp->pnetcdf_access_mode == NC_INDEPENDENT) {
|
||||
switch(memtype) {
|
||||
case NC_BYTE:
|
||||
status = ncmpi_put_vara_schar(nc->int_ncid, varid, mpi_start, mpi_count, ip); break;
|
||||
@ -698,7 +698,7 @@ NC5_put_vara(int ncid,
|
||||
}
|
||||
|
||||
static int
|
||||
NC5_inq_var_all(int ncid, int varid, char *name, nc_type *xtypep,
|
||||
NCP_inq_var_all(int ncid, int varid, char *name, nc_type *xtypep,
|
||||
int *ndimsp, int *dimidsp, int *nattsp,
|
||||
int *shufflep, int *deflatep, int *deflate_levelp,
|
||||
int *fletcher32p, int *contiguousp, size_t *chunksizesp,
|
||||
@ -724,10 +724,10 @@ NC5_inq_var_all(int ncid, int varid, char *name, nc_type *xtypep,
|
||||
}
|
||||
|
||||
static int
|
||||
NC5_var_par_access(int ncid, int varid, int par_access)
|
||||
NCP_var_par_access(int ncid, int varid, int par_access)
|
||||
{
|
||||
NC *nc;
|
||||
NC5_INFO* nc5;
|
||||
NCP_INFO* ncp;
|
||||
int status;
|
||||
|
||||
if (par_access != NC_INDEPENDENT && par_access != NC_COLLECTIVE)
|
||||
@ -736,12 +736,12 @@ NC5_var_par_access(int ncid, int varid, int par_access)
|
||||
status = NC_check_id(ncid, &nc);
|
||||
if(status != NC_NOERR) return status;
|
||||
|
||||
nc5 = NC5_DATA(nc);
|
||||
assert(nc5);
|
||||
ncp = NCP_DATA(nc);
|
||||
assert(ncp);
|
||||
|
||||
if(par_access == nc5->pnetcdf_access_mode)
|
||||
if(par_access == ncp->pnetcdf_access_mode)
|
||||
return NC_NOERR;
|
||||
nc5->pnetcdf_access_mode = par_access;
|
||||
ncp->pnetcdf_access_mode = par_access;
|
||||
if (par_access == NC_INDEPENDENT)
|
||||
return ncmpi_begin_indep_data(nc->int_ncid);
|
||||
else
|
||||
@ -751,18 +751,18 @@ NC5_var_par_access(int ncid, int varid, int par_access)
|
||||
#ifdef USE_NETCDF4
|
||||
|
||||
static int
|
||||
NC5_show_metadata(int ncid)
|
||||
NCP_show_metadata(int ncid)
|
||||
{
|
||||
return NC_NOERR;
|
||||
}
|
||||
|
||||
static int
|
||||
NC5_inq_unlimdims(int ncid, int *ndimsp, int *unlimdimidsp)
|
||||
NCP_inq_unlimdims(int ncid, int *ndimsp, int *unlimdimidsp)
|
||||
{
|
||||
int retval;
|
||||
int unlimid;
|
||||
|
||||
if((retval = NC5_inq_unlimdim(ncid, &unlimid)))
|
||||
if((retval = NCP_inq_unlimdim(ncid, &unlimid)))
|
||||
return retval;
|
||||
if(unlimid != -1) {
|
||||
if(ndimsp) *ndimsp = 1;
|
||||
@ -774,7 +774,7 @@ NC5_inq_unlimdims(int ncid, int *ndimsp, int *unlimdimidsp)
|
||||
}
|
||||
|
||||
static int
|
||||
NC5_inq_type_equal(int ncid1, nc_type typeid1, int ncid2, nc_type typeid2, int* equalp)
|
||||
NCP_inq_type_equal(int ncid1, nc_type typeid1, int ncid2, nc_type typeid2, int* equalp)
|
||||
{
|
||||
/* Check input. */
|
||||
if(equalp == NULL) return NC_NOERR;
|
||||
@ -805,26 +805,26 @@ NC5_inq_type_equal(int ncid1, nc_type typeid1, int ncid2, nc_type typeid2, int*
|
||||
}
|
||||
|
||||
static int
|
||||
NC5_def_grp(int parent_ncid, const char *name, int *new_ncid)
|
||||
NCP_def_grp(int parent_ncid, const char *name, int *new_ncid)
|
||||
{
|
||||
return NC_ENOTNC4;
|
||||
}
|
||||
|
||||
static int
|
||||
NC5_rename_grp(int ncid, const char *name)
|
||||
NCP_rename_grp(int ncid, const char *name)
|
||||
{
|
||||
return NC_ENOTNC4;
|
||||
}
|
||||
|
||||
static int
|
||||
NC5_inq_ncid(int ncid, const char *name, int *grp_ncid)
|
||||
NCP_inq_ncid(int ncid, const char *name, int *grp_ncid)
|
||||
{
|
||||
if(grp_ncid) *grp_ncid = ncid;
|
||||
return NC_NOERR;
|
||||
}
|
||||
|
||||
static int
|
||||
NC5_inq_grps(int ncid, int *numgrps, int *ncids)
|
||||
NCP_inq_grps(int ncid, int *numgrps, int *ncids)
|
||||
{
|
||||
if(numgrps)
|
||||
*numgrps = 0;
|
||||
@ -832,7 +832,7 @@ NC5_inq_grps(int ncid, int *numgrps, int *ncids)
|
||||
}
|
||||
|
||||
static int
|
||||
NC5_inq_grpname(int ncid, char *name)
|
||||
NCP_inq_grpname(int ncid, char *name)
|
||||
{
|
||||
if(name)
|
||||
strcpy(name, "/");
|
||||
@ -840,7 +840,7 @@ NC5_inq_grpname(int ncid, char *name)
|
||||
}
|
||||
|
||||
static int
|
||||
NC5_inq_grpname_full(int ncid, size_t *lenp, char *full_name)
|
||||
NCP_inq_grpname_full(int ncid, size_t *lenp, char *full_name)
|
||||
{
|
||||
if(full_name)
|
||||
strcpy(full_name, "/");
|
||||
@ -849,24 +849,24 @@ NC5_inq_grpname_full(int ncid, size_t *lenp, char *full_name)
|
||||
}
|
||||
|
||||
static int
|
||||
NC5_inq_grp_parent(int ncid, int *parent_ncid)
|
||||
NCP_inq_grp_parent(int ncid, int *parent_ncid)
|
||||
{
|
||||
return NC_ENOGRP;
|
||||
}
|
||||
|
||||
static int
|
||||
NC5_inq_grp_full_ncid(int ncid, const char *full_name, int *grp_ncid)
|
||||
NCP_inq_grp_full_ncid(int ncid, const char *full_name, int *grp_ncid)
|
||||
{
|
||||
return NC_ENOGRP;
|
||||
}
|
||||
|
||||
static int
|
||||
NC5_inq_varids(int ncid, int *nvarsp, int *varids)
|
||||
NCP_inq_varids(int ncid, int *nvarsp, int *varids)
|
||||
{
|
||||
int retval,v,nvars;
|
||||
/* This is, effectively, a netcdf-3 file, there is only one group, the root
|
||||
group, and its vars have ids 0 thru nvars - 1. */
|
||||
if((retval = NC5_inq(ncid, NULL, &nvars, NULL, NULL)))
|
||||
if((retval = NCP_inq(ncid, NULL, &nvars, NULL, NULL)))
|
||||
return retval;
|
||||
if(nvarsp) *nvarsp = nvars;
|
||||
if(varids)
|
||||
@ -876,12 +876,12 @@ NC5_inq_varids(int ncid, int *nvarsp, int *varids)
|
||||
}
|
||||
|
||||
static int
|
||||
NC5_inq_dimids(int ncid, int *ndimsp, int *dimids, int include_parents)
|
||||
NCP_inq_dimids(int ncid, int *ndimsp, int *dimids, int include_parents)
|
||||
{
|
||||
int retval,d,ndims;
|
||||
/* If this is like a netcdf-3 file, then the dimids are going to be 0
|
||||
thru ndims-1, so just provide them. */
|
||||
if((retval = NC5_inq(ncid, &ndims, NULL, NULL, NULL)))
|
||||
if((retval = NCP_inq(ncid, &ndims, NULL, NULL, NULL)))
|
||||
return retval;
|
||||
if(ndimsp) *ndimsp = ndims;
|
||||
if(dimids)
|
||||
@ -891,7 +891,7 @@ NC5_inq_dimids(int ncid, int *ndimsp, int *dimids, int include_parents)
|
||||
}
|
||||
|
||||
static int
|
||||
NC5_inq_typeid(int ncid, const char *name, nc_type *typeidp)
|
||||
NCP_inq_typeid(int ncid, const char *name, nc_type *typeidp)
|
||||
{
|
||||
int i;
|
||||
for (i = 0; i <= ATOMICTYPEMAX; i++)
|
||||
@ -903,34 +903,34 @@ NC5_inq_typeid(int ncid, const char *name, nc_type *typeidp)
|
||||
}
|
||||
|
||||
static int
|
||||
NC5_inq_typeids(int ncid, int *ntypes, int *typeids)
|
||||
NCP_inq_typeids(int ncid, int *ntypes, int *typeids)
|
||||
{
|
||||
if(ntypes) *ntypes = 0;
|
||||
return NC_NOERR;
|
||||
}
|
||||
|
||||
static int
|
||||
NC5_inq_user_type(int ncid, nc_type typeid, char *name, size_t *size,
|
||||
NCP_inq_user_type(int ncid, nc_type typeid, char *name, size_t *size,
|
||||
nc_type *base_nc_typep, size_t *nfieldsp, int *classp)
|
||||
{
|
||||
return NC_ENOTNC4;
|
||||
}
|
||||
|
||||
static int
|
||||
NC5_def_compound(int ncid, size_t size, const char *name, nc_type *typeidp)
|
||||
NCP_def_compound(int ncid, size_t size, const char *name, nc_type *typeidp)
|
||||
{
|
||||
return NC_ENOTNC4;
|
||||
}
|
||||
|
||||
static int
|
||||
NC5_insert_compound(int ncid, nc_type typeid, const char *name, size_t offset,
|
||||
NCP_insert_compound(int ncid, nc_type typeid, const char *name, size_t offset,
|
||||
nc_type field_typeid)
|
||||
{
|
||||
return NC_ENOTNC4;
|
||||
}
|
||||
|
||||
static int
|
||||
NC5_insert_array_compound(int ncid, nc_type typeid, const char *name,
|
||||
NCP_insert_array_compound(int ncid, nc_type typeid, const char *name,
|
||||
size_t offset, nc_type field_typeid,
|
||||
int ndims, const int *dim_sizes)
|
||||
{
|
||||
@ -939,7 +939,7 @@ NC5_insert_array_compound(int ncid, nc_type typeid, const char *name,
|
||||
|
||||
|
||||
static int
|
||||
NC5_inq_compound_field(int ncid, nc_type typeid, int fieldid, char *name,
|
||||
NCP_inq_compound_field(int ncid, nc_type typeid, int fieldid, char *name,
|
||||
size_t *offsetp, nc_type *field_typeidp, int *ndimsp,
|
||||
int *dim_sizesp)
|
||||
{
|
||||
@ -947,103 +947,103 @@ NC5_inq_compound_field(int ncid, nc_type typeid, int fieldid, char *name,
|
||||
}
|
||||
|
||||
static int
|
||||
NC5_inq_compound_fieldindex(int ncid, nc_type typeid, const char *name, int *fieldidp)
|
||||
NCP_inq_compound_fieldindex(int ncid, nc_type typeid, const char *name, int *fieldidp)
|
||||
{
|
||||
return NC_ENOTNC4;
|
||||
}
|
||||
|
||||
static int
|
||||
NC5_def_opaque(int ncid, size_t datum_size, const char *name, nc_type* xtypep)
|
||||
NCP_def_opaque(int ncid, size_t datum_size, const char *name, nc_type* xtypep)
|
||||
{
|
||||
return NC_ENOTNC4;
|
||||
}
|
||||
|
||||
static int
|
||||
NC5_def_vlen(int ncid, const char *name, nc_type base_typeid, nc_type* xtypep)
|
||||
NCP_def_vlen(int ncid, const char *name, nc_type base_typeid, nc_type* xtypep)
|
||||
{
|
||||
return NC_ENOTNC4;
|
||||
}
|
||||
|
||||
static int
|
||||
NC5_def_enum(int ncid, nc_type base_typeid, const char *name,
|
||||
NCP_def_enum(int ncid, nc_type base_typeid, const char *name,
|
||||
nc_type *typeidp)
|
||||
{
|
||||
return NC_ENOTNC4;
|
||||
}
|
||||
|
||||
static int
|
||||
NC5_inq_enum_ident(int ncid, nc_type xtype, long long value, char *identifier)
|
||||
NCP_inq_enum_ident(int ncid, nc_type xtype, long long value, char *identifier)
|
||||
{
|
||||
return NC_ENOTNC4;
|
||||
}
|
||||
|
||||
static int
|
||||
NC5_inq_enum_member(int ncid, nc_type typeid, int idx, char *identifier,
|
||||
NCP_inq_enum_member(int ncid, nc_type typeid, int idx, char *identifier,
|
||||
void *value)
|
||||
{
|
||||
return NC_ENOTNC4;
|
||||
}
|
||||
|
||||
static int
|
||||
NC5_insert_enum(int ncid, nc_type typeid, const char *identifier,
|
||||
NCP_insert_enum(int ncid, nc_type typeid, const char *identifier,
|
||||
const void *value)
|
||||
{
|
||||
return NC_ENOTNC4;
|
||||
}
|
||||
|
||||
static int
|
||||
NC5_put_vlen_element(int ncid, int typeid, void *vlen_element,
|
||||
NCP_put_vlen_element(int ncid, int typeid, void *vlen_element,
|
||||
size_t len, const void *data)
|
||||
{
|
||||
return NC_ENOTNC4;
|
||||
}
|
||||
|
||||
static int
|
||||
NC5_get_vlen_element(int ncid, int typeid, const void *vlen_element,
|
||||
NCP_get_vlen_element(int ncid, int typeid, const void *vlen_element,
|
||||
size_t *len, void *data)
|
||||
{
|
||||
return NC_ENOTNC4;
|
||||
}
|
||||
|
||||
static int
|
||||
NC5_set_var_chunk_cache(int ncid, int varid, size_t size, size_t nelems, float preemption)
|
||||
NCP_set_var_chunk_cache(int ncid, int varid, size_t size, size_t nelems, float preemption)
|
||||
{
|
||||
return NC_ENOTNC4;
|
||||
}
|
||||
|
||||
static int
|
||||
NC5_get_var_chunk_cache(int ncid, int varid, size_t *sizep, size_t *nelemsp, float *preemptionp)
|
||||
NCP_get_var_chunk_cache(int ncid, int varid, size_t *sizep, size_t *nelemsp, float *preemptionp)
|
||||
{
|
||||
return NC_ENOTNC4;
|
||||
}
|
||||
|
||||
static int
|
||||
NC5_def_var_deflate(int ncid, int varid, int shuffle, int deflate,
|
||||
NCP_def_var_deflate(int ncid, int varid, int shuffle, int deflate,
|
||||
int deflate_level)
|
||||
{
|
||||
return NC_ENOTNC4;
|
||||
}
|
||||
|
||||
static int
|
||||
NC5_def_var_fletcher32(int ncid, int varid, int fletcher32)
|
||||
NCP_def_var_fletcher32(int ncid, int varid, int fletcher32)
|
||||
{
|
||||
return NC_ENOTNC4;
|
||||
}
|
||||
|
||||
static int
|
||||
NC5_def_var_chunking(int ncid, int varid, int contiguous, const size_t *chunksizesp)
|
||||
NCP_def_var_chunking(int ncid, int varid, int contiguous, const size_t *chunksizesp)
|
||||
{
|
||||
return NC_ENOTNC4;
|
||||
}
|
||||
|
||||
static int
|
||||
NC5_def_var_fill(int ncid, int varid, int no_fill, const void *fill_value)
|
||||
NCP_def_var_fill(int ncid, int varid, int no_fill, const void *fill_value)
|
||||
{
|
||||
return NC_ENOTNC4;
|
||||
}
|
||||
|
||||
static int
|
||||
NC5_def_var_endian(int ncid, int varid, int endianness)
|
||||
NCP_def_var_endian(int ncid, int varid, int endianness)
|
||||
{
|
||||
return NC_ENOTNC4;
|
||||
}
|
||||
@ -1053,103 +1053,103 @@ NC5_def_var_endian(int ncid, int varid, int endianness)
|
||||
/**************************************************/
|
||||
/* Pnetcdf Dispatch table */
|
||||
|
||||
NC_Dispatch NC5_dispatcher = {
|
||||
NC_Dispatch NCP_dispatcher = {
|
||||
|
||||
NC_DISPATCH_NC5,
|
||||
NC_DISPATCH_NCP,
|
||||
|
||||
NC5_create,
|
||||
NC5_open,
|
||||
NCP_create,
|
||||
NCP_open,
|
||||
|
||||
NC5_redef,
|
||||
NC5__enddef,
|
||||
NC5_sync,
|
||||
NC5_abort,
|
||||
NC5_close,
|
||||
NC5_set_fill,
|
||||
NC5_inq_base_pe,
|
||||
NC5_set_base_pe,
|
||||
NC5_inq_format,
|
||||
NC5_inq_format_extended,
|
||||
NCP_redef,
|
||||
NCP__enddef,
|
||||
NCP_sync,
|
||||
NCP_abort,
|
||||
NCP_close,
|
||||
NCP_set_fill,
|
||||
NCP_inq_base_pe,
|
||||
NCP_set_base_pe,
|
||||
NCP_inq_format,
|
||||
NCP_inq_format_extended,
|
||||
|
||||
NC5_inq,
|
||||
NC5_inq_type,
|
||||
NCP_inq,
|
||||
NCP_inq_type,
|
||||
|
||||
NC5_def_dim,
|
||||
NC5_inq_dimid,
|
||||
NC5_inq_dim,
|
||||
NC5_inq_unlimdim,
|
||||
NC5_rename_dim,
|
||||
NCP_def_dim,
|
||||
NCP_inq_dimid,
|
||||
NCP_inq_dim,
|
||||
NCP_inq_unlimdim,
|
||||
NCP_rename_dim,
|
||||
|
||||
NC5_inq_att,
|
||||
NC5_inq_attid,
|
||||
NC5_inq_attname,
|
||||
NC5_rename_att,
|
||||
NC5_del_att,
|
||||
NC5_get_att,
|
||||
NC5_put_att,
|
||||
NCP_inq_att,
|
||||
NCP_inq_attid,
|
||||
NCP_inq_attname,
|
||||
NCP_rename_att,
|
||||
NCP_del_att,
|
||||
NCP_get_att,
|
||||
NCP_put_att,
|
||||
|
||||
NC5_def_var,
|
||||
NC5_inq_varid,
|
||||
NC5_rename_var,
|
||||
NC5_get_vara,
|
||||
NC5_put_vara,
|
||||
NCP_def_var,
|
||||
NCP_inq_varid,
|
||||
NCP_rename_var,
|
||||
NCP_get_vara,
|
||||
NCP_put_vara,
|
||||
NCDEFAULT_get_vars,
|
||||
NCDEFAULT_put_vars,
|
||||
NCDEFAULT_get_varm,
|
||||
NCDEFAULT_put_varm,
|
||||
|
||||
NC5_inq_var_all,
|
||||
NCP_inq_var_all,
|
||||
|
||||
NC5_var_par_access,
|
||||
NCP_var_par_access,
|
||||
|
||||
#ifdef USE_NETCDF4
|
||||
NC5_show_metadata,
|
||||
NC5_inq_unlimdims,
|
||||
NCP_show_metadata,
|
||||
NCP_inq_unlimdims,
|
||||
|
||||
NC5_inq_ncid,
|
||||
NC5_inq_grps,
|
||||
NC5_inq_grpname,
|
||||
NC5_inq_grpname_full,
|
||||
NC5_inq_grp_parent,
|
||||
NC5_inq_grp_full_ncid,
|
||||
NC5_inq_varids,
|
||||
NC5_inq_dimids,
|
||||
NC5_inq_typeids,
|
||||
NC5_inq_type_equal,
|
||||
NC5_def_grp,
|
||||
NC5_rename_grp,
|
||||
NC5_inq_user_type,
|
||||
NC5_inq_typeid,
|
||||
NCP_inq_ncid,
|
||||
NCP_inq_grps,
|
||||
NCP_inq_grpname,
|
||||
NCP_inq_grpname_full,
|
||||
NCP_inq_grp_parent,
|
||||
NCP_inq_grp_full_ncid,
|
||||
NCP_inq_varids,
|
||||
NCP_inq_dimids,
|
||||
NCP_inq_typeids,
|
||||
NCP_inq_type_equal,
|
||||
NCP_def_grp,
|
||||
NCP_rename_grp,
|
||||
NCP_inq_user_type,
|
||||
NCP_inq_typeid,
|
||||
|
||||
NC5_def_compound,
|
||||
NC5_insert_compound,
|
||||
NC5_insert_array_compound,
|
||||
NC5_inq_compound_field,
|
||||
NC5_inq_compound_fieldindex,
|
||||
NC5_def_vlen,
|
||||
NC5_put_vlen_element,
|
||||
NC5_get_vlen_element,
|
||||
NC5_def_enum,
|
||||
NC5_insert_enum,
|
||||
NC5_inq_enum_member,
|
||||
NC5_inq_enum_ident,
|
||||
NC5_def_opaque,
|
||||
NC5_def_var_deflate,
|
||||
NC5_def_var_fletcher32,
|
||||
NC5_def_var_chunking,
|
||||
NC5_def_var_fill,
|
||||
NC5_def_var_endian,
|
||||
NC5_set_var_chunk_cache,
|
||||
NC5_get_var_chunk_cache,
|
||||
NCP_def_compound,
|
||||
NCP_insert_compound,
|
||||
NCP_insert_array_compound,
|
||||
NCP_inq_compound_field,
|
||||
NCP_inq_compound_fieldindex,
|
||||
NCP_def_vlen,
|
||||
NCP_put_vlen_element,
|
||||
NCP_get_vlen_element,
|
||||
NCP_def_enum,
|
||||
NCP_insert_enum,
|
||||
NCP_inq_enum_member,
|
||||
NCP_inq_enum_ident,
|
||||
NCP_def_opaque,
|
||||
NCP_def_var_deflate,
|
||||
NCP_def_var_fletcher32,
|
||||
NCP_def_var_chunking,
|
||||
NCP_def_var_fill,
|
||||
NCP_def_var_endian,
|
||||
NCP_set_var_chunk_cache,
|
||||
NCP_get_var_chunk_cache,
|
||||
#endif /*USE_NETCDF4*/
|
||||
|
||||
};
|
||||
|
||||
NC_Dispatch* NC5_dispatch_table = NULL; /* moved here from ddispatch.c */
|
||||
NC_Dispatch* NCP_dispatch_table = NULL; /* moved here from ddispatch.c */
|
||||
|
||||
int
|
||||
NC5_initialize(void)
|
||||
NCP_initialize(void)
|
||||
{
|
||||
NC5_dispatch_table = &NC5_dispatcher;
|
||||
NCP_dispatch_table = &NCP_dispatcher;
|
||||
return NC_NOERR;
|
||||
}
|
||||
6161
nc_test/test_get.c
6161
nc_test/test_get.c
File diff suppressed because it is too large
Load Diff
7206
nc_test/test_put.c
7206
nc_test/test_put.c
File diff suppressed because it is too large
Load Diff
2051
ncgen/ncgentab.c
2051
ncgen/ncgentab.c
File diff suppressed because it is too large
Load Diff
149
ncgen/ncgentab.h
149
ncgen/ncgentab.h
@ -1,19 +1,19 @@
|
||||
/* A Bison parser, made by GNU Bison 3.0. */
|
||||
/* A Bison parser, made by GNU Bison 2.5. */
|
||||
|
||||
/* Bison interface for Yacc-like parsers in C
|
||||
|
||||
Copyright (C) 1984, 1989-1990, 2000-2013 Free Software Foundation, Inc.
|
||||
|
||||
|
||||
Copyright (C) 1984, 1989-1990, 2000-2011 Free Software Foundation, Inc.
|
||||
|
||||
This program is free software: you can redistribute it and/or modify
|
||||
it under the terms of the GNU General Public License as published by
|
||||
the Free Software Foundation, either version 3 of the License, or
|
||||
(at your option) any later version.
|
||||
|
||||
|
||||
This program is distributed in the hope that it will be useful,
|
||||
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||||
GNU General Public License for more details.
|
||||
|
||||
|
||||
You should have received a copy of the GNU General Public License
|
||||
along with this program. If not, see <http://www.gnu.org/licenses/>. */
|
||||
|
||||
@ -26,82 +26,76 @@
|
||||
special exception, which will cause the skeleton and the resulting
|
||||
Bison output files to be licensed under the GNU General Public
|
||||
License without this special exception.
|
||||
|
||||
|
||||
This special exception was added by the Free Software Foundation in
|
||||
version 2.2 of Bison. */
|
||||
|
||||
#ifndef YY_NCG_NCGEN_TAB_H_INCLUDED
|
||||
# define YY_NCG_NCGEN_TAB_H_INCLUDED
|
||||
/* Debug traces. */
|
||||
#ifndef YYDEBUG
|
||||
# define YYDEBUG 1
|
||||
#endif
|
||||
#if YYDEBUG
|
||||
extern int ncgdebug;
|
||||
#endif
|
||||
|
||||
/* Token type. */
|
||||
/* Tokens. */
|
||||
#ifndef YYTOKENTYPE
|
||||
# define YYTOKENTYPE
|
||||
enum yytokentype
|
||||
{
|
||||
NC_UNLIMITED_K = 258,
|
||||
CHAR_K = 259,
|
||||
BYTE_K = 260,
|
||||
SHORT_K = 261,
|
||||
INT_K = 262,
|
||||
FLOAT_K = 263,
|
||||
DOUBLE_K = 264,
|
||||
UBYTE_K = 265,
|
||||
USHORT_K = 266,
|
||||
UINT_K = 267,
|
||||
INT64_K = 268,
|
||||
UINT64_K = 269,
|
||||
IDENT = 270,
|
||||
TERMSTRING = 271,
|
||||
CHAR_CONST = 272,
|
||||
BYTE_CONST = 273,
|
||||
SHORT_CONST = 274,
|
||||
INT_CONST = 275,
|
||||
INT64_CONST = 276,
|
||||
UBYTE_CONST = 277,
|
||||
USHORT_CONST = 278,
|
||||
UINT_CONST = 279,
|
||||
UINT64_CONST = 280,
|
||||
FLOAT_CONST = 281,
|
||||
DOUBLE_CONST = 282,
|
||||
DIMENSIONS = 283,
|
||||
VARIABLES = 284,
|
||||
NETCDF = 285,
|
||||
DATA = 286,
|
||||
TYPES = 287,
|
||||
COMPOUND = 288,
|
||||
ENUM = 289,
|
||||
OPAQUE = 290,
|
||||
OPAQUESTRING = 291,
|
||||
GROUP = 292,
|
||||
PATH = 293,
|
||||
FILLMARKER = 294,
|
||||
NIL = 295,
|
||||
_FILLVALUE = 296,
|
||||
_FORMAT = 297,
|
||||
_STORAGE = 298,
|
||||
_CHUNKSIZES = 299,
|
||||
_DEFLATELEVEL = 300,
|
||||
_SHUFFLE = 301,
|
||||
_ENDIANNESS = 302,
|
||||
_NOFILL = 303,
|
||||
_FLETCHER32 = 304,
|
||||
DATASETID = 305
|
||||
};
|
||||
/* Put the tokens into the symbol table, so that GDB and other debuggers
|
||||
know about them. */
|
||||
enum yytokentype {
|
||||
NC_UNLIMITED_K = 258,
|
||||
CHAR_K = 259,
|
||||
BYTE_K = 260,
|
||||
SHORT_K = 261,
|
||||
INT_K = 262,
|
||||
FLOAT_K = 263,
|
||||
DOUBLE_K = 264,
|
||||
UBYTE_K = 265,
|
||||
USHORT_K = 266,
|
||||
UINT_K = 267,
|
||||
INT64_K = 268,
|
||||
UINT64_K = 269,
|
||||
IDENT = 270,
|
||||
TERMSTRING = 271,
|
||||
CHAR_CONST = 272,
|
||||
BYTE_CONST = 273,
|
||||
SHORT_CONST = 274,
|
||||
INT_CONST = 275,
|
||||
INT64_CONST = 276,
|
||||
UBYTE_CONST = 277,
|
||||
USHORT_CONST = 278,
|
||||
UINT_CONST = 279,
|
||||
UINT64_CONST = 280,
|
||||
FLOAT_CONST = 281,
|
||||
DOUBLE_CONST = 282,
|
||||
DIMENSIONS = 283,
|
||||
VARIABLES = 284,
|
||||
NETCDF = 285,
|
||||
DATA = 286,
|
||||
TYPES = 287,
|
||||
COMPOUND = 288,
|
||||
ENUM = 289,
|
||||
OPAQUE = 290,
|
||||
OPAQUESTRING = 291,
|
||||
GROUP = 292,
|
||||
PATH = 293,
|
||||
FILLMARKER = 294,
|
||||
NIL = 295,
|
||||
_FILLVALUE = 296,
|
||||
_FORMAT = 297,
|
||||
_STORAGE = 298,
|
||||
_CHUNKSIZES = 299,
|
||||
_DEFLATELEVEL = 300,
|
||||
_SHUFFLE = 301,
|
||||
_ENDIANNESS = 302,
|
||||
_NOFILL = 303,
|
||||
_FLETCHER32 = 304,
|
||||
DATASETID = 305
|
||||
};
|
||||
#endif
|
||||
|
||||
/* Value type. */
|
||||
|
||||
|
||||
#if ! defined YYSTYPE && ! defined YYSTYPE_IS_DECLARED
|
||||
typedef union YYSTYPE YYSTYPE;
|
||||
union YYSTYPE
|
||||
typedef union YYSTYPE
|
||||
{
|
||||
#line 131 "ncgen.y" /* yacc.c:1909 */
|
||||
|
||||
/* Line 2068 of yacc.c */
|
||||
#line 131 "ncgen.y"
|
||||
|
||||
Symbol* sym;
|
||||
unsigned long size; /* allow for zero size to indicate e.g. UNLIMITED*/
|
||||
@ -110,15 +104,16 @@ int nctype; /* for tracking attribute list type*/
|
||||
Datalist* datalist;
|
||||
NCConstant constant;
|
||||
|
||||
#line 114 "ncgentab.h" /* yacc.c:1909 */
|
||||
};
|
||||
|
||||
|
||||
/* Line 2068 of yacc.c */
|
||||
#line 111 "ncgentab.h"
|
||||
} YYSTYPE;
|
||||
# define YYSTYPE_IS_TRIVIAL 1
|
||||
# define yystype YYSTYPE /* obsolescent; will be withdrawn */
|
||||
# define YYSTYPE_IS_DECLARED 1
|
||||
#endif
|
||||
|
||||
|
||||
extern YYSTYPE ncglval;
|
||||
|
||||
int ncgparse (void);
|
||||
|
||||
#endif /* !YY_NCG_NCGEN_TAB_H_INCLUDED */
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user