nco: ncdf4a13/libsrc4/tst_converts.c File Reference

00076 {
00077 
00078    int ncid;
00079    int ndims, natts;
00080    int dimids_var[1], var_type;
00081    char var_name[NC_MAX_NAME+1];
00082    unsigned char uchar_in[DIM1_LEN];
00083    signed char char_in[DIM1_LEN];
00084    unsigned short ushort_in[DIM1_LEN];
00085    short short_in[DIM1_LEN];
00086    unsigned int uint_in[DIM1_LEN];
00087    int int_in[DIM1_LEN];
00088    long long int64_in[DIM1_LEN];
00089    unsigned long long uint64_in[DIM1_LEN];
00090    int i, res;
00091 
00092    /* Read it back in, and check conversions. */
00093    if (nc_open(FILE_NAME, NC_NOWRITE, &ncid)) ERR;
00094    if (nc_inq_var(ncid, 0, var_name, &var_type, &ndims, dimids_var, &natts)) ERR;
00095    if (strcmp(var_name, VAR1_NAME) || natts !=0 || ndims != 1 || 
00096        dimids_var[0] != 0 || var_type != NC_BYTE) ERR;
00097 
00098    /* This is actually an NC_BYTE, with some negatives, so this should
00099     * generate a range error for netcdf-4, but not for netcdf-3,
00100     * because range errors are not generated for byte type
00101     * conversions. */
00102    res = nc_get_var_uchar(ncid, 0, uchar_in);
00103    if (format == NC_FORMAT_NETCDF4)
00104    {
00105       if (res != NC_ERANGE) ERR;
00106    }
00107    else if (res) ERR;
00108        
00109    for (i=0; i<DIM1_LEN; i++)
00110       if (uchar_in[i] != uchar_out[i]) ERR;
00111 
00112    if (nc_get_var_schar(ncid, 0, char_in)) ERR;
00113    for (i=0; i<DIM1_LEN; i++)
00114       if (char_in[i] != (signed char)uchar_out[i]) ERR;
00115 
00116    if (nc_get_var_short(ncid, 0, short_in)) ERR;
00117    for (i=0; i<DIM1_LEN; i++)
00118       if (short_in[i] != (signed char)uchar_out[i]) ERR;
00119 
00120    if (nc_get_var_int(ncid, 0, int_in)) ERR;
00121    for (i=0; i<DIM1_LEN; i++)
00122       if (int_in[i] != (signed char)uchar_out[i]) ERR;
00123 
00124    if (format == NC_FORMAT_NETCDF4 || format == NC_FORMAT_NETCDF4_CLASSIC)
00125    {
00126       /* Since we wrote them as NC_BYTE, some of these are negative
00127        * values, and will return a range error when reading into
00128        * unsigned type. To compare values, first cast uchar_out to
00129        * signed int, then cast again to the type we are reading it
00130        * as. */
00131       if (nc_get_var_ushort(ncid, 0, ushort_in) != NC_ERANGE) ERR;
00132       for (i=0; i<DIM1_LEN; i++)
00133          if (ushort_in[i] != (unsigned short)(signed char)uchar_out[i]) ERR;
00134 
00135       if (nc_get_var_uint(ncid, 0, uint_in) != NC_ERANGE) ERR;
00136       for (i=0; i<DIM1_LEN; i++)
00137          if (uint_in[i] != (unsigned int)(signed char)uchar_out[i]) ERR;
00138 
00139       if (nc_get_var_ulonglong(ncid, 0, uint64_in) != NC_ERANGE) ERR;
00140       for (i=0; i<DIM1_LEN; i++)
00141          if (uint64_in[i] != (unsigned long long)(signed char)uchar_out[i]) ERR;
00142 
00143       if (nc_get_var_longlong(ncid, 0, int64_in)) ERR;
00144       for (i=0; i<DIM1_LEN; i++)
00145          if (int64_in[i] != (signed char)uchar_out[i]) ERR;
00146 
00147    }
00148    
00149    if (nc_close(ncid)) ERR;
00150 }


Defines
#define	FILE_NAME "tst_converts.nc"
#define	ATT1_NAME "att1"
#define	ATT2_NAME "att2"
#define	DIM1_NAME "dim1"
#define	DIM1_LEN 3
#define	DIM2_NAME "dim2"
#define	DIM2_LEN 15
#define	VAR1_NAME "var1"
#define	VAR2_NAME "var2"
Functions
void	check_file (int format, unsigned char *uchar_out)
void	create_file (int format, unsigned char *uchar_out)
int	main (int argc, char **argv)

ncdf4a13/libsrc4/tst_converts.c File Reference

Defines

Functions

Define Documentation

Function Documentation