mirror/netcdf-c
2
0
Fork 0
mirror of https://github.com/Unidata/netcdf-c.git synced 2025-02-05 16:20:10 +08:00
Code Issues Packages Projects Releases Wiki Activity

add missing variables

Browse Source
This commit is contained in:
Charlie Zender 2021-10-21 11:04:18 -07:00
parent 279c34bd46
commit e60976237d
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
libsrc4/nc4var.c
View File

@ -517,6 +517,10 @@ nc4_convert_type(const void *src, void *dest, const nc_type src_type,
/* These vars are used with quantize feature. */
const double bit_per_dgt = M_LN10 / M_LN2; /* 3.32 [frc] Bits per decimal digit of precision = log2(10) */
const double dgt_per_bit= M_LN2 / M_LN10; /* 0.301 [frc] Decimal digits per bit of precision = log10(2) */
double mnt; /* [frc] Mantissa, 0.5 <= mnt < 1.0 */
double mnt_fabs; /* [frc] fabs(mantissa) */
double mnt_log10_fabs; /* [frc] log10(fabs(mantissa))) */
double val; /* [frc] Copy of input value to avoid indirection */
double mss_val_cmp_dbl; /* Missing value for comparison to double precision values */
float mss_val_cmp_flt; /* Missing value for comparison to single precision values */
int bit_xpl_nbr_zro; /* [nbr] Number of explicit bits to zero */
@ -1417,7 +1421,6 @@ nc4_convert_type(const void *src, void *dest, const nc_type src_type,
}
} /* endif BitGroom */
if (quantize_mode == NC_QUANTIZE_GRANULARBG)
{
if (dest_type == NC_FLOAT)
@ -1428,7 +1431,7 @@ nc4_convert_type(const void *src, void *dest, const nc_type src_type,
for (idx = 0L; idx < len; idx++)
{
if((val=op1.fp[idx]) != mss_val_cmp_flt && u32_ptr[idx] != 0U)
if((val = op1.fp[idx]) != mss_val_cmp_flt && u32_ptr[idx] != 0U)
{
mnt = frexp(val, &xpn_bs2); /* DGG19 p. 4102 (8) */
mnt_fabs = fabs(mnt);