+
+
+NCEPLIBS-g2c: enc_jpeg2000.c File Reference
+
+
+
+
+
+
+ NCEPLIBS-g2c
+ 1.7.0
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
Encodes JPEG2000 code stream.
+More...
+
#include <stdio.h>
+
#include <stdlib.h>
+
#include "grib2_int.h "
+
#include "jasper/jasper.h"
+
+
Go to the source code of this file.
+
+
+
Encodes JPEG2000 code stream.
+
Author Stephen Gilbert
+
Date 2002-12-02
+
+
Definition in file enc_jpeg2000.c .
+
+
+
◆
+
+
+
+
+
+ #define MAXOPTSSIZE 1024
+
+
+
+
+
Maximum size of options.
+
+
Definition at line 11 of file enc_jpeg2000.c .
+
+
+
+
+
+
◆
+
+
+
+
+
+ int enc_jpeg2000
+ (
+ unsigned char *
+ cin ,
+
+ g2int width ,
+
+ g2int height ,
+
+ g2int nbits ,
+
+ g2int ltype ,
+
+ g2int ratio ,
+
+ g2int retry ,
+
+ char *
+ outjpc ,
+
+ g2int jpclen
+
+ )
+
+
+
+
+
This Function encodes a grayscale image into a JPEG2000 code stream specified in the JPEG2000 Part-1 standard (i.e., ISO/IEC 15444-1) using JasPer Software .
+
+
+
+Date Programmer Comments
+
+2002-12-02 Gilbert Initial
+
+2004-12-16 Gilbert Added retry argument allowing increased guard bits.
+
+2022-04-15 Hartnett Converted to use jas_ instead of jpc_ functions.
+
+
Parameters
+
+ cin Packed matrix of Grayscale image values to encode. width width of image. height height of image. nbits depth (in bits) of image. i.e number of bits used to hold each data value. ltype indicator of lossless or lossy compression.
+1, for lossy compression
+!= 1, for lossless compression
+
+ ratio target compression ratio. (ratio:1) Used only when ltype == 1. retry If 1 try increasing number of guard bits. outjpc Output encoded JPEG2000 code stream. jpclen Number of bytes allocated for the output JPEG2000 code stream in outjpc.
+
+
+
Returns
+> 0 = Length in bytes of encoded JPEG2000 code stream
+G2_JASPER_INIT Error initializing jasper library.G2_JASPER_ENCODE Error encode jpeg2000 code stream.
+
+
Note Requires JasPer Software version 1.500.4 or 1.700.2 or later.
+
Author Stephen Gilbert
+
Date 2002-12-02
+
Author Ed Hartnett
+
+
Definition at line 51 of file enc_jpeg2000.c .
+
+
References G2_JASPER_ENCODE , G2_JASPER_INIT , G2C_JASPER_JPEG_FORMAT_NAME , and MAXOPTSSIZE .
+
+
Referenced by jpcpack_int() .
+
+
+
+
+
NCEPLIBS-g2c: enc_jpeg2000.c Source File
+
+
+
+
+
+
+ NCEPLIBS-g2c
+ 1.7.0
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
Go to the documentation of this file.
+
+
+
+
9 #include "jasper/jasper.h"
+
+
11 #define MAXOPTSSIZE 1024
+
+
+
+
+
+
+
+
57 jas_stream_t *jpcstream, *istream;
+
58 jas_image_cmpt_t cmpt, *pcmpt;
+
+
+
+
+
+
+
+
66 snprintf(opts,
MAXOPTSSIZE ,
"mode=real\nrate=%f" ,1.0/(
float )ratio);
+
+
+
69 strcat(opts,
"\nnumgbits=4" );
+
+
+
+
+
+
75 image.brx_ = (jas_image_coord_t)width;
+
76 image.bry_ = (jas_image_coord_t)height;
+
+
+
79 image.clrspc_ = JAS_CLRSPC_SGRAY;
+
+
+
+
+
+
+
86 cmpt.width_ = (jas_image_coord_t)width;
+
87 cmpt.height_ = (jas_image_coord_t)height;
+
88 cmpt.type_ = JAS_IMAGE_CT_COLOR(JAS_CLRSPC_CHANIND_GRAY_Y);
+
+
+
91 cmpt.cps_ = (nbits + 7) / 8;
+
+
+
94 image.cmpts_ = &pcmpt;
+
+
+
+
+
+
+
+
102 jas_conf_set_max_mem_usage(10000000);
+
103 jas_conf_set_multithread(
true );
+
104 if (jas_init_library())
+
+
106 if (jas_init_thread())
+
+
+
+
+
+
+
+
114 istream = jas_stream_memopen((
char *)cin, height * width * cmpt.cps_);
+
115 cmpt.stream_ = istream;
+
+
+
+
119 jpcstream = jas_stream_memopen(outjpc, (
int )jpclen);
+
+
+
+
+
+
125 if ((ier = jas_image_encode(&image, jpcstream, fmt, opts)))
+
+
+
+
+
130 rwcnt = jpcstream->rwcnt_;
+
+
+
133 ier = jas_stream_close(istream);
+
134 ier = jas_stream_close(jpcstream);
+
+
+
+
138 jas_cleanup_thread();
+
139 jas_cleanup_library();
+
+
+
+
+
+
+
+
+
#define MAXOPTSSIZE
Maximum size of options.
#define G2_JASPER_INIT
In enc_jpeg2000()/dec_jpeg2000() error initializing jasper library.
#define G2C_JASPER_JPEG_FORMAT_NAME
Name of JPEG codec in Jasper.
#define G2_JASPER_ENCODE
In enc_jpeg2000() error encoding image with jasper.
Header file with internal function prototypes NCEPLIBS-g2c library.
int64_t g2int
Long integer type.
int enc_jpeg2000(unsigned char *cin, g2int width, g2int height, g2int nbits, g2int ltype, g2int ratio, g2int retry, char *outjpc, g2int jpclen)
This Function encodes a grayscale image into a JPEG2000 code stream specified in the JPEG2000 Part-1 ...
NCEPLIBS-g2c: enc_png.c File Reference
+
+
+
+
+
+
+ NCEPLIBS-g2c
+ 1.7.0
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
Functions for dealing with PNG.
+More...
+
#include <stdio.h>
+
#include <stdlib.h>
+
#include <string.h>
+
#include <png.h>
+
#include "grib2_int.h "
+
+
Go to the source code of this file.
+
+int enc_png (unsigned char *data, g2int width, g2int height, g2int nbits, unsigned char *pngbuf) Encode PNG. More... void user_flush_data (png_structp png_ptr) Dummy Custom flush function. More... void user_write_data (png_structp png_ptr, png_bytep data, png_uint_32 length) Custom write function used to that libpng will write to memory location instead of a file on disk. More...
+
+
Functions for dealing with PNG.
+
Author Stephen Gilbert
+
+
Definition in file enc_png.c .
+
+
+
◆
+
+
+
+
+
+ typedef struct png_stream png_stream
+
+
+
+
+
Typedef for PNG stream.
+
+
Definition at line 21 of file enc_png.c .
+
+
+
+
+
+
◆
+
+
+
+
+
+ int enc_png
+ (
+ unsigned char *
+ data ,
+
+ g2int width ,
+
+ g2int height ,
+
+ g2int nbits ,
+
+ unsigned char *
+ pngbuf
+
+ )
+
+
+
+
+
Encode PNG.
+
Parameters
+
+ data data. width width. height height. nbits number of bits. pngbuf PNG buffer.
+
+
+
Returns PNG length, or negative number for error.
+
Author Stephen Gilbert
+
+
Definition at line 75 of file enc_png.c .
+
+
References user_flush_data() , and user_write_data() .
+
+
Referenced by pngpack_int() .
+
+
+
+
+
◆
+
+
+
+
+
+ void user_flush_data
+ (
+ png_structp
+ png_ptr )
+
+
+
+
+
Dummy Custom flush function.
+
Parameters
+
+ png_ptr Pointer to PNG struct.
+
+
+
Author Stephen Gilbert
+
+
Definition at line 57 of file enc_png.c .
+
+
Referenced by enc_png() .
+
+
+
+
+
◆
+
+
+
+
+
+ void user_write_data
+ (
+ png_structp
+ png_ptr ,
+
+ png_bytep
+ data ,
+
+ png_uint_32
+ length
+
+ )
+
+
+
+
+
Custom write function used to that libpng will write to memory location instead of a file on disk.
+
Parameters
+
+ png_ptr pointer data data length length
+
+
+
Author Stephen Gilbert
+
+
Definition at line 37 of file enc_png.c .
+
+
Referenced by enc_png() .
+
+
+
+
+
NCEPLIBS-g2c: enc_png.c Source File
+
+
+
+
+
+
+ NCEPLIBS-g2c
+ 1.7.0
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
Go to the documentation of this file.
+
+
+
+
+
+
+
+
+
17 unsigned char *stream_ptr;
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
44 ptr = mem->stream_ptr;
+
45 offset = mem->stream_len;
+
46 memcpy(ptr + offset, data, length);
+
47 mem->stream_len += length;
+
+
+
+
+
+
+
+
+
76 unsigned char *pngbuf)
+
+
+
79 g2int j, bytes, pnglen, bit_depth;
+
+
+
82 png_bytep **row_pointers;
+
+
+
+
86 if (!(png_ptr = png_create_write_struct(PNG_LIBPNG_VER_STRING, NULL, NULL, NULL)))
+
+
+
89 if (!(info_ptr = png_create_info_struct(png_ptr)))
+
+
91 png_destroy_write_struct(&png_ptr, (png_infopp)NULL);
+
+
+
+
+
96 if (setjmp(png_jmpbuf(png_ptr)))
+
+
98 png_destroy_write_struct(&png_ptr, &info_ptr);
+
+
+
+
+
103 write_io_ptr.stream_ptr = (png_voidp)pngbuf;
+
104 write_io_ptr.stream_len = 0;
+
+
+
107 png_set_write_fn(png_ptr, (png_voidp)&write_io_ptr, (png_rw_ptr)
user_write_data ,
+
+
+
+
+
112 color_type = PNG_COLOR_TYPE_GRAY;
+
+
+
+
116 color_type = PNG_COLOR_TYPE_RGB;
+
+
118 else if (nbits == 32)
+
+
+
121 color_type = PNG_COLOR_TYPE_RGB_ALPHA;
+
+
123 png_set_IHDR(png_ptr, info_ptr, width, height,
+
124 bit_depth, color_type, PNG_INTERLACE_NONE,
+
125 PNG_COMPRESSION_TYPE_DEFAULT, PNG_FILTER_TYPE_DEFAULT);
+
+
+
+
129 row_pointers = malloc(height *
sizeof (png_bytep));
+
130 for (j = 0; j < height; j++)
+
131 row_pointers[j] = (png_bytep *)(data + (j * width * bytes));
+
132 png_set_rows(png_ptr, info_ptr, (png_bytepp)row_pointers);
+
+
+
135 png_write_png(png_ptr, info_ptr, PNG_TRANSFORM_IDENTITY, NULL);
+
+
+
138 png_destroy_write_struct(&png_ptr, &info_ptr);
+
+
140 pnglen = write_io_ptr.stream_len;
+
+
+
+
int enc_png(unsigned char *data, g2int width, g2int height, g2int nbits, unsigned char *pngbuf)
Encode PNG.
Header file with internal function prototypes NCEPLIBS-g2c library.
struct png_stream png_stream
Typedef for PNG stream.
void user_write_data(png_structp, png_bytep, png_uint_32)
Custom write function used to that libpng will write to memory location instead of a file on disk.
int64_t g2int
Long integer type.
void user_flush_data(png_structp)
Dummy Custom flush function.
NCEPLIBS-g2c: File List
+
+
+
+
+
+
+ NCEPLIBS-g2c
+ 1.7.0
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
Here is a list of all documented files with brief descriptions:
+
+ cmplxpack.c Pack up a data field using a complex packing algorithm as defined in the GRIB2 documention compack.c Pack up a data field using a complex packing algorithm as defined in the GRIB2 documention comunpack.c Unpack a data field that was packed using a complex packing algorithm as defined in the GRIB2 documention dec_jpeg2000.c Decodes JPEG2000 code stream dec_png.c PNG functions decenc_openjpeg.c JPEG functions, originally from ECMWF, modified for use in NCEPLIBS-g2c drstemplates.c Functions for GRIB2 Data Representation Templates (DRT) for the Data Representation Setcion enc_jpeg2000.c Encodes JPEG2000 code stream enc_png.c Functions for dealing with PNG g2_addfield.c Pack up Sections 4 through 7 for a given field and adds them to a GRIB2 message g2_addgrid.c Pack up a Grid Definition Section (Section 3) and adds it to a GRIB2 message g2_addlocal.c Add a Local Use Section (Section 2) to a GRIB2 message g2_create.c Initializes a new GRIB2 message and packs GRIB2 sections 0 (Indicator Section) and 1 (Identification Section) g2_free.c Free up memory that was allocated for struct gribfield g2_getfld.c Return all the metadata, template values, Bit-map (if applicable), and the unpacked data for a given data field g2_gribend.c Finalize a GRIB2 message after all grids and fields have been added g2_info.c Search through a GRIB2 message and returns the number of gridded fields found in the message and the number (and maximum size) of Local Use Sections g2_miss.c Check the Data Representation Template to see if missing value management is used, and returns the missing value(s) in the data field g2_unpack1.c Unpack Section 1 (Identification Section) as defined in GRIB Edition 2 g2_unpack2.c Unpack Section 2 (Local Use Section) as defined in GRIB Edition 2 g2_unpack3.c Unpack Section 3 (Grid Definition Section) as defined in GRIB Edition 2 g2_unpack4.c Unpack Section 4 (Product Definition Section) as defined in GRIB Edition 2 g2_unpack5.c Unpack Section 5 (Data Representation Section) as defined in GRIB Edition 2 g2_unpack6.c Unpack Section 6 (Bit-Map Section) as defined in GRIB Edition 2 g2_unpack7.c Unpack Section 7 (Data Section) as defined in GRIB Edition 2 gbits.c Functions to pack and unpack bits to/from a packed bit string getdim.c Return the dimensions and scanning mode of a grid definition packed in GRIB2 Grid Definition Section 3 format getpoly.c Return the J, K, and M pentagonal resolution parameters specified in a GRIB Grid Definition Section used spherical harmonic coefficients using GDT 5.50 through 5.53 grib2.h Header file for NCEPLIBS-g2c library grib2_int.h Header file with internal function prototypes NCEPLIBS-g2c library gridtemplates.c Returns grid template information for a specified Grid Definition Template for Section 3 - the Grid Definition Section (GDS) int_power.c Provide function similar to C pow() power function jpcpack.c Pack up a data field into a JPEG2000 code stream jpcunpack.c Unpack a data field that was packed into a JPEG2000 code stream misspack.c Pack up a data field using a complex packing algorithm as defined in the GRIB2 documention mkieee.c pack_gp.c pdstemplates.c Functions for GRIB2 Product Definition Templates used in Section 4 - the Product Definition Section (PDS) pngpack.c Function to pack data with PNG compression pngunpack.c Contains a function to unpack data packed with PNG compression rdieee.c Read a list of real values in 32-bit IEEE floating point format reduce.c Determines whether the number of groups should be increased in order to reduce the size of the large groups, and to make that adjustment seekgb.c Searches a file for the next GRIB message simpack.c Pack up a data field using the simple packing algorithm simunpack.c specpack.c Pack a spectral data field using the complex packing algorithm for spherical harmonic data specunpack.c Unpack a spectral data field that was packed using the complex packing algorithm for spherical harmonic data util.c Internal utility functions for the g2c library
+
+
+
NCEPLIBS-g2c: Data Fields
+
+
+
+
+
+
+ NCEPLIBS-g2c
+ 1.7.0
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
Here is a list of all documented data types members with links to the data structure documentation for each member
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
NCEPLIBS-g2c: Data Fields - Variables
+
+
+
+
+
+
+ NCEPLIBS-g2c
+ 1.7.0
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
NCEPLIBS-g2c: g2_addfield.c File Reference
+
+
+
+
+
+
+ NCEPLIBS-g2c
+ 1.7.0
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
Pack up Sections 4 through 7 for a given field and adds them to a GRIB2 message.
+More...
+
#include <stdio.h>
+
#include <stdlib.h>
+
#include "grib2_int.h "
+
+
Go to the source code of this file.
+
+g2int g2_addfield (unsigned char *cgrib, g2int ipdsnum, g2int *ipdstmpl, float *coordlist, g2int numcoord, g2int idrsnum, g2int *idrstmpl, float *fld, g2int ngrdpts, g2int ibmap, g2int *bmap) This routine packs up Sections 4 through 7 for a given field and adds them to a GRIB2 message. More...
+
+
Pack up Sections 4 through 7 for a given field and adds them to a GRIB2 message.
+
Author Stephen Gilbert
+
Date 2002-11-05
+
+
Definition in file g2_addfield.c .
+
+
+
◆
+
+
+
+
+
+ g2int g2_addfield (
+ unsigned char *
+ cgrib ,
+
+ g2int ipdsnum ,
+
+ g2int * ipdstmpl ,
+
+ float *
+ coordlist ,
+
+ g2int numcoord ,
+
+ g2int idrsnum ,
+
+ g2int * idrstmpl ,
+
+ float *
+ fld ,
+
+ g2int ngrdpts ,
+
+ g2int ibmap ,
+
+ g2int * bmap
+
+ )
+
+
+
+
+
This routine packs up Sections 4 through 7 for a given field and adds them to a GRIB2 message.
+
They are Product Definition Section , Data Representation Section , Bit-Map Section and Data Section , respectively.
+
This routine is used with routines g2_create() , g2_addlocal() , g2_addgrid() , and g2_gribend() to create a complete GRIB2 message. Function g2_create() must be called first to initialize a new GRIB2 message. Function g2_addgrid() must be called after g2_create() and before this routine to add the appropriate grid description to the GRIB2 message. A call to g2_gribend() is required to complete GRIB2 message after all fields have been added.
+
+
+
+Date Programmer Comments
+
+2002-11-05 Gilbert Initial
+
+2002-12-23 Gilbert Added complex spherical harmonic packing
+
+2003-08-27 Gilbert Added support for new templates using PNG and JPEG2000 algorithms/templates.
+
+2004-11-29 Gilbert JPEG2000 now can use WMO Template 5.40 PNG can use WMO Template 5.41. Added packing algorithm check.
+
+2005-05-10 Gilbert Imposed minimum size on cpack.
+
+2009-01-14 Vuong Changed structure name template to gtemplate
+
+
Parameters
+
+ cgrib Char array that contains the GRIB2 message to which sections 4 through 7 should be added. Must be allocated large enough to store the entire GRIB2 message. ipdsnum Product Definition Template Number (see Code Table 4.0 ). ipdstmpl Contains the data values for the Product Definition Template specified by ipdsnum. coordlist Array containg floating point values intended to document the vertical discretisation associated to model data on hybrid coordinate vertical levels. numcoord number of values in array coordlist. idrsnum Data Representation Template Number (see Code Table 5.0 ). idrstmpl The data values for the Data Representation Template specified by idrsnum. Note that some values in this template (eg. reference values, number of bits, etc...) may be changed by the data packing algorithms. Use this to specify scaling factors and order of spatial differencing, if desired. fld Array of data points to pack. ngrdpts Number of data points in grid. i.e. size of fld and bmap. ibmap Bitmap indicator (see Code Table 6.0 )
+0 = bitmap applies and is included in Section 6.
+1-253 = Predefined bitmap applies.
+254 = Previously defined bitmap applies to this field.
+255 = Bit map does not apply to this product.
+
+ bmap Integer array containing bitmap to be added (if ibmap = 0).
+
+
+
Returns
+
+
Note Note that the Sections 4 through 7 can only follow Section 3 or Section 7 in a GRIB2 message.
+
Author Stephen Gilbert
+
Date 2002-11-05
+
+
Definition at line 98 of file g2_addfield.c .
+
+
References cmplxpack() , gtemplate::ext , gtemplate::extlen , extpdstemplate() , G2_ADD_MSG_COMPLETE , G2_ADD_MSG_INIT , G2_ADDFIELD_BAD_BITMAP , G2_ADDFIELD_BAD_DRT , G2_ADDFIELD_BAD_GDS , G2_ADDFIELD_BAD_GDT , G2_ADDFIELD_BAD_PDT , G2_ADDFIELD_ERR , G2_BAD_SEC , G2_BAD_SEC_COUNTS , g2c_check_msg() , G2C_MSG_COMPLETE , G2C_NOT_GRIB , gbit() , getdim() , getdrstemplate() , getpdstemplate() , getpoly() , jpcpack() , gtemplate::map , gtemplate::maplen , mkieee() , gtemplate::needext , pngpack() , sbit() , sbits() , simpack() , and specpack() .
+
+
+
+
+
NCEPLIBS-g2c: g2_addfield.c Source File
+
+
+
+
+
+
+ NCEPLIBS-g2c
+ 1.7.0
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
Go to the documentation of this file.
+
+
+
+
+
+
+
+
+
+
102 unsigned char *cpack;
+
103 static g2int zero = 0, one = 1, four = 4, five = 5, six = 6, seven = 7;
+
104 const g2int minsize = 50000;
+
105 g2int iofst, ibeg, lencurr, len, nsize;
+
106 g2int ilen, isecnum, i, nbits, temp, left;
+
107 g2int ibmprev, j, lcpack, ioctet, newlen, ndpts;
+
108 g2int lensec4, lensec5, lensec6, lensec7;
+
109 g2int issec3 = 0, isprevbmap = 0, lpos3 = 0, JJ, KK, MM;
+
+
+
+
113 #if defined USE_PNG || defined USE_JPEG2000 || defined USE_OPENJPEG
+
114 unsigned int allones = 4294967295u;
+
115 g2int width, height, iscan, itemp;
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
136 gbit (cgrib, &ilen, iofst, 32);
+
+
138 gbit (cgrib, &isecnum, iofst, 8);
+
+
+
+
+
+
+
+
+
+
+
+
150 gbit (cgrib, &ibmprev, iofst, 8);
+
+
152 if (ibmprev >= 0 && ibmprev <= 253)
+
+
+
+
+
+
+
+
+
+
+
+
+
165 printf(
"g2_addfield: Section byte counts don''t add to total.\n" );
+
166 printf(
"g2_addfield: Sum of section byte counts = %ld\n" , len);
+
167 printf(
"g2_addfield: Total byte count in Section 0 = %ld\n" , lencurr);
+
+
+
+
+
+
173 if (isecnum != 3 && isecnum != 7)
+
+
175 printf(
"g2_addfield: Sections 4-7 can only be added after Section 3 or 7.\n" );
+
176 printf(
"g2_addfield: Section %ld was the last found in given GRIB message.\n" ,
+
+
+
+
+
+
+
183 printf(
"g2_addfield: Sections 4-7 can only be added if Section 3 was previously included.\n" );
+
184 printf(
"g2_addfield: Section 3 was not found in given GRIB message.\n" );
+
185 printf(
"g2_addfield: Call to routine addgrid required to specify Grid definition.\n" );
+
+
+
+
+
+
+
192 sbit (cgrib, &four, iofst, 8);
+
+
194 sbit (cgrib, &numcoord, iofst, 16);
+
+
196 sbit (cgrib, &ipdsnum, iofst, 16);
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
215 for (i = 0; i < mappds->
maplen ; i++)
+
+
217 nbits = abs(mappds->
map [i]) * 8;
+
218 if ((mappds->
map [i] >= 0) || (ipdstmpl[i] >= 0))
+
219 sbit (cgrib, ipdstmpl + i, iofst, nbits);
+
+
+
222 sbit (cgrib, &one, iofst, 1);
+
223 temp = abs(ipdstmpl[i]);
+
224 sbit (cgrib, &temp, iofst + 1, nbits-1);
+
+
226 iofst = iofst + nbits;
+
+
+
+
+
+
+
233 for (i = 0; i < mappds->
extlen ; i++)
+
+
235 nbits = abs(mappds->
ext [i]) * 8;
+
236 if (mappds->
ext [i] >= 0 || ipdstmpl[j] >= 0)
+
237 sbit (cgrib, ipdstmpl + j, iofst, nbits);
+
+
+
240 sbit (cgrib, &one, iofst, 1);
+
241 temp = abs(ipdstmpl[j]);
+
242 sbit (cgrib, &temp, iofst + 1, nbits - 1);
+
+
244 iofst = iofst + nbits;
+
+
+
+
+
+
+
+
+
+
+
+
256 coordieee = calloc(numcoord,
sizeof (
g2int ));
+
257 mkieee (coordlist, coordieee, numcoord);
+
258 sbits (cgrib, coordieee, iofst, 32, 0, numcoord);
+
259 iofst = iofst + (32 * numcoord);
+
+
+
+
+
+
265 lensec4 = (iofst - ibeg) / 8;
+
266 sbit (cgrib, &lensec4, ibeg, 32);
+
+
+
+
+
+
+
+
+
275 if (ibmap == 0 || ibmap == 254)
+
+
277 pfld = malloc(ngrdpts *
sizeof (
float ));
+
+
279 for (j = 0; j < ngrdpts; j++)
+
+
+
282 pfld[ndpts++] = fld[j];
+
+
+
+
+
+
+
+
+
+
+
+
+
295 cpack = malloc(nsize);
+
+
+
+
299 simpack (pfld, ndpts, idrstmpl, cpack, &lcpack);
+
300 else if (idrsnum == 2 || idrsnum == 3)
+
301 cmplxpack (pfld, ndpts, idrsnum, idrstmpl, cpack, &lcpack);
+
302 else if (idrsnum == 50)
+
+
304 simpack (pfld + 1, ndpts - 1, idrstmpl, cpack, &lcpack);
+
305 mkieee (pfld, idrstmpl + 4, 1);
+
+
307 else if (idrsnum == 51)
+
+
309 getpoly (cgrib + lpos3, &JJ, &KK, &MM);
+
310 if (JJ != 0 && KK != 0 && MM != 0)
+
311 specpack (pfld, ndpts, JJ, KK, MM, idrstmpl, cpack, &lcpack);
+
+
+
314 printf(
"g2_addfield: Cannot pack DRT 5.51.\n" );
+
+
+
+
318 #if defined USE_JPEG2000 || defined USE_OPENJPEG
+
319 else if (idrsnum == 40 || idrsnum == 40000)
+
+
+
+
323 getdim (cgrib + lpos3, &width, &height, &iscan);
+
324 if (width == 0 || height == 0)
+
+
+
+
+
329 else if (width == allones || height == allones)
+
+
+
+
+
334 else if ((iscan & 32) == 32)
+
+
+
+
+
+
+
+
+
+
+
+
+
347 jpcpack (pfld, width, height, idrstmpl, cpack, &lcpack);
+
+
+
+
351 else if (idrsnum == 41 || idrsnum == 40010)
+
+
+
+
355 getdim (cgrib + lpos3, &width, &height, &iscan);
+
356 if (width == 0 || height == 0)
+
+
+
+
+
361 else if (width == allones || height == allones)
+
+
+
+
+
366 else if ((iscan & 32) == 32)
+
+
+
+
+
+
+
+
+
+
+
+
378 pngpack (pfld, width, height, idrstmpl, cpack, &lcpack);
+
+
+
+
+
383 printf(
"g2_addfield: Data Representation Template 5.%ld not yet implemented.\n" , idrsnum);
+
+
+
+
+
388 if (ibmap == 0 || ibmap == 254)
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
406 sbit (cgrib, &five, iofst, 8);
+
+
408 sbit (cgrib, &ndpts, iofst, 32);
+
+
410 sbit (cgrib, &idrsnum, iofst, 16);
+
+
+
+
+
+
416 for (i = 0; i < mapdrs->
maplen ; i++)
+
+
418 nbits = abs(mapdrs->
map [i]) * 8;
+
419 if (mapdrs->
map [i] >= 0 || idrstmpl[i] >= 0)
+
420 sbit (cgrib, idrstmpl + i, iofst, nbits);
+
+
+
423 sbit (cgrib, &one, iofst, 1);
+
424 temp = abs(idrstmpl[i]);
+
425 sbit (cgrib, &temp, iofst + 1, nbits - 1);
+
+
427 iofst = iofst + nbits;
+
+
+
+
+
+
433 lensec5 = (iofst - ibeg) / 8;
+
434 sbit (cgrib, &lensec5, ibeg, 32);
+
+
+
+
+
439 sbit (cgrib, &six, iofst, 8);
+
+
441 sbit (cgrib, &ibmap, iofst, 8);
+
+
+
+
+
+
447 sbits (cgrib, bmap, iofst, 1, 0, ngrdpts);
+
448 iofst = iofst + ngrdpts;
+
+
+
+
+
453 if (ibmap == 254 && !isprevbmap)
+
+
455 printf(
"g2_addfield: Requested previously defined bitmap," );
+
456 printf(
" but one does not exist in the current GRIB message.\n" );
+
+
+
+
+
+
462 left = 8 - (iofst % 8);
+
+
+
465 sbit (cgrib, &zero, iofst, left);
+
466 iofst = iofst + left;
+
+
468 lensec6 = (iofst - ibeg) / 8;
+
469 sbit (cgrib, &lensec6, ibeg, 32);
+
+
+
+
+
474 sbit (cgrib, &seven, iofst, 8);
+
+
+
+
+
+
+
+
482 for (j = 0; j < lcpack; j++)
+
483 cgrib[ioctet + j] = cpack[j];
+
484 iofst = iofst + (8 * lcpack);
+
+
+
+
+
489 lensec7 = (iofst - ibeg) / 8;
+
490 sbit (cgrib, &lensec7, ibeg, 32);
+
+
+
+
+
+
496 newlen = lencurr + lensec4 + lensec5 + lensec6 + lensec7;
+
497 sbit (cgrib, &newlen, 96, 32);
+
+
+
+
+
gtemplate * extpdstemplate(g2int number, g2int *list)
This subroutine generates the remaining octet map for a given Product Definition Template,...
g2int * ext
Number of octets of each entry in the extension part of the template.
#define G2_ADDFIELD_ERR
In g2_addfield() error packing data field.
g2int getdim(unsigned char *csec3, g2int *width, g2int *height, g2int *iscan)
This subroutine returns the dimensions and scanning mode of a grid definition packed in GRIB2 Grid De...
#define G2_ADDFIELD_BAD_DRT
In g2_addfield() unsupported Data Representationi Template.
gtemplate * getdrstemplate(g2int number)
This subroutine returns DRS template information for a specified Data Representation Template.
void jpcpack(float *fld, g2int width, g2int height, g2int *idrstmpl, unsigned char *cpack, g2int *lcpack)
This subroutine packs up a data field into a JPEG2000 code stream.
void cmplxpack(float *fld, g2int ndpts, g2int idrsnum, g2int *idrstmpl, unsigned char *cpack, g2int *lcpack)
This subroutine packs up a data field using a complex packing algorithm as defined in the GRIB2 docum...
#define G2_ADDFIELD_BAD_BITMAP
In g2_addfield() no bitmap in the GRIB message.
g2int needext
Indicates whether or not the template needs to be extended.
#define G2_BAD_SEC
Previous Section was unexpected.
Header file with internal function prototypes NCEPLIBS-g2c library.
g2int maplen
Number of entries in the static part of the template.
void sbits(unsigned char *out, g2int *in, g2int iskip, g2int nbits, g2int nskip, g2int n)
Store bits - put arbitrary size values into a packed bit string, taking the low order bits from each ...
g2int * map
Number of octets of each entry in the static part of the template.
void mkieee(float *a, g2int *rieee, g2int num)
This subroutine stores a list of real values in 32-bit IEEE floating point format.
void gbit(unsigned char *in, g2int *iout, g2int iskip, g2int nbits)
Get bits - unpack bits: Extract arbitrary size values from a packed bit string, right justifying each...
gtemplate * getpdstemplate(g2int number)
This subroutine returns PDS template information for a specified Product Definition Template.
int64_t g2int
Long integer type.
void specpack(float *fld, g2int ndpts, g2int JJ, g2int KK, g2int MM, g2int *idrstmpl, unsigned char *cpack, g2int *lcpack)
This subroutine packs a spectral data field using the complex packing algorithm for spherical harmoni...
#define G2_BAD_SEC_COUNTS
Sum of Section byte counts doesn't add to total byte count.
#define G2_ADD_MSG_COMPLETE
GRIB message already complete.
g2int getpoly(unsigned char *csec3, g2int *jj, g2int *kk, g2int *mm)
This subroutine returns the J, K, and M pentagonal resolution parameters specified in a GRIB Grid Def...
#define G2C_MSG_COMPLETE
GRIB message already complete.
g2int extlen
Number of entries in the template extension.
void simpack(float *fld, g2int ndpts, g2int *idrstmpl, unsigned char *cpack, g2int *lcpack)
This subroutine packs up a data field using the simple packing algorithm as defined in the GRIB2 docu...
#define G2_ADD_MSG_INIT
GRIB message was not initialized - call g2_create() first.
void sbit(unsigned char *out, g2int *in, g2int iskip, g2int nbits)
Store bits - put arbitrary size values into a packed bit string, taking the low order bits from each ...
#define G2C_NOT_GRIB
GRIB header not found.
#define G2_ADDFIELD_BAD_GDS
In g2_addfield() section 3 (GDS) not previously defined in message.
#define G2_ADDFIELD_BAD_GDT
In g2_addfield() GDT of one of 5.50 through 5.53 required when using DRT 5.51.
void pngpack(float *fld, g2int width, g2int height, g2int *idrstmpl, unsigned char *cpack, g2int *lcpack)
This subroutine packs up a float data field into PNG image format.
#define G2_ADDFIELD_BAD_PDT
In g2_addfield() could not find requested Product Definition Template.
g2int g2_addfield(unsigned char *cgrib, g2int ipdsnum, g2int *ipdstmpl, float *coordlist, g2int numcoord, g2int idrsnum, g2int *idrstmpl, float *fld, g2int ngrdpts, g2int ibmap, g2int *bmap)
This routine packs up Sections 4 through 7 for a given field and adds them to a GRIB2 message.
Struct for GRIB template.
int g2c_check_msg(unsigned char *cgrib, g2int *lencurr, int verbose)
Check for 'GRIB' at the beginning of a GRIB message, and check to see if the message is already termi...
NCEPLIBS-g2c: g2_addgrid.c File Reference
+
+
+
+
+
+
+ NCEPLIBS-g2c
+ 1.7.0
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
Pack up a Grid Definition Section (Section 3) and adds it to a GRIB2 message.
+More...
+
#include <stdio.h>
+
#include <stdlib.h>
+
#include "grib2_int.h "
+
+
Go to the source code of this file.
+
+
+
Pack up a Grid Definition Section (Section 3) and adds it to a GRIB2 message.
+
Author Stephen Gilbeert
+
Date 2002-11-01
+
+
Definition in file g2_addgrid.c .
+
+
+
◆
+
+
+
+
+
+ g2int g2_addgrid (
+ unsigned char *
+ cgrib ,
+
+ g2int * igds ,
+
+ g2int * igdstmpl ,
+
+ g2int * ideflist ,
+
+ g2int idefnum
+
+ )
+
+
+
+
+
This routine packs up a Grid Definition Section (Section 3) and adds it to a GRIB2 message.
+
It is used with routines g2_create() , g2_addlocal() , g2_addfield() , and g2_gribend() to create a complete GRIB2 message. g2_create() must be called first to initialize a new GRIB2 message.
+
+
+
+Date Programmer Comments
+
+2002-11-01 Gilbert Initial.
+
+2009-01-14 Vuong Changed structure name template to gtemplate
+
+
Parameters
+
+ cgrib Char array that contains the GRIB2 message to which section should be added. Must be allocated large enough to store the entire GRIB2 message. igds Contains information needed for GRIB Grid Definition Section 3. Must be dimensioned >= 5.
+igds[0] Source of grid definition (see Code Table 3.0 ).
+igds[1] Number of grid points in the defined grid.
+igds[2] Number of octets needed for each additional grid points definition. Used to define number of points in each row (or column) for non-regular grids. = 0, if using regular grid.
+igds[3] Interpretation of list for optional points definition. (See Code Table 3.11 ).
+igds[4] Grid Definition Template Number (See Code Table 3.1 ).
+
+ igdstmpl Contains the data values for the specified Grid Definition Template (igds[4]). Each element of this integer array contains an entry (in the order specified) of Grid Defintion Template. ideflist (Used if igds[2] != 0) This array contains the number of grid points contained in each row (or column). idefnum (Used if igds[2] != 0) The number of entries in array ideflist. i.e. number of rows (or columns) for which optional grid points are defined.
+
+
+
Returns
+> 0 Current size of updated GRIB2 message
+G2_ADD_MSG_INIT GRIB message was not initialized. Need to call routine gribcreate first.G2_ADD_MSG_COMPLETE GRIB message already complete. Cannot add new section.G2_BAD_SEC_COUNTS Sum of Section byte counts doesn't add to total byte countG2_BAD_SEC Previous Section was not 1, 2 or 7.G2_ADDGRID_BAD_GDT Could not find requested Grid Definition Template.
+
+
Note The Grid Def Section (Section 3) can only follow Section 1, 2 or Section 7 in a GRIB2 message.
+
Author Stephen Gilbeert
+
Date 2002-11-01
+
+
Definition at line 70 of file g2_addgrid.c .
+
+
References gtemplate::ext , extgridtemplate() , gtemplate::extlen , G2_ADD_MSG_COMPLETE , G2_ADD_MSG_INIT , G2_ADDGRID_BAD_GDT , G2_BAD_SEC , G2_BAD_SEC_COUNTS , g2c_check_msg() , G2C_MSG_COMPLETE , G2C_NOT_GRIB , gbit() , getgridtemplate() , gtemplate::map , gtemplate::maplen , gtemplate::needext , sbit() , and sbits() .
+
+
+
+
+
NCEPLIBS-g2c: g2_addgrid.c Source File
+
+
+
+
+
+
+ NCEPLIBS-g2c
+ 1.7.0
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
Go to the documentation of this file.
+
+
+
+
+
+
+
+
+
73 static g2int one = 1, three = 3, miss = 65535;
+
74 g2int lensec3, iofst, ibeg, lencurr, len;
+
75 g2int i, j, temp, ilen, isecnum, nbits;
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
96 gbit (cgrib, &ilen, iofst, 32);
+
+
98 gbit (cgrib, &isecnum, iofst, 8);
+
+
+
+
+
+
+
+
+
+
+
109 printf(
"g2_addgrid: Section byte counts don''t add to total.\n" );
+
110 printf(
"g2_addgrid: Sum of section byte counts = %ld\n" , len);
+
111 printf(
"g2_addgrid: Total byte count in Section 0 = %ld\n" , lencurr);
+
+
+
+
+
+
117 if (isecnum != 1 && isecnum != 2 && isecnum != 7)
+
+
119 printf(
"g2_addgrid: Section 3 can only be added after Section 1, 2 or 7.\n" );
+
120 printf(
"g2_addgrid: Section ',isecnum,' was the last found in given GRIB message.\n" );
+
+
+
+
+
+
+
127 sbit (cgrib, &three, iofst, 8);
+
+
129 sbit (cgrib, igds+0, iofst, 8);
+
+
131 sbit (cgrib, igds+1, iofst, 32);
+
+
133 sbit (cgrib, igds+2, iofst, 8);
+
+
135 sbit (cgrib, igds+3, iofst, 8);
+
+
+
+
+
+
141 sbit (cgrib, igds+4, iofst, 16);
+
+
143 sbit (cgrib, &miss, iofst, 16);
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
165 for (i = 0; i < mapgrid->
maplen ; i++)
+
+
167 nbits = abs(mapgrid->
map [i]) * 8;
+
168 if ((mapgrid->
map [i] >= 0) || (igdstmpl[i] >= 0))
+
169 sbit (cgrib, igdstmpl+i, iofst, nbits);
+
+
+
172 sbit (cgrib, &one, iofst, 1);
+
173 temp = abs(igdstmpl[i]);
+
174 sbit (cgrib, &temp, iofst+1, nbits-1);
+
+
176 iofst = iofst + nbits;
+
+
+
+
+
+
+
183 for (i = 0; i < mapgrid->
extlen ; i++)
+
+
185 nbits = abs(mapgrid->
ext [i]) * 8;
+
186 if (mapgrid->
ext [i] >= 0 || igdstmpl[j] >= 0)
+
187 sbit (cgrib, igdstmpl + j, iofst, nbits);
+
+
+
190 sbit (cgrib, &one, iofst, 1);
+
191 temp = abs(igdstmpl[j]);
+
192 sbit (cgrib, &temp, iofst + 1, nbits - 1);
+
+
194 iofst = iofst + nbits;
+
+
+
+
+
+
+
+
+
+
+
+
+
+
208 sbits (cgrib, ideflist, iofst, nbits, 0, idefnum);
+
209 iofst = iofst + (nbits * idefnum);
+
+
+
+
213 lensec3 = (iofst - ibeg) / 8;
+
214 sbit (cgrib, &lensec3, ibeg, 32);
+
+
+
+
218 sbit (cgrib, &lencurr, 96, 32);
+
+
+
+
+
g2int * ext
Number of octets of each entry in the extension part of the template.
g2int needext
Indicates whether or not the template needs to be extended.
gtemplate * extgridtemplate(g2int number, g2int *list)
This subroutine generates the remaining octet map for a given Grid Definition Template,...
#define G2_BAD_SEC
Previous Section was unexpected.
Header file with internal function prototypes NCEPLIBS-g2c library.
g2int maplen
Number of entries in the static part of the template.
void sbits(unsigned char *out, g2int *in, g2int iskip, g2int nbits, g2int nskip, g2int n)
Store bits - put arbitrary size values into a packed bit string, taking the low order bits from each ...
gtemplate * getgridtemplate(g2int number)
This subroutine returns grid template information for a specified Grid Definition Template for [Secti...
g2int * map
Number of octets of each entry in the static part of the template.
void gbit(unsigned char *in, g2int *iout, g2int iskip, g2int nbits)
Get bits - unpack bits: Extract arbitrary size values from a packed bit string, right justifying each...
#define G2_ADDGRID_BAD_GDT
In g2_addgrid() Could not find requested Grid Definition Template.
int64_t g2int
Long integer type.
#define G2_BAD_SEC_COUNTS
Sum of Section byte counts doesn't add to total byte count.
#define G2_ADD_MSG_COMPLETE
GRIB message already complete.
#define G2C_MSG_COMPLETE
GRIB message already complete.
g2int extlen
Number of entries in the template extension.
#define G2_ADD_MSG_INIT
GRIB message was not initialized - call g2_create() first.
void sbit(unsigned char *out, g2int *in, g2int iskip, g2int nbits)
Store bits - put arbitrary size values into a packed bit string, taking the low order bits from each ...
#define G2C_NOT_GRIB
GRIB header not found.
Struct for GRIB template.
int g2c_check_msg(unsigned char *cgrib, g2int *lencurr, int verbose)
Check for 'GRIB' at the beginning of a GRIB message, and check to see if the message is already termi...
g2int g2_addgrid(unsigned char *cgrib, g2int *igds, g2int *igdstmpl, g2int *ideflist, g2int idefnum)
This routine packs up a Grid Definition Section (Section 3) and adds it to a GRIB2 message.
NCEPLIBS-g2c: g2_addlocal.c File Reference
+
+
+
+
+
+
+ NCEPLIBS-g2c
+ 1.7.0
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
Add a Local Use Section (Section 2) to a GRIB2 message.
+More...
+
#include <stdio.h>
+
#include "grib2_int.h "
+
+
Go to the source code of this file.
+
+
+
Add a Local Use Section (Section 2) to a GRIB2 message.
+
Author Stephen Gilbeert
+
Date 2002-11-01
+
+
Definition in file g2_addlocal.c .
+
+
+
◆
+
+
+
+
+
+ g2int g2_addlocal (
+ unsigned char *
+ cgrib ,
+
+ unsigned char *
+ csec2 ,
+
+ g2int lcsec2
+
+ )
+
+
+
+
+
This routine adds a Local Use Section (Section 2) to a GRIB2 message.
+
It is used with routines g2_create() , g2_addgrid() , g2_addfield() , and g2_gribend() to create a complete GRIB2 message.
+
Parameters
+
+ cgrib Char array that contains the GRIB2 message to which section 2 should be added. Must be allocated large enough to store the entire GRIB2 message. csec2 Character array containing information to be added in Section 2. lcsec2 Number of bytes of character array csec2 to be added to Section 2.
+
+
+
Returns > 0 = Current size of updated GRIB2 message.
+
+
Note The Local Use Section (Section 2) can only follow Section 1 or Section 7 in a GRIB2 message.
+
Author Stephen Gilbeert
+
Date 2002-11-01
+
+
Definition at line 40 of file g2_addlocal.c .
+
+
References G2_ADD_MSG_COMPLETE , G2_ADD_MSG_INIT , G2_BAD_SEC , G2_BAD_SEC_COUNTS , g2c_check_msg() , G2C_MSG_COMPLETE , G2C_NOT_GRIB , gbit() , and sbit() .
+
+
+
+
+
NCEPLIBS-g2c: g2_addlocal.c Source File
+
+
+
+
+
+
+ NCEPLIBS-g2c
+ 1.7.0
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
Go to the documentation of this file.
+
+
+
+
+
+
+
+
43 g2int j, k, lensec2, iofst, ibeg, lencurr, ilen, len, istart;
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
64 gbit (cgrib, &ilen, iofst, 32);
+
+
66 gbit (cgrib, &isecnum, iofst, 8);
+
+
+
+
+
+
+
+
+
+
+
77 printf(
"g2_addlocal: Section byte counts don't add to total.\n" );
+
78 printf(
"g2_addlocal: Sum of section byte counts = %ld\n" , len);
+
79 printf(
"g2_addlocal: Total byte count in Section 0 = %ld\n" , lencurr);
+
+
+
+
+
+
85 if (isecnum != 1 && isecnum != 7)
+
+
87 printf(
"g2_addlocal: Section 2 can only be added after Section 1 or Section 7.\n" );
+
88 printf(
"g2_addlocal: Section %ld was the last found in given GRIB message.\n" , isecnum);
+
+
+
+
+
+
+
95 sbit (cgrib, &two, iofst, 8);
+
+
+
98 for (j = istart; j < istart + lcsec2; j++)
+
99 cgrib[j] = csec2[k++];
+
+
+
+
103 lensec2 = lcsec2 + 5;
+
104 sbit (cgrib, &lensec2, ibeg, 32);
+
+
+
+
108 sbit (cgrib, &lencurr, 96, 32);
+
+
+
+
+
#define G2_BAD_SEC
Previous Section was unexpected.
Header file with internal function prototypes NCEPLIBS-g2c library.
void gbit(unsigned char *in, g2int *iout, g2int iskip, g2int nbits)
Get bits - unpack bits: Extract arbitrary size values from a packed bit string, right justifying each...
int64_t g2int
Long integer type.
g2int g2_addlocal(unsigned char *cgrib, unsigned char *csec2, g2int lcsec2)
This routine adds a Local Use Section (Section 2) to a GRIB2 message.
#define G2_BAD_SEC_COUNTS
Sum of Section byte counts doesn't add to total byte count.
#define G2_ADD_MSG_COMPLETE
GRIB message already complete.
#define G2C_MSG_COMPLETE
GRIB message already complete.
#define G2_ADD_MSG_INIT
GRIB message was not initialized - call g2_create() first.
void sbit(unsigned char *out, g2int *in, g2int iskip, g2int nbits)
Store bits - put arbitrary size values into a packed bit string, taking the low order bits from each ...
#define G2C_NOT_GRIB
GRIB header not found.
int g2c_check_msg(unsigned char *cgrib, g2int *lencurr, int verbose)
Check for 'GRIB' at the beginning of a GRIB message, and check to see if the message is already termi...
NCEPLIBS-g2c: g2_create.c File Reference
+
+
+
+
+
+
+ NCEPLIBS-g2c
+ 1.7.0
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
Initializes a new GRIB2 message and packs GRIB2 sections 0 (Indicator Section) and 1 (Identification Section).
+More...
+
#include <stdio.h>
+
#include "grib2_int.h "
+
+
Go to the source code of this file.
+
+
+
Initializes a new GRIB2 message and packs GRIB2 sections 0 (Indicator Section) and 1 (Identification Section).
+
Author Stephen Gilbert
+
Date 2002-10-31
+
+
Definition in file g2_create.c .
+
+
+
◆
+
+
+
+
+
+ #define LENSEC0 16
+
+
+
+
+
Length of GRIB Section 0.
+
+
Definition at line 11 of file g2_create.c .
+
+
+
+
+
◆
+
+
+
+
+
+ #define MAPSEC1LEN 13
+
+
+
+
+
Length of Map Section 1.
+
+
Definition at line 10 of file g2_create.c .
+
+
+
+
+
+
◆
+
+
+
+
+
+ g2int g2_create (
+ unsigned char *
+ cgrib ,
+
+ g2int * listsec0 ,
+
+ g2int * listsec1
+
+ )
+
+
+
+
+
This routine initializes a new GRIB2 message and packs GRIB2 Section 0 (Indicator Section) and Section 1 (Identification Section) .
+
This routine is used with routines g2_addlocal() , g2_addgrid() , g2_addfield() , and g2_gribend() to create a complete GRIB2 message. g2_create() must be called first to initialize a new GRIB2 message. A call to g2_gribend() is required to complete GRIB2 message after all fields have been added.
+
Parameters
+
+ [in] cgrib Character array to contain the GRIB2 message. Must be allocated large enough to store the entire GRIB2 message. [in] listsec0 Contains information needed for GRIB Indicator Section 0. Must be dimensioned >= 2.
+listsec0[0] Discipline-GRIB Master Table Number (Code Table 0.0 ).
+listsec0[1] GRIB Edition Number (currently 2).
+
+ [in] listsec1 Contains information needed for GRIB Identification Section 1. Must be dimensioned >= 13.
+listsec1[0] Id of orginating centre (Table 0 ).
+listsec1[1] Id of orginating sub-centre (Table C ).
+listsec1[2] GRIB Master Tables Version Number (Table 1.0 ).
+listsec1[3] GRIB Local Tables Version Number (Table 1.1 ).
+listsec1[4] Significance of Reference Time (Table 1.2 )
+listsec1[5] Reference Time - Year (4 digits)
+listsec1[6] Reference Time - Month
+listsec1[7] Reference Time - Day
+listsec1[8] Reference Time - Hour
+listsec1[9] Reference Time - Minute
+listsec1[10] Reference Time - Second
+listsec1[11] Production status of data (Table 1.3 ).
+listsec1[12] Type of processed data (Table 1.4 ).
+
+
+
+
+
Returns
+> 0 Current size of new GRIB2 message
+G2_CREATE_GRIB_VERSION Tried to use for version other than GRIB Edition 2
+
+
This routine is intended for use with routines g2_addlocal() , g2_addgrid() , g2_addfield() , and g2_gribend() to create a complete GRIB2 message.
+
Author Stephen Gilbeert
+
Date 2002-10-31
+
+
Definition at line 68 of file g2_create.c .
+
+
References G2_CREATE_GRIB_VERSION , LENSEC0 , MAPSEC1LEN , and sbit() .
+
+
+
+
+
NCEPLIBS-g2c: g2_create.c Source File
+
+
+
+
+
+
+ NCEPLIBS-g2c
+ 1.7.0
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
Go to the documentation of this file.
+
+
+
+
+
+
+
+
+
70 g2int zero = 0, one = 1;
+
+
+
+
+
+
+
+
78 g2int mapsec1[
MAPSEC1LEN ] = {2, 2, 1, 1, 1, 2, 1, 1, 1, 1, 1, 1, 1};
+
79 g2int i, lensec1, iofst, ibeg, nbits, len;
+
+
+
+
+
84 printf(
"g2_create: can only code GRIB edition 2." );
+
+
+
+
+
+
+
+
+
+
94 sbit (cgrib, &zero, 32, 16);
+
95 sbit (cgrib, listsec0 + 0, 48, 8);
+
96 sbit (cgrib, listsec0 + 1, 56, 8);
+
+
+
+
+
101 sbit (cgrib, &one, iofst, 8);
+
+
+
+
+
+
+
+
109 nbits = mapsec1[i] * 8;
+
110 sbit (cgrib, listsec1 + i, iofst, nbits);
+
111 iofst = iofst + nbits;
+
+
+
+
+
116 lensec1 = (iofst - ibeg) / 8;
+
117 sbit (cgrib, &lensec1, ibeg, 32);
+
+
+
120 sbit (cgrib, &zero, 64, 32);
+
+
122 sbit (cgrib, &len, 96, 32);
+
+
+
+
g2int g2_create(unsigned char *cgrib, g2int *listsec0, g2int *listsec1)
This routine initializes a new GRIB2 message and packs GRIB2 Section 0 (Indicator Section) and Sectio...
Header file with internal function prototypes NCEPLIBS-g2c library.
#define LENSEC0
Length of GRIB Section 0.
int64_t g2int
Long integer type.
#define G2_CREATE_GRIB_VERSION
Wrong GRIB version for g2_create(), must be 2.
void sbit(unsigned char *out, g2int *in, g2int iskip, g2int nbits)
Store bits - put arbitrary size values into a packed bit string, taking the low order bits from each ...
#define MAPSEC1LEN
Length of Map Section 1.
NCEPLIBS-g2c: g2_free.c File Reference
+
+
+
+
+
+
+ NCEPLIBS-g2c
+ 1.7.0
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
Free up memory that was allocated for struct gribfield.
+More...
+
#include <stdlib.h>
+
#include "grib2_int.h "
+
+
Go to the source code of this file.
+
+void g2_free (gribfield *gfld) This routine frees up memory that was allocated for struct gribfield. More...
+
+
Free up memory that was allocated for struct gribfield.
+
Author Stephen Gilbeert
+
Date 2002-10-28
+
+
Definition in file g2_free.c .
+
+
+
◆
+
+
+
+
+
+ void g2_free
+ (
+ gribfield * gfld )
+
+
+
+
+
This routine frees up memory that was allocated for struct gribfield.
+
Parameters
+
+ gfld pointer to gribfield structure (defined in include file grib2.h ) returned from routine g2_getfld() .
+
+
+
Note This routine must be called to free up memory used by the decode routine, g2_getfld() , when user no longer needs to reference this data.
+
Author Stephen Gilbeert
+
Date 2002-10-28
+
+
Definition at line 24 of file g2_free.c .
+
+
References gribfield::bmap , gribfield::coord_list , gribfield::fld , gribfield::idrtmpl , gribfield::idsect , gribfield::igdtmpl , gribfield::ipdtmpl , gribfield::list_opt , and gribfield::local .
+
+
Referenced by g2_getfld() .
+
+
+
+
+
NCEPLIBS-g2c: g2_free.c Source File
+
+
+
+
+
+
+ NCEPLIBS-g2c
+ 1.7.0
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
Go to the documentation of this file.
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
g2int * igdtmpl
Contains the data values for the Grid Definition Template specified by igdtnum.
g2int * idsect
Contains the entries in the Identification Section (Section 1).
Header file with internal function prototypes NCEPLIBS-g2c library.
g2int * idrtmpl
Contains the data values for the Data Representation Template specified by idrtnum.
void g2_free(gribfield *gfld)
This routine frees up memory that was allocated for struct gribfield.
float * coord_list
Array containing floating point values intended to document the vertical discretisation associated to...
float * fld
Array of ndpts unpacked data points.
unsigned char * local
Pointer to character array containing contents of Local Section 2, if included.
g2int * list_opt
(Used if numoct_opt .ne.
g2int * bmap
Integer array containing decoded bitmap, if ibmap=0 or ibap=254.
g2int * ipdtmpl
Contains the data values for the Product Definition Template specified by ipdtnum.
NCEPLIBS-g2c: g2_getfld.c File Reference
+
+
+
+
+
+
+ NCEPLIBS-g2c
+ 1.7.0
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
Return all the metadata, template values, Bit-map (if applicable), and the unpacked data for a given data field.
+More...
+
#include <stdio.h>
+
#include <stdlib.h>
+
#include "grib2_int.h "
+
+
Go to the source code of this file.
+
+g2int g2_getfld (unsigned char *cgrib, g2int ifldnum, g2int unpack, g2int expand, gribfield **gfld) This subroutine returns all the metadata, template values, bit-map (if applicable), and the unpacked data for a given data field. More...
+
+
Return all the metadata, template values, Bit-map (if applicable), and the unpacked data for a given data field.
+
Author Stephen Gilbert
+
Date 2002-10-28
+
+
Definition in file g2_getfld.c .
+
+
+
◆
+
+
+
+
+
+ g2int g2_getfld (
+ unsigned char *
+ cgrib ,
+
+ g2int ifldnum ,
+
+ g2int unpack ,
+
+ g2int expand ,
+
+ gribfield ** gfld
+
+ )
+
+
+
+
+
This subroutine returns all the metadata, template values, bit-map (if applicable), and the unpacked data for a given data field.
+
All of the information returned is stored in a gribfield structure, which is defined in file grib2.h . Users of this routine will need to include grib2.h in their source code that calls this routine.
+
Since there can be multiple data fields packed into a GRIB2 message, the calling routine indicates which field is being requested with the ifldnum argument.
+
+
+
+Date Programmer Comments
+
+2002-10-28 Gilbert Initial
+
+2013-08-08 Vuong Free up memory in array igds - free(igds)
+
+
Parameters
+
+ cgrib Character pointer to the GRIB2 message. ifldnum Specifies which field in the GRIB2 message to return. The first field is number 1, Fortran style. unpack Boolean value indicating whether to unpack bitmap/data field.
+1 unpack bitmap (if present) and data values.
+0 do not unpack bitmap and data values.
+
+ expand Boolean value indicating whether the data points should be expanded to the correspond grid, if a bit-map is present. This argument is ignored if unpack == 0 OR if the returned field does not contain a bit-map.
+1 if possible, expand data field to grid, inserting zero values at gridpoints that are bitmapped out. (SEE REMARKS2)
+0 do not expand data field, leaving it an array of consecutive data points for each "1" in the bitmap.
+
+ gfld pointer to structure gribfield containing all decoded data for the data field.
+
+
+
Returns
+
+
Note Struct gribfield is allocated by this routine and it also contains pointers to many arrays of data that were allocated during decoding. Users are encouraged to free up this memory, when it is no longer needed, by an explicit call to routine g2_free() .
+
+
+
+
+
...
+
g2_free(gfld);
+
Routine g2_info() can be used to first determine how many data fields exist in a given GRIB message.
+
Note It may not always be possible to expand a bit-mapped data field. If a pre-defined bit-map is used and not included in the GRIB2 message itself, this routine would not have the necessary information to expand the data. In this case, gfld->expanded would would be set to 0 (false), regardless of the value of input argument expand.
+
Author Stephen Gilbert
+
Date 2002-10-28
+
+
Definition at line 91 of file g2_getfld.c .
+
+
References gribfield::bmap , gribfield::coord_list , gribfield::discipline , gribfield::expanded , gribfield::fld , g2_free() , G2_GETFLD_BAD_END , G2_GETFLD_BAD_SEC1 , G2_GETFLD_BAD_SEC2 , G2_GETFLD_BAD_SEC3 , G2_GETFLD_BAD_SEC4 , G2_GETFLD_BAD_SEC5 , G2_GETFLD_BAD_SEC6 , G2_GETFLD_BAD_SEC7 , G2_GETFLD_GRIB_VERSION , G2_GETFLD_INVAL , G2_GETFLD_INVAL_SEC , G2_GETFLD_NO_BITMAP , G2_GETFLD_NO_GRIB , G2_GETFLD_WRONG_END , G2_GETFLD_WRONG_NFLDS , G2_NO_ERROR , g2_unpack1() , g2_unpack2() , g2_unpack3() , g2_unpack4() , g2_unpack5() , g2_unpack6() , g2_unpack7() , gbit() , gribfield::griddef , gribfield::ibmap , gribfield::idrtlen , gribfield::idrtmpl , gribfield::idrtnum , gribfield::idsect , gribfield::idsectlen , gribfield::ifldnum , gribfield::igdtlen , gribfield::igdtmpl , gribfield::igdtnum , gribfield::interp_opt , gribfield::ipdtlen , gribfield::ipdtmpl , gribfield::ipdtnum , gribfield::list_opt , gribfield::local , gribfield::locallen , gribfield::ndpts , gribfield::ngrdpts , gribfield::num_coord , gribfield::num_opt , gribfield::numoct_opt , gribfield::unpacked , and gribfield::version .
+
+
+
+
+
Header file for NCEPLIBS-g2c library.
g2int g2_getfld(unsigned char *cgrib, g2int ifldnum, g2int unpack, g2int expand, gribfield **gfld)
This subroutine returns all the metadata, template values, bit-map (if applicable),...
NCEPLIBS-g2c: g2_getfld.c Source File
+
+
+
+
+
+
+ NCEPLIBS-g2c
+ 1.7.0
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
Go to the documentation of this file.
+
+
+
+
+
+
+
+
+
+
95 g2int have3 = 0, have4 = 0, have5 = 0, have6 = 0, have7 = 0;
+
96 g2int numfld = 0, j, n, istart, iofst, ipos;
+
97 g2int disc, ver, lensec0, lengrib, lensec, isecnum;
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
112 printf(
"g2_getfld: Request for field number must be positive.\n" );
+
+
+
+
+
+
+
119 for (j = 0; j < 100; j++)
+
+
121 if (cgrib[j] ==
'G' && cgrib[j + 1] ==
'R' &&cgrib[j + 2] ==
'I' &&
+
+
+
+
+
+
+
+
+
130 printf(
"g2_getfld: Beginning characters GRIB not found.\n" );
+
+
+
+
+
+
136 iofst = 8 * (istart + 6);
+
137 gbit (cgrib, &disc, iofst, 8);
+
+
139 gbit (cgrib, &ver, iofst, 8);
+
+
+
142 gbit (cgrib, &lengrib, iofst, 32);
+
+
+
145 ipos = istart + lensec0;
+
+
+
+
+
150 printf(
"g2_getfld: can only decode GRIB edition 2.\n" );
+
+
+
+
+
+
+
+
+
+
+
161 if (cgrib[ipos] ==
'7' && cgrib[ipos + 1] ==
'7' && cgrib[ipos + 2] ==
'7' &&
+
162 cgrib[ipos + 3] ==
'7' )
+
+
+
+
+
+
168 if (ipos != istart + lengrib)
+
+
170 printf(
"g2_getfld: '7777' found, but not where expected.\n" );
+
+
+
+
+
+
+
+
+
179 gbit (cgrib, &lensec, iofst, 32);
+
+
181 gbit (cgrib, &isecnum, iofst, 8);
+
+
+
+
185 if (isecnum < 1 || isecnum > 7)
+
+
187 printf(
"g2_getfld: Unrecognized Section Encountered=%ld\n" , isecnum);
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
248 if (numfld == ifldnum)
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
269 if (isecnum == 5 && numfld == ifldnum)
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
289 bmpsave = lgfld->
bmap ;
+
+
+
+
+
+
+
+
+
298 if (lgfld->
ibmap == 254)
+
+
+
301 lgfld->
bmap = bmpsave;
+
+
+
304 printf(
"g2_getfld: Prev bit-map specified, but none exist.\n" );
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
321 if (isecnum == 7 && numfld == ifldnum && unpack)
+
+
+
+
+
+
+
328 printf(
"g2_getfld: return from g2_unpack7 = %d \n" , (
int )jerr);
+
+
+
+
+
+
+
+
+
337 if (lgfld->
ibmap != 255 && lgfld->
bmap != 0)
+
+
+
+
+
342 newfld = calloc(lgfld->
ngrdpts ,
sizeof (
float ));
+
343 for (j = 0; j < lgfld->
ngrdpts ; j++)
+
+
345 if (lgfld->
bmap [j] == 1)
+
346 newfld[j] = lgfld->
fld [n++];
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
365 ipos = ipos + lensec;
+
366 if (ipos > istart + lengrib)
+
+
368 printf(
"g2_getfld: '7777' not found at end of GRIB message.\n" );
+
+
+
+
+
+
+
375 if (unpack && have3 && have4 && have5 && have6 && have7)
+
+
+
+
+
380 if (!unpack && have3 && have4 && have5 && have6)
+
+
+
+
+
+
386 printf(
"g2_getfld: GRIB message contained %ld different fields.\n" , numfld);
+
387 printf(
"g2_getfld: The request was for field %ld.\n" , ifldnum);
+
+
+
+
+
g2int g2_unpack5(unsigned char *cgrib, g2int *iofst, g2int *ndpts, g2int *idrsnum, g2int **idrstmpl, g2int *mapdrslen)
This subroutine unpacks Section 5 (Data Representation Section) as defined in GRIB Edition 2.
g2int * igdtmpl
Contains the data values for the Grid Definition Template specified by igdtnum.
#define G2_GETFLD_NO_BITMAP
In g2_getfld() previous bitmap specified, yet none exists.
#define G2_GETFLD_BAD_SEC7
Error in g2_getfld() unpacking section 7.
g2int ngrdpts
Number of grid points in the defined grid.
#define G2_GETFLD_BAD_SEC6
Error in g2_getfld() unpacking section 6.
g2int unpacked
Logical value indicating whether the bitmap and data values were unpacked.
g2int ifldnum
Field number within GRIB message.
#define G2_GETFLD_BAD_SEC3
Error in g2_getfld() unpacking section 3.
g2int idrtlen
Number of elements in idrtmpl.
#define G2_NO_ERROR
Function succeeded.
g2int ibmap
Bitmap indicator (see Table 6.0).
g2int griddef
Source of grid definition (see Table 3.0).
g2int numoct_opt
Number of octets needed for each additional grid points definition.
g2int * idsect
Contains the entries in the Identification Section (Section 1).
g2int g2_unpack4(unsigned char *cgrib, g2int *iofst, g2int *ipdsnum, g2int **ipdstmpl, g2int *mappdslen, float **coordlist, g2int *numcoord)
This subroutine unpacks Section 4 (Product Definition Section) as defined in GRIB Edition 2.
Header file with internal function prototypes NCEPLIBS-g2c library.
#define G2_GETFLD_WRONG_NFLDS
In g2_getfld() message did not contain the requested number of data fields.
#define G2_GETFLD_WRONG_END
g2_info() found "7777" not where expected.
g2int * idrtmpl
Contains the data values for the Data Representation Template specified by idrtnum.
g2int g2_unpack2(unsigned char *cgrib, g2int *iofst, g2int *lencsec2, unsigned char **csec2)
This subroutine unpacks Section 2 (Local Use Section) as defined in GRIB Edition 2.
#define G2_GETFLD_BAD_SEC4
Error in g2_getfld() unpacking section 4.
g2int interp_opt
Interpretation of list for optional points definition.
g2int ipdtlen
Number of elements in ipdtmpl - i.e.
void gbit(unsigned char *in, g2int *iout, g2int iskip, g2int nbits)
Get bits - unpack bits: Extract arbitrary size values from a packed bit string, right justifying each...
void g2_free(gribfield *gfld)
This routine frees up memory that was allocated for struct gribfield.
#define G2_GETFLD_BAD_SEC5
Error in g2_getfld() unpacking section 5.
g2int g2_unpack1(unsigned char *cgrib, g2int *iofst, g2int **ids, g2int *idslen)
This subroutine unpacks Section 1 - Identification Section as defined in GRIB Edition 2.
g2int discipline
Message Discipline (see Table 0.0).
g2int num_opt
(Used if numoct_opt .ne.
#define G2_GETFLD_BAD_END
g2_getfld() didn't find "7777" at end of message.
float * coord_list
Array containing floating point values intended to document the vertical discretisation associated to...
g2int ipdtnum
Product Definition Template Number (see Table 4.0).
int64_t g2int
Long integer type.
#define G2_GETFLD_GRIB_VERSION
Wrong GRIB version for g2_getfld(), must be 2.
g2int g2_unpack3(unsigned char *cgrib, g2int *iofst, g2int **igds, g2int **igdstmpl, g2int *mapgridlen, g2int **ideflist, g2int *idefnum)
This routine unpacks Section 3 (Grid Definition Section) as defined in GRIB Edition 2.
float * fld
Array of ndpts unpacked data points.
unsigned char * local
Pointer to character array containing contents of Local Section 2, if included.
g2int g2_unpack6(unsigned char *cgrib, g2int *iofst, g2int ngpts, g2int *ibmap, g2int **bmap)
This subroutine unpacks Section 6 (Bit-Map Section) as defined in GRIB Edition 2.
g2int idrtnum
Data Representation Template Number (see Table 5.0).
#define G2_GETFLD_INVAL
g2_getfld() data field request number was not positive.
g2int num_coord
Number of values in array coord_list.
g2int expanded
Logical value indicating whether the data field was expanded to the grid in the case where a bit-map ...
g2int g2_unpack7(unsigned char *cgrib, g2int *iofst, g2int igdsnum, g2int *igdstmpl, g2int idrsnum, g2int *idrstmpl, g2int ndpts, float **fld)
This subroutine unpacks Section 7 (Data Section) as defined in GRIB Edition 2.
g2int version
GRIB edition number (2).
g2int locallen
Length of array local.
#define G2_GETFLD_INVAL_SEC
g2_getfld() encountered unrecognized section.
g2int ndpts
Number of data points unpacked and returned.
g2int igdtlen
Number of elements in igdtmpl - i.e.
g2int * list_opt
(Used if numoct_opt .ne.
g2int igdtnum
Grid Definition Template Number (See Table 3.1).
#define G2_GETFLD_BAD_SEC1
Error in g2_getfld() unpacking section 1.
#define G2_GETFLD_BAD_SEC2
Error in g2_getfld() unpacking section 2.
g2int * bmap
Integer array containing decoded bitmap, if ibmap=0 or ibap=254.
g2int g2_getfld(unsigned char *cgrib, g2int ifldnum, g2int unpack, g2int expand, gribfield **gfld)
This subroutine returns all the metadata, template values, bit-map (if applicable),...
#define G2_GETFLD_NO_GRIB
g2_getfld() can't find beginning characters "GRIB".
g2int * ipdtmpl
Contains the data values for the Product Definition Template specified by ipdtnum.
g2int idsectlen
Number of elements in idsect.
NCEPLIBS-g2c: g2_gribend.c File Reference
+
+
+
+
+
+
+ NCEPLIBS-g2c
+ 1.7.0
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
Finalize a GRIB2 message after all grids and fields have been added.
+More...
+
#include <stdio.h>
+
#include "grib2_int.h "
+
+
Go to the source code of this file.
+
+g2int g2_gribend (unsigned char *cgrib) This routine finalizes a GRIB2 message after all grids and fields have been added. More...
+
+
Finalize a GRIB2 message after all grids and fields have been added.
+
Author Stephen Gilbert
+
Date 2002-10-31
+
+
Definition in file g2_gribend.c .
+
+
+
◆
+
+
+
+
+
+ g2int g2_gribend (
+ unsigned char *
+ cgrib )
+
+
+
+
+
This routine finalizes a GRIB2 message after all grids and fields have been added.
+
It adds the End Section ("7777") to the end of the GRIB message and calculates the length and stores it in the appropriate place in Section 0. This routine is used with routines g2_create() , g2_addlocal() , g2_addgrid() , and g2_addfield() to create a complete GRIB2 message.
+
Parameters
+
+
+
+
Returns
+
+
Note This routine is intended for use with routines g2_create() , g2_addlocal() , g2_addgrid() , and g2_addfield() to create a complete GRIB2 message.
+
Author Stephen Gilbert
+
Date 2002-10-31
+
+
Definition at line 37 of file g2_gribend.c .
+
+
References G2_ADD_MSG_COMPLETE , G2_ADD_MSG_INIT , G2_BAD_SEC , G2_BAD_SEC_COUNTS , g2c_check_msg() , G2C_MSG_COMPLETE , G2C_NOT_GRIB , gbit() , and sbit() .
+
+
+
+
+
NCEPLIBS-g2c: g2_gribend.c Source File
+
+
+
+
+
+
+ NCEPLIBS-g2c
+ 1.7.0
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
Go to the documentation of this file.
+
+
+
+
+
+
39 g2int iofst, lencurr, len, ilen, isecnum;
+
+
41 unsigned char seven = 0x37;
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
61 gbit (cgrib, &ilen, iofst, 32);
+
+
63 gbit (cgrib, &isecnum, iofst, 8);
+
+
+
+
+
+
+
+
+
+
+
74 printf(
"g2_gribend: Section byte counts don''t add to total.\n" );
+
75 printf(
"g2_gribend: Sum of section byte counts = %d\n" , (
int )len);
+
76 printf(
"g2_gribend: Total byte count in Section 0 = %d\n" , (
int )lencurr);
+
+
+
+
+
+
+
+
84 printf(
"g2_gribend: Section 8 can only be added after Section 7.\n" );
+
85 printf(
"g2_gribend: Section %ld was the last found in given GRIB message.\n" , isecnum);
+
+
+
+
+
90 cgrib[lencurr] = seven;
+
91 cgrib[lencurr + 1] = seven;
+
92 cgrib[lencurr + 2] = seven;
+
93 cgrib[lencurr + 3] = seven;
+
+
+
96 lengrib = lencurr + 4;
+
97 sbit (cgrib, &lengrib, 96, 32);
+
+
+
+
+
+
g2int g2_gribend(unsigned char *cgrib)
This routine finalizes a GRIB2 message after all grids and fields have been added.
#define G2_BAD_SEC
Previous Section was unexpected.
Header file with internal function prototypes NCEPLIBS-g2c library.
void gbit(unsigned char *in, g2int *iout, g2int iskip, g2int nbits)
Get bits - unpack bits: Extract arbitrary size values from a packed bit string, right justifying each...
int64_t g2int
Long integer type.
#define G2_BAD_SEC_COUNTS
Sum of Section byte counts doesn't add to total byte count.
#define G2_ADD_MSG_COMPLETE
GRIB message already complete.
#define G2C_MSG_COMPLETE
GRIB message already complete.
#define G2_ADD_MSG_INIT
GRIB message was not initialized - call g2_create() first.
void sbit(unsigned char *out, g2int *in, g2int iskip, g2int nbits)
Store bits - put arbitrary size values into a packed bit string, taking the low order bits from each ...
#define G2C_NOT_GRIB
GRIB header not found.
int g2c_check_msg(unsigned char *cgrib, g2int *lencurr, int verbose)
Check for 'GRIB' at the beginning of a GRIB message, and check to see if the message is already termi...
NCEPLIBS-g2c: g2_info.c File Reference
+
+
+
+
+
+
+ NCEPLIBS-g2c
+ 1.7.0
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
Search through a GRIB2 message and returns the number of gridded fields found in the message and the number (and maximum size) of Local Use Sections.
+More...
+
#include <stdio.h>
+
#include <stdlib.h>
+
#include "grib2_int.h "
+
+
Go to the source code of this file.
+
+g2int g2_info (unsigned char *cgrib, g2int *listsec0, g2int *listsec1, g2int *numfields, g2int *numlocal) This subroutine searches through a GRIB2 message and returns the number of gridded fields found in the message and the number (and maximum size) of Local Use Sections. More...
+
+
Search through a GRIB2 message and returns the number of gridded fields found in the message and the number (and maximum size) of Local Use Sections.
+
Author Stephen Gilbeert
+
Date 2002-10-28
+
+
Definition in file g2_info.c .
+
+
+
◆
+
+
+
+
+
+ g2int g2_info (
+ unsigned char *
+ cgrib ,
+
+ g2int * listsec0 ,
+
+ g2int * listsec1 ,
+
+ g2int * numfields ,
+
+ g2int * numlocal
+
+ )
+
+
+
+
+
This subroutine searches through a GRIB2 message and returns the number of gridded fields found in the message and the number (and maximum size) of Local Use Sections.
+
Also various checks are performed to see if the message is a valid GRIB2 message.
+
Parameters
+
+ cgrib Character pointer to the GRIB2 message. listsec0 pointer to an array containing information decoded from GRIB Indicator Section 0. Must be allocated with >= 3 elements.
+listsec0(0) Discipline-GRIB Master Table Number (Code Table 0.0 ).
+listsec0[1] GRIB Edition Number (currently 2).
+listsec0[2] Length of GRIB message.
+
+ listsec1 Pointer to an array containing information read from GRIB Identification Section 1. Must be allocated with >= 13 elements.
+listsec1[0] Id of orginating centre (Table 0 ).
+listsec1[1] Id of orginating sub-centre (Table C ).
+listsec1[2] GRIB Master Tables Version Number (Table 1.0 ).
+listsec1[3] GRIB Local Tables Version Number (Table 1.1 ).
+listsec1[4] Significance of Reference Time (Table 1.2 )
+listsec1[5] Reference Time - Year (4 digits)
+listsec1[6] Reference Time - Month
+listsec1[7] Reference Time - Day
+listsec1[8] Reference Time - Hour
+listsec1[9] Reference Time - Minute
+listsec1[10] Reference Time - Second
+listsec1[11] Production status of data (Table 1.3 ).
+listsec1[12] Type of processed data (Table 1.4 ).
+
+ numfields The number of gridded fields found in the GRIB message. That is, the number of occurences of Sections 4 - 7. numlocal The number of Local Use Sections ( Section 2 ) found in the GRIB message.
+
+
+
Returns 0 foe success, otherwise:
+
+
Author Stephen Gilbeert
+
Date 2002-10-28
+
+
Definition at line 67 of file g2_info.c .
+
+
References G2_INFO_BAD_END , G2_INFO_GRIB_VERSION , G2_INFO_INVAL_SEC , G2_INFO_NO_GRIB , G2_INFO_NO_SEC1 , G2_INFO_WRONG_END , and gbit() .
+
+
+
+
+
NCEPLIBS-g2c: g2_info.c Source File
+
+
+
+
+
+
+ NCEPLIBS-g2c
+ 1.7.0
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
Go to the documentation of this file.
+
+
+
+
+
+
+
+
+
70 g2int mapsec1len = 13;
+
71 g2int mapsec1[13] = {2, 2, 1, 1, 1, 2, 1, 1, 1, 1, 1, 1, 1};
+
72 g2int i, j, istart, iofst, lengrib, lensec0, lensec1;
+
73 g2int ipos, isecnum, nbits, lensec;
+
+
+
+
+
+
+
80 for (j = 0; j < 100; j++)
+
+
82 if (cgrib[j] ==
'G' && cgrib[j + 1] ==
'R' && cgrib[j + 2] ==
'I' &&
+
+
+
+
+
+
+
+
+
91 printf(
"g2_info: Beginning characters GRIB not found." );
+
+
+
+
+
96 iofst = 8 * (istart + 6);
+
97 gbit (cgrib, listsec0, iofst, 8);
+
+
99 gbit (cgrib, listsec0 + 1, iofst, 8);
+
+
+
102 gbit (cgrib, &lengrib, iofst, 32);
+
+
104 listsec0[2] = lengrib;
+
+
106 ipos = istart + lensec0;
+
+
+
109 if (listsec0[1] != 2)
+
+
111 printf(
"g2_info: can only decode GRIB edition 2." );
+
+
+
+
+
116 gbit (cgrib, &lensec1, iofst, 32);
+
+
118 gbit (cgrib, &isecnum, iofst, 8);
+
+
+
+
122 printf(
"g2_info: Could not find section 1." );
+
+
+
+
+
+
+
129 for (i = 0; i < mapsec1len; i++)
+
+
131 nbits = mapsec1[i] * 8;
+
132 gbit (cgrib, listsec1 + i, iofst, nbits);
+
133 iofst = iofst + nbits;
+
+
135 ipos = ipos + lensec1;
+
+
+
+
+
+
+
142 if (cgrib[ipos] ==
'7' && cgrib[ipos + 1] ==
'7' && cgrib[ipos + 2] ==
'7' &&
+
143 cgrib[ipos + 3] ==
'7' )
+
+
+
146 if (ipos != (istart + lengrib))
+
+
148 printf(
"g2_info: '7777' found, but not where expected.\n" );
+
+
+
+
+
+
+
155 gbit (cgrib, &lensec, iofst, 32);
+
+
157 gbit (cgrib, &isecnum, iofst, 8);
+
+
159 ipos = ipos + lensec;
+
160 if (ipos > (istart + lengrib))
+
+
162 printf(
"g2_info: '7777' not found at end of GRIB message.\n" );
+
+
+
165 if (isecnum >= 2 && isecnum <= 7)
+
+
+
+
+
+
171 else if (isecnum == 4)
+
+
+
+
+
176 printf(
"g2_info: Invalid section number found in GRIB message: %ld\n" , isecnum);
+
+
+
+
+
+
+
+
#define G2_INFO_NO_GRIB
g2_info() can't find beginning characters "GRIB".
g2int g2_info(unsigned char *cgrib, g2int *listsec0, g2int *listsec1, g2int *numfields, g2int *numlocal)
This subroutine searches through a GRIB2 message and returns the number of gridded fields found in th...
#define G2_INFO_WRONG_END
g2_info() found "7777" not where expected.
#define G2_INFO_NO_SEC1
g2_info() can't find section 1.
#define G2_INFO_GRIB_VERSION
Wrong GRIB version for g2_info(), must be 2.
Header file with internal function prototypes NCEPLIBS-g2c library.
void gbit(unsigned char *in, g2int *iout, g2int iskip, g2int nbits)
Get bits - unpack bits: Extract arbitrary size values from a packed bit string, right justifying each...
#define G2_INFO_BAD_END
g2_info() didn't find "7777" at end of message.
int64_t g2int
Long integer type.
#define G2_INFO_INVAL_SEC
g2_info() found invalid section number.
NCEPLIBS-g2c: g2_miss.c File Reference
+
+
+
+
+
+
+ NCEPLIBS-g2c
+ 1.7.0
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
Check the Data Representation Template to see if missing value management is used, and returns the missing value(s) in the data field.
+More...
+
+
Go to the source code of this file.
+
+void g2_miss (gribfield *gfld, float *rmiss, int *nmiss) This routine checks the Data Representation Template to see if missing value management is used, and returns the missing value(s) in the data field. More...
+
+
Check the Data Representation Template to see if missing value management is used, and returns the missing value(s) in the data field.
+
Author Stephen Gilbeert
+
Date 2004-12-16
+
+
Definition in file g2_miss.c .
+
+
+
◆
+
+
+
+
+
+ void g2_miss
+ (
+ gribfield * gfld ,
+
+ float *
+ rmiss ,
+
+ int *
+ nmiss
+
+ )
+
+
+
+
+
This routine checks the Data Representation Template to see if missing value management is used, and returns the missing value(s) in the data field.
+
Parameters
+
+ gfld pointer to gribfield structure. rmiss List of the missing values used. nmiss NUmber of the missing values included in the field. rmiss must be allocated in the calling program with enough space hold all the missing values.
+
+
+
Author Stephen Gilbeert
+
Date 2004-12-16
+
+
Definition at line 24 of file g2_miss.c .
+
+
References gribfield::idrtmpl , gribfield::idrtnum , and rdieee() .
+
+
+
+
+
NCEPLIBS-g2c: g2_miss.c Source File
+
+
+
+
+
+
+ NCEPLIBS-g2c
+ 1.7.0
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
Go to the documentation of this file.
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
43 rmiss[0] = (float)gfld->
idrtmpl [7];
+
+
+
+
+
+
+
+
+
+
+
+
55 rmiss[0] = (float)gfld->
idrtmpl [7];
+
56 rmiss[1] = (
float )gfld->
idrtmpl [8];
+
+
+
+
+
+
+
+
+
void rdieee(g2int *rieee, float *a, g2int num)
This subroutine reads a list of real values in 32-bit IEEE floating point format.
Header file with internal function prototypes NCEPLIBS-g2c library.
g2int * idrtmpl
Contains the data values for the Data Representation Template specified by idrtnum.
void g2_miss(gribfield *gfld, float *rmiss, int *nmiss)
This routine checks the Data Representation Template to see if missing value management is used,...
int64_t g2int
Long integer type.
g2int idrtnum
Data Representation Template Number (see Table 5.0).
NCEPLIBS-g2c: g2_unpack1.c File Reference
+
+
+
+
+
+
+ NCEPLIBS-g2c
+ 1.7.0
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
Unpack Section 1 (Identification Section) as defined in GRIB Edition 2.
+More...
+
#include <stdio.h>
+
#include <stdlib.h>
+
#include "grib2_int.h "
+
+
Go to the source code of this file.
+
+
+
Unpack Section 1 (Identification Section) as defined in GRIB Edition 2.
+
Author Stephen Gilbert
+
Date 2002-10-29
+
+
Definition in file g2_unpack1.c .
+
+
+
◆
+
+
+
+
+
+ g2int g2_unpack1 (
+ unsigned char *
+ cgrib ,
+
+ g2int * iofst ,
+
+ g2int ** ids ,
+
+ g2int * idslen
+
+ )
+
+
+
+
+
This subroutine unpacks Section 1 - Identification Section as defined in GRIB Edition 2.
+
Parameters
+
+ cgrib char array containing Section 1 of the GRIB2 message. iofst Bit offset for the beginning of Section 1 in cgrib. ids Pointer that gets an array which contians the information read from Section 1, the Identification section. This array is allocated by this function, and must be freed by caller (using g2_free() ).
+ids[0] Identification of originating Centre (see Table 0 ).
+ids[1] Identification of originating Sub-centre (see Table C ).
+ids[2] GRIB Master Tables Version Number (see Table 1.0 ).
+ids[3] GRIB Local Tables Version Number (see Table 1.1 ).
+ids[4] Significance of Reference Time (see Table 1.2 ).
+ids[5] Year (4 digits)
+ids[6] Month
+ids[7] Day
+ids[8] Hour
+ids[9] Minute
+ids[10] Second
+ids[11] Production status of processed data (see Table 1.3 ).
+ids[12] Type of processed data (see Table 1.4 ).
+
+ idslen Number of elements in ids.
+
+
+
Returns
+
+
Author Stephen Gilbert
+
Date 2002-10-29
+
+
Definition at line 55 of file g2_unpack1.c .
+
+
References G2_NO_ERROR , G2_UNPACK_BAD_SEC , G2_UNPACK_NO_MEM , and gbit() .
+
+
Referenced by g2_getfld() .
+
+
+
+
+
NCEPLIBS-g2c: g2_unpack1.c Source File
+
+
+
+
+
+
+ NCEPLIBS-g2c
+ 1.7.0
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
Go to the documentation of this file.
+
+
+
+
+
+
+
+
+
58 g2int i, lensec, nbits, isecnum;
+
+
+
61 g2int mapid[13] = {2, 2, 1, 1, 1, 2, 1, 1, 1, 1, 1, 1, 1};
+
+
+
+
65 gbit (cgrib, &lensec, *iofst, 32);
+
+
67 gbit (cgrib, &isecnum, *iofst, 8);
+
+
+
+
+
+
73 fprintf(stderr,
"g2_unpack1: Not Section 1 data.\n" );
+
+
+
+
+
+
+
80 if (!(*ids = calloc(*idslen,
sizeof (
g2int ))))
+
+
+
83 for (i = 0; i < *idslen; i++)
+
+
+
86 gbit (cgrib, *ids + i, *iofst, nbits);
+
87 *iofst = *iofst + nbits;
+
+
+
+
+
+
#define G2_UNPACK_NO_MEM
Error allocating memory in unpack function.
#define G2_NO_ERROR
Function succeeded.
Header file with internal function prototypes NCEPLIBS-g2c library.
void gbit(unsigned char *in, g2int *iout, g2int iskip, g2int nbits)
Get bits - unpack bits: Extract arbitrary size values from a packed bit string, right justifying each...
g2int g2_unpack1(unsigned char *cgrib, g2int *iofst, g2int **ids, g2int *idslen)
This subroutine unpacks Section 1 - Identification Section as defined in GRIB Edition 2.
int64_t g2int
Long integer type.
#define G2_UNPACK_BAD_SEC
Bad section number in unpacking function.
NCEPLIBS-g2c: g2_unpack2.c File Reference
+
+
+
+
+
+
+ NCEPLIBS-g2c
+ 1.7.0
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
Unpack Section 2 (Local Use Section) as defined in GRIB Edition 2.
+More...
+
#include <stdio.h>
+
#include <stdlib.h>
+
#include "grib2_int.h "
+
+
Go to the source code of this file.
+
+
+
Unpack Section 2 (Local Use Section) as defined in GRIB Edition 2.
+
Author Stephen Gilbert
+
Date 2002-10-31
+
+
Definition in file g2_unpack2.c .
+
+
+
◆
+
+
+
+
+
+ g2int g2_unpack2 (
+ unsigned char *
+ cgrib ,
+
+ g2int * iofst ,
+
+ g2int * lencsec2 ,
+
+ unsigned char **
+ csec2
+
+ )
+
+
+
+
+
This subroutine unpacks Section 2 (Local Use Section) as defined in GRIB Edition 2.
+
+
+
+Date Programmer Comments
+
+2002-10-31 Gilbert Initial
+
+2008-12-23 Wesley Initialize lencsec2 Length of Local Use data
+
+2010-08-05 Vuong If section 2 has zero length, ierr=0
+
+
Parameters
+
+ cgrib char array containing Section 2 of the GRIB2 message. iofst Pointer that contains the bit offset for the beginning of Section 2 in cgrib. The modified version will be returned. lencsec2 Length (in octets) of Local Use data. csec2 Pointer to a pointer that will get an allocated array containing local use data. This memory must be freed by the caller.
+
+
+
Returns
+
+
Author Stephen Gilbert
+
Date 2002-10-31
+
+
Definition at line 38 of file g2_unpack2.c .
+
+
References G2_NO_ERROR , G2_UNPACK_BAD_SEC , G2_UNPACK_NO_MEM , and gbit() .
+
+
Referenced by g2_getfld() .
+
+
+
+
+
NCEPLIBS-g2c: g2_unpack2.c Source File
+
+
+
+
+
+
+ NCEPLIBS-g2c
+ 1.7.0
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
Go to the documentation of this file.
+
+
+
+
+
+
+
39 unsigned char **csec2)
+
+
+
42 g2int lensec, ipos, j;
+
+
+
+
+
+
48 gbit (cgrib, &lensec, *iofst, 32);
+
+
50 *lencsec2 = lensec - 5;
+
+
+
53 gbit (cgrib, &isecnum, *iofst, 8);
+
+
+
+
+
+
+
60 fprintf(stderr,
"g2_unpack2: Not Section 2 data.\n" );
+
+
+
+
+
+
+
+
68 if (!(*csec2 = malloc(*lencsec2)))
+
+
+
+
+
+
74 for (j = 0; j < *lencsec2; j++)
+
75 (*csec2)[j] = cgrib[ipos + j];
+
+
77 *iofst = *iofst + (*lencsec2 * 8);
+
+
+
+
+
#define G2_UNPACK_NO_MEM
Error allocating memory in unpack function.
#define G2_NO_ERROR
Function succeeded.
Header file with internal function prototypes NCEPLIBS-g2c library.
g2int g2_unpack2(unsigned char *cgrib, g2int *iofst, g2int *lencsec2, unsigned char **csec2)
This subroutine unpacks Section 2 (Local Use Section) as defined in GRIB Edition 2.
void gbit(unsigned char *in, g2int *iout, g2int iskip, g2int nbits)
Get bits - unpack bits: Extract arbitrary size values from a packed bit string, right justifying each...
int64_t g2int
Long integer type.
#define G2_UNPACK_BAD_SEC
Bad section number in unpacking function.
NCEPLIBS-g2c: g2_unpack3.c File Reference
+
+
+
+
+
+
+ NCEPLIBS-g2c
+ 1.7.0
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
Unpack Section 3 (Grid Definition Section) as defined in GRIB Edition 2.
+More...
+
#include <stdio.h>
+
#include <stdlib.h>
+
#include "grib2_int.h "
+
+
Go to the source code of this file.
+
+
+
Unpack Section 3 (Grid Definition Section) as defined in GRIB Edition 2.
+
Author Stephen Gilbert
+
Date 2002-10-31
+
+
Definition in file g2_unpack3.c .
+
+
+
◆
+
+
+
+
+
+ g2int g2_unpack3 (
+ unsigned char *
+ cgrib ,
+
+ g2int * iofst ,
+
+ g2int ** igds ,
+
+ g2int ** igdstmpl ,
+
+ g2int * mapgridlen ,
+
+ g2int ** ideflist ,
+
+ g2int * idefnum
+
+ )
+
+
+
+
+
This routine unpacks Section 3 (Grid Definition Section) as defined in GRIB Edition 2.
+
+
+
+Date Programmer Comments
+
+2002-10-31 Gilbert Initial
+
+2009-01-14 Vuong Changed structure name template to gtemplate
+
+
Parameters
+
+ cgrib Char array ontaining Section 3 of the GRIB2 message. iofst Bit offset for the beginning of Section 3 in cgrib. igds Contains information read from the appropriate GRIB Grid Definition Section 3 for the field being returned.
+igds[0] Source of grid definition (see Table 3.0 ).
+igds[1] Number of grid points in the defined grid.
+igds[2] Number of octets needed for each additional grid points definition. Used to define number of points in each row (or column) for non-regular grids. = 0, if using regular grid.
+igds[3] Interpretation of list for optional points definition. (See Table 3.11 )
+igds[4] Grid Definition Template Number (see Table 3.1 ).
+
+ igdstmpl Pointer to integer array containing the data values for the Grid Definition Template specified by igds[4]. mapgridlen Number of elements in igdstmpl. i.e. number of entries in Grid Defintion Template specified by igds[4]. ideflist (Used if igds[2] .ne. 0) Pointer to integer array containing the number of grid points contained in each row (or column). idefnum (Used if igds[2] .ne. 0) The number of entries in array ideflist - i.e. number of rows (or columns) for which optional grid points are defined.
+
+
+
Returns
+
+
Author Stephen Gilbert
+
Date 2002-10-31
+
+
Definition at line 57 of file g2_unpack3.c .
+
+
References gtemplate::ext , extgridtemplate() , gtemplate::extlen , G2_NO_ERROR , G2_UNPACK3_BAD_GDT , G2_UNPACK_BAD_SEC , G2_UNPACK_NO_MEM , gbit() , gbits() , getgridtemplate() , gtemplate::map , gtemplate::maplen , and gtemplate::needext .
+
+
Referenced by g2_getfld() , getdim() , and getpoly() .
+
+
+
+
+
NCEPLIBS-g2c: g2_unpack3.c Source File
+
+
+
+
+
+
+ NCEPLIBS-g2c
+ 1.7.0
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
Go to the documentation of this file.
+
+
+
+
+
+
+
+
+
60 g2int i, j, nbits, isecnum;
+
61 g2int lensec, ibyttem = 0, isign, newlen;
+
62 g2int *ligds, *ligdstmpl = NULL, *lideflist = NULL;
+
+
+
+
+
+
+
69 gbit (cgrib, &lensec, *iofst, 32);
+
+
71 gbit (cgrib, &isecnum, *iofst, 8);
+
+
+
+
+
+
+
+
+
+
81 ligds = calloc(5,
sizeof (
g2int ));
+
+
+
84 gbit (cgrib, &ligds[0], *iofst, 8);
+
+
86 gbit (cgrib, &ligds[1], *iofst, 32);
+
+
88 gbit (cgrib, &ligds[2], *iofst, 8);
+
+
90 gbit (cgrib, &ligds[3], *iofst, 8);
+
+
92 gbit (cgrib, &ligds[4], *iofst, 16);
+
+
+
95 if (ligds[4] != 65535)
+
+
+
+
+
+
+
+
103 *mapgridlen = mapgrid->
maplen ;
+
+
+
+
+
+
+
110 if (!(ligdstmpl = calloc(*mapgridlen,
sizeof (
g2int ))))
+
+
+
+
+
+
+
+
118 *igdstmpl = ligdstmpl;
+
+
+
121 for (i = 0; i < *mapgridlen; i++)
+
+
123 nbits = abs(mapgrid->
map [i]) * 8;
+
124 if (mapgrid->
map [i] >= 0)
+
+
126 gbit (cgrib, ligdstmpl + i, *iofst, nbits);
+
+
+
+
130 gbit (cgrib, &isign, *iofst, 1);
+
131 gbit (cgrib, ligdstmpl + i, *iofst + 1, nbits - 1);
+
+
133 ligdstmpl[i] = -1 * ligdstmpl[i];
+
+
135 *iofst = *iofst + nbits;
+
136 ibyttem = ibyttem + abs(mapgrid->
map [i]);
+
+
+
+
+
+
+
+
+
+
+
+
+
149 ligdstmpl = realloc(ligdstmpl, newlen *
sizeof (
g2int ));
+
150 *igdstmpl = ligdstmpl;
+
+
152 for (i = *mapgridlen; i < newlen; i++)
+
+
154 nbits = abs(mapgrid->
ext [j]) * 8;
+
155 if (mapgrid->
ext [j] >= 0)
+
+
157 gbit (cgrib, ligdstmpl + i, *iofst, nbits);
+
+
+
+
161 gbit (cgrib, &isign, *iofst, 1);
+
162 gbit (cgrib, ligdstmpl + i, *iofst + 1, nbits - 1);
+
+
164 ligdstmpl[i] = -1 * ligdstmpl[i];
+
+
166 *iofst = *iofst + nbits;
+
167 ibyttem = ibyttem + abs(mapgrid->
ext [j]);
+
+
+
170 *mapgridlen = newlen;
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
188 nbits = ligds[2] * 8;
+
189 *idefnum = (lensec - 14 - ibyttem) / ligds[2];
+
+
191 lideflist = calloc(*idefnum,
sizeof (
g2int ));
+
+
+
+
+
+
+
198 *ideflist = lideflist;
+
199 gbits (cgrib, lideflist, *iofst, nbits, 0, *idefnum);
+
200 *iofst = *iofst + (nbits * *idefnum);
+
+
+
+
+
+
+
+
+
+
+
g2int * ext
Number of octets of each entry in the extension part of the template.
#define G2_UNPACK_NO_MEM
Error allocating memory in unpack function.
#define G2_NO_ERROR
Function succeeded.
g2int needext
Indicates whether or not the template needs to be extended.
gtemplate * extgridtemplate(g2int number, g2int *list)
This subroutine generates the remaining octet map for a given Grid Definition Template,...
Header file with internal function prototypes NCEPLIBS-g2c library.
g2int maplen
Number of entries in the static part of the template.
gtemplate * getgridtemplate(g2int number)
This subroutine returns grid template information for a specified Grid Definition Template for [Secti...
g2int * map
Number of octets of each entry in the static part of the template.
void gbit(unsigned char *in, g2int *iout, g2int iskip, g2int nbits)
Get bits - unpack bits: Extract arbitrary size values from a packed bit string, right justifying each...
int64_t g2int
Long integer type.
g2int g2_unpack3(unsigned char *cgrib, g2int *iofst, g2int **igds, g2int **igdstmpl, g2int *mapgridlen, g2int **ideflist, g2int *idefnum)
This routine unpacks Section 3 (Grid Definition Section) as defined in GRIB Edition 2.
void gbits(unsigned char *in, g2int *iout, g2int iskip, g2int nbits, g2int nskip, g2int n)
Get bits - unpack bits: Extract arbitrary size values from a packed bit string, right justifying each...
g2int extlen
Number of entries in the template extension.
#define G2_UNPACK_BAD_SEC
Bad section number in unpacking function.
#define G2_UNPACK3_BAD_GDT
In g2_unpack3(), undefined Grid Definition Template.
Struct for GRIB template.
NCEPLIBS-g2c: g2_unpack4.c File Reference
+
+
+
+
+
+
+ NCEPLIBS-g2c
+ 1.7.0
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
Unpack Section 4 (Product Definition Section) as defined in GRIB Edition 2.
+More...
+
#include <stdio.h>
+
#include <stdlib.h>
+
#include "grib2_int.h "
+
+
Go to the source code of this file.
+
+
+
Unpack Section 4 (Product Definition Section) as defined in GRIB Edition 2.
+
Author Stephen Gilbert
+
Date 2002-10-31
+
+
Definition in file g2_unpack4.c .
+
+
+
◆
+
+
+
+
+
+ g2int g2_unpack4 (
+ unsigned char *
+ cgrib ,
+
+ g2int * iofst ,
+
+ g2int * ipdsnum ,
+
+ g2int ** ipdstmpl ,
+
+ g2int * mappdslen ,
+
+ float **
+ coordlist ,
+
+ g2int * numcoord
+
+ )
+
+
+
+
+
This subroutine unpacks Section 4 (Product Definition Section) as defined in GRIB Edition 2.
+
+
+
+Date Programmer Comments
+
+2002-10-31 Gilbert Initial
+
+2009-01-14 Vuong Changed structure name template to gtemplate
+
+
Parameters
+
+ cgrib Array containing Section 4 of the GRIB2 message. iofst Bit offset of the beginning of Section 4 in cgrib. Returned with updated bit offset. ipdsnum Product Definition Template Number (see Table 4.0 ). ipdstmpl Pointer that gets an integer array containing the data values for the Product Definition Template specified by ipdsnum. mappdslen Number of elements in ipdstmpl - i.e. number of entries in Product Defintion Template specified by ipdsnum. coordlist Pointer that gets an array containing floating point values intended to document the vertical discretisation associated to model data on hybrid coordinate vertical levels. numcoord number of values in array coordlist.
+
+
+
Returns
+
+
Author Stephen Gilbert
+
Date 2002-10-31
+
+
Definition at line 46 of file g2_unpack4.c .
+
+
References gtemplate::ext , gtemplate::extlen , extpdstemplate() , G2_NO_ERROR , G2_UNPACK4_BAD_PDT , G2_UNPACK_BAD_SEC , G2_UNPACK_NO_MEM , gbit() , gbits() , getpdstemplate() , gtemplate::map , gtemplate::maplen , gtemplate::needext , and rdieee() .
+
+
Referenced by g2_getfld() .
+
+
+
+
+
NCEPLIBS-g2c: g2_unpack4.c Source File
+
+
+
+
+
+
+ NCEPLIBS-g2c
+ 1.7.0
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
Go to the documentation of this file.
+
+
+
+
+
+
+
47 g2int *mappdslen,
float **coordlist,
g2int *numcoord)
+
+
+
50 g2int needext, i, j, nbits, isecnum;
+
51 g2int lensec, isign, newlen;
+
+
+
+
+
+
+
+
+
60 gbit (cgrib, &lensec, *iofst, 32);
+
+
62 gbit (cgrib, &isecnum, *iofst, 8);
+
+
+
+
+
+
+
+
+
+
72 gbit (cgrib, numcoord, *iofst, 16);
+
+
74 gbit (cgrib, ipdsnum, *iofst, 16);
+
+
+
+
+
+
+
+
+
83 *mappdslen = mappds->
maplen ;
+
+
+
+
+
+
+
90 lipdstmpl = calloc(*mappdslen,
sizeof (
g2int ));
+
+
+
+
+
+
+
+
+
99 *ipdstmpl = lipdstmpl;
+
+
101 for (i = 0; i < mappds->
maplen ; i++)
+
+
103 nbits = abs(mappds->
map [i]) * 8;
+
104 if (mappds->
map [i] >= 0)
+
+
106 gbit (cgrib, lipdstmpl + i, *iofst, nbits);
+
+
+
+
110 gbit (cgrib, &isign, *iofst, 1);
+
111 gbit (cgrib, lipdstmpl + i, *iofst + 1, nbits - 1);
+
112 if (isign == 1) lipdstmpl[i] = -1 * lipdstmpl[i];
+
+
114 *iofst = *iofst + nbits;
+
+
+
+
+
+
+
+
+
+
+
+
126 lipdstmpl = realloc(lipdstmpl, newlen *
sizeof (
g2int ));
+
127 *ipdstmpl = lipdstmpl;
+
+
+
130 for (i = *mappdslen; i < newlen; i++)
+
+
132 nbits = abs(mappds->
ext [j]) * 8;
+
133 if (mappds->
ext [j] >= 0)
+
+
135 gbit (cgrib, lipdstmpl + i, *iofst, nbits);
+
+
+
+
139 gbit (cgrib, &isign, *iofst, 1);
+
140 gbit (cgrib, lipdstmpl + i, *iofst+1, nbits-1);
+
+
142 lipdstmpl[i] = -1 * lipdstmpl[i];
+
+
144 *iofst = *iofst + nbits;
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
159 coordieee = calloc(*numcoord,
sizeof (
g2int ));
+
160 lcoordlist = calloc(*numcoord,
sizeof (
float ));
+
161 if (coordieee == 0 || lcoordlist == 0)
+
+
+
+
+
+
+
+
+
+
+
+
173 *coordlist = lcoordlist;
+
+
175 gbits (cgrib, coordieee, *iofst, 32, 0, *numcoord);
+
176 rdieee (coordieee, *coordlist, *numcoord);
+
+
178 *iofst = *iofst + (32 * (*numcoord));
+
+
+
+
+
+
gtemplate * extpdstemplate(g2int number, g2int *list)
This subroutine generates the remaining octet map for a given Product Definition Template,...
g2int * ext
Number of octets of each entry in the extension part of the template.
#define G2_UNPACK_NO_MEM
Error allocating memory in unpack function.
#define G2_NO_ERROR
Function succeeded.
void rdieee(g2int *rieee, float *a, g2int num)
This subroutine reads a list of real values in 32-bit IEEE floating point format.
g2int g2_unpack4(unsigned char *cgrib, g2int *iofst, g2int *ipdsnum, g2int **ipdstmpl, g2int *mappdslen, float **coordlist, g2int *numcoord)
This subroutine unpacks Section 4 (Product Definition Section) as defined in GRIB Edition 2.
g2int needext
Indicates whether or not the template needs to be extended.
Header file with internal function prototypes NCEPLIBS-g2c library.
g2int maplen
Number of entries in the static part of the template.
g2int * map
Number of octets of each entry in the static part of the template.
void gbit(unsigned char *in, g2int *iout, g2int iskip, g2int nbits)
Get bits - unpack bits: Extract arbitrary size values from a packed bit string, right justifying each...
gtemplate * getpdstemplate(g2int number)
This subroutine returns PDS template information for a specified Product Definition Template.
int64_t g2int
Long integer type.
void gbits(unsigned char *in, g2int *iout, g2int iskip, g2int nbits, g2int nskip, g2int n)
Get bits - unpack bits: Extract arbitrary size values from a packed bit string, right justifying each...
g2int extlen
Number of entries in the template extension.
#define G2_UNPACK_BAD_SEC
Bad section number in unpacking function.
Struct for GRIB template.
#define G2_UNPACK4_BAD_PDT
In g2_unpack4(), undefined Product Definition Template.
NCEPLIBS-g2c: g2_unpack5.c File Reference
+
+
+
+
+
+
+ NCEPLIBS-g2c
+ 1.7.0
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
Unpack Section 5 (Data Representation Section) as defined in GRIB Edition 2.
+More...
+
#include <stdio.h>
+
#include <stdlib.h>
+
#include "grib2_int.h "
+
+
Go to the source code of this file.
+
+
+
Unpack Section 5 (Data Representation Section) as defined in GRIB Edition 2.
+
Author Stephen Gilbert
+
Date 2002-10-31
+
+
Definition in file g2_unpack5.c .
+
+
+
◆
+
+
+
+
+
+ g2int g2_unpack5 (
+ unsigned char *
+ cgrib ,
+
+ g2int * iofst ,
+
+ g2int * ndpts ,
+
+ g2int * idrsnum ,
+
+ g2int ** idrstmpl ,
+
+ g2int * mapdrslen
+
+ )
+
+
+
+
+
This subroutine unpacks Section 5 (Data Representation Section) as defined in GRIB Edition 2.
+
+
+
+Date Programmer Comments
+
+2002-10-31 Gilbert Initial
+
+2009-01-14 Vuong Changed structure name template to gtemplate
+
+
Parameters
+
+ cgrib char array containing Section 5 of the GRIB2 message. iofst Bit offset for the beginning of Section 5 in cgrib. Returned with bit offset at the end of Section 5. ndpts Number of data points unpacked and returned. idrsnum Data Representation Template Number (see Code Table 5.0). idrstmpl Pointer to an integer array containing the data values for the specified Data Representation Template (N=idrsnum). Each element of this integer array contains an entry (in the order specified) of Data Representation Template 5.N. mapdrslen- Number of elements in idrstmpl. i.e. number of entries in Data Representation Template 5.N (N=idrsnum).
+
+
+
Returns
+
+
Author Stephen Gilbert
+
Date 2002-10-31
+
+
Definition at line 42 of file g2_unpack5.c .
+
+
References gtemplate::ext , extdrstemplate() , gtemplate::extlen , G2_NO_ERROR , G2_UNPACK5_BAD_DRT , G2_UNPACK_BAD_SEC , G2_UNPACK_NO_MEM , gbit() , getdrstemplate() , gtemplate::map , gtemplate::maplen , and gtemplate::needext .
+
+
Referenced by g2_getfld() .
+
+
+
+
+
NCEPLIBS-g2c: g2_unpack5.c Source File
+
+
+
+
+
+
+ NCEPLIBS-g2c
+ 1.7.0
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
Go to the documentation of this file.
+
+
+
+
+
+
+
+
+
45 g2int needext, i, j, nbits, isecnum;
+
46 g2int lensec, isign, newlen;
+
+
+
+
+
+
52 gbit (cgrib, &lensec, *iofst, 32);
+
+
54 gbit (cgrib, &isecnum, *iofst, 8);
+
+
+
+
+
+
+
+
+
+
64 gbit (cgrib, ndpts, *iofst, 32);
+
+
66 gbit (cgrib, idrsnum, *iofst, 16);
+
+
+
+
+
+
+
+
+
75 *mapdrslen = mapdrs->
maplen ;
+
+
+
+
+
+
+
82 lidrstmpl = calloc(*mapdrslen,
sizeof (
g2int ));
+
+
+
+
+
+
+
+
+
+
+
93 *idrstmpl = lidrstmpl;
+
+
95 for (i = 0; i < mapdrs->
maplen ; i++)
+
+
97 nbits = abs(mapdrs->
map [i]) * 8;
+
98 if (mapdrs->
map [i] >= 0)
+
+
100 gbit (cgrib, lidrstmpl + i, *iofst, nbits);
+
+
+
+
104 gbit (cgrib, &isign, *iofst, 1);
+
105 gbit (cgrib, lidrstmpl + i, *iofst + 1, nbits - 1);
+
+
107 lidrstmpl[i] = -1 * lidrstmpl[i];
+
+
109 *iofst = *iofst + nbits;
+
+
+
+
+
+
+
+
+
+
+
+
121 lidrstmpl = realloc(lidrstmpl, newlen *
sizeof (
g2int ));
+
122 *idrstmpl = lidrstmpl;
+
+
+
+
126 for (i = *mapdrslen; i < newlen; i++)
+
+
128 nbits = abs(mapdrs->
ext [j]) * 8;
+
129 if (mapdrs->
ext [j] >= 0)
+
+
131 gbit (cgrib, lidrstmpl + i, *iofst, nbits);
+
+
+
+
135 gbit (cgrib, &isign, *iofst, 1);
+
136 gbit (cgrib, lidrstmpl + i, *iofst + 1, nbits - 1);
+
+
138 lidrstmpl[i] = -1 * lidrstmpl[i];
+
+
140 *iofst = *iofst + nbits;
+
+
+
+
+
+
+
+
+
+
+
+
+
g2int g2_unpack5(unsigned char *cgrib, g2int *iofst, g2int *ndpts, g2int *idrsnum, g2int **idrstmpl, g2int *mapdrslen)
This subroutine unpacks Section 5 (Data Representation Section) as defined in GRIB Edition 2.
g2int * ext
Number of octets of each entry in the extension part of the template.
#define G2_UNPACK_NO_MEM
Error allocating memory in unpack function.
#define G2_NO_ERROR
Function succeeded.
gtemplate * getdrstemplate(g2int number)
This subroutine returns DRS template information for a specified Data Representation Template.
g2int needext
Indicates whether or not the template needs to be extended.
Header file with internal function prototypes NCEPLIBS-g2c library.
gtemplate * extdrstemplate(g2int number, g2int *list)
This subroutine generates the remaining octet map for a given Data Representation Template,...
g2int maplen
Number of entries in the static part of the template.
#define G2_UNPACK5_BAD_DRT
In g2_unpack5(), undefined Data Representation Template.
g2int * map
Number of octets of each entry in the static part of the template.
void gbit(unsigned char *in, g2int *iout, g2int iskip, g2int nbits)
Get bits - unpack bits: Extract arbitrary size values from a packed bit string, right justifying each...
int64_t g2int
Long integer type.
g2int extlen
Number of entries in the template extension.
#define G2_UNPACK_BAD_SEC
Bad section number in unpacking function.
Struct for GRIB template.
NCEPLIBS-g2c: g2_unpack6.c File Reference
+
+
+
+
+
+
+ NCEPLIBS-g2c
+ 1.7.0
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
Unpack Section 6 (Bit-Map Section) as defined in GRIB Edition 2.
+More...
+
#include <stdio.h>
+
#include <stdlib.h>
+
#include "grib2_int.h "
+
+
Go to the source code of this file.
+
+
+
Unpack Section 6 (Bit-Map Section) as defined in GRIB Edition 2.
+
Author Stephen Gilbert
+
Date 2002-10-31
+
+
Definition in file g2_unpack6.c .
+
+
+
◆
+
+
+
+
+
+ g2int g2_unpack6 (
+ unsigned char *
+ cgrib ,
+
+ g2int * iofst ,
+
+ g2int ngpts ,
+
+ g2int * ibmap ,
+
+ g2int ** bmap
+
+ )
+
+
+
+
+
This subroutine unpacks Section 6 (Bit-Map Section) as defined in GRIB Edition 2.
+
Parameters
+
+ cgrib char array containing Section 6 of the GRIB2 message. iofst Bit offset of the beginning of Section 6 in cgrib. ngpts Number of grid points specified in the bit-map ibmap Bitmap indicator (see Code Table 6.0)
+0 bitmap applies and is included in Section 6.
+1-253 Predefined bitmap applies
+254 Previously defined bitmap applies to this field
+255 Bit map does not apply to this product.
+
+ bmap Pointer to an integer array containing decoded bitmap. (if ibmap=0)
+
+
+
Returns
+
+
Author Stephen Gilbert
+
Date 2002-10-31
+
+
Definition at line 33 of file g2_unpack6.c .
+
+
References G2_NO_ERROR , G2_UNPACK_BAD_SEC , G2_UNPACK_NO_MEM , gbit() , and gbits() .
+
+
Referenced by g2_getfld() .
+
+
+
+
+
NCEPLIBS-g2c: g2_unpack6.c Source File
+
+
+
+
+
+
+ NCEPLIBS-g2c
+ 1.7.0
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
Go to the documentation of this file.
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
43 gbit (cgrib, &isecnum, *iofst, 8);
+
+
+
+
+
48 fprintf(stderr,
"g2_unpack6: Not Section 6 data.\n" );
+
+
+
+
52 gbit (cgrib, ibmap, *iofst, 8);
+
+
+
+
+
+
58 lbmap = calloc(ngpts,
sizeof (
g2int ));
+
+
+
+
+
63 intbmap = calloc(ngpts,
sizeof (
g2int ));
+
64 gbits (cgrib, intbmap, *iofst, 1, 0, ngpts);
+
65 *iofst = *iofst + ngpts;
+
66 for (j = 0; j < ngpts; j++)
+
67 lbmap[j] = (
g2int )intbmap[j];
+
+
+
+
+
+
+
#define G2_UNPACK_NO_MEM
Error allocating memory in unpack function.
#define G2_NO_ERROR
Function succeeded.
Header file with internal function prototypes NCEPLIBS-g2c library.
void gbit(unsigned char *in, g2int *iout, g2int iskip, g2int nbits)
Get bits - unpack bits: Extract arbitrary size values from a packed bit string, right justifying each...
int64_t g2int
Long integer type.
g2int g2_unpack6(unsigned char *cgrib, g2int *iofst, g2int ngpts, g2int *ibmap, g2int **bmap)
This subroutine unpacks Section 6 (Bit-Map Section) as defined in GRIB Edition 2.
void gbits(unsigned char *in, g2int *iout, g2int iskip, g2int nbits, g2int nskip, g2int n)
Get bits - unpack bits: Extract arbitrary size values from a packed bit string, right justifying each...
#define G2_UNPACK_BAD_SEC
Bad section number in unpacking function.
NCEPLIBS-g2c: g2_unpack7.c File Reference
+
+
+
+
+
+
+ NCEPLIBS-g2c
+ 1.7.0
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
Unpack Section 7 (Data Section) as defined in GRIB Edition 2.
+More...
+
#include <stdio.h>
+
#include <stdlib.h>
+
#include <memory.h>
+
#include <string.h>
+
#include "grib2_int.h "
+
+
Go to the source code of this file.
+
+
+
Unpack Section 7 (Data Section) as defined in GRIB Edition 2.
+
Author Stephen Gilbert
+
Date 2002-10-31
+
+
Definition in file g2_unpack7.c .
+
+
+
◆
+
+
+
+
+
+ g2int g2_unpack7 (
+ unsigned char *
+ cgrib ,
+
+ g2int * iofst ,
+
+ g2int igdsnum ,
+
+ g2int * igdstmpl ,
+
+ g2int idrsnum ,
+
+ g2int * idrstmpl ,
+
+ g2int ndpts ,
+
+ float **
+ fld
+
+ )
+
+
+
+
+
This subroutine unpacks Section 7 (Data Section) as defined in GRIB Edition 2.
+
+
+
+Date Programmer Comments
+
+2002-10-31 Gilbert Initial
+
+2002-12-20 Gilbert Added GDT info to arguments and added 5.51 processing.
+
+2003-08-29 Gilbert New templates using PNG and JPEG2000 algorithms/templates.
+
+2004-11-29 Gilbert JPEG2000 now allowed to use WMO Template 5.40 PNG allowed to use 5.41
+
+2004-12-16 Taylor Added check on comunpack return code.
+
+2008-12-23 Wesley Initialize Number of data points unpacked
+
+
Parameters
+
+ cgrib char array containing Section 7 of the GRIB2 message iofst Bit offset of the beginning of Section 7 in cgrib. igdsnum Grid Definition Template Number (see Code Table 3.0) (Only used for DRS Template 5.51) igdstmpl Pointer to an integer array containing the data values for the specified Grid Definition Template (N=igdsnum). Each element of this integer array contains an entry (in the order specified) of Grid Definition Template 3.N. (Only used for DRS Template 5.51). idrsnum Data Representation Template Number (see Code Table 5.0) idrstmpl Pointer to an integer array containing the data values for the specified Data Representation Template (N=idrsnum). Each element of this integer array contains an entry (in the order specified) of Data Representation Template 5.N ndpts Number of data points unpacked and returned. fld Pointer to a float array containing the unpacked data field.
+
+
+
Returns
+
+
Author Stephen Gilbert
+
Date 2002-10-31
+
+
Definition at line 55 of file g2_unpack7.c .
+
+
References comunpack() , G2_NO_ERROR , G2_UNPACK7_BAD_DRT , G2_UNPACK7_CORRUPT_SEC , G2_UNPACK7_WRONG_GDT , G2_UNPACK_BAD_SEC , G2_UNPACK_NO_MEM , gbit() , jpcunpack() , pngunpack() , rdieee() , simunpack() , and specunpack() .
+
+
Referenced by g2_getfld() .
+
+
+
+
+
NCEPLIBS-g2c: g2_unpack7.c Source File
+
+
+
+
+
+
+ NCEPLIBS-g2c
+ 1.7.0
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
Go to the documentation of this file.
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
64 gbit (cgrib, &lensec, *iofst, 32);
+
+
66 gbit (cgrib, &isecnum, *iofst, 8);
+
+
+
+
+
+
+
73 if (!(lfld = calloc(ndpts ? ndpts : 1,
sizeof (
float ))))
+
+
+
+
+
+
79 simunpack (cgrib + ipos, idrstmpl, ndpts, lfld);
+
80 else if (idrsnum == 2 || idrsnum == 3)
+
+
82 if (
comunpack (cgrib+ipos, lensec, idrsnum, idrstmpl, ndpts, lfld))
+
+
+
85 else if (idrsnum == 50)
+
+
87 simunpack (cgrib + ipos, idrstmpl, ndpts - 1, lfld + 1);
+
88 rdieee (idrstmpl + 4, lfld, 1);
+
+
90 else if (idrsnum == 51)
+
+
92 if (igdsnum >= 50 && igdsnum <= 53)
+
93 specunpack (cgrib + ipos, idrstmpl, ndpts, igdstmpl[0], igdstmpl[2],
+
+
+
+
97 fprintf(stderr,
"g2_unpack7: Cannot use GDT 3.%d to unpack Data Section 5.51.\n" ,
+
+
+
+
+
+
+
+
105 #if defined USE_JPEG2000 || defined USE_OPENJPEG
+
106 else if (idrsnum == 40 || idrsnum == 40000)
+
+
108 jpcunpack (cgrib + ipos, lensec - 5, idrstmpl, ndpts, lfld);
+
+
+
+
112 else if (idrsnum == 41 || idrsnum == 40010)
+
+
114 pngunpack (cgrib + ipos, lensec - 5, idrstmpl, ndpts, lfld);
+
+
+
+
+
119 fprintf(stderr,
"g2_unpack7: Data Representation Template 5.%d not yet "
+
120 "implemented.\n" , (
int )idrsnum);
+
+
+
+
+
+
+
127 *iofst = *iofst + (8 * lensec);
+
+
+
+
+
#define G2_UNPACK_NO_MEM
Error allocating memory in unpack function.
#define G2_NO_ERROR
Function succeeded.
#define G2_UNPACK7_CORRUPT_SEC
In g2_unpack7(), corrupt section 7.
void rdieee(g2int *rieee, float *a, g2int num)
This subroutine reads a list of real values in 32-bit IEEE floating point format.
Header file with internal function prototypes NCEPLIBS-g2c library.
g2int jpcunpack(unsigned char *cpack, g2int len, g2int *idrstmpl, g2int ndpts, float *fld)
Unpack JPEG2000 compressed data into an array of floats, using info from the GRIB2 Data Representatio...
void gbit(unsigned char *in, g2int *iout, g2int iskip, g2int nbits)
Get bits - unpack bits: Extract arbitrary size values from a packed bit string, right justifying each...
int64_t g2int
Long integer type.
#define G2_UNPACK7_BAD_DRT
In g2_unpack7(), unrecognized Data Representation Template.
g2int pngunpack(unsigned char *cpack, g2int len, g2int *idrstmpl, g2int ndpts, float *fld)
This subroutine unpacks a data field that was packed into a PNG image format using info from the GRIB...
g2int simunpack(unsigned char *cpack, g2int *idrstmpl, g2int ndpts, float *fld)
This subroutine unpacks a data field that was packed using a simple packing algorithm as defined in t...
int comunpack(unsigned char *cpack, g2int lensec, g2int idrsnum, g2int *idrstmpl, g2int ndpts, float *fld)
This subroutine unpacks a data field that was packed using a complex packing algorithm as defined in ...
g2int g2_unpack7(unsigned char *cgrib, g2int *iofst, g2int igdsnum, g2int *igdstmpl, g2int idrsnum, g2int *idrstmpl, g2int ndpts, float **fld)
This subroutine unpacks Section 7 (Data Section) as defined in GRIB Edition 2.
#define G2_UNPACK_BAD_SEC
Bad section number in unpacking function.
g2int specunpack(unsigned char *cpack, g2int *idrstmpl, g2int ndpts, g2int JJ, g2int KK, g2int MM, float *fld)
This subroutine unpacks a spectral data field that was packed using the complex packing algorithm for...
#define G2_UNPACK7_WRONG_GDT
In g2_unpack7(), need one of GDT 3.50 through 3.53 to decode DRT 5.51.
NCEPLIBS-g2c: gbits.c File Reference
+
+
+
+
+
+
+ NCEPLIBS-g2c
+ 1.7.0
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
Functions to pack and unpack bits to/from a packed bit string.
+More...
+
+
Go to the source code of this file.
+
+void gbit (unsigned char *in, g2int *iout, g2int iskip, g2int nbits) Get bits - unpack bits: Extract arbitrary size values from a packed bit string, right justifying each value in the unpacked iout array. More... void gbits (unsigned char *in, g2int *iout, g2int iskip, g2int nbits, g2int nskip, g2int n) Get bits - unpack bits: Extract arbitrary size values from a packed bit string, right justifying each value in the unpacked iout array. More... void sbit (unsigned char *out, g2int *in, g2int iskip, g2int nbits) Store bits - put arbitrary size values into a packed bit string, taking the low order bits from each value in the unpacked array. More... void sbits (unsigned char *out, g2int *in, g2int iskip, g2int nbits, g2int nskip, g2int n) Store bits - put arbitrary size values into a packed bit string, taking the low order bits from each value in the unpacked array. More...
+
+
Functions to pack and unpack bits to/from a packed bit string.
+
Author NOAA Programmer
+
+
Definition in file gbits.c .
+
+
+
◆
+
+
+
+
+
+ void gbit
+ (
+ unsigned char *
+ in ,
+
+ g2int * iout ,
+
+ g2int iskip ,
+
+ g2int nbits
+
+ )
+
+
+
+
+
Get bits - unpack bits: Extract arbitrary size values from a packed bit string, right justifying each value in the unpacked iout array.
+
Parameters
+
+ in pointer to character array input. iout pointer to unpacked array output. iskip initial number of bits to skip. nbits number of bits to take.
+
+
+
Author NOAA Programmer
+
+
Definition at line 20 of file gbits.c .
+
+
References gbits() .
+
+
Referenced by comunpack() , g2_addfield() , g2_addgrid() , g2_addlocal() , g2_getfld() , g2_gribend() , g2_info() , g2_unpack1() , g2_unpack2() , g2_unpack3() , g2_unpack4() , g2_unpack5() , g2_unpack6() , g2_unpack7() , g2c_check_msg() , and seekgb() .
+
+
+
+
+
◆
+
+
+
+
+
+ void gbits
+ (
+ unsigned char *
+ in ,
+
+ g2int * iout ,
+
+ g2int iskip ,
+
+ g2int nbits ,
+
+ g2int nskip ,
+
+ g2int n
+
+ )
+
+
+
+
+
Get bits - unpack bits: Extract arbitrary size values from a packed bit string, right justifying each value in the unpacked iout array.
+
Parameters
+
+ in Pointer to character array input. iout Pointer to unpacked array output. iskip Initial number of bits to skip. nbits Number of bits to take. nskip Additional number of bits to skip on each iteration. n Number of iterations.
+
+
+
Author NOAA Programmer
+
+
Definition at line 57 of file gbits.c .
+
+
Referenced by comunpack() , g2_unpack3() , g2_unpack4() , g2_unpack6() , gbit() , pngunpack_int() , simunpack() , and specunpack() .
+
+
+
+
+
◆
+
+
+
+
+
+ void sbit
+ (
+ unsigned char *
+ out ,
+
+ g2int * in ,
+
+ g2int iskip ,
+
+ g2int nbits
+
+ )
+
+
+
+
+
Store bits - put arbitrary size values into a packed bit string, taking the low order bits from each value in the unpacked array.
+
Parameters
+
+ out Pointer to packed array output. Must be allocated large enough to hold output. in Pointer to unpacked array input. iskip Initial number of bits to skip. nbits Number of bits to pack.
+
+
+
Author NOAA Programmer
+
+
Definition at line 38 of file gbits.c .
+
+
References sbits() .
+
+
Referenced by compack() , g2_addfield() , g2_addgrid() , g2_addlocal() , g2_create() , g2_gribend() , misspack() , and simpack() .
+
+
+
+
+
◆
+
+
+
+
+
+ void sbits
+ (
+ unsigned char *
+ out ,
+
+ g2int * in ,
+
+ g2int iskip ,
+
+ g2int nbits ,
+
+ g2int nskip ,
+
+ g2int n
+
+ )
+
+
+
+
+
Store bits - put arbitrary size values into a packed bit string, taking the low order bits from each value in the unpacked array.
+
Parameters
+
+ out Pointer to packed array output. Must be allocated large enough to hold output. in Pointer to unpacked array input. iskip Initial number of bits to skip. nbits Number of bits to pack. nskip Additional number of bits to skip on each iteration. n Number of iterations.
+
+
+
Author NOAA Programmer
+
+
Definition at line 114 of file gbits.c .
+
+
Referenced by compack() , g2_addfield() , g2_addgrid() , jpcpack_int() , misspack() , pngpack_int() , sbit() , and simpack() .
+
+
+
+
+
NCEPLIBS-g2c: gbits.c Source File
+
+
+
+
+
+
+ NCEPLIBS-g2c
+ 1.7.0
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
Go to the documentation of this file.
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
60 g2int i, tbit, bitcnt, ibit, itmp;
+
+
62 static g2int ones[]={1, 3, 7, 15, 31, 63, 127, 255};
+
+
+
+
66 for (i = 0; i < n; i++)
+
+
+
+
+
71 nbit = nbit + nbits + nskip;
+
+
+
74 tbit = (bitcnt < (8 - ibit)) ? bitcnt : 8 - ibit;
+
75 itmp = (int)*(in + index) & ones[7 - ibit];
+
76 if (tbit != 8 - ibit) itmp >>= (8 - ibit - tbit);
+
+
78 bitcnt = bitcnt - tbit;
+
+
+
+
+
83 itmp = itmp << 8 | (int)*(in + index);
+
+
+
+
+
+
+
+
91 itmp = ( itmp << bitcnt ) |
+
92 (((
int )*(in + index) >> (8 - bitcnt)) & ones[bitcnt - 1]);
+
+
+
+
+
+
+
+
+
+
+
117 g2int i, bitcnt, tbit, ibit, itmp, imask, itmp2, itmp3;
+
+
119 static g2int ones[]={1, 3, 7, 15, 31, 63, 127, 255};
+
+
+
+
123 nbit = iskip + nbits - 1;
+
124 for (i = 0; i < n; i++)
+
+
+
+
+
+
130 nbit = nbit + nbits + nskip;
+
+
+
+
+
135 tbit = (bitcnt < (ibit+1)) ? bitcnt : ibit + 1;
+
136 imask = ones[tbit - 1] << (7 - ibit);
+
137 itmp2 = (itmp << (7 - ibit)) & imask;
+
138 itmp3 = (int)*(out + index) & (255 - imask);
+
139 out[index] = (
unsigned char)(itmp2 | itmp3);
+
140 bitcnt = bitcnt - tbit;
+
+
+
+
+
+
+
+
+
149 out[index] = (
unsigned char)(itmp & 255);
+
+
+
+
+
+
+
+
+
158 itmp2 = itmp & ones[bitcnt - 1];
+
159 itmp3 = (int)*(out + index) & (255 - ones[bitcnt - 1]);
+
160 out[index] = (
unsigned char)(itmp2 | itmp3);
+
+
+
+
+
+
Header file with internal function prototypes NCEPLIBS-g2c library.
void sbits(unsigned char *out, g2int *in, g2int iskip, g2int nbits, g2int nskip, g2int n)
Store bits - put arbitrary size values into a packed bit string, taking the low order bits from each ...
void gbit(unsigned char *in, g2int *iout, g2int iskip, g2int nbits)
Get bits - unpack bits: Extract arbitrary size values from a packed bit string, right justifying each...
int64_t g2int
Long integer type.
void gbits(unsigned char *in, g2int *iout, g2int iskip, g2int nbits, g2int nskip, g2int n)
Get bits - unpack bits: Extract arbitrary size values from a packed bit string, right justifying each...
void sbit(unsigned char *out, g2int *in, g2int iskip, g2int nbits)
Store bits - put arbitrary size values into a packed bit string, taking the low order bits from each ...
NCEPLIBS-g2c: getdim.c File Reference
+
+
+
+
+
+
+ NCEPLIBS-g2c
+ 1.7.0
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
Return the dimensions and scanning mode of a grid definition packed in GRIB2 Grid Definition Section 3 format.
+More...
+
#include <stdio.h>
+
#include <stdlib.h>
+
#include "grib2_int.h "
+
+
Go to the source code of this file.
+
+g2int getdim (unsigned char *csec3, g2int *width, g2int *height, g2int *iscan) This subroutine returns the dimensions and scanning mode of a grid definition packed in GRIB2 Grid Definition Section 3 format. More...
+
+
Return the dimensions and scanning mode of a grid definition packed in GRIB2 Grid Definition Section 3 format.
+
Author Stephen Gilbert
+
Date 2002-12-11
+
+
Definition in file getdim.c .
+
+
+
◆
+
+
+
+
+
+ g2int getdim (
+ unsigned char *
+ csec3 ,
+
+ g2int * width ,
+
+ g2int * height ,
+
+ g2int * iscan
+
+ )
+
+
+
+
+
This subroutine returns the dimensions and scanning mode of a grid definition packed in GRIB2 Grid Definition Section 3 format.
+
Parameters
+
+ csec3 Character array that contains the packed GRIB2 GDS. width x (or i) dimension of the grid. 0 if grid is not recognized. height y (or j) dimension of the grid. 0 if grid is not recognized. iscan Scanning mode (see Table 3.4 ). 0 of grid not recognized.
+
+
+
Returns Always returns 0.
+
Author Stephen Gilbert
+
Date 2002-12-11
+
+
Definition at line 29 of file getdim.c .
+
+
References g2_unpack3() .
+
+
Referenced by g2_addfield() .
+
+
+
+
+
NCEPLIBS-g2c: getdim.c Source File
+
+
+
+
+
+
+ NCEPLIBS-g2c
+ 1.7.0
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
Go to the documentation of this file.
+
+
+
+
+
+
+
+
31 g2int *igdstmpl = NULL, *list_opt = NULL;
+
+
33 g2int iofst, igdtlen, num_opt, jerr;
+
+
+
36 if (!(jerr =
g2_unpack3 (csec3, &iofst, &igds, &igdstmpl, &igdtlen,
+
37 &list_opt, &num_opt)))
+
+
+
+
+
+
+
+
+
+
47 *height = igdstmpl[8];
+
48 *iscan = igdstmpl[18];
+
+
+
+
+
+
54 *height = igdstmpl[8];
+
55 *iscan = igdstmpl[15];
+
+
+
+
+
+
61 *height = igdstmpl[8];
+
62 *iscan = igdstmpl[17];
+
+
+
+
+
+
68 *height = igdstmpl[8];
+
69 *iscan = igdstmpl[17];
+
+
+
+
+
+
+
+
+
78 *height = igdstmpl[8];
+
79 *iscan = igdstmpl[18];
+
+
+
+
+
+
85 *height = igdstmpl[8];
+
86 *iscan = igdstmpl[16];
+
+
+
+
+
+
92 *height = igdstmpl[8];
+
93 *iscan = igdstmpl[15];
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
g2int getdim(unsigned char *csec3, g2int *width, g2int *height, g2int *iscan)
This subroutine returns the dimensions and scanning mode of a grid definition packed in GRIB2 Grid De...
Header file with internal function prototypes NCEPLIBS-g2c library.
int64_t g2int
Long integer type.
g2int g2_unpack3(unsigned char *cgrib, g2int *iofst, g2int **igds, g2int **igdstmpl, g2int *mapgridlen, g2int **ideflist, g2int *idefnum)
This routine unpacks Section 3 (Grid Definition Section) as defined in GRIB Edition 2.
NCEPLIBS-g2c: getpoly.c File Reference
+
+
+
+
+
+
+ NCEPLIBS-g2c
+ 1.7.0
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
Return the J, K, and M pentagonal resolution parameters specified in a GRIB Grid Definition Section used spherical harmonic coefficients using GDT 5.50 through 5.53.
+More...
+
#include <stdio.h>
+
#include <stdlib.h>
+
#include "grib2_int.h "
+
+
Go to the source code of this file.
+
+g2int getpoly (unsigned char *csec3, g2int *jj, g2int *kk, g2int *mm) This subroutine returns the J, K, and M pentagonal resolution parameters specified in a GRIB Grid Definition Section (GDS) used spherical harmonic coefficients using GDT 5.50 through 5.53. More...
+
+
Return the J, K, and M pentagonal resolution parameters specified in a GRIB Grid Definition Section used spherical harmonic coefficients using GDT 5.50 through 5.53.
+
Author Stephen Gilbert
+
Date 2002-12-11
+
+
Definition in file getpoly.c .
+
+
+
◆
+
+
+
+
+
+ g2int getpoly (
+ unsigned char *
+ csec3 ,
+
+ g2int * jj ,
+
+ g2int * kk ,
+
+ g2int * mm
+
+ )
+
+
+
+
+
This subroutine returns the J, K, and M pentagonal resolution parameters specified in a GRIB Grid Definition Section (GDS) used spherical harmonic coefficients using GDT 5.50 through 5.53.
+
If 51 - complex data spectral packing is used as the data representation template number (see Table 5.0 ), then the Grid Definition Template Number in section 3 should be one of:
+50: Spherical Harmonic Coefficients (See Template 3.50)
+51: Rotated Spherical Harmonic Coefficients (See Template 3.51)
+52: Stretched Spherical Harmonic Coefficients (See Template 3.52)
+53: Rotated and Stretched Spherical Harmonic Coefficients (See Template 3.53)
+
+
Parameters
+
+ csec3 Character array that contains the packed GRIB2 GDS. jj J pentagonal resolution parameter. kk K pentagonal resolution parameter. mm M pentagonal resolution parameter.
+
+
+
Returns always returns 0.
+
Note Returns jj, kk, and mm set to zero, if grid template not recognized.
+
Author Stephen Gilbert
+
Date 2002-12-11
+
+
Definition at line 40 of file getpoly.c .
+
+
References g2_unpack3() .
+
+
Referenced by g2_addfield() .
+
+
+
+
+
NCEPLIBS-g2c: getpoly.c Source File
+
+
+
+
+
+
+ NCEPLIBS-g2c
+ 1.7.0
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
Go to the documentation of this file.
+
+
+
+
+
+
+
+
+
43 g2int *igdstmpl, *list_opt;
+
+
45 g2int iofst, igdtlen, num_opt;
+
+
+
48 if (!
g2_unpack3 (csec3, &iofst, &igds, &igdstmpl, &igdtlen,
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
Header file with internal function prototypes NCEPLIBS-g2c library.
int64_t g2int
Long integer type.
g2int getpoly(unsigned char *csec3, g2int *jj, g2int *kk, g2int *mm)
This subroutine returns the J, K, and M pentagonal resolution parameters specified in a GRIB Grid Def...
g2int g2_unpack3(unsigned char *cgrib, g2int *iofst, g2int **igds, g2int **igdstmpl, g2int *mapgridlen, g2int **ideflist, g2int *idefnum)
This routine unpacks Section 3 (Grid Definition Section) as defined in GRIB Edition 2.
NCEPLIBS-g2c: Globals
+
+
+
+
+
+
+ NCEPLIBS-g2c
+ 1.7.0
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
Here is a list of all documented functions, variables, defines, enums, and typedefs with links to the documentation:
+
+
+
+
NCEPLIBS-g2c: Globals
+
+
+
+
+
+
+ NCEPLIBS-g2c
+ 1.7.0
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
NCEPLIBS-g2c: Globals
+
+
+
+
+
+
+ NCEPLIBS-g2c
+ 1.7.0
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+g2_addfield()
+: g2_addfield.c
+, grib2.h
+
+g2_addgrid()
+: grib2.h
+, g2_addgrid.c
+
+g2_addlocal()
+: g2_addlocal.c
+, grib2.h
+
+g2_create()
+: grib2.h
+, g2_create.c
+
+g2_free()
+: g2_free.c
+, grib2.h
+
+g2_getfld()
+: g2_getfld.c
+, grib2.h
+
+g2_gribend()
+: g2_gribend.c
+, grib2.h
+
+g2_info()
+: grib2.h
+, g2_info.c
+
+g2_miss()
+: g2_miss.c
+
+g2_unpack1()
+: g2_unpack1.c
+, grib2.h
+
+g2_unpack2()
+: g2_unpack2.c
+, grib2.h
+
+g2_unpack3()
+: g2_unpack3.c
+, grib2.h
+
+g2_unpack4()
+: g2_unpack4.c
+, grib2.h
+
+g2_unpack5()
+: g2_unpack5.c
+, grib2.h
+
+g2_unpack6()
+: g2_unpack6.c
+, grib2.h
+
+g2_unpack7()
+: grib2.h
+, g2_unpack7.c
+
+g2c_check_msg()
+: grib2_int.h
+, util.c
+
+g2c_set_log_level()
+: util.c
+, grib2.h
+
+gbit()
+: grib2_int.h
+, gbits.c
+
+gbits()
+: grib2_int.h
+, gbits.c
+
+getdim()
+: getdim.c
+, grib2_int.h
+
+getdrsindex()
+: drstemplates.c
+
+getdrstemplate()
+: drstemplates.c
+, grib2_int.h
+
+getgridindex()
+: gridtemplates.c
+
+getgridtemplate()
+: gridtemplates.c
+, grib2_int.h
+
+getpdsindex()
+: pdstemplates.c
+
+getpdstemplate()
+: grib2_int.h
+, pdstemplates.c
+
+getpoly()
+: getpoly.c
+, grib2_int.h
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
NCEPLIBS-g2c: Globals
+
+
+
+
+
+
+ NCEPLIBS-g2c
+ 1.7.0
+
+
+
+
+
+
+
+
+
+
+
+
+
+
NCEPLIBS-g2c: Globals
+
+
+
+
+
+
+ NCEPLIBS-g2c
+ 1.7.0
+
+
+
+
+
+
+
+
+
+
+
+
+
+
NCEPLIBS-g2c: grib2.h File Reference
+
+
+
+
+
+
+ NCEPLIBS-g2c
+ 1.7.0
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
Header file for NCEPLIBS-g2c library.
+More...
+
#include <stdio.h>#include <stdint.h>
+
Go to the source code of this file.
+
+#define G2_ADD_MSG_COMPLETE -2 GRIB message already complete. More... #define G2_ADD_MSG_INIT -1 GRIB message was not initialized - call g2_create() first. More... #define G2_ADDFIELD_BAD_BITMAP -8 In g2_addfield() no bitmap in the GRIB message. More... #define G2_ADDFIELD_BAD_DRT -7 In g2_addfield() unsupported Data Representationi Template. More... #define G2_ADDFIELD_BAD_GDS -6 In g2_addfield() section 3 (GDS) not previously defined in message. More... #define G2_ADDFIELD_BAD_GDT -9 In g2_addfield() GDT of one of 5.50 through 5.53 required when using DRT 5.51. More... #define G2_ADDFIELD_BAD_PDT -5 In g2_addfield() could not find requested Product Definition Template. More... #define G2_ADDFIELD_ERR -10 In g2_addfield() error packing data field. More... #define G2_ADDGRID_BAD_GDT -5 In g2_addgrid() Could not find requested Grid Definition Template. More... #define G2_BAD_SEC -4 Previous Section was unexpected. More... #define G2_BAD_SEC_COUNTS -3 Sum of Section byte counts doesn't add to total byte count. More... #define G2_CREATE_GRIB_VERSION -1 Wrong GRIB version for g2_create() , must be 2. More... #define G2_GETFLD_BAD_END 7 g2_getfld() didn't find "7777" at end of message. More... #define G2_GETFLD_BAD_SEC1 15 Error in g2_getfld() unpacking section 1. More... #define G2_GETFLD_BAD_SEC2 16 Error in g2_getfld() unpacking section 2. More... #define G2_GETFLD_BAD_SEC3 10 Error in g2_getfld() unpacking section 3. More... #define G2_GETFLD_BAD_SEC4 11 Error in g2_getfld() unpacking section 4. More... #define G2_GETFLD_BAD_SEC5 12 Error in g2_getfld() unpacking section 5. More... #define G2_GETFLD_BAD_SEC6 13 Error in g2_getfld() unpacking section 6. More... #define G2_GETFLD_BAD_SEC7 14 Error in g2_getfld() unpacking section 7. More... #define G2_GETFLD_GRIB_VERSION 2 Wrong GRIB version for g2_getfld() , must be 2. More... #define G2_GETFLD_INVAL 3 g2_getfld() data field request number was not positive. More... #define G2_GETFLD_INVAL_SEC 8 g2_getfld() encountered unrecognized section. More... #define G2_GETFLD_NO_BITMAP 17 In g2_getfld() previous bitmap specified, yet none exists. More... #define G2_GETFLD_NO_DRT 9 In g2_getfld() , Data Representation Template not implemented. More... #define G2_GETFLD_NO_GRIB 1 g2_getfld() can't find beginning characters "GRIB". More... #define G2_GETFLD_WRONG_END 4 g2_info() found "7777" not where expected. More... #define G2_GETFLD_WRONG_NFLDS 6 In g2_getfld() message did not contain the requested number of data fields. More... #define G2_GRIBEND_MSG_INIT -1 In g2_gribend() GRIB message was not initialized - call g2_create() first. More... #define G2_INFO_BAD_END 5 g2_info() didn't find "7777" at end of message. More... #define G2_INFO_GRIB_VERSION 2 Wrong GRIB version for g2_info() , must be 2. More... #define G2_INFO_INVAL_SEC 6 g2_info() found invalid section number. More... #define G2_INFO_NO_GRIB 1 g2_info() can't find beginning characters "GRIB". More... #define G2_INFO_NO_SEC1 3 g2_info() can't find section 1. More... #define G2_INFO_WRONG_END 4 g2_info() found "7777" not where expected. More... #define G2_JASPER_DECODE -3 In dec_jpeg2000() error decoding image with jasper. More... #define G2_JASPER_DECODE_COLOR -5 In dec_jpeg2000() decoded image had multiple color components. More... #define G2_JASPER_ENCODE -3 In enc_jpeg2000() error encoding image with jasper. More... #define G2_JASPER_INIT -2 In enc_jpeg2000() /dec_jpeg2000() error initializing jasper library. More... #define G2_JPCUNPACK_MEM 1 In jpcunpack() or other unpack function: out of memory. More... #define G2_JPEG2000_ENABLED 1 Decoding/encoding JPEG2000 is enabled. More... #define G2_NO_ERROR 0 Function succeeded. More... #define G2_PNG_ENABLED 1 Decoding/encoding PNG is enabled. More... #define G2_SPECUNPACK_TYPE -3 In specunpack() Can't handle 64 or 128 bit floats. More... #define G2_UNPACK3_BAD_GDT 5 In g2_unpack3() , undefined Grid Definition Template. More... #define G2_UNPACK4_BAD_PDT 5 In g2_unpack4() , undefined Product Definition Template. More... #define G2_UNPACK5_BAD_DRT 7 In g2_unpack5() , undefined Data Representation Template. More... #define G2_UNPACK6_BAD_BITMAP 4 In g2_unpack6() , unrecognized pre-defined bit-map. More... #define G2_UNPACK7_BAD_DRT 4 In g2_unpack7() , unrecognized Data Representation Template. More... #define G2_UNPACK7_CORRUPT_SEC 7 In g2_unpack7() , corrupt section 7. More... #define G2_UNPACK7_WRONG_GDT 5 In g2_unpack7() , need one of GDT 3.50 through 3.53 to decode DRT 5.51. More... #define G2_UNPACK_BAD_SEC 2 Bad section number in unpacking function. More... #define G2_UNPACK_NO_MEM 6 Error allocating memory in unpack function. More... #define G2_VERSION "1.7.0" Current version of NCEPLIBS-g2c library. More... #define G2C_MSG_COMPLETE -51 GRIB message already complete. More... #define G2C_NO_ERROR 0 No error. More... #define G2C_NOT_GRIB -50 GRIB header not found. More...
+g2int g2_addfield (unsigned char *cgrib, g2int ipdsnum, g2int *ipdstmpl, float *coordlist, g2int numcoord, g2int idrsnum, g2int *idrstmpl, float *fld, g2int ngrdpts, g2int ibmap, g2int *bmap) This routine packs up Sections 4 through 7 for a given field and adds them to a GRIB2 message. More... g2int g2_addgrid (unsigned char *cgrib, g2int *igds, g2int *igdstmpl, g2int *ideflist, g2int idefnum) This routine packs up a Grid Definition Section (Section 3) and adds it to a GRIB2 message. More... g2int g2_addlocal (unsigned char *cgrib, unsigned char *csec2, g2int lcsec2) This routine adds a Local Use Section (Section 2) to a GRIB2 message. More... g2int g2_create (unsigned char *cgrib, g2int *listsec0, g2int *listsec1) This routine initializes a new GRIB2 message and packs GRIB2 Section 0 (Indicator Section) and Section 1 (Identification Section) . More... void g2_free (gribfield *gfld) This routine frees up memory that was allocated for struct gribfield. More... g2int g2_getfld (unsigned char *cgrib, g2int ifldnum, g2int unpack, g2int expand, gribfield **gfld) This subroutine returns all the metadata, template values, bit-map (if applicable), and the unpacked data for a given data field. More... g2int g2_gribend (unsigned char *cgrib) This routine finalizes a GRIB2 message after all grids and fields have been added. More... g2int g2_info (unsigned char *cgrib, g2int *listsec0, g2int *listsec1, g2int *numfields, g2int *numlocal) This subroutine searches through a GRIB2 message and returns the number of gridded fields found in the message and the number (and maximum size) of Local Use Sections. More... g2int g2_unpack1 (unsigned char *cgrib, g2int *iofst, g2int **ids, g2int *idslen) This subroutine unpacks Section 1 - Identification Section as defined in GRIB Edition 2. More... g2int g2_unpack2 (unsigned char *cgrib, g2int *iofst, g2int *lencsec2, unsigned char **csec2) This subroutine unpacks Section 2 (Local Use Section) as defined in GRIB Edition 2. More... g2int g2_unpack3 (unsigned char *cgrib, g2int *iofst, g2int **igds, g2int **igdstmpl, g2int *mapgridlen, g2int **ideflist, g2int *idefnum) This routine unpacks Section 3 (Grid Definition Section) as defined in GRIB Edition 2. More... g2int g2_unpack4 (unsigned char *cgrib, g2int *iofst, g2int *ipdsnum, g2int **ipdstmpl, g2int *mappdslen, float **coordlist, g2int *numcoord) This subroutine unpacks Section 4 (Product Definition Section) as defined in GRIB Edition 2. More... g2int g2_unpack5 (unsigned char *cgrib, g2int *iofst, g2int *ndpts, g2int *idrsnum, g2int **idrstmpl, g2int *mapdrslen) This subroutine unpacks Section 5 (Data Representation Section) as defined in GRIB Edition 2. More... g2int g2_unpack6 (unsigned char *cgrib, g2int *iofst, g2int ngpts, g2int *ibmap, g2int **bmap) This subroutine unpacks Section 6 (Bit-Map Section) as defined in GRIB Edition 2. More... g2int g2_unpack7 (unsigned char *cgrib, g2int *iofst, g2int igdsnum, g2int *igdstmpl, g2int idrsnum, g2int *idrstmpl, g2int ndpts, float **fld) This subroutine unpacks Section 7 (Data Section) as defined in GRIB Edition 2. More... int g2c_set_log_level (int new_level) Use this to set the global log level. More... void jpcpack (float *fld, g2int width, g2int height, g2int *idrstmpl, unsigned char *cpack, g2int *lcpack) This subroutine packs up a data field into a JPEG2000 code stream. More... void jpcpackd (double *fld, g2int width, g2int height, g2int *idrstmpl, unsigned char *cpack, g2int *lcpack) This subroutine packs up a data field into a JPEG2000 code stream. More... g2int jpcunpack (unsigned char *cpack, g2int len, g2int *idrstmpl, g2int ndpts, float *fld) Unpack JPEG2000 compressed data into an array of floats, using info from the GRIB2 Data Representation Template 5.40 or 5.40000. More... g2int jpcunpackd (unsigned char *cpack, g2int len, g2int *idrstmpl, g2int ndpts, double *fld) Unpack JPEG2000 compressed data into an array of doubles, using info from the GRIB2 Data Representation Template 5.40 or 5.40000. More... void pngpack (float *fld, g2int width, g2int height, g2int *idrstmpl, unsigned char *cpack, g2int *lcpack) This subroutine packs up a float data field into PNG image format. More... void pngpackd (double *fld, g2int width, g2int height, g2int *idrstmpl, unsigned char *cpack, g2int *lcpack) This subroutine packs up a double data field into PNG image format. More... g2int pngunpack (unsigned char *cpack, g2int len, g2int *idrstmpl, g2int ndpts, float *fld) This subroutine unpacks a data field that was packed into a PNG image format using info from the GRIB2 Data Representation Template 5.41 or 5.40010. More... g2int pngunpackd (unsigned char *cpack, g2int len, g2int *idrstmpl, g2int ndpts, double *fld) This subroutine unpacks a data field that was packed into a PNG image format using info from the GRIB2 Data Representation Template 5.41 or 5.40010. More... void seekgb (FILE *lugb, g2int iseek, g2int mseek, g2int *lskip, g2int *lgrib) This subprogram searches a file for the next GRIB Message. More...
+
+
Header file for NCEPLIBS-g2c library.
+
+
+
+Date Programmer Comments
+
+2002-10-25 Gilbert Initial
+
+2009-01-14 Vuong Changed struct template to gtemplate
+
+2021-11-9 Ed Hartnett Moved many prototypes to new internal header grib2_int.h .
+
+2022-04-15 Ed Hartnett Added error codes related to JPEG.
+
+2022-08-15 Ed Hartnett Added compression functions for double.
+
+
Author Stephen Gilbert
+
Date 2002-10-25
+
Author Ed Hartnett
+
+
Definition in file grib2.h .
+
+
+
◆
+
+
+
+
Struct for GRIB field.
+
+
Definition at line 41 of file grib2.h .
+
+Data Fields
+g2int *
+
+bmap
+
+Integer array containing decoded bitmap, if ibmap=0 or ibap=254. Otherwise NULL.
+
+
+
+coord_list
+
+Array containing floating point values intended to document the vertical discretisation associated to model data on hybrid coordinate vertical levels (part of Section 4).
+g2int
+
+discipline
+
+Message Discipline (see Table 0.0 ).
+g2int
+
+expanded
+
+Logical value indicating whether the data field was expanded to the grid in the case where a bit-map is present. If true, the data points in fld match the grid points and zeros were inserted at grid points where data was bit-mapped out. If false, the data values in ld were not expanded to the grid and are just a consecutive array of data points corresponding to each value of "1" in bmap.
+
+
+
+fld
+
+Array of ndpts unpacked data points.
+g2int
+
+griddef
+
+Source of grid definition (see Table 3.0 ).
+0 Specified in Table 3.1 .
+1 Predetermined grid Defined by originating centre.
+
+
+
+
+g2int
+
+ibmap
+
+Bitmap indicator (see Table 6.0 ).
+0 bitmap applies and is included in Section 6.
+1-253 = Predefined bitmap applies
+254 = Previously defined bitmap applies to this field
+255 = Bit map does not apply to this product.
+
+
+g2int
+
+idrtlen
+
+Number of elements in idrtmpl.
+g2int *
+
+idrtmpl
+
+Contains the data values for the Data Representation Template specified by idrtnum.
+g2int
+
+idrtnum
+
+Data Representation Template Number (see Table 5.0 ).
+g2int *
+
+idsect
+
+Contains the entries in the Identification Section (Section 1) .
+idsect[0] Identification of originating Centre (see Table 0 ). 7 is the identification for the US National Weather Service.
+idsect[1] Identification of originating Sub-centre. (See Table C ).
+idsect[2] GRIB Master Tables Version Number (see Table 1.0 ).
+0 Experimental
+1 Initial operational version number
+
+
+idsect[3] GRIB Local Tables Version Number (see Table 1.1 ).
+0 Local tables not used
+1-254 Number of local tables version used
+
+
+idsect[4] Significance of Reference Time (See Table 1.2 ).
+0 Analysis
+1 Start of forecast
+2 Verifying time of forecast
+3 Observation time
+
+
+idsect[5] Year (4 digits)
+idsect[6] Month
+idsect[7) Day
+idsect[8] Hour
+idsect[9] Minute
+idsect[10] Second
+idsect[11] Production status of processed data (see Table 1.3 ).
+0 Operational products
+1 Operational test products
+2 Research products
+3 Re-analysis products
+
+
+idsect[12] Type of processed data (see Table 1.4 ).
+0 Analysis products
+1 Forecast products
+2 Analysis and forecast products
+3 Control forecast products
+4 Perturbed forecast products
+5 Control and perturbed forecast products
+6 Processed satellite observations
+7 Processed radar observations
+
+
+
+
+g2int
+
+idsectlen
+
+Number of elements in idsect.
+g2int
+
+ifldnum
+
+Field number within GRIB message.
+g2int
+
+igdtlen
+
+Number of elements in igdtmpl - i.e. number of entries in Grid Defintion Template.
+
+g2int *
+
+igdtmpl
+
+Contains the data values for the Grid Definition Template specified by igdtnum.
+g2int
+
+igdtnum
+
+Grid Definition Template Number (See Table 3.1 ).
+g2int
+
+interp_opt
+
+Interpretation of list for optional points definition. (See Table 3.11 ).
+
+g2int
+
+ipdtlen
+
+Number of elements in ipdtmpl - i.e. number of entries in Product Defintion Template.
+
+g2int *
+
+ipdtmpl
+
+Contains the data values for the Product Definition Template specified by ipdtnum.
+g2int
+
+ipdtnum
+
+Product Definition Template Number (see Table 4.0 ).
+g2int *
+
+list_opt
+
+(Used if numoct_opt .ne. 0) This array contains the number of grid points contained in each row (or column) (part of Section 3). NULL if numoct_opt = 0.
+
+
+
+local
+
+Pointer to character array containing contents of Local Section 2, if included.
+g2int
+
+locallen
+
+Length of array local.
+g2int
+
+ndpts
+
+Number of data points unpacked and returned.
+g2int
+
+ngrdpts
+
+Number of grid points in the defined grid.
+g2int
+
+num_coord
+
+Number of values in array coord_list.
+g2int
+
+num_opt
+
+(Used if numoct_opt .ne. 0) The number of entries in array ideflist - i.e. number of rows (or columns) for which optional grid points are defined. This value is set to zero, if numoct_opt=0.
+
+g2int
+
+numoct_opt
+
+Number of octets needed for each additional grid points definition. Used to define number of points in each row (or column) for non-regular grids. = 0, if using regular grid.
+
+g2int
+
+unpacked
+
+Logical value indicating whether the bitmap and data values were unpacked. If false, bmap and fld pointers are NULL.
+
+g2int
+
+version
+
+GRIB edition number (2).
+
+
+
+
+
+
◆
+
+
+
+
+
+ #define G2_ADD_MSG_COMPLETE -2
+
+
+
+
+
GRIB message already complete.
+
Cannot add new section.
+
+
Definition at line 311 of file grib2.h .
+
+
+
+
+
◆
+
+
+
+
+
+ #define G2_ADD_MSG_INIT -1
+
+
+
+
+
GRIB message was not initialized - call g2_create() first.
+
+
Definition at line 310 of file grib2.h .
+
+
+
+
+
◆
+
+
+
+
+
+ #define G2_ADDFIELD_BAD_BITMAP -8
+
+
+
+
+
+
◆
+
+
+
+
+
+ #define G2_ADDFIELD_BAD_DRT -7
+
+
+
+
+
+
◆
+
+
+
+
+
+ #define G2_ADDFIELD_BAD_GDS -6
+
+
+
+
+
In g2_addfield() section 3 (GDS) not previously defined in message.
+
+
Definition at line 314 of file grib2.h .
+
+
+
+
+
◆
+
+
+
+
+
+ #define G2_ADDFIELD_BAD_GDT -9
+
+
+
+
+
In g2_addfield() GDT of one of 5.50 through 5.53 required when using DRT 5.51.
+
+
Definition at line 317 of file grib2.h .
+
+
+
+
+
◆
+
+
+
+
+
+ #define G2_ADDFIELD_BAD_PDT -5
+
+
+
+
+
In g2_addfield() could not find requested Product Definition Template.
+
+
Definition at line 313 of file grib2.h .
+
+
+
+
+
◆
+
+
+
+
+
+ #define G2_ADDFIELD_ERR -10
+
+
+
+
+
+
◆
+
+
+
+
+
+ #define G2_ADDGRID_BAD_GDT -5
+
+
+
+
+
In g2_addgrid() Could not find requested Grid Definition Template.
+
+
Definition at line 319 of file grib2.h .
+
+
+
+
+
◆
+
+
+
+
+
+ #define G2_BAD_SEC -4
+
+
+
+
+
Previous Section was unexpected.
+
+
Definition at line 300 of file grib2.h .
+
+
+
+
+
◆
+
+
+
+
+
+ #define G2_BAD_SEC_COUNTS -3
+
+
+
+
+
Sum of Section byte counts doesn't add to total byte count.
+
+
Definition at line 312 of file grib2.h .
+
+
+
+
+
◆
+
+
+
+
+
+ #define G2_CREATE_GRIB_VERSION -1
+
+
+
+
+
+
◆
+
+
+
+
+
+ #define G2_GETFLD_BAD_END 7
+
+
+
+
+
+
◆
+
+
+
+
+
+ #define G2_GETFLD_BAD_SEC1 15
+
+
+
+
+
+
◆
+
+
+
+
+
+ #define G2_GETFLD_BAD_SEC2 16
+
+
+
+
+
+
◆
+
+
+
+
+
+ #define G2_GETFLD_BAD_SEC3 10
+
+
+
+
+
+
◆
+
+
+
+
+
+ #define G2_GETFLD_BAD_SEC4 11
+
+
+
+
+
+
◆
+
+
+
+
+
+ #define G2_GETFLD_BAD_SEC5 12
+
+
+
+
+
+
◆
+
+
+
+
+
+ #define G2_GETFLD_BAD_SEC6 13
+
+
+
+
+
+
◆
+
+
+
+
+
+ #define G2_GETFLD_BAD_SEC7 14
+
+
+
+
+
+
◆
+
+
+
+
+
+ #define G2_GETFLD_GRIB_VERSION 2
+
+
+
+
+
+
◆
+
+
+
+
+
+ #define G2_GETFLD_INVAL 3
+
+
+
+
+
g2_getfld() data field request number was not positive.
+
+
Definition at line 285 of file grib2.h .
+
+
+
+
+
◆
+
+
+
+
+
+ #define G2_GETFLD_INVAL_SEC 8
+
+
+
+
+
+
◆
+
+
+
+
+
+ #define G2_GETFLD_NO_BITMAP 17
+
+
+
+
+
In g2_getfld() previous bitmap specified, yet none exists.
+
+
Definition at line 298 of file grib2.h .
+
+
+
+
+
◆
+
+
+
+
+
+ #define G2_GETFLD_NO_DRT 9
+
+
+
+
+
In g2_getfld() , Data Representation Template not implemented.
+
+
Definition at line 290 of file grib2.h .
+
+
+
+
+
◆
+
+
+
+
+
+ #define G2_GETFLD_NO_GRIB 1
+
+
+
+
+
+
◆
+
+
+
+
+
+ #define G2_GETFLD_WRONG_END 4
+
+
+
+
+
+
◆
+
+
+
+
+
+ #define G2_GETFLD_WRONG_NFLDS 6
+
+
+
+
+
In g2_getfld() message did not contain the requested number of data fields.
+
+
Definition at line 287 of file grib2.h .
+
+
+
+
+
◆
+
+
+
+
+
+ #define G2_GRIBEND_MSG_INIT -1
+
+
+
+
+
+
◆
+
+
+
+
+
+ #define G2_INFO_BAD_END 5
+
+
+
+
+
g2_info() didn't find "7777" at end of message.
+
+
Definition at line 281 of file grib2.h .
+
+
+
+
+
◆
+
+
+
+
+
+ #define G2_INFO_GRIB_VERSION 2
+
+
+
+
+
+
◆
+
+
+
+
+
+ #define G2_INFO_INVAL_SEC 6
+
+
+
+
+
+
◆
+
+
+
+
+
+ #define G2_INFO_NO_GRIB 1
+
+
+
+
+
g2_info() can't find beginning characters "GRIB".
+
+
Definition at line 277 of file grib2.h .
+
+
+
+
+
◆
+
+
+
+
+
+ #define G2_INFO_NO_SEC1 3
+
+
+
+
+
+
◆
+
+
+
+
+
+ #define G2_INFO_WRONG_END 4
+
+
+
+
+
+
◆
+
+
+
+
+
+ #define G2_JASPER_DECODE -3
+
+
+
+
+
+
◆
+
+
+
+
+
+ #define G2_JASPER_DECODE_COLOR -5
+
+
+
+
+
+
◆
+
+
+
+
+
+ #define G2_JASPER_ENCODE -3
+
+
+
+
+
+
◆
+
+
+
+
+
+ #define G2_JASPER_INIT -2
+
+
+
+
+
+
◆
+
+
+
+
+
+ #define G2_JPCUNPACK_MEM 1
+
+
+
+
+
In jpcunpack() or other unpack function: out of memory.
+
+
Definition at line 320 of file grib2.h .
+
+
+
+
+
◆
+
+
+
+
+
+ #define G2_JPEG2000_ENABLED 1
+
+
+
+
+
Decoding/encoding JPEG2000 is enabled.
+
+
Definition at line 25 of file grib2.h .
+
+
+
+
+
◆
+
+
+
+
+
+ #define G2_NO_ERROR 0
+
+
+
+
+
Function succeeded.
+
+
Definition at line 275 of file grib2.h .
+
+
+
+
+
◆
+
+
+
+
+
+ #define G2_PNG_ENABLED 1
+
+
+
+
+
Decoding/encoding PNG is enabled.
+
+
Definition at line 24 of file grib2.h .
+
+
+
+
+
◆
+
+
+
+
+
+ #define G2_SPECUNPACK_TYPE -3
+
+
+
+
+
+
◆
+
+
+
+
+
+ #define G2_UNPACK3_BAD_GDT 5
+
+
+
+
+
+
◆
+
+
+
+
+
+ #define G2_UNPACK4_BAD_PDT 5
+
+
+
+
+
+
◆
+
+
+
+
+
+ #define G2_UNPACK5_BAD_DRT 7
+
+
+
+
+
+
◆
+
+
+
+
+
+ #define G2_UNPACK6_BAD_BITMAP 4
+
+
+
+
+
+
◆
+
+
+
+
+
+ #define G2_UNPACK7_BAD_DRT 4
+
+
+
+
+
+
◆
+
+
+
+
+
+ #define G2_UNPACK7_CORRUPT_SEC 7
+
+
+
+
+
+
◆
+
+
+
+
+
+ #define G2_UNPACK7_WRONG_GDT 5
+
+
+
+
+
In g2_unpack7() , need one of GDT 3.50 through 3.53 to decode DRT 5.51.
+
+
Definition at line 308 of file grib2.h .
+
+
+
+
+
◆
+
+
+
+
+
+ #define G2_UNPACK_BAD_SEC 2
+
+
+
+
+
Bad section number in unpacking function.
+
+
Definition at line 301 of file grib2.h .
+
+
+
+
+
◆
+
+
+
+
+
+ #define G2_UNPACK_NO_MEM 6
+
+
+
+
+
Error allocating memory in unpack function.
+
+
Definition at line 302 of file grib2.h .
+
+
+
+
+
◆
+
+
+
+
+
+ #define G2_VERSION "1.7.0"
+
+
+
+
+
Current version of NCEPLIBS-g2c library.
+
+
Definition at line 22 of file grib2.h .
+
+
+
+
+
◆
+
+
+
+
+
+ #define G2C_MSG_COMPLETE -51
+
+
+
+
+
GRIB message already complete.
+
+
Definition at line 330 of file grib2.h .
+
+
+
+
+
◆
+
+
+
+
+
+ #define G2C_NO_ERROR 0
+
+
+
+
+
No error.
+
+
Definition at line 328 of file grib2.h .
+
+
+
+
+
◆
+
+
+
+
+
+ #define G2C_NOT_GRIB -50
+
+
+
+
+
GRIB header not found.
+
+
Definition at line 329 of file grib2.h .
+
+
+
+
+
+
◆
+
+
+
+
+
Float type.
+
This typedef is provided for backward compatibility and is not used by the library any more. Use float in new code.
+
+
Definition at line 36 of file grib2.h .
+
+
+
+
+
◆
+
+
+
+
+
+ typedef int64_t g2int
+
+
+
+
+
Long integer type.
+
+
Definition at line 28 of file grib2.h .
+
+
+
+
+
◆
+
+
+
+
+
+ typedef uint64_t g2intu
+
+
+
+
+
Unsigned long integer type.
+
This typedef is provided for backward compatibility and is not used by the library any more.
+
+
Definition at line 32 of file grib2.h .
+
+
+
+
+
◆
+
+
+
+
+
Struct for GRIB field.
+
+
Definition at line 217 of file grib2.h .
+
+
+
+
+
+
◆
+
+
+
+
+
+ g2int g2_addfield (
+ unsigned char *
+ cgrib ,
+
+ g2int ipdsnum ,
+
+ g2int * ipdstmpl ,
+
+ float *
+ coordlist ,
+
+ g2int numcoord ,
+
+ g2int idrsnum ,
+
+ g2int * idrstmpl ,
+
+ float *
+ fld ,
+
+ g2int ngrdpts ,
+
+ g2int ibmap ,
+
+ g2int * bmap
+
+ )
+
+
+
+
+
This routine packs up Sections 4 through 7 for a given field and adds them to a GRIB2 message.
+
They are Product Definition Section , Data Representation Section , Bit-Map Section and Data Section , respectively.
+
This routine is used with routines g2_create() , g2_addlocal() , g2_addgrid() , and g2_gribend() to create a complete GRIB2 message. Function g2_create() must be called first to initialize a new GRIB2 message. Function g2_addgrid() must be called after g2_create() and before this routine to add the appropriate grid description to the GRIB2 message. A call to g2_gribend() is required to complete GRIB2 message after all fields have been added.
+
+
+
+Date Programmer Comments
+
+2002-11-05 Gilbert Initial
+
+2002-12-23 Gilbert Added complex spherical harmonic packing
+
+2003-08-27 Gilbert Added support for new templates using PNG and JPEG2000 algorithms/templates.
+
+2004-11-29 Gilbert JPEG2000 now can use WMO Template 5.40 PNG can use WMO Template 5.41. Added packing algorithm check.
+
+2005-05-10 Gilbert Imposed minimum size on cpack.
+
+2009-01-14 Vuong Changed structure name template to gtemplate
+
+
Parameters
+
+ cgrib Char array that contains the GRIB2 message to which sections 4 through 7 should be added. Must be allocated large enough to store the entire GRIB2 message. ipdsnum Product Definition Template Number (see Code Table 4.0 ). ipdstmpl Contains the data values for the Product Definition Template specified by ipdsnum. coordlist Array containg floating point values intended to document the vertical discretisation associated to model data on hybrid coordinate vertical levels. numcoord number of values in array coordlist. idrsnum Data Representation Template Number (see Code Table 5.0 ). idrstmpl The data values for the Data Representation Template specified by idrsnum. Note that some values in this template (eg. reference values, number of bits, etc...) may be changed by the data packing algorithms. Use this to specify scaling factors and order of spatial differencing, if desired. fld Array of data points to pack. ngrdpts Number of data points in grid. i.e. size of fld and bmap. ibmap Bitmap indicator (see Code Table 6.0 )
+0 = bitmap applies and is included in Section 6.
+1-253 = Predefined bitmap applies.
+254 = Previously defined bitmap applies to this field.
+255 = Bit map does not apply to this product.
+
+ bmap Integer array containing bitmap to be added (if ibmap = 0).
+
+
+
Returns
+
+
Note Note that the Sections 4 through 7 can only follow Section 3 or Section 7 in a GRIB2 message.
+
Author Stephen Gilbert
+
Date 2002-11-05
+
+
Definition at line 98 of file g2_addfield.c .
+
+
References cmplxpack() , gtemplate::ext , gtemplate::extlen , extpdstemplate() , G2_ADD_MSG_COMPLETE , G2_ADD_MSG_INIT , G2_ADDFIELD_BAD_BITMAP , G2_ADDFIELD_BAD_DRT , G2_ADDFIELD_BAD_GDS , G2_ADDFIELD_BAD_GDT , G2_ADDFIELD_BAD_PDT , G2_ADDFIELD_ERR , G2_BAD_SEC , G2_BAD_SEC_COUNTS , g2c_check_msg() , G2C_MSG_COMPLETE , G2C_NOT_GRIB , gbit() , getdim() , getdrstemplate() , getpdstemplate() , getpoly() , jpcpack() , gtemplate::map , gtemplate::maplen , mkieee() , gtemplate::needext , pngpack() , sbit() , sbits() , simpack() , and specpack() .
+
+
+
+
+
◆
+
+
+
+
+
+ g2int g2_addgrid (
+ unsigned char *
+ cgrib ,
+
+ g2int * igds ,
+
+ g2int * igdstmpl ,
+
+ g2int * ideflist ,
+
+ g2int idefnum
+
+ )
+
+
+
+
+
This routine packs up a Grid Definition Section (Section 3) and adds it to a GRIB2 message.
+
It is used with routines g2_create() , g2_addlocal() , g2_addfield() , and g2_gribend() to create a complete GRIB2 message. g2_create() must be called first to initialize a new GRIB2 message.
+
+
+
+Date Programmer Comments
+
+2002-11-01 Gilbert Initial.
+
+2009-01-14 Vuong Changed structure name template to gtemplate
+
+
Parameters
+
+ cgrib Char array that contains the GRIB2 message to which section should be added. Must be allocated large enough to store the entire GRIB2 message. igds Contains information needed for GRIB Grid Definition Section 3. Must be dimensioned >= 5.
+igds[0] Source of grid definition (see Code Table 3.0 ).
+igds[1] Number of grid points in the defined grid.
+igds[2] Number of octets needed for each additional grid points definition. Used to define number of points in each row (or column) for non-regular grids. = 0, if using regular grid.
+igds[3] Interpretation of list for optional points definition. (See Code Table 3.11 ).
+igds[4] Grid Definition Template Number (See Code Table 3.1 ).
+
+ igdstmpl Contains the data values for the specified Grid Definition Template (igds[4]). Each element of this integer array contains an entry (in the order specified) of Grid Defintion Template. ideflist (Used if igds[2] != 0) This array contains the number of grid points contained in each row (or column). idefnum (Used if igds[2] != 0) The number of entries in array ideflist. i.e. number of rows (or columns) for which optional grid points are defined.
+
+
+
Returns
+> 0 Current size of updated GRIB2 message
+G2_ADD_MSG_INIT GRIB message was not initialized. Need to call routine gribcreate first.G2_ADD_MSG_COMPLETE GRIB message already complete. Cannot add new section.G2_BAD_SEC_COUNTS Sum of Section byte counts doesn't add to total byte countG2_BAD_SEC Previous Section was not 1, 2 or 7.G2_ADDGRID_BAD_GDT Could not find requested Grid Definition Template.
+
+
Note The Grid Def Section (Section 3) can only follow Section 1, 2 or Section 7 in a GRIB2 message.
+
Author Stephen Gilbeert
+
Date 2002-11-01
+
+
Definition at line 70 of file g2_addgrid.c .
+
+
References gtemplate::ext , extgridtemplate() , gtemplate::extlen , G2_ADD_MSG_COMPLETE , G2_ADD_MSG_INIT , G2_ADDGRID_BAD_GDT , G2_BAD_SEC , G2_BAD_SEC_COUNTS , g2c_check_msg() , G2C_MSG_COMPLETE , G2C_NOT_GRIB , gbit() , getgridtemplate() , gtemplate::map , gtemplate::maplen , gtemplate::needext , sbit() , and sbits() .
+
+
+
+
+
◆
+
+
+
+
+
+ g2int g2_addlocal (
+ unsigned char *
+ cgrib ,
+
+ unsigned char *
+ csec2 ,
+
+ g2int lcsec2
+
+ )
+
+
+
+
+
This routine adds a Local Use Section (Section 2) to a GRIB2 message.
+
It is used with routines g2_create() , g2_addgrid() , g2_addfield() , and g2_gribend() to create a complete GRIB2 message.
+
Parameters
+
+ cgrib Char array that contains the GRIB2 message to which section 2 should be added. Must be allocated large enough to store the entire GRIB2 message. csec2 Character array containing information to be added in Section 2. lcsec2 Number of bytes of character array csec2 to be added to Section 2.
+
+
+
Returns > 0 = Current size of updated GRIB2 message.
+
+
Note The Local Use Section (Section 2) can only follow Section 1 or Section 7 in a GRIB2 message.
+
Author Stephen Gilbeert
+
Date 2002-11-01
+
+
Definition at line 40 of file g2_addlocal.c .
+
+
References G2_ADD_MSG_COMPLETE , G2_ADD_MSG_INIT , G2_BAD_SEC , G2_BAD_SEC_COUNTS , g2c_check_msg() , G2C_MSG_COMPLETE , G2C_NOT_GRIB , gbit() , and sbit() .
+
+
+
+
+
◆
+
+
+
+
+
+ g2int g2_create (
+ unsigned char *
+ cgrib ,
+
+ g2int * listsec0 ,
+
+ g2int * listsec1
+
+ )
+
+
+
+
+
This routine initializes a new GRIB2 message and packs GRIB2 Section 0 (Indicator Section) and Section 1 (Identification Section) .
+
This routine is used with routines g2_addlocal() , g2_addgrid() , g2_addfield() , and g2_gribend() to create a complete GRIB2 message. g2_create() must be called first to initialize a new GRIB2 message. A call to g2_gribend() is required to complete GRIB2 message after all fields have been added.
+
Parameters
+
+ [in] cgrib Character array to contain the GRIB2 message. Must be allocated large enough to store the entire GRIB2 message. [in] listsec0 Contains information needed for GRIB Indicator Section 0. Must be dimensioned >= 2.
+listsec0[0] Discipline-GRIB Master Table Number (Code Table 0.0 ).
+listsec0[1] GRIB Edition Number (currently 2).
+
+ [in] listsec1 Contains information needed for GRIB Identification Section 1. Must be dimensioned >= 13.
+listsec1[0] Id of orginating centre (Table 0 ).
+listsec1[1] Id of orginating sub-centre (Table C ).
+listsec1[2] GRIB Master Tables Version Number (Table 1.0 ).
+listsec1[3] GRIB Local Tables Version Number (Table 1.1 ).
+listsec1[4] Significance of Reference Time (Table 1.2 )
+listsec1[5] Reference Time - Year (4 digits)
+listsec1[6] Reference Time - Month
+listsec1[7] Reference Time - Day
+listsec1[8] Reference Time - Hour
+listsec1[9] Reference Time - Minute
+listsec1[10] Reference Time - Second
+listsec1[11] Production status of data (Table 1.3 ).
+listsec1[12] Type of processed data (Table 1.4 ).
+
+
+
+
+
Returns
+> 0 Current size of new GRIB2 message
+G2_CREATE_GRIB_VERSION Tried to use for version other than GRIB Edition 2
+
+
This routine is intended for use with routines g2_addlocal() , g2_addgrid() , g2_addfield() , and g2_gribend() to create a complete GRIB2 message.
+
Author Stephen Gilbeert
+
Date 2002-10-31
+
+
Definition at line 68 of file g2_create.c .
+
+
References G2_CREATE_GRIB_VERSION , LENSEC0 , MAPSEC1LEN , and sbit() .
+
+
+
+
+
◆
+
+
+
+
+
+ void g2_free
+ (
+ gribfield * gfld )
+
+
+
+
+
This routine frees up memory that was allocated for struct gribfield.
+
Parameters
+
+ gfld pointer to gribfield structure (defined in include file grib2.h ) returned from routine g2_getfld() .
+
+
+
Note This routine must be called to free up memory used by the decode routine, g2_getfld() , when user no longer needs to reference this data.
+
Author Stephen Gilbeert
+
Date 2002-10-28
+
+
Definition at line 24 of file g2_free.c .
+
+
References gribfield::bmap , gribfield::coord_list , gribfield::fld , gribfield::idrtmpl , gribfield::idsect , gribfield::igdtmpl , gribfield::ipdtmpl , gribfield::list_opt , and gribfield::local .
+
+
Referenced by g2_getfld() .
+
+
+
+
+
◆
+
+
+
+
+
+ g2int g2_getfld (
+ unsigned char *
+ cgrib ,
+
+ g2int ifldnum ,
+
+ g2int unpack ,
+
+ g2int expand ,
+
+ gribfield ** gfld
+
+ )
+
+
+
+
+
This subroutine returns all the metadata, template values, bit-map (if applicable), and the unpacked data for a given data field.
+
All of the information returned is stored in a gribfield structure, which is defined in file grib2.h . Users of this routine will need to include grib2.h in their source code that calls this routine.
+
Since there can be multiple data fields packed into a GRIB2 message, the calling routine indicates which field is being requested with the ifldnum argument.
+
+
+
+Date Programmer Comments
+
+2002-10-28 Gilbert Initial
+
+2013-08-08 Vuong Free up memory in array igds - free(igds)
+
+
Parameters
+
+ cgrib Character pointer to the GRIB2 message. ifldnum Specifies which field in the GRIB2 message to return. The first field is number 1, Fortran style. unpack Boolean value indicating whether to unpack bitmap/data field.
+1 unpack bitmap (if present) and data values.
+0 do not unpack bitmap and data values.
+
+ expand Boolean value indicating whether the data points should be expanded to the correspond grid, if a bit-map is present. This argument is ignored if unpack == 0 OR if the returned field does not contain a bit-map.
+1 if possible, expand data field to grid, inserting zero values at gridpoints that are bitmapped out. (SEE REMARKS2)
+0 do not expand data field, leaving it an array of consecutive data points for each "1" in the bitmap.
+
+ gfld pointer to structure gribfield containing all decoded data for the data field.
+
+
+
Returns
+
+
Note Struct gribfield is allocated by this routine and it also contains pointers to many arrays of data that were allocated during decoding. Users are encouraged to free up this memory, when it is no longer needed, by an explicit call to routine g2_free() .
+
+
+
+
+
...
+
g2_free(gfld);
+
Routine g2_info() can be used to first determine how many data fields exist in a given GRIB message.
+
Note It may not always be possible to expand a bit-mapped data field. If a pre-defined bit-map is used and not included in the GRIB2 message itself, this routine would not have the necessary information to expand the data. In this case, gfld->expanded would would be set to 0 (false), regardless of the value of input argument expand.
+
Author Stephen Gilbert
+
Date 2002-10-28
+
+
Definition at line 91 of file g2_getfld.c .
+
+
References gribfield::bmap , gribfield::coord_list , gribfield::discipline , gribfield::expanded , gribfield::fld , g2_free() , G2_GETFLD_BAD_END , G2_GETFLD_BAD_SEC1 , G2_GETFLD_BAD_SEC2 , G2_GETFLD_BAD_SEC3 , G2_GETFLD_BAD_SEC4 , G2_GETFLD_BAD_SEC5 , G2_GETFLD_BAD_SEC6 , G2_GETFLD_BAD_SEC7 , G2_GETFLD_GRIB_VERSION , G2_GETFLD_INVAL , G2_GETFLD_INVAL_SEC , G2_GETFLD_NO_BITMAP , G2_GETFLD_NO_GRIB , G2_GETFLD_WRONG_END , G2_GETFLD_WRONG_NFLDS , G2_NO_ERROR , g2_unpack1() , g2_unpack2() , g2_unpack3() , g2_unpack4() , g2_unpack5() , g2_unpack6() , g2_unpack7() , gbit() , gribfield::griddef , gribfield::ibmap , gribfield::idrtlen , gribfield::idrtmpl , gribfield::idrtnum , gribfield::idsect , gribfield::idsectlen , gribfield::ifldnum , gribfield::igdtlen , gribfield::igdtmpl , gribfield::igdtnum , gribfield::interp_opt , gribfield::ipdtlen , gribfield::ipdtmpl , gribfield::ipdtnum , gribfield::list_opt , gribfield::local , gribfield::locallen , gribfield::ndpts , gribfield::ngrdpts , gribfield::num_coord , gribfield::num_opt , gribfield::numoct_opt , gribfield::unpacked , and gribfield::version .
+
+
+
+
+
◆
+
+
+
+
+
+ g2int g2_gribend (
+ unsigned char *
+ cgrib )
+
+
+
+
+
This routine finalizes a GRIB2 message after all grids and fields have been added.
+
It adds the End Section ("7777") to the end of the GRIB message and calculates the length and stores it in the appropriate place in Section 0. This routine is used with routines g2_create() , g2_addlocal() , g2_addgrid() , and g2_addfield() to create a complete GRIB2 message.
+
Parameters
+
+
+
+
Returns
+
+
Note This routine is intended for use with routines g2_create() , g2_addlocal() , g2_addgrid() , and g2_addfield() to create a complete GRIB2 message.
+
Author Stephen Gilbert
+
Date 2002-10-31
+
+
Definition at line 37 of file g2_gribend.c .
+
+
References G2_ADD_MSG_COMPLETE , G2_ADD_MSG_INIT , G2_BAD_SEC , G2_BAD_SEC_COUNTS , g2c_check_msg() , G2C_MSG_COMPLETE , G2C_NOT_GRIB , gbit() , and sbit() .
+
+
+
+
+
◆
+
+
+
+
+
+ g2int g2_info (
+ unsigned char *
+ cgrib ,
+
+ g2int * listsec0 ,
+
+ g2int * listsec1 ,
+
+ g2int * numfields ,
+
+ g2int * numlocal
+
+ )
+
+
+
+
+
This subroutine searches through a GRIB2 message and returns the number of gridded fields found in the message and the number (and maximum size) of Local Use Sections.
+
Also various checks are performed to see if the message is a valid GRIB2 message.
+
Parameters
+
+ cgrib Character pointer to the GRIB2 message. listsec0 pointer to an array containing information decoded from GRIB Indicator Section 0. Must be allocated with >= 3 elements.
+listsec0(0) Discipline-GRIB Master Table Number (Code Table 0.0 ).
+listsec0[1] GRIB Edition Number (currently 2).
+listsec0[2] Length of GRIB message.
+
+ listsec1 Pointer to an array containing information read from GRIB Identification Section 1. Must be allocated with >= 13 elements.
+listsec1[0] Id of orginating centre (Table 0 ).
+listsec1[1] Id of orginating sub-centre (Table C ).
+listsec1[2] GRIB Master Tables Version Number (Table 1.0 ).
+listsec1[3] GRIB Local Tables Version Number (Table 1.1 ).
+listsec1[4] Significance of Reference Time (Table 1.2 )
+listsec1[5] Reference Time - Year (4 digits)
+listsec1[6] Reference Time - Month
+listsec1[7] Reference Time - Day
+listsec1[8] Reference Time - Hour
+listsec1[9] Reference Time - Minute
+listsec1[10] Reference Time - Second
+listsec1[11] Production status of data (Table 1.3 ).
+listsec1[12] Type of processed data (Table 1.4 ).
+
+ numfields The number of gridded fields found in the GRIB message. That is, the number of occurences of Sections 4 - 7. numlocal The number of Local Use Sections ( Section 2 ) found in the GRIB message.
+
+
+
Returns 0 foe success, otherwise:
+
+
Author Stephen Gilbeert
+
Date 2002-10-28
+
+
Definition at line 67 of file g2_info.c .
+
+
References G2_INFO_BAD_END , G2_INFO_GRIB_VERSION , G2_INFO_INVAL_SEC , G2_INFO_NO_GRIB , G2_INFO_NO_SEC1 , G2_INFO_WRONG_END , and gbit() .
+
+
+
+
+
◆
+
+
+
+
+
+ g2int g2_unpack1 (
+ unsigned char *
+ cgrib ,
+
+ g2int * iofst ,
+
+ g2int ** ids ,
+
+ g2int * idslen
+
+ )
+
+
+
+
+
This subroutine unpacks Section 1 - Identification Section as defined in GRIB Edition 2.
+
Parameters
+
+ cgrib char array containing Section 1 of the GRIB2 message. iofst Bit offset for the beginning of Section 1 in cgrib. ids Pointer that gets an array which contians the information read from Section 1, the Identification section. This array is allocated by this function, and must be freed by caller (using g2_free() ).
+ids[0] Identification of originating Centre (see Table 0 ).
+ids[1] Identification of originating Sub-centre (see Table C ).
+ids[2] GRIB Master Tables Version Number (see Table 1.0 ).
+ids[3] GRIB Local Tables Version Number (see Table 1.1 ).
+ids[4] Significance of Reference Time (see Table 1.2 ).
+ids[5] Year (4 digits)
+ids[6] Month
+ids[7] Day
+ids[8] Hour
+ids[9] Minute
+ids[10] Second
+ids[11] Production status of processed data (see Table 1.3 ).
+ids[12] Type of processed data (see Table 1.4 ).
+
+ idslen Number of elements in ids.
+
+
+
Returns
+
+
Author Stephen Gilbert
+
Date 2002-10-29
+
+
Definition at line 55 of file g2_unpack1.c .
+
+
References G2_NO_ERROR , G2_UNPACK_BAD_SEC , G2_UNPACK_NO_MEM , and gbit() .
+
+
Referenced by g2_getfld() .
+
+
+
+
+
◆
+
+
+
+
+
+ g2int g2_unpack2 (
+ unsigned char *
+ cgrib ,
+
+ g2int * iofst ,
+
+ g2int * lencsec2 ,
+
+ unsigned char **
+ csec2
+
+ )
+
+
+
+
+
This subroutine unpacks Section 2 (Local Use Section) as defined in GRIB Edition 2.
+
+
+
+Date Programmer Comments
+
+2002-10-31 Gilbert Initial
+
+2008-12-23 Wesley Initialize lencsec2 Length of Local Use data
+
+2010-08-05 Vuong If section 2 has zero length, ierr=0
+
+
Parameters
+
+ cgrib char array containing Section 2 of the GRIB2 message. iofst Pointer that contains the bit offset for the beginning of Section 2 in cgrib. The modified version will be returned. lencsec2 Length (in octets) of Local Use data. csec2 Pointer to a pointer that will get an allocated array containing local use data. This memory must be freed by the caller.
+
+
+
Returns
+
+
Author Stephen Gilbert
+
Date 2002-10-31
+
+
Definition at line 38 of file g2_unpack2.c .
+
+
References G2_NO_ERROR , G2_UNPACK_BAD_SEC , G2_UNPACK_NO_MEM , and gbit() .
+
+
Referenced by g2_getfld() .
+
+
+
+
+
◆
+
+
+
+
+
+ g2int g2_unpack3 (
+ unsigned char *
+ cgrib ,
+
+ g2int * iofst ,
+
+ g2int ** igds ,
+
+ g2int ** igdstmpl ,
+
+ g2int * mapgridlen ,
+
+ g2int ** ideflist ,
+
+ g2int * idefnum
+
+ )
+
+
+
+
+
This routine unpacks Section 3 (Grid Definition Section) as defined in GRIB Edition 2.
+
+
+
+Date Programmer Comments
+
+2002-10-31 Gilbert Initial
+
+2009-01-14 Vuong Changed structure name template to gtemplate
+
+
Parameters
+
+ cgrib Char array ontaining Section 3 of the GRIB2 message. iofst Bit offset for the beginning of Section 3 in cgrib. igds Contains information read from the appropriate GRIB Grid Definition Section 3 for the field being returned.
+igds[0] Source of grid definition (see Table 3.0 ).
+igds[1] Number of grid points in the defined grid.
+igds[2] Number of octets needed for each additional grid points definition. Used to define number of points in each row (or column) for non-regular grids. = 0, if using regular grid.
+igds[3] Interpretation of list for optional points definition. (See Table 3.11 )
+igds[4] Grid Definition Template Number (see Table 3.1 ).
+
+ igdstmpl Pointer to integer array containing the data values for the Grid Definition Template specified by igds[4]. mapgridlen Number of elements in igdstmpl. i.e. number of entries in Grid Defintion Template specified by igds[4]. ideflist (Used if igds[2] .ne. 0) Pointer to integer array containing the number of grid points contained in each row (or column). idefnum (Used if igds[2] .ne. 0) The number of entries in array ideflist - i.e. number of rows (or columns) for which optional grid points are defined.
+
+
+
Returns
+
+
Author Stephen Gilbert
+
Date 2002-10-31
+
+
Definition at line 57 of file g2_unpack3.c .
+
+
References gtemplate::ext , extgridtemplate() , gtemplate::extlen , G2_NO_ERROR , G2_UNPACK3_BAD_GDT , G2_UNPACK_BAD_SEC , G2_UNPACK_NO_MEM , gbit() , gbits() , getgridtemplate() , gtemplate::map , gtemplate::maplen , and gtemplate::needext .
+
+
Referenced by g2_getfld() , getdim() , and getpoly() .
+
+
+
+
+
◆
+
+
+
+
+
+ g2int g2_unpack4 (
+ unsigned char *
+ cgrib ,
+
+ g2int * iofst ,
+
+ g2int * ipdsnum ,
+
+ g2int ** ipdstmpl ,
+
+ g2int * mappdslen ,
+
+ float **
+ coordlist ,
+
+ g2int * numcoord
+
+ )
+
+
+
+
+
This subroutine unpacks Section 4 (Product Definition Section) as defined in GRIB Edition 2.
+
+
+
+Date Programmer Comments
+
+2002-10-31 Gilbert Initial
+
+2009-01-14 Vuong Changed structure name template to gtemplate
+
+
Parameters
+
+ cgrib Array containing Section 4 of the GRIB2 message. iofst Bit offset of the beginning of Section 4 in cgrib. Returned with updated bit offset. ipdsnum Product Definition Template Number (see Table 4.0 ). ipdstmpl Pointer that gets an integer array containing the data values for the Product Definition Template specified by ipdsnum. mappdslen Number of elements in ipdstmpl - i.e. number of entries in Product Defintion Template specified by ipdsnum. coordlist Pointer that gets an array containing floating point values intended to document the vertical discretisation associated to model data on hybrid coordinate vertical levels. numcoord number of values in array coordlist.
+
+
+
Returns
+
+
Author Stephen Gilbert
+
Date 2002-10-31
+
+
Definition at line 46 of file g2_unpack4.c .
+
+
References gtemplate::ext , gtemplate::extlen , extpdstemplate() , G2_NO_ERROR , G2_UNPACK4_BAD_PDT , G2_UNPACK_BAD_SEC , G2_UNPACK_NO_MEM , gbit() , gbits() , getpdstemplate() , gtemplate::map , gtemplate::maplen , gtemplate::needext , and rdieee() .
+
+
Referenced by g2_getfld() .
+
+
+
+
+
◆
+
+
+
+
+
+ g2int g2_unpack5 (
+ unsigned char *
+ cgrib ,
+
+ g2int * iofst ,
+
+ g2int * ndpts ,
+
+ g2int * idrsnum ,
+
+ g2int ** idrstmpl ,
+
+ g2int * mapdrslen
+
+ )
+
+
+
+
+
This subroutine unpacks Section 5 (Data Representation Section) as defined in GRIB Edition 2.
+
+
+
+Date Programmer Comments
+
+2002-10-31 Gilbert Initial
+
+2009-01-14 Vuong Changed structure name template to gtemplate
+
+
Parameters
+
+ cgrib char array containing Section 5 of the GRIB2 message. iofst Bit offset for the beginning of Section 5 in cgrib. Returned with bit offset at the end of Section 5. ndpts Number of data points unpacked and returned. idrsnum Data Representation Template Number (see Code Table 5.0). idrstmpl Pointer to an integer array containing the data values for the specified Data Representation Template (N=idrsnum). Each element of this integer array contains an entry (in the order specified) of Data Representation Template 5.N. mapdrslen- Number of elements in idrstmpl. i.e. number of entries in Data Representation Template 5.N (N=idrsnum).
+
+
+
Returns
+
+
Author Stephen Gilbert
+
Date 2002-10-31
+
+
Definition at line 42 of file g2_unpack5.c .
+
+
References gtemplate::ext , extdrstemplate() , gtemplate::extlen , G2_NO_ERROR , G2_UNPACK5_BAD_DRT , G2_UNPACK_BAD_SEC , G2_UNPACK_NO_MEM , gbit() , getdrstemplate() , gtemplate::map , gtemplate::maplen , and gtemplate::needext .
+
+
Referenced by g2_getfld() .
+
+
+
+
+
◆
+
+
+
+
+
+ g2int g2_unpack6 (
+ unsigned char *
+ cgrib ,
+
+ g2int * iofst ,
+
+ g2int ngpts ,
+
+ g2int * ibmap ,
+
+ g2int ** bmap
+
+ )
+
+
+
+
+
This subroutine unpacks Section 6 (Bit-Map Section) as defined in GRIB Edition 2.
+
Parameters
+
+ cgrib char array containing Section 6 of the GRIB2 message. iofst Bit offset of the beginning of Section 6 in cgrib. ngpts Number of grid points specified in the bit-map ibmap Bitmap indicator (see Code Table 6.0)
+0 bitmap applies and is included in Section 6.
+1-253 Predefined bitmap applies
+254 Previously defined bitmap applies to this field
+255 Bit map does not apply to this product.
+
+ bmap Pointer to an integer array containing decoded bitmap. (if ibmap=0)
+
+
+
Returns
+
+
Author Stephen Gilbert
+
Date 2002-10-31
+
+
Definition at line 33 of file g2_unpack6.c .
+
+
References G2_NO_ERROR , G2_UNPACK_BAD_SEC , G2_UNPACK_NO_MEM , gbit() , and gbits() .
+
+
Referenced by g2_getfld() .
+
+
+
+
+
◆
+
+
+
+
+
+ g2int g2_unpack7 (
+ unsigned char *
+ cgrib ,
+
+ g2int * iofst ,
+
+ g2int igdsnum ,
+
+ g2int * igdstmpl ,
+
+ g2int idrsnum ,
+
+ g2int * idrstmpl ,
+
+ g2int ndpts ,
+
+ float **
+ fld
+
+ )
+
+
+
+
+
This subroutine unpacks Section 7 (Data Section) as defined in GRIB Edition 2.
+
+
+
+Date Programmer Comments
+
+2002-10-31 Gilbert Initial
+
+2002-12-20 Gilbert Added GDT info to arguments and added 5.51 processing.
+
+2003-08-29 Gilbert New templates using PNG and JPEG2000 algorithms/templates.
+
+2004-11-29 Gilbert JPEG2000 now allowed to use WMO Template 5.40 PNG allowed to use 5.41
+
+2004-12-16 Taylor Added check on comunpack return code.
+
+2008-12-23 Wesley Initialize Number of data points unpacked
+
+
Parameters
+
+ cgrib char array containing Section 7 of the GRIB2 message iofst Bit offset of the beginning of Section 7 in cgrib. igdsnum Grid Definition Template Number (see Code Table 3.0) (Only used for DRS Template 5.51) igdstmpl Pointer to an integer array containing the data values for the specified Grid Definition Template (N=igdsnum). Each element of this integer array contains an entry (in the order specified) of Grid Definition Template 3.N. (Only used for DRS Template 5.51). idrsnum Data Representation Template Number (see Code Table 5.0) idrstmpl Pointer to an integer array containing the data values for the specified Data Representation Template (N=idrsnum). Each element of this integer array contains an entry (in the order specified) of Data Representation Template 5.N ndpts Number of data points unpacked and returned. fld Pointer to a float array containing the unpacked data field.
+
+
+
Returns
+
+
Author Stephen Gilbert
+
Date 2002-10-31
+
+
Definition at line 55 of file g2_unpack7.c .
+
+
References comunpack() , G2_NO_ERROR , G2_UNPACK7_BAD_DRT , G2_UNPACK7_CORRUPT_SEC , G2_UNPACK7_WRONG_GDT , G2_UNPACK_BAD_SEC , G2_UNPACK_NO_MEM , gbit() , jpcunpack() , pngunpack() , rdieee() , simunpack() , and specunpack() .
+
+
Referenced by g2_getfld() .
+
+
+
+
+
◆
+
+
+
+
+
+ int g2c_set_log_level
+ (
+ int
+ new_level )
+
+
+
+
+
Use this to set the global log level.
+
Set it to -1 to turn off all logging. Set it to 0 to show only errors, and to higher numbers to show more and more logging details. If logging is not enabled when building NCEPLIBS-g2c, this function will do nothing.
+
Parameters
+
+ new_level The new logging level.
+
+
+
Returns G2_NO_ERROR No error.
+
Author Ed Hartnett
+
+
Definition at line 124 of file util.c .
+
+
References G2C_NO_ERROR , and LOG .
+
+
+
+
+
◆
+
+
+
+
+
+ void jpcpack
+ (
+ float *
+ fld ,
+
+ g2int width ,
+
+ g2int height ,
+
+ g2int * idrstmpl ,
+
+ unsigned char *
+ cpack ,
+
+ g2int * lcpack
+
+ )
+
+
+
+
+
This subroutine packs up a data field into a JPEG2000 code stream.
+
After the data field is scaled, and the reference value is subtracted out, it is treated as a grayscale image and passed to a JPEG2000 encoder. It also fills in GRIB2 Data Representation Template 5.40 or 5.40000 with the appropriate values.
+
Parameters
+
+ fld Pointer to the float or double data values to pack. width The number of points in the x direction. height The number of points in the y direction. idrstmpl Contains the array of values for Data Representation Template Table 5.40 or 5.40000.
+0 Reference value - ignored on input, set by jpcpack routine.
+1 Binary Scale Factor - used on input, unchanged by jpcpack routine.
+2 Decimal Scale Factor - used on input, unchanged by jpcpack routine.
+3 number of bits for each data value - ignored on input
+4 Original field type - currently ignored on input Data values assumed to be reals. Set to 0 on output.
+5 if 0 use lossless compression, if 1 use lossy compression.
+6 Desired compression ratio, if idrstmpl[5]=1. Set to 255, if idrstmpl[5]=0.
+
+ cpack A pointer that will get the packed data field. Must be allocated before this function is called. Pass the allocated size in the lcpack parameter. lcpack Pointer that gets the length of packed field in cpack. This must be set by the calling function to the size available in cpack.
+
+
+
Author Stephen Gilbert, Ed Hartnett
+
+
Definition at line 253 of file jpcpack.c .
+
+
References jpcpack_int() .
+
+
+
+
+
◆
+
+
+
+
+
+ void jpcpackd
+ (
+ double *
+ fld ,
+
+ g2int width ,
+
+ g2int height ,
+
+ g2int * idrstmpl ,
+
+ unsigned char *
+ cpack ,
+
+ g2int * lcpack
+
+ )
+
+
+
+
+
This subroutine packs up a data field into a JPEG2000 code stream.
+
After the data field is scaled, and the reference value is subtracted out, it is treated as a grayscale image and passed to a JPEG2000 encoder. It also fills in GRIB2 Data Representation Template 5.40 or 5.40000 with the appropriate values.
+
Parameters
+
+ fld Pointer to the float or double data values to pack. width The number of points in the x direction. height The number of points in the y direction. idrstmpl Contains the array of values for Data Representation Template Table 5.40 or 5.40000.
+0 Reference value - ignored on input, set by jpcpack routine.
+1 Binary Scale Factor - used on input, unchanged by jpcpack routine.
+2 Decimal Scale Factor - used on input, unchanged by jpcpack routine.
+3 number of bits for each data value - ignored on input
+4 Original field type - currently ignored on input Data values assumed to be reals. Set to 0 on output.
+5 if 0 use lossless compression, if 1 use lossy compression.
+6 Desired compression ratio, if idrstmpl[5]=1. Set to 255, if idrstmpl[5]=0.
+
+ cpack A pointer that will get the packed data field. Must be allocated before this function is called. Pass the allocated size in the lcpack parameter. lcpack Pointer that gets the length of packed field in cpack. This must be set by the calling function to the size available in cpack.
+
+
+
Author Ed Hartnett
+
+
Definition at line 294 of file jpcpack.c .
+
+
References jpcpack_int() .
+
+
+
+
+
◆
+
+
+
+
+
+ g2int jpcunpack (
+ unsigned char *
+ cpack ,
+
+ g2int len ,
+
+ g2int * idrstmpl ,
+
+ g2int ndpts ,
+
+ float *
+ fld
+
+ )
+
+
+
+
+
Unpack JPEG2000 compressed data into an array of floats, using info from the GRIB2 Data Representation Template 5.40 or 5.40000.
+
Parameters
+
+ cpack The packed data. len The length of the packed data. idrstmpl Pointer to array of values for Data Representation Template 5.40 or 5.40000. ndpts The number of data values to unpack. fld A pointer that gets the unpacked data values as an array of float.
+
+
+
Returns 0 for success, 1 for memory allocation error.
+
Author Stephem Gilbert
+
Date 2003-08-27
+
Author Ed Hartnett
+
+
Definition at line 108 of file jpcunpack.c .
+
+
References jpcunpack_int() .
+
+
+
+
+
◆
+
+
+
+
+
+ g2int jpcunpackd (
+ unsigned char *
+ cpack ,
+
+ g2int len ,
+
+ g2int * idrstmpl ,
+
+ g2int ndpts ,
+
+ double *
+ fld
+
+ )
+
+
+
+
+
Unpack JPEG2000 compressed data into an array of doubles, using info from the GRIB2 Data Representation Template 5.40 or 5.40000.
+
Parameters
+
+ cpack The packed data. len The length of the packed data. idrstmpl Pointer to array of values for Data Representation Template 5.40 or 5.40000. ndpts The number of data values to unpack. fld A pointer that gets the unpacked data values as an array of double.
+
+
+
Returns 0 for success, 1 for memory allocation error.
+
Author Ed Hartnett
+
Date 2022-08-12
+
+
Definition at line 135 of file jpcunpack.c .
+
+
References jpcunpack_int() .
+
+
+
+
+
◆
+
+
+
+
+
+ void pngpack
+ (
+ float *
+ fld ,
+
+ g2int width ,
+
+ g2int height ,
+
+ g2int * idrstmpl ,
+
+ unsigned char *
+ cpack ,
+
+ g2int * lcpack
+
+ )
+
+
+
+
+
This subroutine packs up a float data field into PNG image format.
+
After the data field is scaled, and the reference value is subtracted out, it is treated as a grayscale image and passed to a PNG encoder. It also fills in GRIB2 Data Representation Template 5.41 or 5.40010 with the appropriate values.
+
Parameters
+
+ fld Pointer to array of float that contains the data values to pack. width Number of points in the x direction. height Number of points in the y direction. idrstmpl Contains the array of values for Data Representation Template 5.41 or 5.40010.
+0 Reference value - ignored on input, set by pngpack routine.
+1 Binary Scale Factor - used on input.
+2 Decimal Scale Factor - used on input.
+3 number of bits for each grayscale pixel value - ignored on input.
+4 Original field type - currently ignored on input, set = 0 on output. Data values assumed to be reals.
+
+ cpack The packed data field. lcpack length of packed field cpack.
+
+
+
Author Stephen Gilbert
+
Date 2003-08-27
+
Author Ed Hartnett
+
+
Definition at line 224 of file pngpack.c .
+
+
References pngpack_int() .
+
+
+
+
+
◆
+
+
+
+
+
+ void pngpackd
+ (
+ double *
+ fld ,
+
+ g2int width ,
+
+ g2int height ,
+
+ g2int * idrstmpl ,
+
+ unsigned char *
+ cpack ,
+
+ g2int * lcpack
+
+ )
+
+
+
+
+
This subroutine packs up a double data field into PNG image format.
+
After the data field is scaled, and the reference value is subtracted out, it is treated as a grayscale image and passed to a PNG encoder. It also fills in GRIB2 Data Representation Template 5.41 or 5.40010 with the appropriate values.
+
Parameters
+
+ fld Pointer to array of double that contains the data values to pack. width Number of points in the x direction. height Number of points in the y direction. idrstmpl Contains the array of values for Data Representation Template 5.41 or 5.40010.
+0 Reference value - ignored on input, set by pngpack routine.
+1 Binary Scale Factor - used on input.
+2 Decimal Scale Factor - used on input.
+3 number of bits for each grayscale pixel value - ignored on input.
+4 Original field type - currently ignored on input, set = 0 on output. Data values assumed to be reals.
+
+ cpack The packed data field. lcpack length of packed field cpack.
+
+
+
Author Ed Hartnett
+
Date Aug 8, 2022
+
+
Definition at line 259 of file pngpack.c .
+
+
References pngpack_int() .
+
+
+
+
+
◆
+
+
+
+
+
+ g2int pngunpack (
+ unsigned char *
+ cpack ,
+
+ g2int len ,
+
+ g2int * idrstmpl ,
+
+ g2int ndpts ,
+
+ float *
+ fld
+
+ )
+
+
+
+
+
This subroutine unpacks a data field that was packed into a PNG image format using info from the GRIB2 Data Representation Template 5.41 or 5.40010.
+
Parameters
+
+ cpack The packed data field (character*1 array). len length of packed field cpack(). idrstmpl Pointer to array of values for Data Representation Template 5.41 or 5.40010. ndpts The number of data values to unpack. fld Contains the unpacked data values.
+
+
+
Returns 0 for success, 1 for memory allocation error.
+
Author Stephen Gilbert
+
Date 2003-08-27
+
Author Ed Hartnett
+
+
Definition at line 105 of file pngunpack.c .
+
+
References pngunpack_int() .
+
+
+
+
+
◆
+
+
+
+
+
+ g2int pngunpackd (
+ unsigned char *
+ cpack ,
+
+ g2int len ,
+
+ g2int * idrstmpl ,
+
+ g2int ndpts ,
+
+ double *
+ fld
+
+ )
+
+
+
+
+
This subroutine unpacks a data field that was packed into a PNG image format using info from the GRIB2 Data Representation Template 5.41 or 5.40010.
+
Parameters
+
+ cpack The packed data field (character*1 array). len length of packed field cpack(). idrstmpl Pointer to array of values for Data Representation Template 5.41 or 5.40010. ndpts The number of data values to unpack. fld Contains the unpacked data values.
+
+
+
Returns 0 for success, 1 for memory allocation error.
+
Author Ed Hartnett
+
Date Aug 8, 2022
+
+
Definition at line 128 of file pngunpack.c .
+
+
References pngunpack_int() .
+
+
+
+
+
◆
+
+
+
+
+
+ void seekgb
+ (
+ FILE *
+ lugb ,
+
+ g2int iseek ,
+
+ g2int mseek ,
+
+ g2int * lskip ,
+
+ g2int * lgrib
+
+ )
+
+
+
+
+
This subprogram searches a file for the next GRIB Message.
+
The search is done starting at byte offset iseek of the file referenced by lugb for mseek bytes at a time. If found, the starting position and length of the message are returned in lskip and lgrib, respectively. The search is terminated when an EOF or I/O error is encountered.
+
+
+
+Date Programmer Comments
+
+2002-10-28 GILBERT Modified from Iredell's skgb subroutine
+
+2009-01-16 VUONG Changed lskip to 4 instead of sizof(g2int)
+
+
Parameters
+
+ lugb FILE pointer for the file to search. File must be opened before this routine is called. iseek number of bytes in the file to skip before search. mseek number of bytes to search at a time (must be at least 16). lskip number of bytes to skip from the beggining of the file to where the GRIB message starts. lgrib number of bytes in message (set to 0, if no message found).
+
+
+
Author Stephen Gilbert
+
Date 2002-10-28
+
+
Definition at line 39 of file seekgb.c .
+
+
References BITS_PER_BYTE , and gbit() .
+
+
+
+
+
Header file for NCEPLIBS-g2c library.
g2int g2_getfld(unsigned char *cgrib, g2int ifldnum, g2int unpack, g2int expand, gribfield **gfld)
This subroutine returns all the metadata, template values, bit-map (if applicable),...
NCEPLIBS-g2c: grib2.h Source File
+
+
+
+
+
+
+ NCEPLIBS-g2c
+ 1.7.0
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
Go to the documentation of this file.
+
+
+
+
+
+
22 #define G2_VERSION "1.7.0"
+
24 #define G2_PNG_ENABLED 1
+
25 #define G2_JPEG2000_ENABLED 1
+
28 typedef int64_t g2int;
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
222 unsigned char **csec2);
+
+
+
+
226 g2int *mappdslen,
float **coordlist,
g2int *numcoord);
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
255 unsigned char *cpack,
g2int *lcpack);
+
+
+
+
259 unsigned char *cpack,
g2int *lcpack);
+
+
+
+
263 unsigned char *cpack,
g2int *lcpack);
+
+
+
+
267 unsigned char *cpack,
g2int *lcpack);
+
+
+
+
+
+
+
+
275 #define G2_NO_ERROR 0
+
276 #define G2_CREATE_GRIB_VERSION -1
+
277 #define G2_INFO_NO_GRIB 1
+
278 #define G2_INFO_GRIB_VERSION 2
+
279 #define G2_INFO_NO_SEC1 3
+
280 #define G2_INFO_WRONG_END 4
+
281 #define G2_INFO_BAD_END 5
+
282 #define G2_INFO_INVAL_SEC 6
+
283 #define G2_GETFLD_NO_GRIB 1
+
284 #define G2_GETFLD_GRIB_VERSION 2
+
285 #define G2_GETFLD_INVAL 3
+
286 #define G2_GETFLD_WRONG_END 4
+
287 #define G2_GETFLD_WRONG_NFLDS 6
+
288 #define G2_GETFLD_BAD_END 7
+
289 #define G2_GETFLD_INVAL_SEC 8
+
290 #define G2_GETFLD_NO_DRT 9
+
291 #define G2_GETFLD_BAD_SEC1 15
+
292 #define G2_GETFLD_BAD_SEC2 16
+
293 #define G2_GETFLD_BAD_SEC3 10
+
294 #define G2_GETFLD_BAD_SEC4 11
+
295 #define G2_GETFLD_BAD_SEC5 12
+
296 #define G2_GETFLD_BAD_SEC6 13
+
297 #define G2_GETFLD_BAD_SEC7 14
+
298 #define G2_GETFLD_NO_BITMAP 17
+
299 #define G2_GRIBEND_MSG_INIT -1
+
300 #define G2_BAD_SEC -4
+
301 #define G2_UNPACK_BAD_SEC 2
+
302 #define G2_UNPACK_NO_MEM 6
+
303 #define G2_UNPACK3_BAD_GDT 5
+
304 #define G2_UNPACK4_BAD_PDT 5
+
305 #define G2_UNPACK5_BAD_DRT 7
+
306 #define G2_UNPACK6_BAD_BITMAP 4
+
307 #define G2_UNPACK7_CORRUPT_SEC 7
+
308 #define G2_UNPACK7_WRONG_GDT 5
+
309 #define G2_UNPACK7_BAD_DRT 4
+
310 #define G2_ADD_MSG_INIT -1
+
311 #define G2_ADD_MSG_COMPLETE -2
+
312 #define G2_BAD_SEC_COUNTS -3
+
313 #define G2_ADDFIELD_BAD_PDT -5
+
314 #define G2_ADDFIELD_BAD_GDS -6
+
315 #define G2_ADDFIELD_BAD_DRT -7
+
316 #define G2_ADDFIELD_BAD_BITMAP -8
+
317 #define G2_ADDFIELD_BAD_GDT -9
+
318 #define G2_ADDFIELD_ERR -10
+
319 #define G2_ADDGRID_BAD_GDT -5
+
320 #define G2_JPCUNPACK_MEM 1
+
321 #define G2_SPECUNPACK_TYPE -3
+
322 #define G2_JASPER_INIT -2
+
323 #define G2_JASPER_ENCODE -3
+
324 #define G2_JASPER_DECODE -3
+
325 #define G2_JASPER_DECODE_COLOR -5
+
+
328 #define G2C_NO_ERROR 0
+
329 #define G2C_NOT_GRIB -50
+
330 #define G2C_MSG_COMPLETE -51
+
+
+
g2int g2_unpack1(unsigned char *cgrib, g2int *iofst, g2int **ids, g2int *idslen)
This subroutine unpacks Section 1 - Identification Section as defined in GRIB Edition 2.
g2int g2_create(unsigned char *cgrib, g2int *listsec0, g2int *listsec1)
This routine initializes a new GRIB2 message and packs GRIB2 Section 0 (Indicator Section) and Sectio...
g2int * igdtmpl
Contains the data values for the Grid Definition Template specified by igdtnum.
g2int pngunpack(unsigned char *cpack, g2int len, g2int *idrstmpl, g2int ndpts, float *fld)
This subroutine unpacks a data field that was packed into a PNG image format using info from the GRIB...
g2int g2_unpack5(unsigned char *cgrib, g2int *iofst, g2int *ndpts, g2int *idrsnum, g2int **idrstmpl, g2int *mapdrslen)
This subroutine unpacks Section 5 (Data Representation Section) as defined in GRIB Edition 2.
void jpcpackd(double *fld, g2int width, g2int height, g2int *idrstmpl, unsigned char *cpack, g2int *lcpack)
This subroutine packs up a data field into a JPEG2000 code stream.
g2int g2_unpack7(unsigned char *cgrib, g2int *iofst, g2int igdsnum, g2int *igdstmpl, g2int idrsnum, g2int *idrstmpl, g2int ndpts, float **fld)
This subroutine unpacks Section 7 (Data Section) as defined in GRIB Edition 2.
g2int ngrdpts
Number of grid points in the defined grid.
g2int unpacked
Logical value indicating whether the bitmap and data values were unpacked.
void g2_free(gribfield *gfld)
This routine frees up memory that was allocated for struct gribfield.
g2int ifldnum
Field number within GRIB message.
g2int g2_addgrid(unsigned char *cgrib, g2int *igds, g2int *igdstmpl, g2int *ideflist, g2int idefnum)
This routine packs up a Grid Definition Section (Section 3) and adds it to a GRIB2 message.
g2int idrtlen
Number of elements in idrtmpl.
g2int ibmap
Bitmap indicator (see Table 6.0).
g2int griddef
Source of grid definition (see Table 3.0).
g2int g2_unpack4(unsigned char *cgrib, g2int *iofst, g2int *ipdsnum, g2int **ipdstmpl, g2int *mappdslen, float **coordlist, g2int *numcoord)
This subroutine unpacks Section 4 (Product Definition Section) as defined in GRIB Edition 2.
void seekgb(FILE *lugb, g2int iseek, g2int mseek, g2int *lskip, g2int *lgrib)
This subprogram searches a file for the next GRIB Message.
g2int numoct_opt
Number of octets needed for each additional grid points definition.
g2int g2_addfield(unsigned char *cgrib, g2int ipdsnum, g2int *ipdstmpl, float *coordlist, g2int numcoord, g2int idrsnum, g2int *idrstmpl, float *fld, g2int ngrdpts, g2int ibmap, g2int *bmap)
This routine packs up Sections 4 through 7 for a given field and adds them to a GRIB2 message.
g2int pngunpackd(unsigned char *cpack, g2int len, g2int *idrstmpl, g2int ndpts, double *fld)
This subroutine unpacks a data field that was packed into a PNG image format using info from the GRIB...
g2int g2_info(unsigned char *cgrib, g2int *listsec0, g2int *listsec1, g2int *numfields, g2int *numlocal)
This subroutine searches through a GRIB2 message and returns the number of gridded fields found in th...
g2int * idsect
Contains the entries in the Identification Section (Section 1).
g2int g2_unpack6(unsigned char *cgrib, g2int *iofst, g2int ngpts, g2int *ibmap, g2int **bmap)
This subroutine unpacks Section 6 (Bit-Map Section) as defined in GRIB Edition 2.
int g2c_set_log_level(int new_level)
Use this to set the global log level.
g2int g2_gribend(unsigned char *cgrib)
This routine finalizes a GRIB2 message after all grids and fields have been added.
g2int g2_getfld(unsigned char *cgrib, g2int ifldnum, g2int unpack, g2int expand, gribfield **gfld)
This subroutine returns all the metadata, template values, bit-map (if applicable),...
void pngpack(float *fld, g2int width, g2int height, g2int *idrstmpl, unsigned char *cpack, g2int *lcpack)
This subroutine packs up a float data field into PNG image format.
g2int * idrtmpl
Contains the data values for the Data Representation Template specified by idrtnum.
g2int jpcunpack(unsigned char *cpack, g2int len, g2int *idrstmpl, g2int ndpts, float *fld)
Unpack JPEG2000 compressed data into an array of floats, using info from the GRIB2 Data Representatio...
g2int interp_opt
Interpretation of list for optional points definition.
g2int ipdtlen
Number of elements in ipdtmpl - i.e.
g2int g2_unpack2(unsigned char *cgrib, g2int *iofst, g2int *lencsec2, unsigned char **csec2)
This subroutine unpacks Section 2 (Local Use Section) as defined in GRIB Edition 2.
void pngpackd(double *fld, g2int width, g2int height, g2int *idrstmpl, unsigned char *cpack, g2int *lcpack)
This subroutine packs up a double data field into PNG image format.
g2int discipline
Message Discipline (see Table 0.0).
g2int num_opt
(Used if numoct_opt .ne.
float * coord_list
Array containing floating point values intended to document the vertical discretisation associated to...
g2int ipdtnum
Product Definition Template Number (see Table 4.0).
int64_t g2int
Long integer type.
g2int g2_unpack3(unsigned char *cgrib, g2int *iofst, g2int **igds, g2int **igdstmpl, g2int *mapgridlen, g2int **ideflist, g2int *idefnum)
This routine unpacks Section 3 (Grid Definition Section) as defined in GRIB Edition 2.
float * fld
Array of ndpts unpacked data points.
unsigned char * local
Pointer to character array containing contents of Local Section 2, if included.
g2int idrtnum
Data Representation Template Number (see Table 5.0).
g2int num_coord
Number of values in array coord_list.
g2int expanded
Logical value indicating whether the data field was expanded to the grid in the case where a bit-map ...
g2int version
GRIB edition number (2).
g2int locallen
Length of array local.
g2int ndpts
Number of data points unpacked and returned.
g2int igdtlen
Number of elements in igdtmpl - i.e.
g2int * list_opt
(Used if numoct_opt .ne.
g2int g2_addlocal(unsigned char *cgrib, unsigned char *csec2, g2int lcsec2)
This routine adds a Local Use Section (Section 2) to a GRIB2 message.
g2int igdtnum
Grid Definition Template Number (See Table 3.1).
void jpcpack(float *fld, g2int width, g2int height, g2int *idrstmpl, unsigned char *cpack, g2int *lcpack)
This subroutine packs up a data field into a JPEG2000 code stream.
g2int * bmap
Integer array containing decoded bitmap, if ibmap=0 or ibap=254.
g2int * ipdtmpl
Contains the data values for the Product Definition Template specified by ipdtnum.
g2int idsectlen
Number of elements in idsect.
uint64_t g2intu
Unsigned long integer type.
g2int jpcunpackd(unsigned char *cpack, g2int len, g2int *idrstmpl, g2int ndpts, double *fld)
Unpack JPEG2000 compressed data into an array of doubles, using info from the GRIB2 Data Representati...
NCEPLIBS-g2c: grib2_int.h File Reference
+
+
+
+
+
+
+ NCEPLIBS-g2c
+ 1.7.0
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
Header file with internal function prototypes NCEPLIBS-g2c library.
+More...
+
#include <stdio.h>
+
#include <stdint.h>
+
#include <assert.h>
+
#include "grib2.h "
+
+
Go to the source code of this file.
+
+void cmplxpack (float *fld, g2int ndpts, g2int idrsnum, g2int *idrstmpl, unsigned char *cpack, g2int *lcpack) This subroutine packs up a data field using a complex packing algorithm as defined in the GRIB2 documention. More... void compack (float *fld, g2int ndpts, g2int idrsnum, g2int *idrstmpl, unsigned char *cpack, g2int *lcpack) This subroutine packs up a data field using a complex packing algorithm as defined in the GRIB2 documention. More... int comunpack (unsigned char *cpack, g2int lensec, g2int idrsnum, g2int *idrstmpl, g2int ndpts, float *fld) This subroutine unpacks a data field that was packed using a complex packing algorithm as defined in the GRIB2 documention, using info from the GRIB2 Data Representation Template 5.2 or Template 5.3 . More... int dec_jpeg2000 (char *injpc, g2int bufsize, g2int *outfld) This Function decodes a JPEG2000 code stream specified in the JPEG2000 Part-1 standard (i.e., ISO/IEC 15444-1) using JasPer Software . More... int dec_png (unsigned char *pngbuf, g2int *width, g2int *height, unsigned char *cout) Decode PNG. More... int enc_jpeg2000 (unsigned char *cin, g2int width, g2int height, g2int nbits, g2int ltype, g2int ratio, g2int retry, char *outjpc, g2int jpclen) This Function encodes a grayscale image into a JPEG2000 code stream specified in the JPEG2000 Part-1 standard (i.e., ISO/IEC 15444-1) using JasPer Software . More... int enc_png (unsigned char *data, g2int width, g2int height, g2int nbits, unsigned char *pngbuf) Encode PNG. More... gtemplate * extdrstemplate (g2int number, g2int *list) This subroutine generates the remaining octet map for a given Data Representation Template, if required. More... gtemplate * extgridtemplate (g2int number, g2int *list) This subroutine generates the remaining octet map for a given Grid Definition Template, if required. More... gtemplate * extpdstemplate (g2int number, g2int *list) This subroutine generates the remaining octet map for a given Product Definition Template, if required. More... int g2c_check_msg (unsigned char *cgrib, g2int *lencurr, int verbose) Check for 'GRIB' at the beginning of a GRIB message, and check to see if the message is already terminated with '7777'. More... void gbit (unsigned char *in, g2int *iout, g2int iskip, g2int nbits) Get bits - unpack bits: Extract arbitrary size values from a packed bit string, right justifying each value in the unpacked iout array. More... void gbits (unsigned char *in, g2int *iout, g2int iskip, g2int nbits, g2int nskip, g2int n) Get bits - unpack bits: Extract arbitrary size values from a packed bit string, right justifying each value in the unpacked iout array. More... g2int getdim (unsigned char *csec3, g2int *width, g2int *height, g2int *iscan) This subroutine returns the dimensions and scanning mode of a grid definition packed in GRIB2 Grid Definition Section 3 format. More... gtemplate * getdrstemplate (g2int number) This subroutine returns DRS template information for a specified Data Representation Template. More... gtemplate * getgridtemplate (g2int number) This subroutine returns grid template information for a specified Grid Definition Template for [Section 3 - the Grid Definition Section (GDS)](https://www.nco.ncep.noaa.gov/pmb/docs/grib2/grib2_doc/grib2_sect3.shtml ). More... gtemplate * getpdstemplate (g2int number) This subroutine returns PDS template information for a specified Product Definition Template. More... g2int getpoly (unsigned char *csec3, g2int *jj, g2int *kk, g2int *mm) This subroutine returns the J, K, and M pentagonal resolution parameters specified in a GRIB Grid Definition Section (GDS) used spherical harmonic coefficients using GDT 5.50 through 5.53. More... double int_power (double x, g2int y) Function similar to C pow() power function. More... void jpcpack (float *fld, g2int width, g2int height, g2int *idrstmpl, unsigned char *cpack, g2int *lcpack) This subroutine packs up a data field into a JPEG2000 code stream. More... g2int jpcunpack (unsigned char *cpack, g2int len, g2int *idrstmpl, g2int ndpts, float *fld) Unpack JPEG2000 compressed data into an array of floats, using info from the GRIB2 Data Representation Template 5.40 or 5.40000. More... void misspack (float *fld, g2int ndpts, g2int idrsnum, g2int *idrstmpl, unsigned char *cpack, g2int *lcpack) This function packs up a data field using a complex packing algorithm as defined in the GRIB2 documention. More... void mkieee (float *a, g2int *rieee, g2int num) This subroutine stores a list of real values in 32-bit IEEE floating point format. More... int pack_gp (g2int *kfildo, g2int *ic, g2int *nxy, g2int *is523, g2int *minpk, g2int *inc, g2int *missp, g2int *misss, g2int *jmin, g2int *jmax, g2int *lbit, g2int *nov, g2int *ndg, g2int *lx, g2int *ibit, g2int *jbit, g2int *kbit, g2int *novref, g2int *lbitref, g2int *ier) Determines groups of variable size, but at least of size minpk, the associated max (jmax( )) and min (jmin( )), the number of bits necessary to hold the values in each group (lbit( )), the number of values in each group (nov( )), the number of bits necessary to pack the jmin( ) values (ibit), the number of bits necessary to pack the lbit( ) values (jbit), and the number of bits necessary to pack the nov( ) values (kbit). More... void pngpack (float *fld, g2int width, g2int height, g2int *idrstmpl, unsigned char *cpack, g2int *lcpack) This subroutine packs up a float data field into PNG image format. More... g2int pngunpack (unsigned char *cpack, g2int len, g2int *idrstmpl, g2int ndpts, float *fld) This subroutine unpacks a data field that was packed into a PNG image format using info from the GRIB2 Data Representation Template 5.41 or 5.40010. More... void rdieee (g2int *rieee, float *a, g2int num) This subroutine reads a list of real values in 32-bit IEEE floating point format. More... void sbit (unsigned char *out, g2int *in, g2int iskip, g2int nbits) Store bits - put arbitrary size values into a packed bit string, taking the low order bits from each value in the unpacked array. More... void sbits (unsigned char *out, g2int *in, g2int iskip, g2int nbits, g2int nskip, g2int n) Store bits - put arbitrary size values into a packed bit string, taking the low order bits from each value in the unpacked array. More... void simpack (float *fld, g2int ndpts, g2int *idrstmpl, unsigned char *cpack, g2int *lcpack) This subroutine packs up a data field using the simple packing algorithm as defined in the GRIB2 documention. More... g2int simunpack (unsigned char *cpack, g2int *idrstmpl, g2int ndpts, float *fld) This subroutine unpacks a data field that was packed using a simple packing algorithm as defined in the GRIB2 documention, using info from the GRIB2 Data Representation Template 5.0. More... void specpack (float *fld, g2int ndpts, g2int JJ, g2int KK, g2int MM, g2int *idrstmpl, unsigned char *cpack, g2int *lcpack) This subroutine packs a spectral data field using the complex packing algorithm for spherical harmonic data as defined in the GRIB2 Data Representation Template 5.51 . More... g2int specunpack (unsigned char *cpack, g2int *idrstmpl, g2int ndpts, g2int JJ, g2int KK, g2int MM, float *fld) This subroutine unpacks a spectral data field that was packed using the complex packing algorithm for spherical harmonic data as defined in the GRIB2 documention, using info from the GRIB2 Data Representation Template 5.51 . More...
+
+
Header file with internal function prototypes NCEPLIBS-g2c library.
+
+
+
+Date Programmer Comments
+
+2021-11-08 Ed Hartnett Initial
+
+
Author Ed Hartnett
+
Date 2021-11-08
+
+
Definition in file grib2_int.h .
+
+
+
◆
+
+
+
+
Struct for GRIB template.
+
+
Definition at line 28 of file grib2_int.h .
+
+Data Fields
+g2int *
+
+ext
+
+Number of octets of each entry in the extension part of the template.
+g2int
+
+extlen
+
+Number of entries in the template extension.
+g2int *
+
+map
+
+Number of octets of each entry in the static part of the template.
+g2int
+
+maplen
+
+Number of entries in the static part of the template.
+g2int
+
+needext
+
+Indicates whether or not the template needs to be extended.
+g2int
+
+num
+
+The template number.
+g2int
+
+type
+
+The template type: 3 Grid Defintion Template. 4 Product Defintion Template. 5 Data Representation Template.
+
+
+
+
+
+
+
◆
+
+
+
+
+
+ #define ALOG2 (0.69314718)
+
+
+
+
+
+
◆
+
+
+
+
+
+ #define G2C_JASPER_JPEG_FORMAT_NAME "jpc"
+
+
+
+
+
Name of JPEG codec in Jasper.
+
+
Definition at line 23 of file grib2_int.h .
+
+
+
+
+
◆
+
+
+
+
+
+ #define LOG
+ (
+
+ e )
+
+
+
+
+
Ignore logging to stdout.
+
Library was not built with LOGGING=ON.
+
+
Definition at line 138 of file grib2_int.h .
+
+
+
+
+
+
◆
+
+
+
+
+
Struct for GRIB template.
+
+
Definition at line 56 of file grib2_int.h .
+
+
+
+
+
+
◆
+
+
+
+
+
+ void cmplxpack
+ (
+ float *
+ fld ,
+
+ g2int ndpts ,
+
+ g2int idrsnum ,
+
+ g2int * idrstmpl ,
+
+ unsigned char *
+ cpack ,
+
+ g2int * lcpack
+
+ )
+
+
+
+
+
This subroutine packs up a data field using a complex packing algorithm as defined in the GRIB2 documention.
+
It supports GRIB2 complex packing templates with or without spatial differences (i.e. DRTs 5.2 and 5.3). It also fills in GRIB2 Data Representation Template 5.2 or 5.3 with the appropriate values.
+
Parameters
+
+ fld Contains the data values to pack. ndpts The number of data values in array fld idrsnum Data Representation Template number. Must equal 2 or 3. idrstmpl Contains the array of values for Data Representation Template 5.2 or 5.3
+0 Reference value - ignored on input, set by compack routine.
+1 Binary Scale Factor
+2 Decimal Scale Factor
+6 Missing value management
+7 Primary missing value
+8 Secondary missing value
+16 Order of Spatial Differencing ( 1 or 2 )
+
+ cpack The packed data field. lcpack length of packed field cpack. Will be set to -1 if missing value management field is not 1 or 2.
+
+
+
Author Stephen Gilbert
+
Date 2004-08-27
+
+
Definition at line 36 of file cmplxpack.c .
+
+
References compack() , and misspack() .
+
+
Referenced by g2_addfield() .
+
+
+
+
+
◆
+
+
+
+
+
+ void compack
+ (
+ float *
+ fld ,
+
+ g2int ndpts ,
+
+ g2int idrsnum ,
+
+ g2int * idrstmpl ,
+
+ unsigned char *
+ cpack ,
+
+ g2int * lcpack
+
+ )
+
+
+
+
+
This subroutine packs up a data field using a complex packing algorithm as defined in the GRIB2 documention.
+
It supports GRIB2 complex packing templates with or without spatial differences (i.e. DRTs 5.2 and 5.3). It also fills in GRIB2 Data Representation Template 5.2 or Template 5.3 with the appropriate values.
+
Parameters
+
+ fld Contains the data values to pack. ndpts The number of data values in array fld. idrsnum Data Representation Template number. Must equal 2 or 3. idrstmpl Contains the array of values for Data Representation Template 5.2 or 5.3.
+0 Reference value - ignored on input, set my compack() .
+1 Binary Scale Factor
+2 Decimal Scale Factor
+6 Missing value management
+7 Primary missing value
+8 Secondary missing value
+16 Order of Spatial Differencing (1 or 2)
+
+ cpack The packed data field. lcpack length of packed field cpack.
+
+
+
Author Stephen Gilbert
+
Date 2002-11-07
+
+
Definition at line 42 of file compack.c .
+
+
References ALOG2 , int_power() , mkieee() , pack_gp() , sbit() , and sbits() .
+
+
Referenced by cmplxpack() .
+
+
+
+
+
◆
+
+
+
+
+
+ int comunpack
+ (
+ unsigned char *
+ cpack ,
+
+ g2int lensec ,
+
+ g2int idrsnum ,
+
+ g2int * idrstmpl ,
+
+ g2int ndpts ,
+
+ float *
+ fld
+
+ )
+
+
+
+
+
This subroutine unpacks a data field that was packed using a complex packing algorithm as defined in the GRIB2 documention, using info from the GRIB2 Data Representation Template 5.2 or Template 5.3 .
+
Supports GRIB2 complex packing templates with or without spatial differences (i.e. DRTs 5.2 and 5.3).
+
+
+
+Date Programmer Comments
+
+2002-10-29 Gilbert Initial
+
+2004-12-16 Gilbert Added test (from Arthur Taylor/MDL) verifying group widths/lengths
+
+
Parameters
+
+ cpack pointer to the packed data field. lensec length of section 7 (used for error checking). idrsnum Data Representation Template number. Must equal 2 or 3. idrstmpl pointer to the array of values for Data Representation Template 5.2 or 5.3 ndpts The number of data values to unpack fld Contains the unpacked data values. Must be allocated with at least ndpts * sizeof(float) bytes before calling this routine.
+
+
+
Returns 0 for success, error code otherwise.
+
Author Stephen Gilbert
+
Date 2002-10-29
+
+
Definition at line 42 of file comunpack.c .
+
+
References gbit() , gbits() , int_power() , and rdieee() .
+
+
Referenced by g2_unpack7() .
+
+
+
+
+
◆
+
+
+
+
+
+ int dec_jpeg2000
+ (
+ char *
+ injpc ,
+
+ g2int bufsize ,
+
+ g2int * outfld
+
+ )
+
+
+
+
+
This Function decodes a JPEG2000 code stream specified in the JPEG2000 Part-1 standard (i.e., ISO/IEC 15444-1) using JasPer Software .
+
+
+
+Date Programmer Comments
+
+2002-12-02 Gilbert Initial
+
+2022-04-15 Hartnett Converted to use jas_ instead of jpc_ functions.
+
+
Parameters
+
+ injpc Input JPEG2000 code stream. bufsize Length (in bytes) of the input JPEG2000 code stream. outfld Output matrix of grayscale image values.
+
+
+
Returns
+
+
Author Stephen Gilbert
+
Date 2002-12-02
+
Author Ed Hartnett
+
+
Definition at line 38 of file dec_jpeg2000.c .
+
+
References G2_JASPER_DECODE , G2_JASPER_DECODE_COLOR , G2_JASPER_INIT , and G2C_JASPER_JPEG_FORMAT_NAME .
+
+
Referenced by jpcunpack_int() .
+
+
+
+
+
◆
+
+
+
+
+
+ int dec_png
+ (
+ unsigned char *
+ pngbuf ,
+
+ g2int * width ,
+
+ g2int * height ,
+
+ unsigned char *
+ cout
+
+ )
+
+
+
+
+
Decode PNG.
+
Parameters
+
+ pngbuf Pointer to PNG buffer. width Pointer to width. height Pointer to height. cout Output buffer.
+
+
+
Returns 0 for success, error code otherwise.
+
Author Stephen Gilbert
+
+
Definition at line 61 of file dec_png.c .
+
+
References user_read_data() .
+
+
Referenced by pngunpack_int() .
+
+
+
+
+
◆
+
+
+
+
+
+ int enc_jpeg2000
+ (
+ unsigned char *
+ cin ,
+
+ g2int width ,
+
+ g2int height ,
+
+ g2int nbits ,
+
+ g2int ltype ,
+
+ g2int ratio ,
+
+ g2int retry ,
+
+ char *
+ outjpc ,
+
+ g2int jpclen
+
+ )
+
+
+
+
+
This Function encodes a grayscale image into a JPEG2000 code stream specified in the JPEG2000 Part-1 standard (i.e., ISO/IEC 15444-1) using JasPer Software .
+
+
+
+Date Programmer Comments
+
+2002-12-02 Gilbert Initial
+
+2004-12-16 Gilbert Added retry argument allowing increased guard bits.
+
+2022-04-15 Hartnett Converted to use jas_ instead of jpc_ functions.
+
+
Parameters
+
+ cin Packed matrix of Grayscale image values to encode. width width of image. height height of image. nbits depth (in bits) of image. i.e number of bits used to hold each data value. ltype indicator of lossless or lossy compression.
+1, for lossy compression
+!= 1, for lossless compression
+
+ ratio target compression ratio. (ratio:1) Used only when ltype == 1. retry If 1 try increasing number of guard bits. outjpc Output encoded JPEG2000 code stream. jpclen Number of bytes allocated for the output JPEG2000 code stream in outjpc.
+
+
+
Returns
+> 0 = Length in bytes of encoded JPEG2000 code stream
+G2_JASPER_INIT Error initializing jasper library.G2_JASPER_ENCODE Error encode jpeg2000 code stream.
+
+
Note Requires JasPer Software version 1.500.4 or 1.700.2 or later.
+
Author Stephen Gilbert
+
Date 2002-12-02
+
Author Ed Hartnett
+
+
Definition at line 51 of file enc_jpeg2000.c .
+
+
References G2_JASPER_ENCODE , G2_JASPER_INIT , G2C_JASPER_JPEG_FORMAT_NAME , and MAXOPTSSIZE .
+
+
Referenced by jpcpack_int() .
+
+
+
+
+
◆
+
+
+
+
+
+ int enc_png
+ (
+ unsigned char *
+ data ,
+
+ g2int width ,
+
+ g2int height ,
+
+ g2int nbits ,
+
+ unsigned char *
+ pngbuf
+
+ )
+
+
+
+
+
Encode PNG.
+
Parameters
+
+ data data. width width. height height. nbits number of bits. pngbuf PNG buffer.
+
+
+
Returns PNG length, or negative number for error.
+
Author Stephen Gilbert
+
+
Definition at line 75 of file enc_png.c .
+
+
References user_flush_data() , and user_write_data() .
+
+
Referenced by pngpack_int() .
+
+
+
+
+
◆
+
+
+
+
+
This subroutine generates the remaining octet map for a given Data Representation Template, if required.
+
Some Templates can vary depending on data values given in an earlier part of the Template, and it is necessary to know some of the earlier entry values to generate the full octet map of the Template.
+
Parameters
+
+ number The number of the Data Representation Template that is being requested. list The list of values for each entry in the the Data Representation Template.
+
+
+
Returns Pointer to the returned template struct. Returns NULL pointer, if template not found.
+
Author Stephen Gilbert
+
Date 2000-05-11
+
+
Definition at line 212 of file drstemplates.c .
+
+
References getdrsindex() , and getdrstemplate() .
+
+
Referenced by g2_unpack5() .
+
+
+
+
+
◆
+
+
+
+
+
This subroutine generates the remaining octet map for a given Grid Definition Template, if required.
+
Some Templates can vary depending on data values given in an earlier part of the Template, and it is necessary to know some of the earlier entry values to generate the full octet map of the Template.
+
This function allocates memory for the extension. The pointer ext in the gtemplate struct must be freed to prevent memory leaks.
+
Parameters
+
+ number The number of the Grid Definition Template that is being requested. list The list of values for each entry in the Grid Definition Template.
+
+
+
Returns Pointer to the returned template struct. Returns NULL pointer, if template not found.
+
Author Stephen Gilbert
+
Date 2000-05-09
+
+
Definition at line 229 of file gridtemplates.c .
+
+
References getgridindex() , and getgridtemplate() .
+
+
Referenced by g2_addgrid() , and g2_unpack3() .
+
+
+
+
+
◆
+
+
+
+
+
This subroutine generates the remaining octet map for a given Product Definition Template, if required.
+
Some Templates can vary depending on data values given in an earlier part of the Template, and it is necessary to know some of the earlier entry values to generate the full octet map of the Template.
+
This function allocates memory in the ext field of the gtemplate struct. This memory must be freed by the caller.
+
Parameters
+
+ number number of the Product Definition Template 4.NN that is being requested. list The list of values for each entry in the the Product Definition Template.
+
+
+
Returns Pointer to the returned template struct. Returns NULL pointer if template not found.
+
Author Stephen Gilbert
+
Date 2000-05-11
+
+
Definition at line 329 of file pdstemplates.c .
+
+
References getpdsindex() , and getpdstemplate() .
+
+
Referenced by g2_addfield() , and g2_unpack4() .
+
+
+
+
+
◆
+
+
+
+
+
+ int g2c_check_msg
+ (
+ unsigned char *
+ cgrib ,
+
+ g2int * lencurr ,
+
+ int
+ verbose
+
+ )
+
+
+
+
+
Check for 'GRIB' at the beginning of a GRIB message, and check to see if the message is already terminated with '7777'.
+
Parameters
+
+ cgrib Buffer that contains the GRIB message. lencurr Pointer that gets the length of the GRIB message. verbose If non-zero, print any error messages to stdout.
+
+
+
Returns
+
+
Author Ed Hartnett
+
Date Nov 11, 2021
+
+
Definition at line 26 of file util.c .
+
+
References G2C_MSG_COMPLETE , G2C_NO_ERROR , G2C_NOT_GRIB , and gbit() .
+
+
Referenced by g2_addfield() , g2_addgrid() , g2_addlocal() , and g2_gribend() .
+
+
+
+
+
◆
+
+
+
+
+
+ void gbit
+ (
+ unsigned char *
+ in ,
+
+ g2int * iout ,
+
+ g2int iskip ,
+
+ g2int nbits
+
+ )
+
+
+
+
+
Get bits - unpack bits: Extract arbitrary size values from a packed bit string, right justifying each value in the unpacked iout array.
+
Parameters
+
+ in pointer to character array input. iout pointer to unpacked array output. iskip initial number of bits to skip. nbits number of bits to take.
+
+
+
Author NOAA Programmer
+
+
Definition at line 20 of file gbits.c .
+
+
References gbits() .
+
+
Referenced by comunpack() , g2_addfield() , g2_addgrid() , g2_addlocal() , g2_getfld() , g2_gribend() , g2_info() , g2_unpack1() , g2_unpack2() , g2_unpack3() , g2_unpack4() , g2_unpack5() , g2_unpack6() , g2_unpack7() , g2c_check_msg() , and seekgb() .
+
+
+
+
+
◆
+
+
+
+
+
+ void gbits
+ (
+ unsigned char *
+ in ,
+
+ g2int * iout ,
+
+ g2int iskip ,
+
+ g2int nbits ,
+
+ g2int nskip ,
+
+ g2int n
+
+ )
+
+
+
+
+
Get bits - unpack bits: Extract arbitrary size values from a packed bit string, right justifying each value in the unpacked iout array.
+
Parameters
+
+ in Pointer to character array input. iout Pointer to unpacked array output. iskip Initial number of bits to skip. nbits Number of bits to take. nskip Additional number of bits to skip on each iteration. n Number of iterations.
+
+
+
Author NOAA Programmer
+
+
Definition at line 57 of file gbits.c .
+
+
Referenced by comunpack() , g2_unpack3() , g2_unpack4() , g2_unpack6() , gbit() , pngunpack_int() , simunpack() , and specunpack() .
+
+
+
+
+
◆
+
+
+
+
+
+ g2int getdim (
+ unsigned char *
+ csec3 ,
+
+ g2int * width ,
+
+ g2int * height ,
+
+ g2int * iscan
+
+ )
+
+
+
+
+
This subroutine returns the dimensions and scanning mode of a grid definition packed in GRIB2 Grid Definition Section 3 format.
+
Parameters
+
+ csec3 Character array that contains the packed GRIB2 GDS. width x (or i) dimension of the grid. 0 if grid is not recognized. height y (or j) dimension of the grid. 0 if grid is not recognized. iscan Scanning mode (see Table 3.4 ). 0 of grid not recognized.
+
+
+
Returns Always returns 0.
+
Author Stephen Gilbert
+
Date 2002-12-11
+
+
Definition at line 29 of file getdim.c .
+
+
References g2_unpack3() .
+
+
Referenced by g2_addfield() .
+
+
+
+
+
◆
+
+
+
+
+
This subroutine returns DRS template information for a specified Data Representation Template.
+
The number of entries in the template is returned along with a map of the number of octets occupied by each entry. Also, a flag is returned to indicate whether the template would need to be extended.
+
Parameters
+
+ number The number of the Data Representation Template that is being requested.
+
+
+
Returns Pointer to the returned template struct. Returns NULL if template not found.
+
Author Stephen Gilbert
+
Date 2000-05-11
+
+
Definition at line 166 of file drstemplates.c .
+
+
References getdrsindex() , and templatesdrs .
+
+
Referenced by extdrstemplate() , g2_addfield() , and g2_unpack5() .
+
+
+
+
+
◆
+
+
+
+
+
This subroutine returns grid template information for a specified Grid Definition Template for [Section 3 - the Grid Definition Section (GDS)](https://www.nco.ncep.noaa.gov/pmb/docs/grib2/grib2_doc/grib2_sect3.shtml ).
+
The number of entries in the template is returned along with a map of the number of octets occupied by each entry. Also, a flag is returned to indicate whether the template would need to be extended.
+
This function allocates storage for the template. The returned pointer must be freed by the caller.
+
Parameters
+
+ number The number of the Grid Definition Template that is being requested.
+
+
+
Returns Pointer to the returned template struct (must be freed by caller). Returns NULL pointer, if template not found.
+
Author Stephen Gilbert
+
Date 2000-05-09
+
+
Definition at line 180 of file gridtemplates.c .
+
+
References getgridindex() , and templatesgrid .
+
+
Referenced by extgridtemplate() , g2_addgrid() , and g2_unpack3() .
+
+
+
+
+
◆
+
+
+
+
+
This subroutine returns PDS template information for a specified Product Definition Template.
+
The number of entries in the template is returned along with a map of the number of octets occupied by each entry. Also, a flag is returned to indicate whether the template would need to be extended.
+
This function allocates memory for the gtemplate struct, which must be freed by the caller.
+
Parameters
+
+ number the number of the Product Definition Template that is being requested.
+
+
+
Returns Pointer to the returned template struct. Returns NULL pointer if template not found.
+
Author Stephen Gilbert
+
Date 2000-05-11
+
+
Definition at line 281 of file pdstemplates.c .
+
+
References getpdsindex() , and templatespds .
+
+
Referenced by extpdstemplate() , g2_addfield() , and g2_unpack4() .
+
+
+
+
+
◆
+
+
+
+
+
+ g2int getpoly (
+ unsigned char *
+ csec3 ,
+
+ g2int * jj ,
+
+ g2int * kk ,
+
+ g2int * mm
+
+ )
+
+
+
+
+
This subroutine returns the J, K, and M pentagonal resolution parameters specified in a GRIB Grid Definition Section (GDS) used spherical harmonic coefficients using GDT 5.50 through 5.53.
+
If 51 - complex data spectral packing is used as the data representation template number (see Table 5.0 ), then the Grid Definition Template Number in section 3 should be one of:
+50: Spherical Harmonic Coefficients (See Template 3.50)
+51: Rotated Spherical Harmonic Coefficients (See Template 3.51)
+52: Stretched Spherical Harmonic Coefficients (See Template 3.52)
+53: Rotated and Stretched Spherical Harmonic Coefficients (See Template 3.53)
+
+
Parameters
+
+ csec3 Character array that contains the packed GRIB2 GDS. jj J pentagonal resolution parameter. kk K pentagonal resolution parameter. mm M pentagonal resolution parameter.
+
+
+
Returns always returns 0.
+
Note Returns jj, kk, and mm set to zero, if grid template not recognized.
+
Author Stephen Gilbert
+
Date 2002-12-11
+
+
Definition at line 40 of file getpoly.c .
+
+
References g2_unpack3() .
+
+
Referenced by g2_addfield() .
+
+
+
+
+
◆
+
+
+
+
+
+ double int_power
+ (
+ double
+ x ,
+
+ g2int y
+
+ )
+
+
+
+
+
Function similar to C pow() power function.
+
Parameters
+
+ x The base value whose power is to be calculated. y The power value.
+
+
+
Returns x**y
+
Author Wesley Ebisuzaki
+
+
Definition at line 18 of file int_power.c .
+
+
Referenced by compack() , comunpack() , jpcpack_int() , jpcunpack_int() , misspack() , mkieee() , pngpack_int() , pngunpack_int() , rdieee() , simpack() , simunpack() , and specunpack() .
+
+
+
+
+
◆
+
+
+
+
+
+ void jpcpack
+ (
+ float *
+ fld ,
+
+ g2int width ,
+
+ g2int height ,
+
+ g2int * idrstmpl ,
+
+ unsigned char *
+ cpack ,
+
+ g2int * lcpack
+
+ )
+
+
+
+
+
This subroutine packs up a data field into a JPEG2000 code stream.
+
After the data field is scaled, and the reference value is subtracted out, it is treated as a grayscale image and passed to a JPEG2000 encoder. It also fills in GRIB2 Data Representation Template 5.40 or 5.40000 with the appropriate values.
+
Parameters
+
+ fld Pointer to the float or double data values to pack. width The number of points in the x direction. height The number of points in the y direction. idrstmpl Contains the array of values for Data Representation Template Table 5.40 or 5.40000.
+0 Reference value - ignored on input, set by jpcpack routine.
+1 Binary Scale Factor - used on input, unchanged by jpcpack routine.
+2 Decimal Scale Factor - used on input, unchanged by jpcpack routine.
+3 number of bits for each data value - ignored on input
+4 Original field type - currently ignored on input Data values assumed to be reals. Set to 0 on output.
+5 if 0 use lossless compression, if 1 use lossy compression.
+6 Desired compression ratio, if idrstmpl[5]=1. Set to 255, if idrstmpl[5]=0.
+
+ cpack A pointer that will get the packed data field. Must be allocated before this function is called. Pass the allocated size in the lcpack parameter. lcpack Pointer that gets the length of packed field in cpack. This must be set by the calling function to the size available in cpack.
+
+
+
Author Stephen Gilbert, Ed Hartnett
+
+
Definition at line 253 of file jpcpack.c .
+
+
Referenced by g2_addfield() .
+
+
+
+
+
◆
+
+
+
+
+
+ g2int jpcunpack (
+ unsigned char *
+ cpack ,
+
+ g2int len ,
+
+ g2int * idrstmpl ,
+
+ g2int ndpts ,
+
+ float *
+ fld
+
+ )
+
+
+
+
+
Unpack JPEG2000 compressed data into an array of floats, using info from the GRIB2 Data Representation Template 5.40 or 5.40000.
+
Parameters
+
+ cpack The packed data. len The length of the packed data. idrstmpl Pointer to array of values for Data Representation Template 5.40 or 5.40000. ndpts The number of data values to unpack. fld A pointer that gets the unpacked data values as an array of float.
+
+
+
Returns 0 for success, 1 for memory allocation error.
+
Author Stephem Gilbert
+
Date 2003-08-27
+
Author Ed Hartnett
+
+
Definition at line 108 of file jpcunpack.c .
+
+
Referenced by g2_unpack7() .
+
+
+
+
+
◆
+
+
+
+
+
+ void misspack
+ (
+ float *
+ fld ,
+
+ g2int ndpts ,
+
+ g2int idrsnum ,
+
+ g2int * idrstmpl ,
+
+ unsigned char *
+ cpack ,
+
+ g2int * lcpack
+
+ )
+
+
+
+
+
This function packs up a data field using a complex packing algorithm as defined in the GRIB2 documention.
+
It supports GRIB2 complex packing templates with or without spatial differences (See Template 5.2 and Template 5.3 ).
+
This function fills in GRIB2 Data Representation template arrays with the appropriate values.
+
Parameters
+
+ fld Contains the data values to pack ndpts The number of data values in array fld idrsnum Data Representation Template number. Must equal 2 or 3. idrstmpl Contains the array of values for Data Representation Template 5.2 or 5.3.
+0 Reference value - ignored on input, set by misspack routine.
+1 Binary Scale Factor - used on input.
+2 Decimal Scale Factor- used on input.
+6 Missing value management.
+7 Primary missing value.
+8 Secondary missing value.
+16 Order of Spatial Differencing (1 or 2).
+
+ cpack The packed data field (character*1 array). lcpack length of packed field cpack.
+
+
+
Author Stephen Gilbert
+
Date 2000-06-21
+
+
Definition at line 42 of file misspack.c .
+
+
References ALOG2 , int_power() , mkieee() , pack_gp() , rdieee() , sbit() , and sbits() .
+
+
Referenced by cmplxpack() .
+
+
+
+
+
◆
+
+
+
+
+
+ void mkieee
+ (
+ float *
+ a ,
+
+ g2int * rieee ,
+
+ g2int num
+
+ )
+
+
+
+
+
This subroutine stores a list of real values in 32-bit IEEE floating point format.
+
Parameters
+
+ a Input array of floating point values. num Number of floating point values to convert. rieee Output array of data values in 32-bit IEEE format stored in g2int integer array. rieee must be allocated with at least 4*num bytes of memory before calling this function.
+
+
+
Author Stephen Gilbert
+
Date 2002-10-29
+
+
Definition at line 22 of file mkieee.c .
+
+
References int_power() .
+
+
Referenced by compack() , g2_addfield() , jpcpack_int() , misspack() , pngpack_int() , simpack() , and specpack() .
+
+
+
+
+
◆
+
+
+
+
+
+ int pack_gp
+ (
+ g2int * kfildo ,
+
+ g2int * ic ,
+
+ g2int * nxy ,
+
+ g2int * is523 ,
+
+ g2int * minpk ,
+
+ g2int * inc ,
+
+ g2int * missp ,
+
+ g2int * misss ,
+
+ g2int * jmin ,
+
+ g2int * jmax ,
+
+ g2int * lbit ,
+
+ g2int * nov ,
+
+ g2int * ndg ,
+
+ g2int * lx ,
+
+ g2int * ibit ,
+
+ g2int * jbit ,
+
+ g2int * kbit ,
+
+ g2int * novref ,
+
+ g2int * lbitref ,
+
+ g2int * ier
+
+ )
+
+
+
+
+
Determines groups of variable size, but at least of size minpk, the associated max (jmax( )) and min (jmin( )), the number of bits necessary to hold the values in each group (lbit( )), the number of values in each group (nov( )), the number of bits necessary to pack the jmin( ) values (ibit), the number of bits necessary to pack the lbit( ) values (jbit), and the number of bits necessary to pack the nov( ) values (kbit).
+
The routine is designed to determine the groups such that a small number of bits is necessary to pack the data without excessive computations. If all values in the group are zero, the number of bits to use in packing is defined as zero when there can be no missing values; when there can be missing values, the number of bits must be at least 1 to have the capability to recognize the missing value. However, if all values in a group are missing, the number of bits needed is 0, and the unpacker recognizes this. All variables are g2int. Even though the groups are initially of size minpk or larger, an adjustment between two groups (the lookback procedure) may make a group smaller than minpk. The control on group size is that the sum of the sizes of the two consecutive groups, each of size minpk or larger, is not decreased. When determining the number of bits necessary for packing, the largest value that can be accommodated in, say, mbits, is 2**mbits-1; this largest value (and the next smallest value) is reserved for the missing value indicator (only) when is523 ne 0. If the dimension ndg is not large enough to hold all the groups, the local value of minpk is increased by 50 percent. This is repeated until ndg will suffice. A diagnostic is printed whenever this happens, which should be very rarely. If it happens often, ndg in subroutine pack should be increased and a corresponding increase in subroutine unpack made. Considerable code is provided so that no more checking for missing values within loops is done than necessary; the added efficiency of this is relatively minor, but does no harm. For grib2, the reference value for the length of groups in nov( ) and for the number of bits necessary to pack group values are determined, and subtracted before jbit and kbit are determined.
+
When 1 or more groups are large compared to the others, the width of all groups must be as large as the largest. A subroutine reduce breaks up large groups into 2 or more to reduce total bits required. If reduce should abort, pack_gp will be executed again without the call to reduce.
+
PROGRAM HISTORY LOG:
+February 1994 Glahn tdl mos-2000
+June 1995 Glahn modified for lmiss error.
+July 1996 Glahn added misss
+February 1997 Glahn removed 4 redundant tests for missp.eq.0; inserted a test to better handle a string of 9999's
+February 1997 Glahn added loops to eliminate test for misss when misss = 0
+March 1997 Glahn corrected for secondary missing value
+March 1997 Glahn corrected for use of local value of minpk
+March 1997 Glahn corrected for secondary missing value
+March 1997 Glahn changed calculating number of bits through exponents to an array (improved overall packing performance by about 35 percent!). allowed 0 bits for packing jmin( ), lbit( ), and nov( ).
+May 1997 Glahn a number of changes for efficiency. mod functions eliminated and one ifthen added. jount removed. recomputation of bits not made unless necessary after moving points from one group to another. nendb adjusted to eliminate possibility of very small group at the end. about 8 percent improvement in overall packing. iskipa removed; there is always a group b that can become group a. control on size of group b (statement below 150) added. added adda, and use of ge and le instead of gt and lt in loops between 150 and 160. ibitbs added to shorten trips through loop.
+March 2000 Glahn modified for grib2; changed name from packgp
+january 2001 Glahn comments; ier = 706 substituted for stops; added return1; removed statement number 110; added ier and * return
+November 2001 Glahn changed some diagnostic formats to allow printing larger numbers
+November 2001 Glahn added misslx( ) to put maximum value into jmin( ) when all values missing to agree with grib standard.
+November 2001 Glahn changed two tests on missp and misss eq 0 to tests on is523. however, missp and misss cannot in general be = 0.
+November 2001 Glahn added call to reduce; defined itest before loops to reduce computation; started large group when all same value
+December 2001 Glahn modified and added a few comments
+January 2002 Glahn removed loop before 150 to determine a group of all same value
+January 2002 Glahn changed mallow from 9999999 to 2**30+1, and made it a parameter
+March 2002 Glahn added non fatal ier = 716, 717; removed nendb=nxy above 150; added iersav=0; comments
+
+
DATA SET USE
+kfildo - unit number for output (print) file. (output)
+
+
Parameters
+
+ kfildo unit number for output (print) file. (input) ic array to hold data for packing. the values do not have to be positive at this point, but must be in the range -2**30 to +2**30 (the the value of mallow). these g2int values will be retained exactly through packing and unpacking. (input) nxy number of values in ic( ). also treated as its dimension. (input) is523 missing value management 0=data contains no missing values 1=data contains primary missing values 2=data contains primary and secondary missing values (input) minpk the minimum size of each group, except possibly the last one. (input) inc the number of values to add to an already existing group in determining whether or not to start a new group. ideally, this would be 1, but each time inc values are attempted, the max and min of the next minpk values must be found. this is "a loop within a
+loop," and a slightly larger value may give about as good results with slightly less computational time. if inc is le 0, 1 is used, and a diagnostic is output. note: it is expected that inc will equal 1. the code uses inc primarily in the loops starting at statement 180. if inc were 1, there would not need to be loops as such. however, kinc (the local value of inc) is set ge 1 when near the end of the data to forestall a very small group at the end. (input) missp when missing points can be present in the data, they will have the value missp or misss. missp is the primary missing value and misss is the secondary missing value . these must not be values that would occur with subtracting the minimum (reference) value or scaling. for example, missp = 0 would not be advisable. (input) misss secondary missing value indicator (see missp). (input) jmin the minimum of each group (j=1,lx). (output) jmax the maximum of each group (j=1,lx). this is not really needed, but since the max of each group must be found, saving it here is cheap in case the user wants it. (output) lbit the number of bits necessary to pack each group (j=1,lx). it is assumed the minimum of each group will be removed before packing, and the values to pack will, therefore, all be positive. however, ic( ) does not necessarily contain all positive values. if the overall minimum has been removed (the usual case), then ic( ) will contain only positive values. (output) nov the number of values in each group (j=1,lx). (output) ndg the dimension of jmin, jmax, lbit, and nov. (input) lx the number of groups determined. (output) ibit the number of bits necessary to pack the jmin(j) values, j=1,lx. (output) jbit the number of bits necessary to pack the lbit(j) values, j=1,lx. (output) kbit the number of bits necessary to pack the nov(j) values, j=1,lx. (output) novref reference value for nov( ). (output) lbitref reference value for lbit( ). (output) ier Error code
+0 No error.
+706 value will not pack in 30 bits–fatal
+714 error in reduce–non-fatal
+715 ngp not large enough in reduce–non-fatal
+716 minpk inceased–non-fatal
+717 inc set
+1–non-fatal
+alternate return when ier ne 0 and fatal error.
+
+
+
+
+
Returns 0 - check ier for error code. INTERNAL VARIABLES
+
+ cfeed = contains the character representation
+ of a printer form feed.
+ ifeed = contains the g2int value of a printer
+ form feed.
+ kinc = working copy of inc. may be modified.
+ mina = minimum value in group a.
+ maxa = maximum value in group a.
+ nenda = the place in ic( ) where group a ends.
+ kstart = the place in ic( ) where group a starts.
+ ibita = number of bits needed to hold values in group a.
+ minb = minimum value in group b.
+ maxb = maximum value in group b.
+ nendb = the place in ic( ) where group b ends.
+ ibitb = number of bits needed to hold values in group b.
+ minc = minimum value in group c.
+ maxc = maximum value in group c.
+ ktotal = count of number of values in ic( ) processed.
+ nount = number of values added to group a.
+ lmiss = 0 when is523 = 0. when packing into a
+ specific number of bits, say mbits,
+ the maximum value that can be handled is
+ 2**mbits-1. when is523 = 1, indicating
+ primary missing values, this maximum value
+ is reserved to hold the primary missing value
+ indicator and lmiss = 1. when is523 = 2,
+ the value just below the maximum i.e.,
+ 2**mbits-2 is reserved to hold the secondary
+ missing value indicator and lmiss = 2.
+ lminpk = local value of minpk. this will be adjusted
+ upward whenever ndg is not large enough to hold
+ all the groups.
+ mallow = the largest allowable value for packing.
+ mislla = set to 1 when all values in group a are missing.
+ this is used to distinguish between a real
+ minimum when all values are not missing
+ and a minimum that has been set to zero when
+ all values are missing. 0 otherwise.
+ note that this does not distinguish between
+ primary and secondary missings when secondary
+ missings are present. this means that
+ lbit( ) will not be zero with the resulting
+ compression efficiency when secondary missings
+ are present. also note that a check has been
+ made earlier to determine that secondary
+ missings are really there.
+ misllb = set to 1 when all values in group b are missing.
+ this is used to distinguish between a real
+ minimum when all values are not missing
+ and a minimum that has been set to zero when
+ all values are missing. 0 otherwise.
+ misllc = performs the same function for group c that
+ mislla and misllb do for groups b and c,
+ respectively.
+ ibxx2(j) = an array that when this routine is first entered
+ is set to 2**j, j=0,30. ibxx2(30) = 2**30, which
+ is the largest value packable, because 2**31
+ is larger than the g2int word size.
+ ifirst = set by data statement to 0. changed to 1 on
+ first
+ entry when ibxx2( ) is filled.
+ minak = keeps track of the location in ic( ) where the
+ minimum value in group a is located.
+ maxak = does the same as minak, except for the maximum.
+ minbk = the same as minak for group b.
+ maxbk = the same as maxak for group b.
+ minck = the same as minak for group c.
+ maxck = the same as maxak for group c.
+ adda = keeps track whether or not an attempt to add
+ points to group a was made. if so, then adda
+ keeps from trying to put one back into b.
+ (g2int)
+ ibitbs = keeps current value if ibitb so that loop
+ ending at 166 doesn't have to start at
+ ibitb = 0 every time.
+ misslx(j) = mallow except when a group is all one value (and
+ lbit(j) = 0) and that value is missing. in
+ that case, misslx(j) is missp or misss. this
+ gets inserted into jmin(j) later as the
+ missing indicator; it can't be put in until
+ the end, because jmin( ) is used to calculate
+ the maximum number of bits (ibits) needed to
+ pack jmin( ).
+
+
+
Definition at line 255 of file pack_gp.c .
+
+
References FALSE_ , reduce() , and TRUE_ .
+
+
Referenced by compack() , and misspack() .
+
+
+
+
+
◆
+
+
+
+
+
+ void pngpack
+ (
+ float *
+ fld ,
+
+ g2int width ,
+
+ g2int height ,
+
+ g2int * idrstmpl ,
+
+ unsigned char *
+ cpack ,
+
+ g2int * lcpack
+
+ )
+
+
+
+
+
This subroutine packs up a float data field into PNG image format.
+
After the data field is scaled, and the reference value is subtracted out, it is treated as a grayscale image and passed to a PNG encoder. It also fills in GRIB2 Data Representation Template 5.41 or 5.40010 with the appropriate values.
+
Parameters
+
+ fld Pointer to array of float that contains the data values to pack. width Number of points in the x direction. height Number of points in the y direction. idrstmpl Contains the array of values for Data Representation Template 5.41 or 5.40010.
+0 Reference value - ignored on input, set by pngpack routine.
+1 Binary Scale Factor - used on input.
+2 Decimal Scale Factor - used on input.
+3 number of bits for each grayscale pixel value - ignored on input.
+4 Original field type - currently ignored on input, set = 0 on output. Data values assumed to be reals.
+
+ cpack The packed data field. lcpack length of packed field cpack.
+
+
+
Author Stephen Gilbert
+
Date 2003-08-27
+
Author Ed Hartnett
+
+
Definition at line 224 of file pngpack.c .
+
+
Referenced by g2_addfield() .
+
+
+
+
+
◆
+
+
+
+
+
+ g2int pngunpack (
+ unsigned char *
+ cpack ,
+
+ g2int len ,
+
+ g2int * idrstmpl ,
+
+ g2int ndpts ,
+
+ float *
+ fld
+
+ )
+
+
+
+
+
This subroutine unpacks a data field that was packed into a PNG image format using info from the GRIB2 Data Representation Template 5.41 or 5.40010.
+
Parameters
+
+ cpack The packed data field (character*1 array). len length of packed field cpack(). idrstmpl Pointer to array of values for Data Representation Template 5.41 or 5.40010. ndpts The number of data values to unpack. fld Contains the unpacked data values.
+
+
+
Returns 0 for success, 1 for memory allocation error.
+
Author Stephen Gilbert
+
Date 2003-08-27
+
Author Ed Hartnett
+
+
Definition at line 105 of file pngunpack.c .
+
+
Referenced by g2_unpack7() .
+
+
+
+
+
◆
+
+
+
+
+
+ void rdieee
+ (
+ g2int * rieee ,
+
+ float *
+ a ,
+
+ g2int num
+
+ )
+
+
+
+
+
+
◆
+
+
+
+
+
+ void sbit
+ (
+ unsigned char *
+ out ,
+
+ g2int * in ,
+
+ g2int iskip ,
+
+ g2int nbits
+
+ )
+
+
+
+
+
Store bits - put arbitrary size values into a packed bit string, taking the low order bits from each value in the unpacked array.
+
Parameters
+
+ out Pointer to packed array output. Must be allocated large enough to hold output. in Pointer to unpacked array input. iskip Initial number of bits to skip. nbits Number of bits to pack.
+
+
+
Author NOAA Programmer
+
+
Definition at line 38 of file gbits.c .
+
+
References sbits() .
+
+
Referenced by compack() , g2_addfield() , g2_addgrid() , g2_addlocal() , g2_create() , g2_gribend() , misspack() , and simpack() .
+
+
+
+
+
◆
+
+
+
+
+
+ void sbits
+ (
+ unsigned char *
+ out ,
+
+ g2int * in ,
+
+ g2int iskip ,
+
+ g2int nbits ,
+
+ g2int nskip ,
+
+ g2int n
+
+ )
+
+
+
+
+
Store bits - put arbitrary size values into a packed bit string, taking the low order bits from each value in the unpacked array.
+
Parameters
+
+ out Pointer to packed array output. Must be allocated large enough to hold output. in Pointer to unpacked array input. iskip Initial number of bits to skip. nbits Number of bits to pack. nskip Additional number of bits to skip on each iteration. n Number of iterations.
+
+
+
Author NOAA Programmer
+
+
Definition at line 114 of file gbits.c .
+
+
Referenced by compack() , g2_addfield() , g2_addgrid() , jpcpack_int() , misspack() , pngpack_int() , sbit() , and simpack() .
+
+
+
+
+
◆
+
+
+
+
+
+ void simpack
+ (
+ float *
+ fld ,
+
+ g2int ndpts ,
+
+ g2int * idrstmpl ,
+
+ unsigned char *
+ cpack ,
+
+ g2int * lcpack
+
+ )
+
+
+
+
+
This subroutine packs up a data field using the simple packing algorithm as defined in the GRIB2 documention.
+
It also fills in GRIB2 Data Representation Template 5.0 with the appropriate values.
+
Parameters
+
+ fld Contains the data values to pack. ndpts The number of data values in array fld. idrstmpl Contains the array of values for [Data Representation Template 5.0](https://www.nco.ncep.noaa.gov/pmb/docs/grib2/grib2_doc/grib2_temp5-0.shtml ).
+0 Reference value - ignored on input - set by simpack routine.
+1 Binary Scale Factor - unchanged from input.
+2 Decimal Scale Factor - unchanged from input.
+3 Number of bits used to pack data, if value is > 0 and <= 31. If this input value is 0 or outside above range then the num of bits is calculated based on given data and scale factors.
+4 Original field type - currently ignored on input. Data values assumed to be reals. Set to 0 by simpack routine.
+
+ cpack The packed data field lcpack length of packed field starting at cpack.
+
+
+
Author Stephen Gilbert
+
Date 2002-11-06
+
+
Definition at line 34 of file simpack.c .
+
+
References ALOG2 , int_power() , mkieee() , sbit() , and sbits() .
+
+
Referenced by g2_addfield() , and specpack() .
+
+
+
+
+
◆
+
+
+
+
+
+ g2int simunpack (
+ unsigned char *
+ cpack ,
+
+ g2int * idrstmpl ,
+
+ g2int ndpts ,
+
+ float *
+ fld
+
+ )
+
+
+
+
+
This subroutine unpacks a data field that was packed using a simple packing algorithm as defined in the GRIB2 documention, using info from the GRIB2 Data Representation Template 5.0.
+
Parameters
+
+ cpack pointer to the packed data field. idrstmpl pointer to the array of values for Data Representation Template 5.0. ndpts The number of data values to unpack. fld Contains the unpacked data values. fld must be `* allocated with at least ndpts * sizeof(float) bytes before calling this routine.
+
+
+
Returns 0 for success, error code otherwise.
+
Author Stephen Gilbert
+
Date 2002-10-29
+
+
Definition at line 26 of file simunpack.c .
+
+
References G2_JPCUNPACK_MEM , G2_NO_ERROR , gbits() , int_power() , and rdieee() .
+
+
Referenced by g2_unpack7() .
+
+
+
+
+
◆
+
+
+
+
+
+ void specpack
+ (
+ float *
+ fld ,
+
+ g2int ndpts ,
+
+ g2int JJ ,
+
+ g2int KK ,
+
+ g2int MM ,
+
+ g2int * idrstmpl ,
+
+ unsigned char *
+ cpack ,
+
+ g2int * lcpack
+
+ )
+
+
+
+
+
This subroutine packs a spectral data field using the complex packing algorithm for spherical harmonic data as defined in the GRIB2 Data Representation Template 5.51 .
+
Parameters
+
+ fld Contains the data values to be packed. ndpts The number of data values to pack. JJ J - pentagonal resolution parameter. KK K - pentagonal resolution parameter. MM M - pentagonal resolution parameter. idrstmpl Contains the array of 10 values for [Data Representation Template 5.51](https://www.nco.ncep.noaa.gov/pmb/docs/grib2/grib2_doc/grib2_temp5-51.shtml ). cpack Pointer that gets the packed data field. Must be allocated by caller. lcpack length of packed field cpack.
+
+
+
Author Stephen Gilbert
+
Date 2002-12-19
+
+
Definition at line 33 of file specpack.c .
+
+
References mkieee() , and simpack() .
+
+
Referenced by g2_addfield() .
+
+
+
+
+
◆
+
+
+
+
+
+ g2int specunpack (
+ unsigned char *
+ cpack ,
+
+ g2int * idrstmpl ,
+
+ g2int ndpts ,
+
+ g2int JJ ,
+
+ g2int KK ,
+
+ g2int MM ,
+
+ float *
+ fld
+
+ )
+
+
+
+
+
This subroutine unpacks a spectral data field that was packed using the complex packing algorithm for spherical harmonic data as defined in the GRIB2 documention, using info from the GRIB2 Data Representation Template 5.51 .
+
Parameters
+
+ cpack pointer to the packed data field. idrstmpl pointer to the array of values for Data Representation Template 5.51. ndpts The number of data values to unpack (real and imaginary parts). JJ pentagonal resolution parameter. KK pentagonal resolution parameter. MM pentagonal resolution parameter. fld Contains the unpacked data values. fld must be allocated with at least ndpts * sizeof(float) bytes before calling this routine.
+
+
+
Returns 0 for success, -3 for wrong type.
+
Author Stephen Gilbert
+
Date 2000-06-21
+
+
Definition at line 35 of file specunpack.c .
+
+
References G2_NO_ERROR , G2_SPECUNPACK_TYPE , gbits() , int_power() , and rdieee() .
+
+
Referenced by g2_unpack7() .
+
+
+
+
+
NCEPLIBS-g2c: grib2_int.h Source File
+
+
+
+
+
+
+ NCEPLIBS-g2c
+ 1.7.0
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
Go to the documentation of this file.
+
+
+
+
+
+
+
+
+
21 #define ALOG2 (0.69314718)
+
23 #define G2C_JASPER_JPEG_FORMAT_NAME "jpc"
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
73 unsigned char *cpack,
g2int *lcpack);
+
+
+
+
77 unsigned char *cpack,
g2int *lcpack);
+
+
+
+
81 unsigned char *cpack,
g2int *lcpack);
+
+
83 unsigned char *cpack,
g2int *lcpack);
+
+
+
86 g2int *idrstmpl,
unsigned char *cpack,
g2int *lcpack);
+
+
+
+
+
+
92 unsigned char *pngbuf);
+
+
+
+
96 unsigned char *cpack,
g2int *lcpack);
+
+
+
+
+
+
+
+
104 unsigned char *cpack,
g2int *lcpack);
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
130 void g2_log(
int severity,
const char *fmt, ...);
+
+
133 #define LOG(e) g2_log e
+
+
+
+
+
+
+
+
+
+
gtemplate * extpdstemplate(g2int number, g2int *list)
This subroutine generates the remaining octet map for a given Product Definition Template,...
g2int * ext
Number of octets of each entry in the extension part of the template.
int comunpack(unsigned char *cpack, g2int lensec, g2int idrsnum, g2int *idrstmpl, g2int ndpts, float *fld)
This subroutine unpacks a data field that was packed using a complex packing algorithm as defined in ...
void sbits(unsigned char *out, g2int *in, g2int iskip, g2int nbits, g2int nskip, g2int n)
Store bits - put arbitrary size values into a packed bit string, taking the low order bits from each ...
gtemplate * getdrstemplate(g2int number)
This subroutine returns DRS template information for a specified Data Representation Template.
g2int type
The template type: 3 Grid Defintion Template.
gtemplate * extdrstemplate(g2int number, g2int *list)
This subroutine generates the remaining octet map for a given Data Representation Template,...
void rdieee(g2int *rieee, float *a, g2int num)
This subroutine reads a list of real values in 32-bit IEEE floating point format.
int dec_png(unsigned char *pngbuf, g2int *width, g2int *height, unsigned char *cout)
Decode PNG.
void jpcpack(float *fld, g2int width, g2int height, g2int *idrstmpl, unsigned char *cpack, g2int *lcpack)
This subroutine packs up a data field into a JPEG2000 code stream.
g2int needext
Indicates whether or not the template needs to be extended.
void sbit(unsigned char *out, g2int *in, g2int iskip, g2int nbits)
Store bits - put arbitrary size values into a packed bit string, taking the low order bits from each ...
gtemplate * extgridtemplate(g2int number, g2int *list)
This subroutine generates the remaining octet map for a given Grid Definition Template,...
double int_power(double x, g2int y)
Function similar to C pow() power function.
g2int maplen
Number of entries in the static part of the template.
int enc_png(unsigned char *data, g2int width, g2int height, g2int nbits, unsigned char *pngbuf)
Encode PNG.
void gbits(unsigned char *in, g2int *iout, g2int iskip, g2int nbits, g2int nskip, g2int n)
Get bits - unpack bits: Extract arbitrary size values from a packed bit string, right justifying each...
gtemplate * getgridtemplate(g2int number)
This subroutine returns grid template information for a specified Grid Definition Template for [Secti...
g2int jpcunpack(unsigned char *cpack, g2int len, g2int *idrstmpl, g2int ndpts, float *fld)
Unpack JPEG2000 compressed data into an array of floats, using info from the GRIB2 Data Representatio...
g2int * map
Number of octets of each entry in the static part of the template.
void mkieee(float *a, g2int *rieee, g2int num)
This subroutine stores a list of real values in 32-bit IEEE floating point format.
void compack(float *fld, g2int ndpts, g2int idrsnum, g2int *idrstmpl, unsigned char *cpack, g2int *lcpack)
This subroutine packs up a data field using a complex packing algorithm as defined in the GRIB2 docum...
int pack_gp(g2int *kfildo, g2int *ic, g2int *nxy, g2int *is523, g2int *minpk, g2int *inc, g2int *missp, g2int *misss, g2int *jmin, g2int *jmax, g2int *lbit, g2int *nov, g2int *ndg, g2int *lx, g2int *ibit, g2int *jbit, g2int *kbit, g2int *novref, g2int *lbitref, g2int *ier)
Determines groups of variable size, but at least of size minpk, the associated max (jmax( )) and min ...
gtemplate * getpdstemplate(g2int number)
This subroutine returns PDS template information for a specified Product Definition Template.
Header file for NCEPLIBS-g2c library.
g2int getdim(unsigned char *csec3, g2int *width, g2int *height, g2int *iscan)
This subroutine returns the dimensions and scanning mode of a grid definition packed in GRIB2 Grid De...
int64_t g2int
Long integer type.
g2int num
The template number.
void specpack(float *fld, g2int ndpts, g2int JJ, g2int KK, g2int MM, g2int *idrstmpl, unsigned char *cpack, g2int *lcpack)
This subroutine packs a spectral data field using the complex packing algorithm for spherical harmoni...
g2int pngunpack(unsigned char *cpack, g2int len, g2int *idrstmpl, g2int ndpts, float *fld)
This subroutine unpacks a data field that was packed into a PNG image format using info from the GRIB...
g2int simunpack(unsigned char *cpack, g2int *idrstmpl, g2int ndpts, float *fld)
This subroutine unpacks a data field that was packed using a simple packing algorithm as defined in t...
void gbit(unsigned char *in, g2int *iout, g2int iskip, g2int nbits)
Get bits - unpack bits: Extract arbitrary size values from a packed bit string, right justifying each...
g2int extlen
Number of entries in the template extension.
void simpack(float *fld, g2int ndpts, g2int *idrstmpl, unsigned char *cpack, g2int *lcpack)
This subroutine packs up a data field using the simple packing algorithm as defined in the GRIB2 docu...
g2int specunpack(unsigned char *cpack, g2int *idrstmpl, g2int ndpts, g2int JJ, g2int KK, g2int MM, float *fld)
This subroutine unpacks a spectral data field that was packed using the complex packing algorithm for...
void misspack(float *fld, g2int ndpts, g2int idrsnum, g2int *idrstmpl, unsigned char *cpack, g2int *lcpack)
This function packs up a data field using a complex packing algorithm as defined in the GRIB2 documen...
int dec_jpeg2000(char *injpc, g2int bufsize, g2int *outfld)
This Function decodes a JPEG2000 code stream specified in the JPEG2000 Part-1 standard (i....
void pngpack(float *fld, g2int width, g2int height, g2int *idrstmpl, unsigned char *cpack, g2int *lcpack)
This subroutine packs up a float data field into PNG image format.
void cmplxpack(float *fld, g2int ndpts, g2int idrsnum, g2int *idrstmpl, unsigned char *cpack, g2int *lcpack)
This subroutine packs up a data field using a complex packing algorithm as defined in the GRIB2 docum...
g2int getpoly(unsigned char *csec3, g2int *jj, g2int *kk, g2int *mm)
This subroutine returns the J, K, and M pentagonal resolution parameters specified in a GRIB Grid Def...
Struct for GRIB template.
int g2c_check_msg(unsigned char *cgrib, g2int *lencurr, int verbose)
Check for 'GRIB' at the beginning of a GRIB message, and check to see if the message is already termi...
int enc_jpeg2000(unsigned char *cin, g2int width, g2int height, g2int nbits, g2int ltype, g2int ratio, g2int retry, char *outjpc, g2int jpclen)
This Function encodes a grayscale image into a JPEG2000 code stream specified in the JPEG2000 Part-1 ...
NCEPLIBS-g2c: gridtemplates.c File Reference
+
+
+
+
+
+
+ NCEPLIBS-g2c
+ 1.7.0
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
Returns grid template information for a specified Grid Definition Template for Section 3 - the Grid Definition Section (GDS).
+More...
+
#include <stdlib.h>
+
#include "grib2_int.h "
+
+
Go to the source code of this file.
+
+
+
Returns grid template information for a specified Grid Definition Template for Section 3 - the Grid Definition Section (GDS).
+
Each Template has three parts:
+The number of entries in the template (mapgridlen).
+A map of the template (mapgrid), which contains the number of octets in which to pack each of the template values.
+A logical value (needext) that indicates whether the Template needs to be extended.
+
+
In some cases the number of entries in a template can vary depending upon values specified in the "static" part of the template. (See Template 3.120 as an example).
+
Note Array mapgrid contains the number of octets in which the corresponding template values will be stored. A negative value in mapgrid is used to indicate that the corresponding template entry can contain negative values. This information is used later when packing (or unpacking) the template data values. Negative data values in GRIB are stored with the left most bit set to one, and a negative number of octets value in mapgrid indicates that this possibility should be considered. The number of octets used to store the data value in this case would be the absolute value of the negative value in mapgrid.
+
+
+
+Date Programmer Comments
+
+2001-06-28 Gilbert Initial
+
+2007-08-16 Vuong Added GDT 3.204 Curvilinear Orthogonal Grid
+
+2008-07-08 Vuong Added GDT 3.32768 Rotate Lat/Lon E-grid (Arakawa)
+
+2009-01-14 Vuong Changed structure name template to gtemplate
+
+2010-05-11 Vuong Added GDT 3.32769 Rotate Lat/Lon Non-E Staggered grid (Arakawa)
+
+2013-08-06 Vuong Added GDT 3.4, 3.5, 3.12, 3.101, 3.140
+
+
Author Stephen Gilbert
+
Date 2001-06-28
+
+
Definition in file gridtemplates.c .
+
+
+
◆
+
+
+
+
+
+ #define MAXGRIDMAPLEN 200
+
+
+
+
+
Maximum template map length.
+
+
Definition at line 43 of file gridtemplates.c .
+
+
+
+
+
◆
+
+
+
+
+
+ #define MAXGRIDTEMP 31
+
+
+
+
+
Maximum number of templates.
+
+
Definition at line 42 of file gridtemplates.c .
+
+
+
+
+
+
◆
+
+
+
+
+
This subroutine generates the remaining octet map for a given Grid Definition Template, if required.
+
Some Templates can vary depending on data values given in an earlier part of the Template, and it is necessary to know some of the earlier entry values to generate the full octet map of the Template.
+
This function allocates memory for the extension. The pointer ext in the gtemplate struct must be freed to prevent memory leaks.
+
Parameters
+
+ number The number of the Grid Definition Template that is being requested. list The list of values for each entry in the Grid Definition Template.
+
+
+
Returns Pointer to the returned template struct. Returns NULL pointer, if template not found.
+
Author Stephen Gilbert
+
Date 2000-05-09
+
+
Definition at line 229 of file gridtemplates.c .
+
+
References getgridindex() , and getgridtemplate() .
+
+
Referenced by g2_addgrid() , and g2_unpack3() .
+
+
+
+
+
◆
+
+
+
+
+
+
+
+
+ static g2int getgridindex
+ (
+ g2int number )
+
+
+
+
+static
+
+
+
+
+
+
◆
+
+
+
+
+
This subroutine returns grid template information for a specified Grid Definition Template for [Section 3 - the Grid Definition Section (GDS)](https://www.nco.ncep.noaa.gov/pmb/docs/grib2/grib2_doc/grib2_sect3.shtml ).
+
The number of entries in the template is returned along with a map of the number of octets occupied by each entry. Also, a flag is returned to indicate whether the template would need to be extended.
+
This function allocates storage for the template. The returned pointer must be freed by the caller.
+
Parameters
+
+ number The number of the Grid Definition Template that is being requested.
+
+
+
Returns Pointer to the returned template struct (must be freed by caller). Returns NULL pointer, if template not found.
+
Author Stephen Gilbert
+
Date 2000-05-09
+
+
Definition at line 180 of file gridtemplates.c .
+
+
References getgridindex() , and templatesgrid .
+
+
Referenced by extgridtemplate() , g2_addgrid() , and g2_unpack3() .
+
+
+
+
+
+
◆
+
+
+
+
+
+
+
+
+ const struct gridtemplate templatesgrid[MAXGRIDTEMP ]
+
+
+
+
+static
+
+
+
+
+
+
NCEPLIBS-g2c: gridtemplates.c Source File
+
+
+
+
+
+
+ NCEPLIBS-g2c
+ 1.7.0
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
Go to the documentation of this file.
+
+
+
42 #define MAXGRIDTEMP 31
+
43 #define MAXGRIDMAPLEN 200
+
+
+
+
+
+
+
+
+
+
+
+
62 { 0, 19, 0, {1,1,4,1,4,1,4,4,4,4,4,-4,4,1,-4,4,4,4,1} },
+
+
64 { 1, 22, 0, {1,1,4,1,4,1,4,4,4,4,4,-4,4,1,-4,4,4,4,1,-4,4,4} },
+
+
66 { 2, 22, 0, {1,1,4,1,4,1,4,4,4,4,4,-4,4,1,-4,4,4,4,1,-4,4,-4} },
+
+
68 { 3, 25, 0, {1,1,4,1,4,1,4,4,4,4,4,-4,4,1,-4,4,4,4,1,-4,4,4,-4,4,-4} },
+
+
+
71 { 4, 13, 1, {1,1,4,1,4,1,4,4,4,4,4,1,1} },
+
+
73 { 5, 16, 1, {1,1,4,1,4,1,4,4,4,4,4,1,1,-4,4,4} },
+
+
75 {12, 22, 0, {1,1,4,1,4,1,4,4,4,-4,4,1,-4,4,4,1,4,4,-4,-4,-4,-4} },
+
+
77 {101, 4, 0, {1,4,1,-4} },
+
+
79 {140, 17, 0, {1,1,4,1,4,1,4,4,4,-4,4,4,4,1,4,4,1} },
+
+
+
82 {10, 19, 0, {1,1,4,1,4,1,4,4,4,-4,4,1,-4,-4,4,1,4,4,4} },
+
+
84 {20, 18, 0, {1,1,4,1,4,1,4,4,4,-4,4,1,-4,4,4,4,1,1} },
+
+
86 {30, 22, 0, {1,1,4,1,4,1,4,4,4,-4,4,1,-4,4,4,4,1,1,-4,-4,-4,4} },
+
+
88 {31, 22, 0, {1,1,4,1,4,1,4,4,4,-4,4,1,-4,4,4,4,1,1,-4,-4,-4,4} },
+
+
90 {40, 19, 0, {1,1,4,1,4,1,4,4,4,4,4,-4,4,1,-4,4,4,4,1} },
+
+
92 {41, 22, 0, {1,1,4,1,4,1,4,4,4,4,4,-4,4,1,-4,4,4,4,1,-4,4,4} },
+
+
94 {42, 22, 0, {1,1,4,1,4,1,4,4,4,4,4,-4,4,1,-4,4,4,4,1,-4,4,-4} },
+
+
96 {43, 25, 0, {1,1,4,1,4,1,4,4,4,4,4,-4,4,1,-4,4,4,4,1,-4,4,4,-4,4,-4} },
+
+
98 {50, 5, 0, {4,4,4,1,1} },
+
+
100 {51, 8, 0, {4,4,4,1,1,-4,4,4} },
+
+
102 {52, 8, 0, {4,4,4,1,1,-4,4,-4} },
+
+
104 {53, 11, 0, {4,4,4,1,1,-4,4,4,-4,4,-4} },
+
+
106 {90, 21, 0, {1,1,4,1,4,1,4,4,4,-4,4,1,4,4,4,4,1,4,4,4,4} },
+
+
108 {100, 11, 0, {1,1,2,1,-4,4,4,1,1,1,4} },
+
+
110 {110, 16, 0, {1,1,4,1,4,1,4,4,4,-4,4,1,4,4,1,1} },
+
+
112 {120, 7, 1, {4,4,-4,4,4,4,1} },
+
+
114 {204, 19, 0, {1,1,4,1,4,1,4,4,4,4,4,-4,4,1,-4,4,4,4,1} },
+
+
116 {32768, 19, 0, {1,1,4,1,4,1,4,4,4,4,4,-4,4,1,-4,4,4,4,1} },
+
+
118 {32769, 21, 0, {1,1,4,1,4,1,4,4,4,4,4,-4,4,1,-4,4,4,4,1,4,4} },
+
+
120 {1000, 20, 1, {1,1,4,1,4,1,4,4,4,4,-4,4,1,4,4,1,2,1,1,2} },
+
+
122 {1100, 28, 0, {1,1,4,1,4,1,4,4,4,4,-4,4,1,-4,4,1,4,1,-4,1,1,-4,2,1,1,1,1,1} },
+
+
124 {1200, 16, 1, {4,1,-4,1,1,-4,2,1,1,1,1,1,2,1,1,2} }
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
201 printf(
"getgridtemplate: GDT Template 3.%d not defined.\n" , (
int )number);
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
245 new ->extlen = list[1] * 2;
+
246 new ->ext = malloc(
sizeof (
g2int ) * new->extlen);
+
247 for (i = 0; i <
new ->extlen; i++)
+
+
+
+
+
+
+
+
255 else if (number == 4)
+
+
257 new ->extlen = list[7];
+
258 new ->ext = malloc(
sizeof (
g2int ) * new->extlen);
+
259 for (i = 0; i <
new ->extlen; i++)
+
+
+
+
263 new ->extlen = list[8];
+
264 new ->ext = malloc(
sizeof (
g2int ) * new->extlen);
+
265 for (i = 0; i <
new ->extlen; i++)
+
+
+
+
+
270 else if (number == 5)
+
+
272 new ->extlen = list[7];
+
273 new ->ext = malloc(
sizeof (
g2int ) * new->extlen);
+
274 for (i = 0; i <
new ->extlen; i++)
+
+
+
+
278 new ->extlen = list[8];
+
279 new ->ext = malloc(
sizeof (
g2int ) * new->extlen);
+
280 for (i = 0; i <
new ->extlen; i++)
+
+
+
+
+
285 else if (number == 1000)
+
+
287 new ->extlen = list[19];
+
288 new ->ext = malloc(
sizeof (
g2int ) * new->extlen);
+
289 for (i = 0; i <
new ->extlen; i++)
+
+
+
+
+
294 else if (number == 1200)
+
+
296 new ->extlen = list[15];
+
297 new ->ext = malloc(
sizeof (
g2int ) * new->extlen);
+
298 for (i = 0; i <
new ->extlen; i++)
+
+
+
+
+
+
+
+
+
gtemplate * extgridtemplate(g2int number, g2int *list)
This subroutine generates the remaining octet map for a given Grid Definition Template,...
g2int needext
Indicates whether or not the template needs to be extended.
Header file with internal function prototypes NCEPLIBS-g2c library.
#define MAXGRIDMAPLEN
Maximum template map length.
static const struct gridtemplate templatesgrid[MAXGRIDTEMP]
Templates grid.
int64_t g2int
Long integer type.
#define MAXGRIDTEMP
Maximum number of templates.
static g2int getgridindex(g2int number)
This function returns the index of specified Grid Definition Template in array templates for [Section...
gtemplate * getgridtemplate(g2int number)
This subroutine returns grid template information for a specified Grid Definition Template for [Secti...
Struct for GRIB template.
NCEPLIBS-g2c: gridtemplates.h File Reference
+
+
+
+
+
+
+ NCEPLIBS-g2c
+ 1.6.4
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
This header file contains info on all the available GRIB2 Grid Definition Templates used in Section 3 (GDS).
+More...
+
+
Go to the source code of this file.
+
+
+
This header file contains info on all the available GRIB2 Grid Definition Templates used in Section 3 (GDS).
+
Each Template has three parts:
+The number of entries in the template (mapgridlen).
+A map of the template (mapgrid), which contains the number of octets in which to pack each of the template values.
+A logical value (needext) that indicates whether the Template needs to be extended.
+
+
In some cases the number of entries in a template can vary depending upon values specified in the "static" part of the template. (See Template 3.120 as an example).
+
Note Array mapgrid contains the number of octets in which the corresponding template values will be stored. A negative value in mapgrid is used to indicate that the corresponding template entry can contain negative values. This information is used later when packing (or unpacking) the template data values. Negative data values in GRIB are stored with the left most bit set to one, and a negative number of octets value in mapgrid indicates that this possibility should be considered. The number of octets used to store the data value in this case would be the absolute value of the negative value in mapgrid.
+
+
+
+Date Programmer Comments
+
+2001-10-26 Gilbert Initial
+
+2007-08-16 Vuong Added GDT 3.204 Curvilinear Orthogonal Grid
+
+2008-07-08 Vuong Added GDT 3.32768 Rot Lat/Lon E-grid (Arakawa)
+
+2010-05-11 Vuong Added GDT 3.32769 Rotate Lat/Lon Non-E Staggered grid (Arakawa)
+
+2013-08-06 Vuong Added GDT 3.4, 3.5, 3.12, 3.101, 3.140
+
+
Author Stephen Gilbert
+
Date 2001-10-26
+
+
Definition in file gridtemplates.h .
+
+
+
◆
+
+
+
+
+
+ struct gridtemplate
+
+
+
+
Struct for grid template.
+
+
Definition at line 49 of file gridtemplates.h .
+
+Data Fields
+g2int
+
+mapgrid[MAXGRIDMAPLEN ]
+
+Number of bytes for each template value.
+g2int
+
+mapgridlen
+
+The number of entries in the template.
+g2int
+
+needext
+
+Does template need extension?
+g2int
+
+template_num
+
+Template number.
+
+
+
+
+
+
◆
+
+
+
+
+
+ #define MAXGRIDMAPLEN 200
+
+
+
+
+
Maximum template map length.
+
+
Definition at line 44 of file gridtemplates.h .
+
+
+
+
+
◆
+
+
+
+
+
+ #define MAXGRIDTEMP 31
+
+
+
+
+
Maximum number of templates.
+
+
Definition at line 43 of file gridtemplates.h .
+
+
+
+
+
+
◆
+
+
+
+
NCEPLIBS-g2c: gridtemplates.h Source File
+
+
+
+
+
+
+ NCEPLIBS-g2c
+ 1.6.4
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
Go to the documentation of this file.
+
39 #ifndef _gridtemplates_H
+
40 #define _gridtemplates_H
+
+
+
43 #define MAXGRIDTEMP 31
+
44 #define MAXGRIDMAPLEN 200
+
+
+
+
+
+
+
+
+
+
+
+
63 { 0, 19, 0, {1,1,4,1,4,1,4,4,4,4,4,-4,4,1,-4,4,4,4,1} },
+
+
65 { 1, 22, 0, {1,1,4,1,4,1,4,4,4,4,4,-4,4,1,-4,4,4,4,1,-4,4,4} },
+
+
67 { 2, 22, 0, {1,1,4,1,4,1,4,4,4,4,4,-4,4,1,-4,4,4,4,1,-4,4,-4} },
+
+
69 { 3, 25, 0, {1,1,4,1,4,1,4,4,4,4,4,-4,4,1,-4,4,4,4,1,-4,4,4,-4,4,-4} },
+
+
+
72 { 4, 13, 1, {1,1,4,1,4,1,4,4,4,4,4,1,1} },
+
+
74 { 5, 16, 1, {1,1,4,1,4,1,4,4,4,4,4,1,1,-4,4,4} },
+
+
76 {12, 22, 0, {1,1,4,1,4,1,4,4,4,-4,4,1,-4,4,4,1,4,4,-4,-4,-4,-4} },
+
+
78 {101, 4, 0, {1,4,1,-4} },
+
+
80 {140, 17, 0, {1,1,4,1,4,1,4,4,4,-4,4,4,4,1,4,4,1} },
+
+
+
83 {10, 19, 0, {1,1,4,1,4,1,4,4,4,-4,4,1,-4,-4,4,1,4,4,4} },
+
+
85 {20, 18, 0, {1,1,4,1,4,1,4,4,4,-4,4,1,-4,4,4,4,1,1} },
+
+
87 {30, 22, 0, {1,1,4,1,4,1,4,4,4,-4,4,1,-4,4,4,4,1,1,-4,-4,-4,4} },
+
+
89 {31, 22, 0, {1,1,4,1,4,1,4,4,4,-4,4,1,-4,4,4,4,1,1,-4,-4,-4,4} },
+
+
91 {40, 19, 0, {1,1,4,1,4,1,4,4,4,4,4,-4,4,1,-4,4,4,4,1} },
+
+
93 {41, 22, 0, {1,1,4,1,4,1,4,4,4,4,4,-4,4,1,-4,4,4,4,1,-4,4,4} },
+
+
95 {42, 22, 0, {1,1,4,1,4,1,4,4,4,4,4,-4,4,1,-4,4,4,4,1,-4,4,-4} },
+
+
97 {43, 25, 0, {1,1,4,1,4,1,4,4,4,4,4,-4,4,1,-4,4,4,4,1,-4,4,4,-4,4,-4} },
+
+
99 {50, 5, 0, {4,4,4,1,1} },
+
+
101 {51, 8, 0, {4,4,4,1,1,-4,4,4} },
+
+
103 {52, 8, 0, {4,4,4,1,1,-4,4,-4} },
+
+
105 {53, 11, 0, {4,4,4,1,1,-4,4,4,-4,4,-4} },
+
+
107 {90, 21, 0, {1,1,4,1,4,1,4,4,4,-4,4,1,4,4,4,4,1,4,4,4,4} },
+
+
109 {100, 11, 0, {1,1,2,1,-4,4,4,1,1,1,4} },
+
+
111 {110, 16, 0, {1,1,4,1,4,1,4,4,4,-4,4,1,4,4,1,1} },
+
+
113 {120, 7, 1, {4,4,-4,4,4,4,1} },
+
+
115 {204, 19, 0, {1,1,4,1,4,1,4,4,4,4,4,-4,4,1,-4,4,4,4,1} },
+
+
117 {32768, 19, 0, {1,1,4,1,4,1,4,4,4,4,4,-4,4,1,-4,4,4,4,1} },
+
+
119 {32769, 21, 0, {1,1,4,1,4,1,4,4,4,4,4,-4,4,1,-4,4,4,4,1,4,4} },
+
+
121 {1000, 20, 1, {1,1,4,1,4,1,4,4,4,4,-4,4,1,4,4,1,2,1,1,2} },
+
+
123 {1100, 28, 0, {1,1,4,1,4,1,4,4,4,4,-4,4,1,-4,4,1,4,1,-4,1,1,-4,2,1,1,1,1,1} },
+
+
125 {1200, 16, 1, {4,1,-4,1,1,-4,2,1,1,1,1,1,2,1,1,2} }
+
+
+
+
Header file for NCEPLIBS-g2c library.
+
int64_t g2int
Long integer type.
+
g2int template_num
Template number.
+
#define MAXGRIDTEMP
Maximum number of templates.
+
g2int needext
Does template need extension?
+
g2int mapgridlen
The number of entries in the template.
+
#define MAXGRIDMAPLEN
Maximum template map length.
+
g2int mapgrid[MAXGRIDMAPLEN]
Number of bytes for each template value.
+
const struct gridtemplate templatesgrid[MAXGRIDTEMP]
Templates grid.
+
Struct for grid template.
+
+
NCEPLIBS-g2c: Main Page
+
+
+
+
+
+
+ NCEPLIBS-g2c
+ 1.7.0
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
This document briefly describes the routines available for encoding/decoding GRIB Edition 2 (GRIB2) messages with the NCEPLIBS-g2c library.
+
A GRIB Edition 2 message is a machine independent format for storing one or more gridded data fields. Each GRIB2 message consists of the following sections:
+
+SECTION 0 - Indicator Section
+SECTION 1 - Identification Section
+SECTION 2 - (Local Use Section) - optional }
+SECTION 3 - Grid Definition Section } }
+SECTION 4 - Product Definition Section } } }(repeated)
+SECTION 5 - Data Representation Section } }(repeated) }
+SECTION 6 - Bit-map Section }(repeated) } }
+SECTION 7 - Data Section } } }
+SECTION 8 - End Section } } }
+ Sequences of GRIB sections 2 to 7, 3 to 7, or sections 4 to 7 may be repeated within a single GRIB message. All sections within such repeated sequences must be present and shall appear in the numerical order noted above. Unrepeated sections remain in effect until redefined.
+
For detailed information on GRIB2 see the NCEP WMO GRIB2 Documentation .
+
+
Since a GRIB2 message can contain gridded fields for many parameters on a number of different grids, several routines are used to encode a message. This should give users more flexibility in how to organize data within one or more GRIB2 messages.
+
To start a new GRIB2 message, call function g2_create() . It encodes Sections 0 and 1 at the beginning of the message. This routine must be used to create each message.
+
Function g2_addlocal() can be used to add a Local Use Section (Section 2). Note that section is optional and need not appear in a GRIB2 message.
+
Function g2_addgrid() is used to encode a grid definition into Section 3 - The Grid Definition Section. This grid definition defines the geometry of the the data values in the fields that follow it. Function addgrid() can be called again to change the grid definition describing subsequent data fields.
+
Each data field is added to the GRIB2 message using routine g2_addfield() , which adds Sections 4, 5, 6, and 7 to the message.
+
After all desired data fields have been added to the GRIB2 message, a call to routine g2_gribend() is needed to add the final section 8 to the message and to update the length of the message. A call to g2_gribend() is required for each GRIB2 message.
+
+
Function g2_info() can be used to find out how many Local Use sections and data fields are contained in a given GRIB2 message. In addition, this routine also returns the number of octets of the largest Local Use section in the message.
+
g2_getfld() can be used to get all information pertaining to the nth data field in the message. An option exists that lets the user decide if the function should unpack the Bit-map (if applicable) and the data values or just return the field description information.
+
+
Function g2_info() can be used to find out how many Local Use sections and data fields are contained in a given GRIB2 message.
+
+
NCO Provides documentation on WMO GRIB2 at https://www.nco.ncep.noaa.gov/pmb/docs/grib2/grib2_doc/
+
WMO's GRIB2 specification "FM 92-XII GRIB - General
+Regularly-distributed Information in Binary Form" contains descriptions of each template and code table information. This document can be found at https://codes.wmo.int/grib2/_codeflag (PDF and MSWord formats are available).
+
+
+
NCEPLIBS-g2c: int_power.c File Reference
+
+
+
+
+
+
+ NCEPLIBS-g2c
+ 1.7.0
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
Provide function similar to C pow() power function.
+More...
+
+
Go to the source code of this file.
+
+
+
Provide function similar to C pow() power function.
+
Author Wesley Ebisuzaki
+
+
Definition in file int_power.c .
+
+
+
◆
+
+
+
+
+
+ double int_power
+ (
+ double
+ x ,
+
+ g2int y
+
+ )
+
+
+
+
+
Function similar to C pow() power function.
+
Parameters
+
+ x The base value whose power is to be calculated. y The power value.
+
+
+
Returns x**y
+
Author Wesley Ebisuzaki
+
+
Definition at line 18 of file int_power.c .
+
+
Referenced by compack() , comunpack() , jpcpack_int() , jpcunpack_int() , misspack() , mkieee() , pngpack_int() , pngunpack_int() , rdieee() , simpack() , simunpack() , and specunpack() .
+
+
+
+
+
NCEPLIBS-g2c: int_power.c Source File
+
+
+
+
+
+
+ NCEPLIBS-g2c
+ 1.7.0
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
Go to the documentation of this file.
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
double int_power(double x, g2int y)
Function similar to C pow() power function.
Header file with internal function prototypes NCEPLIBS-g2c library.
int64_t g2int
Long integer type.
NCEPLIBS-g2c: jpcpack.c File Reference
+
+
+
+
+
+
+ NCEPLIBS-g2c
+ 1.7.0
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
Pack up a data field into a JPEG2000 code stream.
+More...
+
#include <stdlib.h>
+
#include <math.h>
+
#include "grib2_int.h "
+
+
Go to the source code of this file.
+
+void jpcpack (float *fld, g2int width, g2int height, g2int *idrstmpl, unsigned char *cpack, g2int *lcpack) This subroutine packs up a data field into a JPEG2000 code stream. More... static void jpcpack_int (void *fld, int fld_is_double, g2int width, g2int height, g2int *idrstmpl, unsigned char *cpack, g2int *lcpack) This subroutine packs up a float or double array into a JPEG2000 code stream. More... void jpcpackd (double *fld, g2int width, g2int height, g2int *idrstmpl, unsigned char *cpack, g2int *lcpack) This subroutine packs up a data field into a JPEG2000 code stream. More...
+
+
Pack up a data field into a JPEG2000 code stream.
+
Author Stephen Gilbert
+
Date 2003-08-17
+
+
+
+Date Programmer Comments
+
+2003-08-17 Gilbert Initial.
+
+2004-11-92 Gilbert Fixed bug packing a near constant field.
+
+2004-07-19 Gilbert If jpeg2000 encoding fails, try again with different encoder options.
+
+2005-05-10 Gilbert Imposed minimum size on cpack.
+
+2022-08-12 Hartnett Now handle doubles too.
+
+
+
Definition in file jpcpack.c .
+
+
+
◆
+
+
+
+
+
+ void jpcpack
+ (
+ float *
+ fld ,
+
+ g2int width ,
+
+ g2int height ,
+
+ g2int * idrstmpl ,
+
+ unsigned char *
+ cpack ,
+
+ g2int * lcpack
+
+ )
+
+
+
+
+
This subroutine packs up a data field into a JPEG2000 code stream.
+
After the data field is scaled, and the reference value is subtracted out, it is treated as a grayscale image and passed to a JPEG2000 encoder. It also fills in GRIB2 Data Representation Template 5.40 or 5.40000 with the appropriate values.
+
Parameters
+
+ fld Pointer to the float or double data values to pack. width The number of points in the x direction. height The number of points in the y direction. idrstmpl Contains the array of values for Data Representation Template Table 5.40 or 5.40000.
+0 Reference value - ignored on input, set by jpcpack routine.
+1 Binary Scale Factor - used on input, unchanged by jpcpack routine.
+2 Decimal Scale Factor - used on input, unchanged by jpcpack routine.
+3 number of bits for each data value - ignored on input
+4 Original field type - currently ignored on input Data values assumed to be reals. Set to 0 on output.
+5 if 0 use lossless compression, if 1 use lossy compression.
+6 Desired compression ratio, if idrstmpl[5]=1. Set to 255, if idrstmpl[5]=0.
+
+ cpack A pointer that will get the packed data field. Must be allocated before this function is called. Pass the allocated size in the lcpack parameter. lcpack Pointer that gets the length of packed field in cpack. This must be set by the calling function to the size available in cpack.
+
+
+
Author Stephen Gilbert, Ed Hartnett
+
+
Definition at line 253 of file jpcpack.c .
+
+
References jpcpack_int() .
+
+
Referenced by g2_addfield() .
+
+
+
+
+
◆
+
+
+
+
+
+
+
+
+ static void jpcpack_int
+ (
+ void *
+ fld ,
+
+ int
+ fld_is_double ,
+
+ g2int width ,
+
+ g2int height ,
+
+ g2int * idrstmpl ,
+
+ unsigned char *
+ cpack ,
+
+ g2int * lcpack
+
+ )
+
+
+
+
+static
+
+
+
+
+
This subroutine packs up a float or double array into a JPEG2000 code stream.
+
After the data field is scaled, and the reference value is subtracted out, it is treated as a grayscale image and passed to a JPEG2000 encoder. It also fills in GRIB2 Data Representation Template 5.40 or 5.40000 with the appropriate values.
+
Parameters
+
+ fld Pointer to the float or double data values to pack. fld_is_double If non-zero, then fld points to array of doubles, otherwise an array of floats. width The number of points in the x direction. height The number of points in the y direction. idrstmpl Contains the array of values for Data Representation Template Table 5.40 or 5.40000.
+0 Reference value - ignored on input, set by jpcpack routine.
+1 Binary Scale Factor - used on input, unchanged by jpcpack routine.
+2 Decimal Scale Factor - used on input, unchanged by jpcpack routine.
+3 number of bits for each data value - ignored on input
+4 Original field type - currently ignored on input Data values assumed to be reals. Set to 0 on output.
+5 if 0 use lossless compression, if 1 use lossy compression.
+6 Desired compression ratio, if idrstmpl[5]=1. Set to 255, if idrstmpl[5]=0.
+
+ cpack A pointer that will get the packed data field. Must be allocated before this function is called. Pass the allocated size in the lcpack parameter. lcpack Pointer that gets the length of packed field in cpack. This must be set by the calling function to the size available in cpack.
+
+
+
Returns N/A
+
Author Stephen Gilbert, Ed Hartnett
+
+
Definition at line 57 of file jpcpack.c .
+
+
References ALOG2 , enc_jpeg2000() , int_power() , LOG , mkieee() , and sbits() .
+
+
Referenced by jpcpack() , and jpcpackd() .
+
+
+
+
+
◆
+
+
+
+
+
+ void jpcpackd
+ (
+ double *
+ fld ,
+
+ g2int width ,
+
+ g2int height ,
+
+ g2int * idrstmpl ,
+
+ unsigned char *
+ cpack ,
+
+ g2int * lcpack
+
+ )
+
+
+
+
+
This subroutine packs up a data field into a JPEG2000 code stream.
+
After the data field is scaled, and the reference value is subtracted out, it is treated as a grayscale image and passed to a JPEG2000 encoder. It also fills in GRIB2 Data Representation Template 5.40 or 5.40000 with the appropriate values.
+
Parameters
+
+ fld Pointer to the float or double data values to pack. width The number of points in the x direction. height The number of points in the y direction. idrstmpl Contains the array of values for Data Representation Template Table 5.40 or 5.40000.
+0 Reference value - ignored on input, set by jpcpack routine.
+1 Binary Scale Factor - used on input, unchanged by jpcpack routine.
+2 Decimal Scale Factor - used on input, unchanged by jpcpack routine.
+3 number of bits for each data value - ignored on input
+4 Original field type - currently ignored on input Data values assumed to be reals. Set to 0 on output.
+5 if 0 use lossless compression, if 1 use lossy compression.
+6 Desired compression ratio, if idrstmpl[5]=1. Set to 255, if idrstmpl[5]=0.
+
+ cpack A pointer that will get the packed data field. Must be allocated before this function is called. Pass the allocated size in the lcpack parameter. lcpack Pointer that gets the length of packed field in cpack. This must be set by the calling function to the size available in cpack.
+
+
+
Author Ed Hartnett
+
+
Definition at line 294 of file jpcpack.c .
+
+
References jpcpack_int() .
+
+
+
+
+
NCEPLIBS-g2c: jpcpack.c Source File
+
+
+
+
+
+
+ NCEPLIBS-g2c
+ 1.7.0
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
Go to the documentation of this file.
+
+
+
+
+
+
+
58 unsigned char *cpack,
g2int *lcpack)
+
+
+
61 static float alog2 =
ALOG2 ;
+
62 g2int j, nbits, imin, imax, maxdif;
+
63 g2int ndpts, nbytes, nsize, retry;
+
64 float bscale, dscale, rmax, rmin, temp;
+
+
+
+
+
+
70 LOG ((2,
"jpcpack_int() fld_is_double %d width %ld height %ld idrstmpl[1] %ld *lcpack %ld" ,
+
71 fld_is_double, width, height, idrstmpl[1], *lcpack));
+
+
73 ndpts = width * height;
+
+
+
76 LOG ((3,
"ndpts %ld bscale %g dscale %g" , ndpts, bscale, dscale));
+
+
+
+
+
+
+
+
+
85 for (j = 1; j < ndpts; j++)
+
+
+
+
+
+
+
+
93 maxdif = (
g2int )(rint(rmaxd * dscale) - rint(rmind * dscale));
+
+
95 maxdif = (
g2int )rint((rmaxd - rmind) * dscale * bscale);
+
+
+
+
99 for (j = 1; j < ndpts; j++)
+
+
+
+
+
+
+
106 if (idrstmpl[1] == 0)
+
107 maxdif = (
g2int )(rint(rmax * dscale) - rint(rmin * dscale));
+
+
109 maxdif = (
g2int )rint((rmax - rmin) * dscale * bscale);
+
+
111 LOG ((3,
"rmax %g rmaxd %g rmin %g rmind %g" , rmax, rmaxd, rmin, rmind));
+
+
+
+
+
116 if (((fld_is_double && rmind != rmaxd) || (!fld_is_double && rmin != rmax)) && maxdif != 0)
+
+
118 ifld = malloc(ndpts *
sizeof (
g2int ));
+
+
+
+
122 if (idrstmpl[1] == 0)
+
+
+
+
126 imin = (
g2int )rint((fld_is_double ? rmind : rmin) * dscale);
+
127 imax = (
g2int )rint((fld_is_double ? rmaxd : rmax) * dscale);
+
128 maxdif = imax - imin;
+
129 temp = log((
double )(maxdif + 1)) / alog2;
+
130 nbits = (
g2int )ceil(temp);
+
+
+
+
+
135 for (j = 0; j < ndpts; j++)
+
136 ifld[j] = (
g2int )rint(dfld[j] * dscale) - imin;
+
+
+
+
+
141 for (j = 0; j < ndpts; j++)
+
142 ifld[j] = (
g2int )rint(ffld[j] * dscale) - imin;
+
+
+
+
+
+
+
+
+
151 rmind = rmind * dscale;
+
152 rmaxd = rmaxd * dscale;
+
153 maxdif = (
g2int )rint((rmaxd - rmind) * bscale);
+
+
+
+
157 rmin = rmin * dscale;
+
158 rmax = rmax * dscale;
+
159 maxdif = (
g2int )rint((rmax - rmin) * bscale);
+
+
+
162 temp = log((
double )(maxdif + 1)) / alog2;
+
163 nbits = (
g2int )ceil(temp);
+
+
+
+
167 for (j = 0; j < ndpts; j++)
+
168 ifld[j] = (
g2int )rint(((dfld[j] * dscale) - rmind) * bscale);
+
+
+
+
172 for (j = 0; j < ndpts; j++)
+
173 ifld[j] = (
g2int )rint(((ffld[j] * dscale) - rmin) * bscale);
+
+
+
+
+
+
+
180 nbytes = (nbits + 7) / 8;
+
+
182 ctemp = calloc(ndpts, nbytes);
+
183 sbits (ctemp, ifld, 0, nbytes * 8, 0, ndpts);
+
+
185 idrstmpl[6], retry, (
char *)cpack, nsize)) <= 0)
+
+
187 printf(
"jpcpack: ERROR Packing JPC = %d\n" , (
int )*lcpack);
+
+
+
+
+
192 idrstmpl[6], retry, (
char *)cpack, nsize)) <= 0)
+
193 printf(
"jpcpack: Retry Failed.\n" );
+
+
195 printf(
"jpcpack: Retry Successful.\n" );
+
+
+
+
+
+
+
+
+
+
+
+
+
+
209 mkieee (&rmin, idrstmpl, 1);
+
+
+
212 if (idrstmpl[5] == 0)
+
+
+
+
+
+
+
+
254 unsigned char *cpack,
g2int *lcpack)
+
+
256 jpcpack_int (fld, 0, width, height, idrstmpl, cpack, lcpack);
+
+
+
+
+
295 unsigned char *cpack,
g2int *lcpack)
+
+
297 jpcpack_int (fld, 1, width, height, idrstmpl, cpack, lcpack);
+
+
+
static void jpcpack_int(void *fld, int fld_is_double, g2int width, g2int height, g2int *idrstmpl, unsigned char *cpack, g2int *lcpack)
This subroutine packs up a float or double array into a JPEG2000 code stream.
double int_power(double x, g2int y)
Function similar to C pow() power function.
#define LOG(e)
Ignore logging to stdout.
Header file with internal function prototypes NCEPLIBS-g2c library.
void sbits(unsigned char *out, g2int *in, g2int iskip, g2int nbits, g2int nskip, g2int n)
Store bits - put arbitrary size values into a packed bit string, taking the low order bits from each ...
void mkieee(float *a, g2int *rieee, g2int num)
This subroutine stores a list of real values in 32-bit IEEE floating point format.
int64_t g2int
Long integer type.
int enc_jpeg2000(unsigned char *cin, g2int width, g2int height, g2int nbits, g2int ltype, g2int ratio, g2int retry, char *outjpc, g2int jpclen)
This Function encodes a grayscale image into a JPEG2000 code stream specified in the JPEG2000 Part-1 ...
void jpcpackd(double *fld, g2int width, g2int height, g2int *idrstmpl, unsigned char *cpack, g2int *lcpack)
This subroutine packs up a data field into a JPEG2000 code stream.
void jpcpack(float *fld, g2int width, g2int height, g2int *idrstmpl, unsigned char *cpack, g2int *lcpack)
This subroutine packs up a data field into a JPEG2000 code stream.
NCEPLIBS-g2c: jpcunpack.c File Reference
+
+
+
+
+
+
+ NCEPLIBS-g2c
+ 1.7.0
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
Unpack a data field that was packed into a JPEG2000 code stream.
+More...
+
#include <stdio.h>
+
#include <stdlib.h>
+
#include "grib2_int.h "
+
+
Go to the source code of this file.
+
+g2int jpcunpack (unsigned char *cpack, g2int len, g2int *idrstmpl, g2int ndpts, float *fld) Unpack JPEG2000 compressed data into an array of floats, using info from the GRIB2 Data Representation Template 5.40 or 5.40000. More... static g2int jpcunpack_int (unsigned char *cpack, g2int len, g2int *idrstmpl, g2int ndpts, void *fld, int fld_is_double) Unpack JPEG2000 compressed data into an array of floats, using info from the GRIB2 Data Representation Template 5.40 or 5.40000. More... g2int jpcunpackd (unsigned char *cpack, g2int len, g2int *idrstmpl, g2int ndpts, double *fld) Unpack JPEG2000 compressed data into an array of doubles, using info from the GRIB2 Data Representation Template 5.40 or 5.40000. More...
+
+
Unpack a data field that was packed into a JPEG2000 code stream.
+
Author Stephem Gilbert
+
Date 2003-08-27
+
+
Definition in file jpcunpack.c .
+
+
+
◆
+
+
+
+
+
+ g2int jpcunpack (
+ unsigned char *
+ cpack ,
+
+ g2int len ,
+
+ g2int * idrstmpl ,
+
+ g2int ndpts ,
+
+ float *
+ fld
+
+ )
+
+
+
+
+
Unpack JPEG2000 compressed data into an array of floats, using info from the GRIB2 Data Representation Template 5.40 or 5.40000.
+
Parameters
+
+ cpack The packed data. len The length of the packed data. idrstmpl Pointer to array of values for Data Representation Template 5.40 or 5.40000. ndpts The number of data values to unpack. fld A pointer that gets the unpacked data values as an array of float.
+
+
+
Returns 0 for success, 1 for memory allocation error.
+
Author Stephem Gilbert
+
Date 2003-08-27
+
Author Ed Hartnett
+
+
Definition at line 108 of file jpcunpack.c .
+
+
References jpcunpack_int() .
+
+
Referenced by g2_unpack7() .
+
+
+
+
+
◆
+
+
+
+
+
+
+
+
+ static g2int jpcunpack_int
+ (
+ unsigned char *
+ cpack ,
+
+ g2int len ,
+
+ g2int * idrstmpl ,
+
+ g2int ndpts ,
+
+ void *
+ fld ,
+
+ int
+ fld_is_double
+
+ )
+
+
+
+
+static
+
+
+
+
+
Unpack JPEG2000 compressed data into an array of floats, using info from the GRIB2 Data Representation Template 5.40 or 5.40000.
+
Parameters
+
+ cpack The packed data. len The length of the packed data. idrstmpl Pointer to array of values for Data Representation Template 5.40 or 5.40000. ndpts The number of data values to unpack. fld A pointer that gets the unpacked data values. fld_is_double Non-zero if the data are to be unpacked into a double array, otherwise data will be unpacked into a float array.
+
+
+
Returns 0 for success, 1 for memory allocation error.
+
Author Stephem Gilbert
+
Date 2003-08-27
+
Author Ed Hartnett
+
+
Definition at line 33 of file jpcunpack.c .
+
+
References dec_jpeg2000() , G2_JPCUNPACK_MEM , G2_NO_ERROR , int_power() , and rdieee() .
+
+
Referenced by jpcunpack() , and jpcunpackd() .
+
+
+
+
+
◆
+
+
+
+
+
+ g2int jpcunpackd (
+ unsigned char *
+ cpack ,
+
+ g2int len ,
+
+ g2int * idrstmpl ,
+
+ g2int ndpts ,
+
+ double *
+ fld
+
+ )
+
+
+
+
+
Unpack JPEG2000 compressed data into an array of doubles, using info from the GRIB2 Data Representation Template 5.40 or 5.40000.
+
Parameters
+
+ cpack The packed data. len The length of the packed data. idrstmpl Pointer to array of values for Data Representation Template 5.40 or 5.40000. ndpts The number of data values to unpack. fld A pointer that gets the unpacked data values as an array of double.
+
+
+
Returns 0 for success, 1 for memory allocation error.
+
Author Ed Hartnett
+
Date 2022-08-12
+
+
Definition at line 135 of file jpcunpack.c .
+
+
References jpcunpack_int() .
+
+
+
+
+
NCEPLIBS-g2c: jpcunpack.c Source File
+
+
+
+
+
+
+ NCEPLIBS-g2c
+ 1.7.0
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
Go to the documentation of this file.
+
+
+
+
+
+
+
34 void *fld,
int fld_is_double)
+
+
+
+
38 float ref, bscale, dscale;
+
+
+
+
+
+
+
+
+
+
+
+
+
51 if (!(ifld = calloc(ndpts,
sizeof (
g2int ))))
+
+
53 fprintf(stderr,
"Could not allocate space in jpcunpack.\n Data field NOT upacked.\n" );
+
+
+
+
+
+
59 for (j = 0; j < ndpts; j++)
+
60 dfld[j] = (((
float )ifld[j] * bscale) + ref) * dscale;
+
+
+
+
64 for (j = 0; j < ndpts; j++)
+
65 ffld[j] = (((
float )ifld[j] * bscale) + ref) * dscale;
+
+
+
+
+
+
+
+
73 for (j = 0; j < ndpts; j++)
+
+
+
+
+
78 for (j = 0; j < ndpts; j++)
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
static g2int jpcunpack_int(unsigned char *cpack, g2int len, g2int *idrstmpl, g2int ndpts, void *fld, int fld_is_double)
Unpack JPEG2000 compressed data into an array of floats, using info from the GRIB2 Data Representatio...
#define G2_NO_ERROR
Function succeeded.
void rdieee(g2int *rieee, float *a, g2int num)
This subroutine reads a list of real values in 32-bit IEEE floating point format.
double int_power(double x, g2int y)
Function similar to C pow() power function.
g2int jpcunpackd(unsigned char *cpack, g2int len, g2int *idrstmpl, g2int ndpts, double *fld)
Unpack JPEG2000 compressed data into an array of doubles, using info from the GRIB2 Data Representati...
Header file with internal function prototypes NCEPLIBS-g2c library.
int dec_jpeg2000(char *injpc, g2int bufsize, g2int *outfld)
This Function decodes a JPEG2000 code stream specified in the JPEG2000 Part-1 standard (i....
int64_t g2int
Long integer type.
#define G2_JPCUNPACK_MEM
In jpcunpack() or other unpack function: out of memory.
g2int jpcunpack(unsigned char *cpack, g2int len, g2int *idrstmpl, g2int ndpts, float *fld)
Unpack JPEG2000 compressed data into an array of floats, using info from the GRIB2 Data Representatio...
+~]|"+M+")"+M+"*"),U=new RegExp(M+"|>"),X=new RegExp($),V=new RegExp("^"+I+"$"),G={ID:new RegExp("^#("+I+")"),CLASS:new RegExp("^\\.("+I+")"),TAG:new RegExp("^("+I+"|[*])"),ATTR:new RegExp("^"+W),PSEUDO:new RegExp("^"+$),CHILD:new RegExp("^:(only|first|last|nth|nth-last)-(child|of-type)(?:\\("+M+"*(even|odd|(([+-]|)(\\d*)n|)"+M+"*(?:([+-]|)"+M+"*(\\d+)|))"+M+"*\\)|)","i"),bool:new RegExp("^(?:"+R+")$","i"),needsContext:new RegExp("^"+M+"*[>+~]|:(even|odd|eq|gt|lt|nth|first|last)(?:\\("+M+"*((?:-\\d)?\\d*)"+M+"*\\)|)(?=[^-]|$)","i")},Y=/HTML$/i,Q=/^(?:input|select|textarea|button)$/i,J=/^h\d$/i,K=/^[^{]+\{\s*\[native \w/,Z=/^(?:#([\w-]+)|(\w+)|\.([\w-]+))$/,ee=/[+~]/,te=new RegExp("\\\\([\\da-f]{1,6}"+M+"?|("+M+")|.)","ig"),ne=function(e,t,n){var r="0x"+t-65536;return r!=r||n?t:r<0?String.fromCharCode(r+65536):String.fromCharCode(r>>10|55296,1023&r|56320)},re=/([\0-\x1f\x7f]|^-?\d)|^-$|[^\0-\x1f\x7f-\uFFFF\w-]/g,ie=function(e,t){return t?"\0"===e?"\ufffd":e.slice(0,-1)+"\\"+e.charCodeAt(e.length-1).toString(16)+" ":"\\"+e},oe=function(){T()},ae=be(function(e){return!0===e.disabled&&"fieldset"===e.nodeName.toLowerCase()},{dir:"parentNode",next:"legend"});try{H.apply(t=O.call(m.childNodes),m.childNodes),t[m.childNodes.length].nodeType}catch(e){H={apply:t.length?function(e,t){L.apply(e,O.call(t))}:function(e,t){var n=e.length,r=0;while(e[n++]=t[r++]);e.length=n-1}}}function se(t,e,n,r){var i,o,a,s,u,l,c,f=e&&e.ownerDocument,p=e?e.nodeType:9;if(n=n||[],"string"!=typeof t||!t||1!==p&&9!==p&&11!==p)return n;if(!r&&((e?e.ownerDocument||e:m)!==C&&T(e),e=e||C,E)){if(11!==p&&(u=Z.exec(t)))if(i=u[1]){if(9===p){if(!(a=e.getElementById(i)))return n;if(a.id===i)return n.push(a),n}else if(f&&(a=f.getElementById(i))&&y(e,a)&&a.id===i)return n.push(a),n}else{if(u[2])return H.apply(n,e.getElementsByTagName(t)),n;if((i=u[3])&&d.getElementsByClassName&&e.getElementsByClassName)return H.apply(n,e.getElementsByClassName(i)),n}if(d.qsa&&!A[t+" "]&&(!v||!v.test(t))&&(1!==p||"object"!==e.nodeName.toLowerCase())){if(c=t,f=e,1===p&&U.test(t)){(s=e.getAttribute("id"))?s=s.replace(re,ie):e.setAttribute("id",s=k),o=(l=h(t)).length;while(o--)l[o]="#"+s+" "+xe(l[o]);c=l.join(","),f=ee.test(t)&&ye(e.parentNode)||e}try{return H.apply(n,f.querySelectorAll(c)),n}catch(e){A(t,!0)}finally{s===k&&e.removeAttribute("id")}}}return g(t.replace(B,"$1"),e,n,r)}function ue(){var r=[];return function e(t,n){return r.push(t+" ")>b.cacheLength&&delete e[r.shift()],e[t+" "]=n}}function le(e){return e[k]=!0,e}function ce(e){var t=C.createElement("fieldset");try{return!!e(t)}catch(e){return!1}finally{t.parentNode&&t.parentNode.removeChild(t),t=null}}function fe(e,t){var n=e.split("|"),r=n.length;while(r--)b.attrHandle[n[r]]=t}function pe(e,t){var n=t&&e,r=n&&1===e.nodeType&&1===t.nodeType&&e.sourceIndex-t.sourceIndex;if(r)return r;if(n)while(n=n.nextSibling)if(n===t)return-1;return e?1:-1}function de(t){return function(e){return"input"===e.nodeName.toLowerCase()&&e.type===t}}function he(n){return function(e){var t=e.nodeName.toLowerCase();return("input"===t||"button"===t)&&e.type===n}}function ge(t){return function(e){return"form"in e?e.parentNode&&!1===e.disabled?"label"in e?"label"in e.parentNode?e.parentNode.disabled===t:e.disabled===t:e.isDisabled===t||e.isDisabled!==!t&&ae(e)===t:e.disabled===t:"label"in e&&e.disabled===t}}function ve(a){return le(function(o){return o=+o,le(function(e,t){var n,r=a([],e.length,o),i=r.length;while(i--)e[n=r[i]]&&(e[n]=!(t[n]=e[n]))})})}function ye(e){return e&&"undefined"!=typeof e.getElementsByTagName&&e}for(e in d=se.support={},i=se.isXML=function(e){var t=e.namespaceURI,n=(e.ownerDocument||e).documentElement;return!Y.test(t||n&&n.nodeName||"HTML")},T=se.setDocument=function(e){var t,n,r=e?e.ownerDocument||e:m;return r!==C&&9===r.nodeType&&r.documentElement&&(a=(C=r).documentElement,E=!i(C),m!==C&&(n=C.defaultView)&&n.top!==n&&(n.addEventListener?n.addEventListener("unload",oe,!1):n.attachEvent&&n.attachEvent("onunload",oe)),d.attributes=ce(function(e){return e.className="i",!e.getAttribute("className")}),d.getElementsByTagName=ce(function(e){return e.appendChild(C.createComment("")),!e.getElementsByTagName("*").length}),d.getElementsByClassName=K.test(C.getElementsByClassName),d.getById=ce(function(e){return a.appendChild(e).id=k,!C.getElementsByName||!C.getElementsByName(k).length}),d.getById?(b.filter.ID=function(e){var t=e.replace(te,ne);return function(e){return e.getAttribute("id")===t}},b.find.ID=function(e,t){if("undefined"!=typeof t.getElementById&&E){var n=t.getElementById(e);return n?[n]:[]}}):(b.filter.ID=function(e){var n=e.replace(te,ne);return function(e){var t="undefined"!=typeof e.getAttributeNode&&e.getAttributeNode("id");return t&&t.value===n}},b.find.ID=function(e,t){if("undefined"!=typeof t.getElementById&&E){var n,r,i,o=t.getElementById(e);if(o){if((n=o.getAttributeNode("id"))&&n.value===e)return[o];i=t.getElementsByName(e),r=0;while(o=i[r++])if((n=o.getAttributeNode("id"))&&n.value===e)return[o]}return[]}}),b.find.TAG=d.getElementsByTagName?function(e,t){return"undefined"!=typeof t.getElementsByTagName?t.getElementsByTagName(e):d.qsa?t.querySelectorAll(e):void 0}:function(e,t){var n,r=[],i=0,o=t.getElementsByTagName(e);if("*"===e){while(n=o[i++])1===n.nodeType&&r.push(n);return r}return o},b.find.CLASS=d.getElementsByClassName&&function(e,t){if("undefined"!=typeof t.getElementsByClassName&&E)return t.getElementsByClassName(e)},s=[],v=[],(d.qsa=K.test(C.querySelectorAll))&&(ce(function(e){a.appendChild(e).innerHTML="":{dir:"parentNode",first:!0}," ":{dir:"parentNode"},"+":{dir:"previousSibling",first:!0},"~":{dir:"previousSibling"}},preFilter:{ATTR:function(e){return e[1]=e[1].replace(te,ne),e[3]=(e[3]||e[4]||e[5]||"").replace(te,ne),"~="===e[2]&&(e[3]=" "+e[3]+" "),e.slice(0,4)},CHILD:function(e){return e[1]=e[1].toLowerCase(),"nth"===e[1].slice(0,3)?(e[3]||se.error(e[0]),e[4]=+(e[4]?e[5]+(e[6]||1):2*("even"===e[3]||"odd"===e[3])),e[5]=+(e[7]+e[8]||"odd"===e[3])):e[3]&&se.error(e[0]),e},PSEUDO:function(e){var t,n=!e[6]&&e[2];return G.CHILD.test(e[0])?null:(e[3]?e[2]=e[4]||e[5]||"":n&&X.test(n)&&(t=h(n,!0))&&(t=n.indexOf(")",n.length-t)-n.length)&&(e[0]=e[0].slice(0,t),e[2]=n.slice(0,t)),e.slice(0,3))}},filter:{TAG:function(e){var t=e.replace(te,ne).toLowerCase();return"*"===e?function(){return!0}:function(e){return e.nodeName&&e.nodeName.toLowerCase()===t}},CLASS:function(e){var t=p[e+" "];return t||(t=new RegExp("(^|"+M+")"+e+"("+M+"|$)"))&&p(e,function(e){return t.test("string"==typeof e.className&&e.className||"undefined"!=typeof e.getAttribute&&e.getAttribute("class")||"")})},ATTR:function(n,r,i){return function(e){var t=se.attr(e,n);return null==t?"!="===r:!r||(t+="","="===r?t===i:"!="===r?t!==i:"^="===r?i&&0===t.indexOf(i):"*="===r?i&&-1:\x20\t\r\n\f]*)[\x20\t\r\n\f]*\/?>(?:<\/\1>|)$/i;function j(e,n,r){return m(n)?k.grep(e,function(e,t){return!!n.call(e,t,e)!==r}):n.nodeType?k.grep(e,function(e){return e===n!==r}):"string"!=typeof n?k.grep(e,function(e){return-1)[^>]*|#([\w-]+))$/;(k.fn.init=function(e,t,n){var r,i;if(!e)return this;if(n=n||q,"string"==typeof e){if(!(r="<"===e[0]&&">"===e[e.length-1]&&3<=e.length?[null,e,null]:L.exec(e))||!r[1]&&t)return!t||t.jquery?(t||n).find(e):this.constructor(t).find(e);if(r[1]){if(t=t instanceof k?t[0]:t,k.merge(this,k.parseHTML(r[1],t&&t.nodeType?t.ownerDocument||t:E,!0)),D.test(r[1])&&k.isPlainObject(t))for(r in t)m(this[r])?this[r](t[r]):this.attr(r,t[r]);return this}return(i=E.getElementById(r[2]))&&(this[0]=i,this.length=1),this}return e.nodeType?(this[0]=e,this.length=1,this):m(e)?void 0!==n.ready?n.ready(e):e(k):k.makeArray(e,this)}).prototype=k.fn,q=k(E);var H=/^(?:parents|prev(?:Until|All))/,O={children:!0,contents:!0,next:!0,prev:!0};function P(e,t){while((e=e[t])&&1!==e.nodeType);return e}k.fn.extend({has:function(e){var t=k(e,this),n=t.length;return this.filter(function(){for(var e=0;e\x20\t\r\n\f]*)/i,he=/^$|^module$|\/(?:java|ecma)script/i,ge={option:[1,""," "],thead:[1,""],col:[2,""],tr:[2,""],td:[3,""],_default:[0,"",""]};function ve(e,t){var n;return n="undefined"!=typeof e.getElementsByTagName?e.getElementsByTagName(t||"*"):"undefined"!=typeof e.querySelectorAll?e.querySelectorAll(t||"*"):[],void 0===t||t&&A(e,t)?k.merge([e],n):n}function ye(e,t){for(var n=0,r=e.length;nx",y.noCloneChecked=!!me.cloneNode(!0).lastChild.defaultValue;var Te=/^key/,Ce=/^(?:mouse|pointer|contextmenu|drag|drop)|click/,Ee=/^([^.]*)(?:\.(.+)|)/;function ke(){return!0}function Se(){return!1}function Ne(e,t){return e===function(){try{return E.activeElement}catch(e){}}()==("focus"===t)}function Ae(e,t,n,r,i,o){var a,s;if("object"==typeof t){for(s in"string"!=typeof n&&(r=r||n,n=void 0),t)Ae(e,s,n,r,t[s],o);return e}if(null==r&&null==i?(i=n,r=n=void 0):null==i&&("string"==typeof n?(i=r,r=void 0):(i=r,r=n,n=void 0)),!1===i)i=Se;else if(!i)return e;return 1===o&&(a=i,(i=function(e){return k().off(e),a.apply(this,arguments)}).guid=a.guid||(a.guid=k.guid++)),e.each(function(){k.event.add(this,t,i,r,n)})}function De(e,i,o){o?(Q.set(e,i,!1),k.event.add(e,i,{namespace:!1,handler:function(e){var t,n,r=Q.get(this,i);if(1&e.isTrigger&&this[i]){if(r.length)(k.event.special[i]||{}).delegateType&&e.stopPropagation();else if(r=s.call(arguments),Q.set(this,i,r),t=o(this,i),this[i](),r!==(n=Q.get(this,i))||t?Q.set(this,i,!1):n={},r!==n)return e.stopImmediatePropagation(),e.preventDefault(),n.value}else r.length&&(Q.set(this,i,{value:k.event.trigger(k.extend(r[0],k.Event.prototype),r.slice(1),this)}),e.stopImmediatePropagation())}})):void 0===Q.get(e,i)&&k.event.add(e,i,ke)}k.event={global:{},add:function(t,e,n,r,i){var o,a,s,u,l,c,f,p,d,h,g,v=Q.get(t);if(v){n.handler&&(n=(o=n).handler,i=o.selector),i&&k.find.matchesSelector(ie,i),n.guid||(n.guid=k.guid++),(u=v.events)||(u=v.events={}),(a=v.handle)||(a=v.handle=function(e){return"undefined"!=typeof k&&k.event.triggered!==e.type?k.event.dispatch.apply(t,arguments):void 0}),l=(e=(e||"").match(R)||[""]).length;while(l--)d=g=(s=Ee.exec(e[l])||[])[1],h=(s[2]||"").split(".").sort(),d&&(f=k.event.special[d]||{},d=(i?f.delegateType:f.bindType)||d,f=k.event.special[d]||{},c=k.extend({type:d,origType:g,data:r,handler:n,guid:n.guid,selector:i,needsContext:i&&k.expr.match.needsContext.test(i),namespace:h.join(".")},o),(p=u[d])||((p=u[d]=[]).delegateCount=0,f.setup&&!1!==f.setup.call(t,r,h,a)||t.addEventListener&&t.addEventListener(d,a)),f.add&&(f.add.call(t,c),c.handler.guid||(c.handler.guid=n.guid)),i?p.splice(p.delegateCount++,0,c):p.push(c),k.event.global[d]=!0)}},remove:function(e,t,n,r,i){var o,a,s,u,l,c,f,p,d,h,g,v=Q.hasData(e)&&Q.get(e);if(v&&(u=v.events)){l=(t=(t||"").match(R)||[""]).length;while(l--)if(d=g=(s=Ee.exec(t[l])||[])[1],h=(s[2]||"").split(".").sort(),d){f=k.event.special[d]||{},p=u[d=(r?f.delegateType:f.bindType)||d]||[],s=s[2]&&new RegExp("(^|\\.)"+h.join("\\.(?:.*\\.|)")+"(\\.|$)"),a=o=p.length;while(o--)c=p[o],!i&&g!==c.origType||n&&n.guid!==c.guid||s&&!s.test(c.namespace)||r&&r!==c.selector&&("**"!==r||!c.selector)||(p.splice(o,1),c.selector&&p.delegateCount--,f.remove&&f.remove.call(e,c));a&&!p.length&&(f.teardown&&!1!==f.teardown.call(e,h,v.handle)||k.removeEvent(e,d,v.handle),delete u[d])}else for(d in u)k.event.remove(e,d+t[l],n,r,!0);k.isEmptyObject(u)&&Q.remove(e,"handle events")}},dispatch:function(e){var t,n,r,i,o,a,s=k.event.fix(e),u=new Array(arguments.length),l=(Q.get(this,"events")||{})[s.type]||[],c=k.event.special[s.type]||{};for(u[0]=s,t=1;t\x20\t\r\n\f]*)[^>]*)\/>/gi,qe=/\s*$/g;function Oe(e,t){return A(e,"table")&&A(11!==t.nodeType?t:t.firstChild,"tr")&&k(e).children("tbody")[0]||e}function Pe(e){return e.type=(null!==e.getAttribute("type"))+"/"+e.type,e}function Re(e){return"true/"===(e.type||"").slice(0,5)?e.type=e.type.slice(5):e.removeAttribute("type"),e}function Me(e,t){var n,r,i,o,a,s,u,l;if(1===t.nodeType){if(Q.hasData(e)&&(o=Q.access(e),a=Q.set(t,o),l=o.events))for(i in delete a.handle,a.events={},l)for(n=0,r=l[i].length;n")},clone:function(e,t,n){var r,i,o,a,s,u,l,c=e.cloneNode(!0),f=oe(e);if(!(y.noCloneChecked||1!==e.nodeType&&11!==e.nodeType||k.isXMLDoc(e)))for(a=ve(c),r=0,i=(o=ve(e)).length;r").attr(n.scriptAttrs||{}).prop({charset:n.scriptCharset,src:n.url}).on("load error",i=function(e){r.remove(),i=null,e&&t("error"===e.type?404:200,e.type)}),E.head.appendChild(r[0])},abort:function(){i&&i()}}});var Vt,Gt=[],Yt=/(=)\?(?=&|$)|\?\?/;k.ajaxSetup({jsonp:"callback",jsonpCallback:function(){var e=Gt.pop()||k.expando+"_"+kt++;return this[e]=!0,e}}),k.ajaxPrefilter("json jsonp",function(e,t,n){var r,i,o,a=!1!==e.jsonp&&(Yt.test(e.url)?"url":"string"==typeof e.data&&0===(e.contentType||"").indexOf("application/x-www-form-urlencoded")&&Yt.test(e.data)&&"data");if(a||"jsonp"===e.dataTypes[0])return r=e.jsonpCallback=m(e.jsonpCallback)?e.jsonpCallback():e.jsonpCallback,a?e[a]=e[a].replace(Yt,"$1"+r):!1!==e.jsonp&&(e.url+=(St.test(e.url)?"&":"?")+e.jsonp+"="+r),e.converters["script json"]=function(){return o||k.error(r+" was not called"),o[0]},e.dataTypes[0]="json",i=C[r],C[r]=function(){o=arguments},n.always(function(){void 0===i?k(C).removeProp(r):C[r]=i,e[r]&&(e.jsonpCallback=t.jsonpCallback,Gt.push(r)),o&&m(i)&&i(o[0]),o=i=void 0}),"script"}),y.createHTMLDocument=((Vt=E.implementation.createHTMLDocument("").body).innerHTML="",2===Vt.childNodes.length),k.parseHTML=function(e,t,n){return"string"!=typeof e?[]:("boolean"==typeof t&&(n=t,t=!1),t||(y.createHTMLDocument?((r=(t=E.implementation.createHTMLDocument("")).createElement("base")).href=E.location.href,t.head.appendChild(r)):t=E),o=!n&&[],(i=D.exec(e))?[t.createElement(i[1])]:(i=we([e],t,o),o&&o.length&&k(o).remove(),k.merge([],i.childNodes)));var r,i,o},k.fn.load=function(e,t,n){var r,i,o,a=this,s=e.indexOf(" ");return-1").append(k.parseHTML(e)).find(r):e)}).always(n&&function(e,t){a.each(function(){n.apply(this,o||[e.responseText,t,e])})}),this},k.each(["ajaxStart","ajaxStop","ajaxComplete","ajaxError","ajaxSuccess","ajaxSend"],function(e,t){k.fn[t]=function(e){return this.on(t,e)}}),k.expr.pseudos.animated=function(t){return k.grep(k.timers,function(e){return t===e.elem}).length},k.offset={setOffset:function(e,t,n){var r,i,o,a,s,u,l=k.css(e,"position"),c=k(e),f={};"static"===l&&(e.style.position="relative"),s=c.offset(),o=k.css(e,"top"),u=k.css(e,"left"),("absolute"===l||"fixed"===l)&&-1<(o+u).indexOf("auto")?(a=(r=c.position()).top,i=r.left):(a=parseFloat(o)||0,i=parseFloat(u)||0),m(t)&&(t=t.call(e,n,k.extend({},s))),null!=t.top&&(f.top=t.top-s.top+a),null!=t.left&&(f.left=t.left-s.left+i),"using"in t?t.using.call(e,f):c.css(f)}},k.fn.extend({offset:function(t){if(arguments.length)return void 0===t?this:this.each(function(e){k.offset.setOffset(this,t,e)});var e,n,r=this[0];return r?r.getClientRects().length?(e=r.getBoundingClientRect(),n=r.ownerDocument.defaultView,{top:e.top+n.pageYOffset,left:e.left+n.pageXOffset}):{top:0,left:0}:void 0},position:function(){if(this[0]){var e,t,n,r=this[0],i={top:0,left:0};if("fixed"===k.css(r,"position"))t=r.getBoundingClientRect();else{t=this.offset(),n=r.ownerDocument,e=r.offsetParent||n.documentElement;while(e&&(e===n.body||e===n.documentElement)&&"static"===k.css(e,"position"))e=e.parentNode;e&&e!==r&&1===e.nodeType&&((i=k(e).offset()).top+=k.css(e,"borderTopWidth",!0),i.left+=k.css(e,"borderLeftWidth",!0))}return{top:t.top-i.top-k.css(r,"marginTop",!0),left:t.left-i.left-k.css(r,"marginLeft",!0)}}},offsetParent:function(){return this.map(function(){var e=this.offsetParent;while(e&&"static"===k.css(e,"position"))e=e.offsetParent;return e||ie})}}),k.each({scrollLeft:"pageXOffset",scrollTop:"pageYOffset"},function(t,i){var o="pageYOffset"===i;k.fn[t]=function(e){return _(this,function(e,t,n){var r;if(x(e)?r=e:9===e.nodeType&&(r=e.defaultView),void 0===n)return r?r[i]:e[t];r?r.scrollTo(o?r.pageXOffset:n,o?n:r.pageYOffset):e[t]=n},t,e,arguments.length)}}),k.each(["top","left"],function(e,n){k.cssHooks[n]=ze(y.pixelPosition,function(e,t){if(t)return t=_e(e,n),$e.test(t)?k(e).position()[n]+"px":t})}),k.each({Height:"height",Width:"width"},function(a,s){k.each({padding:"inner"+a,content:s,"":"outer"+a},function(r,o){k.fn[o]=function(e,t){var n=arguments.length&&(r||"boolean"!=typeof e),i=r||(!0===e||!0===t?"margin":"border");return _(this,function(e,t,n){var r;return x(e)?0===o.indexOf("outer")?e["inner"+a]:e.document.documentElement["client"+a]:9===e.nodeType?(r=e.documentElement,Math.max(e.body["scroll"+a],r["scroll"+a],e.body["offset"+a],r["offset"+a],r["client"+a])):void 0===n?k.css(e,t,i):k.style(e,t,n,i)},s,n?e:void 0,n)}})}),k.each("blur focus focusin focusout resize scroll click dblclick mousedown mouseup mousemove mouseover mouseout mouseenter mouseleave change select submit keydown keypress keyup contextmenu".split(" "),function(e,n){k.fn[n]=function(e,t){return 0a;a++)for(i in o[a])n=o[a][i],o[a].hasOwnProperty(i)&&void 0!==n&&(e[i]=t.isPlainObject(n)?t.isPlainObject(e[i])?t.widget.extend({},e[i],n):t.widget.extend({},n):n);return e},t.widget.bridge=function(e,i){var n=i.prototype.widgetFullName||e;t.fn[e]=function(o){var a="string"==typeof o,r=s.call(arguments,1),h=this;return a?this.length||"instance"!==o?this.each(function(){var i,s=t.data(this,n);return"instance"===o?(h=s,!1):s?t.isFunction(s[o])&&"_"!==o.charAt(0)?(i=s[o].apply(s,r),i!==s&&void 0!==i?(h=i&&i.jquery?h.pushStack(i.get()):i,!1):void 0):t.error("no such method '"+o+"' for "+e+" widget instance"):t.error("cannot call methods on "+e+" prior to initialization; "+"attempted to call method '"+o+"'")}):h=void 0:(r.length&&(o=t.widget.extend.apply(null,[o].concat(r))),this.each(function(){var e=t.data(this,n);e?(e.option(o||{}),e._init&&e._init()):t.data(this,n,new i(o,this))})),h}},t.Widget=function(){},t.Widget._childConstructors=[],t.Widget.prototype={widgetName:"widget",widgetEventPrefix:"",defaultElement:"",options:{classes:{},disabled:!1,create:null},_createWidget:function(e,s){s=t(s||this.defaultElement||this)[0],this.element=t(s),this.uuid=i++,this.eventNamespace="."+this.widgetName+this.uuid,this.bindings=t(),this.hoverable=t(),this.focusable=t(),this.classesElementLookup={},s!==this&&(t.data(s,this.widgetFullName,this),this._on(!0,this.element,{remove:function(t){t.target===s&&this.destroy()}}),this.document=t(s.style?s.ownerDocument:s.document||s),this.window=t(this.document[0].defaultView||this.document[0].parentWindow)),this.options=t.widget.extend({},this.options,this._getCreateOptions(),e),this._create(),this.options.disabled&&this._setOptionDisabled(this.options.disabled),this._trigger("create",null,this._getCreateEventData()),this._init()},_getCreateOptions:function(){return{}},_getCreateEventData:t.noop,_create:t.noop,_init:t.noop,destroy:function(){var e=this;this._destroy(),t.each(this.classesElementLookup,function(t,i){e._removeClass(i,t)}),this.element.off(this.eventNamespace).removeData(this.widgetFullName),this.widget().off(this.eventNamespace).removeAttr("aria-disabled"),this.bindings.off(this.eventNamespace)},_destroy:t.noop,widget:function(){return this.element},option:function(e,i){var s,n,o,a=e;if(0===arguments.length)return t.widget.extend({},this.options);if("string"==typeof e)if(a={},s=e.split("."),e=s.shift(),s.length){for(n=a[e]=t.widget.extend({},this.options[e]),o=0;s.length-1>o;o++)n[s[o]]=n[s[o]]||{},n=n[s[o]];if(e=s.pop(),1===arguments.length)return void 0===n[e]?null:n[e];n[e]=i}else{if(1===arguments.length)return void 0===this.options[e]?null:this.options[e];a[e]=i}return this._setOptions(a),this},_setOptions:function(t){var e;for(e in t)this._setOption(e,t[e]);return this},_setOption:function(t,e){return"classes"===t&&this._setOptionClasses(e),this.options[t]=e,"disabled"===t&&this._setOptionDisabled(e),this},_setOptionClasses:function(e){var i,s,n;for(i in e)n=this.classesElementLookup[i],e[i]!==this.options.classes[i]&&n&&n.length&&(s=t(n.get()),this._removeClass(n,i),s.addClass(this._classes({element:s,keys:i,classes:e,add:!0})))},_setOptionDisabled:function(t){this._toggleClass(this.widget(),this.widgetFullName+"-disabled",null,!!t),t&&(this._removeClass(this.hoverable,null,"ui-state-hover"),this._removeClass(this.focusable,null,"ui-state-focus"))},enable:function(){return this._setOptions({disabled:!1})},disable:function(){return this._setOptions({disabled:!0})},_classes:function(e){function i(i,o){var a,r;for(r=0;i.length>r;r++)a=n.classesElementLookup[i[r]]||t(),a=e.add?t(t.unique(a.get().concat(e.element.get()))):t(a.not(e.element).get()),n.classesElementLookup[i[r]]=a,s.push(i[r]),o&&e.classes[i[r]]&&s.push(e.classes[i[r]])}var s=[],n=this;return e=t.extend({element:this.element,classes:this.options.classes||{}},e),this._on(e.element,{remove:"_untrackClassesElement"}),e.keys&&i(e.keys.match(/\S+/g)||[],!0),e.extra&&i(e.extra.match(/\S+/g)||[]),s.join(" ")},_untrackClassesElement:function(e){var i=this;t.each(i.classesElementLookup,function(s,n){-1!==t.inArray(e.target,n)&&(i.classesElementLookup[s]=t(n.not(e.target).get()))})},_removeClass:function(t,e,i){return this._toggleClass(t,e,i,!1)},_addClass:function(t,e,i){return this._toggleClass(t,e,i,!0)},_toggleClass:function(t,e,i,s){s="boolean"==typeof s?s:i;var n="string"==typeof t||null===t,o={extra:n?e:i,keys:n?t:e,element:n?this.element:t,add:s};return o.element.toggleClass(this._classes(o),s),this},_on:function(e,i,s){var n,o=this;"boolean"!=typeof e&&(s=i,i=e,e=!1),s?(i=n=t(i),this.bindings=this.bindings.add(i)):(s=i,i=this.element,n=this.widget()),t.each(s,function(s,a){function r(){return e||o.options.disabled!==!0&&!t(this).hasClass("ui-state-disabled")?("string"==typeof a?o[a]:a).apply(o,arguments):void 0}"string"!=typeof a&&(r.guid=a.guid=a.guid||r.guid||t.guid++);var h=s.match(/^([\w:-]*)\s*(.*)$/),l=h[1]+o.eventNamespace,c=h[2];c?n.on(l,c,r):i.on(l,r)})},_off:function(e,i){i=(i||"").split(" ").join(this.eventNamespace+" ")+this.eventNamespace,e.off(i).off(i),this.bindings=t(this.bindings.not(e).get()),this.focusable=t(this.focusable.not(e).get()),this.hoverable=t(this.hoverable.not(e).get())},_delay:function(t,e){function i(){return("string"==typeof t?s[t]:t).apply(s,arguments)}var s=this;return setTimeout(i,e||0)},_hoverable:function(e){this.hoverable=this.hoverable.add(e),this._on(e,{mouseenter:function(e){this._addClass(t(e.currentTarget),null,"ui-state-hover")},mouseleave:function(e){this._removeClass(t(e.currentTarget),null,"ui-state-hover")}})},_focusable:function(e){this.focusable=this.focusable.add(e),this._on(e,{focusin:function(e){this._addClass(t(e.currentTarget),null,"ui-state-focus")},focusout:function(e){this._removeClass(t(e.currentTarget),null,"ui-state-focus")}})},_trigger:function(e,i,s){var n,o,a=this.options[e];if(s=s||{},i=t.Event(i),i.type=(e===this.widgetEventPrefix?e:this.widgetEventPrefix+e).toLowerCase(),i.target=this.element[0],o=i.originalEvent)for(n in o)n in i||(i[n]=o[n]);return this.element.trigger(i,s),!(t.isFunction(a)&&a.apply(this.element[0],[i].concat(s))===!1||i.isDefaultPrevented())}},t.each({show:"fadeIn",hide:"fadeOut"},function(e,i){t.Widget.prototype["_"+e]=function(s,n,o){"string"==typeof n&&(n={effect:n});var a,r=n?n===!0||"number"==typeof n?i:n.effect||i:e;n=n||{},"number"==typeof n&&(n={duration:n}),a=!t.isEmptyObject(n),n.complete=o,n.delay&&s.delay(n.delay),a&&t.effects&&t.effects.effect[r]?s[e](n):r!==e&&s[r]?s[r](n.duration,n.easing,o):s.queue(function(i){t(this)[e](),o&&o.call(s[0]),i()})}}),t.widget,function(){function e(t,e,i){return[parseFloat(t[0])*(u.test(t[0])?e/100:1),parseFloat(t[1])*(u.test(t[1])?i/100:1)]}function i(e,i){return parseInt(t.css(e,i),10)||0}function s(e){var i=e[0];return 9===i.nodeType?{width:e.width(),height:e.height(),offset:{top:0,left:0}}:t.isWindow(i)?{width:e.width(),height:e.height(),offset:{top:e.scrollTop(),left:e.scrollLeft()}}:i.preventDefault?{width:0,height:0,offset:{top:i.pageY,left:i.pageX}}:{width:e.outerWidth(),height:e.outerHeight(),offset:e.offset()}}var n,o=Math.max,a=Math.abs,r=/left|center|right/,h=/top|center|bottom/,l=/[\+\-]\d+(\.[\d]+)?%?/,c=/^\w+/,u=/%$/,d=t.fn.position;t.position={scrollbarWidth:function(){if(void 0!==n)return n;var e,i,s=t("
"),o=s.children()[0];return t("body").append(s),e=o.offsetWidth,s.css("overflow","scroll"),i=o.offsetWidth,e===i&&(i=s[0].clientWidth),s.remove(),n=e-i},getScrollInfo:function(e){var i=e.isWindow||e.isDocument?"":e.element.css("overflow-x"),s=e.isWindow||e.isDocument?"":e.element.css("overflow-y"),n="scroll"===i||"auto"===i&&e.width
i?"left":e>0?"right":"center",vertical:0>r?"top":s>0?"bottom":"middle"};l>p&&p>a(e+i)&&(u.horizontal="center"),c>f&&f>a(s+r)&&(u.vertical="middle"),u.important=o(a(e),a(i))>o(a(s),a(r))?"horizontal":"vertical",n.using.call(this,t,u)}),h.offset(t.extend(D,{using:r}))})},t.ui.position={fit:{left:function(t,e){var i,s=e.within,n=s.isWindow?s.scrollLeft:s.offset.left,a=s.width,r=t.left-e.collisionPosition.marginLeft,h=n-r,l=r+e.collisionWidth-a-n;e.collisionWidth>a?h>0&&0>=l?(i=t.left+h+e.collisionWidth-a-n,t.left+=h-i):t.left=l>0&&0>=h?n:h>l?n+a-e.collisionWidth:n:h>0?t.left+=h:l>0?t.left-=l:t.left=o(t.left-r,t.left)},top:function(t,e){var i,s=e.within,n=s.isWindow?s.scrollTop:s.offset.top,a=e.within.height,r=t.top-e.collisionPosition.marginTop,h=n-r,l=r+e.collisionHeight-a-n;e.collisionHeight>a?h>0&&0>=l?(i=t.top+h+e.collisionHeight-a-n,t.top+=h-i):t.top=l>0&&0>=h?n:h>l?n+a-e.collisionHeight:n:h>0?t.top+=h:l>0?t.top-=l:t.top=o(t.top-r,t.top)}},flip:{left:function(t,e){var i,s,n=e.within,o=n.offset.left+n.scrollLeft,r=n.width,h=n.isWindow?n.scrollLeft:n.offset.left,l=t.left-e.collisionPosition.marginLeft,c=l-h,u=l+e.collisionWidth-r-h,d="left"===e.my[0]?-e.elemWidth:"right"===e.my[0]?e.elemWidth:0,p="left"===e.at[0]?e.targetWidth:"right"===e.at[0]?-e.targetWidth:0,f=-2*e.offset[0];0>c?(i=t.left+d+p+f+e.collisionWidth-r-o,(0>i||a(c)>i)&&(t.left+=d+p+f)):u>0&&(s=t.left-e.collisionPosition.marginLeft+d+p+f-h,(s>0||u>a(s))&&(t.left+=d+p+f))},top:function(t,e){var i,s,n=e.within,o=n.offset.top+n.scrollTop,r=n.height,h=n.isWindow?n.scrollTop:n.offset.top,l=t.top-e.collisionPosition.marginTop,c=l-h,u=l+e.collisionHeight-r-h,d="top"===e.my[1],p=d?-e.elemHeight:"bottom"===e.my[1]?e.elemHeight:0,f="top"===e.at[1]?e.targetHeight:"bottom"===e.at[1]?-e.targetHeight:0,m=-2*e.offset[1];0>c?(s=t.top+p+f+m+e.collisionHeight-r-o,(0>s||a(c)>s)&&(t.top+=p+f+m)):u>0&&(i=t.top-e.collisionPosition.marginTop+p+f+m-h,(i>0||u>a(i))&&(t.top+=p+f+m))}},flipfit:{left:function(){t.ui.position.flip.left.apply(this,arguments),t.ui.position.fit.left.apply(this,arguments)},top:function(){t.ui.position.flip.top.apply(this,arguments),t.ui.position.fit.top.apply(this,arguments)}}}}(),t.ui.position,t.extend(t.expr[":"],{data:t.expr.createPseudo?t.expr.createPseudo(function(e){return function(i){return!!t.data(i,e)}}):function(e,i,s){return!!t.data(e,s[3])}}),t.fn.extend({disableSelection:function(){var t="onselectstart"in document.createElement("div")?"selectstart":"mousedown";return function(){return this.on(t+".ui-disableSelection",function(t){t.preventDefault()})}}(),enableSelection:function(){return this.off(".ui-disableSelection")}}),t.ui.focusable=function(i,s){var n,o,a,r,h,l=i.nodeName.toLowerCase();return"area"===l?(n=i.parentNode,o=n.name,i.href&&o&&"map"===n.nodeName.toLowerCase()?(a=t("img[usemap='#"+o+"']"),a.length>0&&a.is(":visible")):!1):(/^(input|select|textarea|button|object)$/.test(l)?(r=!i.disabled,r&&(h=t(i).closest("fieldset")[0],h&&(r=!h.disabled))):r="a"===l?i.href||s:s,r&&t(i).is(":visible")&&e(t(i)))},t.extend(t.expr[":"],{focusable:function(e){return t.ui.focusable(e,null!=t.attr(e,"tabindex"))}}),t.ui.focusable,t.fn.form=function(){return"string"==typeof this[0].form?this.closest("form"):t(this[0].form)},t.ui.formResetMixin={_formResetHandler:function(){var e=t(this);setTimeout(function(){var i=e.data("ui-form-reset-instances");t.each(i,function(){this.refresh()})})},_bindFormResetHandler:function(){if(this.form=this.element.form(),this.form.length){var t=this.form.data("ui-form-reset-instances")||[];t.length||this.form.on("reset.ui-form-reset",this._formResetHandler),t.push(this),this.form.data("ui-form-reset-instances",t)}},_unbindFormResetHandler:function(){if(this.form.length){var e=this.form.data("ui-form-reset-instances");e.splice(t.inArray(this,e),1),e.length?this.form.data("ui-form-reset-instances",e):this.form.removeData("ui-form-reset-instances").off("reset.ui-form-reset")}}},"1.7"===t.fn.jquery.substring(0,3)&&(t.each(["Width","Height"],function(e,i){function s(e,i,s,o){return t.each(n,function(){i-=parseFloat(t.css(e,"padding"+this))||0,s&&(i-=parseFloat(t.css(e,"border"+this+"Width"))||0),o&&(i-=parseFloat(t.css(e,"margin"+this))||0)}),i}var n="Width"===i?["Left","Right"]:["Top","Bottom"],o=i.toLowerCase(),a={innerWidth:t.fn.innerWidth,innerHeight:t.fn.innerHeight,outerWidth:t.fn.outerWidth,outerHeight:t.fn.outerHeight};t.fn["inner"+i]=function(e){return void 0===e?a["inner"+i].call(this):this.each(function(){t(this).css(o,s(this,e)+"px")})},t.fn["outer"+i]=function(e,n){return"number"!=typeof e?a["outer"+i].call(this,e):this.each(function(){t(this).css(o,s(this,e,!0,n)+"px")})}}),t.fn.addBack=function(t){return this.add(null==t?this.prevObject:this.prevObject.filter(t))}),t.ui.keyCode={BACKSPACE:8,COMMA:188,DELETE:46,DOWN:40,END:35,ENTER:13,ESCAPE:27,HOME:36,LEFT:37,PAGE_DOWN:34,PAGE_UP:33,PERIOD:190,RIGHT:39,SPACE:32,TAB:9,UP:38},t.ui.escapeSelector=function(){var t=/([!"#$%&'()*+,./:;<=>?@[\]^`{|}~])/g;return function(e){return e.replace(t,"\\$1")}}(),t.fn.labels=function(){var e,i,s,n,o;return this[0].labels&&this[0].labels.length?this.pushStack(this[0].labels):(n=this.eq(0).parents("label"),s=this.attr("id"),s&&(e=this.eq(0).parents().last(),o=e.add(e.length?e.siblings():this.siblings()),i="label[for='"+t.ui.escapeSelector(s)+"']",n=n.add(o.find(i).addBack(i))),this.pushStack(n))},t.fn.scrollParent=function(e){var i=this.css("position"),s="absolute"===i,n=e?/(auto|scroll|hidden)/:/(auto|scroll)/,o=this.parents().filter(function(){var e=t(this);return s&&"static"===e.css("position")?!1:n.test(e.css("overflow")+e.css("overflow-y")+e.css("overflow-x"))}).eq(0);return"fixed"!==i&&o.length?o:t(this[0].ownerDocument||document)},t.extend(t.expr[":"],{tabbable:function(e){var i=t.attr(e,"tabindex"),s=null!=i;return(!s||i>=0)&&t.ui.focusable(e,s)}}),t.fn.extend({uniqueId:function(){var t=0;return function(){return this.each(function(){this.id||(this.id="ui-id-"+ ++t)})}}(),removeUniqueId:function(){return this.each(function(){/^ui-id-\d+$/.test(this.id)&&t(this).removeAttr("id")})}}),t.ui.ie=!!/msie [\w.]+/.exec(navigator.userAgent.toLowerCase());var n=!1;t(document).on("mouseup",function(){n=!1}),t.widget("ui.mouse",{version:"1.12.1",options:{cancel:"input, textarea, button, select, option",distance:1,delay:0},_mouseInit:function(){var e=this;this.element.on("mousedown."+this.widgetName,function(t){return e._mouseDown(t)}).on("click."+this.widgetName,function(i){return!0===t.data(i.target,e.widgetName+".preventClickEvent")?(t.removeData(i.target,e.widgetName+".preventClickEvent"),i.stopImmediatePropagation(),!1):void 0}),this.started=!1},_mouseDestroy:function(){this.element.off("."+this.widgetName),this._mouseMoveDelegate&&this.document.off("mousemove."+this.widgetName,this._mouseMoveDelegate).off("mouseup."+this.widgetName,this._mouseUpDelegate)},_mouseDown:function(e){if(!n){this._mouseMoved=!1,this._mouseStarted&&this._mouseUp(e),this._mouseDownEvent=e;var i=this,s=1===e.which,o="string"==typeof this.options.cancel&&e.target.nodeName?t(e.target).closest(this.options.cancel).length:!1;return s&&!o&&this._mouseCapture(e)?(this.mouseDelayMet=!this.options.delay,this.mouseDelayMet||(this._mouseDelayTimer=setTimeout(function(){i.mouseDelayMet=!0},this.options.delay)),this._mouseDistanceMet(e)&&this._mouseDelayMet(e)&&(this._mouseStarted=this._mouseStart(e)!==!1,!this._mouseStarted)?(e.preventDefault(),!0):(!0===t.data(e.target,this.widgetName+".preventClickEvent")&&t.removeData(e.target,this.widgetName+".preventClickEvent"),this._mouseMoveDelegate=function(t){return i._mouseMove(t)},this._mouseUpDelegate=function(t){return i._mouseUp(t)},this.document.on("mousemove."+this.widgetName,this._mouseMoveDelegate).on("mouseup."+this.widgetName,this._mouseUpDelegate),e.preventDefault(),n=!0,!0)):!0}},_mouseMove:function(e){if(this._mouseMoved){if(t.ui.ie&&(!document.documentMode||9>document.documentMode)&&!e.button)return this._mouseUp(e);if(!e.which)if(e.originalEvent.altKey||e.originalEvent.ctrlKey||e.originalEvent.metaKey||e.originalEvent.shiftKey)this.ignoreMissingWhich=!0;else if(!this.ignoreMissingWhich)return this._mouseUp(e)}return(e.which||e.button)&&(this._mouseMoved=!0),this._mouseStarted?(this._mouseDrag(e),e.preventDefault()):(this._mouseDistanceMet(e)&&this._mouseDelayMet(e)&&(this._mouseStarted=this._mouseStart(this._mouseDownEvent,e)!==!1,this._mouseStarted?this._mouseDrag(e):this._mouseUp(e)),!this._mouseStarted)},_mouseUp:function(e){this.document.off("mousemove."+this.widgetName,this._mouseMoveDelegate).off("mouseup."+this.widgetName,this._mouseUpDelegate),this._mouseStarted&&(this._mouseStarted=!1,e.target===this._mouseDownEvent.target&&t.data(e.target,this.widgetName+".preventClickEvent",!0),this._mouseStop(e)),this._mouseDelayTimer&&(clearTimeout(this._mouseDelayTimer),delete this._mouseDelayTimer),this.ignoreMissingWhich=!1,n=!1,e.preventDefault()},_mouseDistanceMet:function(t){return Math.max(Math.abs(this._mouseDownEvent.pageX-t.pageX),Math.abs(this._mouseDownEvent.pageY-t.pageY))>=this.options.distance},_mouseDelayMet:function(){return this.mouseDelayMet},_mouseStart:function(){},_mouseDrag:function(){},_mouseStop:function(){},_mouseCapture:function(){return!0}}),t.ui.plugin={add:function(e,i,s){var n,o=t.ui[e].prototype;for(n in s)o.plugins[n]=o.plugins[n]||[],o.plugins[n].push([i,s[n]])},call:function(t,e,i,s){var n,o=t.plugins[e];if(o&&(s||t.element[0].parentNode&&11!==t.element[0].parentNode.nodeType))for(n=0;o.length>n;n++)t.options[o[n][0]]&&o[n][1].apply(t.element,i)}},t.widget("ui.resizable",t.ui.mouse,{version:"1.12.1",widgetEventPrefix:"resize",options:{alsoResize:!1,animate:!1,animateDuration:"slow",animateEasing:"swing",aspectRatio:!1,autoHide:!1,classes:{"ui-resizable-se":"ui-icon ui-icon-gripsmall-diagonal-se"},containment:!1,ghost:!1,grid:!1,handles:"e,s,se",helper:!1,maxHeight:null,maxWidth:null,minHeight:10,minWidth:10,zIndex:90,resize:null,start:null,stop:null},_num:function(t){return parseFloat(t)||0},_isNumber:function(t){return!isNaN(parseFloat(t))},_hasScroll:function(e,i){if("hidden"===t(e).css("overflow"))return!1;var s=i&&"left"===i?"scrollLeft":"scrollTop",n=!1;return e[s]>0?!0:(e[s]=1,n=e[s]>0,e[s]=0,n)},_create:function(){var e,i=this.options,s=this;this._addClass("ui-resizable"),t.extend(this,{_aspectRatio:!!i.aspectRatio,aspectRatio:i.aspectRatio,originalElement:this.element,_proportionallyResizeElements:[],_helper:i.helper||i.ghost||i.animate?i.helper||"ui-resizable-helper":null}),this.element[0].nodeName.match(/^(canvas|textarea|input|select|button|img)$/i)&&(this.element.wrap(t("
").css({position:this.element.css("position"),width:this.element.outerWidth(),height:this.element.outerHeight(),top:this.element.css("top"),left:this.element.css("left")})),this.element=this.element.parent().data("ui-resizable",this.element.resizable("instance")),this.elementIsWrapper=!0,e={marginTop:this.originalElement.css("marginTop"),marginRight:this.originalElement.css("marginRight"),marginBottom:this.originalElement.css("marginBottom"),marginLeft:this.originalElement.css("marginLeft")},this.element.css(e),this.originalElement.css("margin",0),this.originalResizeStyle=this.originalElement.css("resize"),this.originalElement.css("resize","none"),this._proportionallyResizeElements.push(this.originalElement.css({position:"static",zoom:1,display:"block"})),this.originalElement.css(e),this._proportionallyResize()),this._setupHandles(),i.autoHide&&t(this.element).on("mouseenter",function(){i.disabled||(s._removeClass("ui-resizable-autohide"),s._handles.show())}).on("mouseleave",function(){i.disabled||s.resizing||(s._addClass("ui-resizable-autohide"),s._handles.hide())}),this._mouseInit()},_destroy:function(){this._mouseDestroy();var e,i=function(e){t(e).removeData("resizable").removeData("ui-resizable").off(".resizable").find(".ui-resizable-handle").remove()};return this.elementIsWrapper&&(i(this.element),e=this.element,this.originalElement.css({position:e.css("position"),width:e.outerWidth(),height:e.outerHeight(),top:e.css("top"),left:e.css("left")}).insertAfter(e),e.remove()),this.originalElement.css("resize",this.originalResizeStyle),i(this.originalElement),this},_setOption:function(t,e){switch(this._super(t,e),t){case"handles":this._removeHandles(),this._setupHandles();break;default:}},_setupHandles:function(){var e,i,s,n,o,a=this.options,r=this;if(this.handles=a.handles||(t(".ui-resizable-handle",this.element).length?{n:".ui-resizable-n",e:".ui-resizable-e",s:".ui-resizable-s",w:".ui-resizable-w",se:".ui-resizable-se",sw:".ui-resizable-sw",ne:".ui-resizable-ne",nw:".ui-resizable-nw"}:"e,s,se"),this._handles=t(),this.handles.constructor===String)for("all"===this.handles&&(this.handles="n,e,s,w,se,sw,ne,nw"),s=this.handles.split(","),this.handles={},i=0;s.length>i;i++)e=t.trim(s[i]),n="ui-resizable-"+e,o=t(""),this._addClass(o,"ui-resizable-handle "+n),o.css({zIndex:a.zIndex}),this.handles[e]=".ui-resizable-"+e,this.element.append(o);this._renderAxis=function(e){var i,s,n,o;e=e||this.element;for(i in this.handles)this.handles[i].constructor===String?this.handles[i]=this.element.children(this.handles[i]).first().show():(this.handles[i].jquery||this.handles[i].nodeType)&&(this.handles[i]=t(this.handles[i]),this._on(this.handles[i],{mousedown:r._mouseDown})),this.elementIsWrapper&&this.originalElement[0].nodeName.match(/^(textarea|input|select|button)$/i)&&(s=t(this.handles[i],this.element),o=/sw|ne|nw|se|n|s/.test(i)?s.outerHeight():s.outerWidth(),n=["padding",/ne|nw|n/.test(i)?"Top":/se|sw|s/.test(i)?"Bottom":/^e$/.test(i)?"Right":"Left"].join(""),e.css(n,o),this._proportionallyResize()),this._handles=this._handles.add(this.handles[i])},this._renderAxis(this.element),this._handles=this._handles.add(this.element.find(".ui-resizable-handle")),this._handles.disableSelection(),this._handles.on("mouseover",function(){r.resizing||(this.className&&(o=this.className.match(/ui-resizable-(se|sw|ne|nw|n|e|s|w)/i)),r.axis=o&&o[1]?o[1]:"se")}),a.autoHide&&(this._handles.hide(),this._addClass("ui-resizable-autohide"))},_removeHandles:function(){this._handles.remove()},_mouseCapture:function(e){var i,s,n=!1;for(i in this.handles)s=t(this.handles[i])[0],(s===e.target||t.contains(s,e.target))&&(n=!0);return!this.options.disabled&&n},_mouseStart:function(e){var i,s,n,o=this.options,a=this.element;return this.resizing=!0,this._renderProxy(),i=this._num(this.helper.css("left")),s=this._num(this.helper.css("top")),o.containment&&(i+=t(o.containment).scrollLeft()||0,s+=t(o.containment).scrollTop()||0),this.offset=this.helper.offset(),this.position={left:i,top:s},this.size=this._helper?{width:this.helper.width(),height:this.helper.height()}:{width:a.width(),height:a.height()},this.originalSize=this._helper?{width:a.outerWidth(),height:a.outerHeight()}:{width:a.width(),height:a.height()},this.sizeDiff={width:a.outerWidth()-a.width(),height:a.outerHeight()-a.height()},this.originalPosition={left:i,top:s},this.originalMousePosition={left:e.pageX,top:e.pageY},this.aspectRatio="number"==typeof o.aspectRatio?o.aspectRatio:this.originalSize.width/this.originalSize.height||1,n=t(".ui-resizable-"+this.axis).css("cursor"),t("body").css("cursor","auto"===n?this.axis+"-resize":n),this._addClass("ui-resizable-resizing"),this._propagate("start",e),!0},_mouseDrag:function(e){var i,s,n=this.originalMousePosition,o=this.axis,a=e.pageX-n.left||0,r=e.pageY-n.top||0,h=this._change[o];return this._updatePrevProperties(),h?(i=h.apply(this,[e,a,r]),this._updateVirtualBoundaries(e.shiftKey),(this._aspectRatio||e.shiftKey)&&(i=this._updateRatio(i,e)),i=this._respectSize(i,e),this._updateCache(i),this._propagate("resize",e),s=this._applyChanges(),!this._helper&&this._proportionallyResizeElements.length&&this._proportionallyResize(),t.isEmptyObject(s)||(this._updatePrevProperties(),this._trigger("resize",e,this.ui()),this._applyChanges()),!1):!1},_mouseStop:function(e){this.resizing=!1;var i,s,n,o,a,r,h,l=this.options,c=this;return this._helper&&(i=this._proportionallyResizeElements,s=i.length&&/textarea/i.test(i[0].nodeName),n=s&&this._hasScroll(i[0],"left")?0:c.sizeDiff.height,o=s?0:c.sizeDiff.width,a={width:c.helper.width()-o,height:c.helper.height()-n},r=parseFloat(c.element.css("left"))+(c.position.left-c.originalPosition.left)||null,h=parseFloat(c.element.css("top"))+(c.position.top-c.originalPosition.top)||null,l.animate||this.element.css(t.extend(a,{top:h,left:r})),c.helper.height(c.size.height),c.helper.width(c.size.width),this._helper&&!l.animate&&this._proportionallyResize()),t("body").css("cursor","auto"),this._removeClass("ui-resizable-resizing"),this._propagate("stop",e),this._helper&&this.helper.remove(),!1},_updatePrevProperties:function(){this.prevPosition={top:this.position.top,left:this.position.left},this.prevSize={width:this.size.width,height:this.size.height}},_applyChanges:function(){var t={};return this.position.top!==this.prevPosition.top&&(t.top=this.position.top+"px"),this.position.left!==this.prevPosition.left&&(t.left=this.position.left+"px"),this.size.width!==this.prevSize.width&&(t.width=this.size.width+"px"),this.size.height!==this.prevSize.height&&(t.height=this.size.height+"px"),this.helper.css(t),t},_updateVirtualBoundaries:function(t){var e,i,s,n,o,a=this.options;o={minWidth:this._isNumber(a.minWidth)?a.minWidth:0,maxWidth:this._isNumber(a.maxWidth)?a.maxWidth:1/0,minHeight:this._isNumber(a.minHeight)?a.minHeight:0,maxHeight:this._isNumber(a.maxHeight)?a.maxHeight:1/0},(this._aspectRatio||t)&&(e=o.minHeight*this.aspectRatio,s=o.minWidth/this.aspectRatio,i=o.maxHeight*this.aspectRatio,n=o.maxWidth/this.aspectRatio,e>o.minWidth&&(o.minWidth=e),s>o.minHeight&&(o.minHeight=s),o.maxWidth>i&&(o.maxWidth=i),o.maxHeight>n&&(o.maxHeight=n)),this._vBoundaries=o},_updateCache:function(t){this.offset=this.helper.offset(),this._isNumber(t.left)&&(this.position.left=t.left),this._isNumber(t.top)&&(this.position.top=t.top),this._isNumber(t.height)&&(this.size.height=t.height),this._isNumber(t.width)&&(this.size.width=t.width)},_updateRatio:function(t){var e=this.position,i=this.size,s=this.axis;return this._isNumber(t.height)?t.width=t.height*this.aspectRatio:this._isNumber(t.width)&&(t.height=t.width/this.aspectRatio),"sw"===s&&(t.left=e.left+(i.width-t.width),t.top=null),"nw"===s&&(t.top=e.top+(i.height-t.height),t.left=e.left+(i.width-t.width)),t},_respectSize:function(t){var e=this._vBoundaries,i=this.axis,s=this._isNumber(t.width)&&e.maxWidth&&e.maxWidth
t.width,a=this._isNumber(t.height)&&e.minHeight&&e.minHeight>t.height,r=this.originalPosition.left+this.originalSize.width,h=this.originalPosition.top+this.originalSize.height,l=/sw|nw|w/.test(i),c=/nw|ne|n/.test(i);return o&&(t.width=e.minWidth),a&&(t.height=e.minHeight),s&&(t.width=e.maxWidth),n&&(t.height=e.maxHeight),o&&l&&(t.left=r-e.minWidth),s&&l&&(t.left=r-e.maxWidth),a&&c&&(t.top=h-e.minHeight),n&&c&&(t.top=h-e.maxHeight),t.width||t.height||t.left||!t.top?t.width||t.height||t.top||!t.left||(t.left=null):t.top=null,t},_getPaddingPlusBorderDimensions:function(t){for(var e=0,i=[],s=[t.css("borderTopWidth"),t.css("borderRightWidth"),t.css("borderBottomWidth"),t.css("borderLeftWidth")],n=[t.css("paddingTop"),t.css("paddingRight"),t.css("paddingBottom"),t.css("paddingLeft")];4>e;e++)i[e]=parseFloat(s[e])||0,i[e]+=parseFloat(n[e])||0;return{height:i[0]+i[2],width:i[1]+i[3]}},_proportionallyResize:function(){if(this._proportionallyResizeElements.length)for(var t,e=0,i=this.helper||this.element;this._proportionallyResizeElements.length>e;e++)t=this._proportionallyResizeElements[e],this.outerDimensions||(this.outerDimensions=this._getPaddingPlusBorderDimensions(t)),t.css({height:i.height()-this.outerDimensions.height||0,width:i.width()-this.outerDimensions.width||0})},_renderProxy:function(){var e=this.element,i=this.options;this.elementOffset=e.offset(),this._helper?(this.helper=this.helper||t("
"),this._addClass(this.helper,this._helper),this.helper.css({width:this.element.outerWidth(),height:this.element.outerHeight(),position:"absolute",left:this.elementOffset.left+"px",top:this.elementOffset.top+"px",zIndex:++i.zIndex}),this.helper.appendTo("body").disableSelection()):this.helper=this.element
+},_change:{e:function(t,e){return{width:this.originalSize.width+e}},w:function(t,e){var i=this.originalSize,s=this.originalPosition;return{left:s.left+e,width:i.width-e}},n:function(t,e,i){var s=this.originalSize,n=this.originalPosition;return{top:n.top+i,height:s.height-i}},s:function(t,e,i){return{height:this.originalSize.height+i}},se:function(e,i,s){return t.extend(this._change.s.apply(this,arguments),this._change.e.apply(this,[e,i,s]))},sw:function(e,i,s){return t.extend(this._change.s.apply(this,arguments),this._change.w.apply(this,[e,i,s]))},ne:function(e,i,s){return t.extend(this._change.n.apply(this,arguments),this._change.e.apply(this,[e,i,s]))},nw:function(e,i,s){return t.extend(this._change.n.apply(this,arguments),this._change.w.apply(this,[e,i,s]))}},_propagate:function(e,i){t.ui.plugin.call(this,e,[i,this.ui()]),"resize"!==e&&this._trigger(e,i,this.ui())},plugins:{},ui:function(){return{originalElement:this.originalElement,element:this.element,helper:this.helper,position:this.position,size:this.size,originalSize:this.originalSize,originalPosition:this.originalPosition}}}),t.ui.plugin.add("resizable","animate",{stop:function(e){var i=t(this).resizable("instance"),s=i.options,n=i._proportionallyResizeElements,o=n.length&&/textarea/i.test(n[0].nodeName),a=o&&i._hasScroll(n[0],"left")?0:i.sizeDiff.height,r=o?0:i.sizeDiff.width,h={width:i.size.width-r,height:i.size.height-a},l=parseFloat(i.element.css("left"))+(i.position.left-i.originalPosition.left)||null,c=parseFloat(i.element.css("top"))+(i.position.top-i.originalPosition.top)||null;i.element.animate(t.extend(h,c&&l?{top:c,left:l}:{}),{duration:s.animateDuration,easing:s.animateEasing,step:function(){var s={width:parseFloat(i.element.css("width")),height:parseFloat(i.element.css("height")),top:parseFloat(i.element.css("top")),left:parseFloat(i.element.css("left"))};n&&n.length&&t(n[0]).css({width:s.width,height:s.height}),i._updateCache(s),i._propagate("resize",e)}})}}),t.ui.plugin.add("resizable","containment",{start:function(){var e,i,s,n,o,a,r,h=t(this).resizable("instance"),l=h.options,c=h.element,u=l.containment,d=u instanceof t?u.get(0):/parent/.test(u)?c.parent().get(0):u;d&&(h.containerElement=t(d),/document/.test(u)||u===document?(h.containerOffset={left:0,top:0},h.containerPosition={left:0,top:0},h.parentData={element:t(document),left:0,top:0,width:t(document).width(),height:t(document).height()||document.body.parentNode.scrollHeight}):(e=t(d),i=[],t(["Top","Right","Left","Bottom"]).each(function(t,s){i[t]=h._num(e.css("padding"+s))}),h.containerOffset=e.offset(),h.containerPosition=e.position(),h.containerSize={height:e.innerHeight()-i[3],width:e.innerWidth()-i[1]},s=h.containerOffset,n=h.containerSize.height,o=h.containerSize.width,a=h._hasScroll(d,"left")?d.scrollWidth:o,r=h._hasScroll(d)?d.scrollHeight:n,h.parentData={element:d,left:s.left,top:s.top,width:a,height:r}))},resize:function(e){var i,s,n,o,a=t(this).resizable("instance"),r=a.options,h=a.containerOffset,l=a.position,c=a._aspectRatio||e.shiftKey,u={top:0,left:0},d=a.containerElement,p=!0;d[0]!==document&&/static/.test(d.css("position"))&&(u=h),l.left<(a._helper?h.left:0)&&(a.size.width=a.size.width+(a._helper?a.position.left-h.left:a.position.left-u.left),c&&(a.size.height=a.size.width/a.aspectRatio,p=!1),a.position.left=r.helper?h.left:0),l.top<(a._helper?h.top:0)&&(a.size.height=a.size.height+(a._helper?a.position.top-h.top:a.position.top),c&&(a.size.width=a.size.height*a.aspectRatio,p=!1),a.position.top=a._helper?h.top:0),n=a.containerElement.get(0)===a.element.parent().get(0),o=/relative|absolute/.test(a.containerElement.css("position")),n&&o?(a.offset.left=a.parentData.left+a.position.left,a.offset.top=a.parentData.top+a.position.top):(a.offset.left=a.element.offset().left,a.offset.top=a.element.offset().top),i=Math.abs(a.sizeDiff.width+(a._helper?a.offset.left-u.left:a.offset.left-h.left)),s=Math.abs(a.sizeDiff.height+(a._helper?a.offset.top-u.top:a.offset.top-h.top)),i+a.size.width>=a.parentData.width&&(a.size.width=a.parentData.width-i,c&&(a.size.height=a.size.width/a.aspectRatio,p=!1)),s+a.size.height>=a.parentData.height&&(a.size.height=a.parentData.height-s,c&&(a.size.width=a.size.height*a.aspectRatio,p=!1)),p||(a.position.left=a.prevPosition.left,a.position.top=a.prevPosition.top,a.size.width=a.prevSize.width,a.size.height=a.prevSize.height)},stop:function(){var e=t(this).resizable("instance"),i=e.options,s=e.containerOffset,n=e.containerPosition,o=e.containerElement,a=t(e.helper),r=a.offset(),h=a.outerWidth()-e.sizeDiff.width,l=a.outerHeight()-e.sizeDiff.height;e._helper&&!i.animate&&/relative/.test(o.css("position"))&&t(this).css({left:r.left-n.left-s.left,width:h,height:l}),e._helper&&!i.animate&&/static/.test(o.css("position"))&&t(this).css({left:r.left-n.left-s.left,width:h,height:l})}}),t.ui.plugin.add("resizable","alsoResize",{start:function(){var e=t(this).resizable("instance"),i=e.options;t(i.alsoResize).each(function(){var e=t(this);e.data("ui-resizable-alsoresize",{width:parseFloat(e.width()),height:parseFloat(e.height()),left:parseFloat(e.css("left")),top:parseFloat(e.css("top"))})})},resize:function(e,i){var s=t(this).resizable("instance"),n=s.options,o=s.originalSize,a=s.originalPosition,r={height:s.size.height-o.height||0,width:s.size.width-o.width||0,top:s.position.top-a.top||0,left:s.position.left-a.left||0};t(n.alsoResize).each(function(){var e=t(this),s=t(this).data("ui-resizable-alsoresize"),n={},o=e.parents(i.originalElement[0]).length?["width","height"]:["width","height","top","left"];t.each(o,function(t,e){var i=(s[e]||0)+(r[e]||0);i&&i>=0&&(n[e]=i||null)}),e.css(n)})},stop:function(){t(this).removeData("ui-resizable-alsoresize")}}),t.ui.plugin.add("resizable","ghost",{start:function(){var e=t(this).resizable("instance"),i=e.size;e.ghost=e.originalElement.clone(),e.ghost.css({opacity:.25,display:"block",position:"relative",height:i.height,width:i.width,margin:0,left:0,top:0}),e._addClass(e.ghost,"ui-resizable-ghost"),t.uiBackCompat!==!1&&"string"==typeof e.options.ghost&&e.ghost.addClass(this.options.ghost),e.ghost.appendTo(e.helper)},resize:function(){var e=t(this).resizable("instance");e.ghost&&e.ghost.css({position:"relative",height:e.size.height,width:e.size.width})},stop:function(){var e=t(this).resizable("instance");e.ghost&&e.helper&&e.helper.get(0).removeChild(e.ghost.get(0))}}),t.ui.plugin.add("resizable","grid",{resize:function(){var e,i=t(this).resizable("instance"),s=i.options,n=i.size,o=i.originalSize,a=i.originalPosition,r=i.axis,h="number"==typeof s.grid?[s.grid,s.grid]:s.grid,l=h[0]||1,c=h[1]||1,u=Math.round((n.width-o.width)/l)*l,d=Math.round((n.height-o.height)/c)*c,p=o.width+u,f=o.height+d,m=s.maxWidth&&p>s.maxWidth,g=s.maxHeight&&f>s.maxHeight,_=s.minWidth&&s.minWidth>p,v=s.minHeight&&s.minHeight>f;s.grid=h,_&&(p+=l),v&&(f+=c),m&&(p-=l),g&&(f-=c),/^(se|s|e)$/.test(r)?(i.size.width=p,i.size.height=f):/^(ne)$/.test(r)?(i.size.width=p,i.size.height=f,i.position.top=a.top-d):/^(sw)$/.test(r)?(i.size.width=p,i.size.height=f,i.position.left=a.left-u):((0>=f-c||0>=p-l)&&(e=i._getPaddingPlusBorderDimensions(this)),f-c>0?(i.size.height=f,i.position.top=a.top-d):(f=c-e.height,i.size.height=f,i.position.top=a.top+o.height-f),p-l>0?(i.size.width=p,i.position.left=a.left-u):(p=l-e.width,i.size.width=p,i.position.left=a.left+o.width-p))}}),t.ui.resizable});/**
+ * Copyright (c) 2007 Ariel Flesler - aflesler ○ gmail • com | https://github.com/flesler
+ * Licensed under MIT
+ * @author Ariel Flesler
+ * @version 2.1.2
+ */
+;(function(f){"use strict";"function"===typeof define&&define.amd?define(["jquery"],f):"undefined"!==typeof module&&module.exports?module.exports=f(require("jquery")):f(jQuery)})(function($){"use strict";function n(a){return!a.nodeName||-1!==$.inArray(a.nodeName.toLowerCase(),["iframe","#document","html","body"])}function h(a){return $.isFunction(a)||$.isPlainObject(a)?a:{top:a,left:a}}var p=$.scrollTo=function(a,d,b){return $(window).scrollTo(a,d,b)};p.defaults={axis:"xy",duration:0,limit:!0};$.fn.scrollTo=function(a,d,b){"object"=== typeof d&&(b=d,d=0);"function"===typeof b&&(b={onAfter:b});"max"===a&&(a=9E9);b=$.extend({},p.defaults,b);d=d||b.duration;var u=b.queue&&1=f[g]?0:Math.min(f[g],n));!a&&1-1){targetElements.on(evt+EVENT_NAMESPACE,function elementToggle(event){$.powerTip.toggle(this,event)})}else{targetElements.on(evt+EVENT_NAMESPACE,function elementOpen(event){$.powerTip.show(this,event)})}});$.each(options.closeEvents,function(idx,evt){if($.inArray(evt,options.openEvents)<0){targetElements.on(evt+EVENT_NAMESPACE,function elementClose(event){$.powerTip.hide(this,!isMouseEvent(event))})}});targetElements.on("keydown"+EVENT_NAMESPACE,function elementKeyDown(event){if(event.keyCode===27){$.powerTip.hide(this,true)}})}return targetElements};$.fn.powerTip.defaults={fadeInTime:200,fadeOutTime:100,followMouse:false,popupId:"powerTip",popupClass:null,intentSensitivity:7,intentPollInterval:100,closeDelay:100,placement:"n",smartPlacement:false,offset:10,mouseOnToPopup:false,manual:false,openEvents:["mouseenter","focus"],closeEvents:["mouseleave","blur"]};$.fn.powerTip.smartPlacementLists={n:["n","ne","nw","s"],e:["e","ne","se","w","nw","sw","n","s","e"],s:["s","se","sw","n"],w:["w","nw","sw","e","ne","se","n","s","w"],nw:["nw","w","sw","n","s","se","nw"],ne:["ne","e","se","n","s","sw","ne"],sw:["sw","w","nw","s","n","ne","sw"],se:["se","e","ne","s","n","nw","se"],"nw-alt":["nw-alt","n","ne-alt","sw-alt","s","se-alt","w","e"],"ne-alt":["ne-alt","n","nw-alt","se-alt","s","sw-alt","e","w"],"sw-alt":["sw-alt","s","se-alt","nw-alt","n","ne-alt","w","e"],"se-alt":["se-alt","s","sw-alt","ne-alt","n","nw-alt","e","w"]};$.powerTip={show:function apiShowTip(element,event){if(isMouseEvent(event)){trackMouse(event);session.previousX=event.pageX;session.previousY=event.pageY;$(element).data(DATA_DISPLAYCONTROLLER).show()}else{$(element).first().data(DATA_DISPLAYCONTROLLER).show(true,true)}return element},reposition:function apiResetPosition(element){$(element).first().data(DATA_DISPLAYCONTROLLER).resetPosition();return element},hide:function apiCloseTip(element,immediate){var displayController;immediate=element?immediate:true;if(element){displayController=$(element).first().data(DATA_DISPLAYCONTROLLER)}else if(session.activeHover){displayController=session.activeHover.data(DATA_DISPLAYCONTROLLER)}if(displayController){displayController.hide(immediate)}return element},toggle:function apiToggle(element,event){if(session.activeHover&&session.activeHover.is(element)){$.powerTip.hide(element,!isMouseEvent(event))}else{$.powerTip.show(element,event)}return element}};$.powerTip.showTip=$.powerTip.show;$.powerTip.closeTip=$.powerTip.hide;function CSSCoordinates(){var me=this;me.top="auto";me.left="auto";me.right="auto";me.bottom="auto";me.set=function(property,value){if($.isNumeric(value)){me[property]=Math.round(value)}}}function DisplayController(element,options,tipController){var hoverTimer=null,myCloseDelay=null;function openTooltip(immediate,forceOpen){cancelTimer();if(!element.data(DATA_HASACTIVEHOVER)){if(!immediate){session.tipOpenImminent=true;hoverTimer=setTimeout(function intentDelay(){hoverTimer=null;checkForIntent()},options.intentPollInterval)}else{if(forceOpen){element.data(DATA_FORCEDOPEN,true)}closeAnyDelayed();tipController.showTip(element)}}else{cancelClose()}}function closeTooltip(disableDelay){if(myCloseDelay){myCloseDelay=session.closeDelayTimeout=clearTimeout(myCloseDelay);session.delayInProgress=false}cancelTimer();session.tipOpenImminent=false;if(element.data(DATA_HASACTIVEHOVER)){element.data(DATA_FORCEDOPEN,false);if(!disableDelay){session.delayInProgress=true;session.closeDelayTimeout=setTimeout(function closeDelay(){session.closeDelayTimeout=null;tipController.hideTip(element);session.delayInProgress=false;myCloseDelay=null},options.closeDelay);myCloseDelay=session.closeDelayTimeout}else{tipController.hideTip(element)}}}function checkForIntent(){var xDifference=Math.abs(session.previousX-session.currentX),yDifference=Math.abs(session.previousY-session.currentY),totalDifference=xDifference+yDifference;if(totalDifference",{id:options.popupId});if($body.length===0){$body=$("body")}$body.append(tipElement);session.tooltips=session.tooltips?session.tooltips.add(tipElement):tipElement}if(options.followMouse){if(!tipElement.data(DATA_HASMOUSEMOVE)){$document.on("mousemove"+EVENT_NAMESPACE,positionTipOnCursor);$window.on("scroll"+EVENT_NAMESPACE,positionTipOnCursor);tipElement.data(DATA_HASMOUSEMOVE,true)}}function beginShowTip(element){element.data(DATA_HASACTIVEHOVER,true);tipElement.queue(function queueTipInit(next){showTip(element);next()})}function showTip(element){var tipContent;if(!element.data(DATA_HASACTIVEHOVER)){return}if(session.isTipOpen){if(!session.isClosing){hideTip(session.activeHover)}tipElement.delay(100).queue(function queueTipAgain(next){showTip(element);next()});return}element.trigger("powerTipPreRender");tipContent=getTooltipContent(element);if(tipContent){tipElement.empty().append(tipContent)}else{return}element.trigger("powerTipRender");session.activeHover=element;session.isTipOpen=true;tipElement.data(DATA_MOUSEONTOTIP,options.mouseOnToPopup);tipElement.addClass(options.popupClass);if(!options.followMouse||element.data(DATA_FORCEDOPEN)){positionTipOnElement(element);session.isFixedTipOpen=true}else{positionTipOnCursor()}if(!element.data(DATA_FORCEDOPEN)&&!options.followMouse){$document.on("click"+EVENT_NAMESPACE,function documentClick(event){var target=event.target;if(target!==element[0]){if(options.mouseOnToPopup){if(target!==tipElement[0]&&!$.contains(tipElement[0],target)){$.powerTip.hide()}}else{$.powerTip.hide()}}})}if(options.mouseOnToPopup&&!options.manual){tipElement.on("mouseenter"+EVENT_NAMESPACE,function tipMouseEnter(){if(session.activeHover){session.activeHover.data(DATA_DISPLAYCONTROLLER).cancel()}});tipElement.on("mouseleave"+EVENT_NAMESPACE,function tipMouseLeave(){if(session.activeHover){session.activeHover.data(DATA_DISPLAYCONTROLLER).hide()}})}tipElement.fadeIn(options.fadeInTime,function fadeInCallback(){if(!session.desyncTimeout){session.desyncTimeout=setInterval(closeDesyncedTip,500)}element.trigger("powerTipOpen")})}function hideTip(element){session.isClosing=true;session.isTipOpen=false;session.desyncTimeout=clearInterval(session.desyncTimeout);element.data(DATA_HASACTIVEHOVER,false);element.data(DATA_FORCEDOPEN,false);$document.off("click"+EVENT_NAMESPACE);tipElement.off(EVENT_NAMESPACE);tipElement.fadeOut(options.fadeOutTime,function fadeOutCallback(){var coords=new CSSCoordinates;session.activeHover=null;session.isClosing=false;session.isFixedTipOpen=false;tipElement.removeClass();coords.set("top",session.currentY+options.offset);coords.set("left",session.currentX+options.offset);tipElement.css(coords);element.trigger("powerTipClose")})}function positionTipOnCursor(){var tipWidth,tipHeight,coords,collisions,collisionCount;if(!session.isFixedTipOpen&&(session.isTipOpen||session.tipOpenImminent&&tipElement.data(DATA_HASMOUSEMOVE))){tipWidth=tipElement.outerWidth();tipHeight=tipElement.outerHeight();coords=new CSSCoordinates;coords.set("top",session.currentY+options.offset);coords.set("left",session.currentX+options.offset);collisions=getViewportCollisions(coords,tipWidth,tipHeight);if(collisions!==Collision.none){collisionCount=countFlags(collisions);if(collisionCount===1){if(collisions===Collision.right){coords.set("left",session.scrollLeft+session.windowWidth-tipWidth)}else if(collisions===Collision.bottom){coords.set("top",session.scrollTop+session.windowHeight-tipHeight)}}else{coords.set("left",session.currentX-tipWidth-options.offset);coords.set("top",session.currentY-tipHeight-options.offset)}}tipElement.css(coords)}}function positionTipOnElement(element){var priorityList,finalPlacement;if(options.smartPlacement||options.followMouse&&element.data(DATA_FORCEDOPEN)){priorityList=$.fn.powerTip.smartPlacementLists[options.placement];$.each(priorityList,function(idx,pos){var collisions=getViewportCollisions(placeTooltip(element,pos),tipElement.outerWidth(),tipElement.outerHeight());finalPlacement=pos;return collisions!==Collision.none})}else{placeTooltip(element,options.placement);finalPlacement=options.placement}tipElement.removeClass("w nw sw e ne se n s w se-alt sw-alt ne-alt nw-alt");tipElement.addClass(finalPlacement)}function placeTooltip(element,placement){var iterationCount=0,tipWidth,tipHeight,coords=new CSSCoordinates;coords.set("top",0);coords.set("left",0);tipElement.css(coords);do{tipWidth=tipElement.outerWidth();tipHeight=tipElement.outerHeight();coords=placementCalculator.compute(element,placement,tipWidth,tipHeight,options.offset);tipElement.css(coords)}while(++iterationCount<=5&&(tipWidth!==tipElement.outerWidth()||tipHeight!==tipElement.outerHeight()));return coords}function closeDesyncedTip(){var isDesynced=false,hasDesyncableCloseEvent=$.grep(["mouseleave","mouseout","blur","focusout"],function(eventType){return $.inArray(eventType,options.closeEvents)!==-1}).length>0;if(session.isTipOpen&&!session.isClosing&&!session.delayInProgress&&hasDesyncableCloseEvent){if(session.activeHover.data(DATA_HASACTIVEHOVER)===false||session.activeHover.is(":disabled")){isDesynced=true}else if(!isMouseOver(session.activeHover)&&!session.activeHover.is(":focus")&&!session.activeHover.data(DATA_FORCEDOPEN)){if(tipElement.data(DATA_MOUSEONTOTIP)){if(!isMouseOver(tipElement)){isDesynced=true}}else{isDesynced=true}}if(isDesynced){hideTip(session.activeHover)}}}this.showTip=beginShowTip;this.hideTip=hideTip;this.resetPosition=positionTipOnElement}function isSvgElement(element){return Boolean(window.SVGElement&&element[0]instanceof SVGElement)}function isMouseEvent(event){return Boolean(event&&$.inArray(event.type,MOUSE_EVENTS)>-1&&typeof event.pageX==="number")}function initTracking(){if(!session.mouseTrackingActive){session.mouseTrackingActive=true;getViewportDimensions();$(getViewportDimensions);$document.on("mousemove"+EVENT_NAMESPACE,trackMouse);$window.on("resize"+EVENT_NAMESPACE,trackResize);$window.on("scroll"+EVENT_NAMESPACE,trackScroll)}}function getViewportDimensions(){session.scrollLeft=$window.scrollLeft();session.scrollTop=$window.scrollTop();session.windowWidth=$window.width();session.windowHeight=$window.height()}function trackResize(){session.windowWidth=$window.width();session.windowHeight=$window.height()}function trackScroll(){var x=$window.scrollLeft(),y=$window.scrollTop();if(x!==session.scrollLeft){session.currentX+=x-session.scrollLeft;session.scrollLeft=x}if(y!==session.scrollTop){session.currentY+=y-session.scrollTop;session.scrollTop=y}}function trackMouse(event){session.currentX=event.pageX;session.currentY=event.pageY}function isMouseOver(element){var elementPosition=element.offset(),elementBox=element[0].getBoundingClientRect(),elementWidth=elementBox.right-elementBox.left,elementHeight=elementBox.bottom-elementBox.top;return session.currentX>=elementPosition.left&&session.currentX<=elementPosition.left+elementWidth&&session.currentY>=elementPosition.top&&session.currentY<=elementPosition.top+elementHeight}function getTooltipContent(element){var tipText=element.data(DATA_POWERTIP),tipObject=element.data(DATA_POWERTIPJQ),tipTarget=element.data(DATA_POWERTIPTARGET),targetElement,content;if(tipText){if($.isFunction(tipText)){tipText=tipText.call(element[0])}content=tipText}else if(tipObject){if($.isFunction(tipObject)){tipObject=tipObject.call(element[0])}if(tipObject.length>0){content=tipObject.clone(true,true)}}else if(tipTarget){targetElement=$("#"+tipTarget);if(targetElement.length>0){content=targetElement.html()}}return content}function getViewportCollisions(coords,elementWidth,elementHeight){var viewportTop=session.scrollTop,viewportLeft=session.scrollLeft,viewportBottom=viewportTop+session.windowHeight,viewportRight=viewportLeft+session.windowWidth,collisions=Collision.none;if(coords.topviewportBottom||Math.abs(coords.bottom-session.windowHeight)>viewportBottom){collisions|=Collision.bottom}if(coords.leftviewportRight){collisions|=Collision.left}if(coords.left+elementWidth>viewportRight||coords.right1)){a.preventDefault();var c=a.originalEvent.changedTouches[0],d=document.createEvent("MouseEvents");d.initMouseEvent(b,!0,!0,window,1,c.screenX,c.screenY,c.clientX,c.clientY,!1,!1,!1,!1,0,null),a.target.dispatchEvent(d)}}if(a.support.touch="ontouchend"in document,a.support.touch){var e,b=a.ui.mouse.prototype,c=b._mouseInit,d=b._mouseDestroy;b._touchStart=function(a){var b=this;!e&&b._mouseCapture(a.originalEvent.changedTouches[0])&&(e=!0,b._touchMoved=!1,f(a,"mouseover"),f(a,"mousemove"),f(a,"mousedown"))},b._touchMove=function(a){e&&(this._touchMoved=!0,f(a,"mousemove"))},b._touchEnd=function(a){e&&(f(a,"mouseup"),f(a,"mouseout"),this._touchMoved||f(a,"click"),e=!1)},b._mouseInit=function(){var b=this;b.element.bind({touchstart:a.proxy(b,"_touchStart"),touchmove:a.proxy(b,"_touchMove"),touchend:a.proxy(b,"_touchEnd")}),c.call(b)},b._mouseDestroy=function(){var b=this;b.element.unbind({touchstart:a.proxy(b,"_touchStart"),touchmove:a.proxy(b,"_touchMove"),touchend:a.proxy(b,"_touchEnd")}),d.call(b)}}}(jQuery);/*! SmartMenus jQuery Plugin - v1.1.0 - September 17, 2017
+ * http://www.smartmenus.org/
+ * Copyright Vasil Dinkov, Vadikom Web Ltd. http://vadikom.com; Licensed MIT */(function(t){"function"==typeof define&&define.amd?define(["jquery"],t):"object"==typeof module&&"object"==typeof module.exports?module.exports=t(require("jquery")):t(jQuery)})(function($){function initMouseDetection(t){var e=".smartmenus_mouse";if(mouseDetectionEnabled||t)mouseDetectionEnabled&&t&&($(document).off(e),mouseDetectionEnabled=!1);else{var i=!0,s=null,o={mousemove:function(t){var e={x:t.pageX,y:t.pageY,timeStamp:(new Date).getTime()};if(s){var o=Math.abs(s.x-e.x),a=Math.abs(s.y-e.y);if((o>0||a>0)&&2>=o&&2>=a&&300>=e.timeStamp-s.timeStamp&&(mouse=!0,i)){var n=$(t.target).closest("a");n.is("a")&&$.each(menuTrees,function(){return $.contains(this.$root[0],n[0])?(this.itemEnter({currentTarget:n[0]}),!1):void 0}),i=!1}}s=e}};o[touchEvents?"touchstart":"pointerover pointermove pointerout MSPointerOver MSPointerMove MSPointerOut"]=function(t){isTouchEvent(t.originalEvent)&&(mouse=!1)},$(document).on(getEventsNS(o,e)),mouseDetectionEnabled=!0}}function isTouchEvent(t){return!/^(4|mouse)$/.test(t.pointerType)}function getEventsNS(t,e){e||(e="");var i={};for(var s in t)i[s.split(" ").join(e+" ")+e]=t[s];return i}var menuTrees=[],mouse=!1,touchEvents="ontouchstart"in window,mouseDetectionEnabled=!1,requestAnimationFrame=window.requestAnimationFrame||function(t){return setTimeout(t,1e3/60)},cancelAnimationFrame=window.cancelAnimationFrame||function(t){clearTimeout(t)},canAnimate=!!$.fn.animate;return $.SmartMenus=function(t,e){this.$root=$(t),this.opts=e,this.rootId="",this.accessIdPrefix="",this.$subArrow=null,this.activatedItems=[],this.visibleSubMenus=[],this.showTimeout=0,this.hideTimeout=0,this.scrollTimeout=0,this.clickActivated=!1,this.focusActivated=!1,this.zIndexInc=0,this.idInc=0,this.$firstLink=null,this.$firstSub=null,this.disabled=!1,this.$disableOverlay=null,this.$touchScrollingSub=null,this.cssTransforms3d="perspective"in t.style||"webkitPerspective"in t.style,this.wasCollapsible=!1,this.init()},$.extend($.SmartMenus,{hideAll:function(){$.each(menuTrees,function(){this.menuHideAll()})},destroy:function(){for(;menuTrees.length;)menuTrees[0].destroy();initMouseDetection(!0)},prototype:{init:function(t){var e=this;if(!t){menuTrees.push(this),this.rootId=((new Date).getTime()+Math.random()+"").replace(/\D/g,""),this.accessIdPrefix="sm-"+this.rootId+"-",this.$root.hasClass("sm-rtl")&&(this.opts.rightToLeftSubMenus=!0);var i=".smartmenus";this.$root.data("smartmenus",this).attr("data-smartmenus-id",this.rootId).dataSM("level",1).on(getEventsNS({"mouseover focusin":$.proxy(this.rootOver,this),"mouseout focusout":$.proxy(this.rootOut,this),keydown:$.proxy(this.rootKeyDown,this)},i)).on(getEventsNS({mouseenter:$.proxy(this.itemEnter,this),mouseleave:$.proxy(this.itemLeave,this),mousedown:$.proxy(this.itemDown,this),focus:$.proxy(this.itemFocus,this),blur:$.proxy(this.itemBlur,this),click:$.proxy(this.itemClick,this)},i),"a"),i+=this.rootId,this.opts.hideOnClick&&$(document).on(getEventsNS({touchstart:$.proxy(this.docTouchStart,this),touchmove:$.proxy(this.docTouchMove,this),touchend:$.proxy(this.docTouchEnd,this),click:$.proxy(this.docClick,this)},i)),$(window).on(getEventsNS({"resize orientationchange":$.proxy(this.winResize,this)},i)),this.opts.subIndicators&&(this.$subArrow=$("
').css({position:"absolute",top:e.top,left:e.left,width:this.$root.outerWidth(),height:this.$root.outerHeight(),zIndex:this.getStartZIndex(!0),opacity:0}).appendTo(document.body)}this.disabled=!0}},docClick:function(t){return this.$touchScrollingSub?(this.$touchScrollingSub=null,void 0):((this.visibleSubMenus.length&&!$.contains(this.$root[0],t.target)||$(t.target).closest("a").length)&&this.menuHideAll(),void 0)},docTouchEnd:function(){if(this.lastTouch){if(!(!this.visibleSubMenus.length||void 0!==this.lastTouch.x2&&this.lastTouch.x1!=this.lastTouch.x2||void 0!==this.lastTouch.y2&&this.lastTouch.y1!=this.lastTouch.y2||this.lastTouch.target&&$.contains(this.$root[0],this.lastTouch.target))){this.hideTimeout&&(clearTimeout(this.hideTimeout),this.hideTimeout=0);var t=this;this.hideTimeout=setTimeout(function(){t.menuHideAll()},350)}this.lastTouch=null}},docTouchMove:function(t){if(this.lastTouch){var e=t.originalEvent.touches[0];this.lastTouch.x2=e.pageX,this.lastTouch.y2=e.pageY}},docTouchStart:function(t){var e=t.originalEvent.touches[0];this.lastTouch={x1:e.pageX,y1:e.pageY,target:e.target}},enable:function(){this.disabled&&(this.$disableOverlay&&(this.$disableOverlay.remove(),this.$disableOverlay=null),this.disabled=!1)},getClosestMenu:function(t){for(var e=$(t).closest("ul");e.dataSM("in-mega");)e=e.parent().closest("ul");return e[0]||null},getHeight:function(t){return this.getOffset(t,!0)},getOffset:function(t,e){var i;"none"==t.css("display")&&(i={position:t[0].style.position,visibility:t[0].style.visibility},t.css({position:"absolute",visibility:"hidden"}).show());var s=t[0].getBoundingClientRect&&t[0].getBoundingClientRect(),o=s&&(e?s.height||s.bottom-s.top:s.width||s.right-s.left);return o||0===o||(o=e?t[0].offsetHeight:t[0].offsetWidth),i&&t.hide().css(i),o},getStartZIndex:function(t){var e=parseInt(this[t?"$root":"$firstSub"].css("z-index"));return!t&&isNaN(e)&&(e=parseInt(this.$root.css("z-index"))),isNaN(e)?1:e},getTouchPoint:function(t){return t.touches&&t.touches[0]||t.changedTouches&&t.changedTouches[0]||t},getViewport:function(t){var e=t?"Height":"Width",i=document.documentElement["client"+e],s=window["inner"+e];return s&&(i=Math.min(i,s)),i},getViewportHeight:function(){return this.getViewport(!0)},getViewportWidth:function(){return this.getViewport()},getWidth:function(t){return this.getOffset(t)},handleEvents:function(){return!this.disabled&&this.isCSSOn()},handleItemEvents:function(t){return this.handleEvents()&&!this.isLinkInMegaMenu(t)},isCollapsible:function(){return"static"==this.$firstSub.css("position")},isCSSOn:function(){return"inline"!=this.$firstLink.css("display")},isFixed:function(){var t="fixed"==this.$root.css("position");return t||this.$root.parentsUntil("body").each(function(){return"fixed"==$(this).css("position")?(t=!0,!1):void 0}),t},isLinkInMegaMenu:function(t){return $(this.getClosestMenu(t[0])).hasClass("mega-menu")},isTouchMode:function(){return!mouse||this.opts.noMouseOver||this.isCollapsible()},itemActivate:function(t,e){var i=t.closest("ul"),s=i.dataSM("level");if(s>1&&(!this.activatedItems[s-2]||this.activatedItems[s-2][0]!=i.dataSM("parent-a")[0])){var o=this;$(i.parentsUntil("[data-smartmenus-id]","ul").get().reverse()).add(i).each(function(){o.itemActivate($(this).dataSM("parent-a"))})}if((!this.isCollapsible()||e)&&this.menuHideSubMenus(this.activatedItems[s-1]&&this.activatedItems[s-1][0]==t[0]?s:s-1),this.activatedItems[s-1]=t,this.$root.triggerHandler("activate.smapi",t[0])!==!1){var a=t.dataSM("sub");a&&(this.isTouchMode()||!this.opts.showOnClick||this.clickActivated)&&this.menuShow(a)}},itemBlur:function(t){var e=$(t.currentTarget);this.handleItemEvents(e)&&this.$root.triggerHandler("blur.smapi",e[0])},itemClick:function(t){var e=$(t.currentTarget);if(this.handleItemEvents(e)){if(this.$touchScrollingSub&&this.$touchScrollingSub[0]==e.closest("ul")[0])return this.$touchScrollingSub=null,t.stopPropagation(),!1;if(this.$root.triggerHandler("click.smapi",e[0])===!1)return!1;var i=$(t.target).is(".sub-arrow"),s=e.dataSM("sub"),o=s?2==s.dataSM("level"):!1,a=this.isCollapsible(),n=/toggle$/.test(this.opts.collapsibleBehavior),r=/link$/.test(this.opts.collapsibleBehavior),h=/^accordion/.test(this.opts.collapsibleBehavior);if(s&&!s.is(":visible")){if((!r||!a||i)&&(this.opts.showOnClick&&o&&(this.clickActivated=!0),this.itemActivate(e,h),s.is(":visible")))return this.focusActivated=!0,!1}else if(a&&(n||i))return this.itemActivate(e,h),this.menuHide(s),n&&(this.focusActivated=!1),!1;return this.opts.showOnClick&&o||e.hasClass("disabled")||this.$root.triggerHandler("select.smapi",e[0])===!1?!1:void 0}},itemDown:function(t){var e=$(t.currentTarget);this.handleItemEvents(e)&&e.dataSM("mousedown",!0)},itemEnter:function(t){var e=$(t.currentTarget);if(this.handleItemEvents(e)){if(!this.isTouchMode()){this.showTimeout&&(clearTimeout(this.showTimeout),this.showTimeout=0);var i=this;this.showTimeout=setTimeout(function(){i.itemActivate(e)},this.opts.showOnClick&&1==e.closest("ul").dataSM("level")?1:this.opts.showTimeout)}this.$root.triggerHandler("mouseenter.smapi",e[0])}},itemFocus:function(t){var e=$(t.currentTarget);this.handleItemEvents(e)&&(!this.focusActivated||this.isTouchMode()&&e.dataSM("mousedown")||this.activatedItems.length&&this.activatedItems[this.activatedItems.length-1][0]==e[0]||this.itemActivate(e,!0),this.$root.triggerHandler("focus.smapi",e[0]))},itemLeave:function(t){var e=$(t.currentTarget);this.handleItemEvents(e)&&(this.isTouchMode()||(e[0].blur(),this.showTimeout&&(clearTimeout(this.showTimeout),this.showTimeout=0)),e.removeDataSM("mousedown"),this.$root.triggerHandler("mouseleave.smapi",e[0]))},menuHide:function(t){if(this.$root.triggerHandler("beforehide.smapi",t[0])!==!1&&(canAnimate&&t.stop(!0,!0),"none"!=t.css("display"))){var e=function(){t.css("z-index","")};this.isCollapsible()?canAnimate&&this.opts.collapsibleHideFunction?this.opts.collapsibleHideFunction.call(this,t,e):t.hide(this.opts.collapsibleHideDuration,e):canAnimate&&this.opts.hideFunction?this.opts.hideFunction.call(this,t,e):t.hide(this.opts.hideDuration,e),t.dataSM("scroll")&&(this.menuScrollStop(t),t.css({"touch-action":"","-ms-touch-action":"","-webkit-transform":"",transform:""}).off(".smartmenus_scroll").removeDataSM("scroll").dataSM("scroll-arrows").hide()),t.dataSM("parent-a").removeClass("highlighted").attr("aria-expanded","false"),t.attr({"aria-expanded":"false","aria-hidden":"true"});var i=t.dataSM("level");this.activatedItems.splice(i-1,1),this.visibleSubMenus.splice($.inArray(t,this.visibleSubMenus),1),this.$root.triggerHandler("hide.smapi",t[0])}},menuHideAll:function(){this.showTimeout&&(clearTimeout(this.showTimeout),this.showTimeout=0);for(var t=this.opts.isPopup?1:0,e=this.visibleSubMenus.length-1;e>=t;e--)this.menuHide(this.visibleSubMenus[e]);this.opts.isPopup&&(canAnimate&&this.$root.stop(!0,!0),this.$root.is(":visible")&&(canAnimate&&this.opts.hideFunction?this.opts.hideFunction.call(this,this.$root):this.$root.hide(this.opts.hideDuration))),this.activatedItems=[],this.visibleSubMenus=[],this.clickActivated=!1,this.focusActivated=!1,this.zIndexInc=0,this.$root.triggerHandler("hideAll.smapi")},menuHideSubMenus:function(t){for(var e=this.activatedItems.length-1;e>=t;e--){var i=this.activatedItems[e].dataSM("sub");i&&this.menuHide(i)}},menuInit:function(t){if(!t.dataSM("in-mega")){t.hasClass("mega-menu")&&t.find("ul").dataSM("in-mega",!0);for(var e=2,i=t[0];(i=i.parentNode.parentNode)!=this.$root[0];)e++;var s=t.prevAll("a").eq(-1);s.length||(s=t.prevAll().find("a").eq(-1)),s.addClass("has-submenu").dataSM("sub",t),t.dataSM("parent-a",s).dataSM("level",e).parent().dataSM("sub",t);var o=s.attr("id")||this.accessIdPrefix+ ++this.idInc,a=t.attr("id")||this.accessIdPrefix+ ++this.idInc;s.attr({id:o,"aria-haspopup":"true","aria-controls":a,"aria-expanded":"false"}),t.attr({id:a,role:"group","aria-hidden":"true","aria-labelledby":o,"aria-expanded":"false"}),this.opts.subIndicators&&s[this.opts.subIndicatorsPos](this.$subArrow.clone())}},menuPosition:function(t){var e,i,s=t.dataSM("parent-a"),o=s.closest("li"),a=o.parent(),n=t.dataSM("level"),r=this.getWidth(t),h=this.getHeight(t),u=s.offset(),l=u.left,c=u.top,d=this.getWidth(s),m=this.getHeight(s),p=$(window),f=p.scrollLeft(),v=p.scrollTop(),b=this.getViewportWidth(),S=this.getViewportHeight(),g=a.parent().is("[data-sm-horizontal-sub]")||2==n&&!a.hasClass("sm-vertical"),M=this.opts.rightToLeftSubMenus&&!o.is("[data-sm-reverse]")||!this.opts.rightToLeftSubMenus&&o.is("[data-sm-reverse]"),w=2==n?this.opts.mainMenuSubOffsetX:this.opts.subMenusSubOffsetX,T=2==n?this.opts.mainMenuSubOffsetY:this.opts.subMenusSubOffsetY;if(g?(e=M?d-r-w:w,i=this.opts.bottomToTopSubMenus?-h-T:m+T):(e=M?w-r:d-w,i=this.opts.bottomToTopSubMenus?m-T-h:T),this.opts.keepInViewport){var y=l+e,I=c+i;if(M&&f>y?e=g?f-y+e:d-w:!M&&y+r>f+b&&(e=g?f+b-r-y+e:w-r),g||(S>h&&I+h>v+S?i+=v+S-h-I:(h>=S||v>I)&&(i+=v-I)),g&&(I+h>v+S+.49||v>I)||!g&&h>S+.49){var x=this;t.dataSM("scroll-arrows")||t.dataSM("scroll-arrows",$([$('0;t.dataSM("scroll-arrows").eq(i?0:1).is(":visible")&&(t.dataSM("scroll").up=i,this.menuScroll(t,!0))}e.preventDefault()},menuScrollOut:function(t,e){mouse&&(/^scroll-(up|down)/.test((e.relatedTarget||"").className)||(t[0]==e.relatedTarget||$.contains(t[0],e.relatedTarget))&&this.getClosestMenu(e.relatedTarget)==t[0]||t.dataSM("scroll-arrows").css("visibility","hidden"))},menuScrollOver:function(t,e){if(mouse&&!/^scroll-(up|down)/.test(e.target.className)&&this.getClosestMenu(e.target)==t[0]){this.menuScrollRefreshData(t);var i=t.dataSM("scroll"),s=$(window).scrollTop()-t.dataSM("parent-a").offset().top-i.itemH;t.dataSM("scroll-arrows").eq(0).css("margin-top",s).end().eq(1).css("margin-top",s+this.getViewportHeight()-i.arrowDownH).end().css("visibility","visible")}},menuScrollRefreshData:function(t){var e=t.dataSM("scroll"),i=$(window).scrollTop()-t.dataSM("parent-a").offset().top-e.itemH;this.cssTransforms3d&&(i=-(parseFloat(t.css("margin-top"))-i)),$.extend(e,{upEnd:i,downEnd:i+this.getViewportHeight()-e.subH})},menuScrollStop:function(t){return this.scrollTimeout?(cancelAnimationFrame(this.scrollTimeout),this.scrollTimeout=0,t.dataSM("scroll").step=1,!0):void 0},menuScrollTouch:function(t,e){if(e=e.originalEvent,isTouchEvent(e)){var i=this.getTouchPoint(e);if(this.getClosestMenu(i.target)==t[0]){var s=t.dataSM("scroll");if(/(start|down)$/i.test(e.type))this.menuScrollStop(t)?(e.preventDefault(),this.$touchScrollingSub=t):this.$touchScrollingSub=null,this.menuScrollRefreshData(t),$.extend(s,{touchStartY:i.pageY,touchStartTime:e.timeStamp});else if(/move$/i.test(e.type)){var o=void 0!==s.touchY?s.touchY:s.touchStartY;if(void 0!==o&&o!=i.pageY){this.$touchScrollingSub=t;var a=i.pageY>o;void 0!==s.up&&s.up!=a&&$.extend(s,{touchStartY:i.pageY,touchStartTime:e.timeStamp}),$.extend(s,{up:a,touchY:i.pageY}),this.menuScroll(t,!0,Math.abs(i.pageY-o))}e.preventDefault()}else void 0!==s.touchY&&((s.momentum=15*Math.pow(Math.abs(i.pageY-s.touchStartY)/(e.timeStamp-s.touchStartTime),2))&&(this.menuScrollStop(t),this.menuScroll(t),e.preventDefault()),delete s.touchY)}}},menuShow:function(t){if((t.dataSM("beforefirstshowfired")||(t.dataSM("beforefirstshowfired",!0),this.$root.triggerHandler("beforefirstshow.smapi",t[0])!==!1))&&this.$root.triggerHandler("beforeshow.smapi",t[0])!==!1&&(t.dataSM("shown-before",!0),canAnimate&&t.stop(!0,!0),!t.is(":visible"))){var e=t.dataSM("parent-a"),i=this.isCollapsible();if((this.opts.keepHighlighted||i)&&e.addClass("highlighted"),i)t.removeClass("sm-nowrap").css({zIndex:"",width:"auto",minWidth:"",maxWidth:"",top:"",left:"",marginLeft:"",marginTop:""});else{if(t.css("z-index",this.zIndexInc=(this.zIndexInc||this.getStartZIndex())+1),(this.opts.subMenusMinWidth||this.opts.subMenusMaxWidth)&&(t.css({width:"auto",minWidth:"",maxWidth:""}).addClass("sm-nowrap"),this.opts.subMenusMinWidth&&t.css("min-width",this.opts.subMenusMinWidth),this.opts.subMenusMaxWidth)){var s=this.getWidth(t);t.css("max-width",this.opts.subMenusMaxWidth),s>this.getWidth(t)&&t.removeClass("sm-nowrap").css("width",this.opts.subMenusMaxWidth)}this.menuPosition(t)}var o=function(){t.css("overflow","")};i?canAnimate&&this.opts.collapsibleShowFunction?this.opts.collapsibleShowFunction.call(this,t,o):t.show(this.opts.collapsibleShowDuration,o):canAnimate&&this.opts.showFunction?this.opts.showFunction.call(this,t,o):t.show(this.opts.showDuration,o),e.attr("aria-expanded","true"),t.attr({"aria-expanded":"true","aria-hidden":"false"}),this.visibleSubMenus.push(t),this.$root.triggerHandler("show.smapi",t[0])}},popupHide:function(t){this.hideTimeout&&(clearTimeout(this.hideTimeout),this.hideTimeout=0);var e=this;this.hideTimeout=setTimeout(function(){e.menuHideAll()},t?1:this.opts.hideTimeout)},popupShow:function(t,e){if(!this.opts.isPopup)return alert('SmartMenus jQuery Error:\n\nIf you want to show this menu via the "popupShow" method, set the isPopup:true option.'),void 0;if(this.hideTimeout&&(clearTimeout(this.hideTimeout),this.hideTimeout=0),this.$root.dataSM("shown-before",!0),canAnimate&&this.$root.stop(!0,!0),!this.$root.is(":visible")){this.$root.css({left:t,top:e});var i=this,s=function(){i.$root.css("overflow","")};canAnimate&&this.opts.showFunction?this.opts.showFunction.call(this,this.$root,s):this.$root.show(this.opts.showDuration,s),this.visibleSubMenus[0]=this.$root}},refresh:function(){this.destroy(!0),this.init(!0)},rootKeyDown:function(t){if(this.handleEvents())switch(t.keyCode){case 27:var e=this.activatedItems[0];if(e){this.menuHideAll(),e[0].focus();var i=e.dataSM("sub");i&&this.menuHide(i)}break;case 32:var s=$(t.target);if(s.is("a")&&this.handleItemEvents(s)){var i=s.dataSM("sub");i&&!i.is(":visible")&&(this.itemClick({currentTarget:t.target}),t.preventDefault())}}},rootOut:function(t){if(this.handleEvents()&&!this.isTouchMode()&&t.target!=this.$root[0]&&(this.hideTimeout&&(clearTimeout(this.hideTimeout),this.hideTimeout=0),!this.opts.showOnClick||!this.opts.hideOnClick)){var e=this;this.hideTimeout=setTimeout(function(){e.menuHideAll()},this.opts.hideTimeout)}},rootOver:function(t){this.handleEvents()&&!this.isTouchMode()&&t.target!=this.$root[0]&&this.hideTimeout&&(clearTimeout(this.hideTimeout),this.hideTimeout=0)},winResize:function(t){if(this.handleEvents()){if(!("onorientationchange"in window)||"orientationchange"==t.type){var e=this.isCollapsible();this.wasCollapsible&&e||(this.activatedItems.length&&this.activatedItems[this.activatedItems.length-1][0].blur(),this.menuHideAll()),this.wasCollapsible=e}}else if(this.$disableOverlay){var i=this.$root.offset();this.$disableOverlay.css({top:i.top,left:i.left,width:this.$root.outerWidth(),height:this.$root.outerHeight()})}}}}),$.fn.dataSM=function(t,e){return e?this.data(t+"_smartmenus",e):this.data(t+"_smartmenus")},$.fn.removeDataSM=function(t){return this.removeData(t+"_smartmenus")},$.fn.smartmenus=function(options){if("string"==typeof options){var args=arguments,method=options;return Array.prototype.shift.call(args),this.each(function(){var t=$(this).data("smartmenus");t&&t[method]&&t[method].apply(t,args)})}return this.each(function(){var dataOpts=$(this).data("sm-options")||null;if(dataOpts)try{dataOpts=eval("("+dataOpts+")")}catch(e){dataOpts=null,alert('ERROR\n\nSmartMenus jQuery init:\nInvalid "data-sm-options" attribute value syntax.')}new $.SmartMenus(this,$.extend({},$.fn.smartmenus.defaults,options,dataOpts))})},$.fn.smartmenus.defaults={isPopup:!1,mainMenuSubOffsetX:0,mainMenuSubOffsetY:0,subMenusSubOffsetX:0,subMenusSubOffsetY:0,subMenusMinWidth:"10em",subMenusMaxWidth:"20em",subIndicators:!0,subIndicatorsPos:"append",subIndicatorsText:"",scrollStep:30,scrollAccelerate:!0,showTimeout:250,hideTimeout:500,showDuration:0,showFunction:null,hideDuration:0,hideFunction:function(t,e){t.fadeOut(200,e)},collapsibleShowDuration:0,collapsibleShowFunction:function(t,e){t.slideDown(200,e)},collapsibleHideDuration:0,collapsibleHideFunction:function(t,e){t.slideUp(200,e)},showOnClick:!1,hideOnClick:!0,noMouseOver:!1,keepInViewport:!0,keepHighlighted:!0,markCurrentItem:!1,markCurrentTree:!0,rightToLeftSubMenus:!1,bottomToTopSubMenus:!1,collapsibleBehavior:"default"},$});
\ No newline at end of file
diff --git a/ver-1.7.0/menu.js b/ver-1.7.0/menu.js
new file mode 100644
index 00000000..433c15b8
--- /dev/null
+++ b/ver-1.7.0/menu.js
@@ -0,0 +1,50 @@
+/*
+ @licstart The following is the entire license notice for the
+ JavaScript code in this file.
+
+ Copyright (C) 1997-2017 by Dimitri van Heesch
+
+ 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 2 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, write to the Free Software Foundation, Inc.,
+ 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
+
+ @licend The above is the entire license notice
+ for the JavaScript code in this file
+ */
+function initMenu(relPath,searchEnabled,serverSide,searchPage,search) {
+ function makeTree(data,relPath) {
+ var result='';
+ if ('children' in data) {
+ result+='';
+ }
+ return result;
+ }
+
+ $('#main-nav').append(makeTree(menudata,relPath));
+ $('#main-nav').children(':first').addClass('sm sm-dox').attr('id','main-menu');
+ if (searchEnabled) {
+ if (serverSide) {
+ $('#main-menu').append('NCEPLIBS-g2c: misspack.c File Reference
+
+
+
+
+
+
+ NCEPLIBS-g2c
+ 1.7.0
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
Pack up a data field using a complex packing algorithm as defined in the GRIB2 documention.
+More...
+
#include <stdlib.h>
+
#include <math.h>
+
#include "grib2_int.h "
+
+
Go to the source code of this file.
+
+void misspack (float *fld, g2int ndpts, g2int idrsnum, g2int *idrstmpl, unsigned char *cpack, g2int *lcpack) This function packs up a data field using a complex packing algorithm as defined in the GRIB2 documention. More...
+
+
Pack up a data field using a complex packing algorithm as defined in the GRIB2 documention.
+
Author Stephen Gilbert
+
Date 2000-06-21
+
+
Definition in file misspack.c .
+
+
+
◆
+
+
+
+
+
+ void misspack
+ (
+ float *
+ fld ,
+
+ g2int ndpts ,
+
+ g2int idrsnum ,
+
+ g2int * idrstmpl ,
+
+ unsigned char *
+ cpack ,
+
+ g2int * lcpack
+
+ )
+
+
+
+
+
This function packs up a data field using a complex packing algorithm as defined in the GRIB2 documention.
+
It supports GRIB2 complex packing templates with or without spatial differences (See Template 5.2 and Template 5.3 ).
+
This function fills in GRIB2 Data Representation template arrays with the appropriate values.
+
Parameters
+
+ fld Contains the data values to pack ndpts The number of data values in array fld idrsnum Data Representation Template number. Must equal 2 or 3. idrstmpl Contains the array of values for Data Representation Template 5.2 or 5.3.
+0 Reference value - ignored on input, set by misspack routine.
+1 Binary Scale Factor - used on input.
+2 Decimal Scale Factor- used on input.
+6 Missing value management.
+7 Primary missing value.
+8 Secondary missing value.
+16 Order of Spatial Differencing (1 or 2).
+
+ cpack The packed data field (character*1 array). lcpack length of packed field cpack.
+
+
+
Author Stephen Gilbert
+
Date 2000-06-21
+
+
Definition at line 42 of file misspack.c .
+
+
References ALOG2 , int_power() , mkieee() , pack_gp() , rdieee() , sbit() , and sbits() .
+
+
Referenced by cmplxpack() .
+
+
+
+
+
NCEPLIBS-g2c: misspack.c Source File
+
+
+
+
+
+
+ NCEPLIBS-g2c
+ 1.7.0
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
Go to the documentation of this file.
+
+
+
+
+
+
+
43 unsigned char *cpack,
g2int *lcpack)
+
+
45 g2int *ifld, *ifldmiss, *jfld;
+
46 g2int *jmin, *jmax, *lbit;
+
47 static g2int zero = 0;
+
48 g2int *gref, *gwidth, *glen;
+
49 g2int glength, grpwidth;
+
50 g2int i, n, iofst, imin, ival1, ival2, isd, minsd, nbitsd = 0;
+
51 g2int nbitsgref, left, iwmax, ngwidthref, nbitsgwidth, ilmax;
+
52 g2int nglenref, nglenlast, nbitsglen;
+
53 g2int j, missopt, nonmiss, itemp, maxorig, nbitorig, miss1, miss2;
+
54 g2int ngroups, ng, num0, num1, num2;
+
55 g2int imax, lg, mtemp, ier, igmax;
+
56 g2int kfildo, minpk, inc, maxgrps, ibit, jbit, kbit, novref, lbitref;
+
57 float rmissp, rmisss, bscale, dscale, rmin, temp;
+
58 static float alog2 =
ALOG2 ;
+
+
+
+
+
63 missopt = idrstmpl[6];
+
64 if (missopt != 1 && missopt != 2)
+
+
66 printf(
"misspack: Unrecognized option.\n" );
+
+
+
+
+
+
72 rdieee (idrstmpl + 7, &rmissp, 1);
+
+
74 rdieee (idrstmpl + 8, &rmisss, 1);
+
+
+
+
+
79 ifldmiss = calloc(ndpts,
sizeof (
g2int ));
+
+
+
+
83 for (j = 0; j < ndpts; j++)
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
99 for (j = 0; j < ndpts; j++)
+
+
101 if (fld[j] == rmissp)
+
+
+
+
105 else if (fld[j] == rmisss)
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
124 ifld = calloc(ndpts,
sizeof (
g2int ));
+
125 jfld = calloc(ndpts,
sizeof (
g2int ));
+
126 gref = calloc(ndpts,
sizeof (
g2int ));
+
127 gwidth = calloc(ndpts,
sizeof (
g2int ));
+
128 glen = calloc(ndpts,
sizeof (
g2int ));
+
+
+
+
132 if (idrstmpl[1] == 0)
+
+
134 imin = (
g2int )rint(rmin * dscale);
+
+
136 for (j = 0; j < ndpts; j++)
+
+
138 if (ifldmiss[j] == 0)
+
+
140 jfld[nonmiss] = (
g2int )rint(fld[j] * dscale) - imin;
+
+
+
+
+
+
+
147 rmin = rmin * dscale;
+
148 for (j = 0; j < ndpts; j++)
+
+
150 if (ifldmiss[j] == 0)
+
+
152 jfld[nonmiss] = (
g2int )rint(((fld[j] * dscale) - rmin) * bscale);
+
+
+
+
+
+
+
+
+
161 if (idrstmpl[16] != 1 && idrstmpl[16] != 2)
+
+
163 if (idrstmpl[16] == 1)
+
+
+
166 for (j = nonmiss - 1; j > 0; j--)
+
167 jfld[j] = jfld[j] - jfld[j - 1];
+
+
+
170 else if (idrstmpl[16] == 2)
+
+
+
+
174 for (j = nonmiss - 1; j > 1; j--)
+
175 jfld[j] = jfld[j] - (2 * jfld[j - 1]) + jfld[j - 2];
+
+
+
+
+
+
+
+
183 for (j = isd; j < nonmiss; j++)
+
+
+
186 for (j = isd; j < nonmiss; j++)
+
187 jfld[j] = jfld[j] - minsd;
+
+
+
+
191 temp = log((
double )(abs(minsd) + 1)) / alog2;
+
192 nbitsd = (
g2int )ceil(temp) + 1;
+
+
+
+
+
197 if (idrstmpl[16] == 2 && ival2 > ival1)
+
+
199 temp = log((
double )(maxorig + 1)) / alog2;
+
200 nbitorig = (
g2int )ceil(temp) + 1;
+
201 if (nbitorig > nbitsd)
+
+
+
+
+
206 nbitsd = nbitsd + (8 - (nbitsd % 8));
+
+
+
+
+
+
+
+
214 sbit (cpack, &ival1, iofst, nbitsd);
+
215 iofst = iofst + nbitsd;
+
+
+
+
219 sbit (cpack, &one, iofst, 1);
+
+
+
222 sbit (cpack, &itemp, iofst, nbitsd-1);
+
223 iofst = iofst + nbitsd - 1;
+
+
225 if (idrstmpl[16] == 2)
+
+
+
+
+
230 sbit (cpack, &ival2, iofst, nbitsd);
+
231 iofst = iofst + nbitsd;
+
+
+
+
235 sbit (cpack, &one, iofst, 1);
+
+
+
238 sbit (cpack, &itemp, iofst, nbitsd-1);
+
239 iofst = iofst + nbitsd - 1;
+
+
+
+
+
+
245 sbit (cpack, &minsd, iofst, nbitsd);
+
246 iofst = iofst + nbitsd;
+
+
+
+
250 sbit (cpack, &one, iofst, 1);
+
+
+
253 sbit (cpack, &itemp, iofst, nbitsd-1);
+
254 iofst = iofst + nbitsd - 1;
+
+
+
+
+
+
+
261 for (j = 0; j < nonmiss; j++)
+
+
+
+
+
+
267 for (j = 0; j < ndpts; j++)
+
+
269 if (ifldmiss[j] == 0)
+
+
+
+
+
274 else if (ifldmiss[j] == 1)
+
+
+
+
278 else if (ifldmiss[j] == 2)
+
+
+
+
+
+
+
+
+
+
+
289 maxgrps = (ndpts / minpk) + 1;
+
290 jmin = calloc(maxgrps,
sizeof (
g2int ));
+
291 jmax = calloc(maxgrps,
sizeof (
g2int ));
+
292 lbit = calloc(maxgrps,
sizeof (
g2int ));
+
293 pack_gp (&kfildo, ifld, &ndpts, &missopt, &minpk, &inc, &miss1, &miss2,
+
294 jmin, jmax, lbit, glen, &maxgrps, &ngroups, &ibit, &jbit,
+
295 &kbit, &novref, &lbitref, &ier);
+
296 for (ng = 0; ng < ngroups; ng++)
+
297 glen[ng] = glen[ng] + novref;
+
+
+
+
+
+
+
+
305 for (ng = 0; ng < ngroups; ng++)
+
+
+
308 num0 = num1 = num2 = 0;
+
309 for (j = n; j < n + glen[ng]; j++)
+
+
311 if (ifldmiss[j] == 0)
+
+
313 if (ifldmiss[j] == 1)
+
+
315 if (ifldmiss[j] == 2)
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
339 gref[ng] = 2147483647;
+
+
+
342 for (lg = 0; lg < glen[ng]; lg++)
+
+
344 if (ifldmiss[j] == 0)
+
+
346 if (ifld[j] < gref[ng])
+
+
+
+
+
+
+
+
+
+
+
+
358 if (gref[ng] != imax)
+
+
360 temp = log((
double )(imax - gref[ng] + 1)) / alog2;
+
361 gwidth[ng] = (
g2int )ceil(temp);
+
+
+
+
+
+
+
+
+
+
371 for (lg = 0; lg < glen[ng]; lg++)
+
+
373 if (ifldmiss[j] == 0)
+
374 ifld[j] = ifld[j] - gref[ng];
+
375 else if (ifldmiss[j] == 1)
+
+
377 else if (ifldmiss[j] == 2)
+
+
+
+
+
+
+
+
+
+
+
+
389 for (j = 1; j < ngroups; j++)
+
+
+
+
+
+
+
+
+
398 temp = log((
double )(igmax + 1)) / alog2;
+
399 nbitsgref = (
g2int )ceil(temp);
+
+
+
402 for (j = 0; j < ngroups; j++)
+
+
+
+
+
+
+
409 sbits (cpack, gref, iofst, nbitsgref, 0, ngroups);
+
410 itemp = nbitsgref * ngroups;
+
411 iofst = iofst + itemp;
+
+
413 if ((itemp % 8) != 0)
+
+
415 left = 8 - (itemp % 8);
+
416 sbit (cpack, &zero, iofst, left);
+
417 iofst = iofst + left;
+
+
+
+
+
+
+
+
+
+
+
+
429 ngwidthref = gwidth[0];
+
430 for (j = 1; j < ngroups; j++)
+
+
432 if (gwidth[j] > iwmax)
+
+
434 if (gwidth[j] < ngwidthref)
+
435 ngwidthref = gwidth[j];
+
+
437 if (iwmax != ngwidthref)
+
+
439 temp = log((
double )(iwmax - ngwidthref + 1)) / alog2;
+
440 nbitsgwidth = (
g2int )ceil(temp);
+
441 for (i = 0; i<ngroups; i++)
+
442 gwidth[i] = gwidth[i]-ngwidthref;
+
443 sbits (cpack, gwidth, iofst, nbitsgwidth, 0, ngroups);
+
444 itemp = nbitsgwidth * ngroups;
+
445 iofst = iofst + itemp;
+
+
+
+
449 left = 8 - (itemp % 8);
+
450 sbit (cpack, &zero, iofst, left);
+
451 iofst = iofst + left;
+
+
+
+
+
+
457 for (i = 0; i < ngroups; i++)
+
+
+
+
+
+
+
+
+
466 for (j = 1; j < ngroups - 1; j++)
+
+
+
+
470 if (glen[j] < nglenref)
+
+
+
473 nglenlast = glen[ngroups - 1];
+
474 if (ilmax != nglenref)
+
+
476 temp = log((
double )(ilmax - nglenref + 1)) / alog2;
+
477 nbitsglen = (
g2int )ceil(temp);
+
478 for (i = 0; i < ngroups - 1; i++)
+
479 glen[i] = glen[i] - nglenref;
+
480 sbits (cpack, glen, iofst, nbitsglen, 0, ngroups);
+
481 itemp = nbitsglen * ngroups;
+
482 iofst = iofst + itemp;
+
+
484 if ((itemp % 8) != 0)
+
+
486 left = 8 - (itemp % 8);
+
487 sbit (cpack, &zero, iofst, left);
+
488 iofst = iofst + left;
+
+
+
+
+
+
494 for (i = 0; i < ngroups; i++)
+
+
+
+
+
+
500 for (ng = 0; ng < ngroups; ng++)
+
+
502 glength = glen[ng] + nglenref;
+
503 if (ng == (ngroups - 1))
+
+
505 grpwidth = gwidth[ng] + ngwidthref;
+
+
+
508 sbits (cpack, ifld + n, iofst, grpwidth, 0, glength);
+
509 iofst = iofst + (grpwidth * glength);
+
+
+
+
+
+
515 if ((iofst % 8) != 0)
+
+
517 left = 8 - (iofst % 8);
+
518 sbit (cpack, &zero, iofst, left);
+
519 iofst = iofst + left;
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
537 mkieee (&rmin, idrstmpl, 1);
+
538 idrstmpl[3] = nbitsgref;
+
+
+
541 idrstmpl[9] = ngroups;
+
542 idrstmpl[10] = ngwidthref;
+
543 idrstmpl[11] = nbitsgwidth;
+
544 idrstmpl[12] = nglenref;
+
+
546 idrstmpl[14] = nglenlast;
+
547 idrstmpl[15] = nbitsglen;
+
+
549 idrstmpl[17] = nbitsd / 8;
+
+
+
void rdieee(g2int *rieee, float *a, g2int num)
This subroutine reads a list of real values in 32-bit IEEE floating point format.
double int_power(double x, g2int y)
Function similar to C pow() power function.
Header file with internal function prototypes NCEPLIBS-g2c library.
void sbits(unsigned char *out, g2int *in, g2int iskip, g2int nbits, g2int nskip, g2int n)
Store bits - put arbitrary size values into a packed bit string, taking the low order bits from each ...
void mkieee(float *a, g2int *rieee, g2int num)
This subroutine stores a list of real values in 32-bit IEEE floating point format.
int pack_gp(g2int *kfildo, g2int *ic, g2int *nxy, g2int *is523, g2int *minpk, g2int *inc, g2int *missp, g2int *misss, g2int *jmin, g2int *jmax, g2int *lbit, g2int *nov, g2int *ndg, g2int *lx, g2int *ibit, g2int *jbit, g2int *kbit, g2int *novref, g2int *lbitref, g2int *ier)
Determines groups of variable size, but at least of size minpk, the associated max (jmax( )) and min ...
int64_t g2int
Long integer type.
void misspack(float *fld, g2int ndpts, g2int idrsnum, g2int *idrstmpl, unsigned char *cpack, g2int *lcpack)
This function packs up a data field using a complex packing algorithm as defined in the GRIB2 documen...
void sbit(unsigned char *out, g2int *in, g2int iskip, g2int nbits)
Store bits - put arbitrary size values into a packed bit string, taking the low order bits from each ...
NCEPLIBS-g2c: mkieee.c File Reference
+
+
+
+
+
+
+ NCEPLIBS-g2c
+ 1.7.0
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
#include <stdlib.h>
+
#include <math.h>
+
#include "grib2_int.h "
+
+
Go to the source code of this file.
+
+void mkieee (float *a, g2int *rieee, g2int num) This subroutine stores a list of real values in 32-bit IEEE floating point format. More...
+
+
Author Stephen Gilbert
+
Date 2002-10-29
+
+
Definition in file mkieee.c .
+
+
+
◆
+
+
+
+
+
+ void mkieee
+ (
+ float *
+ a ,
+
+ g2int * rieee ,
+
+ g2int num
+
+ )
+
+
+
+
+
This subroutine stores a list of real values in 32-bit IEEE floating point format.
+
Parameters
+
+ a Input array of floating point values. num Number of floating point values to convert. rieee Output array of data values in 32-bit IEEE format stored in g2int integer array. rieee must be allocated with at least 4*num bytes of memory before calling this function.
+
+
+
Author Stephen Gilbert
+
Date 2002-10-29
+
+
Definition at line 22 of file mkieee.c .
+
+
References int_power() .
+
+
Referenced by compack() , g2_addfield() , jpcpack_int() , misspack() , pngpack_int() , simpack() , and specpack() .
+
+
+
+
+
NCEPLIBS-g2c: mkieee.c Source File
+
+
+
+
+
+
+ NCEPLIBS-g2c
+ 1.7.0
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
Go to the documentation of this file.
+
+
+
+
+
+
+
+
24 g2int j,n,ieee,iexp,imant;
+
+
26 static double two23, two126;
+
27 static g2int test = 0;
+
+
+
+
+
+
+
+
+
36 for (j = 0; j < num; j++)
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
81 ieee = ieee | ( iexp << 23 );
+
+
+
+
+
+
87 atemp = (atemp /
int_power (2.0, n)) - 1.0;
+
+
89 atemp = atemp * two126;
+
90 imant = (
g2int )rint(atemp * two23);
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
double int_power(double x, g2int y)
Function similar to C pow() power function.
Header file with internal function prototypes NCEPLIBS-g2c library.
int64_t g2int
Long integer type.
void mkieee(float *a, g2int *rieee, g2int num)
This subroutine stores a list of real values in 32-bit IEEE floating point format.
1) hash = '#'+parts[1].replace(/[^\w\-]/g,'');
+ else hash='';
+ }
+ if (hash.match(/^#l\d+$/)) {
+ var anchor=$('a[name='+hash.substring(1)+']');
+ glowEffect(anchor.parent(),1000); // line number
+ hash=''; // strip line number anchors
+ }
+ var url=root+hash;
+ var i=-1;
+ while (NAVTREEINDEX[i+1]<=url) i++;
+ if (i==-1) { i=0; root=NAVTREE[0][1]; } // fallback: show index
+ if (navTreeSubIndices[i]) {
+ gotoNode(o,i,root,hash,relpath)
+ } else {
+ getScript(relpath+'navtreeindex'+i,function(){
+ navTreeSubIndices[i] = eval('NAVTREEINDEX'+i);
+ if (navTreeSubIndices[i]) {
+ gotoNode(o,i,root,hash,relpath);
+ }
+ },true);
+ }
+}
+
+function showSyncOff(n,relpath)
+{
+ n.html('NCEPLIBS-g2c: pack_gp.c File Reference
+
+
+
+
+
+
+ NCEPLIBS-g2c
+ 1.7.0
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
#include <stdlib.h>
+
#include "grib2_int.h "
+
+
Go to the source code of this file.
+
+int pack_gp (g2int *kfildo, g2int *ic, g2int *nxy, g2int *is523, g2int *minpk, g2int *inc, g2int *missp, g2int *misss, g2int *jmin, g2int *jmax, g2int *lbit, g2int *nov, g2int *ndg, g2int *lx, g2int *ibit, g2int *jbit, g2int *kbit, g2int *novref, g2int *lbitref, g2int *ier) Determines groups of variable size, but at least of size minpk, the associated max (jmax( )) and min (jmin( )), the number of bits necessary to hold the values in each group (lbit( )), the number of values in each group (nov( )), the number of bits necessary to pack the jmin( ) values (ibit), the number of bits necessary to pack the lbit( ) values (jbit), and the number of bits necessary to pack the nov( ) values (kbit). More...
+
+
Author Glahn
+
Date february 1994
+
+
Definition in file pack_gp.c .
+
+
+
◆
+
+
+
+
+
+ #define FALSE_ (0)
+
+
+
+
+
False.
+
+
Definition at line 10 of file pack_gp.c .
+
+
+
+
+
◆
+
+
+
+
+
+ #define TRUE_ (1)
+
+
+
+
+
True.
+
+
Definition at line 9 of file pack_gp.c .
+
+
+
+
+
+
◆
+
+
+
+
+
+ int pack_gp
+ (
+ g2int * kfildo ,
+
+ g2int * ic ,
+
+ g2int * nxy ,
+
+ g2int * is523 ,
+
+ g2int * minpk ,
+
+ g2int * inc ,
+
+ g2int * missp ,
+
+ g2int * misss ,
+
+ g2int * jmin ,
+
+ g2int * jmax ,
+
+ g2int * lbit ,
+
+ g2int * nov ,
+
+ g2int * ndg ,
+
+ g2int * lx ,
+
+ g2int * ibit ,
+
+ g2int * jbit ,
+
+ g2int * kbit ,
+
+ g2int * novref ,
+
+ g2int * lbitref ,
+
+ g2int * ier
+
+ )
+
+
+
+
+
Determines groups of variable size, but at least of size minpk, the associated max (jmax( )) and min (jmin( )), the number of bits necessary to hold the values in each group (lbit( )), the number of values in each group (nov( )), the number of bits necessary to pack the jmin( ) values (ibit), the number of bits necessary to pack the lbit( ) values (jbit), and the number of bits necessary to pack the nov( ) values (kbit).
+
The routine is designed to determine the groups such that a small number of bits is necessary to pack the data without excessive computations. If all values in the group are zero, the number of bits to use in packing is defined as zero when there can be no missing values; when there can be missing values, the number of bits must be at least 1 to have the capability to recognize the missing value. However, if all values in a group are missing, the number of bits needed is 0, and the unpacker recognizes this. All variables are g2int. Even though the groups are initially of size minpk or larger, an adjustment between two groups (the lookback procedure) may make a group smaller than minpk. The control on group size is that the sum of the sizes of the two consecutive groups, each of size minpk or larger, is not decreased. When determining the number of bits necessary for packing, the largest value that can be accommodated in, say, mbits, is 2**mbits-1; this largest value (and the next smallest value) is reserved for the missing value indicator (only) when is523 ne 0. If the dimension ndg is not large enough to hold all the groups, the local value of minpk is increased by 50 percent. This is repeated until ndg will suffice. A diagnostic is printed whenever this happens, which should be very rarely. If it happens often, ndg in subroutine pack should be increased and a corresponding increase in subroutine unpack made. Considerable code is provided so that no more checking for missing values within loops is done than necessary; the added efficiency of this is relatively minor, but does no harm. For grib2, the reference value for the length of groups in nov( ) and for the number of bits necessary to pack group values are determined, and subtracted before jbit and kbit are determined.
+
When 1 or more groups are large compared to the others, the width of all groups must be as large as the largest. A subroutine reduce breaks up large groups into 2 or more to reduce total bits required. If reduce should abort, pack_gp will be executed again without the call to reduce.
+
PROGRAM HISTORY LOG:
+February 1994 Glahn tdl mos-2000
+June 1995 Glahn modified for lmiss error.
+July 1996 Glahn added misss
+February 1997 Glahn removed 4 redundant tests for missp.eq.0; inserted a test to better handle a string of 9999's
+February 1997 Glahn added loops to eliminate test for misss when misss = 0
+March 1997 Glahn corrected for secondary missing value
+March 1997 Glahn corrected for use of local value of minpk
+March 1997 Glahn corrected for secondary missing value
+March 1997 Glahn changed calculating number of bits through exponents to an array (improved overall packing performance by about 35 percent!). allowed 0 bits for packing jmin( ), lbit( ), and nov( ).
+May 1997 Glahn a number of changes for efficiency. mod functions eliminated and one ifthen added. jount removed. recomputation of bits not made unless necessary after moving points from one group to another. nendb adjusted to eliminate possibility of very small group at the end. about 8 percent improvement in overall packing. iskipa removed; there is always a group b that can become group a. control on size of group b (statement below 150) added. added adda, and use of ge and le instead of gt and lt in loops between 150 and 160. ibitbs added to shorten trips through loop.
+March 2000 Glahn modified for grib2; changed name from packgp
+january 2001 Glahn comments; ier = 706 substituted for stops; added return1; removed statement number 110; added ier and * return
+November 2001 Glahn changed some diagnostic formats to allow printing larger numbers
+November 2001 Glahn added misslx( ) to put maximum value into jmin( ) when all values missing to agree with grib standard.
+November 2001 Glahn changed two tests on missp and misss eq 0 to tests on is523. however, missp and misss cannot in general be = 0.
+November 2001 Glahn added call to reduce; defined itest before loops to reduce computation; started large group when all same value
+December 2001 Glahn modified and added a few comments
+January 2002 Glahn removed loop before 150 to determine a group of all same value
+January 2002 Glahn changed mallow from 9999999 to 2**30+1, and made it a parameter
+March 2002 Glahn added non fatal ier = 716, 717; removed nendb=nxy above 150; added iersav=0; comments
+
+
DATA SET USE
+kfildo - unit number for output (print) file. (output)
+
+
Parameters
+
+ kfildo unit number for output (print) file. (input) ic array to hold data for packing. the values do not have to be positive at this point, but must be in the range -2**30 to +2**30 (the the value of mallow). these g2int values will be retained exactly through packing and unpacking. (input) nxy number of values in ic( ). also treated as its dimension. (input) is523 missing value management 0=data contains no missing values 1=data contains primary missing values 2=data contains primary and secondary missing values (input) minpk the minimum size of each group, except possibly the last one. (input) inc the number of values to add to an already existing group in determining whether or not to start a new group. ideally, this would be 1, but each time inc values are attempted, the max and min of the next minpk values must be found. this is "a loop within a
+loop," and a slightly larger value may give about as good results with slightly less computational time. if inc is le 0, 1 is used, and a diagnostic is output. note: it is expected that inc will equal 1. the code uses inc primarily in the loops starting at statement 180. if inc were 1, there would not need to be loops as such. however, kinc (the local value of inc) is set ge 1 when near the end of the data to forestall a very small group at the end. (input) missp when missing points can be present in the data, they will have the value missp or misss. missp is the primary missing value and misss is the secondary missing value . these must not be values that would occur with subtracting the minimum (reference) value or scaling. for example, missp = 0 would not be advisable. (input) misss secondary missing value indicator (see missp). (input) jmin the minimum of each group (j=1,lx). (output) jmax the maximum of each group (j=1,lx). this is not really needed, but since the max of each group must be found, saving it here is cheap in case the user wants it. (output) lbit the number of bits necessary to pack each group (j=1,lx). it is assumed the minimum of each group will be removed before packing, and the values to pack will, therefore, all be positive. however, ic( ) does not necessarily contain all positive values. if the overall minimum has been removed (the usual case), then ic( ) will contain only positive values. (output) nov the number of values in each group (j=1,lx). (output) ndg the dimension of jmin, jmax, lbit, and nov. (input) lx the number of groups determined. (output) ibit the number of bits necessary to pack the jmin(j) values, j=1,lx. (output) jbit the number of bits necessary to pack the lbit(j) values, j=1,lx. (output) kbit the number of bits necessary to pack the nov(j) values, j=1,lx. (output) novref reference value for nov( ). (output) lbitref reference value for lbit( ). (output) ier Error code
+0 No error.
+706 value will not pack in 30 bits–fatal
+714 error in reduce–non-fatal
+715 ngp not large enough in reduce–non-fatal
+716 minpk inceased–non-fatal
+717 inc set
+1–non-fatal
+alternate return when ier ne 0 and fatal error.
+
+
+
+
+
Returns 0 - check ier for error code. INTERNAL VARIABLES
+
+ cfeed = contains the character representation
+ of a printer form feed.
+ ifeed = contains the g2int value of a printer
+ form feed.
+ kinc = working copy of inc. may be modified.
+ mina = minimum value in group a.
+ maxa = maximum value in group a.
+ nenda = the place in ic( ) where group a ends.
+ kstart = the place in ic( ) where group a starts.
+ ibita = number of bits needed to hold values in group a.
+ minb = minimum value in group b.
+ maxb = maximum value in group b.
+ nendb = the place in ic( ) where group b ends.
+ ibitb = number of bits needed to hold values in group b.
+ minc = minimum value in group c.
+ maxc = maximum value in group c.
+ ktotal = count of number of values in ic( ) processed.
+ nount = number of values added to group a.
+ lmiss = 0 when is523 = 0. when packing into a
+ specific number of bits, say mbits,
+ the maximum value that can be handled is
+ 2**mbits-1. when is523 = 1, indicating
+ primary missing values, this maximum value
+ is reserved to hold the primary missing value
+ indicator and lmiss = 1. when is523 = 2,
+ the value just below the maximum i.e.,
+ 2**mbits-2 is reserved to hold the secondary
+ missing value indicator and lmiss = 2.
+ lminpk = local value of minpk. this will be adjusted
+ upward whenever ndg is not large enough to hold
+ all the groups.
+ mallow = the largest allowable value for packing.
+ mislla = set to 1 when all values in group a are missing.
+ this is used to distinguish between a real
+ minimum when all values are not missing
+ and a minimum that has been set to zero when
+ all values are missing. 0 otherwise.
+ note that this does not distinguish between
+ primary and secondary missings when secondary
+ missings are present. this means that
+ lbit( ) will not be zero with the resulting
+ compression efficiency when secondary missings
+ are present. also note that a check has been
+ made earlier to determine that secondary
+ missings are really there.
+ misllb = set to 1 when all values in group b are missing.
+ this is used to distinguish between a real
+ minimum when all values are not missing
+ and a minimum that has been set to zero when
+ all values are missing. 0 otherwise.
+ misllc = performs the same function for group c that
+ mislla and misllb do for groups b and c,
+ respectively.
+ ibxx2(j) = an array that when this routine is first entered
+ is set to 2**j, j=0,30. ibxx2(30) = 2**30, which
+ is the largest value packable, because 2**31
+ is larger than the g2int word size.
+ ifirst = set by data statement to 0. changed to 1 on
+ first
+ entry when ibxx2( ) is filled.
+ minak = keeps track of the location in ic( ) where the
+ minimum value in group a is located.
+ maxak = does the same as minak, except for the maximum.
+ minbk = the same as minak for group b.
+ maxbk = the same as maxak for group b.
+ minck = the same as minak for group c.
+ maxck = the same as maxak for group c.
+ adda = keeps track whether or not an attempt to add
+ points to group a was made. if so, then adda
+ keeps from trying to put one back into b.
+ (g2int)
+ ibitbs = keeps current value if ibitb so that loop
+ ending at 166 doesn't have to start at
+ ibitb = 0 every time.
+ misslx(j) = mallow except when a group is all one value (and
+ lbit(j) = 0) and that value is missing. in
+ that case, misslx(j) is missp or misss. this
+ gets inserted into jmin(j) later as the
+ missing indicator; it can't be put in until
+ the end, because jmin( ) is used to calculate
+ the maximum number of bits (ibits) needed to
+ pack jmin( ).
+
+
+
Definition at line 255 of file pack_gp.c .
+
+
References FALSE_ , reduce() , and TRUE_ .
+
+
Referenced by compack() , and misspack() .
+
+
+
+
+
NCEPLIBS-g2c: pack_gp.c Source File
+
+
+
+
+
+
+ NCEPLIBS-g2c
+ 1.7.0
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
Go to the documentation of this file.
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
263 const g2int mallow = 1073741825;
+
264 static g2int ifeed = 12;
+
265 static g2int ifirst = 0;
+
+
+
268 g2int i__1, i__2, i__3;
+
+
+
271 static g2int j, k, l;
+
+
273 static g2int ired, kinc, mina, maxa, minb, maxb, minc, maxc, ibxx2[31];
+
274 static char cfeed[1];
+
275 static g2int nenda, nendb, ibita, ibitb, minak, minbk, maxak, maxbk,
+
276 minck, maxck, nouta, lmiss, itest, nount;
+
+
+
+
280 static g2int ibitbs, mislla, misllb, misllc, iersav, lminpk, ktotal,
+
281 kounta, kountb, kstart, mstart, mintst, maxtst,
+
282 kounts, mintstk, maxtstk;
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
308 *(
unsigned char *)cfeed = (
char ) ifeed;
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
328 kinc = (*inc > 1) ? *inc : 1;
+
+
+
+
+
+
+
+
+
337 for (j = 1; j <= 30; ++j) {
+
338 ibxx2[j] = ibxx2[j - 1] << 1;
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
384 i__1 = kstart + lminpk - 1;
+
+
386 nenda = (i__1 < *nxy) ? i__1 : *nxy;
+
387 if (*nxy - nenda <= lminpk / 2) {
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
404 if (nenda != *nxy && ic[kstart] == ic[kstart + 1]) {
+
+
+
+
+
+
+
411 for (k = kstart + 1; k <= i__1; ++k) {
+
+
413 if (ic[k] != ic[kstart]) {
+
+
415 i__2 = nenda, i__3 = k - 1;
+
+
417 nenda = (i__2 > i__3) ? i__2 : i__3;
+
+
+
+
+
+
+
+
+
+
427 }
else if (*is523 == 1) {
+
+
+
+
431 for (k = kstart + 1; k <= i__1; ++k) {
+
+
433 if (ic[k] != *missp) {
+
+
435 if (ic[k] != ic[kstart]) {
+
+
437 i__2 = nenda, i__3 = k - 1;
+
+
439 nenda = (i__2 > i__3) ? i__2 : i__3;
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
455 for (k = kstart + 1; k <= i__1; ++k) {
+
+
457 if (ic[k] != *missp && ic[k] != *misss) {
+
+
459 if (ic[k] != ic[kstart]) {
+
+
461 i__2 = nenda, i__3 = k - 1;
+
+
463 nenda = (i__2 > i__3) ? i__2 : i__3;
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
482 for (k = kstart; k <= i__1; ++k) {
+
+
+
+
+
+
+
+
+
+
+
+
494 }
else if (*is523 == 1) {
+
+
+
497 for (k = kstart; k <= i__1; ++k) {
+
498 if (ic[k] == *missp) {
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
516 for (k = kstart; k <= i__1; ++k) {
+
517 if (ic[k] == *missp || ic[k] == *misss) {
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
534 kounta = nenda - kstart + 1;
+
+
+
+
+
+
540 if (mina != mallow) {
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
556 itest = maxa - mina + lmiss;
+
+
558 for (ibita = 0; ibita <= 30; ++ibita) {
+
559 if (itest < ibxx2[ibita]) {
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
580 if (ktotal >= *nxy) {
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
610 for (k = mstart + 1; k <= i__1; ++k) {
+
+
612 if (ic[k] != ic[mstart]) {
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
630 i__3 = ktotal + lminpk;
+
+
632 i__1 = nendb, i__2 = (i__3 < *nxy) ? i__3 : *nxy;
+
+
634 nendb = (i__1 > i__2) ? i__1 : i__2;
+
+
+
637 if (*nxy - nendb <= lminpk / 2) {
+
+
+
+
+
+
+
+
+
+
+
+
+
+
651 for (k = mstart; k <= i__1; ++k) {
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
667 }
else if (*is523 == 1) {
+
+
+
670 for (k = mstart; k <= i__1; ++k) {
+
671 if (ic[k] == *missp) {
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
689 for (k = mstart; k <= i__1; ++k) {
+
690 if (ic[k] == *missp || ic[k] == *misss) {
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
707 kountb = nendb - ktotal;
+
+
709 if (minb != mallow) {
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
726 for (ibitb = ibitbs; ibitb <= 30; ++ibitb) {
+
727 if (maxb - minb < ibxx2[ibitb] - lmiss) {
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
752 if (ibitb >= ibita) {
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
780 for (k = ktotal; k >= i__1; --k) {
+
+
+
+
+
785 }
else if (ic[k] > maxb) {
+
+
+
+
789 if (maxtst - mintst >= ibxx2[ibitb]) {
+
+
+
+
+
+
+
+
+
+
+
+
+
802 }
else if (*is523 == 1) {
+
+
+
805 for (k = ktotal; k >= i__1; --k) {
+
+
807 if (ic[k] == *missp) {
+
+
+
+
+
+
813 }
else if (ic[k] > maxb) {
+
+
+
+
817 if (maxtst - mintst >= ibxx2[ibitb] - lmiss) {
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
836 for (k = ktotal; k >= i__1; --k) {
+
+
838 if (ic[k] == *missp || ic[k] == *misss) {
+
+
+
+
+
+
844 }
else if (ic[k] > maxb) {
+
+
+
+
848 if (maxtst - mintst >= ibxx2[ibitb] - lmiss) {
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
874 if (kounta == kounts) {
+
+
+
+
+
+
+
+
+
+
+
885 nouta = kounts - kounta;
+
+
+
888 if (nenda - nouta > minak && nenda - nouta > maxak) {
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
904 i__1 = nenda - nouta;
+
905 for (k = kstart; k <= i__1; ++k) {
+
+
+
+
+
+
+
+
+
+
915 }
else if (*is523 == 1) {
+
+
917 i__1 = nenda - nouta;
+
918 for (k = kstart; k <= i__1; ++k) {
+
919 if (ic[k] == *missp) {
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
934 i__1 = nenda - nouta;
+
935 for (k = kstart; k <= i__1; ++k) {
+
936 if (ic[k] == *missp || ic[k] == *misss) {
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
952 if (mina != mallow) {
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
967 itest = maxa - mina + lmiss;
+
+
969 for (ibita = 0; ibita <= 30; ++ibita) {
+
970 if (itest < ibxx2[ibita]) {
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
1009 if (*nxy - (ktotal + kinc) <= lminpk / 2) {
+
1010 kinc = *nxy - ktotal;
+
+
+
+
+
+
+
+
+
+
+
+
+
+
1024 i__2 = ktotal + kinc;
+
+
1026 i__1 = (i__2 < *nxy) ? i__2 : *nxy;
+
1027 for (k = ktotal + 1; k <= i__1; ++k) {
+
+
+
+
+
+
+
+
+
+
+
+
+
1040 }
else if (*is523 == 1) {
+
+
+
1043 i__2 = ktotal + kinc;
+
+
1045 i__1 = (i__2 < *nxy) ? i__2 : *nxy;
+
1046 for (k = ktotal + 1; k <= i__1; ++k) {
+
1047 if (ic[k] == *missp) {
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
1066 i__2 = ktotal + kinc;
+
+
1068 i__1 = (i__2 < *nxy) ? i__2 : *nxy;
+
1069 for (k = ktotal + 1; k <= i__1; ++k) {
+
1070 if (ic[k] == *missp || ic[k] == *misss) {
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
1098 if (minc == mallow) {
+
+
+
+
+
+
+
+
+
+
+
+
+
+
1112 if (maxc - minc >= ibxx2[ibita] - lmiss) {
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
1130 if (ktotal >= *nxy) {
+
+
+
+
1134 if (minbk > ktotal && maxbk > ktotal) {
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
1159 lminpk += lminpk / 2;
+
+
+
+
+
+
+
+
+
+
+
+
+
1172 kstart = ktotal + 1;
+
+
+
1175 misslx[*lx - 1] = mallow;
+
+
1177 misslx[*lx - 1] = ic[ktotal];
+
+
+
+
+
+
+
+
+
+
+
1188 if (ktotal >= *nxy) {
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
1217 for (l = 1; l <= i__1; ++l) {
+
+
1219 if (jmin[l] < ibxx2[*ibit]) {
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
1235 for (l = 1; l <= i__1; ++l) {
+
+
+
+
1239 if (misslx[l - 1] == *missp) {
+
1240 jmin[l] = ibxx2[*ibit] - 1;
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
1268 for (k = 1; k <= i__1; ++k) {
+
1269 if (lbit[k] < *lbitref) {
+
+
+
+
+
+
1275 if (*lbitref != 0) {
+
+
+
1278 for (k = 1; k <= i__1; ++k) {
+
1279 lbit[k] -= *lbitref;
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
1296 for (k = 1; k <= i__1; ++k) {
+
+
1298 if (lbit[k] < ibxx2[*jbit]) {
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
1325 for (k = 1; k <= i__1; ++k) {
+
1326 if (nov[k] < *novref) {
+
+
+
+
+
+
+
+
+
1335 for (k = 1; k <= i__1; ++k) {
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
1358 for (k = 1; k <= i__1; ++k) {
+
+
1360 if (nov[k] < ibxx2[*kbit]) {
+
+
+
+
+
+
+
+
+
+
+
+
+
1373 reduce (kfildo, &jmin[1], &jmax[1], &lbit[1], &nov[1], lx, ndg, ibit,
+
1374 jbit, kbit, novref, ibxx2, ier);
+
+
1376 if (*ier == 714 || *ier == 715) {
+
+
+
+
+
+
+
+
+
+
+
1387 if ( misslx != 0 ) {
+
+
+
+
+
+
+
+
+
+
+
+
+
1400 if ( misslx != 0 ) free(misslx);
+
+
+
+
int pack_gp(g2int *kfildo, g2int *ic, g2int *nxy, g2int *is523, g2int *minpk, g2int *inc, g2int *missp, g2int *misss, g2int *jmin, g2int *jmax, g2int *lbit, g2int *nov, g2int *ndg, g2int *lx, g2int *ibit, g2int *jbit, g2int *kbit, g2int *novref, g2int *lbitref, g2int *ier)
Determines groups of variable size, but at least of size minpk, the associated max (jmax( )) and min ...
int reduce(g2int *kfildo, g2int *jmin, g2int *jmax, g2int *lbit, g2int *nov, g2int *lx, g2int *ndg, g2int *ibit, g2int *jbit, g2int *kbit, g2int *novref, g2int *ibxx2, g2int *ier)
Determines whether the number of groups should be increased in order to reduce the size of the large ...
Header file with internal function prototypes NCEPLIBS-g2c library.
int64_t g2int
Long integer type.
NCEPLIBS-g2c: pdstemplates.c File Reference
+
+
+
+
+
+
+ NCEPLIBS-g2c
+ 1.7.0
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
Functions for GRIB2 Product Definition Templates used in Section 4 - the Product Definition Section (PDS).
+More...
+
#include <stdlib.h>
+
#include "grib2_int.h "
+
+
Go to the source code of this file.
+
+
+
Functions for GRIB2 Product Definition Templates used in Section 4 - the Product Definition Section (PDS).
+
Each Template has three parts:
+The number of entries in the template (mappdslen).
+A map of the template (mappds), which contains the number of octets in which to pack each of the template values.
+A logical value (needext) that indicates whether the Template needs to be extended. In some cases the number of entries in a template can vary depending upon values specified in the "static" part of the template. (See Template 4.3 as an example).
+
+
Note Array mappds contains the number of octets in which the corresponding template values will be stored. A negative value in mappds is used to indicate that the corresponding template entry can contain negative values. This information is used later when packing (or unpacking) the template data values. Negative data values in GRIB are stored with the left most bit set to one, and a negative number of octets value in mappds[] indicates that this possibility should be considered. The number of octets used to store the data value in this case would be the absolute value of the negative value in mappds.
+
+
+
+Date Programmer Comments
+
+2001-06-28 Gilbert Initial
+
+2009-01-14 Vuong Changed structure name template to gtemplate
+
+2009-12-15 Vuong Added Product Definition Templates 4.31, 4.15
+
+2010-08-03 Vuong Added Product Definition Template 4.42 and 4.43
+
+2010-12-08 Vuong Corrected Product Definition Template 4.42 and 4.43
+
+2012-03-29 Vuong Added Templates 4.44,4.45,4.46,4.47,4.48,4.50, 4.51,4.91,4.32 and 4.52
+
+2013-08-05 Vuong Corrected 4.91 and added Templates 4.33,4.34,4.53,4.54
+
+2015-10-07 Vuong Added Templates 4.57, 4.60, 4.61 and allow a forecast time to be negative
+
+
Author Stephen Gilbert
+
Date 2001-06-28
+
+
Definition in file pdstemplates.c .
+
+
+
◆
+
+
+
+
+
+ #define MAXPDSMAPLEN 200
+
+
+
+
+
Maximum template map length.
+
+
Definition at line 45 of file pdstemplates.c .
+
+
+
+
+
◆
+
+
+
+
+
+ #define MAXPDSTEMP 47
+
+
+
+
+
Maximum number of templates.
+
+
Definition at line 44 of file pdstemplates.c .
+
+
+
+
+
+
◆
+
+
+
+
+
This subroutine generates the remaining octet map for a given Product Definition Template, if required.
+
Some Templates can vary depending on data values given in an earlier part of the Template, and it is necessary to know some of the earlier entry values to generate the full octet map of the Template.
+
This function allocates memory in the ext field of the gtemplate struct. This memory must be freed by the caller.
+
Parameters
+
+ number number of the Product Definition Template 4.NN that is being requested. list The list of values for each entry in the the Product Definition Template.
+
+
+
Returns Pointer to the returned template struct. Returns NULL pointer if template not found.
+
Author Stephen Gilbert
+
Date 2000-05-11
+
+
Definition at line 329 of file pdstemplates.c .
+
+
References getpdsindex() , and getpdstemplate() .
+
+
Referenced by g2_addfield() , and g2_unpack4() .
+
+
+
+
+
◆
+
+
+
+
+
+
+
+
+ static g2int getpdsindex
+ (
+ g2int number )
+
+
+
+
+static
+
+
+
+
+
This function returns the index of specified Product Definition Template in array templates.
+
Parameters
+
+ number The number of the Product Definition Template that is being requested.
+
+
+
Returns Index of PDT in array templates, if template exists. -1, otherwise.
+
Author Stephen Gilbert
+
Date 2001-06-28
+
+
Definition at line 246 of file pdstemplates.c .
+
+
References MAXPDSTEMP , and templatespds .
+
+
Referenced by extpdstemplate() , and getpdstemplate() .
+
+
+
+
+
◆
+
+
+
+
+
This subroutine returns PDS template information for a specified Product Definition Template.
+
The number of entries in the template is returned along with a map of the number of octets occupied by each entry. Also, a flag is returned to indicate whether the template would need to be extended.
+
This function allocates memory for the gtemplate struct, which must be freed by the caller.
+
Parameters
+
+ number the number of the Product Definition Template that is being requested.
+
+
+
Returns Pointer to the returned template struct. Returns NULL pointer if template not found.
+
Author Stephen Gilbert
+
Date 2000-05-11
+
+
Definition at line 281 of file pdstemplates.c .
+
+
References getpdsindex() , and templatespds .
+
+
Referenced by extpdstemplate() , g2_addfield() , and g2_unpack4() .
+
+
+
+
+
+
◆
+
+
+
+
+
+
+
+
+ const struct pdstemplate templatespds[MAXPDSTEMP ]
+
+
+
+
+static
+
+
+
+
+
+
NCEPLIBS-g2c: pdstemplates.c Source File
+
+
+
+
+
+
+ NCEPLIBS-g2c
+ 1.7.0
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
Go to the documentation of this file.
+
+
+
+
+
45 #define MAXPDSMAPLEN 200
+
+
+
+
+
+
+
+
+
+
+
65 {0,15,0, {1,1,1,1,1,2,1,1,-4,1,-1,-4,1,-1,-4} },
+
68 {1,18,0, {1,1,1,1,1,2,1,1,-4,1,-1,-4,1,-1,-4,1,1,1} },
+
71 {2,17,0, {1,1,1,1,1,2,1,1,-4,1,-1,-4,1,-1,-4,1,1} },
+
74 {3,31,1, {1,1,1,1,1,2,1,1,-4,1,-1,-4,1,-1,-4,1,1,1,1,1,1,1,-4,-4,4,4,1,-1,4,-1,4} },
+
77 {4,30,1, {1,1,1,1,1,2,1,1,-4,1,-1,-4,1,-1,-4,1,1,1,1,1,1,1,-4,4,4,1,-1,4,-1,4} },
+
80 {5,22,0, {1,1,1,1,1,2,1,1,-4,1,-1,-4,1,-1,-4,1,1,1,-1,-4,-1,-4} },
+
83 {6,16,0, {1,1,1,1,1,2,1,1,-4,1,-1,-4,1,-1,-4,1} },
+
86 {7,15,0, {1,1,1,1,1,2,1,1,-4,1,-1,-4,1,-1,-4} },
+
89 {8,29,1, {1,1,1,1,1,2,1,1,-4,1,-1,-4,1,-1,-4,2,1,1,1,1,1,1,4,1,1,1,4,1,4} },
+
92 {9,36,1, {1,1,1,1,1,2,1,1,-4,1,-1,-4,1,-1,-4,1,1,1,-1,-4,-1,-4,2,1,1,1,1,1,1,4,1,1,1,4,1,4} },
+
95 {10,30,1, {1,1,1,1,1,2,1,1,-4,1,-1,-4,1,-1,-4,1,2,1,1,1,1,1,1,4,1,1,1,4,1,4} },
+
98 {11,32,1, {1,1,1,1,1,2,1,1,-4,1,-1,-4,1,-1,-4,1,1,1,2,1,1,1,1,1,1,4,1,1,1,4,1,4} },
+
101 {12,31,1, {1,1,1,1,1,2,1,1,-4,1,-1,-4,1,-1,-4,1,1,2,1,1,1,1,1,1,4,1,1,1,4,1,4} },
+
104 {13,45,1, {1,1,1,1,1,2,1,1,-4,1,-1,-4,1,-1,-4,1,1,1,1,1,1,1,-4,-4,4,4,1,-1,4,-1,4,2,1,1,1,1,1,1,4,1,1,1,4,1,4} },
+
107 {14,44,1, {1,1,1,1,1,2,1,1,-4,1,-1,-4,1,-1,-4,1,1,1,1,1,1,1,-4,4,4,1,-1,4,-1,4,2,1,1,1,1,1,1,4,1,1,1,4,1,4} },
+
110 {15,18,0, {1,1,1,1,1,2,1,1,-4,1,-1,-4,1,-1,-4,1,1,1} },
+
112 {20,19,0, {1,1,1,1,1,-4,4,2,4,2,1,1,1,1,1,2,1,3,2} },
+
114 {30,5,1, {1,1,1,1,1} },
+
116 {31,5,1, {1,1,1,1,1} },
+
119 {40,16,0, {1,1,2,1,1,1,2,1,1,-4,1,-1,-4,1,-1,-4} },
+
122 {41,19,0, {1,1,2,1,1,1,2,1,1,-4,1,-1,-4,1,-1,-4,1,1,1} },
+
126 {42,30,1, {1,1,2,1,1,1,2,1,1,-4,1,-1,-4,1,-1,-4,2,1,1,1,1,1,1,4,1,1,1,4,1,4} },
+
130 {43,33,1, {1,1,2,1,1,1,2,1,1,-4,1,-1,-4,1,-1,-4,1,1,1,2,1,1,1,1,1,1,4,1,1,1,4,1,4} },
+
+
135 {1000,9,0, {1,1,1,1,1,2,1,1,-4} },
+
138 {1001,16,0, {1,1,1,1,1,2,1,1,4,4,1,1,1,4,1,4} },
+
141 {1002,15,0, {1,1,1,1,1,2,1,1,-4,1,1,1,4,4,2} },
+
144 {1100,15,0, {1,1,1,1,1,2,1,1,-4,1,-1,-4,1,-1,-4} },
+
147 {1101,22,0, {1,1,1,1,1,2,1,1,-4,1,-1,-4,1,-1,-4,4,1,1,1,4,1,4} },
+
149 {32,10,1, {1,1,1,1,1,2,1,1,-2,1} },
+
152 {44,21,0, {1,1,2,1,-1,-4,-1,-4,1,1,1,2,1,1,-2,1,-1,-4,1,-1,-4} },
+
156 {45,24,0, {1,1,2,1,-1,-4,-1,-4,1,1,1,2,1,1,-4,1,-1,-4,1,-1,-4,1,1,1} },
+
160 {46,35,1, {1,1,2,1,-1,-4,-1,-4,1,1,1,2,1,1,-4,1,-1,-4,1,-1,-4,2,1,1,1,1,1,1,4,1,1,1,4,1,4} },
+
164 {47,38,1, {1,1,1,2,1,-1,-4,-1,-4,1,1,2,1,1,-4,1,-1,-4,1,-1,-4,1,1,1,2,1,1,1,1,1,1,4,1,1,1,4,1,4} },
+
168 {48,26,0, {1,1,2,1,-1,-4,-1,-4,1,-1,-4,-1,-4,1,1,1,2,1,1,-4,1,-1,-4,1,-1,-4} },
+
+
173 {50,21,0, {1,1,1,1,1,2,1,1,-4,1,-1,-4,1,-1,-4,1,1,4,4,4,4} },
+
+
178 {52,15,0, {1,1,1,1,1,1,1,1,2,1,1,-4,1,-1,-4} },
+
+
182 {51,16,1, {1,1,1,1,1,2,1,1,-4,1,-1,-4,1,-1,-4,1} },
+
+
187 {91,36,1, {1,1,1,1,1,2,1,1,-4,1,-1,-4,1,-1,-4,1,1,1,-1,-4,-1,-4,2,1,1,1,1,1,1,4,1,1,1,4,1,4} },
+
192 {33,18,1, {1,1,1,1,1,2,1,1,-4,1,2,2,2,-1,-4,1,1,1} },
+
197 {34,32,1, {1,1,1,1,1,2,1,1,-4,1,2,2,2,-1,-4,1,1,1,2,1,1,1,1,1,1,4,1,1,1,4,1,4} },
+
202 {53,19,1, {1,1,1,1,4,2,1,1,1,2,1,1,-4,1,-1,-4,1,-1,-4} },
+
207 {54,22,1, {1,1,1,1,4,2,1,1,1,2,1,1,-4,1,-1,-4,1,-1,-4,1,1,1} },
+
213 {57,7,1, {1,1,2,2,2,2,1} },
+
218 {60,24,0, {1,1,1,1,1,2,1,1,-4,1,-1,-4,1,-1,-4,1,1,1,2,1,1,1,1,1} },
+
223 {61,38,1, {1,1,1,1,1,2,1,1,-4,1,-1,-4,1,-1,-4,1,1,1,2,1,1,1,1,1,2,1,1,1,1,1,1,4,1,1,1,4,1,4} },
+
229 {35,6,1, {1,1,1,1,1,1} }
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
301 printf(
"getpdstemplate: PDS Template 4.%d not defined.\n" , (
int )number);
+
+
+
+
+
+
+
+
+
+
+
332 g2int index, i, j, k, l;
+
+
+
+
+
+
+
+
+
+
+
+
+
345 new ->extlen = list[26];
+
346 new ->ext = malloc(
sizeof (
g2int ) * new->extlen);
+
347 for (i = 0; i <
new ->extlen; i++)
+
+
+
+
+
352 else if (number == 4)
+
+
354 new ->extlen = list[25];
+
355 new ->ext = malloc(
sizeof (
g2int ) * new->extlen);
+
356 for (i = 0; i <
new ->extlen; i++)
+
+
+
+
+
361 else if (number == 8)
+
+
+
+
365 new ->extlen = (list[21] - 1) * 6;
+
366 new ->ext = malloc(
sizeof (
g2int ) * new->extlen);
+
367 for (j = 2; j <= list[21]; j++)
+
+
+
370 for (k = 0; k < 6; k++)
+
+
372 new ->ext[l+k] =
new ->map[23 + k];
+
+
+
+
+
377 else if (number == 9)
+
+
+
+
381 new ->extlen = (list[28] - 1) * 6;
+
382 new ->ext = malloc(
sizeof (
g2int ) * new->extlen);
+
383 for (j = 2; j <= list[28]; j++)
+
+
+
386 for (k = 0; k < 6; k++)
+
+
388 new ->ext[l + k] =
new ->map[30 + k];
+
+
+
+
+
393 else if (number == 10)
+
+
+
+
397 new ->extlen = (list[22] - 1) * 6;
+
398 new ->ext = (
g2int *)malloc(
sizeof (
g2int )*
new ->extlen);
+
399 for (j = 2; j <= list[22]; j++)
+
+
+
402 for (k = 0; k < 6; k++)
+
+
404 new ->ext[l + k] =
new ->map[24 + k];
+
+
+
+
+
409 else if (number == 11)
+
+
+
+
413 new ->extlen = (list[24] - 1) * 6;
+
414 new ->ext = malloc(
sizeof (
g2int ) * new->extlen);
+
415 for (j = 2; j <= list[24]; j++)
+
+
+
418 for (k = 0; k < 6; k++)
+
+
420 new ->ext[l + k] =
new ->map[26 + k];
+
+
+
+
+
425 else if (number == 12)
+
+
+
+
429 new ->extlen = (list[23] - 1) * 6;
+
430 new ->ext = malloc(
sizeof (
g2int ) * new->extlen);
+
431 for (j = 2; j <= list[23]; j++)
+
+
+
434 for (k = 0; k < 6; k++)
+
+
436 new ->ext[l + k] =
new ->map[25 + k];
+
+
+
+
+
441 else if (number == 13)
+
+
443 new ->extlen = ((list[37] - 1) * 6) + list[26];
+
444 new ->ext = malloc(
sizeof (
g2int ) * new->extlen);
+
+
+
447 for (j = 2; j <= list[37]; j++)
+
+
+
450 for (k = 0; k < 6; k++)
+
+
452 new ->ext[l + k] =
new ->map[39 + k];
+
+
+
+
456 l = (list[37] - 1) * 6;
+
+
+
459 for (i = 0; i < list[26]; i++)
+
+
+
+
+
464 else if (number == 14)
+
+
466 new ->extlen = ((list[36] - 1) * 6) + list[25];
+
467 new ->ext = malloc(
sizeof (
g2int ) * new->extlen);
+
+
+
470 for (j = 2; j <= list[36]; j++)
+
+
+
473 for (k = 0; k < 6; k++)
+
+
475 new ->ext[l + k] =
new ->map[38 + k];
+
+
+
+
479 l = (list[36] - 1) * 6;
+
+
+
482 for (i = 0; i < list[25]; i++)
+
+
+
+
+
487 else if (number == 30)
+
+
489 new ->extlen = list[4] * 5;
+
490 new ->ext = malloc(
sizeof (
g2int ) * new->extlen);
+
491 for (i = 0;i < list[4]; i++)
+
+
+
+
+
+
+
+
+
+
501 else if (number == 31)
+
+
503 new ->extlen = list[4] * 5;
+
504 new ->ext = malloc(
sizeof (
g2int ) * new->extlen);
+
505 for (i = 0; i < list[4]; i++)
+
+
+
+
+
+
+
+
+
+
515 else if (number == 42)
+
+
+
+
519 new ->extlen = (list[22] - 1) * 6;
+
520 new ->ext = malloc(
sizeof (
g2int ) * new->extlen);
+
521 for (j = 2; j <= list[22]; j++)
+
+
+
524 for (k = 0; k < 6; k++)
+
+
526 new ->ext[l + k] =
new ->map[24 + k];
+
+
+
+
+
531 else if (number == 43)
+
+
+
+
535 new ->extlen = (list[25] - 1) * 6;
+
536 new ->ext = malloc(
sizeof (
g2int ) * new->extlen);
+
537 for (j = 2; j <= list[25]; j++)
+
+
+
540 for (k = 0; k < 6; k++)
+
+
542 new ->ext[l + k] =
new ->map[27 + k];
+
+
+
+
+
547 else if (number == 32)
+
+
549 new ->extlen = list[9] * 10;
+
550 new ->ext = malloc(
sizeof (
g2int ) * new->extlen);
+
551 for (i = 0; i < list[9]; i++)
+
+
+
+
+
+
557 new ->ext[l + 3] = -1;
+
558 new ->ext[l + 4] = -4;
+
+
+
561 else if (number == 46)
+
+
+
+
565 new ->extlen = (list[27] - 1) * 6;
+
566 new ->ext = malloc(
sizeof (
g2int ) * new->extlen);
+
567 for (j = 2; j <= list[27]; j++)
+
+
+
570 for (k = 0; k < 6; k++)
+
+
572 new ->ext[l + k] =
new ->map[29 + k];
+
+
+
+
+
577 else if (number == 47)
+
+
+
+
581 new ->extlen = (list[30] - 1) * 6;
+
582 new ->ext = malloc(
sizeof (
g2int ) * new->extlen);
+
583 for (j = 2; j <= list[30]; j++)
+
+
+
586 for (k = 0; k < 6; k++)
+
+
588 new ->ext[l + k] =
new ->map[32 + k];
+
+
+
+
+
593 else if (number == 51)
+
+
595 new ->extlen = list[15]*11;
+
596 new ->ext = malloc(
sizeof (
g2int ) * new->extlen);
+
597 for (i = 0; i < list[15]; i++)
+
+
+
+
+
+
+
+
+
+
+
608 else if (number == 33)
+
+
610 new ->extlen = list[9];
+
611 new ->ext = malloc(
sizeof (
g2int ) * new->extlen);
+
612 for (i = 0; i <
new ->extlen; i++)
+
+
+
+
+
617 else if (number == 34)
+
+
619 new ->extlen = ((list[24] - 1) * 6)+list[9];
+
620 new ->ext = malloc(
sizeof (
g2int ) * new->extlen);
+
+
+
623 for (j = 2; j <= list[24]; j++)
+
+
+
626 for (k = 0; k < 6; k++)
+
+
628 new ->ext[l + k] =
new ->map[26 + k];
+
+
+
+
632 l = (list[24] - 1) * 6;
+
+
+
635 for (i = 0; i < list[9]; i++)
+
+
+
+
+
640 else if (number == 53)
+
+
642 new ->extlen = list[3];
+
643 new ->ext = malloc(
sizeof (
g2int ) * new->extlen);
+
644 for (i = 0; i <
new ->extlen; i++)
+
+
+
+
+
649 else if (number == 54)
+
+
651 new ->extlen = list[3];
+
652 new ->ext = malloc(
sizeof (
g2int ) * new->extlen);
+
653 for (i = 0;i<
new ->extlen;i++)
+
+
+
+
+
658 else if (number == 91)
+
+
660 new ->extlen = ((list[28] - 1) * 6)+list[15];
+
661 new ->ext = malloc(
sizeof (
g2int ) * new->extlen);
+
+
+
664 for (j = 2; j <= list[28]; j++)
+
+
+
667 for (k = 0; k < 6; k++)
+
+
669 new ->ext[l + k] =
new ->map[30 + k];
+
+
+
+
673 l = (list[29] - 1) * 6;
+
+
+
676 for (i = 0; i < list[15]; i++)
+
+
+
+
+
+
682 else if (number == 57)
+
+
684 new ->extlen = list[6] * 15;
+
685 new ->ext = malloc(
sizeof (
g2int ) * new->extlen);
+
686 for (i = 0; i < list[6]; i++)
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
707 else if (number == 61)
+
+
+
+
711 new ->extlen = (list[30] - 1) * 6;
+
712 new ->ext = malloc(
sizeof (
g2int ) * new->extlen);
+
713 for (j = 2; j <= list[30]; j++)
+
+
+
716 for (k = 0; k < 6; k++)
+
+
718 new ->ext[l + k] =
new ->map[32 + k];
+
+
+
+
+
+
+
+
+
gtemplate * getpdstemplate(g2int number)
This subroutine returns PDS template information for a specified Product Definition Template.
static const struct pdstemplate templatespds[MAXPDSTEMP]
Data for struct for PDS template.
#define MAXPDSMAPLEN
Maximum template map length.
static g2int getpdsindex(g2int number)
This function returns the index of specified Product Definition Template in array templates.
Header file with internal function prototypes NCEPLIBS-g2c library.
gtemplate * extpdstemplate(g2int number, g2int *list)
This subroutine generates the remaining octet map for a given Product Definition Template,...
int64_t g2int
Long integer type.
Struct for GRIB template.
#define MAXPDSTEMP
Maximum number of templates.
NCEPLIBS-g2c: pdstemplates.h File Reference
+
+
+
+
+
+
+ NCEPLIBS-g2c
+ 1.6.4
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
This include file contains info on all the available GRIB2 Product Definition Templates used in [Section 4 - the Product Definition Section (PDS)](https://www.nco.ncep.noaa.gov/pmb/docs/grib2/grib2_doc/grib2_sect4.shtml ).
+More...
+
+
Go to the source code of this file.
+
+
+
This include file contains info on all the available GRIB2 Product Definition Templates used in [Section 4 - the Product Definition Section (PDS)](https://www.nco.ncep.noaa.gov/pmb/docs/grib2/grib2_doc/grib2_sect4.shtml ).
+
Each Template has three parts:
+The number of entries in the template (mappdslen).
+A map of the template (mappds), which contains the number of octets in which to pack each of the template values.
+A logical value (needext) that indicates whether the Template needs to be extended. In some cases the number of entries in a template can vary depending upon values specified in the "static" part of the template. (See Template 4.3 as an example).
+
+
Note Array mappds contains the number of octets in which the corresponding template values will be stored. A negative value in mappds is used to indicate that the corresponding template entry can contain negative values. This information is used later when packing (or unpacking) the template data values. Negative data values in GRIB are stored with the left most bit set to one, and a negative number of octets value in mappds[] indicates that this possibility should be considered. The number of octets used to store the data value in this case would be the absolute value of the negative value in mappds.
+
+
+
+Date Programmer Comments
+
+2005-12-08 Gilbert Allow negative scale factors, limits for 4.5 and 4.9
+
+2009-12-15 Vuong Added Product Definition Templates 4.31, 4.15
+
+2010-08-03 Vuong Added Product Definition Template 4.40,4.41,4.42,4.43
+
+2010-12-08 Vuong Corrected Definition Template 4.42,4.43
+
+2010-12-08 Vuong Corrected Definition Template 4.42,4.43
+
+2012-03-29 Vuong Added Templates 4.44,4.45,4.46,4.47,4.48,4.50,4.51,4.91,4.32 and 4.52
+
+2013-08-05 Vuong Corrected 4.91 and added Templates 4.33,4.34,4.53,4.54
+
+2015-10-07 Vuong Added Templates 4.57, 4.60, 4.61 and allow a forecast time to be negative
+
+
Author Stephen Gilbert
+
Date 2005-12-08
+
+
Definition in file pdstemplates.h .
+
+
+
◆
+
+
+
+
+
+ struct pdstemplate
+
+
+
+
Struct for PDS template.
+
+
Definition at line 53 of file pdstemplates.h .
+
+Data Fields
+g2int
+
+mappds[MAXPDSMAPLEN ]
+
+Number of bytes for each template value.
+g2int
+
+mappdslen
+
+The number of entries in the template.
+g2int
+
+needext
+
+Does template need extension?
+g2int
+
+template_num
+
+Template number.
+
+
+
+
+
+
◆
+
+
+
+
+
+ #define MAXPDSMAPLEN 200
+
+
+
+
+
Maximum template map length.
+
+
Definition at line 48 of file pdstemplates.h .
+
+
+
+
+
◆
+
+
+
+
+
+ #define MAXPDSTEMP 47
+
+
+
+
+
Maximum number of templates.
+
+
Definition at line 47 of file pdstemplates.h .
+
+
+
+
+
+
◆
+
+
+
+
NCEPLIBS-g2c: pdstemplates.h Source File
+
+
+
+
+
+
+ NCEPLIBS-g2c
+ 1.6.4
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
Go to the documentation of this file.
+
43 #ifndef _pdstemplates_H
+
44 #define _pdstemplates_H
+
+
+
+
48 #define MAXPDSMAPLEN 200
+
+
+
+
+
+
+
+
+
+
+
68 {0,15,0, {1,1,1,1,1,2,1,1,-4,1,-1,-4,1,-1,-4} },
+
71 {1,18,0, {1,1,1,1,1,2,1,1,-4,1,-1,-4,1,-1,-4,1,1,1} },
+
74 {2,17,0, {1,1,1,1,1,2,1,1,-4,1,-1,-4,1,-1,-4,1,1} },
+
77 {3,31,1, {1,1,1,1,1,2,1,1,-4,1,-1,-4,1,-1,-4,1,1,1,1,1,1,1,-4,-4,4,4,1,-1,4,-1,4} },
+
80 {4,30,1, {1,1,1,1,1,2,1,1,-4,1,-1,-4,1,-1,-4,1,1,1,1,1,1,1,-4,4,4,1,-1,4,-1,4} },
+
83 {5,22,0, {1,1,1,1,1,2,1,1,-4,1,-1,-4,1,-1,-4,1,1,1,-1,-4,-1,-4} },
+
86 {6,16,0, {1,1,1,1,1,2,1,1,-4,1,-1,-4,1,-1,-4,1} },
+
89 {7,15,0, {1,1,1,1,1,2,1,1,-4,1,-1,-4,1,-1,-4} },
+
92 {8,29,1, {1,1,1,1,1,2,1,1,-4,1,-1,-4,1,-1,-4,2,1,1,1,1,1,1,4,1,1,1,4,1,4} },
+
95 {9,36,1, {1,1,1,1,1,2,1,1,-4,1,-1,-4,1,-1,-4,1,1,1,-1,-4,-1,-4,2,1,1,1,1,1,1,4,1,1,1,4,1,4} },
+
98 {10,30,1, {1,1,1,1,1,2,1,1,-4,1,-1,-4,1,-1,-4,1,2,1,1,1,1,1,1,4,1,1,1,4,1,4} },
+
101 {11,32,1, {1,1,1,1,1,2,1,1,-4,1,-1,-4,1,-1,-4,1,1,1,2,1,1,1,1,1,1,4,1,1,1,4,1,4} },
+
104 {12,31,1, {1,1,1,1,1,2,1,1,-4,1,-1,-4,1,-1,-4,1,1,2,1,1,1,1,1,1,4,1,1,1,4,1,4} },
+
107 {13,45,1, {1,1,1,1,1,2,1,1,-4,1,-1,-4,1,-1,-4,1,1,1,1,1,1,1,-4,-4,4,4,1,-1,4,-1,4,2,1,1,1,1,1,1,4,1,1,1,4,1,4} },
+
110 {14,44,1, {1,1,1,1,1,2,1,1,-4,1,-1,-4,1,-1,-4,1,1,1,1,1,1,1,-4,4,4,1,-1,4,-1,4,2,1,1,1,1,1,1,4,1,1,1,4,1,4} },
+
113 {15,18,0, {1,1,1,1,1,2,1,1,-4,1,-1,-4,1,-1,-4,1,1,1} },
+
115 {20,19,0, {1,1,1,1,1,-4,4,2,4,2,1,1,1,1,1,2,1,3,2} },
+
117 {30,5,1, {1,1,1,1,1} },
+
119 {31,5,1, {1,1,1,1,1} },
+
122 {40,16,0, {1,1,2,1,1,1,2,1,1,-4,1,-1,-4,1,-1,-4} },
+
125 {41,19,0, {1,1,2,1,1,1,2,1,1,-4,1,-1,-4,1,-1,-4,1,1,1} },
+
129 {42,30,1, {1,1,2,1,1,1,2,1,1,-4,1,-1,-4,1,-1,-4,2,1,1,1,1,1,1,4,1,1,1,4,1,4} },
+
133 {43,33,1, {1,1,2,1,1,1,2,1,1,-4,1,-1,-4,1,-1,-4,1,1,1,2,1,1,1,1,1,1,4,1,1,1,4,1,4} },
+
+
138 {1000,9,0, {1,1,1,1,1,2,1,1,-4} },
+
141 {1001,16,0, {1,1,1,1,1,2,1,1,4,4,1,1,1,4,1,4} },
+
144 {1002,15,0, {1,1,1,1,1,2,1,1,-4,1,1,1,4,4,2} },
+
147 {1100,15,0, {1,1,1,1,1,2,1,1,-4,1,-1,-4,1,-1,-4} },
+
150 {1101,22,0, {1,1,1,1,1,2,1,1,-4,1,-1,-4,1,-1,-4,4,1,1,1,4,1,4} },
+
152 {32,10,1, {1,1,1,1,1,2,1,1,-2,1} },
+
155 {44,21,0, {1,1,2,1,-1,-4,-1,-4,1,1,1,2,1,1,-2,1,-1,-4,1,-1,-4} },
+
159 {45,24,0, {1,1,2,1,-1,-4,-1,-4,1,1,1,2,1,1,-4,1,-1,-4,1,-1,-4,1,1,1} },
+
163 {46,35,1, {1,1,2,1,-1,-4,-1,-4,1,1,1,2,1,1,-4,1,-1,-4,1,-1,-4,2,1,1,1,1,1,1,4,1,1,1,4,1,4} },
+
167 {47,38,1, {1,1,1,2,1,-1,-4,-1,-4,1,1,2,1,1,-4,1,-1,-4,1,-1,-4,1,1,1,2,1,1,1,1,1,1,4,1,1,1,4,1,4} },
+
171 {48,26,0, {1,1,2,1,-1,-4,-1,-4,1,-1,-4,-1,-4,1,1,1,2,1,1,-4,1,-1,-4,1,-1,-4} },
+
+
176 {50,21,0, {1,1,1,1,1,2,1,1,-4,1,-1,-4,1,-1,-4,1,1,4,4,4,4} },
+
+
181 {52,15,0, {1,1,1,1,1,1,1,1,2,1,1,-4,1,-1,-4} },
+
+
185 {51,16,1, {1,1,1,1,1,2,1,1,-4,1,-1,-4,1,-1,-4,1} },
+
+
190 {91,36,1, {1,1,1,1,1,2,1,1,-4,1,-1,-4,1,-1,-4,1,1,1,-1,-4,-1,-4,2,1,1,1,1,1,1,4,1,1,1,4,1,4} },
+
195 {33,18,1, {1,1,1,1,1,2,1,1,-4,1,2,2,2,-1,-4,1,1,1} },
+
200 {34,32,1, {1,1,1,1,1,2,1,1,-4,1,2,2,2,-1,-4,1,1,1,2,1,1,1,1,1,1,4,1,1,1,4,1,4} },
+
205 {53,19,1, {1,1,1,1,4,2,1,1,1,2,1,1,-4,1,-1,-4,1,-1,-4} },
+
210 {54,22,1, {1,1,1,1,4,2,1,1,1,2,1,1,-4,1,-1,-4,1,-1,-4,1,1,1} },
+
216 {57,7,1, {1,1,2,2,2,2,1} },
+
221 {60,24,0, {1,1,1,1,1,2,1,1,-4,1,-1,-4,1,-1,-4,1,1,1,2,1,1,1,1,1} },
+
226 {61,38,1, {1,1,1,1,1,2,1,1,-4,1,-1,-4,1,-1,-4,1,1,1,2,1,1,1,1,1,2,1,1,1,1,1,1,4,1,1,1,4,1,4} },
+
232 {35,6,1, {1,1,1,1,1,1} }
+
+
+
+
+
Header file for NCEPLIBS-g2c library.
+
int64_t g2int
Long integer type.
+
#define MAXPDSTEMP
Maximum number of templates.
+
g2int mappds[MAXPDSMAPLEN]
Number of bytes for each template value.
+
g2int needext
Does template need extension?
+
const struct pdstemplate templatespds[MAXPDSTEMP]
Date for struct for PDS template.
+
#define MAXPDSMAPLEN
Maximum template map length.
+
g2int template_num
Template number.
+
g2int mappdslen
The number of entries in the template.
+
+
+
NCEPLIBS-g2c: pngpack.c File Reference
+
+
+
+
+
+
+ NCEPLIBS-g2c
+ 1.7.0
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
Function to pack data with PNG compression.
+More...
+
#include <stdlib.h>
+
#include <math.h>
+
#include "grib2_int.h "
+
+
Go to the source code of this file.
+
+void pngpack (float *fld, g2int width, g2int height, g2int *idrstmpl, unsigned char *cpack, g2int *lcpack) This subroutine packs up a float data field into PNG image format. More... static void pngpack_int (void *fld, int fld_is_double, g2int width, g2int height, g2int *idrstmpl, unsigned char *cpack, g2int *lcpack) This internal function packs up float or double data into PNG image format. More... void pngpackd (double *fld, g2int width, g2int height, g2int *idrstmpl, unsigned char *cpack, g2int *lcpack) This subroutine packs up a double data field into PNG image format. More...
+
+
Function to pack data with PNG compression.
+
Author Stephen Gilbert
+
Date 2003-08-27
+
+
Definition in file pngpack.c .
+
+
+
◆
+
+
+
+
+
+ void pngpack
+ (
+ float *
+ fld ,
+
+ g2int width ,
+
+ g2int height ,
+
+ g2int * idrstmpl ,
+
+ unsigned char *
+ cpack ,
+
+ g2int * lcpack
+
+ )
+
+
+
+
+
This subroutine packs up a float data field into PNG image format.
+
After the data field is scaled, and the reference value is subtracted out, it is treated as a grayscale image and passed to a PNG encoder. It also fills in GRIB2 Data Representation Template 5.41 or 5.40010 with the appropriate values.
+
Parameters
+
+ fld Pointer to array of float that contains the data values to pack. width Number of points in the x direction. height Number of points in the y direction. idrstmpl Contains the array of values for Data Representation Template 5.41 or 5.40010.
+0 Reference value - ignored on input, set by pngpack routine.
+1 Binary Scale Factor - used on input.
+2 Decimal Scale Factor - used on input.
+3 number of bits for each grayscale pixel value - ignored on input.
+4 Original field type - currently ignored on input, set = 0 on output. Data values assumed to be reals.
+
+ cpack The packed data field. lcpack length of packed field cpack.
+
+
+
Author Stephen Gilbert
+
Date 2003-08-27
+
Author Ed Hartnett
+
+
Definition at line 224 of file pngpack.c .
+
+
References pngpack_int() .
+
+
Referenced by g2_addfield() .
+
+
+
+
+
◆
+
+
+
+
+
+
+
+
+ static void pngpack_int
+ (
+ void *
+ fld ,
+
+ int
+ fld_is_double ,
+
+ g2int width ,
+
+ g2int height ,
+
+ g2int * idrstmpl ,
+
+ unsigned char *
+ cpack ,
+
+ g2int * lcpack
+
+ )
+
+
+
+
+static
+
+
+
+
+
This internal function packs up float or double data into PNG image format.
+
This is called by pngpack() and pngpackd() .
+
After the data field is scaled, and the reference value is subtracted out, it is treated as a grayscale image and passed to a PNG encoder. It also fills in GRIB2 Data Representation Template 5.41 or 5.40010 with the appropriate values.
+
Parameters
+
+ fld Pointer to array of float or double that contains the data values to pack. fld_is_double If non-zero, then fld is double, otherwise float. width Number of points in the x direction. height Number of points in the y direction. idrstmpl Contains the array of values for Data Representation Template 5.41 or 5.40010.
+0 Reference value - ignored on input, set by pngpack routine.
+1 Binary Scale Factor - used on input.
+2 Decimal Scale Factor - used on input.
+3 number of bits for each grayscale pixel value - ignored on input.
+4 Original field type - currently ignored on input, set = 0 on output. Data values assumed to be reals.
+
+ cpack The packed data field. lcpack length of packed field cpack.
+
+
+
Returns void
+
Author Ed Hartnett
+
Date Aug 8, 2022
+
+
Definition at line 41 of file pngpack.c .
+
+
References ALOG2 , enc_png() , int_power() , LOG , mkieee() , and sbits() .
+
+
Referenced by pngpack() , and pngpackd() .
+
+
+
+
+
◆
+
+
+
+
+
+ void pngpackd
+ (
+ double *
+ fld ,
+
+ g2int width ,
+
+ g2int height ,
+
+ g2int * idrstmpl ,
+
+ unsigned char *
+ cpack ,
+
+ g2int * lcpack
+
+ )
+
+
+
+
+
This subroutine packs up a double data field into PNG image format.
+
After the data field is scaled, and the reference value is subtracted out, it is treated as a grayscale image and passed to a PNG encoder. It also fills in GRIB2 Data Representation Template 5.41 or 5.40010 with the appropriate values.
+
Parameters
+
+ fld Pointer to array of double that contains the data values to pack. width Number of points in the x direction. height Number of points in the y direction. idrstmpl Contains the array of values for Data Representation Template 5.41 or 5.40010.
+0 Reference value - ignored on input, set by pngpack routine.
+1 Binary Scale Factor - used on input.
+2 Decimal Scale Factor - used on input.
+3 number of bits for each grayscale pixel value - ignored on input.
+4 Original field type - currently ignored on input, set = 0 on output. Data values assumed to be reals.
+
+ cpack The packed data field. lcpack length of packed field cpack.
+
+
+
Author Ed Hartnett
+
Date Aug 8, 2022
+
+
Definition at line 259 of file pngpack.c .
+
+
References pngpack_int() .
+
+
+
+
+
NCEPLIBS-g2c: pngpack.c Source File
+
+
+
+
+
+
+ NCEPLIBS-g2c
+ 1.7.0
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
Go to the documentation of this file.
+
+
+
+
+
+
+
42 unsigned char *cpack,
g2int *lcpack)
+
+
+
45 static float alog2 =
ALOG2 ;
+
46 g2int j, nbits, imin, imax, maxdif;
+
+
48 float bscale, dscale, rmax, rmin, temp;
+
+
+
+
+
+
54 LOG ((2,
"pngpack_int fld_is_double %d width %ld height %ld idrstmpl[1] %d" ,
+
55 fld_is_double, width, height, idrstmpl[1]));
+
+
57 ndpts = width * height;
+
+
+
60 LOG ((3,
"ndpts %d bscale %g dscale %g" , ndpts, bscale, dscale));
+
+
+
+
+
+
+
+
+
+
+
71 for (j = 1; j < ndpts; j++)
+
+
+
+
+
+
+
78 maxdif = (
g2int )rint((rmaxd - rmind) * dscale * bscale);
+
+
+
+
82 for (j = 1; j < ndpts; j++)
+
+
+
+
+
+
+
89 maxdif = (
g2int )rint((rmax - rmin) * dscale * bscale);
+
+
91 LOG ((3,
"rmax %g rmaxd %g rmin %g rmind %g" , rmax, rmaxd, rmin, rmind));
+
+
+
+
+
96 if (((fld_is_double && rmind != rmaxd) || (!fld_is_double && rmin != rmax)) && maxdif != 0)
+
+
98 ifld = malloc(ndpts *
sizeof (
g2int ));
+
+
+
+
102 if (idrstmpl[1] == 0)
+
+
+
+
106 imin = (
g2int )rint((fld_is_double ? rmind : rmin) * dscale);
+
107 imax = (
g2int )rint((fld_is_double ? rmaxd : rmax) * dscale);
+
108 maxdif = imax - imin;
+
109 temp = log((
double )(maxdif + 1)) / alog2;
+
110 nbits = (
g2int )ceil(temp);
+
+
+
+
+
115 for (j = 0; j < ndpts; j++)
+
116 ifld[j] = (
g2int )rint(dfld[j] * dscale) - imin;
+
+
+
+
+
121 for (j = 0; j < ndpts; j++)
+
122 ifld[j] = (
g2int )rint(ffld[j] * dscale) - imin;
+
+
+
+
+
+
+
+
+
131 rmind = rmind * dscale;
+
132 rmaxd = rmaxd * dscale;
+
133 maxdif = (
g2int )rint((rmaxd - rmind) * bscale);
+
+
+
+
137 rmin = rmin * dscale;
+
138 rmax = rmax * dscale;
+
139 maxdif = (
g2int )rint((rmax - rmin) * bscale);
+
+
141 temp = log((
double )(maxdif + 1)) / alog2;
+
142 nbits = (
g2int )ceil(temp);
+
+
+
+
146 for (j = 0; j < ndpts; j++)
+
147 ifld[j] = (
g2int )rint(((dfld[j] * dscale) - rmind) * bscale);
+
+
+
+
151 for (j = 0; j < ndpts; j++)
+
152 ifld[j] = (
g2int )rint(((ffld[j] * dscale) - rmin) * bscale);
+
+
+
+
+
+
+
+
160 else if (nbits <= 16)
+
+
162 else if (nbits <= 24)
+
+
+
+
+
167 nbytes = (nbits / 8) * ndpts;
+
168 ctemp = calloc(nbytes, 1);
+
169 sbits (ctemp, ifld, 0, nbits, 0, ndpts);
+
+
+
172 if ((*lcpack = (
g2int )
enc_png (ctemp, width, height, nbits, cpack)) <= 0)
+
173 printf(
"pngpack: ERROR Packing PNG = %d\n" , (
int )*lcpack);
+
+
+
+
+
+
+
+
+
+
+
+
+
186 mkieee (&rmin, idrstmpl, 1);
+
+
+
+
+
+
+
+
+
+
225 unsigned char *cpack,
g2int *lcpack)
+
+
227 pngpack_int (fld, 0, width, height, idrstmpl, cpack, lcpack);
+
+
+
+
+
260 unsigned char *cpack,
g2int *lcpack)
+
+
262 pngpack_int (fld, 1, width, height, idrstmpl, cpack, lcpack);
+
+
+
+
int enc_png(unsigned char *data, g2int width, g2int height, g2int nbits, unsigned char *pngbuf)
Encode PNG.
void pngpackd(double *fld, g2int width, g2int height, g2int *idrstmpl, unsigned char *cpack, g2int *lcpack)
This subroutine packs up a double data field into PNG image format.
static void pngpack_int(void *fld, int fld_is_double, g2int width, g2int height, g2int *idrstmpl, unsigned char *cpack, g2int *lcpack)
This internal function packs up float or double data into PNG image format.
double int_power(double x, g2int y)
Function similar to C pow() power function.
#define LOG(e)
Ignore logging to stdout.
Header file with internal function prototypes NCEPLIBS-g2c library.
void sbits(unsigned char *out, g2int *in, g2int iskip, g2int nbits, g2int nskip, g2int n)
Store bits - put arbitrary size values into a packed bit string, taking the low order bits from each ...
void mkieee(float *a, g2int *rieee, g2int num)
This subroutine stores a list of real values in 32-bit IEEE floating point format.
int64_t g2int
Long integer type.
void pngpack(float *fld, g2int width, g2int height, g2int *idrstmpl, unsigned char *cpack, g2int *lcpack)
This subroutine packs up a float data field into PNG image format.
NCEPLIBS-g2c: pngunpack.c File Reference
+
+
+
+
+
+
+ NCEPLIBS-g2c
+ 1.7.0
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
Contains a function to unpack data packed with PNG compression.
+More...
+
#include <stdio.h>
+
#include <stdlib.h>
+
#include "grib2_int.h "
+
+
Go to the source code of this file.
+
+g2int pngunpack (unsigned char *cpack, g2int len, g2int *idrstmpl, g2int ndpts, float *fld) This subroutine unpacks a data field that was packed into a PNG image format using info from the GRIB2 Data Representation Template 5.41 or 5.40010. More... static g2int pngunpack_int (unsigned char *cpack, g2int len, g2int *idrstmpl, g2int ndpts, void *fld, int fld_is_double) This subroutine unpacks a data field that was packed into a PNG image format using info from the GRIB2 Data Representation Template 5.41 or 5.40010. More... g2int pngunpackd (unsigned char *cpack, g2int len, g2int *idrstmpl, g2int ndpts, double *fld) This subroutine unpacks a data field that was packed into a PNG image format using info from the GRIB2 Data Representation Template 5.41 or 5.40010. More...
+
+
Contains a function to unpack data packed with PNG compression.
+
Author Stephen Gilbert
+
Date 2003-08-27
+
+
Definition in file pngunpack.c .
+
+
+
◆
+
+
+
+
+
+ g2int pngunpack (
+ unsigned char *
+ cpack ,
+
+ g2int len ,
+
+ g2int * idrstmpl ,
+
+ g2int ndpts ,
+
+ float *
+ fld
+
+ )
+
+
+
+
+
This subroutine unpacks a data field that was packed into a PNG image format using info from the GRIB2 Data Representation Template 5.41 or 5.40010.
+
Parameters
+
+ cpack The packed data field (character*1 array). len length of packed field cpack(). idrstmpl Pointer to array of values for Data Representation Template 5.41 or 5.40010. ndpts The number of data values to unpack. fld Contains the unpacked data values.
+
+
+
Returns 0 for success, 1 for memory allocation error.
+
Author Stephen Gilbert
+
Date 2003-08-27
+
Author Ed Hartnett
+
+
Definition at line 105 of file pngunpack.c .
+
+
References pngunpack_int() .
+
+
Referenced by g2_unpack7() .
+
+
+
+
+
◆
+
+
+
+
+
+
+
+
+ static g2int pngunpack_int
+ (
+ unsigned char *
+ cpack ,
+
+ g2int len ,
+
+ g2int * idrstmpl ,
+
+ g2int ndpts ,
+
+ void *
+ fld ,
+
+ int
+ fld_is_double
+
+ )
+
+
+
+
+static
+
+
+
+
+
This subroutine unpacks a data field that was packed into a PNG image format using info from the GRIB2 Data Representation Template 5.41 or 5.40010.
+
Parameters
+
+ cpack The packed data field (character*1 array). len The length of packed field cpack(). idrstmpl Pointer to array of values for Data Representation Template 5.41 or 5.40010. ndpts The number of data values to unpack. fld Pointer that will get the unpacked data values. fld_is_double If non-zero, then fld will get data as double, otherwise float.
+
+
+
Returns 0 for success, 1 for memory allocation error.
+
Author Stephen Gilbert, Ed Hartnett
+
Date Aug 8, 2022
+
+
Definition at line 32 of file pngunpack.c .
+
+
References dec_png() , G2_JPCUNPACK_MEM , gbits() , int_power() , LOG , and rdieee() .
+
+
Referenced by pngunpack() , and pngunpackd() .
+
+
+
+
+
◆
+
+
+
+
+
+ g2int pngunpackd (
+ unsigned char *
+ cpack ,
+
+ g2int len ,
+
+ g2int * idrstmpl ,
+
+ g2int ndpts ,
+
+ double *
+ fld
+
+ )
+
+
+
+
+
This subroutine unpacks a data field that was packed into a PNG image format using info from the GRIB2 Data Representation Template 5.41 or 5.40010.
+
Parameters
+
+ cpack The packed data field (character*1 array). len length of packed field cpack(). idrstmpl Pointer to array of values for Data Representation Template 5.41 or 5.40010. ndpts The number of data values to unpack. fld Contains the unpacked data values.
+
+
+
Returns 0 for success, 1 for memory allocation error.
+
Author Ed Hartnett
+
Date Aug 8, 2022
+
+
Definition at line 128 of file pngunpack.c .
+
+
References pngunpack_int() .
+
+
+
+
+
NCEPLIBS-g2c: pngunpack.c Source File
+
+
+
+
+
+
+ NCEPLIBS-g2c
+ 1.7.0
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
Go to the documentation of this file.
+
+
+
+
+
+
+
33 void *fld,
int fld_is_double)
+
+
+
36 g2int j, nbits, width, height;
+
37 float ref, bscale, dscale;
+
+
+
+
+
42 LOG ((2,
"pngunpack_int len %ld ndpts %ld fld_is_double %d" , len, ndpts, fld_is_double));
+
+
+
+
+
+
48 LOG ((2,
"bscale %g dscale %g nbits %ld" , bscale, dscale, nbits));
+
+
+
+
+
+
54 ifld = calloc(ndpts,
sizeof (
g2int ));
+
55 ctemp = calloc(ndpts * 4, 1);
+
+
+
58 fprintf(stderr,
"Could not allocate space in jpcunpack.\n Data field NOT upacked.\n" );
+
+
+
61 dec_png (cpack, &width, &height, ctemp);
+
62 gbits (ctemp, ifld, 0, nbits, 0, ndpts);
+
63 for (j = 0; j < ndpts; j++)
+
+
+
66 dfld[j] = (((double)ifld[j] * bscale) + ref) * dscale;
+
+
68 ffld[j] = (((float)ifld[j] * bscale) + ref) * dscale;
+
+
+
+
+
+
+
75 for (j = 0; j < ndpts; j++)
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
int dec_png(unsigned char *pngbuf, g2int *width, g2int *height, unsigned char *cout)
Decode PNG.
g2int pngunpackd(unsigned char *cpack, g2int len, g2int *idrstmpl, g2int ndpts, double *fld)
This subroutine unpacks a data field that was packed into a PNG image format using info from the GRIB...
void rdieee(g2int *rieee, float *a, g2int num)
This subroutine reads a list of real values in 32-bit IEEE floating point format.
double int_power(double x, g2int y)
Function similar to C pow() power function.
#define LOG(e)
Ignore logging to stdout.
Header file with internal function prototypes NCEPLIBS-g2c library.
int64_t g2int
Long integer type.
void gbits(unsigned char *in, g2int *iout, g2int iskip, g2int nbits, g2int nskip, g2int n)
Get bits - unpack bits: Extract arbitrary size values from a packed bit string, right justifying each...
#define G2_JPCUNPACK_MEM
In jpcunpack() or other unpack function: out of memory.
static g2int pngunpack_int(unsigned char *cpack, g2int len, g2int *idrstmpl, g2int ndpts, void *fld, int fld_is_double)
This subroutine unpacks a data field that was packed into a PNG image format using info from the GRIB...
g2int pngunpack(unsigned char *cpack, g2int len, g2int *idrstmpl, g2int ndpts, float *fld)
This subroutine unpacks a data field that was packed into a PNG image format using info from the GRIB...
NCEPLIBS-g2c: rdieee.c File Reference
+
+
+
+
+
+
+ NCEPLIBS-g2c
+ 1.7.0
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
Read a list of real values in 32-bit IEEE floating point format.
+More...
+
+
Go to the source code of this file.
+
+void rdieee (g2int *rieee, float *a, g2int num) This subroutine reads a list of real values in 32-bit IEEE floating point format. More...
+
+
Read a list of real values in 32-bit IEEE floating point format.
+
Author Stephen Gilbert
+
Date 2002-10-25
+
+
Definition in file rdieee.c .
+
+
+
◆
+
+
+
+
+
+ void rdieee
+ (
+ g2int * rieee ,
+
+ float *
+ a ,
+
+ g2int num
+
+ )
+
+
+
+
+
+
NCEPLIBS-g2c: rdieee.c Source File
+
+
+
+
+
+
+ NCEPLIBS-g2c
+ 1.7.0
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
Go to the documentation of this file.
+
+
+
+
+
+
+
+
25 g2int isign,iexp,imant;
+
+
+
28 static float two23,two126;
+
+
30 uint64_t msk1=0x80000000;
+
31 g2int msk2=0x7F800000;
+
32 g2int msk3=0x007FFFFF;
+
+
+
+
+
+
+
+
+
+
+
+
44 isign=(rieee[j]&msk1)>>31;
+
45 iexp=(rieee[j]&msk2)>>23;
+
46 imant=(rieee[j]&msk3);
+
+
+
+
50 if (isign == 1) sign=-1.0;
+
+
52 if ( (iexp > 0) && (iexp < 255) ) {
+
+
54 a[j]=sign*temp*(1.0+(two23*(float)imant));
+
+
56 else if ( iexp == 0 ) {
+
+
58 a[j]=sign*two126*two23*(float)imant;
+
+
+
+
+
63 else if ( iexp == 255 )
+
+
+
+
+
+
+
+
void rdieee(g2int *rieee, float *a, g2int num)
This subroutine reads a list of real values in 32-bit IEEE floating point format.
double int_power(double x, g2int y)
Function similar to C pow() power function.
Header file with internal function prototypes NCEPLIBS-g2c library.
int64_t g2int
Long integer type.
NCEPLIBS-g2c: reduce.c File Reference
+
+
+
+
+
+
+ NCEPLIBS-g2c
+ 1.7.0
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
Determines whether the number of groups should be increased in order to reduce the size of the large groups, and to make that adjustment.
+More...
+
#include <stdlib.h>
+
#include "grib2_int.h "
+
+
Go to the source code of this file.
+
+int reduce (g2int *kfildo, g2int *jmin, g2int *jmax, g2int *lbit, g2int *nov, g2int *lx, g2int *ndg, g2int *ibit, g2int *jbit, g2int *kbit, g2int *novref, g2int *ibxx2, g2int *ier) Determines whether the number of groups should be increased in order to reduce the size of the large groups, and to make that adjustment. More...
+
+
Determines whether the number of groups should be increased in order to reduce the size of the large groups, and to make that adjustment.
+
Author Harry Glahn, The Meteorological Development Lab (MDL)
+
Date November 2001
+
+
Definition in file reduce.c .
+
+
+
◆
+
+
+
+
+
+ int reduce
+ (
+ g2int * kfildo ,
+
+ g2int * jmin ,
+
+ g2int * jmax ,
+
+ g2int * lbit ,
+
+ g2int * nov ,
+
+ g2int * lx ,
+
+ g2int * ndg ,
+
+ g2int * ibit ,
+
+ g2int * jbit ,
+
+ g2int * kbit ,
+
+ g2int * novref ,
+
+ g2int * ibxx2 ,
+
+ g2int * ier
+
+ )
+
+
+
+
+
Determines whether the number of groups should be increased in order to reduce the size of the large groups, and to make that adjustment.
+
By reducing the size of the large groups, less bits may be necessary for packing the group sizes and all the information about the groups.
+
The reference for nov was removed in the calling routine so that kbit could be determined. This furnishes a starting point for the iterations in reduce. However, the reference must be considered.
+
PROGRAM HISTORY LOG
+November 2001 Harry Glahn, The Meteorological Development Lab (MDL) tdl grib2
+March 2002 Harry Glahn, The Meteorological Development Lab (MDL) comment ier = 715
+March 2002 Harry Glahn, The Meteorological Development Lab (MDL) modified to accommodate lx=1 on entry
+
+
DATA SET USE
+kfildo - unit number for output (print) file. (output)
+
+
Parameters
+
+ kfildo unit number for output (print) file. (input) jmin the minimum of each group (j=1,lx). it is possible after splitting the groups, jmin() will not be the minimum of the new group. this doesn't matter; jmin() is really the group reference and doesn't have to be the smallest value. (input/output) jmax the maximum of each group (j=1,lx). (input/output) lbit the number of bits necessary to pack each group (j=1,lx). (input/output) nov the number of values in each group (j=1,lx). (input/output) lx the number of groups. this will be increased if groups are split. (input/output) ndg the dimension of jmin(), jmax(), lbit(), and nov( ). (input) ibit the number of bits necessary to pack the jmin(j) values, j=1,lx. (input) jbit the number of bits necessary to pack the lbit(j) values, j=1,lx. (input) kbit the number of bits necessary to pack the nov(j) values, j=1,lx. if the groups are split, kbit is reduced. (input/output) novref reference value for nov(). (input) ibxx2 2**j (j=0,30). (input) ier error return. (output)
+0 = good return.
+714 = problem in algorithm. reduce aborted.
+715 = ngp not large enough. reduce aborted.
+
+
+
+
+
Returns always returns 0, see parameter ier for error code.
+
+ ntotbt(j) = the total bits used for the packing bits j
+ (j=1,30). (internal)
+ nboxj(j) = new boxes needed for the packing bits j
+ (j=1,30). (internal)
+ newbox(l) = number of new boxes (groups) for each original
+ group (l=1,lx) for the current j. (automatic)
+ (internal)
+ newboxp(l) = same as newbox() but for the previous j.
+ this eliminates recomputation. (automatic)
+ (internal)
+ cfeed = contains the character representation
+ of a printer form feed. (character) (internal)
+ ifeed = contains the g2int value of a printer
+ form feed. (internal)
+ iorigb = the original number of bits necessary
+ for the group values. (internal)
+ Author Harry Glahn, The Meteorological Development Lab (MDL)
+
Date November 2001
+
+
Definition at line 88 of file reduce.c .
+
+
Referenced by pack_gp() .
+
+
+
+
+
NCEPLIBS-g2c: reduce.c Source File
+
+
+
+
+
+
+ NCEPLIBS-g2c
+ 1.7.0
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
Go to the documentation of this file.
+
+
+
+
+
+
+
+
+
+
+
+
95 static g2int ifeed = 12;
+
+
+
+
+
+
101 static g2int newboxtp, j, l, m, jj, lxn, left;
+
+
103 static g2int move, novl;
+
104 static char cfeed[1];
+
+
106 static g2int lxnkp, iorigb, ibxx2m1, movmin,
+
107 ntotbt[31], ntotpr, newboxt;
+
108 g2int *newbox, *newboxp;
+
+
+
+
112 newboxp = (
g2int *)calloc(*ndg,
sizeof (
g2int ));
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
128 *(
unsigned char *)cfeed = (
char ) ifeed;
+
+
+
+
+
133 for (l = 1; l <= i__1; ++l) {
+
+
+
+
+
+
+
140 for (j = 1; j <= 31; ++j) {
+
141 ntotbt[j - 1] = 999999999;
+
+
+
+
+
146 iorigb = (*ibit + *jbit + *kbit) * *lx;
+
+
+
+
+
151 ntotbt[*kbit - 1] = iorigb;
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
167 i__1 = 30, i__2 = *kbit - 1;
+
+
169 for (j = (i__1 < i__2) ? i__1 : i__2; j >= 2; --j) {
+
+
+
+
+
+
+
+
177 for (l = 1; l <= i__1; ++l) {
+
+
179 if (nov[l] < ibxx2[j]) {
+
+
+
+
+
+
+
186 m = (nov[l] - 1) / (ibxx2[j] - 1) + 1;
+
+
+
+
+
+
192 novl = (nov[l] + m - 1) / m;
+
+
+
+
+
197 if (novl < ibxx2[j]) {
+
+
+
+
+
+
+
+
+
+
+
+
+
210 newbox[l - 1] = m - 1;
+
211 newboxt = newboxt + m - 1;
+
+
+
+
+
+
+
218 ntotbt[j - 1] = (*ibit + *jbit) * (*lx + newboxt) + j * (*lx +
+
+
+
221 if (ntotbt[j - 1] >= ntotpr) {
+
+
+
+
+
+
+
+
+
+
+
+
233 for (l = 1; l <= i__1; ++l) {
+
234 newboxp[l - 1] = newbox[l - 1];
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
266 pimp = (iorigb - ntotbt[jj - 1]) / (
float ) iorigb * 100.f;
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
286 lxnkp = *lx + newboxtp;
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
306 ibxx2m1 = ibxx2[jj] - 1;
+
+
+
309 for (l = *lx; l >= 1; --l) {
+
+
+
+
+
+
+
316 if (newboxp[l - 1] * (ibxx2m1 + *novref) + *novref > nov[l] + *
+
+
+
+
+
321 movmin = (nov[l] - newboxp[l - 1] * *novref) / newboxp[l - 1];
+
+
+
+
+
+
+
+
+
+
+
+
333 if (newboxp[l - 1] > 0) {
+
334 if ((movmin + *novref) * newboxp[l - 1] + *novref <= nov[l] +
+
335 *novref && (movmin + *novref) * (newboxp[l - 1] + 1)
+
336 >= nov[l] + *novref) {
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
354 i__1 = newboxp[l - 1] + 1;
+
355 for (j = 1; j <= i__1; ++j) {
+
+
357 move = (movmin < left) ? movmin : left;
+
+
+
+
+
+
363 left -= move + *novref;
+
+
+
+
+
+
369 if (left != -(*novref)) {
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
int reduce(g2int *kfildo, g2int *jmin, g2int *jmax, g2int *lbit, g2int *nov, g2int *lx, g2int *ndg, g2int *ibit, g2int *jbit, g2int *kbit, g2int *novref, g2int *ibxx2, g2int *ier)
Determines whether the number of groups should be increased in order to reduce the size of the large ...
Header file with internal function prototypes NCEPLIBS-g2c library.
int64_t g2int
Long integer type.
=desktop_vp) {
+ if (!collapsed) {
+ collapseExpand();
+ }
+ } else if (width>desktop_vp && collapsedWidth0) {
+ restoreWidth(0);
+ collapsed=true;
+ }
+ else {
+ var width = readCookie('width');
+ if (width>200 && width<$(window).width()) { restoreWidth(width); } else { restoreWidth(200); }
+ collapsed=false;
+ }
+ }
+
+ header = $("#top");
+ sidenav = $("#side-nav");
+ content = $("#doc-content");
+ navtree = $("#nav-tree");
+ footer = $("#nav-path");
+ $(".side-nav-resizable").resizable({resize: function(e, ui) { resizeWidth(); } });
+ $(sidenav).resizable({ minWidth: 0 });
+ $(window).resize(function() { resizeHeight(); });
+ var device = navigator.userAgent.toLowerCase();
+ var touch_device = device.match(/(iphone|ipod|ipad|android)/);
+ if (touch_device) { /* wider split bar for touch only devices */
+ $(sidenav).css({ paddingRight:'20px' });
+ $('.ui-resizable-e').css({ width:'20px' });
+ $('#nav-sync').css({ right:'34px' });
+ barWidth=20;
+ }
+ var width = readCookie('width');
+ if (width) { restoreWidth(width); } else { resizeWidth(); }
+ resizeHeight();
+ var url = location.href;
+ var i=url.indexOf("#");
+ if (i>=0) window.location.hash=url.substr(i);
+ var _preventDefault = function(evt) { evt.preventDefault(); };
+ $("#splitbar").bind("dragstart", _preventDefault).bind("selectstart", _preventDefault);
+ $(".ui-resizable-handle").dblclick(collapseExpand);
+ $(window).on('load',resizeHeight);
+}
+/* @license-end */
diff --git a/ver-1.7.0/search/all_0.html b/ver-1.7.0/search/all_0.html
new file mode 100644
index 00000000..1ec5b2d5
--- /dev/null
+++ b/ver-1.7.0/search/all_0.html
@@ -0,0 +1,37 @@
+
+
+
+
Loading...
+
+
+
Searching...
+
No Matches
+
+
+
Loading...
+
+
+
Searching...
+
No Matches
+
+
+
Loading...
+
+
+
Searching...
+
No Matches
+
+
+
Loading...
+
+
+
Searching...
+
No Matches
+
+
+
Loading...
+
+
+
Searching...
+
No Matches
+
+
+
Loading...
+
+
+
Searching...
+
No Matches
+
+
+
Loading...
+
+
+
Searching...
+
No Matches
+
+
+
Loading...
+
+
+
Searching...
+
No Matches
+
+
+
Loading...
+
+
+
Searching...
+
No Matches
+
+
+
Loading...
+
+
+
Searching...
+
No Matches
+
+
+
Loading...
+
+
+
Searching...
+
No Matches
+
+
+
Loading...
+
+
+
Searching...
+
No Matches
+
+
+
Loading...
+
+
+
Searching...
+
No Matches
+
+
+
Loading...
+
+
+
Searching...
+
No Matches
+
+
+
Loading...
+
+
+
Searching...
+
No Matches
+
+
+
Loading...
+
+
+
Searching...
+
No Matches
+
+
+
Loading...
+
+
+
Searching...
+
No Matches
+
+
+
Loading...
+
+
+
Searching...
+
No Matches
+
+
+
Loading...
+
+
+
Searching...
+
No Matches
+
+
+
+
+
+ image/svg+xml
+
+
+
+
diff --git a/ver-1.7.0/search/defines_0.html b/ver-1.7.0/search/defines_0.html
new file mode 100644
index 00000000..15cc3de3
--- /dev/null
+++ b/ver-1.7.0/search/defines_0.html
@@ -0,0 +1,37 @@
+
+
+
+
Loading...
+
+
+
Searching...
+
No Matches
+
+
+
Loading...
+
+
+
Searching...
+
No Matches
+
+
+
Loading...
+
+
+
Searching...
+
No Matches
+
+
+
Loading...
+
+
+
Searching...
+
No Matches
+
+
+
Loading...
+
+
+
Searching...
+
No Matches
+
+
+
Loading...
+
+
+
Searching...
+
No Matches
+
+
+
Loading...
+
+
+
Searching...
+
No Matches
+
+
+
Loading...
+
+
+
Searching...
+
No Matches
+
+
+
Loading...
+
+
+
Searching...
+
No Matches
+
+
+
Loading...
+
+
+
Searching...
+
No Matches
+
+
+
Loading...
+
+
+
Searching...
+
No Matches
+
+
+
Loading...
+
+
+
Searching...
+
No Matches
+
+
+
Loading...
+
+
+
Searching...
+
No Matches
+
+
+
Loading...
+
+
+
Searching...
+
No Matches
+
+
+
Loading...
+
+
+
Searching...
+
No Matches
+
+
+
Loading...
+
+
+
Searching...
+
No Matches
+
+
+
Loading...
+
+
+
Searching...
+
No Matches
+
+
+
Loading...
+
+
+
Searching...
+
No Matches
+
+
+
Loading...
+
+
+
Searching...
+
No Matches
+
+
+
Loading...
+
+
+
Searching...
+
No Matches
+
+
+
Loading...
+
+
+
Searching...
+
No Matches
+
+
+
Loading...
+
+
+
Searching...
+
No Matches
+
+
+
Loading...
+
+
+
Searching...
+
No Matches
+
+
+
Loading...
+
+
+
Searching...
+
No Matches
+
+
+
Loading...
+
+
+
Searching...
+
No Matches
+
+
+
Loading...
+
+
+
Searching...
+
No Matches
+
+
+
Loading...
+
+
+
Searching...
+
No Matches
+
+
+
Loading...
+
+
+
Searching...
+
No Matches
+
+
+
Loading...
+
+
+
Searching...
+
No Matches
+
+
+
+
+
+ image/svg+xml
+
+
+
+
diff --git a/ver-1.7.0/search/nomatches.html b/ver-1.7.0/search/nomatches.html
new file mode 100644
index 00000000..2b9360b6
--- /dev/null
+++ b/ver-1.7.0/search/nomatches.html
@@ -0,0 +1,13 @@
+
+
+ object is the parent of the search bar */
+ display: flex;
+ justify-content: center;
+ align-items: center;
+ height: 36px;
+ margin-right: 1em;
+}
+
+/*---------------- Search filter selection */
+
+#MSearchSelectWindow {
+ display: none;
+ position: absolute;
+ left: 0; top: 0;
+ border: 1px solid #90A5CE;
+ background-color: #F9FAFC;
+ z-index: 10001;
+ padding-top: 4px;
+ padding-bottom: 4px;
+ -moz-border-radius: 4px;
+ -webkit-border-top-left-radius: 4px;
+ -webkit-border-top-right-radius: 4px;
+ -webkit-border-bottom-left-radius: 4px;
+ -webkit-border-bottom-right-radius: 4px;
+ -webkit-box-shadow: 5px 5px 5px rgba(0, 0, 0, 0.15);
+}
+
+.SelectItem {
+ font: 8pt Arial, Verdana, sans-serif;
+ padding-left: 2px;
+ padding-right: 12px;
+ border: 0px;
+}
+
+span.SelectionMark {
+ margin-right: 4px;
+ font-family: monospace;
+ outline-style: none;
+ text-decoration: none;
+}
+
+a.SelectItem {
+ display: block;
+ outline-style: none;
+ color: #000000;
+ text-decoration: none;
+ padding-left: 6px;
+ padding-right: 12px;
+}
+
+a.SelectItem:focus,
+a.SelectItem:active {
+ color: #000000;
+ outline-style: none;
+ text-decoration: none;
+}
+
+a.SelectItem:hover {
+ color: #FFFFFF;
+ background-color: #3D578C;
+ outline-style: none;
+ text-decoration: none;
+ cursor: pointer;
+ display: block;
+}
+
+/*---------------- Search results window */
+
+iframe#MSearchResults {
+ width: 60ex;
+ height: 15em;
+}
+
+#MSearchResultsWindow {
+ display: none;
+ position: absolute;
+ left: 0; top: 0;
+ border: 1px solid #000;
+ background-color: #EEF1F7;
+ z-index:10000;
+}
+
+/* ----------------------------------- */
+
+
+#SRIndex {
+ clear:both;
+ padding-bottom: 15px;
+}
+
+.SREntry {
+ font-size: 10pt;
+ padding-left: 1ex;
+}
+
+.SRPage .SREntry {
+ font-size: 8pt;
+ padding: 1px 5px;
+}
+
+body.SRPage {
+ margin: 5px 2px;
+}
+
+.SRChildren {
+ padding-left: 3ex; padding-bottom: .5em
+}
+
+.SRPage .SRChildren {
+ display: none;
+}
+
+.SRSymbol {
+ font-weight: bold;
+ color: #425E97;
+ font-family: Arial, Verdana, sans-serif;
+ text-decoration: none;
+ outline: none;
+}
+
+a.SRScope {
+ display: block;
+ color: #425E97;
+ font-family: Arial, Verdana, sans-serif;
+ text-decoration: none;
+ outline: none;
+}
+
+a.SRSymbol:focus, a.SRSymbol:active,
+a.SRScope:focus, a.SRScope:active {
+ text-decoration: underline;
+}
+
+span.SRScope {
+ padding-left: 4px;
+ font-family: Arial, Verdana, sans-serif;
+}
+
+.SRPage .SRStatus {
+ padding: 2px 5px;
+ font-size: 8pt;
+ font-style: italic;
+ font-family: Arial, Verdana, sans-serif;
+}
+
+.SRResult {
+ display: none;
+}
+
+div.searchresults {
+ margin-left: 10px;
+ margin-right: 10px;
+}
+
+/*---------------- External search page results */
+
+.searchresult {
+ background-color: #F0F3F8;
+}
+
+.pages b {
+ color: white;
+ padding: 5px 5px 3px 5px;
+ background-image: url("../tab_a.png");
+ background-repeat: repeat-x;
+ text-shadow: 0 1px 1px #000000;
+}
+
+.pages {
+ line-height: 17px;
+ margin-left: 4px;
+ text-decoration: none;
+}
+
+.hl {
+ font-weight: bold;
+}
+
+#searchresults {
+ margin-bottom: 20px;
+}
+
+.searchpages {
+ margin-top: 10px;
+}
+
diff --git a/ver-1.7.0/search/search.js b/ver-1.7.0/search/search.js
new file mode 100644
index 00000000..fb226f73
--- /dev/null
+++ b/ver-1.7.0/search/search.js
@@ -0,0 +1,816 @@
+/*
+ @licstart The following is the entire license notice for the JavaScript code in this file.
+
+ The MIT License (MIT)
+
+ Copyright (C) 1997-2020 by Dimitri van Heesch
+
+ Permission is hereby granted, free of charge, to any person obtaining a copy of this software
+ and associated documentation files (the "Software"), to deal in the Software without restriction,
+ including without limitation the rights to use, copy, modify, merge, publish, distribute,
+ sublicense, and/or sell copies of the Software, and to permit persons to whom the Software is
+ furnished to do so, subject to the following conditions:
+
+ The above copyright notice and this permission notice shall be included in all copies or
+ substantial portions of the Software.
+
+ THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR IMPLIED, INCLUDING
+ BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
+ NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM,
+ DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
+ OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
+
+ @licend The above is the entire license notice for the JavaScript code in this file
+ */
+function convertToId(search)
+{
+ var result = '';
+ for (i=0;i do a search
+ {
+ this.Search();
+ }
+ }
+
+ this.OnSearchSelectKey = function(evt)
+ {
+ var e = (evt) ? evt : window.event; // for IE
+ if (e.keyCode==40 && this.searchIndex0) // Up
+ {
+ this.searchIndex--;
+ this.OnSelectItem(this.searchIndex);
+ }
+ else if (e.keyCode==13 || e.keyCode==27)
+ {
+ this.OnSelectItem(this.searchIndex);
+ this.CloseSelectionWindow();
+ this.DOMSearchField().focus();
+ }
+ return false;
+ }
+
+ // --------- Actions
+
+ // Closes the results window.
+ this.CloseResultsWindow = function()
+ {
+ this.DOMPopupSearchResultsWindow().style.display = 'none';
+ this.DOMSearchClose().style.display = 'none';
+ this.Activate(false);
+ }
+
+ this.CloseSelectionWindow = function()
+ {
+ this.DOMSearchSelectWindow().style.display = 'none';
+ }
+
+ // Performs a search.
+ this.Search = function()
+ {
+ this.keyTimeout = 0;
+
+ // strip leading whitespace
+ var searchValue = this.DOMSearchField().value.replace(/^ +/, "");
+
+ var code = searchValue.toLowerCase().charCodeAt(0);
+ var idxChar = searchValue.substr(0, 1).toLowerCase();
+ if ( 0xD800 <= code && code <= 0xDBFF && searchValue > 1) // surrogate pair
+ {
+ idxChar = searchValue.substr(0, 2);
+ }
+
+ var resultsPage;
+ var resultsPageWithSearch;
+ var hasResultsPage;
+
+ var idx = indexSectionsWithContent[this.searchIndex].indexOf(idxChar);
+ if (idx!=-1)
+ {
+ var hexCode=idx.toString(16);
+ resultsPage = this.resultsPath + '/' + indexSectionNames[this.searchIndex] + '_' + hexCode + this.extension;
+ resultsPageWithSearch = resultsPage+'?'+escape(searchValue);
+ hasResultsPage = true;
+ }
+ else // nothing available for this search term
+ {
+ resultsPage = this.resultsPath + '/nomatches' + this.extension;
+ resultsPageWithSearch = resultsPage;
+ hasResultsPage = false;
+ }
+
+ window.frames.MSearchResults.location = resultsPageWithSearch;
+ var domPopupSearchResultsWindow = this.DOMPopupSearchResultsWindow();
+
+ if (domPopupSearchResultsWindow.style.display!='block')
+ {
+ var domSearchBox = this.DOMSearchBox();
+ this.DOMSearchClose().style.display = 'inline-block';
+ if (this.insideFrame)
+ {
+ var domPopupSearchResults = this.DOMPopupSearchResults();
+ domPopupSearchResultsWindow.style.position = 'relative';
+ domPopupSearchResultsWindow.style.display = 'block';
+ var width = document.body.clientWidth - 8; // the -8 is for IE :-(
+ domPopupSearchResultsWindow.style.width = width + 'px';
+ domPopupSearchResults.style.width = width + 'px';
+ }
+ else
+ {
+ var domPopupSearchResults = this.DOMPopupSearchResults();
+ var left = getXPos(domSearchBox) + 150; // domSearchBox.offsetWidth;
+ var top = getYPos(domSearchBox) + 20; // domSearchBox.offsetHeight + 1;
+ domPopupSearchResultsWindow.style.display = 'block';
+ left -= domPopupSearchResults.offsetWidth;
+ domPopupSearchResultsWindow.style.top = top + 'px';
+ domPopupSearchResultsWindow.style.left = left + 'px';
+ }
+ }
+
+ this.lastSearchValue = searchValue;
+ this.lastResultsPage = resultsPage;
+ }
+
+ // -------- Activation Functions
+
+ // Activates or deactivates the search panel, resetting things to
+ // their default values if necessary.
+ this.Activate = function(isActive)
+ {
+ if (isActive || // open it
+ this.DOMPopupSearchResultsWindow().style.display == 'block'
+ )
+ {
+ this.DOMSearchBox().className = 'MSearchBoxActive';
+
+ var searchField = this.DOMSearchField();
+
+ if (searchField.value == this.searchLabel) // clear "Search" term upon entry
+ {
+ searchField.value = '';
+ this.searchActive = true;
+ }
+ }
+ else if (!isActive) // directly remove the panel
+ {
+ this.DOMSearchBox().className = 'MSearchBoxInactive';
+ this.DOMSearchField().value = this.searchLabel;
+ this.searchActive = false;
+ this.lastSearchValue = ''
+ this.lastResultsPage = '';
+ }
+ }
+}
+
+// -----------------------------------------------------------------------
+
+// The class that handles everything on the search results page.
+function SearchResults(name)
+{
+ // The number of matches from the last run of .
+ this.lastMatchCount = 0;
+ this.lastKey = 0;
+ this.repeatOn = false;
+
+ // Toggles the visibility of the passed element ID.
+ this.FindChildElement = function(id)
+ {
+ var parentElement = document.getElementById(id);
+ var element = parentElement.firstChild;
+
+ while (element && element!=parentElement)
+ {
+ if (element.nodeName.toLowerCase() == 'div' && element.className == 'SRChildren')
+ {
+ return element;
+ }
+
+ if (element.nodeName.toLowerCase() == 'div' && element.hasChildNodes())
+ {
+ element = element.firstChild;
+ }
+ else if (element.nextSibling)
+ {
+ element = element.nextSibling;
+ }
+ else
+ {
+ do
+ {
+ element = element.parentNode;
+ }
+ while (element && element!=parentElement && !element.nextSibling);
+
+ if (element && element!=parentElement)
+ {
+ element = element.nextSibling;
+ }
+ }
+ }
+ }
+
+ this.Toggle = function(id)
+ {
+ var element = this.FindChildElement(id);
+ if (element)
+ {
+ if (element.style.display == 'block')
+ {
+ element.style.display = 'none';
+ }
+ else
+ {
+ element.style.display = 'block';
+ }
+ }
+ }
+
+ // Searches for the passed string. If there is no parameter,
+ // it takes it from the URL query.
+ //
+ // Always returns true, since other documents may try to call it
+ // and that may or may not be possible.
+ this.Search = function(search)
+ {
+ if (!search) // get search word from URL
+ {
+ search = window.location.search;
+ search = search.substring(1); // Remove the leading '?'
+ search = unescape(search);
+ }
+
+ search = search.replace(/^ +/, ""); // strip leading spaces
+ search = search.replace(/ +$/, ""); // strip trailing spaces
+ search = search.toLowerCase();
+ search = convertToId(search);
+
+ var resultRows = document.getElementsByTagName("div");
+ var matches = 0;
+
+ var i = 0;
+ while (i < resultRows.length)
+ {
+ var row = resultRows.item(i);
+ if (row.className == "SRResult")
+ {
+ var rowMatchName = row.id.toLowerCase();
+ rowMatchName = rowMatchName.replace(/^sr\d*_/, ''); // strip 'sr123_'
+
+ if (search.length<=rowMatchName.length &&
+ rowMatchName.substr(0, search.length)==search)
+ {
+ row.style.display = 'block';
+ matches++;
+ }
+ else
+ {
+ row.style.display = 'none';
+ }
+ }
+ i++;
+ }
+ document.getElementById("Searching").style.display='none';
+ if (matches == 0) // no results
+ {
+ document.getElementById("NoMatches").style.display='block';
+ }
+ else // at least one result
+ {
+ document.getElementById("NoMatches").style.display='none';
+ }
+ this.lastMatchCount = matches;
+ return true;
+ }
+
+ // return the first item with index index or higher that is visible
+ this.NavNext = function(index)
+ {
+ var focusItem;
+ while (1)
+ {
+ var focusName = 'Item'+index;
+ focusItem = document.getElementById(focusName);
+ if (focusItem && focusItem.parentNode.parentNode.style.display=='block')
+ {
+ break;
+ }
+ else if (!focusItem) // last element
+ {
+ break;
+ }
+ focusItem=null;
+ index++;
+ }
+ return focusItem;
+ }
+
+ this.NavPrev = function(index)
+ {
+ var focusItem;
+ while (1)
+ {
+ var focusName = 'Item'+index;
+ focusItem = document.getElementById(focusName);
+ if (focusItem && focusItem.parentNode.parentNode.style.display=='block')
+ {
+ break;
+ }
+ else if (!focusItem) // last element
+ {
+ break;
+ }
+ focusItem=null;
+ index--;
+ }
+ return focusItem;
+ }
+
+ this.ProcessKeys = function(e)
+ {
+ if (e.type == "keydown")
+ {
+ this.repeatOn = false;
+ this.lastKey = e.keyCode;
+ }
+ else if (e.type == "keypress")
+ {
+ if (!this.repeatOn)
+ {
+ if (this.lastKey) this.repeatOn = true;
+ return false; // ignore first keypress after keydown
+ }
+ }
+ else if (e.type == "keyup")
+ {
+ this.lastKey = 0;
+ this.repeatOn = false;
+ }
+ return this.lastKey!=0;
+ }
+
+ this.Nav = function(evt,itemIndex)
+ {
+ var e = (evt) ? evt : window.event; // for IE
+ if (e.keyCode==13) return true;
+ if (!this.ProcessKeys(e)) return false;
+
+ if (this.lastKey==38) // Up
+ {
+ var newIndex = itemIndex-1;
+ var focusItem = this.NavPrev(newIndex);
+ if (focusItem)
+ {
+ var child = this.FindChildElement(focusItem.parentNode.parentNode.id);
+ if (child && child.style.display == 'block') // children visible
+ {
+ var n=0;
+ var tmpElem;
+ while (1) // search for last child
+ {
+ tmpElem = document.getElementById('Item'+newIndex+'_c'+n);
+ if (tmpElem)
+ {
+ focusItem = tmpElem;
+ }
+ else // found it!
+ {
+ break;
+ }
+ n++;
+ }
+ }
+ }
+ if (focusItem)
+ {
+ focusItem.focus();
+ }
+ else // return focus to search field
+ {
+ parent.document.getElementById("MSearchField").focus();
+ }
+ }
+ else if (this.lastKey==40) // Down
+ {
+ var newIndex = itemIndex+1;
+ var focusItem;
+ var item = document.getElementById('Item'+itemIndex);
+ var elem = this.FindChildElement(item.parentNode.parentNode.id);
+ if (elem && elem.style.display == 'block') // children visible
+ {
+ focusItem = document.getElementById('Item'+itemIndex+'_c0');
+ }
+ if (!focusItem) focusItem = this.NavNext(newIndex);
+ if (focusItem) focusItem.focus();
+ }
+ else if (this.lastKey==39) // Right
+ {
+ var item = document.getElementById('Item'+itemIndex);
+ var elem = this.FindChildElement(item.parentNode.parentNode.id);
+ if (elem) elem.style.display = 'block';
+ }
+ else if (this.lastKey==37) // Left
+ {
+ var item = document.getElementById('Item'+itemIndex);
+ var elem = this.FindChildElement(item.parentNode.parentNode.id);
+ if (elem) elem.style.display = 'none';
+ }
+ else if (this.lastKey==27) // Escape
+ {
+ parent.searchBox.CloseResultsWindow();
+ parent.document.getElementById("MSearchField").focus();
+ }
+ else if (this.lastKey==13) // Enter
+ {
+ return true;
+ }
+ return false;
+ }
+
+ this.NavChild = function(evt,itemIndex,childIndex)
+ {
+ var e = (evt) ? evt : window.event; // for IE
+ if (e.keyCode==13) return true;
+ if (!this.ProcessKeys(e)) return false;
+
+ if (this.lastKey==38) // Up
+ {
+ if (childIndex>0)
+ {
+ var newIndex = childIndex-1;
+ document.getElementById('Item'+itemIndex+'_c'+newIndex).focus();
+ }
+ else // already at first child, jump to parent
+ {
+ document.getElementById('Item'+itemIndex).focus();
+ }
+ }
+ else if (this.lastKey==40) // Down
+ {
+ var newIndex = childIndex+1;
+ var elem = document.getElementById('Item'+itemIndex+'_c'+newIndex);
+ if (!elem) // last child, jump to parent next parent
+ {
+ elem = this.NavNext(itemIndex+1);
+ }
+ if (elem)
+ {
+ elem.focus();
+ }
+ }
+ else if (this.lastKey==27) // Escape
+ {
+ parent.searchBox.CloseResultsWindow();
+ parent.document.getElementById("MSearchField").focus();
+ }
+ else if (this.lastKey==13) // Enter
+ {
+ return true;
+ }
+ return false;
+ }
+}
+
+function setKeyActions(elem,action)
+{
+ elem.setAttribute('onkeydown',action);
+ elem.setAttribute('onkeypress',action);
+ elem.setAttribute('onkeyup',action);
+}
+
+function setClassAttr(elem,attr)
+{
+ elem.setAttribute('class',attr);
+ elem.setAttribute('className',attr);
+}
+
+function createResults()
+{
+ var results = document.getElementById("SRResults");
+ for (var e=0; e
+
+
+
Loading...
+
+
+
Searching...
+
No Matches
+
+
+
Loading...
+
+
+
Searching...
+
No Matches
+
+
+
Loading...
+
+
+
Searching...
+
No Matches
+
+
+
Loading...
+
+
+
Searching...
+
No Matches
+
+
+
Loading...
+
+
+
Searching...
+
No Matches
+
+
+
Loading...
+
+
+
Searching...
+
No Matches
+
+
+
Loading...
+
+
+
Searching...
+
No Matches
+
+
+
Loading...
+
+
+
Searching...
+
No Matches
+
+
+
Loading...
+
+
+
Searching...
+
No Matches
+
+
+
Loading...
+
+
+
Searching...
+
No Matches
+
+
+
Loading...
+
+
+
Searching...
+
No Matches
+
+
+
Loading...
+
+
+
Searching...
+
No Matches
+
+
+
Loading...
+
+
+
Searching...
+
No Matches
+
+
+
Loading...
+
+
+
Searching...
+
No Matches
+
+
+
Loading...
+
+
+
Searching...
+
No Matches
+
+
NCEPLIBS-g2c: seekgb.c File Reference
+
+
+
+
+
+
+ NCEPLIBS-g2c
+ 1.7.0
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
Searches a file for the next GRIB message.
+More...
+
#include <stdio.h>
+
#include <stdlib.h>
+
#include "grib2_int.h "
+
+
Go to the source code of this file.
+
+
+
Searches a file for the next GRIB message.
+
Author Stephen Gilbert
+
Date 2002-10-28
+
+
Definition in file seekgb.c .
+
+
+
◆
+
+
+
+
+
+ #define BITS_PER_BYTE 8
+
+
+
+
+
8 bits per byte.
+
+
Definition at line 10 of file seekgb.c .
+
+
+
+
+
+
◆
+
+
+
+
+
+ void seekgb
+ (
+ FILE *
+ lugb ,
+
+ g2int iseek ,
+
+ g2int mseek ,
+
+ g2int * lskip ,
+
+ g2int * lgrib
+
+ )
+
+
+
+
+
This subprogram searches a file for the next GRIB Message.
+
The search is done starting at byte offset iseek of the file referenced by lugb for mseek bytes at a time. If found, the starting position and length of the message are returned in lskip and lgrib, respectively. The search is terminated when an EOF or I/O error is encountered.
+
+
+
+Date Programmer Comments
+
+2002-10-28 GILBERT Modified from Iredell's skgb subroutine
+
+2009-01-16 VUONG Changed lskip to 4 instead of sizof(g2int)
+
+
Parameters
+
+ lugb FILE pointer for the file to search. File must be opened before this routine is called. iseek number of bytes in the file to skip before search. mseek number of bytes to search at a time (must be at least 16). lskip number of bytes to skip from the beggining of the file to where the GRIB message starts. lgrib number of bytes in message (set to 0, if no message found).
+
+
+
Author Stephen Gilbert
+
Date 2002-10-28
+
+
Definition at line 39 of file seekgb.c .
+
+
References BITS_PER_BYTE , and gbit() .
+
+
+
+
+
NCEPLIBS-g2c: seekgb.c Source File
+
+
+
+
+
+
+ NCEPLIBS-g2c
+ 1.7.0
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
Go to the documentation of this file.
+
+
+
+
+
10 #define BITS_PER_BYTE 8
+
+
+
+
+
41 g2int k, k4, ipos, nread, lim, start, vers, lengrib;
+
+
+
+
+
46 cbuf = (
unsigned char *)malloc(mseek);
+
+
+
+
+
51 while (*lgrib == 0 && nread == mseek)
+
+
+
54 fseek(lugb, ipos, SEEK_SET);
+
55 nread = fread(cbuf,
sizeof (
unsigned char ), mseek, lugb);
+
+
+
+
59 for (k = 0; k < lim; k++)
+
+
+
+
+
+
+
+
+
+
69 if (start == 1196575042 && (vers == 1 || vers == 2))
+
+
+
+
+
+
+
+
+
78 fseek(lugb, ipos + k + lengrib - 4, SEEK_SET);
+
79 k4 = fread(&end, 4, 1, lugb);
+
+
+
82 if (k4 == 1 && end == 926365495)
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
Header file with internal function prototypes NCEPLIBS-g2c library.
void gbit(unsigned char *in, g2int *iout, g2int iskip, g2int nbits)
Get bits - unpack bits: Extract arbitrary size values from a packed bit string, right justifying each...
int64_t g2int
Long integer type.
void seekgb(FILE *lugb, g2int iseek, g2int mseek, g2int *lskip, g2int *lgrib)
This subprogram searches a file for the next GRIB Message.
#define BITS_PER_BYTE
8 bits per byte.
NCEPLIBS-g2c: simpack.c File Reference
+
+
+
+
+
+
+ NCEPLIBS-g2c
+ 1.7.0
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
Pack up a data field using the simple packing algorithm.
+More...
+
#include <stdlib.h>
+
#include <math.h>
+
#include "grib2_int.h "
+
+
Go to the source code of this file.
+
+void simpack (float *fld, g2int ndpts, g2int *idrstmpl, unsigned char *cpack, g2int *lcpack) This subroutine packs up a data field using the simple packing algorithm as defined in the GRIB2 documention. More...
+
+
Pack up a data field using the simple packing algorithm.
+
Author Stephen Gilbert
+
Date 2002-11-06
+
+
Definition in file simpack.c .
+
+
+
◆
+
+
+
+
+
+ void simpack
+ (
+ float *
+ fld ,
+
+ g2int ndpts ,
+
+ g2int * idrstmpl ,
+
+ unsigned char *
+ cpack ,
+
+ g2int * lcpack
+
+ )
+
+
+
+
+
This subroutine packs up a data field using the simple packing algorithm as defined in the GRIB2 documention.
+
It also fills in GRIB2 Data Representation Template 5.0 with the appropriate values.
+
Parameters
+
+ fld Contains the data values to pack. ndpts The number of data values in array fld. idrstmpl Contains the array of values for [Data Representation Template 5.0](https://www.nco.ncep.noaa.gov/pmb/docs/grib2/grib2_doc/grib2_temp5-0.shtml ).
+0 Reference value - ignored on input - set by simpack routine.
+1 Binary Scale Factor - unchanged from input.
+2 Decimal Scale Factor - unchanged from input.
+3 Number of bits used to pack data, if value is > 0 and <= 31. If this input value is 0 or outside above range then the num of bits is calculated based on given data and scale factors.
+4 Original field type - currently ignored on input. Data values assumed to be reals. Set to 0 by simpack routine.
+
+ cpack The packed data field lcpack length of packed field starting at cpack.
+
+
+
Author Stephen Gilbert
+
Date 2002-11-06
+
+
Definition at line 34 of file simpack.c .
+
+
References ALOG2 , int_power() , mkieee() , sbit() , and sbits() .
+
+
Referenced by g2_addfield() , and specpack() .
+
+
+
+
+
NCEPLIBS-g2c: simpack.c Source File
+
+
+
+
+
+
+ NCEPLIBS-g2c
+ 1.7.0
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
Go to the documentation of this file.
+
+
+
+
+
+
+
35 unsigned char *cpack,
g2int *lcpack)
+
+
37 static g2int zero = 0;
+
+
39 g2int j, nbits, imin, imax, maxdif, nbittot, left;
+
40 float bscale, dscale, rmax, rmin, temp;
+
+
42 static float alog2 =
ALOG2 ;
+
+
+
+
46 if (idrstmpl[3] <= 0 || idrstmpl[3] > 31)
+
+
+
+
+
+
+
+
54 for (j = 1; j < ndpts; j++) {
+
+
+
+
+
+
+
61 ifld = calloc(ndpts,
sizeof (
g2int ));
+
+
+
+
+
+
+
+
+
70 if (nbits == 0 && idrstmpl[1] == 0) {
+
+
+
+
74 imin = (
g2int )rint(rmin * dscale);
+
75 imax = (
g2int )rint(rmax * dscale);
+
+
77 temp = log((
double )(maxdif + 1)) / alog2;
+
78 nbits = (
g2int )ceil(temp);
+
+
+
81 for (j = 0; j < ndpts; j++)
+
82 ifld[j] = (
g2int )rint(fld[j] * dscale) - imin;
+
+
84 else if (nbits != 0 && idrstmpl[1] == 0) {
+
+
+
+
+
+
+
91 temp = log(maxnum / (rmax - rmin)) / alog2;
+
92 idrstmpl[1] = (
g2int )ceil(-1.0 * temp);
+
+
+
95 for (j = 0; j < ndpts; j++)
+
96 ifld[j] = (
g2int )rint(((fld[j] * dscale) - rmin) * bscale);
+
+
98 else if (nbits == 0 && idrstmpl[1] != 0) {
+
+
+
+
102 rmin = rmin * dscale;
+
103 rmax = rmax * dscale;
+
104 maxdif = (
g2int )rint((rmax - rmin) * bscale);
+
105 temp = log((
double )(maxdif + 1)) / alog2;
+
106 nbits = (
g2int )ceil(temp);
+
+
108 for (j = 0; j < ndpts; j++)
+
109 ifld[j] = (
g2int )rint(((fld[j] * dscale) - rmin) * bscale);
+
+
111 else if (nbits != 0 && idrstmpl[1] != 0) {
+
+
+
+
+
+
117 rmin = rmin * dscale;
+
+
119 for (j = 0; j < ndpts; j++)
+
120 ifld[j] = (
g2int )rint(((fld[j] * dscale) - rmin) * bscale);
+
+
+
+
+
125 sbits (cpack, ifld, 0, nbits, 0, ndpts);
+
126 nbittot = nbits * ndpts;
+
127 left = 8 - (nbittot % 8);
+
+
129 sbit (cpack, &zero, nbittot, left);
+
130 nbittot = nbittot + left;
+
+
132 *lcpack = nbittot / 8;
+
+
+
+
+
+
+
+
140 mkieee (&rmin, idrstmpl, 1);
+
+
+
+
+
+
+
double int_power(double x, g2int y)
Function similar to C pow() power function.
Header file with internal function prototypes NCEPLIBS-g2c library.
void sbits(unsigned char *out, g2int *in, g2int iskip, g2int nbits, g2int nskip, g2int n)
Store bits - put arbitrary size values into a packed bit string, taking the low order bits from each ...
void mkieee(float *a, g2int *rieee, g2int num)
This subroutine stores a list of real values in 32-bit IEEE floating point format.
void simpack(float *fld, g2int ndpts, g2int *idrstmpl, unsigned char *cpack, g2int *lcpack)
This subroutine packs up a data field using the simple packing algorithm as defined in the GRIB2 docu...
int64_t g2int
Long integer type.
void sbit(unsigned char *out, g2int *in, g2int iskip, g2int nbits)
Store bits - put arbitrary size values into a packed bit string, taking the low order bits from each ...
NCEPLIBS-g2c: simunpack.c File Reference
+
+
+
+
+
+
+ NCEPLIBS-g2c
+ 1.7.0
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
#include <stdio.h>
+
#include <stdlib.h>
+
#include "grib2_int.h "
+
+
Go to the source code of this file.
+
+g2int simunpack (unsigned char *cpack, g2int *idrstmpl, g2int ndpts, float *fld) This subroutine unpacks a data field that was packed using a simple packing algorithm as defined in the GRIB2 documention, using info from the GRIB2 Data Representation Template 5.0. More...
+
+
Author Stephen Gilbert
+
Date 2002-10-29
+
+
Definition in file simunpack.c .
+
+
+
◆
+
+
+
+
+
+ g2int simunpack (
+ unsigned char *
+ cpack ,
+
+ g2int * idrstmpl ,
+
+ g2int ndpts ,
+
+ float *
+ fld
+
+ )
+
+
+
+
+
This subroutine unpacks a data field that was packed using a simple packing algorithm as defined in the GRIB2 documention, using info from the GRIB2 Data Representation Template 5.0.
+
Parameters
+
+ cpack pointer to the packed data field. idrstmpl pointer to the array of values for Data Representation Template 5.0. ndpts The number of data values to unpack. fld Contains the unpacked data values. fld must be `* allocated with at least ndpts * sizeof(float) bytes before calling this routine.
+
+
+
Returns 0 for success, error code otherwise.
+
Author Stephen Gilbert
+
Date 2002-10-29
+
+
Definition at line 26 of file simunpack.c .
+
+
References G2_JPCUNPACK_MEM , G2_NO_ERROR , gbits() , int_power() , and rdieee() .
+
+
Referenced by g2_unpack7() .
+
+
+
+
+
NCEPLIBS-g2c: simunpack.c Source File
+
+
+
+
+
+
+ NCEPLIBS-g2c
+ 1.7.0
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
Go to the documentation of this file.
+
+
+
+
+
+
+
+
+
+
+
31 float ref, bscale, dscale;
+
+
+
+
+
+
+
38 if (!(ifld = calloc(ndpts,
sizeof (
g2int ))))
+
+
40 fprintf(stderr,
"Could not allocate space in simunpack.\n "
+
41 "Data field NOT upacked.\n" );
+
+
+
+
+
+
+
+
49 gbits (cpack, ifld, 0, nbits, 0, ndpts);
+
50 for (j = 0; j < ndpts; j++)
+
51 fld[j] = (((
float )ifld[j] * bscale) + ref) * dscale;
+
+
+
+
55 for (j = 0; j < ndpts; j++)
+
+
+
+
+
+
+
+
#define G2_NO_ERROR
Function succeeded.
void rdieee(g2int *rieee, float *a, g2int num)
This subroutine reads a list of real values in 32-bit IEEE floating point format.
double int_power(double x, g2int y)
Function similar to C pow() power function.
Header file with internal function prototypes NCEPLIBS-g2c library.
int64_t g2int
Long integer type.
g2int simunpack(unsigned char *cpack, g2int *idrstmpl, g2int ndpts, float *fld)
This subroutine unpacks a data field that was packed using a simple packing algorithm as defined in t...
void gbits(unsigned char *in, g2int *iout, g2int iskip, g2int nbits, g2int nskip, g2int n)
Get bits - unpack bits: Extract arbitrary size values from a packed bit string, right justifying each...
#define G2_JPCUNPACK_MEM
In jpcunpack() or other unpack function: out of memory.
NCEPLIBS-g2c: specpack.c File Reference
+
+
+
+
+
+
+ NCEPLIBS-g2c
+ 1.7.0
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
Pack a spectral data field using the complex packing algorithm for spherical harmonic data.
+More...
+
#include <stdio.h>
+
#include <stdlib.h>
+
#include <math.h>
+
#include "grib2_int.h "
+
+
Go to the source code of this file.
+
+void specpack (float *fld, g2int ndpts, g2int JJ, g2int KK, g2int MM, g2int *idrstmpl, unsigned char *cpack, g2int *lcpack) This subroutine packs a spectral data field using the complex packing algorithm for spherical harmonic data as defined in the GRIB2 Data Representation Template 5.51 . More...
+
+
Pack a spectral data field using the complex packing algorithm for spherical harmonic data.
+
Author Stephen Gilbert
+
Date 2002-12-19
+
+
Definition in file specpack.c .
+
+
+
◆
+
+
+
+
+
+ void specpack
+ (
+ float *
+ fld ,
+
+ g2int ndpts ,
+
+ g2int JJ ,
+
+ g2int KK ,
+
+ g2int MM ,
+
+ g2int * idrstmpl ,
+
+ unsigned char *
+ cpack ,
+
+ g2int * lcpack
+
+ )
+
+
+
+
+
This subroutine packs a spectral data field using the complex packing algorithm for spherical harmonic data as defined in the GRIB2 Data Representation Template 5.51 .
+
Parameters
+
+ fld Contains the data values to be packed. ndpts The number of data values to pack. JJ J - pentagonal resolution parameter. KK K - pentagonal resolution parameter. MM M - pentagonal resolution parameter. idrstmpl Contains the array of 10 values for [Data Representation Template 5.51](https://www.nco.ncep.noaa.gov/pmb/docs/grib2/grib2_doc/grib2_temp5-51.shtml ). cpack Pointer that gets the packed data field. Must be allocated by caller. lcpack length of packed field cpack.
+
+
+
Author Stephen Gilbert
+
Date 2002-12-19
+
+
Definition at line 33 of file specpack.c .
+
+
References mkieee() , and simpack() .
+
+
Referenced by g2_addfield() .
+
+
+
+
+
NCEPLIBS-g2c: specpack.c Source File
+
+
+
+
+
+
+ NCEPLIBS-g2c
+ 1.7.0
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
Go to the documentation of this file.
+
+
+
+
+
+
+
+
34 g2int *idrstmpl,
unsigned char *cpack,
g2int *lcpack)
+
+
+
37 g2int *ifld, tmplsim[5];
+
+
39 float *pscale, tscale;
+
40 g2int Js, Ks, Ms, Ts, Ns, inc, incu, incp, n, Nm, m, ipos;
+
+
+
+
+
+
+
+
+
49 pscale = malloc((JJ + MM + 1) *
sizeof (
float ));
+
50 tscale = (float)idrstmpl[4] * 1E-6;
+
51 for (n = Js; n <= JJ + MM; n++)
+
52 pscale[n] = pow((
float )(n * (n + 1)), tscale);
+
+
+
+
+
57 tfld = malloc(ndpts *
sizeof (
float ));
+
58 unpk = malloc(ndpts *
sizeof (
float ));
+
59 ifld = malloc(ndpts *
sizeof (
g2int ));
+
+
+
+
63 for (m = 0; m <= MM; m++)
+
+
+
+
+
+
+
+
71 for (n = m; n <= Nm; n++)
+
+
73 if (n <= Ns && m <= Ms)
+
+
75 unpk[incu++] = fld[inc++];
+
76 unpk[incu++] = fld[inc++];
+
+
+
+
80 tfld[incp++] = fld[inc++] * pscale[n];
+
81 tfld[incp++] = fld[inc++] * pscale[n];
+
+
+
+
+
+
+
+
89 printf(
"specpack: Incorrect number of unpacked values %d given:\n" , (
int )Ts);
+
90 printf(
"specpack: Resetting idrstmpl[8] to %d\n" , (
int )incu);
+
+
+
+
+
+
+
+
+
+
100 tmplsim[1] = idrstmpl[1];
+
101 tmplsim[2] = idrstmpl[2];
+
102 tmplsim[3] = idrstmpl[3];
+
103 simpack (tfld, ndpts - Ts, tmplsim, cpack + ipos, lcpack);
+
104 *lcpack = (*lcpack) + ipos;
+
+
+
107 idrstmpl[0] = tmplsim[0];
+
108 idrstmpl[1] = tmplsim[1];
+
109 idrstmpl[2] = tmplsim[2];
+
110 idrstmpl[3] = tmplsim[3];
+
+
+
+
+
+
+
+
+
+
+
void specpack(float *fld, g2int ndpts, g2int JJ, g2int KK, g2int MM, g2int *idrstmpl, unsigned char *cpack, g2int *lcpack)
This subroutine packs a spectral data field using the complex packing algorithm for spherical harmoni...
Header file with internal function prototypes NCEPLIBS-g2c library.
void mkieee(float *a, g2int *rieee, g2int num)
This subroutine stores a list of real values in 32-bit IEEE floating point format.
int64_t g2int
Long integer type.
void simpack(float *fld, g2int ndpts, g2int *idrstmpl, unsigned char *cpack, g2int *lcpack)
This subroutine packs up a data field using the simple packing algorithm as defined in the GRIB2 docu...
NCEPLIBS-g2c: specunpack.c File Reference
+
+
+
+
+
+
+ NCEPLIBS-g2c
+ 1.7.0
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
Unpack a spectral data field that was packed using the complex packing algorithm for spherical harmonic data.
+More...
+
#include <stdio.h>
+
#include <stdlib.h>
+
#include <math.h>
+
#include "grib2_int.h "
+
+
Go to the source code of this file.
+
+g2int specunpack (unsigned char *cpack, g2int *idrstmpl, g2int ndpts, g2int JJ, g2int KK, g2int MM, float *fld) This subroutine unpacks a spectral data field that was packed using the complex packing algorithm for spherical harmonic data as defined in the GRIB2 documention, using info from the GRIB2 Data Representation Template 5.51 . More...
+
+
Unpack a spectral data field that was packed using the complex packing algorithm for spherical harmonic data.
+
Author Stephen Gilbert
+
Date 2000-06-21
+
+
Definition in file specunpack.c .
+
+
+
◆
+
+
+
+
+
+ g2int specunpack (
+ unsigned char *
+ cpack ,
+
+ g2int * idrstmpl ,
+
+ g2int ndpts ,
+
+ g2int JJ ,
+
+ g2int KK ,
+
+ g2int MM ,
+
+ float *
+ fld
+
+ )
+
+
+
+
+
This subroutine unpacks a spectral data field that was packed using the complex packing algorithm for spherical harmonic data as defined in the GRIB2 documention, using info from the GRIB2 Data Representation Template 5.51 .
+
Parameters
+
+ cpack pointer to the packed data field. idrstmpl pointer to the array of values for Data Representation Template 5.51. ndpts The number of data values to unpack (real and imaginary parts). JJ pentagonal resolution parameter. KK pentagonal resolution parameter. MM pentagonal resolution parameter. fld Contains the unpacked data values. fld must be allocated with at least ndpts * sizeof(float) bytes before calling this routine.
+
+
+
Returns 0 for success, -3 for wrong type.
+
Author Stephen Gilbert
+
Date 2000-06-21
+
+
Definition at line 35 of file specunpack.c .
+
+
References G2_NO_ERROR , G2_SPECUNPACK_TYPE , gbits() , int_power() , and rdieee() .
+
+
Referenced by g2_unpack7() .
+
+
+
+
+
NCEPLIBS-g2c: specunpack.c Source File
+
+
+
+
+
+
+ NCEPLIBS-g2c
+ 1.7.0
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
Go to the documentation of this file.
+
+
+
+
+
+
+
+
+
+
38 g2int *ifld, j, iofst, nbits;
+
39 float ref, bscale, dscale, *unpk;
+
40 float *pscale, tscale;
+
41 g2int Js, Ks, Ms, Ts, Ns, Nm, n, m;
+
42 g2int inc, incu, incp;
+
+
44 rdieee (idrstmpl+0, &ref, 1);
+
+
+
+
+
+
+
+
+
+
+
+
56 unpk = malloc(ndpts *
sizeof (
float ));
+
57 ifld = malloc(ndpts *
sizeof (
g2int ));
+
+
59 gbits (cpack, ifld, 0, 32, 0, Ts);
+
+
+
62 gbits (cpack, ifld, iofst, nbits, 0, ndpts - Ts);
+
+
+
+
66 pscale = malloc((JJ + MM + 1) *
sizeof (
float ));
+
67 tscale = idrstmpl[4] * 1E-6;
+
68 for (n = Js; n <= JJ + MM; n++)
+
69 pscale[n] = pow((
float )(n * (n+1)), -tscale);
+
+
+
+
+
+
75 for (m = 0; m <= MM; m++)
+
+
+
+
+
+
+
+
83 for (n = m; n <= Nm; n++)
+
+
85 if (n <= Ns && m <= Ms)
+
+
87 fld[inc++] = unpk[incu++];
+
88 fld[inc++] = unpk[incu++];
+
+
+
+
92 fld[inc++] = (((float)ifld[incp++] * bscale) + ref) *
+
+
94 fld[inc++] = (((float)ifld[incp++] * bscale) + ref) *
+
+
+
+
+
+
+
+
+
+
+
+
106 printf(
"specunpack: Cannot handle 64 or 128-bit floats.\n" );
+
107 for (j = 0; j < ndpts; j++)
+
+
+
+
+
+
+
+
#define G2_NO_ERROR
Function succeeded.
void rdieee(g2int *rieee, float *a, g2int num)
This subroutine reads a list of real values in 32-bit IEEE floating point format.
double int_power(double x, g2int y)
Function similar to C pow() power function.
Header file with internal function prototypes NCEPLIBS-g2c library.
int64_t g2int
Long integer type.
void gbits(unsigned char *in, g2int *iout, g2int iskip, g2int nbits, g2int nskip, g2int n)
Get bits - unpack bits: Extract arbitrary size values from a packed bit string, right justifying each...
g2int specunpack(unsigned char *cpack, g2int *idrstmpl, g2int ndpts, g2int JJ, g2int KK, g2int MM, float *fld)
This subroutine unpacks a spectral data field that was packed using the complex packing algorithm for...
#define G2_SPECUNPACK_TYPE
In specunpack() Can't handle 64 or 128 bit floats.
NCEPLIBS-g2c: util.c File Reference
+
+
+
+
+
+
+ NCEPLIBS-g2c
+ 1.7.0
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
Internal utility functions for the g2c library.
+More...
+
#include "grib2_int.h "
+
#include <stdarg.h>
+
+
Go to the source code of this file.
+
+int g2c_check_msg (unsigned char *cgrib, g2int *lencurr, int verbose) Check for 'GRIB' at the beginning of a GRIB message, and check to see if the message is already terminated with '7777'. More... int g2c_set_log_level (int new_level) Use this to set the global log level. More...
+
+
Internal utility functions for the g2c library.
+
Author Ed Hartnett
+
Date Nov 11, 2021
+
+
Definition in file util.c .
+
+
+
◆
+
+
+
+
+
+ int g2c_check_msg
+ (
+ unsigned char *
+ cgrib ,
+
+ g2int * lencurr ,
+
+ int
+ verbose
+
+ )
+
+
+
+
+
Check for 'GRIB' at the beginning of a GRIB message, and check to see if the message is already terminated with '7777'.
+
Parameters
+
+ cgrib Buffer that contains the GRIB message. lencurr Pointer that gets the length of the GRIB message. verbose If non-zero, print any error messages to stdout.
+
+
+
Returns
+
+
Author Ed Hartnett
+
Date Nov 11, 2021
+
+
Definition at line 26 of file util.c .
+
+
References G2C_MSG_COMPLETE , G2C_NO_ERROR , G2C_NOT_GRIB , and gbit() .
+
+
Referenced by g2_addfield() , g2_addgrid() , g2_addlocal() , and g2_gribend() .
+
+
+
+
+
◆
+
+
+
+
+
+ int g2c_set_log_level
+ (
+ int
+ new_level )
+
+
+
+
+
Use this to set the global log level.
+
Set it to -1 to turn off all logging. Set it to 0 to show only errors, and to higher numbers to show more and more logging details. If logging is not enabled when building NCEPLIBS-g2c, this function will do nothing.
+
Parameters
+
+ new_level The new logging level.
+
+
+
Returns G2_NO_ERROR No error.
+
Author Ed Hartnett
+
+
Definition at line 124 of file util.c .
+
+
References G2C_NO_ERROR , and LOG .
+
+
+
+
+
NCEPLIBS-g2c: util.c Source File
+
+
+
+
+
+
+ NCEPLIBS-g2c
+ 1.7.0
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
Go to the documentation of this file.
+
+
+
+
+
+
+
28 unsigned char G = 0x47;
+
29 unsigned char R = 0x52;
+
30 unsigned char I = 0x49;
+
31 unsigned char B = 0x42;
+
32 unsigned char seven = 0x37;
+
+
34 assert(cgrib && lencurr);
+
+
+
37 if (cgrib[0] != G || cgrib[1] != R || cgrib[2] != I || cgrib[3] != B)
+
+
+
40 printf(
"GRIB not found in given message. A call to routine g2_create() "
+
41 "is required to to initialize GRIB messge.\n" );
+
+
+
+
+
46 gbit (cgrib, lencurr, 96, 32);
+
+
+
49 if (cgrib[*lencurr - 4] == seven && cgrib[*lencurr - 3] == seven &&
+
50 cgrib[*lencurr - 2] == seven && cgrib[*lencurr - 1] == seven)
+
+
+
53 printf(
"GRIB message already complete. Cannot add new section.\n" );
+
+
+
+
+
+
+
+
+
+
+
64 int g2_log_level = -1;
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
81 g2_log(
int severity,
const char *fmt, ...)
+
+
+
+
+
+
+
+
89 if (severity > g2_log_level)
+
+
+
+
+
+
95 fprintf(f,
"ERROR: " );
+
96 for (t = 0; t < severity; t++)
+
+
+
+
+
101 vfprintf(f, fmt, argp);
+
+
+
+
+
+
+
+
+
+
+
+
+
+
128 g2_log_level = new_level;
+
+
130 LOG ((1,
"log_level changed to %d" , g2_log_level));
+
+
+
+
+
int g2c_set_log_level(int new_level)
Use this to set the global log level.
#define G2C_NO_ERROR
No error.
#define LOG(e)
Ignore logging to stdout.
Header file with internal function prototypes NCEPLIBS-g2c library.
void gbit(unsigned char *in, g2int *iout, g2int iskip, g2int nbits)
Get bits - unpack bits: Extract arbitrary size values from a packed bit string, right justifying each...
int64_t g2int
Long integer type.
#define G2C_MSG_COMPLETE
GRIB message already complete.
int g2c_check_msg(unsigned char *cgrib, g2int *lencurr, int verbose)
Check for 'GRIB' at the beginning of a GRIB message, and check to see if the message is already termi...
#define G2C_NOT_GRIB
GRIB header not found.
NCEPLIBS-g2c: Data Types List
+
+
+
+
+
+
+ NCEPLIBS-g2c
+ 1.6.4
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
Here are the data types with brief descriptions:
+
+
NCEPLIBS-g2c: Data Types
+
+
+
+
+
+
+ NCEPLIBS-g2c
+ 1.6.4
+
+
+
+
+
+
+
+
+
+
+
+
+
+
NCEPLIBS-g2c: cmplxpack.c File Reference
+
+
+
+
+
+
+ NCEPLIBS-g2c
+ 1.6.4
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
Pack up a data field using a complex packing algorithm as defined in the GRIB2 documention.
+More...
+
+
Go to the source code of this file.
+
+void cmplxpack (g2float *fld, g2int ndpts, g2int idrsnum, g2int *idrstmpl, unsigned char *cpack, g2int *lcpack) This subroutine packs up a data field using a complex packing algorithm as defined in the GRIB2 documention. More...
+
+
Pack up a data field using a complex packing algorithm as defined in the GRIB2 documention.
+
Author Stephen Gilbert
+
Date 2004-08-27
+
+
Definition in file cmplxpack.c .
+
+
+
◆
+
+
+
+
+
+ void cmplxpack
+ (
+ g2float * fld ,
+
+ g2int ndpts ,
+
+ g2int idrsnum ,
+
+ g2int * idrstmpl ,
+
+ unsigned char *
+ cpack ,
+
+ g2int * lcpack
+
+ )
+
+
+
+
+
This subroutine packs up a data field using a complex packing algorithm as defined in the GRIB2 documention.
+
It supports GRIB2 complex packing templates with or without spatial differences (i.e. DRTs 5.2 and 5.3). It also fills in GRIB2 Data Representation Template 5.2 or 5.3 with the appropriate values.
+
Parameters
+
+ fld Contains the data values to pack. ndpts The number of data values in array fld idrsnum Data Representation Template number. Must equal 2 or 3. idrstmpl Contains the array of values for Data Representation Template 5.2 or 5.3
+0 Reference value - ignored on input, set by compack routine.
+1 Binary Scale Factor
+2 Decimal Scale Factor
+6 Missing value management
+7 Primary missing value
+8 Secondary missing value
+16 Order of Spatial Differencing ( 1 or 2 )
+
+ cpack The packed data field. lcpack length of packed field cpack.
+
+
+
Author Stephen Gilbert
+
Date 2004-08-27
+
+
Definition at line 35 of file cmplxpack.c .
+
+
References compack() , and misspack() .
+
+
Referenced by g2_addfield() .
+
+
+
+
+
NCEPLIBS-g2c: cmplxpack.c Source File
+
+
+
+
+
+
+ NCEPLIBS-g2c
+ 1.6.4
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
Go to the documentation of this file.
+
+
+
+
+
36 unsigned char *cpack,
g2int *lcpack)
+
+
+
39 compack (fld, ndpts, idrsnum, idrstmpl, cpack, lcpack);
+
40 else if (idrstmpl[6] == 1 || idrstmpl[6] == 2)
+
41 misspack (fld, ndpts, idrsnum, idrstmpl, cpack, lcpack);
+
+
+
44 printf(
"cmplxpack: Don:t recognize Missing value option." );
+
+
+
+
+
void cmplxpack(g2float *fld, g2int ndpts, g2int idrsnum, g2int *idrstmpl, unsigned char *cpack, g2int *lcpack)
This subroutine packs up a data field using a complex packing algorithm as defined in the GRIB2 docum...
+
void compack(g2float *fld, g2int ndpts, g2int idrsnum, g2int *idrstmpl, unsigned char *cpack, g2int *lcpack)
This subroutine packs up a data field using a complex packing algorithm as defined in the GRIB2 docum...
+
Header file for NCEPLIBS-g2c library.
+
+
int64_t g2int
Long integer type.
+
void misspack(g2float *fld, g2int ndpts, g2int idrsnum, g2int *idrstmpl, unsigned char *cpack, g2int *lcpack)
This subroutine packs up a data field using a complex packing algorithm as defined in the GRIB2 docum...
+
+
NCEPLIBS-g2c: compack.c File Reference
+
+
+
+
+
+
+ NCEPLIBS-g2c
+ 1.6.4
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
Pack up a data field using a complex packing algorithm as defined in the GRIB2 documention.
+More...
+
#include <stdlib.h>
+
#include <math.h>
+
#include "grib2.h "
+
+
Go to the source code of this file.
+
+void compack (g2float *fld, g2int ndpts, g2int idrsnum, g2int *idrstmpl, unsigned char *cpack, g2int *lcpack) This subroutine packs up a data field using a complex packing algorithm as defined in the GRIB2 documention. More...
+
+
Pack up a data field using a complex packing algorithm as defined in the GRIB2 documention.
+
Author Stephen Gilbert
+
Date 2002-11-07
+
+
Definition in file compack.c .
+
+
+
◆
+
+
+
+
+
+ void compack
+ (
+ g2float * fld ,
+
+ g2int ndpts ,
+
+ g2int idrsnum ,
+
+ g2int * idrstmpl ,
+
+ unsigned char *
+ cpack ,
+
+ g2int * lcpack
+
+ )
+
+
+
+
+
This subroutine packs up a data field using a complex packing algorithm as defined in the GRIB2 documention.
+
It supports GRIB2 complex packing templates with or without spatial differences (i.e. DRTs 5.2 and 5.3). It also fills in GRIB2 Data Representation Template 5.2 or Template 5.3 with the appropriate values.
+
Parameters
+
+ fld Contains the data values to pack. ndpts The number of data values in array fld. idrsnum Data Representation Template number. Must equal 2 or 3. idrstmpl Contains the array of values for Data Representation Template 5.2 or 5.3.
+0 Reference value - ignored on input, set my compack() .
+1 Binary Scale Factor
+2 Decimal Scale Factor
+6 Missing value management
+7 Primary missing value
+8 Secondary missing value
+16 Order of Spatial Differencing (1 or 2)
+
+ cpack The packed data field. lcpack length of packed field cpack.
+
+
+
Author Stephen Gilbert
+
Date 2002-11-07
+
+
Definition at line 42 of file compack.c .
+
+
References int_power() , mkieee() , pack_gp() , sbit() , and sbits() .
+
+
Referenced by cmplxpack() .
+
+
+
+
+
NCEPLIBS-g2c: compack.c Source File
+
+
+
+
+
+
+ NCEPLIBS-g2c
+ 1.6.4
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
Go to the documentation of this file.
+
+
+
+
+
+
+
43 unsigned char *cpack,
g2int *lcpack)
+
+
+
46 static g2int zero = 0;
+
47 g2int *ifld, *gref, *glen, *gwidth;
+
48 g2int *jmin, *jmax, *lbit;
+
49 g2int i, j, n, imin, imax, left;
+
50 g2int isd, itemp, ilmax, ngwidthref = 0, nbitsgwidth = 0;
+
51 g2int nglenref = 0, nglenlast = 0, iofst, ival1, ival2;
+
52 g2int minsd, nbitsd = 0, maxorig, nbitorig, ngroups;
+
53 g2int lg, ng, igmax, iwmax, nbitsgref;
+
54 g2int glength, grpwidth, nbitsglen = 0;
+
55 g2int kfildo, minpk, inc, maxgrps, ibit, jbit, kbit, novref, lbitref;
+
56 g2int missopt, miss1, miss2, ier;
+
57 g2float bscale, dscale, rmax, rmin, temp;
+
58 static g2int simple_alg = 0;
+
59 static g2float alog2 = 0.69314718;
+
+
+
+
+
+
+
+
+
68 for (j = 1; j < ndpts; j++)
+
+
70 if (fld[j] > rmax) rmax = fld[j];
+
71 if (fld[j] < rmin) rmin = fld[j];
+
+
+
+
+
+
+
+
+
80 ifld = calloc(ndpts,
sizeof (
g2int ));
+
81 gref = calloc(ndpts,
sizeof (
g2int ));
+
82 gwidth = calloc(ndpts,
sizeof (
g2int ));
+
83 glen = calloc(ndpts,
sizeof (
g2int ));
+
+
+
+
+
88 imin = (
g2int )rint(rmin*dscale);
+
+
+
91 for (j = 0; j < ndpts; j++)
+
92 ifld[j] = (
g2int )rint(fld[j] * dscale) - imin;
+
+
+
+
+
+
98 for (j = 0; j < ndpts; j++)
+
99 ifld[j] = (
g2int )rint(((fld[j] * dscale) - rmin) * bscale);
+
+
+
+
+
+
+
106 if (idrstmpl[16] !=1 && idrstmpl[16] != 2)
+
+
108 if (idrstmpl[16] == 1)
+
+
+
111 for (j = ndpts-1; j > 0; j--)
+
112 ifld[j] = ifld[j] - ifld[j - 1];
+
+
+
115 else if (idrstmpl[16] == 2)
+
+
+
+
119 for (j = ndpts - 1; j > 1; j--)
+
120 ifld[j] = ifld[j] - (2 * ifld[j - 1]) + ifld[j - 2];
+
+
+
+
+
+
+
+
128 for (j = isd; j < ndpts; j++)
+
+
+
131 for (j = isd; j < ndpts; j++)
+
132 ifld[j] = ifld[j] - minsd;
+
+
+
135 temp = log((
double )(abs(minsd) + 1)) / alog2;
+
136 nbitsd = (
g2int )ceil(temp) + 1;
+
+
+
+
+
141 if (idrstmpl[16] == 2 && ival2 > ival1)
+
+
143 temp = log((
double )(maxorig + 1)) / alog2;
+
144 nbitorig = (
g2int )ceil(temp) + 1;
+
145 if (nbitorig > nbitsd)
+
+
+
+
149 if ((nbitsd % 8) != 0)
+
150 nbitsd = nbitsd+(8-(nbitsd%8));
+
+
+
+
+
+
+
+
+
159 sbit (cpack, &ival1, iofst, nbitsd);
+
160 iofst = iofst+nbitsd;
+
+
+
+
164 sbit (cpack, &one, iofst, 1);
+
+
+
167 sbit (cpack, &itemp, iofst, nbitsd-1);
+
168 iofst = iofst + nbitsd - 1;
+
+
170 if (idrstmpl[16] == 2)
+
+
+
+
+
175 sbit (cpack, &ival2, iofst, nbitsd);
+
176 iofst = iofst + nbitsd;
+
+
+
+
180 sbit (cpack, &one, iofst, 1);
+
+
+
183 sbit (cpack, &itemp, iofst, nbitsd - 1);
+
184 iofst = iofst + nbitsd - 1;
+
+
+
+
+
+
+
191 sbit (cpack, &minsd, iofst, nbitsd);
+
192 iofst = iofst + nbitsd;
+
+
+
+
196 sbit (cpack, &one, iofst, 1);
+
+
+
199 sbit (cpack, &itemp, iofst, nbitsd - 1);
+
200 iofst = iofst + nbitsd - 1;
+
+
+
+
+
+
+
+
+
+
210 ngroups = ndpts / 10;
+
211 for (j = 0; j < ngroups; j++)
+
+
+
+
+
216 ngroups = ngroups + 1;
+
217 glen[ngroups - 1] = itemp;
+
+
+
+
+
+
+
+
+
226 maxgrps = (ndpts / minpk) + 1;
+
227 jmin = calloc(maxgrps,
sizeof (
g2int ));
+
228 jmax = calloc(maxgrps,
sizeof (
g2int ));
+
229 lbit = calloc(maxgrps,
sizeof (
g2int ));
+
+
231 pack_gp (&kfildo, ifld, &ndpts, &missopt, &minpk, &inc, &miss1, &miss2,
+
232 jmin, jmax, lbit, glen, &maxgrps, &ngroups, &ibit, &jbit,
+
233 &kbit, &novref, &lbitref, &ier);
+
234 for (ng = 0; ng<ngroups; ng++)
+
235 glen[ng] = glen[ng] + novref;
+
+
+
+
+
+
+
+
+
244 for (ng = 0; ng < ngroups; ng++)
+
+
+
+
+
+
250 for (lg = 1; lg < glen[ng]; lg++)
+
+
252 if (ifld[j] < gref[ng])
+
+
+
+
+
+
+
+
260 if (gref[ng] != imax)
+
+
262 temp = log((
double )(imax - gref[ng] + 1))/alog2;
+
263 gwidth[ng] = (
g2int )ceil(temp);
+
+
+
+
+
+
269 for (lg = 0; lg < glen[ng]; lg++)
+
+
271 ifld[j] = ifld[j] - gref[ng];
+
+
+
+
+
+
+
+
+
+
+
282 for (j = 1; j < ngroups; j++)
+
+
+
+
+
287 temp = log((
double )(igmax + 1)) / alog2;
+
288 nbitsgref = (
g2int )ceil(temp);
+
289 sbits (cpack, gref, iofst, nbitsgref, 0, ngroups);
+
290 itemp = nbitsgref * ngroups;
+
291 iofst = iofst + itemp;
+
+
293 if ((itemp % 8) != 0)
+
+
295 left = 8 - (itemp % 8);
+
296 sbit (cpack, &zero, iofst, left);
+
297 iofst = iofst + left;
+
+
+
+
+
+
+
+
+
+
307 ngwidthref = gwidth[0];
+
308 for (j = 1; j < ngroups; j++)
+
+
310 if (gwidth[j] > iwmax)
+
+
312 if (gwidth[j] < ngwidthref)
+
313 ngwidthref = gwidth[j];
+
+
315 if (iwmax != ngwidthref)
+
+
317 temp = log((
double )(iwmax - ngwidthref +1)) / alog2;
+
318 nbitsgwidth = (
g2int )ceil(temp);
+
319 for (i = 0; i < ngroups; i++)
+
320 gwidth[i] = gwidth[i] - ngwidthref;
+
321 sbits (cpack, gwidth, iofst, nbitsgwidth, 0, ngroups);
+
322 itemp = nbitsgwidth * ngroups;
+
323 iofst = iofst + itemp;
+
+
325 if ((itemp % 8) != 0)
+
+
327 left = 8 - (itemp % 8);
+
328 sbit (cpack, &zero, iofst, left);
+
329 iofst = iofst + left;
+
+
+
+
+
+
335 for (i = 0; i < ngroups; i++)
+
+
+
+
+
+
+
+
+
344 for (j = 1; j < ngroups - 1; j++)
+
+
+
+
348 if (glen[j] < nglenref)
+
+
+
351 nglenlast = glen[ngroups - 1];
+
352 if (ilmax != nglenref)
+
+
354 temp = log((
double )(ilmax - nglenref + 1)) / alog2;
+
355 nbitsglen = (
g2int )ceil(temp);
+
356 for (i = 0; i < ngroups - 1; i++)
+
357 glen[i] = glen[i] - nglenref;
+
358 sbits (cpack, glen, iofst, nbitsglen, 0, ngroups);
+
359 itemp = nbitsglen * ngroups;
+
360 iofst = iofst + itemp;
+
+
362 if ((itemp % 8) != 0)
+
+
364 left = 8 - (itemp % 8);
+
365 sbit (cpack, &zero, iofst, left);
+
366 iofst = iofst + left;
+
+
+
+
+
+
372 for (i = 0; i < ngroups; i++)
+
+
+
+
+
+
378 for (ng = 0; ng < ngroups; ng++)
+
+
380 glength = glen[ng] + nglenref;
+
381 if (ng == (ngroups - 1))
+
+
383 grpwidth = gwidth[ng] + ngwidthref;
+
+
+
386 sbits (cpack, ifld + n, iofst, grpwidth, 0, glength);
+
387 iofst = iofst + (grpwidth * glength);
+
+
+
+
+
392 if ((iofst % 8) != 0)
+
+
394 left = 8 - (iofst % 8);
+
395 sbit (cpack, &zero, iofst, left);
+
396 iofst = iofst + left;
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
419 mkieee (&rmin, idrstmpl, 1);
+
420 idrstmpl[3] = nbitsgref;
+
+
+
+
+
+
426 idrstmpl[9] = ngroups;
+
427 idrstmpl[10] = ngwidthref;
+
428 idrstmpl[11] = nbitsgwidth;
+
429 idrstmpl[12] = nglenref;
+
+
431 idrstmpl[14] = nglenlast;
+
432 idrstmpl[15] = nbitsglen;
+
+
+
435 idrstmpl[17] = nbitsd / 8;
+
+
+
+
void compack(g2float *fld, g2int ndpts, g2int idrsnum, g2int *idrstmpl, unsigned char *cpack, g2int *lcpack)
This subroutine packs up a data field using a complex packing algorithm as defined in the GRIB2 docum...
+
void sbit(unsigned char *out, g2int *in, g2int iskip, g2int nbyte)
Store bits - put arbitrary size values into a packed bit string, taking the low order bits from each ...
+
void sbits(unsigned char *out, g2int *in, g2int iskip, g2int nbyte, g2int nskip, g2int n)
Store bits - put arbitrary size values into a packed bit string, taking the low order bits from each ...
+
Header file for NCEPLIBS-g2c library.
+
+
int64_t g2int
Long integer type.
+
double int_power(double x, g2int y)
Function similar to C pow() power function.
+
void mkieee(g2float *a, g2int *rieee, g2int num)
This subroutine stores a list of real values in 32-bit IEEE floating point format.
+
int pack_gp(integer *kfildo, integer *ic, integer *nxy, integer *is523, integer *minpk, integer *inc, integer *missp, integer *misss, integer *jmin, integer *jmax, integer *lbit, integer *nov, integer *ndg, integer *lx, integer *ibit, integer *jbit, integer *kbit, integer *novref, integer *lbitref, integer *ier)
Determines groups of variable size, but at least of size minpk, the associated max (jmax( )) and min ...
+
+
NCEPLIBS-g2c: comunpack.c File Reference
+
+
+
+
+
+
+ NCEPLIBS-g2c
+ 1.6.4
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
Unpack a data field that was packed using a complex packing algorithm as defined in the GRIB2 documention.
+More...
+
#include <stdio.h>
+
#include <stdlib.h>
+
#include "grib2.h "
+
+
Go to the source code of this file.
+
+
+
Unpack a data field that was packed using a complex packing algorithm as defined in the GRIB2 documention.
+
Author Stephen Gilbert
+
Date 2002-10-29
+
+
Definition in file comunpack.c .
+
+
+
◆
+
+
+
+
+
+ int comunpack
+ (
+ unsigned char *
+ cpack ,
+
+ g2int lensec ,
+
+ g2int idrsnum ,
+
+ g2int * idrstmpl ,
+
+ g2int ndpts ,
+
+ g2float * fld
+
+ )
+
+
+
+
+
This subroutine unpacks a data field that was packed using a complex packing algorithm as defined in the GRIB2 documention, using info from the GRIB2 Data Representation Template 5.2 or Template 5.3 .
+
Supports GRIB2 complex packing templates with or without spatial differences (i.e. DRTs 5.2 and 5.3).
+
+
+
+Date Programmer Comments
+
+2002-10-29 Gilbert Initial
+
+2004-12-16 Gilbert Added test (from Arthur Taylor/MDL) verifying group widths/lengths
+
+
Parameters
+
+ cpack pointer to the packed data field. lensec length of section 7 (used for error checking). idrsnum Data Representation Template number. Must equal 2 or 3. idrstmpl pointer to the array of values for Data Representation Template 5.2 or 5.3 ndpts The number of data values to unpack fld Contains the unpacked data values. Must be allocated with at least ndpts * sizeof(g2float) bytes before calling this routine.
+
+
+
Returns 0 for success, error code otherwise.
+
Author Stephen Gilbert
+
Date 2002-10-29
+
+
Definition at line 42 of file comunpack.c .
+
+
References gbit() , gbits() , int_power() , and rdieee() .
+
+
Referenced by g2_unpack7() .
+
+
+
+
+
NCEPLIBS-g2c: comunpack.c Source File
+
+
+
+
+
+
+ NCEPLIBS-g2c
+ 1.6.4
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
Go to the documentation of this file.
+
+
+
+
+
+
+
+
+
45 g2int nbitsd=0, isign;
+
46 g2int j, iofst, ival1, ival2, minsd, itemp, l, k, n, non=0;
+
47 g2int *ifld, *ifldmiss=0;
+
48 g2int *gref, *gwidth, *glen;
+
49 g2int itype, ngroups, nbitsgref, nbitsgwidth, nbitsglen;
+
+
51 g2float ref, bscale, dscale, rmiss1, rmiss2;
+
+
+
+
+
+
57 nbitsgref = idrstmpl[3];
+
+
59 ngroups = idrstmpl[9];
+
60 nbitsgwidth = idrstmpl[11];
+
61 nbitsglen = idrstmpl[15];
+
+
63 nbitsd=idrstmpl[17] * 8;
+
+
+
+
+
68 for (j = 0; j < ndpts; j++)
+
+
+
+
+
+
+
75 gref = (
g2int *)calloc(ngroups,
sizeof (
g2int ));
+
76 gwidth = (
g2int *)calloc(ngroups,
sizeof (
g2int ));
+
+
+
+
+
+
82 rdieee (idrstmpl+7,&rmiss1,1);
+
+
+
+
+
+
+
+
90 rdieee (idrstmpl+7,&rmiss1,1);
+
91 rdieee (idrstmpl+8,&rmiss2,1);
+
+
+
+
+
+
+
+
+
+
+
+
+
+
105 gbit (cpack, &ival1, iofst, nbitsd);
+
106 iofst = iofst + nbitsd;
+
107 if (idrstmpl[16] == 2)
+
+
+
110 gbit (cpack, &ival2, iofst, nbitsd);
+
111 iofst = iofst + nbitsd;
+
+
113 gbit (cpack, &isign, iofst, 1);
+
+
115 gbit (cpack, &minsd, iofst, nbitsd - 1);
+
116 iofst = iofst + nbitsd - 1;
+
+
+
+
+
+
+
+
+
+
+
+
+
+
130 gbits (cpack, gref, iofst, nbitsgref, 0, ngroups);
+
131 itemp = nbitsgref * ngroups;
+
132 iofst = iofst + itemp;
+
+
134 iofst = iofst + (8 - (itemp % 8));
+
+
+
+
138 for (j = 0; j < ngroups; j++)
+
+
+
+
+
143 if (nbitsgwidth != 0) {
+
144 gbits (cpack, gwidth, iofst, nbitsgwidth, 0, ngroups);
+
145 itemp = nbitsgwidth * ngroups;
+
146 iofst = iofst + itemp;
+
+
148 iofst = iofst + (8 - (itemp % 8));
+
+
+
151 for (j = 0; j < ngroups; j++)
+
+
+
+
155 for (j = 0; j < ngroups; j++)
+
156 gwidth[j] = gwidth[j] + idrstmpl[10];
+
+
+
159 glen = calloc(ngroups,
sizeof (
g2int ));
+
+
+
162 gbits (cpack, glen, iofst, nbitsglen, 0, ngroups);
+
163 itemp = nbitsglen * ngroups;
+
164 iofst = iofst + itemp;
+
+
166 iofst = iofst + (8 - (itemp % 8));
+
+
+
+
170 for (j = 0; j < ngroups; j++)
+
+
+
173 for (j = 0;j<ngroups;j++)
+
174 glen[j] = (glen[j]*idrstmpl[13])+idrstmpl[12];
+
175 glen[ngroups-1] = idrstmpl[14];
+
+
+
+
+
+
181 for (j = 0; j < ngroups; j++)
+
+
183 totBit += (gwidth[j] * glen[j]);
+
+
+
+
+
188 if (totBit / 8. > lensec)
+
+
+
+
192 if (idrstmpl[6] == 0)
+
+
+
195 for (j = 0; j < ngroups; j++)
+
+
+
+
199 gbits (cpack, ifld + n, iofst, gwidth[j], 0, glen[j]);
+
200 for (k = 0; k < glen[j]; k++)
+
+
202 ifld[n] = ifld[n] + gref[j];
+
+
+
+
+
+
208 for (l = n; l < n + glen[j]; l++)
+
+
+
+
212 iofst = iofst + (gwidth[j] * glen[j]);
+
+
+
215 else if (idrstmpl[6] == 1 || idrstmpl[6] == 2)
+
+
+
218 ifldmiss = malloc(ndpts *
sizeof (
g2int ));
+
219 for (j = 0; j < ndpts; j++)
+
+
+
+
223 for (j = 0; j < ngroups; j++)
+
+
+
+
+
+
229 gbits (cpack, ifld + n, iofst, gwidth[j], 0, glen[j]);
+
230 iofst = iofst + (gwidth[j] * glen[j]);
+
231 for (k = 0; k < glen[j]; k++)
+
+
233 if (ifld[n] == msng1)
+
+
235 else if (idrstmpl[6] == 2 && ifld[n] == msng2)
+
+
+
+
239 ifld[non++] = ifld[n] + gref[j];
+
+
+
+
+
+
+
+
+
248 if (gref[j] == msng1)
+
+
250 for (l = n; l < n + glen[j]; l++)
+
+
+
253 else if (idrstmpl[6] == 2 && gref[j] == msng2)
+
+
255 for (l = n; l < n + glen[j]; l++)
+
+
+
+
+
260 for (l = n; l < n + glen[j]; l++)
+
+
262 for (l = non; l < non + glen[j]; l++)
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
281 if (idrstmpl[16] == 1)
+
+
+
284 if (idrstmpl[6] == 0)
+
+
+
+
288 for (n = 1; n < itemp; n++)
+
+
290 ifld[n] = ifld[n] + minsd;
+
291 ifld[n] = ifld[n] + ifld[n - 1];
+
+
+
294 else if (idrstmpl[16] == 2)
+
+
+
+
298 if (idrstmpl[6] == 0)
+
+
+
+
302 for (n = 2; n < itemp; n++)
+
+
304 ifld[n] = ifld[n] + minsd;
+
305 ifld[n] = ifld[n] + (2 * ifld[n - 1]) - ifld[n - 2];
+
+
+
+
+
+
311 if (idrstmpl[6] == 0)
+
+
313 for (n = 0; n <ndpts; n++)
+
+
315 fld[n] = (((
g2float )ifld[n] * bscale) + ref) * dscale;
+
+
+
318 else if (idrstmpl[6] == 1 || idrstmpl[6] == 2)
+
+
+
+
322 for (n = 0; n < ndpts; n++)
+
+
324 if (ifldmiss[n] == 0)
+
+
326 fld[n] = (((
g2float )ifld[non++] * bscale) + ref) * dscale;
+
+
328 else if (ifldmiss[n] == 1)
+
+
330 else if (ifldmiss[n] == 2)
+
+
+
+
+
+
+
+
+
+
+
+
int comunpack(unsigned char *cpack, g2int lensec, g2int idrsnum, g2int *idrstmpl, g2int ndpts, g2float *fld)
This subroutine unpacks a data field that was packed using a complex packing algorithm as defined in ...
+
void gbit(unsigned char *in, g2int *iout, g2int iskip, g2int nbyte)
Get bits - unpack bits: Extract arbitrary size values from a packed bit string, right justifying each...
+
void gbits(unsigned char *in, g2int *iout, g2int iskip, g2int nbyte, g2int nskip, g2int n)
Get bits - unpack bits: Extract arbitrary size values from a packed bit string, right justifying each...
+
Header file for NCEPLIBS-g2c library.
+
+
int64_t g2int
Long integer type.
+
double int_power(double x, g2int y)
Function similar to C pow() power function.
+
void rdieee(g2int *rieee, g2float *a, g2int num)
This subroutine reads a list of real values in 32-bit IEEE floating point format.
+
+
NCEPLIBS-g2c: dec_jpeg2000.c File Reference
+
+
+
+
+
+
+ NCEPLIBS-g2c
+ 1.6.4
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
Decodes JPEG2000 code stream.
+More...
+
#include <stdio.h>
+
#include <stdlib.h>
+
#include <string.h>
+
#include "grib2.h "
+
#include "jasper/jasper.h"
+
+
Go to the source code of this file.
+
+int dec_jpeg2000 (char *injpc, g2int bufsize, g2int *outfld) This Function decodes a JPEG2000 code stream specified in the JPEG2000 Part-1 standard (i.e., ISO/IEC 15444-1) using JasPer Software written by the University of British Columbia and Image Power Inc, and others. More...
+
+
Decodes JPEG2000 code stream.
+
Author Stephen Gilbert
+
Date 2002-12-02
+
+
Definition in file dec_jpeg2000.c .
+
+
+
◆
+
+
+
+
+
+ int dec_jpeg2000
+ (
+ char *
+ injpc ,
+
+ g2int bufsize ,
+
+ g2int * outfld
+
+ )
+
+
+
+
+
This Function decodes a JPEG2000 code stream specified in the JPEG2000 Part-1 standard (i.e., ISO/IEC 15444-1) using JasPer Software written by the University of British Columbia and Image Power Inc, and others.
+
JasPer is available at http://www.ece.uvic.ca/~mdadams/jasper/ .
+
Parameters
+
+ injpc Input JPEG2000 code stream. bufsize Length (in bytes) of the input JPEG2000 code stream. outfld Output matrix of grayscale image values.
+
+
+
Returns
+0 Successful decode
+-3 Error decode jpeg2000 code stream.
+-5 decoded image had multiple color components. Only grayscale is expected.
+
+
+
Author Stephen Gilbert
+
Date 2002-12-02
+
+
Definition at line 42 of file dec_jpeg2000.c .
+
+
Referenced by jpcunpack() .
+
+
+
+
+
NCEPLIBS-g2c: dec_jpeg2000.c Source File
+
+
+
+
+
+
+ NCEPLIBS-g2c
+ 1.6.4
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
Go to the documentation of this file.
+
+
+
+
+
+
+
+
+
19 #include "jasper/jasper.h"
+
+
+
+
+
+
+
45 jas_image_t *image = NULL;
+
46 jas_stream_t *jpcstream;
+
47 jas_image_cmpt_t *pcmpt;
+
+
+
+
+
+
53 jpcstream = jas_stream_memopen(injpc, bufsize);
+
+
+
56 if (!(image = jpc_decode(jpcstream, opts)))
+
+
58 printf(
" jpc_decode return\n" );
+
+
+
+
62 pcmpt = image->cmpts_[0];
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
94 if (image->numcmpts_ != 1)
+
+
96 printf(
"dec_jpeg2000: Found color image. Grayscale expected.\n" );
+
+
+
+
+
+
102 data = jas_matrix_create(jas_image_height(image), jas_image_width(image));
+
103 jas_image_readcmpt(image, 0, 0, 0, jas_image_width(image),
+
104 jas_image_height(image), data);
+
+
+
+
108 for (i = 0; i < pcmpt->height_; i++)
+
109 for (j = 0; j < pcmpt->width_; j++)
+
110 outfld[k++] = data->rows_[i][j];
+
+
+
113 jas_matrix_destroy(data);
+
114 jas_stream_close(jpcstream);
+
115 jas_image_destroy(image);
+
+
+
+
+
int dec_jpeg2000(char *injpc, g2int bufsize, g2int *outfld)
This Function decodes a JPEG2000 code stream specified in the JPEG2000 Part-1 standard (i....
+
Header file for NCEPLIBS-g2c library.
+
int64_t g2int
Long integer type.
+
+
NCEPLIBS-g2c: dec_png.c File Reference
+
+
+
+
+
+
+ NCEPLIBS-g2c
+ 1.6.4
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
PNG functions.
+More...
+
#include <stdio.h>
+
#include <stdlib.h>
+
#include <string.h>
+
#include <png.h>
+
#include "grib2.h "
+
+
Go to the source code of this file.
+
+int dec_png (unsigned char *pngbuf, g2int *width, g2int *height, char *cout) Decode PNG. More... void user_read_data (png_structp png_ptr, png_bytep data, png_uint_32 length) Custom read function used so that libpng will read a PNG stream from memory instead of a file on disk. More...
+
+
PNG functions.
+
Author Stephen Gilbert
+
+
Definition in file dec_png.c .
+
+
+
◆
+
+
+
+
+
+ typedef struct png_stream png_stream
+
+
+
+
+
Typedef for PNG stream.
+
+
Definition at line 1 of file dec_png.c .
+
+
+
+
+
+
◆
+
+
+
+
+
+ int dec_png
+ (
+ unsigned char *
+ pngbuf ,
+
+ g2int * width ,
+
+ g2int * height ,
+
+ char *
+ cout
+
+ )
+
+
+
+
+
Decode PNG.
+
Parameters
+
+ pngbuf Pointer to PNG buffer. width Pointer to width. height Pointer to height. cout Output buffer.
+
+
+
Returns 0 for success, error code otherwise.
+
Author Stephen Gilbert
+
+
Definition at line 71 of file dec_png.c .
+
+
References user_read_data() .
+
+
Referenced by pngunpack() .
+
+
+
+
+
◆
+
+
+
+
+
+ void user_read_data
+ (
+ png_structp
+ png_ptr ,
+
+ png_bytep
+ data ,
+
+ png_uint_32
+ length
+
+ )
+
+
+
+
+
Custom read function used so that libpng will read a PNG stream from memory instead of a file on disk.
+
Parameters
+
+ png_ptr Pointer to PNG. data Pointer to data. length Length.
+
+
+
Author Stephen Gilbert
+
+
Definition at line 44 of file dec_png.c .
+
+
Referenced by dec_png() .
+
+
+
+
+
NCEPLIBS-g2c: dec_png.c Source File
+
+
+
+
+
+
+ NCEPLIBS-g2c
+ 1.6.4
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
Go to the documentation of this file.
+
+
+
+
+
+
+
+
+
+
+
+
+
26 unsigned char *stream_ptr;
+
+
+
+
+
+
+
+
+
+
+
+
+
+
51 ptr = (
void *)mem->stream_ptr;
+
52 offset = mem->stream_len;
+
+
54 memcpy(data, ptr + offset, length);
+
55 mem->stream_len += length;
+
+
+
+
+
+
73 int interlace, color, compres, filter, bit_depth;
+
74 g2int j, k, n, bytes, clen;
+
+
76 png_infop info_ptr, end_info;
+
77 png_bytepp row_pointers;
+
+
+
+
+
82 if (png_sig_cmp(pngbuf, 0, 8) != 0)
+
+
+
+
86 if (!(png_ptr = png_create_read_struct(PNG_LIBPNG_VER_STRING, (png_voidp)NULL,
+
+
+
+
90 if (!(info_ptr = png_create_info_struct(png_ptr)))
+
+
92 png_destroy_read_struct(&png_ptr, (png_infopp)NULL, (png_infopp)NULL);
+
+
+
+
96 if (!(end_info = png_create_info_struct(png_ptr)))
+
+
98 png_destroy_read_struct(&png_ptr, (png_infopp)info_ptr, (png_infopp)NULL);
+
+
+
+
+
103 if (setjmp(png_jmpbuf(png_ptr)))
+
+
105 png_destroy_read_struct(&png_ptr, &info_ptr, &end_info);
+
+
+
+
+
110 read_io_ptr.stream_ptr = (png_voidp)pngbuf;
+
111 read_io_ptr.stream_len = 0;
+
+
+
114 png_set_read_fn(png_ptr, (png_voidp)&read_io_ptr, (png_rw_ptr)
user_read_data );
+
+
+
117 png_read_png(png_ptr, info_ptr, PNG_TRANSFORM_IDENTITY, NULL);
+
+
+
120 row_pointers = png_get_rows(png_ptr, info_ptr);
+
+
+
+
+
125 (void)png_get_IHDR(png_ptr, info_ptr, &w32, &h32,
+
126 &bit_depth, &color, &interlace, &compres, &filter);
+
+
+
+
+
+
+
+
+
+
+
137 if (color == PNG_COLOR_TYPE_RGB)
+
+
139 else if (color == PNG_COLOR_TYPE_RGB_ALPHA)
+
+
+
+
+
144 bytes = bit_depth / 8;
+
145 clen = (*width) * bytes;
+
146 for (j = 0; j < *height; j++)
+
+
148 for (k = 0; k < clen; k++)
+
+
150 cout[n] = *(row_pointers[j] + k);
+
+
+
+
+
+
156 png_destroy_read_struct(&png_ptr, &info_ptr, &end_info);
+
+
+
+
+
int dec_png(unsigned char *pngbuf, g2int *width, g2int *height, char *cout)
Decode PNG.
+
struct png_stream png_stream
Typedef for PNG stream.
+
void user_read_data(png_structp, png_bytep, png_uint_32)
Custom read function used so that libpng will read a PNG stream from memory instead of a file on disk...
+
Header file for NCEPLIBS-g2c library.
+
int64_t g2int
Long integer type.
+
+
NCEPLIBS-g2c: decenc_openjpeg.c File Reference
+
+
+
+
+
+
+ NCEPLIBS-g2c
+ 1.6.4
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
JPEG functions, originally from ECMWF, modified for use in NCEPLIBS-g2c.
+More...
+
+
Go to the source code of this file.
+
+
JPEG functions, originally from ECMWF, modified for use in NCEPLIBS-g2c.
+
Copyright 2005-2019 ECMWF.
+
This software is licensed under the terms of the Apache Licence Version 2.0 which can be obtained at http://www.apache.org/licenses/LICENSE-2.0 .
+
In applying this licence, ECMWF does not waive the privileges and immunities granted to it by virtue of its status as an intergovernmental organisation nor does it submit to any jurisdiction.
+
Author ECMWF programmer
+
+
Definition in file decenc_openjpeg.c .
+
+
NCEPLIBS-g2c: decenc_openjpeg.c Source File
+
+
+
+
+
+
+ NCEPLIBS-g2c
+ 1.6.4
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
Go to the documentation of this file.
+
19 #if !defined USE_JPEG2000 && defined USE_OPENJPEG
+
+
+
+
+
+
+
+
+
+
37 static void openjpeg_warning(
const char *msg,
void *client_data)
+
+
+
40 fprintf(stderr,
"openjpeg: %s" ,msg);
+
+
+
51 static void openjpeg_error(
const char *msg,
void *client_data)
+
+
+
54 fprintf(stderr,
"openjpeg: %s" ,msg);
+
+
+
65 static void openjpeg_info(
const char *msg,
void *client_data)
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
95 static OPJ_SIZE_T opj_memory_stream_read(
void *buffer, OPJ_SIZE_T nb_bytes,
void * p_user_data)
+
+
97 opj_memory_stream* mstream = (opj_memory_stream*) p_user_data;
+
98 OPJ_SIZE_T nb_bytes_read = nb_bytes;
+
+
+
101 if (mstream->offset >= mstream->dataSize)
+
102 return (OPJ_SIZE_T) -1;
+
+
+
105 if (nb_bytes > (mstream->dataSize - mstream->offset))
+
106 nb_bytes_read = mstream->dataSize - mstream->offset;
+
+
108 memcpy(buffer, &(mstream->pData[mstream->offset]), nb_bytes_read);
+
109 mstream->offset += nb_bytes_read;
+
110 return nb_bytes_read;
+
+
+
124 static OPJ_SIZE_T opj_memory_stream_write(
void *buffer, OPJ_SIZE_T nb_bytes,
void *user_data)
+
+
126 opj_memory_stream* mstream = (opj_memory_stream*) user_data;
+
127 OPJ_SIZE_T nb_bytes_write = nb_bytes;
+
+
+
130 if (mstream->offset >= mstream->dataSize)
+
131 return (OPJ_SIZE_T)-1;
+
+
+
134 if (nb_bytes > (mstream->dataSize - mstream->offset))
+
135 nb_bytes_write = mstream->dataSize - mstream->offset;
+
+
+
138 memcpy(&(mstream->pData[mstream->offset]), buffer, nb_bytes_write);
+
139 mstream->offset += nb_bytes_write;
+
140 return nb_bytes_write;
+
+
+
153 static OPJ_OFF_T opj_memory_stream_skip(OPJ_OFF_T nb_bytes,
void *user_data)
+
+
155 opj_memory_stream* mstream = (opj_memory_stream*) user_data;
+
156 OPJ_SIZE_T l_nb_bytes;
+
+
+
+
160 l_nb_bytes = (OPJ_SIZE_T) nb_bytes;
+
+
162 if (l_nb_bytes > mstream->dataSize - mstream->offset)
+
163 l_nb_bytes = mstream->dataSize - mstream->offset;
+
164 mstream->offset += l_nb_bytes;
+
165 return (OPJ_OFF_T)l_nb_bytes;
+
+
+
178 static OPJ_BOOL opj_memory_stream_seek(OPJ_OFF_T nb_bytes,
void * user_data)
+
+
180 opj_memory_stream* mstream = (opj_memory_stream*) user_data;
+
+
+
+
184 if (nb_bytes >(OPJ_OFF_T) mstream->dataSize)
+
+
186 mstream->offset = (OPJ_SIZE_T) nb_bytes;
+
+
+
+
197 static void opj_memory_stream_do_nothing(
void * p_user_data)
+
+
199 OPJ_ARG_NOT_USED(p_user_data);
+
+
+
212 static opj_stream_t* opj_stream_create_default_memory_stream(opj_memory_stream* memoryStream, OPJ_BOOL is_read_stream)
+
+
214 opj_stream_t* stream;
+
+
216 if (!(stream = opj_stream_default_create(is_read_stream)))
+
+
+
+
220 opj_stream_set_read_function(stream, opj_memory_stream_read);
+
+
222 opj_stream_set_write_function(stream, opj_memory_stream_write);
+
+
224 opj_stream_set_seek_function(stream, opj_memory_stream_seek);
+
225 opj_stream_set_skip_function(stream, opj_memory_stream_skip);
+
226 opj_stream_set_user_data(stream, memoryStream, opj_memory_stream_do_nothing);
+
227 opj_stream_set_user_data_length(stream, memoryStream->dataSize);
+
+
+
+
+
+
+
+
+
257 opj_stream_t *stream = NULL;
+
258 opj_image_t *image = NULL;
+
259 opj_codec_t *codec = NULL;
+
+
+
262 opj_dparameters_t parameters = {0,};
+
263 opj_set_default_decoder_parameters(¶meters);
+
264 parameters.decod_format = 1;
+
+
+
267 #define DUMP_JPEG_STREAM
+
268 #ifdef DUMP_JPEG_STREAM
+
269 FILE *fp=fopen(
"dump_openjpeg.j2k" ,
"wb" );
+
270 fwrite(injpc, 1, (
size_t )bufsize, fp);
+
+
+
+
+
275 codec = opj_create_decompress(OPJ_CODEC_J2K);
+
+
+
278 opj_set_info_handler(codec, openjpeg_info, NULL);
+
279 opj_set_warning_handler(codec, openjpeg_warning, NULL);
+
280 opj_set_error_handler(codec, openjpeg_error,NULL);
+
+
+
283 opj_memory_stream mstream;
+
284 mstream.pData = (OPJ_UINT8 *)injpc;
+
285 mstream.dataSize = (OPJ_SIZE_T)bufsize;
+
+
+
288 stream = opj_stream_create_default_memory_stream( &mstream, OPJ_STREAM_READ);
+
+
+
291 if (!opj_setup_decoder(codec, ¶meters)) {
+
292 fprintf(stderr,
"openjpeg: failed to setup decoder" );
+
+
+
+
296 if (!opj_read_header(stream, codec, &image)) {
+
297 fprintf(stderr,
"openjpeg: failed to read the header" );
+
+
+
+
301 if (!opj_decode(codec, stream, image)) {
+
302 fprintf(stderr,
"openjpeg: failed to decode" );
+
+
+
+
+
307 if ( (image->numcomps != 1) || (image->x1 * image->y1)==0 ) {
+
+
+
+
+
312 assert(image->comps[0].sgnd == 0);
+
313 assert(image->comps[0].prec <
sizeof (mask)*8-1);
+
+
315 mask = (1 << image->comps[0].prec) - 1;
+
+
317 for (
unsigned int i = 0; i < image->comps[0].w * image->comps[0].h ; i++)
+
318 outfld[i] = (
g2int ) (image->comps[0].data[i] & mask);
+
+
320 if (!opj_end_decompress(codec, stream)) {
+
321 fprintf(stderr,
"openjpeg: failed in opj_end_decompress" );
+
+
+
+
+
+
327 if (codec) opj_destroy_codec(codec);
+
328 if (stream) opj_stream_destroy(stream);
+
329 if (image) opj_image_destroy(image);
+
+
+
+
+
+
+
+
+
+
+
373 const int numcomps = 1;
+
+
375 opj_codec_t *codec = NULL;
+
376 opj_image_t *image = NULL;
+
377 opj_stream_t *stream = NULL;
+
+
+
380 opj_cparameters_t parameters = {0,};
+
381 opj_set_default_encoder_parameters(¶meters);
+
+
383 parameters.tcp_numlayers = 1;
+
384 parameters.cp_disto_alloc = 1;
+
+
386 assert(ratio != 255);
+
387 parameters.tcp_rates[0] = 1.0f/(float)ratio;
+
+
+
+
+
+
393 parameters.numresolution = 6;
+
394 while ( (width < (1 << (parameters.numresolution - 1)) ) ||
+
395 (height < (1 << (parameters.numresolution - 1)) ))
+
+
397 parameters.numresolution--;
+
+
+
+
401 opj_image_cmptparm_t cmptparm = {0,};
+
402 cmptparm.prec = (OPJ_UINT32)nbits;
+
403 cmptparm.bpp = (OPJ_UINT32)nbits;
+
+
+
+
407 cmptparm.w = (OPJ_UINT32)width;
+
408 cmptparm.h = (OPJ_UINT32)height;
+
+
+
411 image = opj_image_create(numcomps, &cmptparm, OPJ_CLRSPC_GRAY);
+
+
+
+
+
+
+
418 image->x1 = (OPJ_UINT32)width;
+
419 image->y1 = (OPJ_UINT32)height;
+
+
421 assert(cmptparm.prec <=
sizeof (image->comps[0].data[0])*8 - 1);
+
+
+
424 for (
int i=0; i< width*height; i++){
+
425 image->comps[0].data[i] = cin[i];
+
+
+
+
429 codec = opj_create_compress(OPJ_CODEC_J2K);
+
+
431 opj_set_info_handler(codec, openjpeg_info, NULL);
+
432 opj_set_warning_handler(codec, openjpeg_warning, NULL);
+
433 opj_set_error_handler(codec, openjpeg_error,NULL);
+
+
+
436 if (!opj_setup_encoder(codec, ¶meters, image)) {
+
437 fprintf(stderr,
"openjpeg: failed to setup encoder" );
+
+
+
+
+
+
443 opj_memory_stream mstream;
+
444 mstream.pData = (OPJ_UINT8*) outjpc;
+
+
446 mstream.dataSize = (OPJ_SIZE_T)jpclen;
+
447 stream = opj_stream_create_default_memory_stream(&mstream, OPJ_STREAM_WRITE);
+
448 if (stream == NULL) {
+
449 fprintf(stderr,
"openjpeg: failed create default memory stream" );
+
+
+
+
+
454 if (!opj_start_compress(codec, image, stream)) {
+
455 fprintf(stderr,
"openjpeg: failed to setup encoder" );
+
+
+
+
+
+
461 if (!opj_encode(codec, stream)) {
+
462 fprintf(stderr,
"openjpeg: opj_encode failed" );
+
+
+
+
+
467 if (!opj_end_compress(codec, stream)) {
+
468 fprintf(stderr,
"openjpeg: opj_end_compress failed" );
+
+
+
+
472 iret = (int)mstream.offset;
+
+
+
475 if (codec) opj_destroy_codec(codec);
+
476 if (stream) opj_stream_destroy(stream);
+
477 if (image) opj_image_destroy(image);
+
+
+
+
+
+
int dec_jpeg2000(char *injpc, g2int bufsize, g2int *outfld)
This Function decodes a JPEG2000 code stream specified in the JPEG2000 Part-1 standard (i....
+
int enc_jpeg2000(unsigned char *cin, g2int width, g2int height, g2int nbits, g2int ltype, g2int ratio, g2int retry, char *outjpc, g2int jpclen)
This Function encodes a grayscale image into a JPEG2000 code stream specified in the JPEG2000 Part-1 ...
+
Header file for NCEPLIBS-g2c library.
+
int64_t g2int
Long integer type.
+
+
NCEPLIBS-g2c: src Directory Reference
+
+
+
+
+
+
+ NCEPLIBS-g2c
+ 1.6.4
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+file grib2.h [code] Header file for NCEPLIBS-g2c library.
+
+
NCEPLIBS-g2c: docs Directory Reference
+
+
+
+
+
+
+ NCEPLIBS-g2c
+ 1.6.4
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
NCEPLIBS-g2c: src Directory Reference
+
+
+
+
+
+
+ NCEPLIBS-g2c
+ 1.6.4
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+file cmplxpack.c [code] Pack up a data field using a complex packing algorithm as defined in the GRIB2 documention. file compack.c [code] Pack up a data field using a complex packing algorithm as defined in the GRIB2 documention. file comunpack.c [code] Unpack a data field that was packed using a complex packing algorithm as defined in the GRIB2 documention. file dec_jpeg2000.c [code] Decodes JPEG2000 code stream. file dec_png.c [code] PNG functions. file decenc_openjpeg.c [code] JPEG functions, originally from ECMWF, modified for use in NCEPLIBS-g2c. file drstemplates.c [code] Functions for GRIB2 Data Representation Templates (DRT) for the Data Representation Setcion. file drstemplates.h [code] This C struct contains info on all the available GRIB2 Data Representation Templates used in Section 5 (DRS). file enc_jpeg2000.c [code] Encodes JPEG2000 code stream. file enc_png.c [code] Functions for dealing with PNG. file g2_addfield.c [code] Pack up Sections 4 through 7 for a given field and adds them to a GRIB2 message. file g2_addgrid.c [code] Pack up a Grid Definition Section (Section 3) and adds it to a GRIB2 message. file g2_addlocal.c [code] Add a Local Use Section (Section 2) to a GRIB2 message. file g2_create.c [code] Initializes a new GRIB2 message and packs GRIB2 sections 0 (Indicator Section) and 1 (Identification Section). file g2_free.c [code] Free up memory that was allocated for struct gribfield. file g2_getfld.c [code] Return all the metadata, template values, Bit-map (if applicable), and the unpacked data for a given data field. file g2_gribend.c [code] Finalize a GRIB2 message after all grids and fields have been added. file g2_info.c [code] Search through a GRIB2 message and returns the number of gridded fields found in the message and the number (and maximum size) of Local Use Sections. file g2_miss.c [code] Check the Data Representation Template to see if missing value management is used, and returns the missing value(s) in the data field. file g2_unpack1.c [code] Unpack Section 1 (Identification Section) as defined in GRIB Edition 2. file g2_unpack2.c [code] Unpack Section 2 (Local Use Section) as defined in GRIB Edition 2. file g2_unpack3.c [code] Unpack Section 3 (Grid Definition Section) as defined in GRIB Edition 2. file g2_unpack4.c [code] Unpack Section 4 (Product Definition Section) as defined in GRIB Edition 2. file g2_unpack5.c [code] Unpack Section 5 (Data Representation Section) as defined in GRIB Edition 2. file g2_unpack6.c [code] Unpack Section 6 (Bit-Map Section) as defined in GRIB Edition 2. file g2_unpack7.c [code] Unpack Section 7 (Data Section) as defined in GRIB Edition 2. file gbits.c [code] Functions to pack and unpack bits to/from a packed bit string. file getdim.c [code] Return the dimensions and scanning mode of a grid definition packed in GRIB2 Grid Definition Section 3 format. file getpoly.c [code] Return the J, K, and M pentagonal resolution parameters specified in a GRIB Grid Definition Section used spherical harmonic coefficients using GDT 5.50 through 5.53. file gridtemplates.c [code] Returns grid template information for a specified Grid Definition Template for Section 3 - the Grid Definition Section (GDS). file gridtemplates.h [code] This header file contains info on all the available GRIB2 Grid Definition Templates used in Section 3 (GDS). file int_power.c [code] Provide function similar to C pow() power function. file jpcpack.c [code] Pack up a data field into a JPEG2000 code stream. file jpcunpack.c [code] Unpack a data field that was packed into a JPEG2000 code stream. file misspack.c [code] Pack up a data field using a complex packing algorithm as defined in the GRIB2 documention. file mkieee.c [code] file pack_gp.c [code] file pdstemplates.c [code] Functions for GRIB2 Product Definition Templates used in Section 4 - the Product Definition Section (PDS). file pdstemplates.h [code] This include file contains info on all the available GRIB2 Product Definition Templates used in [Section 4 - the Product Definition Section (PDS)](https://www.nco.ncep.noaa.gov/pmb/docs/grib2/grib2_doc/grib2_sect4.shtml ). file pngpack.c [code] Function to pack data with PNG compression. file pngunpack.c [code] Contains a function to unpack data packed with PNG compression. file rdieee.c [code] Read a list of real values in 32-bit IEEE floating point format. file reduce.c [code] Determines whether the number of groups should be increased in order to reduce the size of the large groups, and to make that adjustment. file seekgb.c [code] Searches a file for the next GRIB message. file simpack.c [code] Pack up a data field using the simple packing algorithm. file simunpack.c [code] file specpack.c [code] Pack a spectral data field using the complex packing algorithm for spherical harmonic data. file specunpack.c [code] Unpack a spectral data field that was packed using the complex packing algorithm for spherical harmonic data.
+
+
+
+
+
+
+
+
+
+
+
+
+
diff --git a/ver-1.7.0/ver-1.6.4/drstemplates_8c.html b/ver-1.7.0/ver-1.6.4/drstemplates_8c.html
new file mode 100644
index 00000000..2fa4e491
--- /dev/null
+++ b/ver-1.7.0/ver-1.6.4/drstemplates_8c.html
@@ -0,0 +1,257 @@
+
+
+
+NCEPLIBS-g2c: drstemplates.c File Reference
+
+
+
+
+
+
+ NCEPLIBS-g2c
+ 1.6.4
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
Functions for GRIB2 Data Representation Templates (DRT) for the Data Representation Setcion.
+More...
+
#include <stdlib.h>
+
#include "grib2.h "
+
#include "drstemplates.h "
+
+
Go to the source code of this file.
+
+
+
Functions for GRIB2 Data Representation Templates (DRT) for the Data Representation Setcion.
+
+
+
+Date Programmer Comments
+
+2001-06-28 Gilbert Initial
+
+2009-01-14 Vuong Changed structure name template to gtemplate
+
+
Author Stephen Gilbert
+
Date 2001-06-28
+
+
Definition in file drstemplates.c .
+
+
+
◆
+
+
+
+
+
This subroutine generates the remaining octet map for a given Data Representation Template, if required.
+
Some Templates can vary depending on data values given in an earlier part of the Template, and it is necessary to know some of the earlier entry values to generate the full octet map of the Template.
+
Parameters
+
+ number The number of the Data Representation Template that is being requested. list The list of values for each entry in the the Data Representation Template.
+
+
+
Returns Pointer to the returned template struct. Returns NULL pointer, if template not found.
+
Author Stephen Gilbert
+
Date 2000-05-11
+
+
Definition at line 110 of file drstemplates.c .
+
+
References getdrsindex() , and getdrstemplate() .
+
+
Referenced by g2_unpack5() .
+
+
+
+
+
◆
+
+
+
+
+
This function returns the index of specified Data Representation Template.
+
Parameters
+
+ number The number of the Data Representation Template that is being requested.
+
+
+
Returns Index of the DRT in array gtemplates, if it exists. -1, otherwise.
+
Author Stephen Gilbert
+
Date 2001-06-28
+
+
Definition at line 32 of file drstemplates.c .
+
+
References MAXDRSTEMP , and templatesdrs .
+
+
Referenced by extdrstemplate() , and getdrstemplate() .
+
+
+
+
+
◆
+
+
+
+
+
This subroutine returns DRS template information for a specified Data Representation Template.
+
The number of entries in the template is returned along with a map of the number of octets occupied by each entry. Also, a flag is returned to indicate whether the template would need to be extended.
+
Parameters
+
+ number The number of the Data Representation Template that is being requested.
+
+
+
Returns Pointer to the returned template struct. Returns NULL if template not found.
+
Author Stephen Gilbert
+
Date 2000-05-11
+
+
Definition at line 64 of file drstemplates.c .
+
+
References getdrsindex() , drstemplate::mapdrslen , drstemplate::needext , drstemplate::template_num , and templatesdrs .
+
+
Referenced by extdrstemplate() , g2_addfield() , and g2_unpack5() .
+
+
+
+
+
NCEPLIBS-g2c: drstemplates.c Source File
+
+
+
+
+
+
+ NCEPLIBS-g2c
+ 1.6.4
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
Go to the documentation of this file.
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
85 printf(
"getdrstemplate: DRS Template 5.%d not defined.\n" , (
int )number);
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
126 new ->extlen = list[10] + list[12];
+
127 new ->ext = malloc(
sizeof (
g2int ) * new->extlen);
+
128 for (i = 0; i <
new ->extlen; i++)
+
+
+
+
+
+
+
gtemplate * extdrstemplate(g2int number, g2int *list)
This subroutine generates the remaining octet map for a given Data Representation Template,...
+
g2int getdrsindex(g2int number)
This function returns the index of specified Data Representation Template.
+
gtemplate * getdrstemplate(g2int number)
This subroutine returns DRS template information for a specified Data Representation Template.
+
This C struct contains info on all the available GRIB2 Data Representation Templates used in Section ...
+
const struct drstemplate templatesdrs[MAXDRSTEMP]
Stuct holding data for GRIB2 Data Representation Section (DRS) template.
+
g2int needext
Whether the Template needs to be extended.
+
g2int mapdrslen
Length of map of the template.
+
#define MAXDRSTEMP
maximum number of templates
+
g2int template_num
The number of entries in the template.
+
Header file for NCEPLIBS-g2c library.
+
int64_t g2int
Long integer type.
+
Struct for GRIB template.
+
+
NCEPLIBS-g2c: drstemplates.h File Reference
+
+
+
+
+
+
+ NCEPLIBS-g2c
+ 1.6.4
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
This C struct contains info on all the available GRIB2 Data Representation Templates used in Section 5 (DRS).
+More...
+
+
Go to the source code of this file.
+
+struct drstemplate Stuct for GRIB2 Data Representation Section (DRS) template. More...
+
+
This C struct contains info on all the available GRIB2 Data Representation Templates used in Section 5 (DRS).
+
The information decribing each template is stored in the drstemplate structure defined below.
+
Each Template has three parts:
+The number of entries in the template (mapdrslen).
+A map of the template (mapdrs), which contains the number of octets in which to pack each of the template values.
+A logical value (needext) that indicates whether the Template needs to be extended. In some cases the number of entries in a template can vary depending upon values specified in the "static" part of the template. (See Template 5.1 as an example.)
+
+
Note Array mapdrs contains the number of octets in which the corresponding template values will be stored. A negative value in mapdrs is used to indicate that the corresponding template entry can contain negative values. This information is used later when packing (or unpacking) the template data values. Negative data values in GRIB are stored with the left most bit set to one, and a negative number of octets value in mapdrs indicates that this possibility should be considered. The number of octets used to store the data value in this case would be the absolute value of the negative value in mapdrs.
+
Author Stephen Gilbeert
+
Date 2002-10-26
+
+
Definition in file drstemplates.h .
+
+
+
◆
+
+
+
+
+
+ struct drstemplate
+
+
+
+
Stuct for GRIB2 Data Representation Section (DRS) template.
+
+
Definition at line 42 of file drstemplates.h .
+
+Data Fields
+g2int
+
+mapdrs[MAXDRSMAPLEN ]
+
+A map of the template.
+g2int
+
+mapdrslen
+
+Length of map of the template.
+g2int
+
+needext
+
+Whether the Template needs to be extended.
+g2int
+
+template_num
+
+The number of entries in the template.
+
+
+
+
+
+
◆
+
+
+
+
+
+ #define MAXDRSMAPLEN 200
+
+
+
+
+
maximum template map length
+
+
Definition at line 37 of file drstemplates.h .
+
+
+
+
+
◆
+
+
+
+
+
+ #define MAXDRSTEMP 9
+
+
+
+
+
maximum number of templates
+
+
Definition at line 36 of file drstemplates.h .
+
+
+
+
+
+
◆
+
+
+
+
NCEPLIBS-g2c: drstemplates.h Source File
+
+
+
+
+
+
+ NCEPLIBS-g2c
+ 1.6.4
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
Go to the documentation of this file.
+
31 #ifndef _drstemplates_H
+
32 #define _drstemplates_H
+
+
+
+
+
37 #define MAXDRSMAPLEN 200
+
+
+
+
+
+
+
+
+
+
+
58 { 0, 5, 0, {4,-2,-2,1,1} },
+
+
62 { 2, 16, 0, {4,-2,-2,1,1,1,1,4,4,4,1,1,4,1,4,1} },
+
+
66 { 3, 18, 0, {4,-2,-2,1,1,1,1,4,4,4,1,1,4,1,4,1,1,1} },
+
+
70 { 50, 5, 0, {4,-2,-2,1,4} },
+
+
74 { 51, 10, 0, {4,-2,-2,1,-4,2,2,2,4,1} },
+
+
+
+
+
81 { 40, 7, 0, {4,-2,-2,1,1,1,1} },
+
+
85 { 41, 5, 0, {4,-2,-2,1,1} },
+
+
88 { 40000, 7, 0, {4,-2,-2,1,1,1,1} },
+
+
91 { 40010, 5, 0, {4,-2,-2,1,1} }
+
+
+
+
const struct drstemplate templatesdrs[MAXDRSTEMP]
Stuct holding data for GRIB2 Data Representation Section (DRS) template.
+
g2int needext
Whether the Template needs to be extended.
+
g2int mapdrslen
Length of map of the template.
+
#define MAXDRSTEMP
maximum number of templates
+
g2int template_num
The number of entries in the template.
+
g2int mapdrs[MAXDRSMAPLEN]
A map of the template.
+
#define MAXDRSMAPLEN
maximum template map length
+
Stuct for GRIB2 Data Representation Section (DRS) template.
+
Header file for NCEPLIBS-g2c library.
+
int64_t g2int
Long integer type.
+
+
+
+
+NCEPLIBS-g2c: enc_jpeg2000.c File Reference
+
+
+
+
+
+
+ NCEPLIBS-g2c
+ 1.6.4
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
Encodes JPEG2000 code stream.
+More...
+
#include <stdio.h>
+
#include <stdlib.h>
+
#include "grib2.h "
+
#include "jasper/jasper.h"
+
+
Go to the source code of this file.
+
+int enc_jpeg2000 (unsigned char *cin, g2int width, g2int height, g2int nbits, g2int ltype, g2int ratio, g2int retry, char *outjpc, g2int jpclen) This Function encodes a grayscale image into a JPEG2000 code stream specified in the JPEG2000 Part-1 standard (i.e., ISO/IEC 15444-1) using JasPer Software version 1.500.4 (or 1.700.2) written by the University of British Columbia, Image Power Inc, and others. More...
+
+
Encodes JPEG2000 code stream.
+
Author Stephen Gilbert
+
Date 2002-12-02
+
+
Definition in file enc_jpeg2000.c .
+
+
+
◆
+
+
+
+
+
+ #define JAS_1_700_2
+
+
+
+
+
+
◆
+
+
+
+
+
+ #define MAXOPTSSIZE 1024
+
+
+
+
+
Maximum size of options.
+
+
Definition at line 15 of file enc_jpeg2000.c .
+
+
+
+
+
+
◆
+
+
+
+
+
+ int enc_jpeg2000
+ (
+ unsigned char *
+ cin ,
+
+ g2int width ,
+
+ g2int height ,
+
+ g2int nbits ,
+
+ g2int ltype ,
+
+ g2int ratio ,
+
+ g2int retry ,
+
+ char *
+ outjpc ,
+
+ g2int jpclen
+
+ )
+
+
+
+
+
This Function encodes a grayscale image into a JPEG2000 code stream specified in the JPEG2000 Part-1 standard (i.e., ISO/IEC 15444-1) using JasPer Software version 1.500.4 (or 1.700.2) written by the University of British Columbia, Image Power Inc, and others.
+
JasPer is available at http://www.ece.uvic.ca/~mdadams/jasper/ .
+
+
+
+Date Programmer Comments
+
+2002-12-02 Gilbert Initial
+
+2004-12-16 Gilbert Added retry argument allowing increased guard bits.
+
+
Parameters
+
+ cin Packed matrix of Grayscale image values to encode. width width of image. height height of image. nbits depth (in bits) of image. i.e number of bits used to hold each data value. ltype indicator of lossless or lossy compression.
+1, for lossy compression
+!= 1, for lossless compression
+
+ ratio target compression ratio. (ratio:1) Used only when ltype == 1. retry If 1 try increasing number of guard bits otherwise, no additional options. outjpc Output encoded JPEG2000 code stream. jpclen Number of bytes allocated for the output JPEG2000 code stream in outjpc.
+
+
+
Returns
+> 0 = Length in bytes of encoded JPEG2000 code stream
+-3 = Error decode jpeg2000 code stream.
+-5 = decoded image had multiple color components. Only grayscale is expected.
+
+
+
Note Requires JasPer Software version 1.500.4 or 1.700.2 or later.
+
Author Stephen Gilbert
+
Date 2002-12-02
+
+
Definition at line 57 of file enc_jpeg2000.c .
+
+
References MAXOPTSSIZE .
+
+
Referenced by jpcpack() .
+
+
+
+
+
NCEPLIBS-g2c: enc_jpeg2000.c Source File
+
+
+
+
+
+
+ NCEPLIBS-g2c
+ 1.6.4
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
Go to the documentation of this file.
+
+
+
+
+
+
+
+
13 #include "jasper/jasper.h"
+
+
15 #define MAXOPTSSIZE 1024
+
+
+
+
+
+
+
+
63 jas_stream_t *jpcstream, *istream;
+
64 jas_image_cmpt_t cmpt, *pcmpt;
+
+
+
+
+
+
+
71 snprintf(opts,
MAXOPTSSIZE ,
"mode=real\nrate=%f" ,1.0/(
float )ratio);
+
+
+
74 strcat(opts,
"\nnumgbits=4" );
+
+
+
+
+
+
+
81 image.brx_ = (uint_fast32_t)width;
+
82 image.bry_ = (uint_fast32_t)height;
+
+
+
85 image.brx_ = (jas_image_coord_t)width;
+
86 image.bry_ = (jas_image_coord_t)height;
+
+
+
+
+
91 image.colormodel_ = JAS_IMAGE_CM_GRAY;
+
+
+
94 image.clrspc_ = JAS_CLRSPC_SGRAY;
+
+
+
+
+
+
+
+
+
103 cmpt.width_ = (uint_fast32_t)width;
+
104 cmpt.height_ = (uint_fast32_t)height;
+
+
+
107 cmpt.width_ = (jas_image_coord_t)width;
+
108 cmpt.height_ = (jas_image_coord_t)height;
+
109 cmpt.type_ = JAS_IMAGE_CT_COLOR(JAS_CLRSPC_CHANIND_GRAY_Y);
+
+
+
+
113 cmpt.cps_ = (nbits + 7) / 8;
+
+
+
116 image.cmpts_ = &pcmpt;
+
+
+
119 istream = jas_stream_memopen((
char *)cin, height * width * cmpt.cps_);
+
120 cmpt.stream_ = istream;
+
+
+
+
124 jpcstream = jas_stream_memopen(outjpc, (
int )jpclen);
+
+
+
127 if ((ier = jpc_encode(&image, jpcstream, opts)))
+
+
129 printf(
" jpc_encode return = %d \n" ,ier);
+
+
+
+
+
134 rwcnt = jpcstream->rwcnt_;
+
135 ier = jas_stream_close(istream);
+
136 ier = jas_stream_close(jpcstream);
+
+
+
+
+
+
+
#define MAXOPTSSIZE
Maximum size of options.
+
int enc_jpeg2000(unsigned char *cin, g2int width, g2int height, g2int nbits, g2int ltype, g2int ratio, g2int retry, char *outjpc, g2int jpclen)
This Function encodes a grayscale image into a JPEG2000 code stream specified in the JPEG2000 Part-1 ...
+
Header file for NCEPLIBS-g2c library.
+
int64_t g2int
Long integer type.
+
+
NCEPLIBS-g2c: enc_png.c File Reference
+
+
+
+
+
+
+ NCEPLIBS-g2c
+ 1.6.4
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
Functions for dealing with PNG.
+More...
+
#include <stdio.h>
+
#include <stdlib.h>
+
#include <string.h>
+
#include <png.h>
+
#include "grib2.h "
+
+
Go to the source code of this file.
+
+int enc_png (char *data, g2int width, g2int height, g2int nbits, char *pngbuf) Encode PNG. More... void user_flush_data (png_structp png_ptr) Dummy Custom flush function. More... void user_write_data (png_structp png_ptr, png_bytep data, png_uint_32 length) Custom write function used to that libpng will write to memory location instead of a file on disk. More...
+
+
Functions for dealing with PNG.
+
Author Stephen Gilbert
+
+
Definition in file enc_png.c .
+
+
+
◆
+
+
+
+
+
+ typedef struct png_stream png_stream
+
+
+
+
+
Typedef for PNG stream.
+
+
Definition at line 1 of file enc_png.c .
+
+
+
+
+
+
◆
+
+
+
+
+
+ int enc_png
+ (
+ char *
+ data ,
+
+ g2int width ,
+
+ g2int height ,
+
+ g2int nbits ,
+
+ char *
+ pngbuf
+
+ )
+
+
+
+
+
Encode PNG.
+
Parameters
+
+ data data. width width. height height. nbits number of bits. pngbuf PNG buffer.
+
+
+
Returns PNG length, or negative number for error.
+
Author Stephen Gilbert
+
+
Definition at line 81 of file enc_png.c .
+
+
References user_flush_data() , and user_write_data() .
+
+
Referenced by pngpack() .
+
+
+
+
+
◆
+
+
+
+
+
+ void user_flush_data
+ (
+ png_structp
+ png_ptr )
+
+
+
+
+
Dummy Custom flush function.
+
Parameters
+
+ png_ptr Pointer to PNG struct.
+
+
+
Author Stephen Gilbert
+
+
Definition at line 61 of file enc_png.c .
+
+
Referenced by enc_png() .
+
+
+
+
+
◆
+
+
+
+
+
+ void user_write_data
+ (
+ png_structp
+ png_ptr ,
+
+ png_bytep
+ data ,
+
+ png_uint_32
+ length
+
+ )
+
+
+
+
+
Custom write function used to that libpng will write to memory location instead of a file on disk.
+
Parameters
+
+ png_ptr pointer data data length length
+
+
+
Author Stephen Gilbert
+
+
Definition at line 41 of file enc_png.c .
+
+
Referenced by enc_png() .
+
+
+
+
+
NCEPLIBS-g2c: enc_png.c Source File
+
+
+
+
+
+
+ NCEPLIBS-g2c
+ 1.6.4
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
Go to the documentation of this file.
+
+
+
+
+
+
+
+
+
+
+
+
+
21 unsigned char *stream_ptr;
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
48 ptr = mem->stream_ptr;
+
49 offset = mem->stream_len;
+
50 memcpy(ptr + offset, data, length);
+
51 mem->stream_len += length;
+
+
+
+
+
+
+
+
+
+
+
+
+
84 g2int j, bytes, pnglen, bit_depth;
+
+
+
87 png_bytep **row_pointers;
+
+
+
+
91 if (!(png_ptr = png_create_write_struct(PNG_LIBPNG_VER_STRING, NULL, NULL, NULL)))
+
+
+
94 if (!(info_ptr = png_create_info_struct(png_ptr)))
+
+
96 png_destroy_write_struct(&png_ptr, (png_infopp)NULL);
+
+
+
+
+
101 if (setjmp(png_jmpbuf(png_ptr)))
+
+
103 png_destroy_write_struct(&png_ptr, &info_ptr);
+
+
+
+
+
108 write_io_ptr.stream_ptr = (png_voidp)pngbuf;
+
109 write_io_ptr.stream_len = 0;
+
+
+
112 png_set_write_fn(png_ptr, (png_voidp)&write_io_ptr, (png_rw_ptr)
user_write_data ,
+
+
+
+
+
117 color_type = PNG_COLOR_TYPE_GRAY;
+
+
+
+
121 color_type = PNG_COLOR_TYPE_RGB;
+
+
123 else if (nbits == 32)
+
+
+
126 color_type = PNG_COLOR_TYPE_RGB_ALPHA;
+
+
128 png_set_IHDR(png_ptr, info_ptr, width, height,
+
129 bit_depth, color_type, PNG_INTERLACE_NONE,
+
130 PNG_COMPRESSION_TYPE_DEFAULT, PNG_FILTER_TYPE_DEFAULT);
+
+
+
+
134 row_pointers = malloc(height *
sizeof (png_bytep));
+
135 for (j = 0; j < height; j++)
+
136 row_pointers[j] = (png_bytep *)(data + (j * width * bytes));
+
137 png_set_rows(png_ptr, info_ptr, (png_bytepp)row_pointers);
+
+
+
140 png_write_png(png_ptr, info_ptr, PNG_TRANSFORM_IDENTITY, NULL);
+
+
+
143 png_destroy_write_struct(&png_ptr, &info_ptr);
+
+
145 pnglen = write_io_ptr.stream_len;
+
+
+
+
+
int enc_png(char *data, g2int width, g2int height, g2int nbits, char *pngbuf)
Encode PNG.
+
struct png_stream png_stream
Typedef for PNG stream.
+
void user_flush_data(png_structp)
Dummy Custom flush function.
+
void user_write_data(png_structp, png_bytep, png_uint_32)
Custom write function used to that libpng will write to memory location instead of a file on disk.
+
Header file for NCEPLIBS-g2c library.
+
int64_t g2int
Long integer type.
+
+
NCEPLIBS-g2c: File List
+
+
+
+
+
+
+ NCEPLIBS-g2c
+ 1.6.4
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
Here is a list of all documented files with brief descriptions:
+
+ cmplxpack.c Pack up a data field using a complex packing algorithm as defined in the GRIB2 documention compack.c Pack up a data field using a complex packing algorithm as defined in the GRIB2 documention comunpack.c Unpack a data field that was packed using a complex packing algorithm as defined in the GRIB2 documention dec_jpeg2000.c Decodes JPEG2000 code stream dec_png.c PNG functions decenc_openjpeg.c JPEG functions, originally from ECMWF, modified for use in NCEPLIBS-g2c drstemplates.c Functions for GRIB2 Data Representation Templates (DRT) for the Data Representation Setcion drstemplates.h This C struct contains info on all the available GRIB2 Data Representation Templates used in Section 5 (DRS) enc_jpeg2000.c Encodes JPEG2000 code stream enc_png.c Functions for dealing with PNG g2_addfield.c Pack up Sections 4 through 7 for a given field and adds them to a GRIB2 message g2_addgrid.c Pack up a Grid Definition Section (Section 3) and adds it to a GRIB2 message g2_addlocal.c Add a Local Use Section (Section 2) to a GRIB2 message g2_create.c Initializes a new GRIB2 message and packs GRIB2 sections 0 (Indicator Section) and 1 (Identification Section) g2_free.c Free up memory that was allocated for struct gribfield g2_getfld.c Return all the metadata, template values, Bit-map (if applicable), and the unpacked data for a given data field g2_gribend.c Finalize a GRIB2 message after all grids and fields have been added g2_info.c Search through a GRIB2 message and returns the number of gridded fields found in the message and the number (and maximum size) of Local Use Sections g2_miss.c Check the Data Representation Template to see if missing value management is used, and returns the missing value(s) in the data field g2_unpack1.c Unpack Section 1 (Identification Section) as defined in GRIB Edition 2 g2_unpack2.c Unpack Section 2 (Local Use Section) as defined in GRIB Edition 2 g2_unpack3.c Unpack Section 3 (Grid Definition Section) as defined in GRIB Edition 2 g2_unpack4.c Unpack Section 4 (Product Definition Section) as defined in GRIB Edition 2 g2_unpack5.c Unpack Section 5 (Data Representation Section) as defined in GRIB Edition 2 g2_unpack6.c Unpack Section 6 (Bit-Map Section) as defined in GRIB Edition 2 g2_unpack7.c Unpack Section 7 (Data Section) as defined in GRIB Edition 2 gbits.c Functions to pack and unpack bits to/from a packed bit string getdim.c Return the dimensions and scanning mode of a grid definition packed in GRIB2 Grid Definition Section 3 format getpoly.c Return the J, K, and M pentagonal resolution parameters specified in a GRIB Grid Definition Section used spherical harmonic coefficients using GDT 5.50 through 5.53 grib2.h Header file for NCEPLIBS-g2c library gridtemplates.c Returns grid template information for a specified Grid Definition Template for Section 3 - the Grid Definition Section (GDS) gridtemplates.h This header file contains info on all the available GRIB2 Grid Definition Templates used in Section 3 (GDS) int_power.c Provide function similar to C pow() power function jpcpack.c Pack up a data field into a JPEG2000 code stream jpcunpack.c Unpack a data field that was packed into a JPEG2000 code stream misspack.c Pack up a data field using a complex packing algorithm as defined in the GRIB2 documention mkieee.c pack_gp.c pdstemplates.c Functions for GRIB2 Product Definition Templates used in Section 4 - the Product Definition Section (PDS) pdstemplates.h This include file contains info on all the available GRIB2 Product Definition Templates used in [Section 4 - the Product Definition Section (PDS)](https://www.nco.ncep.noaa.gov/pmb/docs/grib2/grib2_doc/grib2_sect4.shtml ) pngpack.c Function to pack data with PNG compression pngunpack.c Contains a function to unpack data packed with PNG compression rdieee.c Read a list of real values in 32-bit IEEE floating point format reduce.c Determines whether the number of groups should be increased in order to reduce the size of the large groups, and to make that adjustment seekgb.c Searches a file for the next GRIB message simpack.c Pack up a data field using the simple packing algorithm simunpack.c specpack.c Pack a spectral data field using the complex packing algorithm for spherical harmonic data specunpack.c Unpack a spectral data field that was packed using the complex packing algorithm for spherical harmonic data
+
+
+
NCEPLIBS-g2c: Data Fields
+
+
+
+
+
+
+ NCEPLIBS-g2c
+ 1.6.4
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
Here is a list of all documented data types members with links to the data structure documentation for each member
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
NCEPLIBS-g2c: Data Fields - Variables
+
+
+
+
+
+
+ NCEPLIBS-g2c
+ 1.6.4
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
NCEPLIBS-g2c: g2_addfield.c File Reference
+
+
+
+
+
+
+ NCEPLIBS-g2c
+ 1.6.4
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
Pack up Sections 4 through 7 for a given field and adds them to a GRIB2 message.
+More...
+
#include <stdio.h>
+
#include <stdlib.h>
+
#include "grib2.h "
+
+
Go to the source code of this file.
+
+void cmplxpack (g2float *, g2int , g2int , g2int *, unsigned char *, g2int *) This subroutine packs up a data field using a complex packing algorithm as defined in the GRIB2 documention. More... g2int g2_addfield (unsigned char *cgrib, g2int ipdsnum, g2int *ipdstmpl, g2float *coordlist, g2int numcoord, g2int idrsnum, g2int *idrstmpl, g2float *fld, g2int ngrdpts, g2int ibmap, g2int *bmap) This routine packs up Sections 4 through 7 for a given field and adds them to a GRIB2 message. More... g2int getdim (unsigned char *, g2int *, g2int *, g2int *) This subroutine returns the dimensions and scanning mode of a grid definition packed in GRIB2 Grid Definition Section 3 format. More... g2int getpoly (unsigned char *, g2int *, g2int *, g2int *) This subroutine returns the J, K, and M pentagonal resolution parameters specified in a GRIB Grid Definition Section (GDS) used spherical harmonic coefficients using GDT 5.50 through 5.53. More... void jpcpack (g2float *, g2int , g2int , g2int *, unsigned char *, g2int *) This subroutine packs up a data field into a JPEG2000 code stream. More... void pngpack (g2float *, g2int , g2int , g2int *, unsigned char *, g2int *) This subroutine packs up a data field into PNG image format. More... void simpack (g2float *, g2int , g2int *, unsigned char *, g2int *) This subroutine packs up a data field using the simple packing algorithm as defined in the GRIB2 documention. More... void specpack (g2float *, g2int , g2int , g2int , g2int , g2int *, unsigned char *, g2int *) This subroutine packs a spectral data field using the complex packing algorithm for spherical harmonic data as defined in the GRIB2 Data Representation Template 5.51 . More...
+
+
Pack up Sections 4 through 7 for a given field and adds them to a GRIB2 message.
+
Author Stephen Gilbert
+
Date 2002-11-05
+
+
Definition in file g2_addfield.c .
+
+
+
◆
+
+
+
+
+
+ void cmplxpack
+ (
+ g2float * fld ,
+
+ g2int ndpts ,
+
+ g2int idrsnum ,
+
+ g2int * idrstmpl ,
+
+ unsigned char *
+ cpack ,
+
+ g2int * lcpack
+
+ )
+
+
+
+
+
This subroutine packs up a data field using a complex packing algorithm as defined in the GRIB2 documention.
+
It supports GRIB2 complex packing templates with or without spatial differences (i.e. DRTs 5.2 and 5.3). It also fills in GRIB2 Data Representation Template 5.2 or 5.3 with the appropriate values.
+
Parameters
+
+ fld Contains the data values to pack. ndpts The number of data values in array fld idrsnum Data Representation Template number. Must equal 2 or 3. idrstmpl Contains the array of values for Data Representation Template 5.2 or 5.3
+0 Reference value - ignored on input, set by compack routine.
+1 Binary Scale Factor
+2 Decimal Scale Factor
+6 Missing value management
+7 Primary missing value
+8 Secondary missing value
+16 Order of Spatial Differencing ( 1 or 2 )
+
+ cpack The packed data field. lcpack length of packed field cpack.
+
+
+
Author Stephen Gilbert
+
Date 2004-08-27
+
+
Definition at line 35 of file cmplxpack.c .
+
+
References compack() , and misspack() .
+
+
Referenced by g2_addfield() .
+
+
+
+
+
◆
+
+
+
+
+
+ g2int g2_addfield (
+ unsigned char *
+ cgrib ,
+
+ g2int ipdsnum ,
+
+ g2int * ipdstmpl ,
+
+ g2float * coordlist ,
+
+ g2int numcoord ,
+
+ g2int idrsnum ,
+
+ g2int * idrstmpl ,
+
+ g2float * fld ,
+
+ g2int ngrdpts ,
+
+ g2int ibmap ,
+
+ g2int * bmap
+
+ )
+
+
+
+
+
This routine packs up Sections 4 through 7 for a given field and adds them to a GRIB2 message.
+
They are Product Definition Section , Data Representation Section , Bit-Map Section and Data Section , respectively.
+
This routine is used with routines g2_create() , g2_addlocal() , g2_addgrid() , and g2_gribend() to create a complete GRIB2 message. Function g2_create() must be called first to initialize a new GRIB2 message. Function g2_addgrid() must be called after g2_create() and before this routine to add the appropriate grid description to the GRIB2 message. A call to g2_gribend() is required to complete GRIB2 message after all fields have been added.
+
+
+
+Date Programmer Comments
+
+2002-11-05 Gilbert Initial
+
+2002-12-23 Gilbert Added complex spherical harmonic packing
+
+2003-08-27 Gilbert Added support for new templates using PNG and JPEG2000 algorithms/templates.
+
+2004-11-29 Gilbert JPEG2000 now can use WMO Template 5.40 PNG can use WMO Template 5.41. Added packing algorithm check.
+
+2005-05-10 Gilbert Imposed minimum size on cpack.
+
+2009-01-14 Vuong Changed structure name template to gtemplate
+
+
Parameters
+
+ cgrib Char array that contains the GRIB2 message to which sections 4 through 7 should be added. Must be allocated large enough to store the entire GRIB2 message. ipdsnum Product Definition Template Number (see Code Table 4.0 ). ipdstmpl Contains the data values for the Product Definition Template specified by ipdsnum. coordlist Array containg floating point values intended to document the vertical discretisation associated to model data on hybrid coordinate vertical levels. numcoord number of values in array coordlist. idrsnum Data Representation Template Number (see Code Table 5.0 ). idrstmpl The data values for the Data Representation Template specified by idrsnum. Note that some values in this template (eg. reference values, number of bits, etc...) may be changed by the data packing algorithms. Use this to specify scaling factors and order of spatial differencing, if desired. fld Array of data points to pack. ngrdpts Number of data points in grid. i.e. size of fld and bmap. ibmap Bitmap indicator (see Code Table 6.0 )
+0 = bitmap applies and is included in Section 6.
+1-253 = Predefined bitmap applies.
+254 = Previously defined bitmap applies to this field.
+255 = Bit map does not apply to this product.
+
+ bmap Integer array containing bitmap to be added (if ibmap = 0).
+
+
+
Returns
+> 0 Current size of updated GRIB2 message
+-1 GRIB message was not initialized. Need to call routine g2_create() first.
+-2 GRIB message already complete. Cannot add new section.
+-3 Sum of Section byte counts doesn't add to total byte count.
+-4 Previous Section was not 3 or 7.
+-5 Could not find requested Product Definition Template.
+-6 Section 3 (GDS) not previously defined in message.
+-7 Tried to use unsupported Data Representationi Template.
+-8 Specified use of a previously defined bitmap, but one does not exist in the GRIB message.
+-9 GDT of one of 5.50 through 5.53 required to pack field using DRT 5.51.
+-10 Error packing data field.
+
+
+
Note Note that the Sections 4 through 7 can only follow Section 3 or Section 7 in a GRIB2 message.
+
Author Stephen Gilbert
+
Date 2002-11-05
+
+
Definition at line 106 of file g2_addfield.c .
+
+
References cmplxpack() , gtemplate::ext , gtemplate::extlen , extpdstemplate() , gbit() , getdim() , getdrstemplate() , getpdstemplate() , getpoly() , jpcpack() , gtemplate::map , gtemplate::maplen , mkieee() , gtemplate::needext , pngpack() , sbit() , sbits() , simpack() , and specpack() .
+
+
+
+
+
◆
+
+
+
+
+
+ g2int getdim (
+ unsigned char *
+ csec3 ,
+
+ g2int * width ,
+
+ g2int * height ,
+
+ g2int * iscan
+
+ )
+
+
+
+
+
This subroutine returns the dimensions and scanning mode of a grid definition packed in GRIB2 Grid Definition Section 3 format.
+
Parameters
+
+ csec3 Character array that contains the packed GRIB2 GDS. width x (or i) dimension of the grid. 0 if grid is not recognized. height y (or j) dimension of the grid. 0 if grid is not recognized. iscan Scanning mode (see Table 3.4 ). 0 of grid not recognized.
+
+
+
Returns Always returns 0.
+
Author Stephen Gilbert
+
Date 2002-12-11
+
+
Definition at line 29 of file getdim.c .
+
+
References g2_unpack3() .
+
+
Referenced by g2_addfield() .
+
+
+
+
+
◆
+
+
+
+
+
+ g2int getpoly (
+ unsigned char *
+ csec3 ,
+
+ g2int * jj ,
+
+ g2int * kk ,
+
+ g2int * mm
+
+ )
+
+
+
+
+
This subroutine returns the J, K, and M pentagonal resolution parameters specified in a GRIB Grid Definition Section (GDS) used spherical harmonic coefficients using GDT 5.50 through 5.53.
+
If 51 - complex data spectral packing is used as the data representation template number (see Table 5.0 ), then the Grid Definition Template Number in section 3 should be one of:
+50: Spherical Harmonic Coefficients (See Template 3.50)
+51: Rotated Spherical Harmonic Coefficients (See Template 3.51)
+52: Stretched Spherical Harmonic Coefficients (See Template 3.52)
+53: Rotated and Stretched Spherical Harmonic Coefficients (See Template 3.53)
+
+
Parameters
+
+ csec3 Character array that contains the packed GRIB2 GDS. jj J pentagonal resolution parameter. kk K pentagonal resolution parameter. mm M pentagonal resolution parameter.
+
+
+
Returns always returns 0.
+
Note Returns jj, kk, and mm set to zero, if grid template not recognized.
+
Author Stephen Gilbert
+
Date 2002-12-11
+
+
Definition at line 40 of file getpoly.c .
+
+
References g2_unpack3() .
+
+
Referenced by g2_addfield() .
+
+
+
+
+
◆
+
+
+
+
+
+ void jpcpack
+ (
+ g2float * fld ,
+
+ g2int width ,
+
+ g2int height ,
+
+ g2int * idrstmpl ,
+
+ unsigned char *
+ cpack ,
+
+ g2int * lcpack
+
+ )
+
+
+
+
+
This subroutine packs up a data field into a JPEG2000 code stream.
+
After the data field is scaled, and the reference value is subtracted out, it is treated as a grayscale image and passed to a JPEG2000 encoder. It also fills in GRIB2 Data Representation Template 5.40 or 5.40000 with the appropriate values.
+
+
+
+Date Programmer Comments
+
+2003-08-17 Gilbert Initial.
+
+2004-11-92 Gilbert Fixed bug packing a near constant field.
+
+2004-07-19 Gilbert If jpeg2000 encoding fails, try again with different encoder options.
+
+2005-05-10 Gilbert Imposed minimum size on cpack.
+
+
Parameters
+
+ fld Contains the data values to pack. width number of points in the x direction. height number of points in the y direction. idrstmpl Contains the array of values for Data Representation Template Table 5.40 or 5.40000.
+0 Reference value - ignored on input, set by jpcpack routine.
+1 Binary Scale Factor - used on input, unchanged by jpcpack routine.
+2 Decimal Scale Factor - used on input, unchanged by jpcpack routine.
+3 number of bits for each data value - ignored on input
+4 Original field type - currently ignored on input Data values assumed to be reals. Set to 0 on output.
+5 if 0 use lossless compression, if 1 use lossy compression.
+6 Desired compression ratio, if idrstmpl[5]=1. Set to 255, if idrstmpl[5]=0.
+
+ cpack The packed data field. lcpack Pointer that points to a g2int which contains the length of packed field in cpack. This must be set by the calling function.
+
+
+
Author Stephen Gilbert
+
Date 2003-08-17
+
+
Definition at line 53 of file jpcpack.c .
+
+
References enc_jpeg2000() , int_power() , mkieee() , and sbits() .
+
+
Referenced by g2_addfield() .
+
+
+
+
+
◆
+
+
+
+
+
+ void pngpack
+ (
+ g2float * fld ,
+
+ g2int width ,
+
+ g2int height ,
+
+ g2int * idrstmpl ,
+
+ unsigned char *
+ cpack ,
+
+ g2int * lcpack
+
+ )
+
+
+
+
+
This subroutine packs up a data field into PNG image format.
+
After the data field is scaled, and the reference value is subtracted out, it is treated as a grayscale image and passed to a PNG encoder. It also fills in GRIB2 Data Representation Template 5.41 or 5.40010 with the appropriate values.
+
Parameters
+
+ fld Contains the data values to pack. width number of points in the x direction. height number of points in the y direction. idrstmpl Contains the array of values for Data Representation Template 5.41 or 5.40010.
+0 Reference value - ignored on input, set by pngpack routine.
+1 Binary Scale Factor - used on input.
+2 Decimal Scale Factor - used on input.
+3 number of bits for each grayscale pixel value - ignored on input.
+4 Original field type - currently ignored on input, set = 0 on output. Data values assumed to be reals.
+
+ cpack The packed data field. lcpack length of packed field cpack.
+
+
+
Author Stephen Gilbert
+
Date 2003-08-27
+
+
Definition at line 38 of file pngpack.c .
+
+
References enc_png() , int_power() , mkieee() , and sbits() .
+
+
Referenced by g2_addfield() .
+
+
+
+
+
◆
+
+
+
+
+
+ void simpack
+ (
+ g2float * fld ,
+
+ g2int ndpts ,
+
+ g2int * idrstmpl ,
+
+ unsigned char *
+ cpack ,
+
+ g2int * lcpack
+
+ )
+
+
+
+
+
This subroutine packs up a data field using the simple packing algorithm as defined in the GRIB2 documention.
+
It also fills in GRIB2 Data Representation Template 5.0 with the appropriate values.
+
Parameters
+
+ fld Contains the data values to pack. ndpts The number of data values in array fld. idrstmpl Contains the array of values for [Data Representation Template 5.0](https://www.nco.ncep.noaa.gov/pmb/docs/grib2/grib2_doc/grib2_temp5-0.shtml ).
+0 Reference value - ignored on input - set by simpack routine.
+1 Binary Scale Factor - unchanged from input.
+2 Decimal Scale Factor - unchanged from input.
+3 Number of bits used to pack data, if value is > 0 and <= 31. If this input value is 0 or outside above range then the num of bits is calculated based on given data and scale factors.
+4 Original field type - currently ignored on input. Data values assumed to be reals. Set to 0 by simpack routine.
+
+ cpack The packed data field lcpack length of packed field starting at cpack.
+
+
+
Author Stephen Gilbert
+
Date 2002-11-06
+
+
Definition at line 34 of file simpack.c .
+
+
References int_power() , mkieee() , sbit() , and sbits() .
+
+
Referenced by g2_addfield() , and specpack() .
+
+
+
+
+
◆
+
+
+
+
+
+ void specpack
+ (
+ g2float * fld ,
+
+ g2int ndpts ,
+
+ g2int JJ ,
+
+ g2int KK ,
+
+ g2int MM ,
+
+ g2int * idrstmpl ,
+
+ unsigned char *
+ cpack ,
+
+ g2int * lcpack
+
+ )
+
+
+
+
+
This subroutine packs a spectral data field using the complex packing algorithm for spherical harmonic data as defined in the GRIB2 Data Representation Template 5.51 .
+
Parameters
+
+ fld Contains the data values to be packed. ndpts The number of data values to pack. JJ J - pentagonal resolution parameter. KK K - pentagonal resolution parameter. MM M - pentagonal resolution parameter. idrstmpl Contains the array of 10 values for [Data Representation Template 5.51](https://www.nco.ncep.noaa.gov/pmb/docs/grib2/grib2_doc/grib2_temp5-51.shtml ). cpack Pointer that gets the packed data field. Must be allocated by caller. lcpack length of packed field cpack.
+
+
+
Author Stephen Gilbert
+
Date 2002-12-19
+
+
Definition at line 33 of file specpack.c .
+
+
References mkieee() , and simpack() .
+
+
Referenced by g2_addfield() .
+
+
+
+
+
NCEPLIBS-g2c: g2_addfield.c Source File
+
+
+
+
+
+
+ NCEPLIBS-g2c
+ 1.6.4
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
Go to the documentation of this file.
+
+
+
+
+
+
+
+
+
+
+
+
+
+
19 #if defined USE_JPEG2000 || defined USE_OPENJPEG
+
+
+
+
+
+
+
+
+
+
+
111 static unsigned char G = 0x47;
+
112 static unsigned char R = 0x52;
+
113 static unsigned char I = 0x49;
+
114 static unsigned char B = 0x42;
+
115 static unsigned char s7 = 0x37;
+
+
117 unsigned char *cpack;
+
118 static g2int zero = 0, one = 1, four = 4, five = 5, six = 6, seven = 7;
+
119 const g2int minsize = 50000;
+
120 g2int iofst, ibeg, lencurr, len, nsize;
+
121 g2int ilen, isecnum, i, nbits, temp, left;
+
122 g2int ibmprev, j, lcpack, ioctet, newlen, ndpts;
+
123 g2int lensec4, lensec5, lensec6, lensec7;
+
124 g2int issec3 = 0, isprevbmap = 0, lpos3 = 0, JJ, KK, MM;
+
+
126 g2int width, height, iscan, itemp;
+
+
+
129 unsigned int allones = 4294967295u;
+
+
+
132 if (cgrib[0] != G || cgrib[1] != R || cgrib[2] != I || cgrib[3] != B)
+
+
134 printf(
"g2_addfield: GRIB not found in given message.\n" );
+
135 printf(
"g2_addfield: Call to routine g2_create required to initialize GRIB messge.\n" );
+
+
+
+
+
+
141 gbit (cgrib, &lencurr, 96, 32);
+
+
+
144 if (cgrib[lencurr-4] == s7 && cgrib[lencurr-3] == s7 &&
+
145 cgrib[lencurr-2] == s7 && cgrib[lencurr-1] == s7)
+
+
147 printf(
"g2_addfield: GRIB message already complete. Cannot add new section.\n" );
+
+
+
+
+
+
+
+
+
+
+
+
159 gbit (cgrib, &ilen, iofst, 32);
+
+
161 gbit (cgrib, &isecnum, iofst, 8);
+
+
+
+
+
+
+
+
+
+
+
+
173 gbit (cgrib, &ibmprev, iofst, 8);
+
+
175 if (ibmprev >= 0 && ibmprev <= 253)
+
+
+
+
+
+
+
+
+
+
+
+
+
188 printf(
"g2_addfield: Section byte counts don''t add to total.\n" );
+
189 printf(
"g2_addfield: Sum of section byte counts = %ld\n" , len);
+
190 printf(
"g2_addfield: Total byte count in Section 0 = %ld\n" , lencurr);
+
+
+
+
+
+
+
197 if ((isecnum != 3) && (isecnum != 7))
+
+
199 printf(
"g2_addfield: Sections 4-7 can only be added after Section 3 or 7.\n" );
+
200 printf(
"g2_addfield: Section ',isecnum,' was the last found in given GRIB message.\n" );
+
+
+
+
+
+
+
207 printf(
"g2_addfield: Sections 4-7 can only be added if Section 3 was previously included.\n" );
+
208 printf(
"g2_addfield: Section 3 was not found in given GRIB message.\n" );
+
209 printf(
"g2_addfield: Call to routine addgrid required to specify Grid definition.\n" );
+
+
+
+
+
+
+
+
217 sbit (cgrib, &four, iofst, 8);
+
+
219 sbit (cgrib, &numcoord, iofst, 16);
+
+
221 sbit (cgrib, &ipdsnum, iofst, 16);
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
243 for (i = 0; i < mappds->
maplen ; i++)
+
+
245 nbits = abs(mappds->
map [i]) * 8;
+
246 if ((mappds->
map [i] >= 0) || (ipdstmpl[i] >= 0))
+
247 sbit (cgrib, ipdstmpl + i, iofst, nbits);
+
+
+
250 sbit (cgrib, &one, iofst, 1);
+
251 temp = abs(ipdstmpl[i]);
+
252 sbit (cgrib, &temp, iofst + 1, nbits-1);
+
+
254 iofst = iofst + nbits;
+
+
+
+
+
+
+
261 for (i = 0; i < mappds->
extlen ; i++)
+
+
263 nbits = abs(mappds->
ext [i]) * 8;
+
264 if ((mappds->
ext [i] >= 0) || (ipdstmpl[j] >= 0))
+
265 sbit (cgrib, ipdstmpl + j, iofst, nbits);
+
+
+
268 sbit (cgrib, &one, iofst, 1);
+
269 temp = abs(ipdstmpl[j]);
+
270 sbit (cgrib, &temp, iofst + 1, nbits-1);
+
+
272 iofst = iofst + nbits;
+
+
+
+
+
+
+
+
+
+
282 coordieee = calloc(numcoord,
sizeof (
g2int ));
+
283 mkieee (coordlist, coordieee, numcoord);
+
284 sbits (cgrib, coordieee, iofst, 32, 0, numcoord);
+
285 iofst = iofst + (32*numcoord);
+
+
+
+
+
+
291 lensec4 = (iofst - ibeg) / 8;
+
292 sbit (cgrib, &lensec4, ibeg, 32);
+
+
+
+
+
+
+
+
+
+
+
+
304 if (ibmap == 0 || ibmap == 254)
+
+
306 pfld = malloc(ngrdpts *
sizeof (
g2float ));
+
+
308 for (j = 0; j < ngrdpts; j++)
+
+
+
311 pfld[ndpts++] = fld[j];
+
+
+
+
+
+
+
+
+
+
+
+
+
324 cpack = malloc(nsize);
+
+
+
+
328 simpack (pfld, ndpts, idrstmpl, cpack, &lcpack);
+
329 else if (idrsnum == 2 || idrsnum == 3)
+
330 cmplxpack (pfld, ndpts, idrsnum, idrstmpl, cpack, &lcpack);
+
331 else if (idrsnum == 50)
+
+
333 simpack (pfld + 1, ndpts - 1, idrstmpl, cpack, &lcpack);
+
334 mkieee (pfld, idrstmpl + 4, 1);
+
+
336 else if (idrsnum == 51)
+
+
338 getpoly (cgrib + lpos3, &JJ, &KK, &MM);
+
339 if (JJ != 0 && KK != 0 && MM != 0)
+
340 specpack (pfld, ndpts, JJ, KK, MM, idrstmpl, cpack, &lcpack);
+
+
+
343 printf(
"g2_addfield: Cannot pack DRT 5.51.\n" );
+
+
+
+
347 #if defined USE_JPEG2000 || defined USE_OPENJPEG
+
348 else if (idrsnum == 40 || idrsnum == 40000)
+
+
+
+
352 getdim (cgrib + lpos3, &width, &height, &iscan);
+
353 if (width == 0 || height == 0)
+
+
+
+
+
358 else if (width == allones || height == allones)
+
+
+
+
+
363 else if ((iscan&32) == 32)
+
+
+
+
+
+
+
+
+
+
+
+
+
376 jpcpack (pfld, width, height, idrstmpl, cpack, &lcpack);
+
+
+
+
380 else if (idrsnum == 41 || idrsnum == 40010)
+
+
+
+
384 getdim (cgrib + lpos3, &width, &height, &iscan);
+
385 if (width==0 || height==0)
+
+
+
+
+
390 else if (width == allones || height == allones)
+
+
+
+
+
395 else if ((iscan & 32) == 32)
+
+
+
+
+
+
+
+
+
+
+
+
407 pngpack (pfld, width, height, idrstmpl, cpack, &lcpack);
+
+
+
+
+
412 printf(
"g2_addfield: Data Representation Template 5.%ld not yet implemented.\n" , idrsnum);
+
+
+
+
416 if (ibmap == 0 || ibmap == 254)
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
432 sbit (cgrib, &five, iofst, 8);
+
+
434 sbit (cgrib, &ndpts, iofst, 32);
+
+
436 sbit (cgrib, &idrsnum, iofst, 16);
+
+
+
+
+
+
442 for (i = 0; i < mapdrs->
maplen ; i++)
+
+
444 nbits = abs(mapdrs->
map [i]) * 8;
+
445 if ((mapdrs->
map [i] >= 0) || (idrstmpl[i] >= 0))
+
446 sbit (cgrib, idrstmpl + i, iofst, nbits);
+
+
+
449 sbit (cgrib, &one, iofst, 1);
+
450 temp = abs(idrstmpl[i]);
+
451 sbit (cgrib, &temp, iofst + 1, nbits - 1);
+
+
453 iofst = iofst + nbits;
+
+
+
+
+
+
459 lensec5 = (iofst - ibeg) / 8;
+
460 sbit (cgrib, &lensec5, ibeg, 32);
+
+
+
+
+
465 sbit (cgrib, &six, iofst, 8);
+
+
467 sbit (cgrib, &ibmap, iofst, 8);
+
+
+
+
+
+
473 sbits (cgrib, bmap, iofst, 1, 0, ngrdpts);
+
474 iofst = iofst + ngrdpts;
+
+
+
+
+
479 if (ibmap == 254 && !isprevbmap)
+
+
481 printf(
"g2_addfield: Requested previously defined bitmap," );
+
482 printf(
" but one does not exist in the current GRIB message.\n" );
+
+
+
+
+
+
+
489 left = 8 - (iofst % 8);
+
+
+
492 sbit (cgrib, &zero, iofst, left);
+
493 iofst = iofst + left;
+
+
495 lensec6 = (iofst-ibeg) / 8;
+
496 sbit (cgrib, &lensec6, ibeg, 32);
+
+
+
+
+
501 sbit (cgrib, &seven, iofst, 8);
+
+
+
+
+
+
+
+
509 for (j = 0; j < lcpack; j++)
+
510 cgrib[ioctet + j] = cpack[j];
+
511 iofst = iofst + (8*lcpack);
+
+
+
+
+
516 lensec7 = (iofst - ibeg) / 8;
+
517 sbit (cgrib, &lensec7, ibeg, 32);
+
+
+
+
+
+
523 newlen = lencurr + lensec4 + lensec5 + lensec6 + lensec7;
+
524 sbit (cgrib, &newlen, 96, 32);
+
+
+
+
+
gtemplate * getdrstemplate(g2int number)
This subroutine returns DRS template information for a specified Data Representation Template.
+
g2int getpoly(unsigned char *, g2int *, g2int *, g2int *)
This subroutine returns the J, K, and M pentagonal resolution parameters specified in a GRIB Grid Def...
+
g2int getdim(unsigned char *, g2int *, g2int *, g2int *)
This subroutine returns the dimensions and scanning mode of a grid definition packed in GRIB2 Grid De...
+
void cmplxpack(g2float *, g2int, g2int, g2int *, unsigned char *, g2int *)
This subroutine packs up a data field using a complex packing algorithm as defined in the GRIB2 docum...
+
void pngpack(g2float *, g2int, g2int, g2int *, unsigned char *, g2int *)
This subroutine packs up a data field into PNG image format.
+
void specpack(g2float *, g2int, g2int, g2int, g2int, g2int *, unsigned char *, g2int *)
This subroutine packs a spectral data field using the complex packing algorithm for spherical harmoni...
+
void simpack(g2float *, g2int, g2int *, unsigned char *, g2int *)
This subroutine packs up a data field using the simple packing algorithm as defined in the GRIB2 docu...
+
void jpcpack(g2float *, g2int, g2int, g2int *, unsigned char *, g2int *)
This subroutine packs up a data field into a JPEG2000 code stream.
+
g2int g2_addfield(unsigned char *cgrib, g2int ipdsnum, g2int *ipdstmpl, g2float *coordlist, g2int numcoord, g2int idrsnum, g2int *idrstmpl, g2float *fld, g2int ngrdpts, g2int ibmap, g2int *bmap)
This routine packs up Sections 4 through 7 for a given field and adds them to a GRIB2 message.
+
void gbit(unsigned char *in, g2int *iout, g2int iskip, g2int nbyte)
Get bits - unpack bits: Extract arbitrary size values from a packed bit string, right justifying each...
+
void sbit(unsigned char *out, g2int *in, g2int iskip, g2int nbyte)
Store bits - put arbitrary size values into a packed bit string, taking the low order bits from each ...
+
void sbits(unsigned char *out, g2int *in, g2int iskip, g2int nbyte, g2int nskip, g2int n)
Store bits - put arbitrary size values into a packed bit string, taking the low order bits from each ...
+
Header file for NCEPLIBS-g2c library.
+
+
g2int * ext
Number of octets of each entry in the extension part of the template.
+
g2int extlen
Number of entries in the template extension.
+
g2int * map
Number of octets of each entry in the static part of the template.
+
g2int needext
Indicates whether or not the template needs to be extended.
+
g2int maplen
Number of entries in the static part of the template.
+
int64_t g2int
Long integer type.
+
Struct for GRIB template.
+
void mkieee(g2float *a, g2int *rieee, g2int num)
This subroutine stores a list of real values in 32-bit IEEE floating point format.
+
gtemplate * extpdstemplate(g2int number, g2int *list)
This subroutine generates the remaining octet map for a given Product Definition Template,...
+
gtemplate * getpdstemplate(g2int number)
This subroutine returns PDS template information for a specified Product Definition Template.
+
+
NCEPLIBS-g2c: g2_addgrid.c File Reference
+
+
+
+
+
+
+ NCEPLIBS-g2c
+ 1.6.4
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
Pack up a Grid Definition Section (Section 3) and adds it to a GRIB2 message.
+More...
+
#include <stdio.h>
+
#include <stdlib.h>
+
#include "grib2.h "
+
+
Go to the source code of this file.
+
+
+
Pack up a Grid Definition Section (Section 3) and adds it to a GRIB2 message.
+
Author Stephen Gilbeert
+
Date 2002-11-01
+
+
Definition in file g2_addgrid.c .
+
+
+
◆
+
+
+
+
+
+ g2int g2_addgrid (
+ unsigned char *
+ cgrib ,
+
+ g2int * igds ,
+
+ g2int * igdstmpl ,
+
+ g2int * ideflist ,
+
+ g2int idefnum
+
+ )
+
+
+
+
+
This routine packs up a Grid Definition Section (Section 3) and adds it to a GRIB2 message.
+
It is used with routines g2_create() , g2_addlocal() , g2_addfield() , and g2_gribend() to create a complete GRIB2 message. g2_create() must be called first to initialize a new GRIB2 message.
+
+
+
+Date Programmer Comments
+
+2002-11-01 Gilbert Initial.
+
+2009-01-14 Vuong Changed structure name template to gtemplate
+
+
Parameters
+
+ cgrib Char array that contains the GRIB2 message to which section should be added. Must be allocated large enough to store the entire GRIB2 message. igds Contains information needed for GRIB Grid Definition Section 3. Must be dimensioned >= 5.
+igds[0] Source of grid definition (see Code Table 3.0 ).
+igds[1] Number of grid points in the defined grid.
+igds[2] Number of octets needed for each additional grid points definition. Used to define number of points in each row (or column) for non-regular grids. = 0, if using regular grid.
+igds[3] Interpretation of list for optional points definition. (See Code Table 3.11 ).
+igds[4] Grid Definition Template Number (See Code Table 3.1 ).
+
+ igdstmpl Contains the data values for the specified Grid Definition Template (igds[4]). Each element of this integer array contains an entry (in the order specified) of Grid Defintion Template. ideflist (Used if igds[2] != 0) This array contains the number of grid points contained in each row (or column). idefnum (Used if igds[2] != 0) The number of entries in array ideflist. i.e. number of rows (or columns) for which optional grid points are defined.
+
+
+
Returns
+> 0 Current size of updated GRIB2 message
+-1 GRIB message was not initialized. Need to call routine gribcreate first.
+-2 GRIB message already complete. Cannot add new section.
+-3 Sum of Section byte counts doesn't add to total byte count
+-4 Previous Section was not 1, 2 or 7.
+-5 Could not find requested Grid Definition Template.
+
+
+
Note The Grid Def Section (Section 3) can only follow Section 1, 2 or Section 7 in a GRIB2 message.
+
Author Stephen Gilbeert
+
Date 2002-11-01
+
+
Definition at line 66 of file g2_addgrid.c .
+
+
References gtemplate::ext , extgridtemplate() , gtemplate::extlen , gbit() , getgridtemplate() , gtemplate::map , gtemplate::maplen , gtemplate::needext , sbit() , and sbits() .
+
+
+
+
+
NCEPLIBS-g2c: g2_addgrid.c Source File
+
+
+
+
+
+
+ NCEPLIBS-g2c
+ 1.6.4
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
Go to the documentation of this file.
+
+
+
+
+
+
+
+
+
+
70 static unsigned char G = 0x47;
+
71 static unsigned char R = 0x52;
+
72 static unsigned char I = 0x49;
+
73 static unsigned char B = 0x42;
+
74 static unsigned char seven = 0x37;
+
+
76 static g2int one = 1, three = 3, miss = 65535;
+
77 g2int lensec3, iofst, ibeg, lencurr, len;
+
78 g2int i, j, temp, ilen, isecnum, nbits;
+
+
+
+
82 if (cgrib[0] != G || cgrib[1] != R || cgrib[2] != I || cgrib[3] != B)
+
+
84 printf(
"g2_addgrid: GRIB not found in given message.\n" );
+
85 printf(
"g2_addgrid: Call to routine gribcreate required to initialize GRIB messge.\n" );
+
+
+
+
+
+
91 gbit (cgrib, &lencurr, 96, 32);
+
+
+
94 if (cgrib[lencurr - 4] == seven && cgrib[lencurr - 3] == seven &&
+
95 cgrib[lencurr - 2] == seven && cgrib[lencurr - 1] == seven)
+
+
97 printf(
"g2_addgrid: GRIB message already complete. Cannot add new section.\n" );
+
+
+
+
+
+
+
+
+
+
+
+
109 gbit (cgrib, &ilen, iofst, 32);
+
+
111 gbit (cgrib, &isecnum, iofst, 8);
+
+
+
114 if (len == lencurr)
break ;
+
+
+
+
+
119 printf(
"g2_addgrid: Section byte counts don''t add to total.\n" );
+
120 printf(
"g2_addgrid: Sum of section byte counts = %ld\n" , len);
+
121 printf(
"g2_addgrid: Total byte count in Section 0 = %ld\n" , lencurr);
+
+
+
+
+
+
+
128 if (isecnum != 1 && isecnum != 2 && isecnum != 7)
+
+
130 printf(
"g2_addgrid: Section 3 can only be added after Section 1, 2 or 7.\n" );
+
131 printf(
"g2_addgrid: Section ',isecnum,' was the last found in given GRIB message.\n" );
+
+
+
+
+
+
+
+
139 sbit (cgrib, &three, iofst, 8);
+
+
141 sbit (cgrib, igds+0, iofst, 8);
+
+
143 sbit (cgrib, igds+1, iofst, 32);
+
+
145 sbit (cgrib, igds+2, iofst, 8);
+
+
147 sbit (cgrib, igds+3, iofst, 8);
+
+
+
+
+
+
153 sbit (cgrib, igds+4, iofst, 16);
+
+
155 sbit (cgrib, &miss, iofst, 16);
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
180 for (i = 0; i < mapgrid->
maplen ; i++)
+
+
182 nbits = abs(mapgrid->
map [i]) * 8;
+
183 if ((mapgrid->
map [i] >= 0) || (igdstmpl[i] >= 0))
+
184 sbit (cgrib, igdstmpl+i, iofst, nbits);
+
+
+
187 sbit (cgrib, &one, iofst, 1);
+
188 temp = abs(igdstmpl[i]);
+
189 sbit (cgrib, &temp, iofst+1, nbits-1);
+
+
191 iofst = iofst + nbits;
+
+
+
+
+
+
+
198 for (i = 0; i < mapgrid->
extlen ; i++)
+
+
200 nbits = abs(mapgrid->
ext [i]) * 8;
+
201 if (mapgrid->
ext [i] >= 0 || igdstmpl[j] >= 0)
+
202 sbit (cgrib, igdstmpl + j, iofst, nbits);
+
+
+
205 sbit (cgrib, &one, iofst, 1);
+
206 temp = abs(igdstmpl[j]);
+
207 sbit (cgrib, &temp, iofst + 1, nbits - 1);
+
+
209 iofst = iofst + nbits;
+
+
+
+
+
+
+
+
+
+
+
+
221 sbits (cgrib, ideflist, iofst, nbits, 0, idefnum);
+
222 iofst = iofst + (nbits * idefnum);
+
+
+
+
226 lensec3 = (iofst - ibeg) / 8;
+
227 sbit (cgrib, &lensec3, ibeg, 32);
+
+
+
+
231 sbit (cgrib, &lencurr, 96, 32);
+
+
+
+
g2int g2_addgrid(unsigned char *cgrib, g2int *igds, g2int *igdstmpl, g2int *ideflist, g2int idefnum)
This routine packs up a Grid Definition Section (Section 3) and adds it to a GRIB2 message.
+
void gbit(unsigned char *in, g2int *iout, g2int iskip, g2int nbyte)
Get bits - unpack bits: Extract arbitrary size values from a packed bit string, right justifying each...
+
void sbit(unsigned char *out, g2int *in, g2int iskip, g2int nbyte)
Store bits - put arbitrary size values into a packed bit string, taking the low order bits from each ...
+
void sbits(unsigned char *out, g2int *in, g2int iskip, g2int nbyte, g2int nskip, g2int n)
Store bits - put arbitrary size values into a packed bit string, taking the low order bits from each ...
+
Header file for NCEPLIBS-g2c library.
+
g2int * ext
Number of octets of each entry in the extension part of the template.
+
g2int extlen
Number of entries in the template extension.
+
g2int * map
Number of octets of each entry in the static part of the template.
+
g2int needext
Indicates whether or not the template needs to be extended.
+
g2int maplen
Number of entries in the static part of the template.
+
int64_t g2int
Long integer type.
+
Struct for GRIB template.
+
gtemplate * extgridtemplate(g2int number, g2int *list)
This subroutine generates the remaining octet map for a given Grid Definition Template,...
+
gtemplate * getgridtemplate(g2int number)
This subroutine returns grid template information for a specified Grid Definition Template for [Secti...
+
+
NCEPLIBS-g2c: g2_addlocal.c File Reference
+
+
+
+
+
+
+ NCEPLIBS-g2c
+ 1.6.4
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
Add a Local Use Section (Section 2) to a GRIB2 message.
+More...
+
#include <stdio.h>
+
#include "grib2.h "
+
+
Go to the source code of this file.
+
+g2int g2_addlocal (unsigned char *cgrib, unsigned char *csec2, g2int lcsec2) This routine adds a Local Use Section (Section 2) to a GRIB2 message. More...
+
+
Add a Local Use Section (Section 2) to a GRIB2 message.
+
Author Stephen Gilbeert
+
Date 2002-11-01
+
+
Definition in file g2_addlocal.c .
+
+
+
◆
+
+
+
+
+
+ g2int g2_addlocal (
+ unsigned char *
+ cgrib ,
+
+ unsigned char *
+ csec2 ,
+
+ g2int lcsec2
+
+ )
+
+
+
+
+
This routine adds a Local Use Section (Section 2) to a GRIB2 message.
+
It is used with routines g2_create() , g2_addgrid() , g2_addfield() , and g2_gribend() to create a complete GRIB2 message. g2_create() must be called first to initialize a new GRIB2 message.
+
Parameters
+
+ cgrib Char array that contains the GRIB2 message to which section 2 should be added. Must be allocated large enough to store the entire GRIB2 message. csec2 Character array containing information to be added in Section 2. lcsec2 Number of bytes of character array csec2 to be added to Section 2.
+
+
+
Returns > 0 = Current size of updated GRIB2 message.
+-1 GRIB message was not initialized. Need to call routine gribcreate first.
+-2 GRIB message already complete. Cannot add new section.
+-3 Sum of Section byte counts doesn't add to total byte count
+-4 Previous Section was not 1 or 7.
+
+
+
Note The Local Use Section (Section 2) can only follow Section 1 or Section 7 in a GRIB2 message.
+
Author Stephen Gilbeert
+
Date 2002-11-01
+
+
Definition at line 37 of file g2_addlocal.c .
+
+
References gbit() , and sbit() .
+
+
+
+
+
NCEPLIBS-g2c: g2_addlocal.c Source File
+
+
+
+
+
+
+ NCEPLIBS-g2c
+ 1.6.4
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
Go to the documentation of this file.
+
+
+
+
+
+
+
39 static unsigned char G = 0x47;
+
40 static unsigned char R = 0x52;
+
41 static unsigned char I = 0x49;
+
42 static unsigned char B = 0x42;
+
43 static unsigned char seven = 0x37;
+
+
+
46 g2int j, k, lensec2, iofst, ibeg, lencurr, ilen, len, istart;
+
+
+
+
+
51 if (cgrib[0] != G || cgrib[1] != R || cgrib[2] != I || cgrib[3] != B)
+
+
53 printf(
"g2_addlocal: GRIB not found in given message.\n" );
+
54 printf(
"g2_addlocal: Call to routine g2_create required to initialize GRIB messge.\n" );
+
+
+
+
+
+
60 gbit (cgrib, &lencurr, 96, 32);
+
+
+
63 if (cgrib[lencurr - 4] == seven && cgrib[lencurr - 3] == seven &&
+
64 cgrib[lencurr - 2] == seven && cgrib[lencurr - 1] == seven)
+
+
66 printf(
"g2_addlocal: GRIB message already complete. Cannot add new section.\n" );
+
+
+
+
+
+
+
+
+
+
+
+
78 gbit (cgrib, &ilen, iofst, 32);
+
+
80 gbit (cgrib, &isecnum, iofst, 8);
+
+
+
+
+
+
+
+
+
89 printf(
"g2_addlocal: Section byte counts don't add to total.\n" );
+
90 printf(
"g2_addlocal: Sum of section byte counts = %ld\n" , len);
+
91 printf(
"g2_addlocal: Total byte count in Section 0 = %ld\n" , lencurr);
+
+
+
+
+
+
+
98 if (isecnum != 1 && isecnum != 7)
+
+
100 printf(
"g2_addlocal: Section 2 can only be added after Section 1 or Section 7.\n" );
+
101 printf(
"g2_addlocal: Section %ld was the last found in given GRIB message.\n" , isecnum);
+
+
+
+
+
+
+
+
109 sbit (cgrib, &two, iofst, 8);
+
110 istart = lencurr + 5;
+
+
+
113 for (j = istart; j < istart + lcsec2; j++)
+
114 cgrib[j] = csec2[k++];
+
+
+
117 lensec2 = lcsec2 + 5;
+
118 sbit (cgrib, &lensec2, ibeg, 32);
+
+
+
+
122 sbit (cgrib, &lencurr, 96, 32);
+
+
+
+
g2int g2_addlocal(unsigned char *cgrib, unsigned char *csec2, g2int lcsec2)
This routine adds a Local Use Section (Section 2) to a GRIB2 message.
+
void gbit(unsigned char *in, g2int *iout, g2int iskip, g2int nbyte)
Get bits - unpack bits: Extract arbitrary size values from a packed bit string, right justifying each...
+
void sbit(unsigned char *out, g2int *in, g2int iskip, g2int nbyte)
Store bits - put arbitrary size values into a packed bit string, taking the low order bits from each ...
+
Header file for NCEPLIBS-g2c library.
+
int64_t g2int
Long integer type.
+
+
NCEPLIBS-g2c: g2_create.c File Reference
+
+
+
+
+
+
+ NCEPLIBS-g2c
+ 1.6.4
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
Initializes a new GRIB2 message and packs GRIB2 sections 0 (Indicator Section) and 1 (Identification Section).
+More...
+
#include <stdio.h>
+
#include "grib2.h "
+
+
Go to the source code of this file.
+
+g2int g2_create (unsigned char *cgrib, g2int *listsec0, g2int *listsec1) This routine initializes a new GRIB2 message and packs GRIB2 sections 0 (Indicator Section) and 1 (Identification Section). More...
+
+
Initializes a new GRIB2 message and packs GRIB2 sections 0 (Indicator Section) and 1 (Identification Section).
+
Author Stephen Gilbert
+
Date 2002-10-31
+
+
Definition in file g2_create.c .
+
+
+
◆
+
+
+
+
+
+ #define LENSEC0 16
+
+
+
+
+
Length of GRIB Section 0.
+
+
Definition at line 11 of file g2_create.c .
+
+
+
+
+
◆
+
+
+
+
+
+ #define MAPSEC1LEN 13
+
+
+
+
+
Length of Map Section 1.
+
+
Definition at line 10 of file g2_create.c .
+
+
+
+
+
+
◆
+
+
+
+
+
+ g2int g2_create (
+ unsigned char *
+ cgrib ,
+
+ g2int * listsec0 ,
+
+ g2int * listsec1
+
+ )
+
+
+
+
+
This routine initializes a new GRIB2 message and packs GRIB2 sections 0 (Indicator Section) and 1 (Identification Section).
+
This routine is used with routines g2_addlocal() , g2_addgrid() , g2_addfield() , and g2_gribend() to create a complete GRIB2 message. g2_create() must be called first to initialize a new GRIB2 message. A call to g2_gribend() is required to complete GRIB2 message after all fields have been added.
+
Parameters
+
+ [in] cgrib Character array to contain the GRIB2 message. Must be allocated large enough to store the entire GRIB2 message. [in] listsec0 Contains information needed for GRIB Indicator Section 0. Must be dimensioned >= 2.
+listsec0[0] Discipline-GRIB Master Table Number (Code Table 0.0 ).
+listsec0[1] GRIB Edition Number (currently 2).
+
+ [in] listsec1 Contains information needed for GRIB Identification Section 1. Must be dimensioned >= 13.
+listsec1[0] Id of orginating centre (Table 0 ).
+listsec1[1] Id of orginating sub-centre (Table C ).
+listsec1[2] GRIB Master Tables Version Number (Table 1.0 ).
+listsec1[3] GRIB Local Tables Version Number (Table 1.1 ).
+listsec1[4] Significance of Reference Time (Table 1.2 )
+listsec1[5] Reference Time - Year (4 digits)
+listsec1[6] Reference Time - Month
+listsec1[7] Reference Time - Day
+listsec1[8] Reference Time - Hour
+listsec1[9] Reference Time - Minute
+listsec1[10] Reference Time - Second
+listsec1[11] Production status of data (Table 1.3 ).
+listsec1[12] Type of processed data (Table 1.4 ).
+
+
+
+
+
Returns - > 0 Current size of new GRIB2 message
+-1 Tried to use for version other than GRIB Edition 2
+
+
+
This routine is intended for use with routines g2_addlocal() , g2_addgrid() , g2_addfield() , and g2_gribend() to create a complete GRIB2 message.
+
Author Stephen Gilbeert
+
Date 2002-10-31
+
+
Definition at line 63 of file g2_create.c .
+
+
References LENSEC0 , MAPSEC1LEN , and sbit() .
+
+
+
+
+
NCEPLIBS-g2c: g2_create.c Source File
+
+
+
+
+
+
+ NCEPLIBS-g2c
+ 1.6.4
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
Go to the documentation of this file.
+
+
+
+
+
+
+
+
+
+
66 g2int zero = 0, one = 1;
+
+
+
+
+
+
+
+
74 g2int mapsec1[
MAPSEC1LEN ] = {2, 2, 1, 1, 1, 2, 1, 1, 1, 1, 1, 1, 1};
+
75 g2int i, lensec1, iofst, ibeg, nbits, len;
+
+
+
+
+
80 printf(
"g2_create: can only code GRIB edition 2." );
+
+
+
+
+
+
+
+
+
+
+
91 sbit (cgrib, &zero, 32, 16);
+
92 sbit (cgrib, listsec0 + 0, 48, 8);
+
93 sbit (cgrib, listsec0 + 1, 56, 8);
+
+
+
+
+
98 sbit (cgrib, &one, iofst, 8);
+
+
+
+
+
+
+
+
106 nbits = mapsec1[i] * 8;
+
107 sbit (cgrib, listsec1 + i, iofst, nbits);
+
108 iofst = iofst + nbits;
+
+
+
+
+
113 lensec1 = (iofst - ibeg) / 8;
+
114 sbit (cgrib, &lensec1, ibeg, 32);
+
+
+
117 sbit (cgrib, &zero, 64, 32);
+
+
119 sbit (cgrib, &len, 96, 32);
+
+
+
g2int g2_create(unsigned char *cgrib, g2int *listsec0, g2int *listsec1)
This routine initializes a new GRIB2 message and packs GRIB2 sections 0 (Indicator Section) and 1 (Id...
+
#define LENSEC0
Length of GRIB Section 0.
+
#define MAPSEC1LEN
Length of Map Section 1.
+
void sbit(unsigned char *out, g2int *in, g2int iskip, g2int nbyte)
Store bits - put arbitrary size values into a packed bit string, taking the low order bits from each ...
+
Header file for NCEPLIBS-g2c library.
+
int64_t g2int
Long integer type.
+
+
NCEPLIBS-g2c: g2_free.c File Reference
+
+
+
+
+
+
+ NCEPLIBS-g2c
+ 1.6.4
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
Free up memory that was allocated for struct gribfield.
+More...
+
#include <stdlib.h>
+
#include "grib2.h "
+
+
Go to the source code of this file.
+
+void g2_free (gribfield *gfld) This routine frees up memory that was allocated for struct gribfield. More...
+
+
Free up memory that was allocated for struct gribfield.
+
Author Stephen Gilbeert
+
Date 2002-10-28
+
+
Definition in file g2_free.c .
+
+
+
◆
+
+
+
+
+
+ void g2_free
+ (
+ gribfield * gfld )
+
+
+
+
+
This routine frees up memory that was allocated for struct gribfield.
+
Parameters
+
+ gfld pointer to gribfield structure (defined in include file grib2.h ) returned from routine g2_getfld() .
+
+
+
Note This routine must be called to free up memory used by the decode routine, g2_getfld() , when user no longer needs to reference this data.
+
Author Stephen Gilbeert
+
Date 2002-10-28
+
+
Definition at line 24 of file g2_free.c .
+
+
References gribfield::bmap , gribfield::coord_list , gribfield::fld , gribfield::idrtmpl , gribfield::idsect , gribfield::igdtmpl , gribfield::ipdtmpl , gribfield::list_opt , and gribfield::local .
+
+
+
+
+
NCEPLIBS-g2c: g2_free.c Source File
+
+
+
+
+
+
+ NCEPLIBS-g2c
+ 1.6.4
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
Go to the documentation of this file.
+
+
+
+
+
+
+
+
+
+
+
+
+
+
33 if (gfld->
bmap != 0 ) free(gfld->
bmap );
+
34 if (gfld->
fld != 0 ) free(gfld->
fld );
+
+
+
+
+
void g2_free(gribfield *gfld)
This routine frees up memory that was allocated for struct gribfield.
+
Header file for NCEPLIBS-g2c library.
+
g2float * coord_list
Array containing floating point values intended to document the vertical discretisation associated to...
+
g2int * ipdtmpl
Contains the data values for the Product Definition Template specified by ipdtnum.
+
g2int * igdtmpl
Contains the data values for the Grid Definition Template specified by igdtnum.
+
g2int * idrtmpl
Contains the data values for the Data Representation Template specified by idrtnum.
+
g2int * list_opt
(Used if numoct_opt .ne.
+
g2int * idsect
Contains the entries in the Identification Section (Section 1).
+
g2float * fld
Array of ndpts unpacked data points.
+
unsigned char * local
Pointer to character array containing contents of Local Section 2, if included.
+
g2int * bmap
Integer array containing decoded bitmap, if ibmap=0 or ibap=254.
+
+
+
NCEPLIBS-g2c: g2_getfld.c File Reference
+
+
+
+
+
+
+ NCEPLIBS-g2c
+ 1.6.4
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
Return all the metadata, template values, Bit-map (if applicable), and the unpacked data for a given data field.
+More...
+
#include <stdio.h>
+
#include <stdlib.h>
+
#include "grib2.h "
+
+
Go to the source code of this file.
+
+g2int g2_getfld (unsigned char *cgrib, g2int ifldnum, g2int unpack, g2int expand, gribfield **gfld) This subroutine returns all the metadata, template values, bit-map (if applicable), and the unpacked data for a given data field. More... g2int g2_unpack1 (unsigned char *, g2int *, g2int **, g2int *) This subroutine unpacks Section 1 - Identification Section as defined in GRIB Edition 2. More... g2int g2_unpack2 (unsigned char *, g2int *, g2int *, unsigned char **) This subroutine unpacks Section 2 (Local Use Section) as defined in GRIB Edition 2. More... g2int g2_unpack3 (unsigned char *, g2int *, g2int **, g2int **, g2int *, g2int **, g2int *) This routine unpacks Section 3 (Grid Definition Section) as defined in GRIB Edition 2. More... g2int g2_unpack4 (unsigned char *, g2int *, g2int *, g2int **, g2int *, g2float **, g2int *) This subroutine unpacks Section 4 (Product Definition Section) as defined in GRIB Edition 2. More... g2int g2_unpack5 (unsigned char *, g2int *, g2int *, g2int *, g2int **, g2int *) This subroutine unpacks Section 5 (Data Representation Section) as defined in GRIB Edition 2. More... g2int g2_unpack6 (unsigned char *, g2int *, g2int , g2int *, g2int **) This subroutine unpacks Section 6 (Bit-Map Section) as defined in GRIB Edition 2. More... g2int g2_unpack7 (unsigned char *, g2int *, g2int , g2int *, g2int , g2int *, g2int , g2float **) This subroutine unpacks Section 7 (Data Section) as defined in GRIB Edition 2. More...
+
+
Return all the metadata, template values, Bit-map (if applicable), and the unpacked data for a given data field.
+
Author Stephen Gilbert
+
Date 2002-10-28
+
+
Definition in file g2_getfld.c .
+
+
+
◆
+
+
+
+
+
+ g2int g2_getfld (
+ unsigned char *
+ cgrib ,
+
+ g2int ifldnum ,
+
+ g2int unpack ,
+
+ g2int expand ,
+
+ gribfield ** gfld
+
+ )
+
+
+
+
+
This subroutine returns all the metadata, template values, bit-map (if applicable), and the unpacked data for a given data field.
+
All of the information returned is stored in a gribfield structure, which is defined in file grib2.h . Users of this routine will need to include grib2.h in their source code that calls this routine.
+
Since there can be multiple data fields packed into a GRIB2 message, the calling routine indicates which field is being requested with the ifldnum argument.
+
+
+
+Date Programmer Comments
+
+2002-10-28 Gilbert Initial
+
+2013-08-08 Vuong Free up memory in array igds - free(igds)
+
+
Parameters
+
+ cgrib Character pointer to the GRIB2 message. ifldnum Specifies which field in the GRIB2 message to return. The first field is number 1, Fortran style. unpack Boolean value indicating whether to unpack bitmap/data field.
+1 unpack bitmap (if present) and data values.
+0 do not unpack bitmap and data values.
+
+ expand Boolean value indicating whether the data points should be expanded to the correspond grid, if a bit-map is present. This argument is ignored if unpack == 0 OR if the returned field does not contain a bit-map.
+1 if possible, expand data field to grid, inserting zero values at gridpoints that are bitmapped out. (SEE REMARKS2)
+0 do not expand data field, leaving it an array of consecutive data points for each "1" in the bitmap.
+
+ gfld pointer to structure gribfield containing all decoded data for the data field.
+
+
+
Returns
+0 no error
+1 Beginning characters "GRIB" not found.
+2 GRIB message is not Edition 2.
+3 The data field request number was not positive.
+4 End string "7777" found, but not where expected.
+6 GRIB message did not contain the requested number of data fields.
+7 End string "7777" not found at end of message.
+8 Unrecognized Section encountered.
+9 Data Representation Template 5.NN not yet implemented.
+15 Error unpacking Section 1.
+16 Error unpacking Section 2.
+10 Error unpacking Section 3.
+11 Error unpacking Section 4.
+12 Error unpacking Section 5.
+13 Error unpacking Section 6.
+14 Error unpacking Section 7.
+17 Previous bitmap specified, yet none exists.
+
+
+
Note Struct gribfield is allocated by this routine and it also contains pointers to many arrays of data that were allocated during decoding. Users are encouraged to free up this memory, when it is no longer needed, by an explicit call to routine g2_free() .
+
+
+
+
+
...
+
g2_free(gfld);
+
g2int g2_getfld(unsigned char *cgrib, g2int ifldnum, g2int unpack, g2int expand, gribfield **gfld)
This subroutine returns all the metadata, template values, bit-map (if applicable),...
+
Header file for NCEPLIBS-g2c library.
+
+
Routine g2_info() can be used to first determine how many data fields exist in a given GRIB message.
+
Note It may not always be possible to expand a bit-mapped data field. If a pre-defined bit-map is used and not included in the GRIB2 message itself, this routine would not have the necessary information to expand the data. In this case, gfld->expanded would would be set to 0 (false), regardless of the value of input argument expand.
+
Author Stephen Gilbert
+
Date 2002-10-28
+
+
Definition at line 102 of file g2_getfld.c .
+
+
References gribfield::bmap , gribfield::coord_list , gribfield::discipline , gribfield::expanded , gribfield::fld , g2_unpack1() , g2_unpack2() , g2_unpack3() , g2_unpack4() , g2_unpack5() , g2_unpack6() , g2_unpack7() , gbit() , gribfield::griddef , gribfield::ibmap , gribfield::idrtlen , gribfield::idrtmpl , gribfield::idrtnum , gribfield::idsect , gribfield::idsectlen , gribfield::ifldnum , gribfield::igdtlen , gribfield::igdtmpl , gribfield::igdtnum , gribfield::interp_opt , gribfield::ipdtlen , gribfield::ipdtmpl , gribfield::ipdtnum , gribfield::list_opt , gribfield::local , gribfield::locallen , gribfield::ndpts , gribfield::ngrdpts , gribfield::num_coord , gribfield::num_opt , gribfield::numoct_opt , gribfield::unpacked , and gribfield::version .
+
+
+
+
+
◆
+
+
+
+
+
+ g2int g2_unpack1 (
+ unsigned char *
+ cgrib ,
+
+ g2int * iofst ,
+
+ g2int ** ids ,
+
+ g2int * idslen
+
+ )
+
+
+
+
+
This subroutine unpacks Section 1 - Identification Section as defined in GRIB Edition 2.
+
Parameters
+
+ cgrib char array containing Section 1 of the GRIB2 message. iofst Bit offset for the beginning of Section 1 in cgrib. ids Pointer that gets an array which contians the information read from Section 1, the Identification section. This array is allocated by this function, and must be freed by caller (using g2_free() ).
+ids[0] Identification of originating Centre (see Table 0 ).
+ids[1] Identification of originating Sub-centre (see Table C ).
+ids[2] GRIB Master Tables Version Number (see Table 1.0 ).
+ids[3] GRIB Local Tables Version Number (see Table 1.1 ).
+ids[4] Significance of Reference Time (see Table 1.2 ).
+ids[5] Year (4 digits)
+ids[6] Month
+ids[7] Day
+ids[8] Hour
+ids[9] Minute
+ids[10] Second
+ids[11] Production status of processed data (see Table 1.3 ).
+ids[12] Type of processed data (see Table 1.4 ).
+
+ idslen Number of elements in ids.
+
+
+
Returns
+0 no error
+2 Array passed is not section 1
+6 memory allocation error
+
+
+
Author Stephen Gilbert
+
Date 2002-10-29
+
+
Definition at line 55 of file g2_unpack1.c .
+
+
References gbit() .
+
+
Referenced by g2_getfld() .
+
+
+
+
+
◆
+
+
+
+
+
+ g2int g2_unpack2 (
+ unsigned char *
+ cgrib ,
+
+ g2int * iofst ,
+
+ g2int * lencsec2 ,
+
+ unsigned char **
+ csec2
+
+ )
+
+
+
+
+
This subroutine unpacks Section 2 (Local Use Section) as defined in GRIB Edition 2.
+
+
+
+Date Programmer Comments
+
+2002-10-31 Gilbert Initial
+
+2008-12-23 Wesley Initialize lencsec2 Length of Local Use data
+
+2010-08-05 Vuong If section 2 has zero length, ierr=0
+
+
Parameters
+
+ cgrib char array containing Section 2 of the GRIB2 message. iofst Bit offset for the beginning of Section 2 in cgrib. The modified version will be returned. lencsec2 Length (in octets) of Local Use data. csec2 Pointer to a char array containing local use data.
+
+
+
Returns
+0 no error
+2 Array passed is not section 2
+6 memory allocation error
+
+
+
Author Stephen Gilbert
+
Date 2002-10-31
+
+
Definition at line 37 of file g2_unpack2.c .
+
+
References gbit() .
+
+
Referenced by g2_getfld() .
+
+
+
+
+
◆
+
+
+
+
+
+ g2int g2_unpack3 (
+ unsigned char *
+ cgrib ,
+
+ g2int * iofst ,
+
+ g2int ** igds ,
+
+ g2int ** igdstmpl ,
+
+ g2int * mapgridlen ,
+
+ g2int ** ideflist ,
+
+ g2int * idefnum
+
+ )
+
+
+
+
+
This routine unpacks Section 3 (Grid Definition Section) as defined in GRIB Edition 2.
+
+
+
+Date Programmer Comments
+
+2002-10-31 Gilbert Initial
+
+2009-01-14 Vuong Changed structure name template to gtemplate
+
+
Parameters
+
+ cgrib Char array ontaining Section 3 of the GRIB2 message. iofst Bit offset for the beginning of Section 3 in cgrib. igds Contains information read from the appropriate GRIB Grid Definition Section 3 for the field being returned.
+igds[0] Source of grid definition (see Table 3.0 ).
+igds[1] Number of grid points in the defined grid.
+igds[2] Number of octets needed for each additional grid points definition. Used to define number of points in each row (or column) for non-regular grids. = 0, if using regular grid.
+igds[3] Interpretation of list for optional points definition. (See Table 3.11 )
+igds[4] Grid Definition Template Number (see Table 3.1 ).
+
+ igdstmpl Pointer to integer array containing the data values for the Grid Definition Template specified by igds[4]. mapgridlen Number of elements in igdstmpl. i.e. number of entries in Grid Defintion Template specified by igds[4]. ideflist (Used if igds[2] .ne. 0) Pointer to integer array containing the number of grid points contained in each row (or column). idefnum (Used if igds[2] .ne. 0) The number of entries in array ideflist - i.e. number of rows (or columns) for which optional grid points are defined.
+
+
+
Returns
+0 no error
+2 Not Section 3
+5 message contains an undefined Grid Definition Template.
+6 memory allocation error
+
+
+
Author Stephen Gilbert
+
Date 2002-10-31
+
+
Definition at line 57 of file g2_unpack3.c .
+
+
References gtemplate::ext , extgridtemplate() , gtemplate::extlen , gbit() , gbits() , getgridtemplate() , gtemplate::map , gtemplate::maplen , and gtemplate::needext .
+
+
Referenced by g2_getfld() , getdim() , and getpoly() .
+
+
+
+
+
◆
+
+
+
+
+
+ g2int g2_unpack4 (
+ unsigned char *
+ cgrib ,
+
+ g2int * iofst ,
+
+ g2int * ipdsnum ,
+
+ g2int ** ipdstmpl ,
+
+ g2int * mappdslen ,
+
+ g2float ** coordlist ,
+
+ g2int * numcoord
+
+ )
+
+
+
+
+
This subroutine unpacks Section 4 (Product Definition Section) as defined in GRIB Edition 2.
+
+
+
+Date Programmer Comments
+
+2002-10-31 Gilbert Initial
+
+2009-01-14 Vuong Changed structure name template to gtemplate
+
+
Parameters
+
+ cgrib Array containing Section 4 of the GRIB2 message. iofst Bit offset of the beginning of Section 4 in cgrib. Returned with updated bit offset. ipdsnum Product Definition Template Number (see Table 4.0 ). ipdstmpl Pointer that gets an integer array containing the data values for the Product Definition Template specified by ipdsnum. mappdslen Number of elements in ipdstmpl - i.e. number of entries in Product Defintion Template specified by ipdsnum. coordlist Pointer that gets an array containing floating point values intended to document the vertical discretisation associated to model data on hybrid coordinate vertical levels. numcoord number of values in array coordlist.
+
+
+
Returns
+0 no error
+2 Not section 4
+5 "GRIB" message contains an undefined Product Definition Template.
+6 memory allocation error
+
+
+
Author Stephen Gilbert
+
Date 2002-10-31
+
+
Definition at line 45 of file g2_unpack4.c .
+
+
References gtemplate::ext , gtemplate::extlen , extpdstemplate() , gbit() , gbits() , getpdstemplate() , gtemplate::map , gtemplate::maplen , gtemplate::needext , and rdieee() .
+
+
Referenced by g2_getfld() .
+
+
+
+
+
◆
+
+
+
+
+
+ g2int g2_unpack5 (
+ unsigned char *
+ cgrib ,
+
+ g2int * iofst ,
+
+ g2int * ndpts ,
+
+ g2int * idrsnum ,
+
+ g2int ** idrstmpl ,
+
+ g2int * mapdrslen
+
+ )
+
+
+
+
+
This subroutine unpacks Section 5 (Data Representation Section) as defined in GRIB Edition 2.
+
+
+
+Date Programmer Comments
+
+2002-10-31 Gilbert Initial
+
+2009-01-14 Vuong Changed structure name template to gtemplate
+
+
Parameters
+
+ cgrib char array containing Section 5 of the GRIB2 message. iofst Bit offset for the beginning of Section 5 in cgrib. Returned with bit offset at the end of Section 5. ndpts Number of data points unpacked and returned. idrsnum Data Representation Template Number (see Code Table 5.0). idrstmpl Pointer to an integer array containing the data values for the specified Data Representation Template (N=idrsnum). Each element of this integer array contains an entry (in the order specified) of Data Representation Template 5.N. mapdrslen- Number of elements in idrstmpl. i.e. number of entries in Data Representation Template 5.N (N=idrsnum).
+
+
+
Returns
+0 no error
+2 Not Section 5
+6 memory allocation error
+7 "GRIB" message contains an undefined Data Representation Template.
+
+
+
Author Stephen Gilbert
+
Date 2002-10-31
+
+
Definition at line 42 of file g2_unpack5.c .
+
+
References gtemplate::ext , extdrstemplate() , gtemplate::extlen , gbit() , getdrstemplate() , gtemplate::map , gtemplate::maplen , and gtemplate::needext .
+
+
Referenced by g2_getfld() .
+
+
+
+
+
◆
+
+
+
+
+
+ g2int g2_unpack6 (
+ unsigned char *
+ cgrib ,
+
+ g2int * iofst ,
+
+ g2int ngpts ,
+
+ g2int * ibmap ,
+
+ g2int ** bmap
+
+ )
+
+
+
+
+
This subroutine unpacks Section 6 (Bit-Map Section) as defined in GRIB Edition 2.
+
Parameters
+
+ cgrib char array containing Section 6 of the GRIB2 message. iofst Bit offset of the beginning of Section 6 in cgrib. ngpts Number of grid points specified in the bit-map ibmap Bitmap indicator (see Code Table 6.0)
+0 bitmap applies and is included in Section 6.
+1-253 Predefined bitmap applies
+254 Previously defined bitmap applies to this field
+255 Bit map does not apply to this product.
+
+ bmap Pointer to an integer array containing decoded bitmap. (if ibmap=0)
+
+
+
Returns
+0 no error
+2 Not Section 6
+4 Unrecognized pre-defined bit-map.
+6 memory allocation error
+
+
+
Author Stephen Gilbert
+
Date 2002-10-31
+
+
Definition at line 33 of file g2_unpack6.c .
+
+
References gbit() , and gbits() .
+
+
Referenced by g2_getfld() .
+
+
+
+
+
◆
+
+
+
+
+
+ g2int g2_unpack7 (
+ unsigned char *
+ cgrib ,
+
+ g2int * iofst ,
+
+ g2int igdsnum ,
+
+ g2int * igdstmpl ,
+
+ g2int idrsnum ,
+
+ g2int * idrstmpl ,
+
+ g2int ndpts ,
+
+ g2float ** fld
+
+ )
+
+
+
+
+
This subroutine unpacks Section 7 (Data Section) as defined in GRIB Edition 2.
+
+
+
+Date Programmer Comments
+
+2002-10-31 Gilbert Initial
+
+2002-12-20 Gilbert Added GDT info to arguments and added 5.51 processing.
+
+2003-08-29 Gilbert New templates using PNG and JPEG2000 algorithms/templates.
+
+2004-11-29 Gilbert JPEG2000 now allowed to use WMO Template 5.40 PNG allowed to use 5.41
+
+2004-12-16 Taylor Added check on comunpack return code.
+
+2008-12-23 Wesley Initialize Number of data points unpacked
+
+
Parameters
+
+ cgrib char array containing Section 7 of the GRIB2 message iofst Bit offset of the beginning of Section 7 in cgrib. igdsnum Grid Definition Template Number (see Code Table 3.0) (Only used for DRS Template 5.51) igdstmpl Pointer to an integer array containing the data values for the specified Grid Definition Template (N=igdsnum). Each element of this integer array contains an entry (in the order specified) of Grid Definition Template 3.N. (Only used for DRS Template 5.51). idrsnum Data Representation Template Number (see Code Table 5.0) idrstmpl Pointer to an integer array containing the data values for the specified Data Representation Template (N=idrsnum). Each element of this integer array contains an entry (in the order specified) of Data Representation Template 5.N ndpts Number of data points unpacked and returned. fld Pointer to a float array containing the unpacked data field.
+
+
+
Returns
+0 no error
+2 Not section 7
+4 Unrecognized Data Representation Template
+5 need one of GDT 3.50 through 3.53 to decode DRT 5.51
+6 memory allocation error
+7 corrupt section 7.
+
+
+
Author Stephen Gilbert
+
Date 2002-10-31
+
+
Definition at line 65 of file g2_unpack7.c .
+
+
References comunpack() , gbit() , jpcunpack() , pngunpack() , rdieee() , simunpack() , and specunpack() .
+
+
Referenced by g2_getfld() .
+
+
+
+
+
NCEPLIBS-g2c: g2_getfld.c Source File
+
+
+
+
+
+
+ NCEPLIBS-g2c
+ 1.6.4
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
Go to the documentation of this file.
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
106 g2int have3 = 0, have4 = 0, have5 = 0, have6 = 0, have7 = 0, ierr = 0, jerr;
+
107 g2int numfld = 0, j, n, istart, iofst, ipos;
+
108 g2int disc, ver, lensec0, lengrib, lensec, isecnum;
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
130 printf(
"g2_getfld: Request for field number must be positive.\n" );
+
+
+
+
+
+
+
137 for (j = 0; j < 100; j++) {
+
138 if (cgrib[j] ==
'G' && cgrib[j + 1] ==
'R' &&cgrib[j + 2] ==
'I' &&
+
139 cgrib[j + 3] ==
'B' ) {
+
+
+
+
+
+
145 printf(
"g2_getfld: Beginning characters GRIB not found.\n" );
+
+
+
+
+
+
151 iofst = 8 * (istart + 6);
+
152 gbit (cgrib, &disc, iofst, 8);
+
+
154 gbit (cgrib, &ver, iofst, 8);
+
+
+
157 gbit (cgrib, &lengrib, iofst, 32);
+
+
+
160 ipos = istart + lensec0;
+
+
+
+
164 printf(
"g2_getfld: can only decode GRIB edition 2.\n" );
+
+
+
+
+
+
+
+
+
+
174 if (cgrib[ipos] ==
'7' && cgrib[ipos+1] ==
'7' && cgrib[ipos+2] ==
'7' &&
+
175 cgrib[ipos+3] ==
'7' ) {
+
+
+
178 if (ipos != (istart+lengrib)) {
+
179 printf(
"g2_getfld: '7777' found, but not where expected.\n" );
+
+
+
+
+
+
+
186 iofst = (ipos - 1) * 8;
+
+
188 gbit (cgrib, &lensec, iofst, 32);
+
+
190 gbit (cgrib, &isecnum, iofst, 8);
+
+
+
+
+
195 if (isecnum < 1 || isecnum > 7) {
+
196 printf(
"g2_getfld: Unrecognized Section Encountered=%ld\n" , isecnum);
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
215 if (lgfld->
local != 0)
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
252 if (numfld == ifldnum) {
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
273 if (isecnum == 5 && numfld == ifldnum) {
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
290 bmpsave = lgfld->
bmap ;
+
+
+
+
+
295 if (lgfld->
ibmap == 254)
+
+
297 lgfld->
bmap = bmpsave;
+
+
299 printf(
"g2_getfld: Prev bit-map specified, but none exist.\n" );
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
320 if (isecnum == 7 && numfld == ifldnum && unpack) {
+
+
+
+
+
+
+
+
+
329 if (lgfld->
ibmap != 255 && lgfld->
bmap != 0) {
+
+
+
+
333 for (j = 0;j<lgfld->
ngrdpts ;j++) {
+
334 if (lgfld->
bmap [j] == 1)
+
335 newfld[j] = lgfld->
fld [n++];
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
350 printf(
"g2_getfld: return from g2_unpack7 = %d \n" , (
int )jerr);
+
+
+
+
+
+
+
+
358 ipos = ipos + lensec;
+
359 if (ipos > (istart + lengrib)) {
+
360 printf(
"g2_getfld: '7777' not found at end of GRIB message.\n" );
+
+
+
+
+
+
+
367 if (unpack && have3 && have4 && have5 && have6 && have7)
+
+
+
+
+
372 if ((!unpack) && have3 && have4 && have5 && have6)
+
+
+
+
+
+
+
379 printf(
"g2_getfld: GRIB message contained %ld different fields.\n" , numfld);
+
380 printf(
"g2_getfld: The request was for field %ld.\n" , ifldnum);
+
+
+
+
+
+
g2int g2_unpack7(unsigned char *, g2int *, g2int, g2int *, g2int, g2int *, g2int, g2float **)
This subroutine unpacks Section 7 (Data Section) as defined in GRIB Edition 2.
+
g2int g2_unpack6(unsigned char *, g2int *, g2int, g2int *, g2int **)
This subroutine unpacks Section 6 (Bit-Map Section) as defined in GRIB Edition 2.
+
g2int g2_unpack1(unsigned char *, g2int *, g2int **, g2int *)
This subroutine unpacks Section 1 - Identification Section as defined in GRIB Edition 2.
+
g2int g2_unpack5(unsigned char *, g2int *, g2int *, g2int *, g2int **, g2int *)
This subroutine unpacks Section 5 (Data Representation Section) as defined in GRIB Edition 2.
+
g2int g2_unpack2(unsigned char *, g2int *, g2int *, unsigned char **)
This subroutine unpacks Section 2 (Local Use Section) as defined in GRIB Edition 2.
+
g2int g2_unpack3(unsigned char *, g2int *, g2int **, g2int **, g2int *, g2int **, g2int *)
This routine unpacks Section 3 (Grid Definition Section) as defined in GRIB Edition 2.
+
g2int g2_unpack4(unsigned char *, g2int *, g2int *, g2int **, g2int *, g2float **, g2int *)
This subroutine unpacks Section 4 (Product Definition Section) as defined in GRIB Edition 2.
+
g2int g2_getfld(unsigned char *cgrib, g2int ifldnum, g2int unpack, g2int expand, gribfield **gfld)
This subroutine returns all the metadata, template values, bit-map (if applicable),...
+
void gbit(unsigned char *in, g2int *iout, g2int iskip, g2int nbyte)
Get bits - unpack bits: Extract arbitrary size values from a packed bit string, right justifying each...
+
Header file for NCEPLIBS-g2c library.
+
g2int igdtnum
Grid Definition Template Number (See Table 3.1).
+
g2int locallen
Length of array local.
+
g2int ibmap
Bitmap indicator (see Table 6.0).
+
g2int interp_opt
Interpretation of list for optional points definition.
+
g2int ngrdpts
Number of grid points in the defined grid.
+
g2int ifldnum
Field number within GRIB message.
+
g2float * coord_list
Array containing floating point values intended to document the vertical discretisation associated to...
+
+
g2int griddef
Source of grid definition (see Table 3.0).
+
g2int ipdtnum
Product Definition Template Number (see Table 4.0).
+
g2int * ipdtmpl
Contains the data values for the Product Definition Template specified by ipdtnum.
+
g2int discipline
Message Discipline (see Table 0.0).
+
g2int numoct_opt
Number of octets needed for each additional grid points definition.
+
g2int idrtlen
Number of elements in idrtmpl.
+
g2int unpacked
Logical value indicating whether the bitmap and data values were unpacked.
+
g2int idsectlen
Number of elements in idsect.
+
g2int ipdtlen
Number of elements in ipdtmpl - i.e.
+
g2int * igdtmpl
Contains the data values for the Grid Definition Template specified by igdtnum.
+
g2int idrtnum
Data Representation Template Number (see Table 5.0).
+
g2int ndpts
Number of data points unpacked and returned.
+
g2int * idrtmpl
Contains the data values for the Data Representation Template specified by idrtnum.
+
g2int * list_opt
(Used if numoct_opt .ne.
+
g2int version
GRIB edition number (2).
+
g2int * idsect
Contains the entries in the Identification Section (Section 1).
+
g2float * fld
Array of ndpts unpacked data points.
+
g2int num_coord
Number of values in array coord_list.
+
unsigned char * local
Pointer to character array containing contents of Local Section 2, if included.
+
g2int expanded
Logical value indicating whether the data field was expanded to the grid in the case where a bit-map ...
+
g2int num_opt
(Used if numoct_opt .ne.
+
g2int igdtlen
Number of elements in igdtmpl - i.e.
+
g2int * bmap
Integer array containing decoded bitmap, if ibmap=0 or ibap=254.
+
int64_t g2int
Long integer type.
+
+
+
NCEPLIBS-g2c: g2_gribend.c File Reference
+
+
+
+
+
+
+ NCEPLIBS-g2c
+ 1.6.4
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
Finalize a GRIB2 message after all grids and fields have been added.
+More...
+
#include <stdio.h>
+
#include "grib2.h "
+
+
Go to the source code of this file.
+
+g2int g2_gribend (unsigned char *cgrib) This routine finalizes a GRIB2 message after all grids and fields have been added. More...
+
+
Finalize a GRIB2 message after all grids and fields have been added.
+
Author Stephen Gilbert
+
Date 2002-10-31
+
+
Definition in file g2_gribend.c .
+
+
+
◆
+
+
+
+
+
+ g2int g2_gribend (
+ unsigned char *
+ cgrib )
+
+
+
+
+
This routine finalizes a GRIB2 message after all grids and fields have been added.
+
It adds the End Section ("7777") to the end of the GRIB message and calculates the length and stores it in the appropriate place in Section 0. This routine is used with routines g2_create() , g2_addlocal() , g2_addgrid() , and g2_addfield() to create a complete GRIB2 message.
+
Parameters
+
+
+
+
Returns
+> 0 Length of the final GRIB2 message in bytes.
+-1 GRIB message was not initialized. Need to call routine g2_create first.
+-2 GRIB message already complete.
+-3 Sum of Section byte counts doesn't add to total byte count
+-4 Previous Section was not 7.
+
+
+
Note This routine is intended for use with routines g2_create() , g2_addlocal() , g2_addgrid() , and g2_addfield() to create a complete GRIB2 message.
+
Author Stephen Gilbert
+
Date 2002-10-31
+
+
Definition at line 35 of file g2_gribend.c .
+
+
References gbit() , and sbit() .
+
+
+
+
+
NCEPLIBS-g2c: g2_gribend.c Source File
+
+
+
+
+
+
+ NCEPLIBS-g2c
+ 1.6.4
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
Go to the documentation of this file.
+
+
+
+
+
+
+
38 g2int iofst, lencurr, len, ilen, isecnum;
+
39 g2int ierr = 0, lengrib;
+
40 static unsigned char G = 0x47;
+
41 static unsigned char R = 0x52;
+
42 static unsigned char I = 0x49;
+
43 static unsigned char B = 0x42;
+
44 static unsigned char seven = 0x37;
+
+
+
47 if (cgrib[0] != G || cgrib[1] != R || cgrib[2] != I || cgrib[3] != B) {
+
48 printf(
"g2_gribend: GRIB not found in given message.\n" );
+
+
+
+
+
+
54 gbit (cgrib, &lencurr, 96, 32);
+
+
+
+
+
+
+
+
62 gbit (cgrib, &ilen, iofst, 32);
+
+
64 gbit (cgrib, &isecnum, iofst, 8);
+
+
+
+
+
+
+
+
72 printf(
"g2_gribend: Section byte counts don''t add to total.\n" );
+
73 printf(
"g2_gribend: Sum of section byte counts = %d\n" , (
int )len);
+
74 printf(
"g2_gribend: Total byte count in Section 0 = %d\n" , (
int )lencurr);
+
+
+
+
+
+
+
+
82 printf(
"g2_gribend: Section 8 can only be added after Section 7.\n" );
+
83 printf(
"g2_gribend: Section %ld was the last found in given GRIB message.\n" , isecnum);
+
+
+
+
+
+
89 cgrib[lencurr] = seven;
+
90 cgrib[lencurr + 1] = seven;
+
91 cgrib[lencurr + 2] = seven;
+
92 cgrib[lencurr + 3] = seven;
+
+
+
95 lengrib = lencurr + 4;
+
96 sbit (cgrib, &lengrib, 96, 32);
+
+
+
+
+
g2int g2_gribend(unsigned char *cgrib)
This routine finalizes a GRIB2 message after all grids and fields have been added.
+
void gbit(unsigned char *in, g2int *iout, g2int iskip, g2int nbyte)
Get bits - unpack bits: Extract arbitrary size values from a packed bit string, right justifying each...
+
void sbit(unsigned char *out, g2int *in, g2int iskip, g2int nbyte)
Store bits - put arbitrary size values into a packed bit string, taking the low order bits from each ...
+
Header file for NCEPLIBS-g2c library.
+
int64_t g2int
Long integer type.
+
+
NCEPLIBS-g2c: g2_info.c File Reference
+
+
+
+
+
+
+ NCEPLIBS-g2c
+ 1.6.4
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
Search through a GRIB2 message and returns the number of gridded fields found in the message and the number (and maximum size) of Local Use Sections.
+More...
+
#include <stdio.h>
+
#include <stdlib.h>
+
#include "grib2.h "
+
+
Go to the source code of this file.
+
+g2int g2_info (unsigned char *cgrib, g2int *listsec0, g2int *listsec1, g2int *numfields, g2int *numlocal) This subroutine searches through a GRIB2 message and returns the number of gridded fields found in the message and the number (and maximum size) of Local Use Sections. More...
+
+
Search through a GRIB2 message and returns the number of gridded fields found in the message and the number (and maximum size) of Local Use Sections.
+
Author Stephen Gilbeert
+
Date 2002-10-28
+
+
Definition in file g2_info.c .
+
+
+
◆
+
+
+
+
+
+ g2int g2_info (
+ unsigned char *
+ cgrib ,
+
+ g2int * listsec0 ,
+
+ g2int * listsec1 ,
+
+ g2int * numfields ,
+
+ g2int * numlocal
+
+ )
+
+
+
+
+
This subroutine searches through a GRIB2 message and returns the number of gridded fields found in the message and the number (and maximum size) of Local Use Sections.
+
Also various checks are performed to see if the message is a valid GRIB2 message.
+
Parameters
+
+ cgrib Character pointer to the GRIB2 message. listsec0 pointer to an array containing information decoded from GRIB Indicator Section 0. Must be allocated with >= 3 elements.
+listsec0(0) Discipline-GRIB Master Table Number (Code Table 0.0 ).
+listsec0[1] GRIB Edition Number (currently 2).
+listsec0[2] Length of GRIB message.
+
+ listsec1 Pointer to an array containing information read from GRIB Identification Section 1. Must be allocated with >= 13 elements.
+listsec1[0] Id of orginating centre (Table 0 ).
+listsec1[1] Id of orginating sub-centre (Table C ).
+listsec1[2] GRIB Master Tables Version Number (Table 1.0 ).
+listsec1[3] GRIB Local Tables Version Number (Table 1.1 ).
+listsec1[4] Significance of Reference Time (Table 1.2 )
+listsec1[5] Reference Time - Year (4 digits)
+listsec1[6] Reference Time - Month
+listsec1[7] Reference Time - Day
+listsec1[8] Reference Time - Hour
+listsec1[9] Reference Time - Minute
+listsec1[10] Reference Time - Second
+listsec1[11] Production status of data (Table 1.3 ).
+listsec1[12] Type of processed data (Table 1.4 ).
+
+ numfields The number of gridded fields found in the GRIB message. That is, the number of occurences of Sections 4 - 7. numlocal The number of Local Use Sections ( Section 2 ) found in the GRIB message.
+
+
+
Returns 0 foe success, otherwise:
+1 Beginning characters "GRIB" not found.
+2 GRIB message is not Edition 2.
+3 Could not find Section 1, where expected.
+4 End string "7777" found, but not where expected.
+5 End string "7777" not found at end of message.
+6 Invalid section number found.
+
+
+
Author Stephen Gilbeert
+
Date 2002-10-28
+
+
Definition at line 67 of file g2_info.c .
+
+
References gbit() .
+
+
+
+
+
NCEPLIBS-g2c: g2_info.c Source File
+
+
+
+
+
+
+ NCEPLIBS-g2c
+ 1.6.4
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
Go to the documentation of this file.
+
+
+
+
+
+
+
+
+
70 g2int ierr, mapsec1len = 13;
+
71 g2int mapsec1[13] = {2, 2, 1, 1, 1, 2, 1, 1, 1, 1, 1, 1, 1};
+
72 g2int i, j, istart, iofst, lengrib, lensec0, lensec1;
+
73 g2int ipos, isecnum, nbits, lensec;
+
+
+
+
+
+
+
+
81 for (j = 0; j < 100; j++)
+
+
83 if (cgrib[j] ==
'G' && cgrib[j + 1] ==
'R' && cgrib[j + 2] ==
'I' &&
+
+
+
+
+
+
+
+
+
92 printf(
"g2_info: Beginning characters GRIB not found." );
+
+
+
+
+
+
98 iofst = 8 * (istart + 6);
+
99 gbit (cgrib, listsec0, iofst, 8);
+
+
101 gbit (cgrib, listsec0 + 1, iofst, 8);
+
+
+
104 gbit (cgrib, &lengrib, iofst, 32);
+
+
106 listsec0[2] = lengrib;
+
+
108 ipos = istart + lensec0;
+
+
+
111 if (listsec0[1] != 2)
+
+
113 printf(
"g2_info: can only decode GRIB edition 2." );
+
+
+
+
+
+
119 gbit (cgrib, &lensec1, iofst, 32);
+
+
121 gbit (cgrib, &isecnum, iofst, 8);
+
+
+
+
125 printf(
"g2_info: Could not find section 1." );
+
+
+
+
+
+
+
+
133 for (i = 0;i<mapsec1len;i++)
+
+
135 nbits = mapsec1[i]*8;
+
136 gbit (cgrib, listsec1 + i, iofst, nbits);
+
137 iofst = iofst + nbits;
+
+
139 ipos = ipos + lensec1;
+
+
+
+
+
+
+
146 if (cgrib[ipos]==
'7' && cgrib[ipos + 1]==
'7' && cgrib[ipos + 2]==
'7' &&
+
147 cgrib[ipos + 3]==
'7' )
+
+
+
150 if (ipos != (istart + lengrib))
+
+
152 printf(
"g2_info: '7777' found, but not where expected.\n" );
+
+
+
+
+
+
+
+
160 gbit (cgrib, &lensec, iofst, 32);
+
+
162 gbit (cgrib, &isecnum, iofst, 8);
+
+
164 ipos = ipos + lensec;
+
165 if (ipos > (istart + lengrib))
+
+
167 printf(
"g2_info: '7777' not found at end of GRIB message.\n" );
+
+
+
+
171 if ( isecnum>=2 && isecnum<=7 )
+
+
+
+
+
+
177 else if (isecnum == 4)
+
+
+
+
+
+
183 printf(
"g2_info: Invalid section number found in GRIB message: %ld\n" , isecnum);
+
+
+
+
+
+
+
+
+
g2int g2_info(unsigned char *cgrib, g2int *listsec0, g2int *listsec1, g2int *numfields, g2int *numlocal)
This subroutine searches through a GRIB2 message and returns the number of gridded fields found in th...
+
void gbit(unsigned char *in, g2int *iout, g2int iskip, g2int nbyte)
Get bits - unpack bits: Extract arbitrary size values from a packed bit string, right justifying each...
+
Header file for NCEPLIBS-g2c library.
+
int64_t g2int
Long integer type.
+
+
NCEPLIBS-g2c: g2_miss.c File Reference
+
+
+
+
+
+
+ NCEPLIBS-g2c
+ 1.6.4
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
Check the Data Representation Template to see if missing value management is used, and returns the missing value(s) in the data field.
+More...
+
+
Go to the source code of this file.
+
+void g2_miss (gribfield *gfld, float *rmiss, int *nmiss) This routine checks the Data Representation Template to see if missing value management is used, and returns the missing value(s) in the data field. More...
+
+
Check the Data Representation Template to see if missing value management is used, and returns the missing value(s) in the data field.
+
Author Stephen Gilbeert
+
Date 2004-12-16
+
+
Definition in file g2_miss.c .
+
+
+
◆
+
+
+
+
+
+ void g2_miss
+ (
+ gribfield * gfld ,
+
+ float *
+ rmiss ,
+
+ int *
+ nmiss
+
+ )
+
+
+
+
+
This routine checks the Data Representation Template to see if missing value management is used, and returns the missing value(s) in the data field.
+
Parameters
+
+ gfld pointer to gribfield structure. rmiss List of the missing values used. nmiss NUmber of the missing values included in the field. rmiss must be allocated in the calling program with enough space hold all the missing values.
+
+
+
Author Stephen Gilbeert
+
Date 2004-12-16
+
+
Definition at line 24 of file g2_miss.c .
+
+
References gribfield::idrtmpl , gribfield::idrtnum , and rdieee() .
+
+
+
+
+
NCEPLIBS-g2c: g2_miss.c Source File
+
+
+
+
+
+
+ NCEPLIBS-g2c
+ 1.6.4
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
Go to the documentation of this file.
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
43 rmiss[0] = (float)gfld->
idrtmpl [7];
+
+
+
+
+
+
+
+
+
+
+
+
55 rmiss[0] = (float)gfld->
idrtmpl [7];
+
56 rmiss[1] = (
float )gfld->
idrtmpl [8];
+
+
+
+
+
+
+
+
void g2_miss(gribfield *gfld, float *rmiss, int *nmiss)
This routine checks the Data Representation Template to see if missing value management is used,...
+
Header file for NCEPLIBS-g2c library.
+
g2int idrtnum
Data Representation Template Number (see Table 5.0).
+
g2int * idrtmpl
Contains the data values for the Data Representation Template specified by idrtnum.
+
int64_t g2int
Long integer type.
+
+
void rdieee(g2int *rieee, g2float *a, g2int num)
This subroutine reads a list of real values in 32-bit IEEE floating point format.
+
+
NCEPLIBS-g2c: g2_unpack1.c File Reference
+
+
+
+
+
+
+ NCEPLIBS-g2c
+ 1.6.4
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
Unpack Section 1 (Identification Section) as defined in GRIB Edition 2.
+More...
+
#include <stdio.h>
+
#include <stdlib.h>
+
#include "grib2.h "
+
+
Go to the source code of this file.
+
+
+
Unpack Section 1 (Identification Section) as defined in GRIB Edition 2.
+
Author Stephen Gilbert
+
Date 2002-10-29
+
+
Definition in file g2_unpack1.c .
+
+
+
◆
+
+
+
+
+
+ g2int g2_unpack1 (
+ unsigned char *
+ cgrib ,
+
+ g2int * iofst ,
+
+ g2int ** ids ,
+
+ g2int * idslen
+
+ )
+
+
+
+
+
This subroutine unpacks Section 1 - Identification Section as defined in GRIB Edition 2.
+
Parameters
+
+ cgrib char array containing Section 1 of the GRIB2 message. iofst Bit offset for the beginning of Section 1 in cgrib. ids Pointer that gets an array which contians the information read from Section 1, the Identification section. This array is allocated by this function, and must be freed by caller (using g2_free() ).
+ids[0] Identification of originating Centre (see Table 0 ).
+ids[1] Identification of originating Sub-centre (see Table C ).
+ids[2] GRIB Master Tables Version Number (see Table 1.0 ).
+ids[3] GRIB Local Tables Version Number (see Table 1.1 ).
+ids[4] Significance of Reference Time (see Table 1.2 ).
+ids[5] Year (4 digits)
+ids[6] Month
+ids[7] Day
+ids[8] Hour
+ids[9] Minute
+ids[10] Second
+ids[11] Production status of processed data (see Table 1.3 ).
+ids[12] Type of processed data (see Table 1.4 ).
+
+ idslen Number of elements in ids.
+
+
+
Returns
+0 no error
+2 Array passed is not section 1
+6 memory allocation error
+
+
+
Author Stephen Gilbert
+
Date 2002-10-29
+
+
Definition at line 55 of file g2_unpack1.c .
+
+
References gbit() .
+
+
Referenced by g2_getfld() .
+
+
+
+
+
NCEPLIBS-g2c: g2_unpack1.c Source File
+
+
+
+
+
+
+ NCEPLIBS-g2c
+ 1.6.4
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
Go to the documentation of this file.
+
+
+
+
+
+
+
+
+
58 g2int i, lensec, nbits, ierr, isecnum;
+
+
+
61 g2int mapid[13]={2, 2, 1, 1, 1, 2, 1, 1, 1, 1, 1, 1, 1};
+
+
+
+
+
66 gbit (cgrib, &lensec, *iofst, 32);
+
+
68 gbit (cgrib, &isecnum, *iofst, 8);
+
+
+
+
+
+
+
75 fprintf(stderr,
"g2_unpack1: Not Section 1 data.\n" );
+
+
+
+
+
+
+
82 *ids = calloc(*idslen,
sizeof (
g2int ));
+
+
+
+
+
+
+
89 for (i = 0; i < *idslen; i++)
+
+
+
92 gbit (cgrib, *ids + i, *iofst, nbits);
+
93 *iofst = *iofst + nbits;
+
+
+
+
+
g2int g2_unpack1(unsigned char *cgrib, g2int *iofst, g2int **ids, g2int *idslen)
This subroutine unpacks Section 1 - Identification Section as defined in GRIB Edition 2.
+
void gbit(unsigned char *in, g2int *iout, g2int iskip, g2int nbyte)
Get bits - unpack bits: Extract arbitrary size values from a packed bit string, right justifying each...
+
Header file for NCEPLIBS-g2c library.
+
int64_t g2int
Long integer type.
+
+
NCEPLIBS-g2c: g2_unpack2.c File Reference
+
+
+
+
+
+
+ NCEPLIBS-g2c
+ 1.6.4
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
Unpack Section 2 (Local Use Section) as defined in GRIB Edition 2.
+More...
+
#include <stdio.h>
+
#include <stdlib.h>
+
#include "grib2.h "
+
+
Go to the source code of this file.
+
+
+
Unpack Section 2 (Local Use Section) as defined in GRIB Edition 2.
+
Author Stephen Gilbert
+
Date 2002-10-31
+
+
Definition in file g2_unpack2.c .
+
+
+
◆
+
+
+
+
+
+ g2int g2_unpack2 (
+ unsigned char *
+ cgrib ,
+
+ g2int * iofst ,
+
+ g2int * lencsec2 ,
+
+ unsigned char **
+ csec2
+
+ )
+
+
+
+
+
This subroutine unpacks Section 2 (Local Use Section) as defined in GRIB Edition 2.
+
+
+
+Date Programmer Comments
+
+2002-10-31 Gilbert Initial
+
+2008-12-23 Wesley Initialize lencsec2 Length of Local Use data
+
+2010-08-05 Vuong If section 2 has zero length, ierr=0
+
+
Parameters
+
+ cgrib char array containing Section 2 of the GRIB2 message. iofst Bit offset for the beginning of Section 2 in cgrib. The modified version will be returned. lencsec2 Length (in octets) of Local Use data. csec2 Pointer to a char array containing local use data.
+
+
+
Returns
+0 no error
+2 Array passed is not section 2
+6 memory allocation error
+
+
+
Author Stephen Gilbert
+
Date 2002-10-31
+
+
Definition at line 37 of file g2_unpack2.c .
+
+
References gbit() .
+
+
Referenced by g2_getfld() .
+
+
+
+
+
NCEPLIBS-g2c: g2_unpack2.c Source File
+
+
+
+
+
+
+ NCEPLIBS-g2c
+ 1.6.4
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
Go to the documentation of this file.
+
+
+
+
+
+
+
38 unsigned char **csec2)
+
+
40 g2int ierr = 0, isecnum;
+
41 g2int lensec, ipos, j;
+
+
+
+
+
46 gbit (cgrib, &lensec, *iofst, 32);
+
+
48 *lencsec2 = lensec - 5;
+
49 gbit (cgrib, &isecnum, *iofst, 8);
+
+
+
+
+
+
+
+
57 fprintf(stderr,
"g2_unpack2: Not Section 2 data.\n" );
+
+
+
+
+
+
+
+
+
+
67 if (!(*csec2 = malloc(*lencsec2 + 1)))
+
+
+
+
+
+
+
+
75 for (j = 0; j < *lencsec2; j++)
+
76 *(*csec2 + j) = cgrib[ipos + j];
+
+
78 *iofst = *iofst + (*lencsec2 * 8);
+
+
+
+
g2int g2_unpack2(unsigned char *cgrib, g2int *iofst, g2int *lencsec2, unsigned char **csec2)
This subroutine unpacks Section 2 (Local Use Section) as defined in GRIB Edition 2.
+
void gbit(unsigned char *in, g2int *iout, g2int iskip, g2int nbyte)
Get bits - unpack bits: Extract arbitrary size values from a packed bit string, right justifying each...
+
Header file for NCEPLIBS-g2c library.
+
int64_t g2int
Long integer type.
+
+
NCEPLIBS-g2c: g2_unpack3.c File Reference
+
+
+
+
+
+
+ NCEPLIBS-g2c
+ 1.6.4
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
Unpack Section 3 (Grid Definition Section) as defined in GRIB Edition 2.
+More...
+
#include <stdio.h>
+
#include <stdlib.h>
+
#include "grib2.h "
+
+
Go to the source code of this file.
+
+
+
Unpack Section 3 (Grid Definition Section) as defined in GRIB Edition 2.
+
Author Stephen Gilbert
+
Date 2002-10-31
+
+
Definition in file g2_unpack3.c .
+
+
+
◆
+
+
+
+
+
+ g2int g2_unpack3 (
+ unsigned char *
+ cgrib ,
+
+ g2int * iofst ,
+
+ g2int ** igds ,
+
+ g2int ** igdstmpl ,
+
+ g2int * mapgridlen ,
+
+ g2int ** ideflist ,
+
+ g2int * idefnum
+
+ )
+
+
+
+
+
This routine unpacks Section 3 (Grid Definition Section) as defined in GRIB Edition 2.
+
+
+
+Date Programmer Comments
+
+2002-10-31 Gilbert Initial
+
+2009-01-14 Vuong Changed structure name template to gtemplate
+
+
Parameters
+
+ cgrib Char array ontaining Section 3 of the GRIB2 message. iofst Bit offset for the beginning of Section 3 in cgrib. igds Contains information read from the appropriate GRIB Grid Definition Section 3 for the field being returned.
+igds[0] Source of grid definition (see Table 3.0 ).
+igds[1] Number of grid points in the defined grid.
+igds[2] Number of octets needed for each additional grid points definition. Used to define number of points in each row (or column) for non-regular grids. = 0, if using regular grid.
+igds[3] Interpretation of list for optional points definition. (See Table 3.11 )
+igds[4] Grid Definition Template Number (see Table 3.1 ).
+
+ igdstmpl Pointer to integer array containing the data values for the Grid Definition Template specified by igds[4]. mapgridlen Number of elements in igdstmpl. i.e. number of entries in Grid Defintion Template specified by igds[4]. ideflist (Used if igds[2] .ne. 0) Pointer to integer array containing the number of grid points contained in each row (or column). idefnum (Used if igds[2] .ne. 0) The number of entries in array ideflist - i.e. number of rows (or columns) for which optional grid points are defined.
+
+
+
Returns
+0 no error
+2 Not Section 3
+5 message contains an undefined Grid Definition Template.
+6 memory allocation error
+
+
+
Author Stephen Gilbert
+
Date 2002-10-31
+
+
Definition at line 57 of file g2_unpack3.c .
+
+
References gtemplate::ext , extgridtemplate() , gtemplate::extlen , gbit() , gbits() , getgridtemplate() , gtemplate::map , gtemplate::maplen , and gtemplate::needext .
+
+
Referenced by g2_getfld() , getdim() , and getpoly() .
+
+
+
+
+
NCEPLIBS-g2c: g2_unpack3.c Source File
+
+
+
+
+
+
+ NCEPLIBS-g2c
+ 1.6.4
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
Go to the documentation of this file.
+
+
+
+
+
+
+
+
+
60 g2int ierr, i, j, nbits, isecnum;
+
61 g2int lensec, ibyttem = 0, isign, newlen;
+
62 g2int *ligds, *ligdstmpl = NULL, *lideflist = NULL;
+
+
+
+
+
+
+
+
70 gbit (cgrib, &lensec, *iofst, 32);
+
+
72 gbit (cgrib, &isecnum, *iofst, 8);
+
+
+
+
+
+
+
+
+
+
+
+
84 ligds = calloc(5,
sizeof (
g2int ));
+
+
+
87 gbit (cgrib, &ligds[0], *iofst, 8);
+
+
89 gbit (cgrib, &ligds[1], *iofst, 32);
+
+
91 gbit (cgrib, &ligds[2], *iofst, 8);
+
+
93 gbit (cgrib, &ligds[3], *iofst, 8);
+
+
95 gbit (cgrib, &ligds[4], *iofst, 16);
+
+
+
98 if (ligds[4] != 65535)
+
+
+
+
+
+
+
+
+
107 *mapgridlen = mapgrid->
maplen ;
+
+
+
+
+
+
+
114 if (!(ligdstmpl = calloc(*mapgridlen,
sizeof (
g2int ))))
+
+
+
+
+
+
+
+
+
123 *igdstmpl = ligdstmpl;
+
+
+
126 for (i = 0; i < *mapgridlen; i++)
+
+
128 nbits = abs(mapgrid->
map [i]) * 8;
+
129 if (mapgrid->
map [i] >= 0)
+
+
131 gbit (cgrib, ligdstmpl + i, *iofst, nbits);
+
+
+
+
135 gbit (cgrib, &isign, *iofst, 1);
+
136 gbit (cgrib, ligdstmpl + i, *iofst + 1, nbits - 1);
+
+
138 ligdstmpl[i] = -1 * ligdstmpl[i];
+
+
140 *iofst = *iofst + nbits;
+
141 ibyttem = ibyttem + abs(mapgrid->
map [i]);
+
+
+
+
+
+
+
+
+
+
+
+
+
154 ligdstmpl = realloc(ligdstmpl, newlen *
sizeof (
g2int ));
+
155 *igdstmpl = ligdstmpl;
+
+
157 for (i = *mapgridlen; i < newlen; i++)
+
+
159 nbits = abs(mapgrid->
ext [j]) * 8;
+
160 if (mapgrid->
ext [j] >= 0)
+
+
162 gbit (cgrib, ligdstmpl + i, *iofst, nbits);
+
+
+
+
166 gbit (cgrib, &isign, *iofst, 1);
+
167 gbit (cgrib, ligdstmpl + i, *iofst + 1, nbits - 1);
+
+
169 ligdstmpl[i] = -1 * ligdstmpl[i];
+
+
171 *iofst = *iofst + nbits;
+
172 ibyttem = ibyttem + abs(mapgrid->
ext [j]);
+
+
+
175 *mapgridlen = newlen;
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
193 nbits = ligds[2] * 8;
+
194 *idefnum = (lensec - 14 - ibyttem) / ligds[2];
+
+
196 lideflist = calloc(*idefnum,
sizeof (
g2int ));
+
+
+
+
+
+
+
+
204 *ideflist = lideflist;
+
205 gbits (cgrib, lideflist, *iofst, nbits, 0, *idefnum);
+
206 *iofst = *iofst + (nbits * *idefnum);
+
+
+
+
+
+
+
+
+
+
g2int g2_unpack3(unsigned char *cgrib, g2int *iofst, g2int **igds, g2int **igdstmpl, g2int *mapgridlen, g2int **ideflist, g2int *idefnum)
This routine unpacks Section 3 (Grid Definition Section) as defined in GRIB Edition 2.
+
void gbit(unsigned char *in, g2int *iout, g2int iskip, g2int nbyte)
Get bits - unpack bits: Extract arbitrary size values from a packed bit string, right justifying each...
+
void gbits(unsigned char *in, g2int *iout, g2int iskip, g2int nbyte, g2int nskip, g2int n)
Get bits - unpack bits: Extract arbitrary size values from a packed bit string, right justifying each...
+
Header file for NCEPLIBS-g2c library.
+
g2int * ext
Number of octets of each entry in the extension part of the template.
+
g2int extlen
Number of entries in the template extension.
+
g2int * map
Number of octets of each entry in the static part of the template.
+
g2int needext
Indicates whether or not the template needs to be extended.
+
g2int maplen
Number of entries in the static part of the template.
+
int64_t g2int
Long integer type.
+
Struct for GRIB template.
+
gtemplate * extgridtemplate(g2int number, g2int *list)
This subroutine generates the remaining octet map for a given Grid Definition Template,...
+
gtemplate * getgridtemplate(g2int number)
This subroutine returns grid template information for a specified Grid Definition Template for [Secti...
+
+
NCEPLIBS-g2c: g2_unpack4.c File Reference
+
+
+
+
+
+
+ NCEPLIBS-g2c
+ 1.6.4
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
Unpack Section 4 (Product Definition Section) as defined in GRIB Edition 2.
+More...
+
#include <stdio.h>
+
#include <stdlib.h>
+
#include "grib2.h "
+
+
Go to the source code of this file.
+
+
+
Unpack Section 4 (Product Definition Section) as defined in GRIB Edition 2.
+
Author Stephen Gilbert
+
Date 2002-10-31
+
+
Definition in file g2_unpack4.c .
+
+
+
◆
+
+
+
+
+
+ g2int g2_unpack4 (
+ unsigned char *
+ cgrib ,
+
+ g2int * iofst ,
+
+ g2int * ipdsnum ,
+
+ g2int ** ipdstmpl ,
+
+ g2int * mappdslen ,
+
+ g2float ** coordlist ,
+
+ g2int * numcoord
+
+ )
+
+
+
+
+
This subroutine unpacks Section 4 (Product Definition Section) as defined in GRIB Edition 2.
+
+
+
+Date Programmer Comments
+
+2002-10-31 Gilbert Initial
+
+2009-01-14 Vuong Changed structure name template to gtemplate
+
+
Parameters
+
+ cgrib Array containing Section 4 of the GRIB2 message. iofst Bit offset of the beginning of Section 4 in cgrib. Returned with updated bit offset. ipdsnum Product Definition Template Number (see Table 4.0 ). ipdstmpl Pointer that gets an integer array containing the data values for the Product Definition Template specified by ipdsnum. mappdslen Number of elements in ipdstmpl - i.e. number of entries in Product Defintion Template specified by ipdsnum. coordlist Pointer that gets an array containing floating point values intended to document the vertical discretisation associated to model data on hybrid coordinate vertical levels. numcoord number of values in array coordlist.
+
+
+
Returns
+0 no error
+2 Not section 4
+5 "GRIB" message contains an undefined Product Definition Template.
+6 memory allocation error
+
+
+
Author Stephen Gilbert
+
Date 2002-10-31
+
+
Definition at line 45 of file g2_unpack4.c .
+
+
References gtemplate::ext , gtemplate::extlen , extpdstemplate() , gbit() , gbits() , getpdstemplate() , gtemplate::map , gtemplate::maplen , gtemplate::needext , and rdieee() .
+
+
Referenced by g2_getfld() .
+
+
+
+
+
NCEPLIBS-g2c: g2_unpack4.c Source File
+
+
+
+
+
+
+ NCEPLIBS-g2c
+ 1.6.4
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
Go to the documentation of this file.
+
+
+
+
+
+
+
+
+
+
49 g2int ierr, needext, i, j, nbits, isecnum;
+
50 g2int lensec, isign, newlen;
+
+
+
+
+
+
+
+
+
+
60 gbit (cgrib, &lensec, *iofst, 32);
+
+
62 gbit (cgrib, &isecnum, *iofst, 8);
+
+
+
+
+
+
+
+
+
+
+
+
74 gbit (cgrib, numcoord, *iofst, 16);
+
+
76 gbit (cgrib, ipdsnum, *iofst, 16);
+
+
+
+
+
+
+
+
+
+
+
87 *mappdslen = mappds->
maplen ;
+
+
+
+
+
+
+
94 lipdstmpl = calloc(*mappdslen,
sizeof (
g2int ));
+
+
+
+
+
+
+
+
+
+
104 *ipdstmpl = lipdstmpl;
+
+
106 for (i = 0; i < mappds->
maplen ; i++)
+
+
108 nbits = abs(mappds->
map [i]) * 8;
+
109 if (mappds->
map [i] >= 0)
+
+
111 gbit (cgrib, lipdstmpl + i, *iofst, nbits);
+
+
+
+
115 gbit (cgrib, &isign, *iofst, 1);
+
116 gbit (cgrib, lipdstmpl + i, *iofst + 1, nbits - 1);
+
117 if (isign == 1) lipdstmpl[i] = -1 * lipdstmpl[i];
+
+
119 *iofst = *iofst + nbits;
+
+
+
+
+
+
+
+
+
+
+
+
131 lipdstmpl = realloc(lipdstmpl, newlen *
sizeof (
g2int ));
+
132 *ipdstmpl = lipdstmpl;
+
+
+
135 for (i = *mappdslen; i < newlen; i++)
+
+
137 nbits = abs(mappds->
ext [j]) * 8;
+
138 if (mappds->
ext [j] >= 0)
+
+
140 gbit (cgrib, lipdstmpl + i, *iofst, nbits);
+
+
+
+
144 gbit (cgrib, &isign, *iofst, 1);
+
145 gbit (cgrib, lipdstmpl + i, *iofst+1, nbits-1);
+
+
147 lipdstmpl[i] = -1 * lipdstmpl[i];
+
+
149 *iofst = *iofst + nbits;
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
164 coordieee = calloc(*numcoord,
sizeof (
g2int ));
+
165 lcoordlist = calloc(*numcoord,
sizeof (
g2float ));
+
166 if (coordieee == 0 || lcoordlist == 0)
+
+
+
+
+
+
+
+
+
+
+
+
+
179 *coordlist = lcoordlist;
+
+
181 gbits (cgrib, coordieee, *iofst, 32, 0, *numcoord);
+
182 rdieee (coordieee, *coordlist, *numcoord);
+
+
184 *iofst = *iofst + (32 * (*numcoord));
+
+
+
+
+
+
g2int g2_unpack4(unsigned char *cgrib, g2int *iofst, g2int *ipdsnum, g2int **ipdstmpl, g2int *mappdslen, g2float **coordlist, g2int *numcoord)
This subroutine unpacks Section 4 (Product Definition Section) as defined in GRIB Edition 2.
+
void gbit(unsigned char *in, g2int *iout, g2int iskip, g2int nbyte)
Get bits - unpack bits: Extract arbitrary size values from a packed bit string, right justifying each...
+
void gbits(unsigned char *in, g2int *iout, g2int iskip, g2int nbyte, g2int nskip, g2int n)
Get bits - unpack bits: Extract arbitrary size values from a packed bit string, right justifying each...
+
Header file for NCEPLIBS-g2c library.
+
+
g2int * ext
Number of octets of each entry in the extension part of the template.
+
g2int extlen
Number of entries in the template extension.
+
g2int * map
Number of octets of each entry in the static part of the template.
+
g2int needext
Indicates whether or not the template needs to be extended.
+
g2int maplen
Number of entries in the static part of the template.
+
int64_t g2int
Long integer type.
+
Struct for GRIB template.
+
gtemplate * extpdstemplate(g2int number, g2int *list)
This subroutine generates the remaining octet map for a given Product Definition Template,...
+
gtemplate * getpdstemplate(g2int number)
This subroutine returns PDS template information for a specified Product Definition Template.
+
void rdieee(g2int *rieee, g2float *a, g2int num)
This subroutine reads a list of real values in 32-bit IEEE floating point format.
+
+
NCEPLIBS-g2c: g2_unpack5.c File Reference
+
+
+
+
+
+
+ NCEPLIBS-g2c
+ 1.6.4
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
Unpack Section 5 (Data Representation Section) as defined in GRIB Edition 2.
+More...
+
#include <stdio.h>
+
#include <stdlib.h>
+
#include "grib2.h "
+
+
Go to the source code of this file.
+
+
+
Unpack Section 5 (Data Representation Section) as defined in GRIB Edition 2.
+
Author Stephen Gilbert
+
Date 2002-10-31
+
+
Definition in file g2_unpack5.c .
+
+
+
◆
+
+
+
+
+
+ g2int g2_unpack5 (
+ unsigned char *
+ cgrib ,
+
+ g2int * iofst ,
+
+ g2int * ndpts ,
+
+ g2int * idrsnum ,
+
+ g2int ** idrstmpl ,
+
+ g2int * mapdrslen
+
+ )
+
+
+
+
+
This subroutine unpacks Section 5 (Data Representation Section) as defined in GRIB Edition 2.
+
+
+
+Date Programmer Comments
+
+2002-10-31 Gilbert Initial
+
+2009-01-14 Vuong Changed structure name template to gtemplate
+
+
Parameters
+
+ cgrib char array containing Section 5 of the GRIB2 message. iofst Bit offset for the beginning of Section 5 in cgrib. Returned with bit offset at the end of Section 5. ndpts Number of data points unpacked and returned. idrsnum Data Representation Template Number (see Code Table 5.0). idrstmpl Pointer to an integer array containing the data values for the specified Data Representation Template (N=idrsnum). Each element of this integer array contains an entry (in the order specified) of Data Representation Template 5.N. mapdrslen- Number of elements in idrstmpl. i.e. number of entries in Data Representation Template 5.N (N=idrsnum).
+
+
+
Returns
+0 no error
+2 Not Section 5
+6 memory allocation error
+7 "GRIB" message contains an undefined Data Representation Template.
+
+
+
Author Stephen Gilbert
+
Date 2002-10-31
+
+
Definition at line 42 of file g2_unpack5.c .
+
+
References gtemplate::ext , extdrstemplate() , gtemplate::extlen , gbit() , getdrstemplate() , gtemplate::map , gtemplate::maplen , and gtemplate::needext .
+
+
Referenced by g2_getfld() .
+
+
+
+
+
NCEPLIBS-g2c: g2_unpack5.c Source File
+
+
+
+
+
+
+ NCEPLIBS-g2c
+ 1.6.4
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
Go to the documentation of this file.
+
+
+
+
+
+
+
+
+
45 g2int ierr, needext, i, j, nbits, isecnum;
+
46 g2int lensec, isign, newlen;
+
+
+
+
+
+
+
53 gbit (cgrib, &lensec, *iofst, 32);
+
+
55 gbit (cgrib, &isecnum, *iofst, 8);
+
+
+
+
+
+
+
+
+
+
+
+
67 gbit (cgrib, ndpts, *iofst, 32);
+
+
69 gbit (cgrib, idrsnum, *iofst, 16);
+
+
+
+
+
+
+
+
+
+
+
80 *mapdrslen = mapdrs->
maplen ;
+
+
+
+
+
+
+
87 lidrstmpl = calloc(*mapdrslen,
sizeof (
g2int ));
+
+
+
+
+
+
+
+
+
+
+
+
99 *idrstmpl = lidrstmpl;
+
+
101 for (i = 0; i < mapdrs->
maplen ; i++)
+
+
103 nbits = abs(mapdrs->
map [i]) * 8;
+
104 if (mapdrs->
map [i] >= 0)
+
+
106 gbit (cgrib, lidrstmpl + i, *iofst, nbits);
+
+
+
+
110 gbit (cgrib, &isign, *iofst, 1);
+
111 gbit (cgrib, lidrstmpl + i, *iofst + 1, nbits - 1);
+
+
113 lidrstmpl[i] = -1 * lidrstmpl[i];
+
+
115 *iofst = *iofst + nbits;
+
+
+
+
+
+
+
+
+
+
+
+
127 lidrstmpl = realloc(lidrstmpl, newlen *
sizeof (
g2int ));
+
128 *idrstmpl = lidrstmpl;
+
+
+
131 for (i = *mapdrslen; i < newlen; i++)
+
+
133 nbits = abs(mapdrs->
ext [j])*8;
+
134 if (mapdrs->
ext [j] >= 0)
+
+
136 gbit (cgrib, lidrstmpl + i, *iofst, nbits);
+
+
+
+
140 gbit (cgrib, &isign, *iofst, 1);
+
141 gbit (cgrib, lidrstmpl + i, *iofst + 1, nbits-1);
+
+
143 lidrstmpl[i] = -1*lidrstmpl[i];
+
+
145 *iofst = *iofst + nbits;
+
+
+
+
+
+
+
+
+
+
+
+
+
gtemplate * extdrstemplate(g2int number, g2int *list)
This subroutine generates the remaining octet map for a given Data Representation Template,...
+
gtemplate * getdrstemplate(g2int number)
This subroutine returns DRS template information for a specified Data Representation Template.
+
g2int g2_unpack5(unsigned char *cgrib, g2int *iofst, g2int *ndpts, g2int *idrsnum, g2int **idrstmpl, g2int *mapdrslen)
This subroutine unpacks Section 5 (Data Representation Section) as defined in GRIB Edition 2.
+
void gbit(unsigned char *in, g2int *iout, g2int iskip, g2int nbyte)
Get bits - unpack bits: Extract arbitrary size values from a packed bit string, right justifying each...
+
Header file for NCEPLIBS-g2c library.
+
g2int * ext
Number of octets of each entry in the extension part of the template.
+
g2int extlen
Number of entries in the template extension.
+
g2int * map
Number of octets of each entry in the static part of the template.
+
g2int needext
Indicates whether or not the template needs to be extended.
+
g2int maplen
Number of entries in the static part of the template.
+
int64_t g2int
Long integer type.
+
Struct for GRIB template.
+
+
NCEPLIBS-g2c: g2_unpack6.c File Reference
+
+
+
+
+
+
+ NCEPLIBS-g2c
+ 1.6.4
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
Unpack Section 6 (Bit-Map Section) as defined in GRIB Edition 2.
+More...
+
#include <stdio.h>
+
#include <stdlib.h>
+
#include "grib2.h "
+
+
Go to the source code of this file.
+
+
+
Unpack Section 6 (Bit-Map Section) as defined in GRIB Edition 2.
+
Author Stephen Gilbert
+
Date 2002-10-31
+
+
Definition in file g2_unpack6.c .
+
+
+
◆
+
+
+
+
+
+ g2int g2_unpack6 (
+ unsigned char *
+ cgrib ,
+
+ g2int * iofst ,
+
+ g2int ngpts ,
+
+ g2int * ibmap ,
+
+ g2int ** bmap
+
+ )
+
+
+
+
+
This subroutine unpacks Section 6 (Bit-Map Section) as defined in GRIB Edition 2.
+
Parameters
+
+ cgrib char array containing Section 6 of the GRIB2 message. iofst Bit offset of the beginning of Section 6 in cgrib. ngpts Number of grid points specified in the bit-map ibmap Bitmap indicator (see Code Table 6.0)
+0 bitmap applies and is included in Section 6.
+1-253 Predefined bitmap applies
+254 Previously defined bitmap applies to this field
+255 Bit map does not apply to this product.
+
+ bmap Pointer to an integer array containing decoded bitmap. (if ibmap=0)
+
+
+
Returns
+0 no error
+2 Not Section 6
+4 Unrecognized pre-defined bit-map.
+6 memory allocation error
+
+
+
Author Stephen Gilbert
+
Date 2002-10-31
+
+
Definition at line 33 of file g2_unpack6.c .
+
+
References gbit() , and gbits() .
+
+
Referenced by g2_getfld() .
+
+
+
+
+
NCEPLIBS-g2c: g2_unpack6.c Source File
+
+
+
+
+
+
+ NCEPLIBS-g2c
+ 1.6.4
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
Go to the documentation of this file.
+
+
+
+
+
+
+
+
+
36 g2int j, ierr = 0, isecnum;
+
+
+
+
+
+
+
43 gbit (cgrib, &isecnum, *iofst, 8);
+
+
+
+
+
+
49 fprintf(stderr,
"g2_unpack6: Not Section 6 data.\n" );
+
+
+
+
53 gbit (cgrib, ibmap, *iofst, 8);
+
+
+
+
+
+
59 lbmap = calloc(ngpts,
sizeof (
g2int ));
+
+
+
+
+
+
+
+
+
+
69 intbmap = calloc(ngpts,
sizeof (
g2int ));
+
70 gbits (cgrib, intbmap, *iofst, 1, 0, ngpts);
+
71 *iofst = *iofst + ngpts;
+
72 for (j = 0; j < ngpts; j++)
+
+
74 lbmap[j] = (
g2int )intbmap[j];
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
g2int g2_unpack6(unsigned char *cgrib, g2int *iofst, g2int ngpts, g2int *ibmap, g2int **bmap)
This subroutine unpacks Section 6 (Bit-Map Section) as defined in GRIB Edition 2.
+
void gbit(unsigned char *in, g2int *iout, g2int iskip, g2int nbyte)
Get bits - unpack bits: Extract arbitrary size values from a packed bit string, right justifying each...
+
void gbits(unsigned char *in, g2int *iout, g2int iskip, g2int nbyte, g2int nskip, g2int n)
Get bits - unpack bits: Extract arbitrary size values from a packed bit string, right justifying each...
+
Header file for NCEPLIBS-g2c library.
+
int64_t g2int
Long integer type.
+
+
NCEPLIBS-g2c: g2_unpack7.c File Reference
+
+
+
+
+
+
+ NCEPLIBS-g2c
+ 1.6.4
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
Unpack Section 7 (Data Section) as defined in GRIB Edition 2.
+More...
+
#include <stdio.h>
+
#include <stdlib.h>
+
#include <memory.h>
+
#include <string.h>
+
#include "grib2.h "
+
+
Go to the source code of this file.
+
+int comunpack (unsigned char *, g2int , g2int , g2int *, g2int , g2float *) This subroutine unpacks a data field that was packed using a complex packing algorithm as defined in the GRIB2 documention, using info from the GRIB2 Data Representation Template 5.2 or Template 5.3 . More... g2int g2_unpack7 (unsigned char *cgrib, g2int *iofst, g2int igdsnum, g2int *igdstmpl, g2int idrsnum, g2int *idrstmpl, g2int ndpts, g2float **fld) This subroutine unpacks Section 7 (Data Section) as defined in GRIB Edition 2. More... g2int jpcunpack (unsigned char *, g2int , g2int *, g2int , g2float *) This subroutine unpacks a data field that was packed into a JPEG2000 code stream using info from the GRIB2 Data Representation Template 5.40 or 5.40000. More... g2int pngunpack (unsigned char *, g2int , g2int *, g2int , g2float *) This subroutine unpacks a data field that was packed into a PNG image format using info from the GRIB2 Data Representation Template 5.41 or 5.40010. More... g2int simunpack (unsigned char *, g2int *, g2int , g2float *) This subroutine unpacks a data field that was packed using a simple packing algorithm as defined in the GRIB2 documention, using info from the GRIB2 Data Representation Template 5.0. More... g2int specunpack (unsigned char *, g2int *, g2int , g2int , g2int , g2int , g2float *) This subroutine unpacks a spectral data field that was packed using the complex packing algorithm for spherical harmonic data as defined in the GRIB2 documention, using info from the GRIB2 Data Representation Template 5.51 . More...
+
+
Unpack Section 7 (Data Section) as defined in GRIB Edition 2.
+
Author Stephen Gilbert
+
Date 2002-10-31
+
+
Definition in file g2_unpack7.c .
+
+
+
◆
+
+
+
+
+
+ int comunpack
+ (
+ unsigned char *
+ cpack ,
+
+ g2int lensec ,
+
+ g2int idrsnum ,
+
+ g2int * idrstmpl ,
+
+ g2int ndpts ,
+
+ g2float * fld
+
+ )
+
+
+
+
+
This subroutine unpacks a data field that was packed using a complex packing algorithm as defined in the GRIB2 documention, using info from the GRIB2 Data Representation Template 5.2 or Template 5.3 .
+
Supports GRIB2 complex packing templates with or without spatial differences (i.e. DRTs 5.2 and 5.3).
+
+
+
+Date Programmer Comments
+
+2002-10-29 Gilbert Initial
+
+2004-12-16 Gilbert Added test (from Arthur Taylor/MDL) verifying group widths/lengths
+
+
Parameters
+
+ cpack pointer to the packed data field. lensec length of section 7 (used for error checking). idrsnum Data Representation Template number. Must equal 2 or 3. idrstmpl pointer to the array of values for Data Representation Template 5.2 or 5.3 ndpts The number of data values to unpack fld Contains the unpacked data values. Must be allocated with at least ndpts * sizeof(g2float) bytes before calling this routine.
+
+
+
Returns 0 for success, error code otherwise.
+
Author Stephen Gilbert
+
Date 2002-10-29
+
+
Definition at line 42 of file comunpack.c .
+
+
References gbit() , gbits() , int_power() , and rdieee() .
+
+
Referenced by g2_unpack7() .
+
+
+
+
+
◆
+
+
+
+
+
+ g2int g2_unpack7 (
+ unsigned char *
+ cgrib ,
+
+ g2int * iofst ,
+
+ g2int igdsnum ,
+
+ g2int * igdstmpl ,
+
+ g2int idrsnum ,
+
+ g2int * idrstmpl ,
+
+ g2int ndpts ,
+
+ g2float ** fld
+
+ )
+
+
+
+
+
This subroutine unpacks Section 7 (Data Section) as defined in GRIB Edition 2.
+
+
+
+Date Programmer Comments
+
+2002-10-31 Gilbert Initial
+
+2002-12-20 Gilbert Added GDT info to arguments and added 5.51 processing.
+
+2003-08-29 Gilbert New templates using PNG and JPEG2000 algorithms/templates.
+
+2004-11-29 Gilbert JPEG2000 now allowed to use WMO Template 5.40 PNG allowed to use 5.41
+
+2004-12-16 Taylor Added check on comunpack return code.
+
+2008-12-23 Wesley Initialize Number of data points unpacked
+
+
Parameters
+
+ cgrib char array containing Section 7 of the GRIB2 message iofst Bit offset of the beginning of Section 7 in cgrib. igdsnum Grid Definition Template Number (see Code Table 3.0) (Only used for DRS Template 5.51) igdstmpl Pointer to an integer array containing the data values for the specified Grid Definition Template (N=igdsnum). Each element of this integer array contains an entry (in the order specified) of Grid Definition Template 3.N. (Only used for DRS Template 5.51). idrsnum Data Representation Template Number (see Code Table 5.0) idrstmpl Pointer to an integer array containing the data values for the specified Data Representation Template (N=idrsnum). Each element of this integer array contains an entry (in the order specified) of Data Representation Template 5.N ndpts Number of data points unpacked and returned. fld Pointer to a float array containing the unpacked data field.
+
+
+
Returns
+0 no error
+2 Not section 7
+4 Unrecognized Data Representation Template
+5 need one of GDT 3.50 through 3.53 to decode DRT 5.51
+6 memory allocation error
+7 corrupt section 7.
+
+
+
Author Stephen Gilbert
+
Date 2002-10-31
+
+
Definition at line 65 of file g2_unpack7.c .
+
+
References comunpack() , gbit() , jpcunpack() , pngunpack() , rdieee() , simunpack() , and specunpack() .
+
+
Referenced by g2_getfld() .
+
+
+
+
+
◆
+
+
+
+
+
+ g2int jpcunpack (
+ unsigned char *
+ cpack ,
+
+ g2int len ,
+
+ g2int * idrstmpl ,
+
+ g2int ndpts ,
+
+ g2float * fld
+
+ )
+
+
+
+
+
This subroutine unpacks a data field that was packed into a JPEG2000 code stream using info from the GRIB2 Data Representation Template 5.40 or 5.40000.
+
Parameters
+
+ cpack The packed data field (character*1 array). len length of packed field cpack. idrstmpl Pointer to array of values for Data Representation Template 5.40 or 5.40000. ndpts The number of data values to unpack. fld Contains the unpacked data values.
+
+
+
Returns 0 for success, 1 for memory allocation error.
+
Author Stephem Gilbert
+
Date 2003-08-27
+
+
Definition at line 31 of file jpcunpack.c .
+
+
References dec_jpeg2000() , int_power() , and rdieee() .
+
+
Referenced by g2_unpack7() .
+
+
+
+
+
◆
+
+
+
+
+
+ g2int pngunpack (
+ unsigned char *
+ cpack ,
+
+ g2int len ,
+
+ g2int * idrstmpl ,
+
+ g2int ndpts ,
+
+ g2float * fld
+
+ )
+
+
+
+
+
This subroutine unpacks a data field that was packed into a PNG image format using info from the GRIB2 Data Representation Template 5.41 or 5.40010.
+
Parameters
+
+ cpack The packed data field (character*1 array). len length of packed field cpack(). idrstmpl Pointer to array of values for Data Representation Template 5.41 or 5.40010. ndpts The number of data values to unpack. fld Contains the unpacked data values.
+
+
+
Returns 0 for success, 1 for memory allocation error.
+
Author Stephen Gilbert
+
Date 2003-08-27
+
+
Definition at line 30 of file pngunpack.c .
+
+
References dec_png() , gbits() , int_power() , and rdieee() .
+
+
Referenced by g2_unpack7() .
+
+
+
+
+
◆
+
+
+
+
+
+ g2int simunpack (
+ unsigned char *
+ cpack ,
+
+ g2int * idrstmpl ,
+
+ g2int ndpts ,
+
+ g2float * fld
+
+ )
+
+
+
+
+
This subroutine unpacks a data field that was packed using a simple packing algorithm as defined in the GRIB2 documention, using info from the GRIB2 Data Representation Template 5.0.
+
Parameters
+
+ cpack pointer to the packed data field. idrstmpl pointer to the array of values for Data Representation Template 5.0. ndpts The number of data values to unpack. fld Contains the unpacked data values. fld must be `* allocated with at least ndpts * sizeof(g2float) bytes before calling this routine.
+
+
+
Returns 0 for success, error code otherwise.
+
Author Stephen Gilbert
+
Date 2002-10-29
+
+
Definition at line 26 of file simunpack.c .
+
+
References gbits() , int_power() , and rdieee() .
+
+
Referenced by g2_unpack7() .
+
+
+
+
+
◆
+
+
+
+
+
+ g2int specunpack (
+ unsigned char *
+ cpack ,
+
+ g2int * idrstmpl ,
+
+ g2int ndpts ,
+
+ g2int JJ ,
+
+ g2int KK ,
+
+ g2int MM ,
+
+ g2float * fld
+
+ )
+
+
+
+
+
This subroutine unpacks a spectral data field that was packed using the complex packing algorithm for spherical harmonic data as defined in the GRIB2 documention, using info from the GRIB2 Data Representation Template 5.51 .
+
Parameters
+
+ cpack pointer to the packed data field. idrstmpl pointer to the array of values for Data Representation Template 5.51. ndpts The number of data values to unpack (real and imaginary parts). JJ pentagonal resolution parameter. KK pentagonal resolution parameter. MM pentagonal resolution parameter. fld Contains the unpacked data values. fld must be allocated with at least ndpts * sizeof(g2float) bytes before calling this routine.
+
+
+
Returns 0 for success, -3 for wrong type.
+
Author Stephen Gilbert
+
Date 2000-06-21
+
+
Definition at line 35 of file specunpack.c .
+
+
References gbits() , int_power() , and rdieee() .
+
+
Referenced by g2_unpack7() .
+
+
+
+
+
NCEPLIBS-g2c: g2_unpack7.c Source File
+
+
+
+
+
+
+ NCEPLIBS-g2c
+ 1.6.4
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
Go to the documentation of this file.
+
+
+
+
+
+
+
+
+
+
+
+
+
17 #if defined USE_JPEG2000 || defined USE_OPENJPEG
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
75 gbit (cgrib, &lensec, *iofst, 32);
+
+
77 gbit (cgrib, &isecnum, *iofst, 8);
+
+
+
+
+
+
+
+
+
+
+
88 lfld = calloc(ndpts ? ndpts : 1,
sizeof (
g2float ));
+
+
+
+
+
+
+
+
+
+
+
+
100 simunpack (cgrib + ipos, idrstmpl, ndpts, lfld);
+
101 else if (idrsnum == 2 || idrsnum == 3)
+
+
103 if (
comunpack (cgrib+ipos, lensec, idrsnum, idrstmpl, ndpts, lfld) != 0)
+
+
+
+
+
108 else if (idrsnum == 50)
+
+
110 simunpack (cgrib + ipos, idrstmpl, ndpts - 1, lfld + 1);
+
111 rdieee (idrstmpl + 4, lfld, 1);
+
+
113 else if (idrsnum == 51)
+
114 if (igdsnum>=50 && igdsnum <=53)
+
115 specunpack (cgrib + ipos, idrstmpl, ndpts, igdstmpl[0], igdstmpl[2],
+
+
+
+
119 fprintf(stderr,
"g2_unpack7: Cannot use GDT 3.%d to unpack Data Section 5.51.\n" ,
+
+
+
+
+
+
+
+
127 #if defined USE_JPEG2000 || defined USE_OPENJPEG
+
128 else if (idrsnum == 40 || idrsnum == 40000)
+
+
130 jpcunpack (cgrib + ipos, lensec - 5, idrstmpl, ndpts, lfld);
+
+
+
+
134 else if (idrsnum == 41 || idrsnum == 40010)
+
+
136 pngunpack (cgrib + ipos, lensec - 5, idrstmpl, ndpts, lfld);
+
+
+
+
+
141 fprintf(stderr,
"g2_unpack7: Data Representation Template 5.%d not yet "
+
142 "implemented.\n" , (
int )idrsnum);
+
+
+
+
+
+
+
+
150 *iofst = *iofst + (8 * lensec);
+
+
+
+
g2int simunpack(unsigned char *, g2int *, g2int, g2float *)
This subroutine unpacks a data field that was packed using a simple packing algorithm as defined in t...
+
g2int jpcunpack(unsigned char *, g2int, g2int *, g2int, g2float *)
This subroutine unpacks a data field that was packed into a JPEG2000 code stream using info from the ...
+
g2int pngunpack(unsigned char *, g2int, g2int *, g2int, g2float *)
This subroutine unpacks a data field that was packed into a PNG image format using info from the GRIB...
+
int comunpack(unsigned char *, g2int, g2int, g2int *, g2int, g2float *)
This subroutine unpacks a data field that was packed using a complex packing algorithm as defined in ...
+
g2int g2_unpack7(unsigned char *cgrib, g2int *iofst, g2int igdsnum, g2int *igdstmpl, g2int idrsnum, g2int *idrstmpl, g2int ndpts, g2float **fld)
This subroutine unpacks Section 7 (Data Section) as defined in GRIB Edition 2.
+
g2int specunpack(unsigned char *, g2int *, g2int, g2int, g2int, g2int, g2float *)
This subroutine unpacks a spectral data field that was packed using the complex packing algorithm for...
+
void gbit(unsigned char *in, g2int *iout, g2int iskip, g2int nbyte)
Get bits - unpack bits: Extract arbitrary size values from a packed bit string, right justifying each...
+
Header file for NCEPLIBS-g2c library.
+
+
int64_t g2int
Long integer type.
+
void rdieee(g2int *rieee, g2float *a, g2int num)
This subroutine reads a list of real values in 32-bit IEEE floating point format.
+
+
NCEPLIBS-g2c: gbits.c File Reference
+
+
+
+
+
+
+ NCEPLIBS-g2c
+ 1.6.4
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
Functions to pack and unpack bits to/from a packed bit string.
+More...
+
+
Go to the source code of this file.
+
+void gbit (unsigned char *in, g2int *iout, g2int iskip, g2int nbyte) Get bits - unpack bits: Extract arbitrary size values from a packed bit string, right justifying each value in the unpacked iout array. More... void gbits (unsigned char *in, g2int *iout, g2int iskip, g2int nbyte, g2int nskip, g2int n) Get bits - unpack bits: Extract arbitrary size values from a packed bit string, right justifying each value in the unpacked iout array. More... void sbit (unsigned char *out, g2int *in, g2int iskip, g2int nbyte) Store bits - put arbitrary size values into a packed bit string, taking the low order bits from each value in the unpacked array. More... void sbits (unsigned char *out, g2int *in, g2int iskip, g2int nbyte, g2int nskip, g2int n) Store bits - put arbitrary size values into a packed bit string, taking the low order bits from each value in the unpacked array. More...
+
+
Functions to pack and unpack bits to/from a packed bit string.
+
Author NOAA Programmer
+
+
Definition in file gbits.c .
+
+
+
◆
+
+
+
+
+
+ void gbit
+ (
+ unsigned char *
+ in ,
+
+ g2int * iout ,
+
+ g2int iskip ,
+
+ g2int nbyte
+
+ )
+
+
+
+
+
Get bits - unpack bits: Extract arbitrary size values from a packed bit string, right justifying each value in the unpacked iout array.
+
Parameters
+
+ in pointer to character array input. iout pointer to unpacked array output. iskip initial number of bits to skip. nbyte number of bits to take.
+
+
+
Author NOAA Programmer
+
+
Definition at line 20 of file gbits.c .
+
+
References gbits() .
+
+
Referenced by comunpack() , g2_addfield() , g2_addgrid() , g2_addlocal() , g2_getfld() , g2_gribend() , g2_info() , g2_unpack1() , g2_unpack2() , g2_unpack3() , g2_unpack4() , g2_unpack5() , g2_unpack6() , g2_unpack7() , and seekgb() .
+
+
+
+
+
◆
+
+
+
+
+
+ void gbits
+ (
+ unsigned char *
+ in ,
+
+ g2int * iout ,
+
+ g2int iskip ,
+
+ g2int nbyte ,
+
+ g2int nskip ,
+
+ g2int n
+
+ )
+
+
+
+
+
Get bits - unpack bits: Extract arbitrary size values from a packed bit string, right justifying each value in the unpacked iout array.
+
Parameters
+
+ in Pointer to character array input. iout Pointer to unpacked array output. iskip Initial number of bits to skip. nbyte Number of bits to take. nskip Additional number of bits to skip on each iteration. n Number of iterations.
+
+
+
Author NOAA Programmer
+
+
Definition at line 57 of file gbits.c .
+
+
Referenced by comunpack() , g2_unpack3() , g2_unpack4() , g2_unpack6() , gbit() , pngunpack() , simunpack() , and specunpack() .
+
+
+
+
+
◆
+
+
+
+
+
+ void sbit
+ (
+ unsigned char *
+ out ,
+
+ g2int * in ,
+
+ g2int iskip ,
+
+ g2int nbyte
+
+ )
+
+
+
+
+
Store bits - put arbitrary size values into a packed bit string, taking the low order bits from each value in the unpacked array.
+
Parameters
+
+ out Pointer to packed array output. Must be allocated large enough to hold output. in Pointer to unpacked array input. iskip Initial number of bits to skip. nbyte Number of bits to pack.
+
+
+
Author NOAA Programmer
+
+
Definition at line 38 of file gbits.c .
+
+
References sbits() .
+
+
Referenced by compack() , g2_addfield() , g2_addgrid() , g2_addlocal() , g2_create() , g2_gribend() , misspack() , and simpack() .
+
+
+
+
+
◆
+
+
+
+
+
+ void sbits
+ (
+ unsigned char *
+ out ,
+
+ g2int * in ,
+
+ g2int iskip ,
+
+ g2int nbyte ,
+
+ g2int nskip ,
+
+ g2int n
+
+ )
+
+
+
+
+
Store bits - put arbitrary size values into a packed bit string, taking the low order bits from each value in the unpacked array.
+
Parameters
+
+ out Pointer to packed array output. Must be allocated large enough to hold output. in Pointer to unpacked array input. iskip Initial number of bits to skip. nbyte Number of bits to pack. nskip Additional number of bits to skip on each iteration. n Number of iterations.
+
+
+
Author NOAA Programmer
+
+
Definition at line 114 of file gbits.c .
+
+
Referenced by compack() , g2_addfield() , g2_addgrid() , jpcpack() , misspack() , pngpack() , sbit() , and simpack() .
+
+
+
+
+
NCEPLIBS-g2c: gbits.c Source File
+
+
+
+
+
+
+ NCEPLIBS-g2c
+ 1.6.4
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
Go to the documentation of this file.
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
60 g2int i, tbit, bitcnt, ibit, itmp;
+
+
62 static g2int ones[]={1, 3, 7, 15, 31, 63, 127, 255};
+
+
+
+
66 for (i = 0; i < n; i++)
+
+
+
+
+
71 nbit = nbit + nbyte + nskip;
+
+
+
74 tbit = (bitcnt < (8 - ibit)) ? bitcnt : 8 - ibit;
+
75 itmp = (int)*(in + index) & ones[7 - ibit];
+
76 if (tbit != 8 - ibit) itmp >>= (8 - ibit - tbit);
+
+
78 bitcnt = bitcnt - tbit;
+
+
+
+
+
83 itmp = itmp << 8 | (int)*(in + index);
+
+
+
+
+
+
+
+
91 itmp = ( itmp << bitcnt ) |
+
92 (((
int )*(in + index) >> (8 - bitcnt)) & ones[bitcnt - 1]);
+
+
+
+
+
+
+
+
+
+
+
117 g2int i, bitcnt, tbit, ibit, itmp, imask, itmp2, itmp3;
+
+
119 static g2int ones[]={1, 3, 7, 15, 31, 63, 127, 255};
+
+
+
+
123 nbit = iskip + nbyte - 1;
+
124 for (i = 0; i < n; i++)
+
+
+
+
+
+
130 nbit = nbit + nbyte + nskip;
+
+
+
+
+
135 tbit = (bitcnt < (ibit+1)) ? bitcnt : ibit + 1;
+
136 imask = ones[tbit - 1] << (7 - ibit);
+
137 itmp2 = (itmp << (7 - ibit)) & imask;
+
138 itmp3 = (int)*(out + index) & (255 - imask);
+
139 out[index] = (
unsigned char)(itmp2 | itmp3);
+
140 bitcnt = bitcnt - tbit;
+
+
+
+
+
+
+
+
+
149 out[index] = (
unsigned char)(itmp & 255);
+
+
+
+
+
+
+
+
+
158 itmp2 = itmp & ones[bitcnt - 1];
+
159 itmp3 = (int)*(out + index) & (255 - ones[bitcnt - 1]);
+
160 out[index] = (
unsigned char)(itmp2 | itmp3);
+
+
+
+
+
void gbit(unsigned char *in, g2int *iout, g2int iskip, g2int nbyte)
Get bits - unpack bits: Extract arbitrary size values from a packed bit string, right justifying each...
+
void sbit(unsigned char *out, g2int *in, g2int iskip, g2int nbyte)
Store bits - put arbitrary size values into a packed bit string, taking the low order bits from each ...
+
void gbits(unsigned char *in, g2int *iout, g2int iskip, g2int nbyte, g2int nskip, g2int n)
Get bits - unpack bits: Extract arbitrary size values from a packed bit string, right justifying each...
+
void sbits(unsigned char *out, g2int *in, g2int iskip, g2int nbyte, g2int nskip, g2int n)
Store bits - put arbitrary size values into a packed bit string, taking the low order bits from each ...
+
Header file for NCEPLIBS-g2c library.
+
int64_t g2int
Long integer type.
+
+
NCEPLIBS-g2c: getdim.c File Reference
+
+
+
+
+
+
+ NCEPLIBS-g2c
+ 1.6.4
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
Return the dimensions and scanning mode of a grid definition packed in GRIB2 Grid Definition Section 3 format.
+More...
+
#include <stdio.h>
+
#include <stdlib.h>
+
#include "grib2.h "
+
+
Go to the source code of this file.
+
+g2int getdim (unsigned char *csec3, g2int *width, g2int *height, g2int *iscan) This subroutine returns the dimensions and scanning mode of a grid definition packed in GRIB2 Grid Definition Section 3 format. More...
+
+
Return the dimensions and scanning mode of a grid definition packed in GRIB2 Grid Definition Section 3 format.
+
Author Stephen Gilbert
+
Date 2002-12-11
+
+
Definition in file getdim.c .
+
+
+
◆
+
+
+
+
+
+ g2int getdim (
+ unsigned char *
+ csec3 ,
+
+ g2int * width ,
+
+ g2int * height ,
+
+ g2int * iscan
+
+ )
+
+
+
+
+
This subroutine returns the dimensions and scanning mode of a grid definition packed in GRIB2 Grid Definition Section 3 format.
+
Parameters
+
+ csec3 Character array that contains the packed GRIB2 GDS. width x (or i) dimension of the grid. 0 if grid is not recognized. height y (or j) dimension of the grid. 0 if grid is not recognized. iscan Scanning mode (see Table 3.4 ). 0 of grid not recognized.
+
+
+
Returns Always returns 0.
+
Author Stephen Gilbert
+
Date 2002-12-11
+
+
Definition at line 29 of file getdim.c .
+
+
References g2_unpack3() .
+
+
Referenced by g2_addfield() .
+
+
+
+
+
NCEPLIBS-g2c: getdim.c Source File
+
+
+
+
+
+
+ NCEPLIBS-g2c
+ 1.6.4
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
Go to the documentation of this file.
+
+
+
+
+
+
+
+
31 g2int *igdstmpl = NULL, *list_opt = NULL;
+
+
33 g2int iofst, igdtlen, num_opt, jerr;
+
+
+
36 if (!(jerr =
g2_unpack3 (csec3, &iofst, &igds, &igdstmpl, &igdtlen,
+
37 &list_opt, &num_opt)))
+
+
+
+
+
+
+
+
+
+
47 *height = igdstmpl[8];
+
48 *iscan = igdstmpl[18];
+
+
+
+
+
+
54 *height = igdstmpl[8];
+
55 *iscan = igdstmpl[15];
+
+
+
+
+
+
61 *height = igdstmpl[8];
+
62 *iscan = igdstmpl[17];
+
+
+
+
+
+
68 *height = igdstmpl[8];
+
69 *iscan = igdstmpl[17];
+
+
+
+
+
+
+
+
+
78 *height = igdstmpl[8];
+
79 *iscan = igdstmpl[18];
+
+
+
+
+
+
85 *height = igdstmpl[8];
+
86 *iscan = igdstmpl[16];
+
+
+
+
+
+
92 *height = igdstmpl[8];
+
93 *iscan = igdstmpl[15];
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
g2int g2_unpack3(unsigned char *, g2int *, g2int **, g2int **, g2int *, g2int **, g2int *)
This routine unpacks Section 3 (Grid Definition Section) as defined in GRIB Edition 2.
+
g2int getdim(unsigned char *csec3, g2int *width, g2int *height, g2int *iscan)
This subroutine returns the dimensions and scanning mode of a grid definition packed in GRIB2 Grid De...
+
Header file for NCEPLIBS-g2c library.
+
int64_t g2int
Long integer type.
+
+
NCEPLIBS-g2c: getpoly.c File Reference
+
+
+
+
+
+
+ NCEPLIBS-g2c
+ 1.6.4
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
Return the J, K, and M pentagonal resolution parameters specified in a GRIB Grid Definition Section used spherical harmonic coefficients using GDT 5.50 through 5.53.
+More...
+
#include <stdio.h>
+
#include <stdlib.h>
+
#include "grib2.h "
+
+
Go to the source code of this file.
+
+g2int getpoly (unsigned char *csec3, g2int *jj, g2int *kk, g2int *mm) This subroutine returns the J, K, and M pentagonal resolution parameters specified in a GRIB Grid Definition Section (GDS) used spherical harmonic coefficients using GDT 5.50 through 5.53. More...
+
+
Return the J, K, and M pentagonal resolution parameters specified in a GRIB Grid Definition Section used spherical harmonic coefficients using GDT 5.50 through 5.53.
+
Author Stephen Gilbert
+
Date 2002-12-11
+
+
Definition in file getpoly.c .
+
+
+
◆
+
+
+
+
+
+ g2int getpoly (
+ unsigned char *
+ csec3 ,
+
+ g2int * jj ,
+
+ g2int * kk ,
+
+ g2int * mm
+
+ )
+
+
+
+
+
This subroutine returns the J, K, and M pentagonal resolution parameters specified in a GRIB Grid Definition Section (GDS) used spherical harmonic coefficients using GDT 5.50 through 5.53.
+
If 51 - complex data spectral packing is used as the data representation template number (see Table 5.0 ), then the Grid Definition Template Number in section 3 should be one of:
+50: Spherical Harmonic Coefficients (See Template 3.50)
+51: Rotated Spherical Harmonic Coefficients (See Template 3.51)
+52: Stretched Spherical Harmonic Coefficients (See Template 3.52)
+53: Rotated and Stretched Spherical Harmonic Coefficients (See Template 3.53)
+
+
Parameters
+
+ csec3 Character array that contains the packed GRIB2 GDS. jj J pentagonal resolution parameter. kk K pentagonal resolution parameter. mm M pentagonal resolution parameter.
+
+
+
Returns always returns 0.
+
Note Returns jj, kk, and mm set to zero, if grid template not recognized.
+
Author Stephen Gilbert
+
Date 2002-12-11
+
+
Definition at line 40 of file getpoly.c .
+
+
References g2_unpack3() .
+
+
Referenced by g2_addfield() .
+
+
+
+
+
NCEPLIBS-g2c: getpoly.c Source File
+
+
+
+
+
+
+ NCEPLIBS-g2c
+ 1.6.4
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
Go to the documentation of this file.
+
+
+
+
+
+
+
+
+
43 g2int *igdstmpl, *list_opt;
+
+
45 g2int iofst, igdtlen, num_opt;
+
+
+
48 if (!
g2_unpack3 (csec3, &iofst, &igds, &igdstmpl, &igdtlen,
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
g2int g2_unpack3(unsigned char *, g2int *, g2int **, g2int **, g2int *, g2int **, g2int *)
This routine unpacks Section 3 (Grid Definition Section) as defined in GRIB Edition 2.
+
g2int getpoly(unsigned char *csec3, g2int *jj, g2int *kk, g2int *mm)
This subroutine returns the J, K, and M pentagonal resolution parameters specified in a GRIB Grid Def...
+
Header file for NCEPLIBS-g2c library.
+
int64_t g2int
Long integer type.
+
+
NCEPLIBS-g2c: Globals
+
+
+
+
+
+
+ NCEPLIBS-g2c
+ 1.6.4
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
Here is a list of all documented functions, variables, defines, enums, and typedefs with links to the documentation:
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+g2_addfield()
+: grib2.h
+, g2_addfield.c
+
+g2_addgrid()
+: grib2.h
+, g2_addgrid.c
+
+g2_addlocal()
+: g2_addlocal.c
+, grib2.h
+
+g2_create()
+: g2_create.c
+, grib2.h
+
+g2_free()
+: g2_free.c
+, grib2.h
+
+g2_getfld()
+: g2_getfld.c
+, grib2.h
+
+g2_gribend()
+: g2_gribend.c
+, grib2.h
+
+g2_info()
+: grib2.h
+, g2_info.c
+
+g2_miss()
+: g2_miss.c
+
+g2_unpack1()
+: g2_getfld.c
+, g2_unpack1.c
+, grib2.h
+
+g2_unpack2()
+: g2_getfld.c
+, g2_unpack2.c
+
+g2_unpack3()
+: g2_getfld.c
+, g2_unpack3.c
+, grib2.h
+
+g2_unpack4()
+: g2_getfld.c
+, g2_unpack4.c
+, grib2.h
+
+g2_unpack5()
+: grib2.h
+, g2_getfld.c
+, g2_unpack5.c
+
+g2_unpack6()
+: g2_getfld.c
+, g2_unpack6.c
+, grib2.h
+
+g2_unpack7()
+: g2_getfld.c
+, g2_unpack7.c
+, grib2.h
+
+G2_VERSION
+: grib2.h
+
+g2float
+: grib2.h
+
+g2int
+: grib2.h
+
+g2intu
+: grib2.h
+
+gbit()
+: gbits.c
+, grib2.h
+
+gbits()
+: grib2.h
+, gbits.c
+
+getdim()
+: g2_addfield.c
+, getdim.c
+
+getdrsindex()
+: drstemplates.c
+
+getdrstemplate()
+: drstemplates.c
+, grib2.h
+
+getgridindex()
+: gridtemplates.c
+
+getgridtemplate()
+: gridtemplates.c
+, grib2.h
+
+getpdsindex()
+: pdstemplates.c
+
+getpdstemplate()
+: pdstemplates.c
+, grib2.h
+
+getpoly()
+: g2_addfield.c
+, getpoly.c
+
+gribfield
+: grib2.h
+
+gtemplate
+: grib2.h
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
NCEPLIBS-g2c: Globals
+
+
+
+
+
+
+ NCEPLIBS-g2c
+ 1.6.4
+
+
+
+
+
+
+
+
+
+
+
+
+
+
NCEPLIBS-g2c: Globals
+
+
+
+
+
+
+ NCEPLIBS-g2c
+ 1.6.4
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+g2_addfield()
+: grib2.h
+, g2_addfield.c
+
+g2_addgrid()
+: grib2.h
+, g2_addgrid.c
+
+g2_addlocal()
+: g2_addlocal.c
+, grib2.h
+
+g2_create()
+: g2_create.c
+, grib2.h
+
+g2_free()
+: g2_free.c
+, grib2.h
+
+g2_getfld()
+: g2_getfld.c
+, grib2.h
+
+g2_gribend()
+: g2_gribend.c
+, grib2.h
+
+g2_info()
+: g2_info.c
+, grib2.h
+
+g2_miss()
+: g2_miss.c
+
+g2_unpack1()
+: g2_getfld.c
+, g2_unpack1.c
+, grib2.h
+
+g2_unpack2()
+: g2_getfld.c
+, g2_unpack2.c
+
+g2_unpack3()
+: g2_getfld.c
+, g2_unpack3.c
+, grib2.h
+
+g2_unpack4()
+: grib2.h
+, g2_getfld.c
+, g2_unpack4.c
+
+g2_unpack5()
+: g2_getfld.c
+, g2_unpack5.c
+, grib2.h
+
+g2_unpack6()
+: g2_getfld.c
+, g2_unpack6.c
+, grib2.h
+
+g2_unpack7()
+: g2_getfld.c
+, g2_unpack7.c
+, grib2.h
+
+gbit()
+: gbits.c
+, grib2.h
+
+gbits()
+: grib2.h
+, gbits.c
+
+getdim()
+: g2_addfield.c
+, getdim.c
+
+getdrsindex()
+: drstemplates.c
+
+getdrstemplate()
+: drstemplates.c
+, grib2.h
+
+getgridindex()
+: gridtemplates.c
+
+getgridtemplate()
+: gridtemplates.c
+, grib2.h
+
+getpdsindex()
+: pdstemplates.c
+
+getpdstemplate()
+: pdstemplates.c
+, grib2.h
+
+getpoly()
+: g2_addfield.c
+, getpoly.c
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
NCEPLIBS-g2c: Globals
+
+
+
+
+
+
+ NCEPLIBS-g2c
+ 1.6.4
+
+
+
+
+
+
+
+
+
+
+
+
+
+
NCEPLIBS-g2c: Globals
+
+
+
+
+
+
+ NCEPLIBS-g2c
+ 1.6.4
+
+
+
+
+
+
+
+
+
+
+
+
+
+
NCEPLIBS-g2c: grib2.h File Reference
+
+
+
+
+
+
+ NCEPLIBS-g2c
+ 1.6.4
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
Header file for NCEPLIBS-g2c library.
+More...
+
#include <stdio.h>#include <stdint.h>
+
Go to the source code of this file.
+
+#define G2_VERSION "g2clib-1.6.4" Current version of NCEPLIBS-g2c library. More...
+void compack (g2float *, g2int , g2int , g2int *, unsigned char *, g2int *) This subroutine packs up a data field using a complex packing algorithm as defined in the GRIB2 documention. More... gtemplate * extdrstemplate (g2int , g2int *) This subroutine generates the remaining octet map for a given Data Representation Template, if required. More... gtemplate * extgridtemplate (g2int , g2int *) This subroutine generates the remaining octet map for a given Grid Definition Template, if required. More... gtemplate * extpdstemplate (g2int , g2int *) This subroutine generates the remaining octet map for a given Product Definition Template, if required. More... g2int g2_addfield (unsigned char *, g2int , g2int *, g2float *, g2int , g2int , g2int *, g2float *, g2int , g2int , g2int *) This routine packs up Sections 4 through 7 for a given field and adds them to a GRIB2 message. More... g2int g2_addgrid (unsigned char *, g2int *, g2int *, g2int *, g2int ) This routine packs up a Grid Definition Section (Section 3) and adds it to a GRIB2 message. More... g2int g2_addlocal (unsigned char *, unsigned char *, g2int ) This routine adds a Local Use Section (Section 2) to a GRIB2 message. More... g2int g2_create (unsigned char *, g2int *, g2int *) This routine initializes a new GRIB2 message and packs GRIB2 sections 0 (Indicator Section) and 1 (Identification Section). More... void g2_free (gribfield *) This routine frees up memory that was allocated for struct gribfield. More... g2int g2_getfld (unsigned char *, g2int , g2int , g2int , gribfield **) This subroutine returns all the metadata, template values, bit-map (if applicable), and the unpacked data for a given data field. More... g2int g2_gribend (unsigned char *) This routine finalizes a GRIB2 message after all grids and fields have been added. More... g2int g2_info (unsigned char *, g2int *, g2int *, g2int *, g2int *) This subroutine searches through a GRIB2 message and returns the number of gridded fields found in the message and the number (and maximum size) of Local Use Sections. More... g2int g2_unpack1 (unsigned char *, g2int *, g2int **, g2int *) This subroutine unpacks Section 1 - Identification Section as defined in GRIB Edition 2. More... g2int g2_unpack3 (unsigned char *, g2int *, g2int **, g2int **, g2int *, g2int **, g2int *) This routine unpacks Section 3 (Grid Definition Section) as defined in GRIB Edition 2. More... g2int g2_unpack4 (unsigned char *, g2int *, g2int *, g2int **, g2int *, g2float **, g2int *) This subroutine unpacks Section 4 (Product Definition Section) as defined in GRIB Edition 2. More... g2int g2_unpack5 (unsigned char *, g2int *, g2int *, g2int *, g2int **, g2int *) This subroutine unpacks Section 5 (Data Representation Section) as defined in GRIB Edition 2. More... g2int g2_unpack6 (unsigned char *, g2int *, g2int , g2int *, g2int **) This subroutine unpacks Section 6 (Bit-Map Section) as defined in GRIB Edition 2. More... g2int g2_unpack7 (unsigned char *, g2int *, g2int , g2int *, g2int , g2int *, g2int , g2float **) This subroutine unpacks Section 7 (Data Section) as defined in GRIB Edition 2. More... void gbit (unsigned char *, g2int *, g2int , g2int ) Get bits - unpack bits: Extract arbitrary size values from a packed bit string, right justifying each value in the unpacked iout array. More... void gbits (unsigned char *, g2int *, g2int , g2int , g2int , g2int ) Get bits - unpack bits: Extract arbitrary size values from a packed bit string, right justifying each value in the unpacked iout array. More... gtemplate * getdrstemplate (g2int ) This subroutine returns DRS template information for a specified Data Representation Template. More... gtemplate * getgridtemplate (g2int ) This subroutine returns grid template information for a specified Grid Definition Template for [Section 3 - the Grid Definition Section (GDS)](https://www.nco.ncep.noaa.gov/pmb/docs/grib2/grib2_doc/grib2_sect3.shtml ). More... gtemplate * getpdstemplate (g2int ) This subroutine returns PDS template information for a specified Product Definition Template. More... double int_power (double, g2int ) Function similar to C pow() power function. More... void misspack (g2float *, g2int , g2int , g2int *, unsigned char *, g2int *) This subroutine packs up a data field using a complex packing algorithm as defined in the GRIB2 documention. More... void mkieee (g2float *, g2int *, g2int ) This subroutine stores a list of real values in 32-bit IEEE floating point format. More... int pack_gp (g2int *, g2int *, g2int *, g2int *, g2int *, g2int *, g2int *, g2int *, g2int *, g2int *, g2int *, g2int *, g2int *, g2int *, g2int *, g2int *, g2int *, g2int *, g2int *, g2int *) Determines groups of variable size, but at least of size minpk, the associated max (jmax( )) and min (jmin( )), the number of bits necessary to hold the values in each group (lbit( )), the number of values in each group (nov( )), the number of bits necessary to pack the jmin( ) values (ibit), the number of bits necessary to pack the lbit( ) values (jbit), and the number of bits necessary to pack the nov( ) values (kbit). More... void rdieee (g2int *, g2float *, g2int ) This subroutine reads a list of real values in 32-bit IEEE floating point format. More... void sbit (unsigned char *, g2int *, g2int , g2int ) Store bits - put arbitrary size values into a packed bit string, taking the low order bits from each value in the unpacked array. More... void sbits (unsigned char *, g2int *, g2int , g2int , g2int , g2int ) Store bits - put arbitrary size values into a packed bit string, taking the low order bits from each value in the unpacked array. More... void seekgb (FILE *, g2int , g2int , g2int *, g2int *) This subprogram searches a file for the next GRIB Message. More... void simpack (g2float *, g2int , g2int *, unsigned char *, g2int *) This subroutine packs up a data field using the simple packing algorithm as defined in the GRIB2 documention. More...
+
+
Header file for NCEPLIBS-g2c library.
+
+
+
+Date Programmer Comments
+
+2002-10-25 Gilbert Initial
+
+2009-01-14 Vuong Changed struct template to gtemplate
+
+
Author Stephen Gilbert
+
Date 2002-10-25
+
+
Definition in file grib2.h .
+
+
+
◆
+
+
+
+
Struct for GRIB field.
+
+
Definition at line 60 of file grib2.h .
+
+Data Fields
+g2int *
+
+bmap
+
+Integer array containing decoded bitmap, if ibmap=0 or ibap=254. Otherwise NULL.
+
+g2float *
+
+coord_list
+
+Array containing floating point values intended to document the vertical discretisation associated to model data on hybrid coordinate vertical levels (part of Section 4).
+g2int
+
+discipline
+
+Message Discipline (see Table 0.0 ).
+g2int
+
+expanded
+
+Logical value indicating whether the data field was expanded to the grid in the case where a bit-map is present. If true, the data points in fld match the grid points and zeros were inserted at grid points where data was bit-mapped out. If false, the data values in ld were not expanded to the grid and are just a consecutive array of data points corresponding to each value of "1" in bmap.
+
+g2float *
+
+fld
+
+Array of ndpts unpacked data points.
+g2int
+
+griddef
+
+Source of grid definition (see Table 3.0 ).
+0 Specified in Table 3.1 .
+1 Predetermined grid Defined by originating centre.
+
+
+
+
+g2int
+
+ibmap
+
+Bitmap indicator (see Table 6.0 ).
+0 bitmap applies and is included in Section 6.
+1-253 = Predefined bitmap applies
+254 = Previously defined bitmap applies to this field
+255 = Bit map does not apply to this product.
+
+
+g2int
+
+idrtlen
+
+Number of elements in idrtmpl.
+g2int *
+
+idrtmpl
+
+Contains the data values for the Data Representation Template specified by idrtnum.
+g2int
+
+idrtnum
+
+Data Representation Template Number (see Table 5.0 ).
+g2int *
+
+idsect
+
+Contains the entries in the Identification Section (Section 1) .
+idsect[0] Identification of originating Centre (see Table 0 ). 7 is the identification for the US National Weather Service.
+idsect[1] Identification of originating Sub-centre. (See Table C ).
+idsect[2] GRIB Master Tables Version Number (see Table 1.0 ).
+0 Experimental
+1 Initial operational version number
+
+
+idsect[3] GRIB Local Tables Version Number (see Table 1.1 ).
+0 Local tables not used
+1-254 Number of local tables version used
+
+
+idsect[4] Significance of Reference Time (See Table 1.2 ).
+0 Analysis
+1 Start of forecast
+2 Verifying time of forecast
+3 Observation time
+
+
+idsect[5] Year (4 digits)
+idsect[6] Month
+idsect[7) Day
+idsect[8] Hour
+idsect[9] Minute
+idsect[10] Second
+idsect[11] Production status of processed data (see Table 1.3 ).
+0 Operational products
+1 Operational test products
+2 Research products
+3 Re-analysis products
+
+
+idsect[12] Type of processed data (see Table 1.4 ).
+0 Analysis products
+1 Forecast products
+2 Analysis and forecast products
+3 Control forecast products
+4 Perturbed forecast products
+5 Control and perturbed forecast products
+6 Processed satellite observations
+7 Processed radar observations
+
+
+
+
+g2int
+
+idsectlen
+
+Number of elements in idsect.
+g2int
+
+ifldnum
+
+Field number within GRIB message.
+g2int
+
+igdtlen
+
+Number of elements in igdtmpl - i.e. number of entries in Grid Defintion Template.
+
+g2int *
+
+igdtmpl
+
+Contains the data values for the Grid Definition Template specified by igdtnum.
+g2int
+
+igdtnum
+
+Grid Definition Template Number (See Table 3.1 ).
+g2int
+
+interp_opt
+
+Interpretation of list for optional points definition. (See Table 3.11 ).
+
+g2int
+
+ipdtlen
+
+Number of elements in ipdtmpl - i.e. number of entries in Product Defintion Template.
+
+g2int *
+
+ipdtmpl
+
+Contains the data values for the Product Definition Template specified by ipdtnum.
+g2int
+
+ipdtnum
+
+Product Definition Template Number (see Table 4.0 ).
+g2int *
+
+list_opt
+
+(Used if numoct_opt .ne. 0) This array contains the number of grid points contained in each row (or column) (part of Section 3). NULL if numoct_opt = 0.
+
+
+
+local
+
+Pointer to character array containing contents of Local Section 2, if included.
+g2int
+
+locallen
+
+Length of array local.
+g2int
+
+ndpts
+
+Number of data points unpacked and returned.
+g2int
+
+ngrdpts
+
+Number of grid points in the defined grid.
+g2int
+
+num_coord
+
+Number of values in array coord_list.
+g2int
+
+num_opt
+
+(Used if numoct_opt .ne. 0) The number of entries in array ideflist - i.e. number of rows (or columns) for which optional grid points are defined. This value is set to zero, if numoct_opt=0.
+
+g2int
+
+numoct_opt
+
+Number of octets needed for each additional grid points definition. Used to define number of points in each row (or column) for non-regular grids. = 0, if using regular grid.
+
+g2int
+
+unpacked
+
+Logical value indicating whether the bitmap and data values were unpacked. If false, bmap and fld pointers are NULL.
+
+g2int
+
+version
+
+GRIB edition number (2).
+
+
+
+
+
◆
+
+
+
+
Struct for GRIB template.
+
+
Definition at line 27 of file grib2.h .
+
+Data Fields
+g2int *
+
+ext
+
+Number of octets of each entry in the extension part of the template.
+g2int
+
+extlen
+
+Number of entries in the template extension.
+g2int *
+
+map
+
+Number of octets of each entry in the static part of the template.
+g2int
+
+maplen
+
+Number of entries in the static part of the template.
+g2int
+
+needext
+
+Indicates whether or not the template needs to be extended.
+g2int
+
+num
+
+The template number.
+g2int
+
+type
+
+The template type: 3 Grid Defintion Template. 4 Product Defintion Template. 5 Data Representation Template.
+
+
+
+
+
+
+
◆
+
+
+
+
+
+ #define G2_VERSION "g2clib-1.6.4"
+
+
+
+
+
Current version of NCEPLIBS-g2c library.
+
+
Definition at line 18 of file grib2.h .
+
+
+
+
+
+
◆
+
+
+
+
+
Float type.
+
+
Definition at line 22 of file grib2.h .
+
+
+
+
+
◆
+
+
+
+
+
+ typedef int64_t g2int
+
+
+
+
+
Long integer type.
+
+
Definition at line 20 of file grib2.h .
+
+
+
+
+
◆
+
+
+
+
+
+ typedef uint64_t g2intu
+
+
+
+
+
Unsigned long integer type.
+
+
Definition at line 21 of file grib2.h .
+
+
+
+
+
◆
+
+
+
+
+
Struct for GRIB field.
+
+
Definition at line 22 of file grib2.h .
+
+
+
+
+
◆
+
+
+
+
+
Struct for GRIB template.
+
+
Definition at line 22 of file grib2.h .
+
+
+
+
+
+
◆
+
+
+
+
+
+ void compack
+ (
+ g2float * fld ,
+
+ g2int ndpts ,
+
+ g2int idrsnum ,
+
+ g2int * idrstmpl ,
+
+ unsigned char *
+ cpack ,
+
+ g2int * lcpack
+
+ )
+
+
+
+
+
This subroutine packs up a data field using a complex packing algorithm as defined in the GRIB2 documention.
+
It supports GRIB2 complex packing templates with or without spatial differences (i.e. DRTs 5.2 and 5.3). It also fills in GRIB2 Data Representation Template 5.2 or Template 5.3 with the appropriate values.
+
Parameters
+
+ fld Contains the data values to pack. ndpts The number of data values in array fld. idrsnum Data Representation Template number. Must equal 2 or 3. idrstmpl Contains the array of values for Data Representation Template 5.2 or 5.3.
+0 Reference value - ignored on input, set my compack() .
+1 Binary Scale Factor
+2 Decimal Scale Factor
+6 Missing value management
+7 Primary missing value
+8 Secondary missing value
+16 Order of Spatial Differencing (1 or 2)
+
+ cpack The packed data field. lcpack length of packed field cpack.
+
+
+
Author Stephen Gilbert
+
Date 2002-11-07
+
+
Definition at line 42 of file compack.c .
+
+
References int_power() , mkieee() , pack_gp() , sbit() , and sbits() .
+
+
Referenced by cmplxpack() .
+
+
+
+
+
◆
+
+
+
+
+
This subroutine generates the remaining octet map for a given Data Representation Template, if required.
+
Some Templates can vary depending on data values given in an earlier part of the Template, and it is necessary to know some of the earlier entry values to generate the full octet map of the Template.
+
Parameters
+
+ number The number of the Data Representation Template that is being requested. list The list of values for each entry in the the Data Representation Template.
+
+
+
Returns Pointer to the returned template struct. Returns NULL pointer, if template not found.
+
Author Stephen Gilbert
+
Date 2000-05-11
+
+
Definition at line 110 of file drstemplates.c .
+
+
References getdrsindex() , and getdrstemplate() .
+
+
Referenced by g2_unpack5() .
+
+
+
+
+
◆
+
+
+
+
+
This subroutine generates the remaining octet map for a given Grid Definition Template, if required.
+
Some Templates can vary depending on data values given in an earlier part of the Template, and it is necessary to know some of the earlier entry values to generate the full octet map of the Template.
+
This function allocates memory for the extension. The pointer ext in the gtemplate struct must be freed to prevent memory leaks.
+
Parameters
+
+ number The number of the Grid Definition Template that is being requested. list The list of values for each entry in the Grid Definition Template.
+
+
+
Returns Pointer to the returned template struct. Returns NULL pointer, if template not found.
+
Author Stephen Gilbert
+
Date 2000-05-09
+
+
Definition at line 124 of file gridtemplates.c .
+
+
References getgridindex() , and getgridtemplate() .
+
+
Referenced by g2_addgrid() , and g2_unpack3() .
+
+
+
+
+
◆
+
+
+
+
+
This subroutine generates the remaining octet map for a given Product Definition Template, if required.
+
Some Templates can vary depending on data values given in an earlier part of the Template, and it is necessary to know some of the earlier entry values to generate the full octet map of the Template.
+
This function allocates memory in the ext field of the gtemplate struct. This memory must be freed by the caller.
+
Parameters
+
+ number number of the Product Definition Template 4.NN that is being requested. list The list of values for each entry in the the Product Definition Template.
+
+
+
Returns Pointer to the returned template struct. Returns NULL pointer if template not found.
+
Author Stephen Gilbert
+
Date 2000-05-11
+
+
Definition at line 121 of file pdstemplates.c .
+
+
References getpdsindex() , and getpdstemplate() .
+
+
Referenced by g2_addfield() , and g2_unpack4() .
+
+
+
+
+
◆
+
+
+
+
+
+ g2int g2_addfield (
+ unsigned char *
+ cgrib ,
+
+ g2int ipdsnum ,
+
+ g2int * ipdstmpl ,
+
+ g2float * coordlist ,
+
+ g2int numcoord ,
+
+ g2int idrsnum ,
+
+ g2int * idrstmpl ,
+
+ g2float * fld ,
+
+ g2int ngrdpts ,
+
+ g2int ibmap ,
+
+ g2int * bmap
+
+ )
+
+
+
+
+
This routine packs up Sections 4 through 7 for a given field and adds them to a GRIB2 message.
+
They are Product Definition Section , Data Representation Section , Bit-Map Section and Data Section , respectively.
+
This routine is used with routines g2_create() , g2_addlocal() , g2_addgrid() , and g2_gribend() to create a complete GRIB2 message. Function g2_create() must be called first to initialize a new GRIB2 message. Function g2_addgrid() must be called after g2_create() and before this routine to add the appropriate grid description to the GRIB2 message. A call to g2_gribend() is required to complete GRIB2 message after all fields have been added.
+
+
+
+Date Programmer Comments
+
+2002-11-05 Gilbert Initial
+
+2002-12-23 Gilbert Added complex spherical harmonic packing
+
+2003-08-27 Gilbert Added support for new templates using PNG and JPEG2000 algorithms/templates.
+
+2004-11-29 Gilbert JPEG2000 now can use WMO Template 5.40 PNG can use WMO Template 5.41. Added packing algorithm check.
+
+2005-05-10 Gilbert Imposed minimum size on cpack.
+
+2009-01-14 Vuong Changed structure name template to gtemplate
+
+
Parameters
+
+ cgrib Char array that contains the GRIB2 message to which sections 4 through 7 should be added. Must be allocated large enough to store the entire GRIB2 message. ipdsnum Product Definition Template Number (see Code Table 4.0 ). ipdstmpl Contains the data values for the Product Definition Template specified by ipdsnum. coordlist Array containg floating point values intended to document the vertical discretisation associated to model data on hybrid coordinate vertical levels. numcoord number of values in array coordlist. idrsnum Data Representation Template Number (see Code Table 5.0 ). idrstmpl The data values for the Data Representation Template specified by idrsnum. Note that some values in this template (eg. reference values, number of bits, etc...) may be changed by the data packing algorithms. Use this to specify scaling factors and order of spatial differencing, if desired. fld Array of data points to pack. ngrdpts Number of data points in grid. i.e. size of fld and bmap. ibmap Bitmap indicator (see Code Table 6.0 )
+0 = bitmap applies and is included in Section 6.
+1-253 = Predefined bitmap applies.
+254 = Previously defined bitmap applies to this field.
+255 = Bit map does not apply to this product.
+
+ bmap Integer array containing bitmap to be added (if ibmap = 0).
+
+
+
Returns
+> 0 Current size of updated GRIB2 message
+-1 GRIB message was not initialized. Need to call routine g2_create() first.
+-2 GRIB message already complete. Cannot add new section.
+-3 Sum of Section byte counts doesn't add to total byte count.
+-4 Previous Section was not 3 or 7.
+-5 Could not find requested Product Definition Template.
+-6 Section 3 (GDS) not previously defined in message.
+-7 Tried to use unsupported Data Representationi Template.
+-8 Specified use of a previously defined bitmap, but one does not exist in the GRIB message.
+-9 GDT of one of 5.50 through 5.53 required to pack field using DRT 5.51.
+-10 Error packing data field.
+
+
+
Note Note that the Sections 4 through 7 can only follow Section 3 or Section 7 in a GRIB2 message.
+
Author Stephen Gilbert
+
Date 2002-11-05
+
+
Definition at line 106 of file g2_addfield.c .
+
+
References cmplxpack() , gtemplate::ext , gtemplate::extlen , extpdstemplate() , gbit() , getdim() , getdrstemplate() , getpdstemplate() , getpoly() , jpcpack() , gtemplate::map , gtemplate::maplen , mkieee() , gtemplate::needext , pngpack() , sbit() , sbits() , simpack() , and specpack() .
+
+
+
+
+
◆
+
+
+
+
+
+ g2int g2_addgrid (
+ unsigned char *
+ cgrib ,
+
+ g2int * igds ,
+
+ g2int * igdstmpl ,
+
+ g2int * ideflist ,
+
+ g2int idefnum
+
+ )
+
+
+
+
+
This routine packs up a Grid Definition Section (Section 3) and adds it to a GRIB2 message.
+
It is used with routines g2_create() , g2_addlocal() , g2_addfield() , and g2_gribend() to create a complete GRIB2 message. g2_create() must be called first to initialize a new GRIB2 message.
+
+
+
+Date Programmer Comments
+
+2002-11-01 Gilbert Initial.
+
+2009-01-14 Vuong Changed structure name template to gtemplate
+
+
Parameters
+
+ cgrib Char array that contains the GRIB2 message to which section should be added. Must be allocated large enough to store the entire GRIB2 message. igds Contains information needed for GRIB Grid Definition Section 3. Must be dimensioned >= 5.
+igds[0] Source of grid definition (see Code Table 3.0 ).
+igds[1] Number of grid points in the defined grid.
+igds[2] Number of octets needed for each additional grid points definition. Used to define number of points in each row (or column) for non-regular grids. = 0, if using regular grid.
+igds[3] Interpretation of list for optional points definition. (See Code Table 3.11 ).
+igds[4] Grid Definition Template Number (See Code Table 3.1 ).
+
+ igdstmpl Contains the data values for the specified Grid Definition Template (igds[4]). Each element of this integer array contains an entry (in the order specified) of Grid Defintion Template. ideflist (Used if igds[2] != 0) This array contains the number of grid points contained in each row (or column). idefnum (Used if igds[2] != 0) The number of entries in array ideflist. i.e. number of rows (or columns) for which optional grid points are defined.
+
+
+
Returns
+> 0 Current size of updated GRIB2 message
+-1 GRIB message was not initialized. Need to call routine gribcreate first.
+-2 GRIB message already complete. Cannot add new section.
+-3 Sum of Section byte counts doesn't add to total byte count
+-4 Previous Section was not 1, 2 or 7.
+-5 Could not find requested Grid Definition Template.
+
+
+
Note The Grid Def Section (Section 3) can only follow Section 1, 2 or Section 7 in a GRIB2 message.
+
Author Stephen Gilbeert
+
Date 2002-11-01
+
+
Definition at line 66 of file g2_addgrid.c .
+
+
References gtemplate::ext , extgridtemplate() , gtemplate::extlen , gbit() , getgridtemplate() , gtemplate::map , gtemplate::maplen , gtemplate::needext , sbit() , and sbits() .
+
+
+
+
+
◆
+
+
+
+
+
+ g2int g2_addlocal (
+ unsigned char *
+ cgrib ,
+
+ unsigned char *
+ csec2 ,
+
+ g2int lcsec2
+
+ )
+
+
+
+
+
This routine adds a Local Use Section (Section 2) to a GRIB2 message.
+
It is used with routines g2_create() , g2_addgrid() , g2_addfield() , and g2_gribend() to create a complete GRIB2 message. g2_create() must be called first to initialize a new GRIB2 message.
+
Parameters
+
+ cgrib Char array that contains the GRIB2 message to which section 2 should be added. Must be allocated large enough to store the entire GRIB2 message. csec2 Character array containing information to be added in Section 2. lcsec2 Number of bytes of character array csec2 to be added to Section 2.
+
+
+
Returns > 0 = Current size of updated GRIB2 message.
+-1 GRIB message was not initialized. Need to call routine gribcreate first.
+-2 GRIB message already complete. Cannot add new section.
+-3 Sum of Section byte counts doesn't add to total byte count
+-4 Previous Section was not 1 or 7.
+
+
+
Note The Local Use Section (Section 2) can only follow Section 1 or Section 7 in a GRIB2 message.
+
Author Stephen Gilbeert
+
Date 2002-11-01
+
+
Definition at line 37 of file g2_addlocal.c .
+
+
References gbit() , and sbit() .
+
+
+
+
+
◆
+
+
+
+
+
+ g2int g2_create (
+ unsigned char *
+ cgrib ,
+
+ g2int * listsec0 ,
+
+ g2int * listsec1
+
+ )
+
+
+
+
+
This routine initializes a new GRIB2 message and packs GRIB2 sections 0 (Indicator Section) and 1 (Identification Section).
+
This routine is used with routines g2_addlocal() , g2_addgrid() , g2_addfield() , and g2_gribend() to create a complete GRIB2 message. g2_create() must be called first to initialize a new GRIB2 message. A call to g2_gribend() is required to complete GRIB2 message after all fields have been added.
+
Parameters
+
+ [in] cgrib Character array to contain the GRIB2 message. Must be allocated large enough to store the entire GRIB2 message. [in] listsec0 Contains information needed for GRIB Indicator Section 0. Must be dimensioned >= 2.
+listsec0[0] Discipline-GRIB Master Table Number (Code Table 0.0 ).
+listsec0[1] GRIB Edition Number (currently 2).
+
+ [in] listsec1 Contains information needed for GRIB Identification Section 1. Must be dimensioned >= 13.
+listsec1[0] Id of orginating centre (Table 0 ).
+listsec1[1] Id of orginating sub-centre (Table C ).
+listsec1[2] GRIB Master Tables Version Number (Table 1.0 ).
+listsec1[3] GRIB Local Tables Version Number (Table 1.1 ).
+listsec1[4] Significance of Reference Time (Table 1.2 )
+listsec1[5] Reference Time - Year (4 digits)
+listsec1[6] Reference Time - Month
+listsec1[7] Reference Time - Day
+listsec1[8] Reference Time - Hour
+listsec1[9] Reference Time - Minute
+listsec1[10] Reference Time - Second
+listsec1[11] Production status of data (Table 1.3 ).
+listsec1[12] Type of processed data (Table 1.4 ).
+
+
+
+
+
Returns - > 0 Current size of new GRIB2 message
+-1 Tried to use for version other than GRIB Edition 2
+
+
+
This routine is intended for use with routines g2_addlocal() , g2_addgrid() , g2_addfield() , and g2_gribend() to create a complete GRIB2 message.
+
Author Stephen Gilbeert
+
Date 2002-10-31
+
+
Definition at line 63 of file g2_create.c .
+
+
References LENSEC0 , MAPSEC1LEN , and sbit() .
+
+
+
+
+
◆
+
+
+
+
+
+ void g2_free
+ (
+ gribfield * gfld )
+
+
+
+
+
This routine frees up memory that was allocated for struct gribfield.
+
Parameters
+
+ gfld pointer to gribfield structure (defined in include file grib2.h ) returned from routine g2_getfld() .
+
+
+
Note This routine must be called to free up memory used by the decode routine, g2_getfld() , when user no longer needs to reference this data.
+
Author Stephen Gilbeert
+
Date 2002-10-28
+
+
Definition at line 24 of file g2_free.c .
+
+
References gribfield::bmap , gribfield::coord_list , gribfield::fld , gribfield::idrtmpl , gribfield::idsect , gribfield::igdtmpl , gribfield::ipdtmpl , gribfield::list_opt , and gribfield::local .
+
+
+
+
+
◆
+
+
+
+
+
+ g2int g2_getfld (
+ unsigned char *
+ cgrib ,
+
+ g2int ifldnum ,
+
+ g2int unpack ,
+
+ g2int expand ,
+
+ gribfield ** gfld
+
+ )
+
+
+
+
+
This subroutine returns all the metadata, template values, bit-map (if applicable), and the unpacked data for a given data field.
+
All of the information returned is stored in a gribfield structure, which is defined in file grib2.h . Users of this routine will need to include grib2.h in their source code that calls this routine.
+
Since there can be multiple data fields packed into a GRIB2 message, the calling routine indicates which field is being requested with the ifldnum argument.
+
+
+
+Date Programmer Comments
+
+2002-10-28 Gilbert Initial
+
+2013-08-08 Vuong Free up memory in array igds - free(igds)
+
+
Parameters
+
+ cgrib Character pointer to the GRIB2 message. ifldnum Specifies which field in the GRIB2 message to return. The first field is number 1, Fortran style. unpack Boolean value indicating whether to unpack bitmap/data field.
+1 unpack bitmap (if present) and data values.
+0 do not unpack bitmap and data values.
+
+ expand Boolean value indicating whether the data points should be expanded to the correspond grid, if a bit-map is present. This argument is ignored if unpack == 0 OR if the returned field does not contain a bit-map.
+1 if possible, expand data field to grid, inserting zero values at gridpoints that are bitmapped out. (SEE REMARKS2)
+0 do not expand data field, leaving it an array of consecutive data points for each "1" in the bitmap.
+
+ gfld pointer to structure gribfield containing all decoded data for the data field.
+
+
+
Returns
+0 no error
+1 Beginning characters "GRIB" not found.
+2 GRIB message is not Edition 2.
+3 The data field request number was not positive.
+4 End string "7777" found, but not where expected.
+6 GRIB message did not contain the requested number of data fields.
+7 End string "7777" not found at end of message.
+8 Unrecognized Section encountered.
+9 Data Representation Template 5.NN not yet implemented.
+15 Error unpacking Section 1.
+16 Error unpacking Section 2.
+10 Error unpacking Section 3.
+11 Error unpacking Section 4.
+12 Error unpacking Section 5.
+13 Error unpacking Section 6.
+14 Error unpacking Section 7.
+17 Previous bitmap specified, yet none exists.
+
+
+
Note Struct gribfield is allocated by this routine and it also contains pointers to many arrays of data that were allocated during decoding. Users are encouraged to free up this memory, when it is no longer needed, by an explicit call to routine g2_free() .
+
+
+
+
+
...
+
g2_free(gfld);
+
g2int g2_getfld(unsigned char *cgrib, g2int ifldnum, g2int unpack, g2int expand, gribfield **gfld)
This subroutine returns all the metadata, template values, bit-map (if applicable),...
+
Header file for NCEPLIBS-g2c library.
+
+
Routine g2_info() can be used to first determine how many data fields exist in a given GRIB message.
+
Note It may not always be possible to expand a bit-mapped data field. If a pre-defined bit-map is used and not included in the GRIB2 message itself, this routine would not have the necessary information to expand the data. In this case, gfld->expanded would would be set to 0 (false), regardless of the value of input argument expand.
+
Author Stephen Gilbert
+
Date 2002-10-28
+
+
Definition at line 102 of file g2_getfld.c .
+
+
References gribfield::bmap , gribfield::coord_list , gribfield::discipline , gribfield::expanded , gribfield::fld , g2_unpack1() , g2_unpack2() , g2_unpack3() , g2_unpack4() , g2_unpack5() , g2_unpack6() , g2_unpack7() , gbit() , gribfield::griddef , gribfield::ibmap , gribfield::idrtlen , gribfield::idrtmpl , gribfield::idrtnum , gribfield::idsect , gribfield::idsectlen , gribfield::ifldnum , gribfield::igdtlen , gribfield::igdtmpl , gribfield::igdtnum , gribfield::interp_opt , gribfield::ipdtlen , gribfield::ipdtmpl , gribfield::ipdtnum , gribfield::list_opt , gribfield::local , gribfield::locallen , gribfield::ndpts , gribfield::ngrdpts , gribfield::num_coord , gribfield::num_opt , gribfield::numoct_opt , gribfield::unpacked , and gribfield::version .
+
+
+
+
+
◆
+
+
+
+
+
+ g2int g2_gribend (
+ unsigned char *
+ cgrib )
+
+
+
+
+
This routine finalizes a GRIB2 message after all grids and fields have been added.
+
It adds the End Section ("7777") to the end of the GRIB message and calculates the length and stores it in the appropriate place in Section 0. This routine is used with routines g2_create() , g2_addlocal() , g2_addgrid() , and g2_addfield() to create a complete GRIB2 message.
+
Parameters
+
+
+
+
Returns
+> 0 Length of the final GRIB2 message in bytes.
+-1 GRIB message was not initialized. Need to call routine g2_create first.
+-2 GRIB message already complete.
+-3 Sum of Section byte counts doesn't add to total byte count
+-4 Previous Section was not 7.
+
+
+
Note This routine is intended for use with routines g2_create() , g2_addlocal() , g2_addgrid() , and g2_addfield() to create a complete GRIB2 message.
+
Author Stephen Gilbert
+
Date 2002-10-31
+
+
Definition at line 35 of file g2_gribend.c .
+
+
References gbit() , and sbit() .
+
+
+
+
+
◆
+
+
+
+
+
+ g2int g2_info (
+ unsigned char *
+ cgrib ,
+
+ g2int * listsec0 ,
+
+ g2int * listsec1 ,
+
+ g2int * numfields ,
+
+ g2int * numlocal
+
+ )
+
+
+
+
+
This subroutine searches through a GRIB2 message and returns the number of gridded fields found in the message and the number (and maximum size) of Local Use Sections.
+
Also various checks are performed to see if the message is a valid GRIB2 message.
+
Parameters
+
+ cgrib Character pointer to the GRIB2 message. listsec0 pointer to an array containing information decoded from GRIB Indicator Section 0. Must be allocated with >= 3 elements.
+listsec0(0) Discipline-GRIB Master Table Number (Code Table 0.0 ).
+listsec0[1] GRIB Edition Number (currently 2).
+listsec0[2] Length of GRIB message.
+
+ listsec1 Pointer to an array containing information read from GRIB Identification Section 1. Must be allocated with >= 13 elements.
+listsec1[0] Id of orginating centre (Table 0 ).
+listsec1[1] Id of orginating sub-centre (Table C ).
+listsec1[2] GRIB Master Tables Version Number (Table 1.0 ).
+listsec1[3] GRIB Local Tables Version Number (Table 1.1 ).
+listsec1[4] Significance of Reference Time (Table 1.2 )
+listsec1[5] Reference Time - Year (4 digits)
+listsec1[6] Reference Time - Month
+listsec1[7] Reference Time - Day
+listsec1[8] Reference Time - Hour
+listsec1[9] Reference Time - Minute
+listsec1[10] Reference Time - Second
+listsec1[11] Production status of data (Table 1.3 ).
+listsec1[12] Type of processed data (Table 1.4 ).
+
+ numfields The number of gridded fields found in the GRIB message. That is, the number of occurences of Sections 4 - 7. numlocal The number of Local Use Sections ( Section 2 ) found in the GRIB message.
+
+
+
Returns 0 foe success, otherwise:
+1 Beginning characters "GRIB" not found.
+2 GRIB message is not Edition 2.
+3 Could not find Section 1, where expected.
+4 End string "7777" found, but not where expected.
+5 End string "7777" not found at end of message.
+6 Invalid section number found.
+
+
+
Author Stephen Gilbeert
+
Date 2002-10-28
+
+
Definition at line 67 of file g2_info.c .
+
+
References gbit() .
+
+
+
+
+
◆
+
+
+
+
+
+ g2int g2_unpack1 (
+ unsigned char *
+ cgrib ,
+
+ g2int * iofst ,
+
+ g2int ** ids ,
+
+ g2int * idslen
+
+ )
+
+
+
+
+
This subroutine unpacks Section 1 - Identification Section as defined in GRIB Edition 2.
+
Parameters
+
+ cgrib char array containing Section 1 of the GRIB2 message. iofst Bit offset for the beginning of Section 1 in cgrib. ids Pointer that gets an array which contians the information read from Section 1, the Identification section. This array is allocated by this function, and must be freed by caller (using g2_free() ).
+ids[0] Identification of originating Centre (see Table 0 ).
+ids[1] Identification of originating Sub-centre (see Table C ).
+ids[2] GRIB Master Tables Version Number (see Table 1.0 ).
+ids[3] GRIB Local Tables Version Number (see Table 1.1 ).
+ids[4] Significance of Reference Time (see Table 1.2 ).
+ids[5] Year (4 digits)
+ids[6] Month
+ids[7] Day
+ids[8] Hour
+ids[9] Minute
+ids[10] Second
+ids[11] Production status of processed data (see Table 1.3 ).
+ids[12] Type of processed data (see Table 1.4 ).
+
+ idslen Number of elements in ids.
+
+
+
Returns
+0 no error
+2 Array passed is not section 1
+6 memory allocation error
+
+
+
Author Stephen Gilbert
+
Date 2002-10-29
+
+
Definition at line 55 of file g2_unpack1.c .
+
+
+
+
+
◆
+
+
+
+
+
+ g2int g2_unpack3 (
+ unsigned char *
+ cgrib ,
+
+ g2int * iofst ,
+
+ g2int ** igds ,
+
+ g2int ** igdstmpl ,
+
+ g2int * mapgridlen ,
+
+ g2int ** ideflist ,
+
+ g2int * idefnum
+
+ )
+
+
+
+
+
This routine unpacks Section 3 (Grid Definition Section) as defined in GRIB Edition 2.
+
+
+
+Date Programmer Comments
+
+2002-10-31 Gilbert Initial
+
+2009-01-14 Vuong Changed structure name template to gtemplate
+
+
Parameters
+
+ cgrib Char array ontaining Section 3 of the GRIB2 message. iofst Bit offset for the beginning of Section 3 in cgrib. igds Contains information read from the appropriate GRIB Grid Definition Section 3 for the field being returned.
+igds[0] Source of grid definition (see Table 3.0 ).
+igds[1] Number of grid points in the defined grid.
+igds[2] Number of octets needed for each additional grid points definition. Used to define number of points in each row (or column) for non-regular grids. = 0, if using regular grid.
+igds[3] Interpretation of list for optional points definition. (See Table 3.11 )
+igds[4] Grid Definition Template Number (see Table 3.1 ).
+
+ igdstmpl Pointer to integer array containing the data values for the Grid Definition Template specified by igds[4]. mapgridlen Number of elements in igdstmpl. i.e. number of entries in Grid Defintion Template specified by igds[4]. ideflist (Used if igds[2] .ne. 0) Pointer to integer array containing the number of grid points contained in each row (or column). idefnum (Used if igds[2] .ne. 0) The number of entries in array ideflist - i.e. number of rows (or columns) for which optional grid points are defined.
+
+
+
Returns
+0 no error
+2 Not Section 3
+5 message contains an undefined Grid Definition Template.
+6 memory allocation error
+
+
+
Author Stephen Gilbert
+
Date 2002-10-31
+
+
Definition at line 57 of file g2_unpack3.c .
+
+
+
+
+
◆
+
+
+
+
+
+ g2int g2_unpack4 (
+ unsigned char *
+ cgrib ,
+
+ g2int * iofst ,
+
+ g2int * ipdsnum ,
+
+ g2int ** ipdstmpl ,
+
+ g2int * mappdslen ,
+
+ g2float ** coordlist ,
+
+ g2int * numcoord
+
+ )
+
+
+
+
+
This subroutine unpacks Section 4 (Product Definition Section) as defined in GRIB Edition 2.
+
+
+
+Date Programmer Comments
+
+2002-10-31 Gilbert Initial
+
+2009-01-14 Vuong Changed structure name template to gtemplate
+
+
Parameters
+
+ cgrib Array containing Section 4 of the GRIB2 message. iofst Bit offset of the beginning of Section 4 in cgrib. Returned with updated bit offset. ipdsnum Product Definition Template Number (see Table 4.0 ). ipdstmpl Pointer that gets an integer array containing the data values for the Product Definition Template specified by ipdsnum. mappdslen Number of elements in ipdstmpl - i.e. number of entries in Product Defintion Template specified by ipdsnum. coordlist Pointer that gets an array containing floating point values intended to document the vertical discretisation associated to model data on hybrid coordinate vertical levels. numcoord number of values in array coordlist.
+
+
+
Returns
+0 no error
+2 Not section 4
+5 "GRIB" message contains an undefined Product Definition Template.
+6 memory allocation error
+
+
+
Author Stephen Gilbert
+
Date 2002-10-31
+
+
Definition at line 45 of file g2_unpack4.c .
+
+
+
+
+
◆
+
+
+
+
+
+ g2int g2_unpack5 (
+ unsigned char *
+ cgrib ,
+
+ g2int * iofst ,
+
+ g2int * ndpts ,
+
+ g2int * idrsnum ,
+
+ g2int ** idrstmpl ,
+
+ g2int * mapdrslen
+
+ )
+
+
+
+
+
This subroutine unpacks Section 5 (Data Representation Section) as defined in GRIB Edition 2.
+
+
+
+Date Programmer Comments
+
+2002-10-31 Gilbert Initial
+
+2009-01-14 Vuong Changed structure name template to gtemplate
+
+
Parameters
+
+ cgrib char array containing Section 5 of the GRIB2 message. iofst Bit offset for the beginning of Section 5 in cgrib. Returned with bit offset at the end of Section 5. ndpts Number of data points unpacked and returned. idrsnum Data Representation Template Number (see Code Table 5.0). idrstmpl Pointer to an integer array containing the data values for the specified Data Representation Template (N=idrsnum). Each element of this integer array contains an entry (in the order specified) of Data Representation Template 5.N. mapdrslen- Number of elements in idrstmpl. i.e. number of entries in Data Representation Template 5.N (N=idrsnum).
+
+
+
Returns
+0 no error
+2 Not Section 5
+6 memory allocation error
+7 "GRIB" message contains an undefined Data Representation Template.
+
+
+
Author Stephen Gilbert
+
Date 2002-10-31
+
+
Definition at line 42 of file g2_unpack5.c .
+
+
+
+
+
◆
+
+
+
+
+
+ g2int g2_unpack6 (
+ unsigned char *
+ cgrib ,
+
+ g2int * iofst ,
+
+ g2int ngpts ,
+
+ g2int * ibmap ,
+
+ g2int ** bmap
+
+ )
+
+
+
+
+
This subroutine unpacks Section 6 (Bit-Map Section) as defined in GRIB Edition 2.
+
Parameters
+
+ cgrib char array containing Section 6 of the GRIB2 message. iofst Bit offset of the beginning of Section 6 in cgrib. ngpts Number of grid points specified in the bit-map ibmap Bitmap indicator (see Code Table 6.0)
+0 bitmap applies and is included in Section 6.
+1-253 Predefined bitmap applies
+254 Previously defined bitmap applies to this field
+255 Bit map does not apply to this product.
+
+ bmap Pointer to an integer array containing decoded bitmap. (if ibmap=0)
+
+
+
Returns
+0 no error
+2 Not Section 6
+4 Unrecognized pre-defined bit-map.
+6 memory allocation error
+
+
+
Author Stephen Gilbert
+
Date 2002-10-31
+
+
Definition at line 33 of file g2_unpack6.c .
+
+
+
+
+
◆
+
+
+
+
+
+ g2int g2_unpack7 (
+ unsigned char *
+ cgrib ,
+
+ g2int * iofst ,
+
+ g2int igdsnum ,
+
+ g2int * igdstmpl ,
+
+ g2int idrsnum ,
+
+ g2int * idrstmpl ,
+
+ g2int ndpts ,
+
+ g2float ** fld
+
+ )
+
+
+
+
+
This subroutine unpacks Section 7 (Data Section) as defined in GRIB Edition 2.
+
+
+
+Date Programmer Comments
+
+2002-10-31 Gilbert Initial
+
+2002-12-20 Gilbert Added GDT info to arguments and added 5.51 processing.
+
+2003-08-29 Gilbert New templates using PNG and JPEG2000 algorithms/templates.
+
+2004-11-29 Gilbert JPEG2000 now allowed to use WMO Template 5.40 PNG allowed to use 5.41
+
+2004-12-16 Taylor Added check on comunpack return code.
+
+2008-12-23 Wesley Initialize Number of data points unpacked
+
+
Parameters
+
+ cgrib char array containing Section 7 of the GRIB2 message iofst Bit offset of the beginning of Section 7 in cgrib. igdsnum Grid Definition Template Number (see Code Table 3.0) (Only used for DRS Template 5.51) igdstmpl Pointer to an integer array containing the data values for the specified Grid Definition Template (N=igdsnum). Each element of this integer array contains an entry (in the order specified) of Grid Definition Template 3.N. (Only used for DRS Template 5.51). idrsnum Data Representation Template Number (see Code Table 5.0) idrstmpl Pointer to an integer array containing the data values for the specified Data Representation Template (N=idrsnum). Each element of this integer array contains an entry (in the order specified) of Data Representation Template 5.N ndpts Number of data points unpacked and returned. fld Pointer to a float array containing the unpacked data field.
+
+
+
Returns
+0 no error
+2 Not section 7
+4 Unrecognized Data Representation Template
+5 need one of GDT 3.50 through 3.53 to decode DRT 5.51
+6 memory allocation error
+7 corrupt section 7.
+
+
+
Author Stephen Gilbert
+
Date 2002-10-31
+
+
Definition at line 65 of file g2_unpack7.c .
+
+
+
+
+
◆
+
+
+
+
+
+ void gbit
+ (
+ unsigned char *
+ in ,
+
+ g2int * iout ,
+
+ g2int iskip ,
+
+ g2int nbyte
+
+ )
+
+
+
+
+
Get bits - unpack bits: Extract arbitrary size values from a packed bit string, right justifying each value in the unpacked iout array.
+
Parameters
+
+ in pointer to character array input. iout pointer to unpacked array output. iskip initial number of bits to skip. nbyte number of bits to take.
+
+
+
Author NOAA Programmer
+
+
Definition at line 20 of file gbits.c .
+
+
References gbits() .
+
+
Referenced by comunpack() , g2_addfield() , g2_addgrid() , g2_addlocal() , g2_getfld() , g2_gribend() , g2_info() , g2_unpack1() , g2_unpack2() , g2_unpack3() , g2_unpack4() , g2_unpack5() , g2_unpack6() , g2_unpack7() , and seekgb() .
+
+
+
+
+
◆
+
+
+
+
+
+ void gbits
+ (
+ unsigned char *
+ in ,
+
+ g2int * iout ,
+
+ g2int iskip ,
+
+ g2int nbyte ,
+
+ g2int nskip ,
+
+ g2int n
+
+ )
+
+
+
+
+
Get bits - unpack bits: Extract arbitrary size values from a packed bit string, right justifying each value in the unpacked iout array.
+
Parameters
+
+ in Pointer to character array input. iout Pointer to unpacked array output. iskip Initial number of bits to skip. nbyte Number of bits to take. nskip Additional number of bits to skip on each iteration. n Number of iterations.
+
+
+
Author NOAA Programmer
+
+
Definition at line 57 of file gbits.c .
+
+
Referenced by comunpack() , g2_unpack3() , g2_unpack4() , g2_unpack6() , gbit() , pngunpack() , simunpack() , and specunpack() .
+
+
+
+
+
◆
+
+
+
+
+
This subroutine returns DRS template information for a specified Data Representation Template.
+
The number of entries in the template is returned along with a map of the number of octets occupied by each entry. Also, a flag is returned to indicate whether the template would need to be extended.
+
Parameters
+
+ number The number of the Data Representation Template that is being requested.
+
+
+
Returns Pointer to the returned template struct. Returns NULL if template not found.
+
Author Stephen Gilbert
+
Date 2000-05-11
+
+
Definition at line 64 of file drstemplates.c .
+
+
References getdrsindex() , drstemplate::mapdrslen , drstemplate::needext , drstemplate::template_num , and templatesdrs .
+
+
Referenced by extdrstemplate() , g2_addfield() , and g2_unpack5() .
+
+
+
+
+
◆
+
+
+
+
◆
+
+
+
+
+
This subroutine returns PDS template information for a specified Product Definition Template.
+
The number of entries in the template is returned along with a map of the number of octets occupied by each entry. Also, a flag is returned to indicate whether the template would need to be extended.
+
This function allocates memory for the gtemplate struct, which must be freed by the caller.
+
Parameters
+
+ number the number of the Product Definition Template that is being requested.
+
+
+
Returns Pointer to the returned template struct. Returns NULL pointer if template not found.
+
Author Stephen Gilbert
+
Date 2000-05-11
+
+
Definition at line 73 of file pdstemplates.c .
+
+
References getpdsindex() , pdstemplate::mappdslen , pdstemplate::needext , pdstemplate::template_num , and templatespds .
+
+
Referenced by extpdstemplate() , g2_addfield() , and g2_unpack4() .
+
+
+
+
+
◆
+
+
+
+
+
+ double int_power
+ (
+ double
+ x ,
+
+ g2int y
+
+ )
+
+
+
+
+
Function similar to C pow() power function.
+
Parameters
+
+ x The base value whose power is to be calculated. y The power value.
+
+
+
Returns x**y
+
Author Wesley Ebisuzaki
+
+
Definition at line 17 of file int_power.c .
+
+
Referenced by compack() , comunpack() , jpcpack() , jpcunpack() , misspack() , mkieee() , pngpack() , pngunpack() , rdieee() , simpack() , simunpack() , and specunpack() .
+
+
+
+
+
◆
+
+
+
+
+
+ void misspack
+ (
+ g2float * fld ,
+
+ g2int ndpts ,
+
+ g2int idrsnum ,
+
+ g2int * idrstmpl ,
+
+ unsigned char *
+ cpack ,
+
+ g2int * lcpack
+
+ )
+
+
+
+
+
This subroutine packs up a data field using a complex packing algorithm as defined in the GRIB2 documention.
+
It supports GRIB2 complex packing templates with or without spatial differences (i.e. DRTs 5.2 and 5.3). It also fills in GRIB2 Data Representation Template 5.2 or Template 5.3 with the appropriate values. This version assumes that Missing Value Management is being used and that 1 or 2 missing values appear in the data.
+
Parameters
+
+ fld Contains the data values to pack ndpts The number of data values in array fld idrsnum Data Representation Template number 5.N Must equal 2 or 3. idrstmpl Contains the array of values for Data Representation Template 5.2 or 5.3.
+0 Reference value - ignored on input, set by misspack routine.
+1 Binary Scale Factor - used on input.
+2 Decimal Scale Factor- used on input.
+6 Missing value management.
+7 Primary missing value.
+8 Secondary missing value.
+16 Order of Spatial Differencing (1 or 2).
+
+ cpack The packed data field (character*1 array). lcpack length of packed field cpack.
+
+
+
Author Stephen Gilbert
+
Date 2000-06-21
+
+
Definition at line 43 of file misspack.c .
+
+
References int_power() , mkieee() , pack_gp() , rdieee() , sbit() , and sbits() .
+
+
Referenced by cmplxpack() .
+
+
+
+
+
◆
+
+
+
+
+
+ void mkieee
+ (
+ g2float * a ,
+
+ g2int * rieee ,
+
+ g2int num
+
+ )
+
+
+
+
+
This subroutine stores a list of real values in 32-bit IEEE floating point format.
+
Parameters
+
+ a Input array of floating point values. num Number of floating point values to convert. rieee Output array of data values in 32-bit IEEE format stored in g2int integer array. rieee must be allocated with at least 4*num bytes of memory before calling this function.
+
+
+
Author Stephen Gilbert
+
Date 2002-10-29
+
+
Definition at line 21 of file mkieee.c .
+
+
References int_power() .
+
+
Referenced by compack() , g2_addfield() , jpcpack() , misspack() , pngpack() , simpack() , and specpack() .
+
+
+
+
+
◆
+
+
+
+
+
+ int pack_gp
+ (
+ integer * kfildo ,
+
+ integer * ic ,
+
+ integer * nxy ,
+
+ integer * is523 ,
+
+ integer * minpk ,
+
+ integer * inc ,
+
+ integer * missp ,
+
+ integer * misss ,
+
+ integer * jmin ,
+
+ integer * jmax ,
+
+ integer * lbit ,
+
+ integer * nov ,
+
+ integer * ndg ,
+
+ integer * lx ,
+
+ integer * ibit ,
+
+ integer * jbit ,
+
+ integer * kbit ,
+
+ integer * novref ,
+
+ integer * lbitref ,
+
+ integer * ier
+
+ )
+
+
+
+
+
Determines groups of variable size, but at least of size minpk, the associated max (jmax( )) and min (jmin( )), the number of bits necessary to hold the values in each group (lbit( )), the number of values in each group (nov( )), the number of bits necessary to pack the jmin( ) values (ibit), the number of bits necessary to pack the lbit( ) values (jbit), and the number of bits necessary to pack the nov( ) values (kbit).
+
The routine is designed to determine the groups such that a small number of bits is necessary to pack the data without excessive computations. If all values in the group are zero, the number of bits to use in packing is defined as zero when there can be no missing values; when there can be missing values, the number of bits must be at least 1 to have the capability to recognize the missing value. However, if all values in a group are missing, the number of bits needed is 0, and the unpacker recognizes this. All variables are integer. Even though the groups are initially of size minpk or larger, an adjustment between two groups (the lookback procedure) may make a group smaller than minpk. The control on group size is that the sum of the sizes of the two consecutive groups, each of size minpk or larger, is not decreased. When determining the number of bits necessary for packing, the largest value that can be accommodated in, say, mbits, is 2**mbits-1; this largest value (and the next smallest value) is reserved for the missing value indicator (only) when is523 ne 0. If the dimension ndg is not large enough to hold all the groups, the local value of minpk is increased by 50 percent. This is repeated until ndg will suffice. A diagnostic is printed whenever this happens, which should be very rarely. If it happens often, ndg in subroutine pack should be increased and a corresponding increase in subroutine unpack made. Considerable code is provided so that no more checking for missing values within loops is done than necessary; the added efficiency of this is relatively minor, but does no harm. For grib2, the reference value for the length of groups in nov( ) and for the number of bits necessary to pack group values are determined, and subtracted before jbit and kbit are determined.
+
When 1 or more groups are large compared to the others, the width of all groups must be as large as the largest. A subroutine reduce breaks up large groups into 2 or more to reduce total bits required. If reduce should abort, pack_gp will be executed again without the call to reduce.
+
PROGRAM HISTORY LOG:
+February 1994 Glahn tdl mos-2000
+June 1995 Glahn modified for lmiss error.
+July 1996 Glahn added misss
+February 1997 Glahn removed 4 redundant tests for missp.eq.0; inserted a test to better handle a string of 9999's
+February 1997 Glahn added loops to eliminate test for misss when misss = 0
+March 1997 Glahn corrected for secondary missing value
+March 1997 Glahn corrected for use of local value of minpk
+March 1997 Glahn corrected for secondary missing value
+March 1997 Glahn changed calculating number of bits through exponents to an array (improved overall packing performance by about 35 percent!). allowed 0 bits for packing jmin( ), lbit( ), and nov( ).
+May 1997 Glahn a number of changes for efficiency. mod functions eliminated and one ifthen added. jount removed. recomputation of bits not made unless necessary after moving points from one group to another. nendb adjusted to eliminate possibility of very small group at the end. about 8 percent improvement in overall packing. iskipa removed; there is always a group b that can become group a. control on size of group b (statement below 150) added. added adda, and use of ge and le instead of gt and lt in loops between 150 and 160. ibitbs added to shorten trips through loop.
+March 2000 Glahn modified for grib2; changed name from packgp
+january 2001 Glahn comments; ier = 706 substituted for stops; added return1; removed statement number 110; added ier and * return
+November 2001 Glahn changed some diagnostic formats to allow printing larger numbers
+November 2001 Glahn added misslx( ) to put maximum value into jmin( ) when all values missing to agree with grib standard.
+November 2001 Glahn changed two tests on missp and misss eq 0 to tests on is523. however, missp and misss cannot in general be = 0.
+November 2001 Glahn added call to reduce; defined itest before loops to reduce computation; started large group when all same value
+December 2001 Glahn modified and added a few comments
+January 2002 Glahn removed loop before 150 to determine a group of all same value
+January 2002 Glahn changed mallow from 9999999 to 2**30+1, and made it a parameter
+March 2002 Glahn added non fatal ier = 716, 717; removed nendb=nxy above 150; added iersav=0; comments
+
+
DATA SET USE
+kfildo - unit number for output (print) file. (output)
+
+
Parameters
+
+ kfildo unit number for output (print) file. (input) ic array to hold data for packing. the values do not have to be positive at this point, but must be in the range -2**30 to +2**30 (the the value of mallow). these integer values will be retained exactly through packing and unpacking. (input) nxy number of values in ic( ). also treated as its dimension. (input) is523 missing value management 0=data contains no missing values 1=data contains primary missing values 2=data contains primary and secondary missing values (input) minpk the minimum size of each group, except possibly the last one. (input) inc the number of values to add to an already existing group in determining whether or not to start a new group. ideally, this would be 1, but each time inc values are attempted, the max and min of the next minpk values must be found. this is "a loop within a
+loop," and a slightly larger value may give about as good results with slightly less computational time. if inc is le 0, 1 is used, and a diagnostic is output. note: it is expected that inc will equal 1. the code uses inc primarily in the loops starting at statement 180. if inc were 1, there would not need to be loops as such. however, kinc (the local value of inc) is set ge 1 when near the end of the data to forestall a very small group at the end. (input) missp when missing points can be present in the data, they will have the value missp or misss. missp is the primary missing value and misss is the secondary missing value . these must not be values that would occur with subtracting the minimum (reference) value or scaling. for example, missp = 0 would not be advisable. (input) misss secondary missing value indicator (see missp). (input) jmin the minimum of each group (j=1,lx). (output) jmax the maximum of each group (j=1,lx). this is not really needed, but since the max of each group must be found, saving it here is cheap in case the user wants it. (output) lbit the number of bits necessary to pack each group (j=1,lx). it is assumed the minimum of each group will be removed before packing, and the values to pack will, therefore, all be positive. however, ic( ) does not necessarily contain all positive values. if the overall minimum has been removed (the usual case), then ic( ) will contain only positive values. (output) nov the number of values in each group (j=1,lx). (output) ndg the dimension of jmin, jmax, lbit, and nov. (input) lx the number of groups determined. (output) ibit the number of bits necessary to pack the jmin(j) values, j=1,lx. (output) jbit the number of bits necessary to pack the lbit(j) values, j=1,lx. (output) kbit the number of bits necessary to pack the nov(j) values, j=1,lx. (output) novref reference value for nov( ). (output) lbitref reference value for lbit( ). (output) ier Error code
+0 No error.
+706 value will not pack in 30 bits–fatal
+714 error in reduce–non-fatal
+715 ngp not large enough in reduce–non-fatal
+716 minpk inceased–non-fatal
+717 inc set
+1–non-fatal
+alternate return when ier ne 0 and fatal error.
+
+
+
+
+
Returns 0 - check ier for error code. INTERNAL VARIABLES
+
+ cfeed = contains the character representation
+ of a printer form feed.
+ ifeed = contains the integer value of a printer
+ form feed.
+ kinc = working copy of inc. may be modified.
+ mina = minimum value in group a.
+ maxa = maximum value in group a.
+ nenda = the place in ic( ) where group a ends.
+ kstart = the place in ic( ) where group a starts.
+ ibita = number of bits needed to hold values in group a.
+ minb = minimum value in group b.
+ maxb = maximum value in group b.
+ nendb = the place in ic( ) where group b ends.
+ ibitb = number of bits needed to hold values in group b.
+ minc = minimum value in group c.
+ maxc = maximum value in group c.
+ ktotal = count of number of values in ic( ) processed.
+ nount = number of values added to group a.
+ lmiss = 0 when is523 = 0. when packing into a
+ specific number of bits, say mbits,
+ the maximum value that can be handled is
+ 2**mbits-1. when is523 = 1, indicating
+ primary missing values, this maximum value
+ is reserved to hold the primary missing value
+ indicator and lmiss = 1. when is523 = 2,
+ the value just below the maximum i.e.,
+ 2**mbits-2 is reserved to hold the secondary
+ missing value indicator and lmiss = 2.
+ lminpk = local value of minpk. this will be adjusted
+ upward whenever ndg is not large enough to hold
+ all the groups.
+ mallow = the largest allowable value for packing.
+ mislla = set to 1 when all values in group a are missing.
+ this is used to distinguish between a real
+ minimum when all values are not missing
+ and a minimum that has been set to zero when
+ all values are missing. 0 otherwise.
+ note that this does not distinguish between
+ primary and secondary missings when secondary
+ missings are present. this means that
+ lbit( ) will not be zero with the resulting
+ compression efficiency when secondary missings
+ are present. also note that a check has been
+ made earlier to determine that secondary
+ missings are really there.
+ misllb = set to 1 when all values in group b are missing.
+ this is used to distinguish between a real
+ minimum when all values are not missing
+ and a minimum that has been set to zero when
+ all values are missing. 0 otherwise.
+ misllc = performs the same function for group c that
+ mislla and misllb do for groups b and c,
+ respectively.
+ ibxx2(j) = an array that when this routine is first entered
+ is set to 2**j, j=0,30. ibxx2(30) = 2**30, which
+ is the largest value packable, because 2**31
+ is larger than the integer word size.
+ ifirst = set by data statement to 0. changed to 1 on
+ first
+ entry when ibxx2( ) is filled.
+ minak = keeps track of the location in ic( ) where the
+ minimum value in group a is located.
+ maxak = does the same as minak, except for the maximum.
+ minbk = the same as minak for group b.
+ maxbk = the same as maxak for group b.
+ minck = the same as minak for group c.
+ maxck = the same as maxak for group c.
+ adda = keeps track whether or not an attempt to add
+ points to group a was made. if so, then adda
+ keeps from trying to put one back into b.
+ (logical)
+ ibitbs = keeps current value if ibitb so that loop
+ ending at 166 doesn't have to start at
+ ibitb = 0 every time.
+ misslx(j) = mallow except when a group is all one value (and
+ lbit(j) = 0) and that value is missing. in
+ that case, misslx(j) is missp or misss. this
+ gets inserted into jmin(j) later as the
+ missing indicator; it can't be put in until
+ the end, because jmin( ) is used to calculate
+ the maximum number of bits (ibits) needed to
+ pack jmin( ).
+
+
+
Definition at line 256 of file pack_gp.c .
+
+
References FALSE_ , reduce() , and TRUE_ .
+
+
Referenced by compack() , and misspack() .
+
+
+
+
+
◆
+
+
+
+
+
+ void rdieee
+ (
+ g2int * rieee ,
+
+ g2float * a ,
+
+ g2int num
+
+ )
+
+
+
+
+
+
◆
+
+
+
+
+
+ void sbit
+ (
+ unsigned char *
+ out ,
+
+ g2int * in ,
+
+ g2int iskip ,
+
+ g2int nbyte
+
+ )
+
+
+
+
+
Store bits - put arbitrary size values into a packed bit string, taking the low order bits from each value in the unpacked array.
+
Parameters
+
+ out Pointer to packed array output. Must be allocated large enough to hold output. in Pointer to unpacked array input. iskip Initial number of bits to skip. nbyte Number of bits to pack.
+
+
+
Author NOAA Programmer
+
+
Definition at line 38 of file gbits.c .
+
+
References sbits() .
+
+
Referenced by compack() , g2_addfield() , g2_addgrid() , g2_addlocal() , g2_create() , g2_gribend() , misspack() , and simpack() .
+
+
+
+
+
◆
+
+
+
+
+
+ void sbits
+ (
+ unsigned char *
+ out ,
+
+ g2int * in ,
+
+ g2int iskip ,
+
+ g2int nbyte ,
+
+ g2int nskip ,
+
+ g2int n
+
+ )
+
+
+
+
+
Store bits - put arbitrary size values into a packed bit string, taking the low order bits from each value in the unpacked array.
+
Parameters
+
+ out Pointer to packed array output. Must be allocated large enough to hold output. in Pointer to unpacked array input. iskip Initial number of bits to skip. nbyte Number of bits to pack. nskip Additional number of bits to skip on each iteration. n Number of iterations.
+
+
+
Author NOAA Programmer
+
+
Definition at line 114 of file gbits.c .
+
+
Referenced by compack() , g2_addfield() , g2_addgrid() , jpcpack() , misspack() , pngpack() , sbit() , and simpack() .
+
+
+
+
+
◆
+
+
+
+
+
+ void seekgb
+ (
+ FILE *
+ lugb ,
+
+ g2int iseek ,
+
+ g2int mseek ,
+
+ g2int * lskip ,
+
+ g2int * lgrib
+
+ )
+
+
+
+
+
This subprogram searches a file for the next GRIB Message.
+
The search is done starting at byte offset iseek of the file referenced by lugb for mseek bytes at a time. If found, the starting position and length of the message are returned in lskip and lgrib, respectively. The search is terminated when an EOF or I/O error is encountered.
+
PROGRAM HISTORY LOG:
+2002-10-28 GILBERT Modified from Iredell's skgb subroutine
+2009-01-16 VUONG Changed lskip to 4 instead of sizof(g2int)
+
+
Parameters
+
+ lugb FILE pointer for the file to search. File must be opened before this routine is called. iseek number of bytes in the file to skip before search. mseek number of bytes to search at a time. lskip number of bytes to skip from the beggining of the file to where the GRIB message starts. lgrib number of bytes in message (set to 0, if no message found).
+
+
+
Author Stephen Gilbert
+
Date 2002-10-28
+
+
Definition at line 32 of file seekgb.c .
+
+
References gbit() .
+
+
+
+
+
◆
+
+
+
+
+
+ void simpack
+ (
+ g2float * fld ,
+
+ g2int ndpts ,
+
+ g2int * idrstmpl ,
+
+ unsigned char *
+ cpack ,
+
+ g2int * lcpack
+
+ )
+
+
+
+
+
This subroutine packs up a data field using the simple packing algorithm as defined in the GRIB2 documention.
+
It also fills in GRIB2 Data Representation Template 5.0 with the appropriate values.
+
Parameters
+
+ fld Contains the data values to pack. ndpts The number of data values in array fld. idrstmpl Contains the array of values for [Data Representation Template 5.0](https://www.nco.ncep.noaa.gov/pmb/docs/grib2/grib2_doc/grib2_temp5-0.shtml ).
+0 Reference value - ignored on input - set by simpack routine.
+1 Binary Scale Factor - unchanged from input.
+2 Decimal Scale Factor - unchanged from input.
+3 Number of bits used to pack data, if value is > 0 and <= 31. If this input value is 0 or outside above range then the num of bits is calculated based on given data and scale factors.
+4 Original field type - currently ignored on input. Data values assumed to be reals. Set to 0 by simpack routine.
+
+ cpack The packed data field lcpack length of packed field starting at cpack.
+
+
+
Author Stephen Gilbert
+
Date 2002-11-06
+
+
Definition at line 34 of file simpack.c .
+
+
+
+
+
NCEPLIBS-g2c: grib2.h Source File
+
+
+
+
+
+
+ NCEPLIBS-g2c
+ 1.6.4
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
Go to the documentation of this file.
+
+
+
+
+
+
18 #define G2_VERSION "g2clib-1.6.4"
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
g2int igdtnum
Grid Definition Template Number (See Table 3.1).
+
void mkieee(g2float *, g2int *, g2int)
This subroutine stores a list of real values in 32-bit IEEE floating point format.
+
g2int locallen
Length of array local.
+
g2int ibmap
Bitmap indicator (see Table 6.0).
+
g2int g2_unpack7(unsigned char *, g2int *, g2int, g2int *, g2int, g2int *, g2int, g2float **)
This subroutine unpacks Section 7 (Data Section) as defined in GRIB Edition 2.
+
gtemplate * getpdstemplate(g2int)
This subroutine returns PDS template information for a specified Product Definition Template.
+
g2int interp_opt
Interpretation of list for optional points definition.
+
g2int ngrdpts
Number of grid points in the defined grid.
+
g2int g2_addgrid(unsigned char *, g2int *, g2int *, g2int *, g2int)
This routine packs up a Grid Definition Section (Section 3) and adds it to a GRIB2 message.
+
g2int g2_unpack6(unsigned char *, g2int *, g2int, g2int *, g2int **)
This subroutine unpacks Section 6 (Bit-Map Section) as defined in GRIB Edition 2.
+
g2int ifldnum
Field number within GRIB message.
+
g2float * coord_list
Array containing floating point values intended to document the vertical discretisation associated to...
+
+
g2int * ext
Number of octets of each entry in the extension part of the template.
+
double int_power(double, g2int)
Function similar to C pow() power function.
+
g2int g2_unpack1(unsigned char *, g2int *, g2int **, g2int *)
This subroutine unpacks Section 1 - Identification Section as defined in GRIB Edition 2.
+
g2int g2_unpack5(unsigned char *, g2int *, g2int *, g2int *, g2int **, g2int *)
This subroutine unpacks Section 5 (Data Representation Section) as defined in GRIB Edition 2.
+
gtemplate * extdrstemplate(g2int, g2int *)
This subroutine generates the remaining octet map for a given Data Representation Template,...
+
g2int griddef
Source of grid definition (see Table 3.0).
+
void gbits(unsigned char *, g2int *, g2int, g2int, g2int, g2int)
Get bits - unpack bits: Extract arbitrary size values from a packed bit string, right justifying each...
+
g2int ipdtnum
Product Definition Template Number (see Table 4.0).
+
g2int * ipdtmpl
Contains the data values for the Product Definition Template specified by ipdtnum.
+
g2int discipline
Message Discipline (see Table 0.0).
+
g2int g2_getfld(unsigned char *, g2int, g2int, g2int, gribfield **)
This subroutine returns all the metadata, template values, bit-map (if applicable),...
+
g2int numoct_opt
Number of octets needed for each additional grid points definition.
+
void sbit(unsigned char *, g2int *, g2int, g2int)
Store bits - put arbitrary size values into a packed bit string, taking the low order bits from each ...
+
g2int g2_gribend(unsigned char *)
This routine finalizes a GRIB2 message after all grids and fields have been added.
+
void misspack(g2float *, g2int, g2int, g2int *, unsigned char *, g2int *)
This subroutine packs up a data field using a complex packing algorithm as defined in the GRIB2 docum...
+
g2int idrtlen
Number of elements in idrtmpl.
+
g2int extlen
Number of entries in the template extension.
+
g2int unpacked
Logical value indicating whether the bitmap and data values were unpacked.
+
g2int g2_unpack3(unsigned char *, g2int *, g2int **, g2int **, g2int *, g2int **, g2int *)
This routine unpacks Section 3 (Grid Definition Section) as defined in GRIB Edition 2.
+
gtemplate * getdrstemplate(g2int)
This subroutine returns DRS template information for a specified Data Representation Template.
+
int pack_gp(g2int *, g2int *, g2int *, g2int *, g2int *, g2int *, g2int *, g2int *, g2int *, g2int *, g2int *, g2int *, g2int *, g2int *, g2int *, g2int *, g2int *, g2int *, g2int *, g2int *)
Determines groups of variable size, but at least of size minpk, the associated max (jmax( )) and min ...
+
g2int * map
Number of octets of each entry in the static part of the template.
+
g2int idsectlen
Number of elements in idsect.
+
g2int g2_info(unsigned char *, g2int *, g2int *, g2int *, g2int *)
This subroutine searches through a GRIB2 message and returns the number of gridded fields found in th...
+
g2int ipdtlen
Number of elements in ipdtmpl - i.e.
+
g2int needext
Indicates whether or not the template needs to be extended.
+
g2int g2_unpack4(unsigned char *, g2int *, g2int *, g2int **, g2int *, g2float **, g2int *)
This subroutine unpacks Section 4 (Product Definition Section) as defined in GRIB Edition 2.
+
gtemplate * getgridtemplate(g2int)
This subroutine returns grid template information for a specified Grid Definition Template for [Secti...
+
uint64_t g2intu
Unsigned long integer type.
+
g2int num
The template number.
+
g2int * igdtmpl
Contains the data values for the Grid Definition Template specified by igdtnum.
+
g2int idrtnum
Data Representation Template Number (see Table 5.0).
+
g2int ndpts
Number of data points unpacked and returned.
+
g2int g2_create(unsigned char *, g2int *, g2int *)
This routine initializes a new GRIB2 message and packs GRIB2 sections 0 (Indicator Section) and 1 (Id...
+
g2int * idrtmpl
Contains the data values for the Data Representation Template specified by idrtnum.
+
g2int g2_addlocal(unsigned char *, unsigned char *, g2int)
This routine adds a Local Use Section (Section 2) to a GRIB2 message.
+
g2int * list_opt
(Used if numoct_opt .ne.
+
gtemplate * extpdstemplate(g2int, g2int *)
This subroutine generates the remaining octet map for a given Product Definition Template,...
+
g2int version
GRIB edition number (2).
+
void gbit(unsigned char *, g2int *, g2int, g2int)
Get bits - unpack bits: Extract arbitrary size values from a packed bit string, right justifying each...
+
g2int g2_addfield(unsigned char *, g2int, g2int *, g2float *, g2int, g2int, g2int *, g2float *, g2int, g2int, g2int *)
This routine packs up Sections 4 through 7 for a given field and adds them to a GRIB2 message.
+
g2int type
The template type: 3 Grid Defintion Template.
+
void simpack(g2float *, g2int, g2int *, unsigned char *, g2int *)
This subroutine packs up a data field using the simple packing algorithm as defined in the GRIB2 docu...
+
g2int * idsect
Contains the entries in the Identification Section (Section 1).
+
void g2_free(gribfield *)
This routine frees up memory that was allocated for struct gribfield.
+
g2float * fld
Array of ndpts unpacked data points.
+
g2int num_coord
Number of values in array coord_list.
+
void seekgb(FILE *, g2int, g2int, g2int *, g2int *)
This subprogram searches a file for the next GRIB Message.
+
unsigned char * local
Pointer to character array containing contents of Local Section 2, if included.
+
g2int expanded
Logical value indicating whether the data field was expanded to the grid in the case where a bit-map ...
+
g2int num_opt
(Used if numoct_opt .ne.
+
g2int igdtlen
Number of elements in igdtmpl - i.e.
+
gtemplate * extgridtemplate(g2int, g2int *)
This subroutine generates the remaining octet map for a given Grid Definition Template,...
+
g2int maplen
Number of entries in the static part of the template.
+
g2int * bmap
Integer array containing decoded bitmap, if ibmap=0 or ibap=254.
+
int64_t g2int
Long integer type.
+
void sbits(unsigned char *, g2int *, g2int, g2int, g2int, g2int)
Store bits - put arbitrary size values into a packed bit string, taking the low order bits from each ...
+
void compack(g2float *, g2int, g2int, g2int *, unsigned char *, g2int *)
This subroutine packs up a data field using a complex packing algorithm as defined in the GRIB2 docum...
+
void rdieee(g2int *, g2float *, g2int)
This subroutine reads a list of real values in 32-bit IEEE floating point format.
+
+
Struct for GRIB template.
+
+
NCEPLIBS-g2c: gridtemplates.c File Reference
+
+
+
+
+
+
+ NCEPLIBS-g2c
+ 1.6.4
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
Returns grid template information for a specified Grid Definition Template for Section 3 - the Grid Definition Section (GDS).
+More...
+
#include <stdlib.h>
+
#include "grib2.h "
+
#include "gridtemplates.h "
+
+
Go to the source code of this file.
+
+
+
Returns grid template information for a specified Grid Definition Template for Section 3 - the Grid Definition Section (GDS).
+
+
+
+Date Programmer Comments
+
+2001-06-28 Gilbert Initial
+
+2007-08-16 Vuong Added GDT 3.204 Curvilinear Orthogonal Grid
+
+2008-07-08 Vuong Added GDT 3.32768 Rotate Lat/Lon E-grid (Arakawa)
+
+2009-01-14 Vuong Changed structure name template to gtemplate
+
+2010-05-11 Vuong Added GDT 3.32769 Rotate Lat/Lon Non-E Staggered grid (Arakawa)
+
+2013-08-06 Vuong Added GDT 3.4, 3.5, 3.12, 3.101, 3.140
+
+
Author Stephen Gilbert
+
Date 2001-06-28
+
+
Definition in file gridtemplates.c .
+
+
+
◆
+
+
+
+
+
This subroutine generates the remaining octet map for a given Grid Definition Template, if required.
+
Some Templates can vary depending on data values given in an earlier part of the Template, and it is necessary to know some of the earlier entry values to generate the full octet map of the Template.
+
This function allocates memory for the extension. The pointer ext in the gtemplate struct must be freed to prevent memory leaks.
+
Parameters
+
+ number The number of the Grid Definition Template that is being requested. list The list of values for each entry in the Grid Definition Template.
+
+
+
Returns Pointer to the returned template struct. Returns NULL pointer, if template not found.
+
Author Stephen Gilbert
+
Date 2000-05-09
+
+
Definition at line 124 of file gridtemplates.c .
+
+
References getgridindex() , and getgridtemplate() .
+
+
Referenced by g2_addgrid() , and g2_unpack3() .
+
+
+
+
+
◆
+
+
+
+
+
+ g2int getgridindex (
+ g2int number )
+
+
+
+
+
+
◆
+
+
+
+
NCEPLIBS-g2c: gridtemplates.c Source File
+
+
+
+
+
+
+ NCEPLIBS-g2c
+ 1.6.4
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
Go to the documentation of this file.
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
96 printf(
"getgridtemplate: GDT Template 3.%d not defined.\n" , (
int )number);
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
140 new ->extlen = list[1] * 2;
+
141 new ->ext = malloc(
sizeof (
g2int ) * new->extlen);
+
142 for (i = 0; i <
new ->extlen; i++)
+
+
+
+
+
+
+
+
150 else if (number == 4)
+
+
152 new ->extlen = list[7];
+
153 new ->ext = malloc(
sizeof (
g2int ) * new->extlen);
+
154 for (i = 0; i <
new ->extlen; i++)
+
+
+
+
158 new ->extlen = list[8];
+
159 new ->ext = malloc(
sizeof (
g2int ) * new->extlen);
+
160 for (i = 0; i <
new ->extlen; i++)
+
+
+
+
+
165 else if (number == 5)
+
+
167 new ->extlen = list[7];
+
168 new ->ext = malloc(
sizeof (
g2int ) * new->extlen);
+
169 for (i = 0; i <
new ->extlen; i++)
+
+
+
+
173 new ->extlen = list[8];
+
174 new ->ext = malloc(
sizeof (
g2int ) * new->extlen);
+
175 for (i = 0; i <
new ->extlen; i++)
+
+
+
+
+
180 else if (number == 1000)
+
+
182 new ->extlen = list[19];
+
183 new ->ext = malloc(
sizeof (
g2int ) * new->extlen);
+
184 for (i = 0; i <
new ->extlen; i++)
+
+
+
+
+
189 else if (number == 1200)
+
+
191 new ->extlen = list[15];
+
192 new ->ext = malloc(
sizeof (
g2int ) * new->extlen);
+
193 for (i = 0; i <
new ->extlen; i++)
+
+
+
+
+
+
+
+
Header file for NCEPLIBS-g2c library.
+
int64_t g2int
Long integer type.
+
Struct for GRIB template.
+
gtemplate * extgridtemplate(g2int number, g2int *list)
This subroutine generates the remaining octet map for a given Grid Definition Template,...
+
g2int getgridindex(g2int number)
This function returns the index of specified Grid Definition Template in array templates for [Section...
+
gtemplate * getgridtemplate(g2int number)
This subroutine returns grid template information for a specified Grid Definition Template for [Secti...
+
This header file contains info on all the available GRIB2 Grid Definition Templates used in Section 3...
+
g2int template_num
Template number.
+
#define MAXGRIDTEMP
Maximum number of templates.
+
g2int needext
Does template need extension?
+
g2int mapgridlen
The number of entries in the template.
+
const struct gridtemplate templatesgrid[MAXGRIDTEMP]
Templates grid.
+
+
NCEPLIBS-g2c: gridtemplates.h File Reference
+
+
+
+
+
+
+ NCEPLIBS-g2c
+ 1.6.4
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
This header file contains info on all the available GRIB2 Grid Definition Templates used in Section 3 (GDS).
+More...
+
+
Go to the source code of this file.
+
+
+
This header file contains info on all the available GRIB2 Grid Definition Templates used in Section 3 (GDS).
+
Each Template has three parts:
+The number of entries in the template (mapgridlen).
+A map of the template (mapgrid), which contains the number of octets in which to pack each of the template values.
+A logical value (needext) that indicates whether the Template needs to be extended.
+
+
In some cases the number of entries in a template can vary depending upon values specified in the "static" part of the template. (See Template 3.120 as an example).
+
Note Array mapgrid contains the number of octets in which the corresponding template values will be stored. A negative value in mapgrid is used to indicate that the corresponding template entry can contain negative values. This information is used later when packing (or unpacking) the template data values. Negative data values in GRIB are stored with the left most bit set to one, and a negative number of octets value in mapgrid indicates that this possibility should be considered. The number of octets used to store the data value in this case would be the absolute value of the negative value in mapgrid.
+
+
+
+Date Programmer Comments
+
+2001-10-26 Gilbert Initial
+
+2007-08-16 Vuong Added GDT 3.204 Curvilinear Orthogonal Grid
+
+2008-07-08 Vuong Added GDT 3.32768 Rot Lat/Lon E-grid (Arakawa)
+
+2010-05-11 Vuong Added GDT 3.32769 Rotate Lat/Lon Non-E Staggered grid (Arakawa)
+
+2013-08-06 Vuong Added GDT 3.4, 3.5, 3.12, 3.101, 3.140
+
+
Author Stephen Gilbert
+
Date 2001-10-26
+
+
Definition in file gridtemplates.h .
+
+
+
◆
+
+
+
+
+
+ struct gridtemplate
+
+
+
+
Struct for grid template.
+
+
Definition at line 49 of file gridtemplates.h .
+
+Data Fields
+g2int
+
+mapgrid[MAXGRIDMAPLEN ]
+
+Number of bytes for each template value.
+g2int
+
+mapgridlen
+
+The number of entries in the template.
+g2int
+
+needext
+
+Does template need extension?
+g2int
+
+template_num
+
+Template number.
+
+
+
+
+
+
◆
+
+
+
+
+
+ #define MAXGRIDMAPLEN 200
+
+
+
+
+
Maximum template map length.
+
+
Definition at line 44 of file gridtemplates.h .
+
+
+
+
+
◆
+
+
+
+
+
+ #define MAXGRIDTEMP 31
+
+
+
+
+
Maximum number of templates.
+
+
Definition at line 43 of file gridtemplates.h .
+
+
+
+
+
+
◆
+
+
+
+
NCEPLIBS-g2c: gridtemplates.h Source File
+
+
+
+
+
+
+ NCEPLIBS-g2c
+ 1.6.4
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
Go to the documentation of this file.
+
39 #ifndef _gridtemplates_H
+
40 #define _gridtemplates_H
+
+
+
43 #define MAXGRIDTEMP 31
+
44 #define MAXGRIDMAPLEN 200
+
+
+
+
+
+
+
+
+
+
+
+
63 { 0, 19, 0, {1,1,4,1,4,1,4,4,4,4,4,-4,4,1,-4,4,4,4,1} },
+
+
65 { 1, 22, 0, {1,1,4,1,4,1,4,4,4,4,4,-4,4,1,-4,4,4,4,1,-4,4,4} },
+
+
67 { 2, 22, 0, {1,1,4,1,4,1,4,4,4,4,4,-4,4,1,-4,4,4,4,1,-4,4,-4} },
+
+
69 { 3, 25, 0, {1,1,4,1,4,1,4,4,4,4,4,-4,4,1,-4,4,4,4,1,-4,4,4,-4,4,-4} },
+
+
+
72 { 4, 13, 1, {1,1,4,1,4,1,4,4,4,4,4,1,1} },
+
+
74 { 5, 16, 1, {1,1,4,1,4,1,4,4,4,4,4,1,1,-4,4,4} },
+
+
76 {12, 22, 0, {1,1,4,1,4,1,4,4,4,-4,4,1,-4,4,4,1,4,4,-4,-4,-4,-4} },
+
+
78 {101, 4, 0, {1,4,1,-4} },
+
+
80 {140, 17, 0, {1,1,4,1,4,1,4,4,4,-4,4,4,4,1,4,4,1} },
+
+
+
83 {10, 19, 0, {1,1,4,1,4,1,4,4,4,-4,4,1,-4,-4,4,1,4,4,4} },
+
+
85 {20, 18, 0, {1,1,4,1,4,1,4,4,4,-4,4,1,-4,4,4,4,1,1} },
+
+
87 {30, 22, 0, {1,1,4,1,4,1,4,4,4,-4,4,1,-4,4,4,4,1,1,-4,-4,-4,4} },
+
+
89 {31, 22, 0, {1,1,4,1,4,1,4,4,4,-4,4,1,-4,4,4,4,1,1,-4,-4,-4,4} },
+
+
91 {40, 19, 0, {1,1,4,1,4,1,4,4,4,4,4,-4,4,1,-4,4,4,4,1} },
+
+
93 {41, 22, 0, {1,1,4,1,4,1,4,4,4,4,4,-4,4,1,-4,4,4,4,1,-4,4,4} },
+
+
95 {42, 22, 0, {1,1,4,1,4,1,4,4,4,4,4,-4,4,1,-4,4,4,4,1,-4,4,-4} },
+
+
97 {43, 25, 0, {1,1,4,1,4,1,4,4,4,4,4,-4,4,1,-4,4,4,4,1,-4,4,4,-4,4,-4} },
+
+
99 {50, 5, 0, {4,4,4,1,1} },
+
+
101 {51, 8, 0, {4,4,4,1,1,-4,4,4} },
+
+
103 {52, 8, 0, {4,4,4,1,1,-4,4,-4} },
+
+
105 {53, 11, 0, {4,4,4,1,1,-4,4,4,-4,4,-4} },
+
+
107 {90, 21, 0, {1,1,4,1,4,1,4,4,4,-4,4,1,4,4,4,4,1,4,4,4,4} },
+
+
109 {100, 11, 0, {1,1,2,1,-4,4,4,1,1,1,4} },
+
+
111 {110, 16, 0, {1,1,4,1,4,1,4,4,4,-4,4,1,4,4,1,1} },
+
+
113 {120, 7, 1, {4,4,-4,4,4,4,1} },
+
+
115 {204, 19, 0, {1,1,4,1,4,1,4,4,4,4,4,-4,4,1,-4,4,4,4,1} },
+
+
117 {32768, 19, 0, {1,1,4,1,4,1,4,4,4,4,4,-4,4,1,-4,4,4,4,1} },
+
+
119 {32769, 21, 0, {1,1,4,1,4,1,4,4,4,4,4,-4,4,1,-4,4,4,4,1,4,4} },
+
+
121 {1000, 20, 1, {1,1,4,1,4,1,4,4,4,4,-4,4,1,4,4,1,2,1,1,2} },
+
+
123 {1100, 28, 0, {1,1,4,1,4,1,4,4,4,4,-4,4,1,-4,4,1,4,1,-4,1,1,-4,2,1,1,1,1,1} },
+
+
125 {1200, 16, 1, {4,1,-4,1,1,-4,2,1,1,1,1,1,2,1,1,2} }
+
+
+
+
Header file for NCEPLIBS-g2c library.
+
int64_t g2int
Long integer type.
+
g2int template_num
Template number.
+
#define MAXGRIDTEMP
Maximum number of templates.
+
g2int needext
Does template need extension?
+
g2int mapgridlen
The number of entries in the template.
+
#define MAXGRIDMAPLEN
Maximum template map length.
+
g2int mapgrid[MAXGRIDMAPLEN]
Number of bytes for each template value.
+
const struct gridtemplate templatesgrid[MAXGRIDTEMP]
Templates grid.
+
Struct for grid template.
+
+
NCEPLIBS-g2c: Main Page
+
+
+
+
+
+
+ NCEPLIBS-g2c
+ 1.6.4
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
This document briefly describes the routines available for encoding/decoding GRIB Edition 2 (GRIB2) messages with the NCEPLIBS-g2c library.
+
A GRIB Edition 2 message is a machine independent format for storing one or more gridded data fields. Each GRIB2 message consists of the following sections:
+
+SECTION 0 - Indicator Section
+SECTION 1 - Identification Section
+SECTION 2 - (Local Use Section) - optional }
+SECTION 3 - Grid Definition Section } }
+SECTION 4 - Product Definition Section } } }(repeated)
+SECTION 5 - Data Representation Section } }(repeated) }
+SECTION 6 - Bit-map Section }(repeated) } }
+SECTION 7 - Data Section } } }
+SECTION 8 - End Section } } }
+ Sequences of GRIB sections 2 to 7, 3 to 7, or sections 4 to 7 may be repeated within a single GRIB message. All sections within such repeated sequences must be present and shall appear in the numerical order noted above. Unrepeated sections remain in effect until redefined.
+
For detailed information on GRIB2 see the NCEP WMO GRIB2 Documentation .
+
+
Since a GRIB2 message can contain gridded fields for many parameters on a number of different grids, several routines are used to encode a message. This should give users more flexibility in how to organize data within one or more GRIB2 messages.
+
To start a new GRIB2 message, call function g2_create() . It encodes Sections 0 and 1 at the beginning of the message. This routine must be used to create each message.
+
Function g2_addlocal() can be used to add a Local Use Section (Section 2). Note that section is optional and need not appear in a GRIB2 message.
+
Function g2_addgrid() is used to encode a grid definition into Section 3 - The Grid Definition Section. This grid definition defines the geometry of the the data values in the fields that follow it. Function addgrid() can be called again to change the grid definition describing subsequent data fields.
+
Each data field is added to the GRIB2 message using routine g2_addfield() , which adds Sections 4, 5, 6, and 7 to the message.
+
After all desired data fields have been added to the GRIB2 message, a call to routine g2_gribend() is needed to add the final section 8 to the message and to update the length of the message. A call to g2_gribend() is required for each GRIB2 message.
+
+
Function g2_info() can be used to find out how many Local Use sections and data fields are contained in a given GRIB2 message. In addition, this routine also returns the number of octets of the largest Local Use section in the message.
+
g2_getfld() can be used to get all information pertaining to the nth data field in the message. An option exists that lets the user decide if the function should unpack the Bit-map (if applicable) and the data values or just return the field description information.
+
+
Function g2_info() can be used to find out how many Local Use sections and data fields are contained in a given GRIB2 message.
+
+
NCO Provides documentation on WMO GRIB2 at https://www.nco.ncep.noaa.gov/pmb/docs/grib2/grib2_doc/
+
WMO's GRIB2 specification "FM 92-XII GRIB - General
+Regularly-distributed Information in Binary Form" contains descriptions of each template and code table information. This document can be found at https://codes.wmo.int/grib2/_codeflag (PDF and MSWord formats are available).
+
+
+
NCEPLIBS-g2c: int_power.c File Reference
+
+
+
+
+
+
+ NCEPLIBS-g2c
+ 1.6.4
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
Provide function similar to C pow() power function.
+More...
+
+
Go to the source code of this file.
+
+
+
Provide function similar to C pow() power function.
+
Author Wesley Ebisuzaki
+
+
Definition in file int_power.c .
+
+
+
◆
+
+
+
+
+
+ double int_power
+ (
+ double
+ x ,
+
+ g2int y
+
+ )
+
+
+
+
+
Function similar to C pow() power function.
+
Parameters
+
+ x The base value whose power is to be calculated. y The power value.
+
+
+
Returns x**y
+
Author Wesley Ebisuzaki
+
+
Definition at line 17 of file int_power.c .
+
+
Referenced by compack() , comunpack() , jpcpack() , jpcunpack() , misspack() , mkieee() , pngpack() , pngunpack() , rdieee() , simpack() , simunpack() , and specunpack() .
+
+
+
+
+
NCEPLIBS-g2c: int_power.c Source File
+
+
+
+
+
+
+ NCEPLIBS-g2c
+ 1.6.4
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
Go to the documentation of this file.
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
Header file for NCEPLIBS-g2c library.
+
int64_t g2int
Long integer type.
+
double int_power(double x, g2int y)
Function similar to C pow() power function.
+
+
NCEPLIBS-g2c: jpcpack.c File Reference
+
+
+
+
+
+
+ NCEPLIBS-g2c
+ 1.6.4
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
Pack up a data field into a JPEG2000 code stream.
+More...
+
#include <stdlib.h>
+
#include <math.h>
+
#include "grib2.h "
+
+
Go to the source code of this file.
+
+int enc_jpeg2000 (unsigned char *, g2int , g2int , g2int , g2int , g2int , g2int , char *, g2int ) This Function encodes a grayscale image into a JPEG2000 code stream specified in the JPEG2000 Part-1 standard (i.e., ISO/IEC 15444-1) using JasPer Software version 1.500.4 (or 1.700.2) written by the University of British Columbia, Image Power Inc, and others. More... void jpcpack (g2float *fld, g2int width, g2int height, g2int *idrstmpl, unsigned char *cpack, g2int *lcpack) This subroutine packs up a data field into a JPEG2000 code stream. More...
+
+
Pack up a data field into a JPEG2000 code stream.
+
Author Stephen Gilbert
+
Date 2003-08-17
+
+
Definition in file jpcpack.c .
+
+
+
◆
+
+
+
+
+
+ int enc_jpeg2000
+ (
+ unsigned char *
+ cin ,
+
+ g2int width ,
+
+ g2int height ,
+
+ g2int nbits ,
+
+ g2int ltype ,
+
+ g2int ratio ,
+
+ g2int retry ,
+
+ char *
+ outjpc ,
+
+ g2int jpclen
+
+ )
+
+
+
+
+
This Function encodes a grayscale image into a JPEG2000 code stream specified in the JPEG2000 Part-1 standard (i.e., ISO/IEC 15444-1) using JasPer Software version 1.500.4 (or 1.700.2) written by the University of British Columbia, Image Power Inc, and others.
+
JasPer is available at http://www.ece.uvic.ca/~mdadams/jasper/ .
+
+
+
+Date Programmer Comments
+
+2002-12-02 Gilbert Initial
+
+2004-12-16 Gilbert Added retry argument allowing increased guard bits.
+
+
Parameters
+
+ cin Packed matrix of Grayscale image values to encode. width width of image. height height of image. nbits depth (in bits) of image. i.e number of bits used to hold each data value. ltype indicator of lossless or lossy compression.
+1, for lossy compression
+!= 1, for lossless compression
+
+ ratio target compression ratio. (ratio:1) Used only when ltype == 1. retry If 1 try increasing number of guard bits otherwise, no additional options. outjpc Output encoded JPEG2000 code stream. jpclen Number of bytes allocated for the output JPEG2000 code stream in outjpc.
+
+
+
Returns
+> 0 = Length in bytes of encoded JPEG2000 code stream
+-3 = Error decode jpeg2000 code stream.
+-5 = decoded image had multiple color components. Only grayscale is expected.
+
+
+
Note Requires JasPer Software version 1.500.4 or 1.700.2 or later.
+
Author Stephen Gilbert
+
Date 2002-12-02
+
+
Definition at line 57 of file enc_jpeg2000.c .
+
+
References MAXOPTSSIZE .
+
+
Referenced by jpcpack() .
+
+
+
+
+
◆
+
+
+
+
+
+ void jpcpack
+ (
+ g2float * fld ,
+
+ g2int width ,
+
+ g2int height ,
+
+ g2int * idrstmpl ,
+
+ unsigned char *
+ cpack ,
+
+ g2int * lcpack
+
+ )
+
+
+
+
+
This subroutine packs up a data field into a JPEG2000 code stream.
+
After the data field is scaled, and the reference value is subtracted out, it is treated as a grayscale image and passed to a JPEG2000 encoder. It also fills in GRIB2 Data Representation Template 5.40 or 5.40000 with the appropriate values.
+
+
+
+Date Programmer Comments
+
+2003-08-17 Gilbert Initial.
+
+2004-11-92 Gilbert Fixed bug packing a near constant field.
+
+2004-07-19 Gilbert If jpeg2000 encoding fails, try again with different encoder options.
+
+2005-05-10 Gilbert Imposed minimum size on cpack.
+
+
Parameters
+
+ fld Contains the data values to pack. width number of points in the x direction. height number of points in the y direction. idrstmpl Contains the array of values for Data Representation Template Table 5.40 or 5.40000.
+0 Reference value - ignored on input, set by jpcpack routine.
+1 Binary Scale Factor - used on input, unchanged by jpcpack routine.
+2 Decimal Scale Factor - used on input, unchanged by jpcpack routine.
+3 number of bits for each data value - ignored on input
+4 Original field type - currently ignored on input Data values assumed to be reals. Set to 0 on output.
+5 if 0 use lossless compression, if 1 use lossy compression.
+6 Desired compression ratio, if idrstmpl[5]=1. Set to 255, if idrstmpl[5]=0.
+
+ cpack The packed data field. lcpack Pointer that points to a g2int which contains the length of packed field in cpack. This must be set by the calling function.
+
+
+
Author Stephen Gilbert
+
Date 2003-08-17
+
+
Definition at line 53 of file jpcpack.c .
+
+
References enc_jpeg2000() , int_power() , mkieee() , and sbits() .
+
+
Referenced by g2_addfield() .
+
+
+
+
+
NCEPLIBS-g2c: jpcpack.c Source File
+
+
+
+
+
+
+ NCEPLIBS-g2c
+ 1.6.4
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
Go to the documentation of this file.
+
+
+
+
+
+
+
+
+
+
54 unsigned char *cpack,
g2int *lcpack)
+
+
+
57 static g2float alog2 = 0.69314718;
+
58 g2int j, nbits, imin, imax, maxdif;
+
59 g2int ndpts, nbytes, nsize, retry;
+
60 g2float bscale, dscale, rmax, rmin, temp;
+
+
+
+
64 ndpts = width * height;
+
+
+
+
+
+
+
71 for (j = 1; j < ndpts; j++)
+
+
+
+
+
+
+
+
79 maxdif = (
g2int )(rint(rmax * dscale) - rint(rmin * dscale));
+
+
81 maxdif = (
g2int )rint((rmax - rmin) * dscale * bscale);
+
+
+
+
+
86 if (rmin != rmax && maxdif != 0)
+
+
88 ifld = malloc(ndpts *
sizeof (
g2int ));
+
+
+
+
+
+
+
+
96 imin = (
g2int )rint(rmin * dscale);
+
97 imax = (
g2int )rint(rmax * dscale);
+
+
99 temp = log((
double )(maxdif + 1)) / alog2;
+
100 nbits = (
g2int )ceil(temp);
+
+
+
103 for (j = 0; j < ndpts; j++)
+
104 ifld[j] = (
g2int )rint(fld[j] * dscale) - imin;
+
+
+
+
+
+
110 rmin = rmin * dscale;
+
111 rmax = rmax * dscale;
+
112 maxdif = (
g2int )rint((rmax - rmin) * bscale);
+
113 temp = log((
double )(maxdif + 1)) / alog2;
+
114 nbits = (
g2int )ceil(temp);
+
+
116 for (j = 0; j < ndpts; j++)
+
117 ifld[j] = (
g2int )rint(((fld[j] * dscale) - rmin) * bscale);
+
+
+
+
+
+
123 nbytes = (nbits + 7) / 8;
+
+
125 ctemp = calloc(ndpts, nbytes);
+
126 sbits (ctemp, ifld, 0, nbytes * 8, 0, ndpts);
+
+
128 idrstmpl[6], retry, (
char *)cpack, nsize)) <= 0)
+
+
130 printf(
"jpcpack: ERROR Packing JPC = %d\n" , (
int )*lcpack);
+
+
+
+
+
135 idrstmpl[6], retry, (
char *)cpack, nsize)) <= 0)
+
136 printf(
"jpcpack: Retry Failed.\n" );
+
+
138 printf(
"jpcpack: Retry Successful.\n" );
+
+
+
+
+
+
+
+
+
+
+
+
150 mkieee (&rmin, idrstmpl, 1);
+
+
+
153 if (idrstmpl[5] == 0)
+
+
+
+
+
void sbits(unsigned char *out, g2int *in, g2int iskip, g2int nbyte, g2int nskip, g2int n)
Store bits - put arbitrary size values into a packed bit string, taking the low order bits from each ...
+
Header file for NCEPLIBS-g2c library.
+
+
int64_t g2int
Long integer type.
+
double int_power(double x, g2int y)
Function similar to C pow() power function.
+
int enc_jpeg2000(unsigned char *, g2int, g2int, g2int, g2int, g2int, g2int, char *, g2int)
This Function encodes a grayscale image into a JPEG2000 code stream specified in the JPEG2000 Part-1 ...
+
void jpcpack(g2float *fld, g2int width, g2int height, g2int *idrstmpl, unsigned char *cpack, g2int *lcpack)
This subroutine packs up a data field into a JPEG2000 code stream.
+
void mkieee(g2float *a, g2int *rieee, g2int num)
This subroutine stores a list of real values in 32-bit IEEE floating point format.
+
+
NCEPLIBS-g2c: jpcunpack.c File Reference
+
+
+
+
+
+
+ NCEPLIBS-g2c
+ 1.6.4
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
Unpack a data field that was packed into a JPEG2000 code stream.
+More...
+
#include <stdio.h>
+
#include <stdlib.h>
+
#include "grib2.h "
+
+
Go to the source code of this file.
+
+int dec_jpeg2000 (char *, g2int , g2int *) This Function decodes a JPEG2000 code stream specified in the JPEG2000 Part-1 standard (i.e., ISO/IEC 15444-1) using JasPer Software written by the University of British Columbia and Image Power Inc, and others. More... g2int jpcunpack (unsigned char *cpack, g2int len, g2int *idrstmpl, g2int ndpts, g2float *fld) This subroutine unpacks a data field that was packed into a JPEG2000 code stream using info from the GRIB2 Data Representation Template 5.40 or 5.40000. More...
+
+
Unpack a data field that was packed into a JPEG2000 code stream.
+
Author Stephem Gilbert
+
Date 2003-08-27
+
+
Definition in file jpcunpack.c .
+
+
+
◆
+
+
+
+
+
+ int dec_jpeg2000
+ (
+ char *
+ injpc ,
+
+ g2int bufsize ,
+
+ g2int * outfld
+
+ )
+
+
+
+
+
This Function decodes a JPEG2000 code stream specified in the JPEG2000 Part-1 standard (i.e., ISO/IEC 15444-1) using JasPer Software written by the University of British Columbia and Image Power Inc, and others.
+
JasPer is available at http://www.ece.uvic.ca/~mdadams/jasper/ .
+
Parameters
+
+ injpc Input JPEG2000 code stream. bufsize Length (in bytes) of the input JPEG2000 code stream. outfld Output matrix of grayscale image values.
+
+
+
Returns
+0 Successful decode
+-3 Error decode jpeg2000 code stream.
+-5 decoded image had multiple color components. Only grayscale is expected.
+
+
+
Author Stephen Gilbert
+
Date 2002-12-02
+
+
Definition at line 42 of file dec_jpeg2000.c .
+
+
Referenced by jpcunpack() .
+
+
+
+
+
◆
+
+
+
+
+
+ g2int jpcunpack (
+ unsigned char *
+ cpack ,
+
+ g2int len ,
+
+ g2int * idrstmpl ,
+
+ g2int ndpts ,
+
+ g2float * fld
+
+ )
+
+
+
+
+
This subroutine unpacks a data field that was packed into a JPEG2000 code stream using info from the GRIB2 Data Representation Template 5.40 or 5.40000.
+
Parameters
+
+ cpack The packed data field (character*1 array). len length of packed field cpack. idrstmpl Pointer to array of values for Data Representation Template 5.40 or 5.40000. ndpts The number of data values to unpack. fld Contains the unpacked data values.
+
+
+
Returns 0 for success, 1 for memory allocation error.
+
Author Stephem Gilbert
+
Date 2003-08-27
+
+
Definition at line 31 of file jpcunpack.c .
+
+
References dec_jpeg2000() , int_power() , and rdieee() .
+
+
Referenced by g2_unpack7() .
+
+
+
+
+
NCEPLIBS-g2c: jpcunpack.c Source File
+
+
+
+
+
+
+ NCEPLIBS-g2c
+ 1.6.4
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
Go to the documentation of this file.
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
47 ifld = calloc(ndpts,
sizeof (
g2int ));
+
+
+
50 fprintf(stderr,
"Could not allocate space in jpcunpack.\n Data field NOT upacked.\n" );
+
+
+
+
54 for (j = 0; j < ndpts; j++)
+
55 fld[j] = (((
g2float )ifld[j] * bscale) + ref) * dscale;
+
+
+
+
+
60 for (j = 0; j < ndpts; j++)
+
+
+
+
+
+
Header file for NCEPLIBS-g2c library.
+
+
int64_t g2int
Long integer type.
+
double int_power(double x, g2int y)
Function similar to C pow() power function.
+
int dec_jpeg2000(char *, g2int, g2int *)
This Function decodes a JPEG2000 code stream specified in the JPEG2000 Part-1 standard (i....
+
g2int jpcunpack(unsigned char *cpack, g2int len, g2int *idrstmpl, g2int ndpts, g2float *fld)
This subroutine unpacks a data field that was packed into a JPEG2000 code stream using info from the ...
+
void rdieee(g2int *rieee, g2float *a, g2int num)
This subroutine reads a list of real values in 32-bit IEEE floating point format.
+
+
+~]|"+M+")"+M+"*"),U=new RegExp(M+"|>"),X=new RegExp($),V=new RegExp("^"+I+"$"),G={ID:new RegExp("^#("+I+")"),CLASS:new RegExp("^\\.("+I+")"),TAG:new RegExp("^("+I+"|[*])"),ATTR:new RegExp("^"+W),PSEUDO:new RegExp("^"+$),CHILD:new RegExp("^:(only|first|last|nth|nth-last)-(child|of-type)(?:\\("+M+"*(even|odd|(([+-]|)(\\d*)n|)"+M+"*(?:([+-]|)"+M+"*(\\d+)|))"+M+"*\\)|)","i"),bool:new RegExp("^(?:"+R+")$","i"),needsContext:new RegExp("^"+M+"*[>+~]|:(even|odd|eq|gt|lt|nth|first|last)(?:\\("+M+"*((?:-\\d)?\\d*)"+M+"*\\)|)(?=[^-]|$)","i")},Y=/HTML$/i,Q=/^(?:input|select|textarea|button)$/i,J=/^h\d$/i,K=/^[^{]+\{\s*\[native \w/,Z=/^(?:#([\w-]+)|(\w+)|\.([\w-]+))$/,ee=/[+~]/,te=new RegExp("\\\\([\\da-f]{1,6}"+M+"?|("+M+")|.)","ig"),ne=function(e,t,n){var r="0x"+t-65536;return r!=r||n?t:r<0?String.fromCharCode(r+65536):String.fromCharCode(r>>10|55296,1023&r|56320)},re=/([\0-\x1f\x7f]|^-?\d)|^-$|[^\0-\x1f\x7f-\uFFFF\w-]/g,ie=function(e,t){return t?"\0"===e?"\ufffd":e.slice(0,-1)+"\\"+e.charCodeAt(e.length-1).toString(16)+" ":"\\"+e},oe=function(){T()},ae=be(function(e){return!0===e.disabled&&"fieldset"===e.nodeName.toLowerCase()},{dir:"parentNode",next:"legend"});try{H.apply(t=O.call(m.childNodes),m.childNodes),t[m.childNodes.length].nodeType}catch(e){H={apply:t.length?function(e,t){L.apply(e,O.call(t))}:function(e,t){var n=e.length,r=0;while(e[n++]=t[r++]);e.length=n-1}}}function se(t,e,n,r){var i,o,a,s,u,l,c,f=e&&e.ownerDocument,p=e?e.nodeType:9;if(n=n||[],"string"!=typeof t||!t||1!==p&&9!==p&&11!==p)return n;if(!r&&((e?e.ownerDocument||e:m)!==C&&T(e),e=e||C,E)){if(11!==p&&(u=Z.exec(t)))if(i=u[1]){if(9===p){if(!(a=e.getElementById(i)))return n;if(a.id===i)return n.push(a),n}else if(f&&(a=f.getElementById(i))&&y(e,a)&&a.id===i)return n.push(a),n}else{if(u[2])return H.apply(n,e.getElementsByTagName(t)),n;if((i=u[3])&&d.getElementsByClassName&&e.getElementsByClassName)return H.apply(n,e.getElementsByClassName(i)),n}if(d.qsa&&!A[t+" "]&&(!v||!v.test(t))&&(1!==p||"object"!==e.nodeName.toLowerCase())){if(c=t,f=e,1===p&&U.test(t)){(s=e.getAttribute("id"))?s=s.replace(re,ie):e.setAttribute("id",s=k),o=(l=h(t)).length;while(o--)l[o]="#"+s+" "+xe(l[o]);c=l.join(","),f=ee.test(t)&&ye(e.parentNode)||e}try{return H.apply(n,f.querySelectorAll(c)),n}catch(e){A(t,!0)}finally{s===k&&e.removeAttribute("id")}}}return g(t.replace(B,"$1"),e,n,r)}function ue(){var r=[];return function e(t,n){return r.push(t+" ")>b.cacheLength&&delete e[r.shift()],e[t+" "]=n}}function le(e){return e[k]=!0,e}function ce(e){var t=C.createElement("fieldset");try{return!!e(t)}catch(e){return!1}finally{t.parentNode&&t.parentNode.removeChild(t),t=null}}function fe(e,t){var n=e.split("|"),r=n.length;while(r--)b.attrHandle[n[r]]=t}function pe(e,t){var n=t&&e,r=n&&1===e.nodeType&&1===t.nodeType&&e.sourceIndex-t.sourceIndex;if(r)return r;if(n)while(n=n.nextSibling)if(n===t)return-1;return e?1:-1}function de(t){return function(e){return"input"===e.nodeName.toLowerCase()&&e.type===t}}function he(n){return function(e){var t=e.nodeName.toLowerCase();return("input"===t||"button"===t)&&e.type===n}}function ge(t){return function(e){return"form"in e?e.parentNode&&!1===e.disabled?"label"in e?"label"in e.parentNode?e.parentNode.disabled===t:e.disabled===t:e.isDisabled===t||e.isDisabled!==!t&&ae(e)===t:e.disabled===t:"label"in e&&e.disabled===t}}function ve(a){return le(function(o){return o=+o,le(function(e,t){var n,r=a([],e.length,o),i=r.length;while(i--)e[n=r[i]]&&(e[n]=!(t[n]=e[n]))})})}function ye(e){return e&&"undefined"!=typeof e.getElementsByTagName&&e}for(e in d=se.support={},i=se.isXML=function(e){var t=e.namespaceURI,n=(e.ownerDocument||e).documentElement;return!Y.test(t||n&&n.nodeName||"HTML")},T=se.setDocument=function(e){var t,n,r=e?e.ownerDocument||e:m;return r!==C&&9===r.nodeType&&r.documentElement&&(a=(C=r).documentElement,E=!i(C),m!==C&&(n=C.defaultView)&&n.top!==n&&(n.addEventListener?n.addEventListener("unload",oe,!1):n.attachEvent&&n.attachEvent("onunload",oe)),d.attributes=ce(function(e){return e.className="i",!e.getAttribute("className")}),d.getElementsByTagName=ce(function(e){return e.appendChild(C.createComment("")),!e.getElementsByTagName("*").length}),d.getElementsByClassName=K.test(C.getElementsByClassName),d.getById=ce(function(e){return a.appendChild(e).id=k,!C.getElementsByName||!C.getElementsByName(k).length}),d.getById?(b.filter.ID=function(e){var t=e.replace(te,ne);return function(e){return e.getAttribute("id")===t}},b.find.ID=function(e,t){if("undefined"!=typeof t.getElementById&&E){var n=t.getElementById(e);return n?[n]:[]}}):(b.filter.ID=function(e){var n=e.replace(te,ne);return function(e){var t="undefined"!=typeof e.getAttributeNode&&e.getAttributeNode("id");return t&&t.value===n}},b.find.ID=function(e,t){if("undefined"!=typeof t.getElementById&&E){var n,r,i,o=t.getElementById(e);if(o){if((n=o.getAttributeNode("id"))&&n.value===e)return[o];i=t.getElementsByName(e),r=0;while(o=i[r++])if((n=o.getAttributeNode("id"))&&n.value===e)return[o]}return[]}}),b.find.TAG=d.getElementsByTagName?function(e,t){return"undefined"!=typeof t.getElementsByTagName?t.getElementsByTagName(e):d.qsa?t.querySelectorAll(e):void 0}:function(e,t){var n,r=[],i=0,o=t.getElementsByTagName(e);if("*"===e){while(n=o[i++])1===n.nodeType&&r.push(n);return r}return o},b.find.CLASS=d.getElementsByClassName&&function(e,t){if("undefined"!=typeof t.getElementsByClassName&&E)return t.getElementsByClassName(e)},s=[],v=[],(d.qsa=K.test(C.querySelectorAll))&&(ce(function(e){a.appendChild(e).innerHTML="":{dir:"parentNode",first:!0}," ":{dir:"parentNode"},"+":{dir:"previousSibling",first:!0},"~":{dir:"previousSibling"}},preFilter:{ATTR:function(e){return e[1]=e[1].replace(te,ne),e[3]=(e[3]||e[4]||e[5]||"").replace(te,ne),"~="===e[2]&&(e[3]=" "+e[3]+" "),e.slice(0,4)},CHILD:function(e){return e[1]=e[1].toLowerCase(),"nth"===e[1].slice(0,3)?(e[3]||se.error(e[0]),e[4]=+(e[4]?e[5]+(e[6]||1):2*("even"===e[3]||"odd"===e[3])),e[5]=+(e[7]+e[8]||"odd"===e[3])):e[3]&&se.error(e[0]),e},PSEUDO:function(e){var t,n=!e[6]&&e[2];return G.CHILD.test(e[0])?null:(e[3]?e[2]=e[4]||e[5]||"":n&&X.test(n)&&(t=h(n,!0))&&(t=n.indexOf(")",n.length-t)-n.length)&&(e[0]=e[0].slice(0,t),e[2]=n.slice(0,t)),e.slice(0,3))}},filter:{TAG:function(e){var t=e.replace(te,ne).toLowerCase();return"*"===e?function(){return!0}:function(e){return e.nodeName&&e.nodeName.toLowerCase()===t}},CLASS:function(e){var t=p[e+" "];return t||(t=new RegExp("(^|"+M+")"+e+"("+M+"|$)"))&&p(e,function(e){return t.test("string"==typeof e.className&&e.className||"undefined"!=typeof e.getAttribute&&e.getAttribute("class")||"")})},ATTR:function(n,r,i){return function(e){var t=se.attr(e,n);return null==t?"!="===r:!r||(t+="","="===r?t===i:"!="===r?t!==i:"^="===r?i&&0===t.indexOf(i):"*="===r?i&&-1:\x20\t\r\n\f]*)[\x20\t\r\n\f]*\/?>(?:<\/\1>|)$/i;function j(e,n,r){return m(n)?k.grep(e,function(e,t){return!!n.call(e,t,e)!==r}):n.nodeType?k.grep(e,function(e){return e===n!==r}):"string"!=typeof n?k.grep(e,function(e){return-1)[^>]*|#([\w-]+))$/;(k.fn.init=function(e,t,n){var r,i;if(!e)return this;if(n=n||q,"string"==typeof e){if(!(r="<"===e[0]&&">"===e[e.length-1]&&3<=e.length?[null,e,null]:L.exec(e))||!r[1]&&t)return!t||t.jquery?(t||n).find(e):this.constructor(t).find(e);if(r[1]){if(t=t instanceof k?t[0]:t,k.merge(this,k.parseHTML(r[1],t&&t.nodeType?t.ownerDocument||t:E,!0)),D.test(r[1])&&k.isPlainObject(t))for(r in t)m(this[r])?this[r](t[r]):this.attr(r,t[r]);return this}return(i=E.getElementById(r[2]))&&(this[0]=i,this.length=1),this}return e.nodeType?(this[0]=e,this.length=1,this):m(e)?void 0!==n.ready?n.ready(e):e(k):k.makeArray(e,this)}).prototype=k.fn,q=k(E);var H=/^(?:parents|prev(?:Until|All))/,O={children:!0,contents:!0,next:!0,prev:!0};function P(e,t){while((e=e[t])&&1!==e.nodeType);return e}k.fn.extend({has:function(e){var t=k(e,this),n=t.length;return this.filter(function(){for(var e=0;e\x20\t\r\n\f]*)/i,he=/^$|^module$|\/(?:java|ecma)script/i,ge={option:[1,""," "],thead:[1,""],col:[2,""],tr:[2,""],td:[3,""],_default:[0,"",""]};function ve(e,t){var n;return n="undefined"!=typeof e.getElementsByTagName?e.getElementsByTagName(t||"*"):"undefined"!=typeof e.querySelectorAll?e.querySelectorAll(t||"*"):[],void 0===t||t&&A(e,t)?k.merge([e],n):n}function ye(e,t){for(var n=0,r=e.length;nx",y.noCloneChecked=!!me.cloneNode(!0).lastChild.defaultValue;var Te=/^key/,Ce=/^(?:mouse|pointer|contextmenu|drag|drop)|click/,Ee=/^([^.]*)(?:\.(.+)|)/;function ke(){return!0}function Se(){return!1}function Ne(e,t){return e===function(){try{return E.activeElement}catch(e){}}()==("focus"===t)}function Ae(e,t,n,r,i,o){var a,s;if("object"==typeof t){for(s in"string"!=typeof n&&(r=r||n,n=void 0),t)Ae(e,s,n,r,t[s],o);return e}if(null==r&&null==i?(i=n,r=n=void 0):null==i&&("string"==typeof n?(i=r,r=void 0):(i=r,r=n,n=void 0)),!1===i)i=Se;else if(!i)return e;return 1===o&&(a=i,(i=function(e){return k().off(e),a.apply(this,arguments)}).guid=a.guid||(a.guid=k.guid++)),e.each(function(){k.event.add(this,t,i,r,n)})}function De(e,i,o){o?(Q.set(e,i,!1),k.event.add(e,i,{namespace:!1,handler:function(e){var t,n,r=Q.get(this,i);if(1&e.isTrigger&&this[i]){if(r.length)(k.event.special[i]||{}).delegateType&&e.stopPropagation();else if(r=s.call(arguments),Q.set(this,i,r),t=o(this,i),this[i](),r!==(n=Q.get(this,i))||t?Q.set(this,i,!1):n={},r!==n)return e.stopImmediatePropagation(),e.preventDefault(),n.value}else r.length&&(Q.set(this,i,{value:k.event.trigger(k.extend(r[0],k.Event.prototype),r.slice(1),this)}),e.stopImmediatePropagation())}})):void 0===Q.get(e,i)&&k.event.add(e,i,ke)}k.event={global:{},add:function(t,e,n,r,i){var o,a,s,u,l,c,f,p,d,h,g,v=Q.get(t);if(v){n.handler&&(n=(o=n).handler,i=o.selector),i&&k.find.matchesSelector(ie,i),n.guid||(n.guid=k.guid++),(u=v.events)||(u=v.events={}),(a=v.handle)||(a=v.handle=function(e){return"undefined"!=typeof k&&k.event.triggered!==e.type?k.event.dispatch.apply(t,arguments):void 0}),l=(e=(e||"").match(R)||[""]).length;while(l--)d=g=(s=Ee.exec(e[l])||[])[1],h=(s[2]||"").split(".").sort(),d&&(f=k.event.special[d]||{},d=(i?f.delegateType:f.bindType)||d,f=k.event.special[d]||{},c=k.extend({type:d,origType:g,data:r,handler:n,guid:n.guid,selector:i,needsContext:i&&k.expr.match.needsContext.test(i),namespace:h.join(".")},o),(p=u[d])||((p=u[d]=[]).delegateCount=0,f.setup&&!1!==f.setup.call(t,r,h,a)||t.addEventListener&&t.addEventListener(d,a)),f.add&&(f.add.call(t,c),c.handler.guid||(c.handler.guid=n.guid)),i?p.splice(p.delegateCount++,0,c):p.push(c),k.event.global[d]=!0)}},remove:function(e,t,n,r,i){var o,a,s,u,l,c,f,p,d,h,g,v=Q.hasData(e)&&Q.get(e);if(v&&(u=v.events)){l=(t=(t||"").match(R)||[""]).length;while(l--)if(d=g=(s=Ee.exec(t[l])||[])[1],h=(s[2]||"").split(".").sort(),d){f=k.event.special[d]||{},p=u[d=(r?f.delegateType:f.bindType)||d]||[],s=s[2]&&new RegExp("(^|\\.)"+h.join("\\.(?:.*\\.|)")+"(\\.|$)"),a=o=p.length;while(o--)c=p[o],!i&&g!==c.origType||n&&n.guid!==c.guid||s&&!s.test(c.namespace)||r&&r!==c.selector&&("**"!==r||!c.selector)||(p.splice(o,1),c.selector&&p.delegateCount--,f.remove&&f.remove.call(e,c));a&&!p.length&&(f.teardown&&!1!==f.teardown.call(e,h,v.handle)||k.removeEvent(e,d,v.handle),delete u[d])}else for(d in u)k.event.remove(e,d+t[l],n,r,!0);k.isEmptyObject(u)&&Q.remove(e,"handle events")}},dispatch:function(e){var t,n,r,i,o,a,s=k.event.fix(e),u=new Array(arguments.length),l=(Q.get(this,"events")||{})[s.type]||[],c=k.event.special[s.type]||{};for(u[0]=s,t=1;t\x20\t\r\n\f]*)[^>]*)\/>/gi,qe=/\s*$/g;function Oe(e,t){return A(e,"table")&&A(11!==t.nodeType?t:t.firstChild,"tr")&&k(e).children("tbody")[0]||e}function Pe(e){return e.type=(null!==e.getAttribute("type"))+"/"+e.type,e}function Re(e){return"true/"===(e.type||"").slice(0,5)?e.type=e.type.slice(5):e.removeAttribute("type"),e}function Me(e,t){var n,r,i,o,a,s,u,l;if(1===t.nodeType){if(Q.hasData(e)&&(o=Q.access(e),a=Q.set(t,o),l=o.events))for(i in delete a.handle,a.events={},l)for(n=0,r=l[i].length;n")},clone:function(e,t,n){var r,i,o,a,s,u,l,c=e.cloneNode(!0),f=oe(e);if(!(y.noCloneChecked||1!==e.nodeType&&11!==e.nodeType||k.isXMLDoc(e)))for(a=ve(c),r=0,i=(o=ve(e)).length;r").attr(n.scriptAttrs||{}).prop({charset:n.scriptCharset,src:n.url}).on("load error",i=function(e){r.remove(),i=null,e&&t("error"===e.type?404:200,e.type)}),E.head.appendChild(r[0])},abort:function(){i&&i()}}});var Vt,Gt=[],Yt=/(=)\?(?=&|$)|\?\?/;k.ajaxSetup({jsonp:"callback",jsonpCallback:function(){var e=Gt.pop()||k.expando+"_"+kt++;return this[e]=!0,e}}),k.ajaxPrefilter("json jsonp",function(e,t,n){var r,i,o,a=!1!==e.jsonp&&(Yt.test(e.url)?"url":"string"==typeof e.data&&0===(e.contentType||"").indexOf("application/x-www-form-urlencoded")&&Yt.test(e.data)&&"data");if(a||"jsonp"===e.dataTypes[0])return r=e.jsonpCallback=m(e.jsonpCallback)?e.jsonpCallback():e.jsonpCallback,a?e[a]=e[a].replace(Yt,"$1"+r):!1!==e.jsonp&&(e.url+=(St.test(e.url)?"&":"?")+e.jsonp+"="+r),e.converters["script json"]=function(){return o||k.error(r+" was not called"),o[0]},e.dataTypes[0]="json",i=C[r],C[r]=function(){o=arguments},n.always(function(){void 0===i?k(C).removeProp(r):C[r]=i,e[r]&&(e.jsonpCallback=t.jsonpCallback,Gt.push(r)),o&&m(i)&&i(o[0]),o=i=void 0}),"script"}),y.createHTMLDocument=((Vt=E.implementation.createHTMLDocument("").body).innerHTML="",2===Vt.childNodes.length),k.parseHTML=function(e,t,n){return"string"!=typeof e?[]:("boolean"==typeof t&&(n=t,t=!1),t||(y.createHTMLDocument?((r=(t=E.implementation.createHTMLDocument("")).createElement("base")).href=E.location.href,t.head.appendChild(r)):t=E),o=!n&&[],(i=D.exec(e))?[t.createElement(i[1])]:(i=we([e],t,o),o&&o.length&&k(o).remove(),k.merge([],i.childNodes)));var r,i,o},k.fn.load=function(e,t,n){var r,i,o,a=this,s=e.indexOf(" ");return-1").append(k.parseHTML(e)).find(r):e)}).always(n&&function(e,t){a.each(function(){n.apply(this,o||[e.responseText,t,e])})}),this},k.each(["ajaxStart","ajaxStop","ajaxComplete","ajaxError","ajaxSuccess","ajaxSend"],function(e,t){k.fn[t]=function(e){return this.on(t,e)}}),k.expr.pseudos.animated=function(t){return k.grep(k.timers,function(e){return t===e.elem}).length},k.offset={setOffset:function(e,t,n){var r,i,o,a,s,u,l=k.css(e,"position"),c=k(e),f={};"static"===l&&(e.style.position="relative"),s=c.offset(),o=k.css(e,"top"),u=k.css(e,"left"),("absolute"===l||"fixed"===l)&&-1<(o+u).indexOf("auto")?(a=(r=c.position()).top,i=r.left):(a=parseFloat(o)||0,i=parseFloat(u)||0),m(t)&&(t=t.call(e,n,k.extend({},s))),null!=t.top&&(f.top=t.top-s.top+a),null!=t.left&&(f.left=t.left-s.left+i),"using"in t?t.using.call(e,f):c.css(f)}},k.fn.extend({offset:function(t){if(arguments.length)return void 0===t?this:this.each(function(e){k.offset.setOffset(this,t,e)});var e,n,r=this[0];return r?r.getClientRects().length?(e=r.getBoundingClientRect(),n=r.ownerDocument.defaultView,{top:e.top+n.pageYOffset,left:e.left+n.pageXOffset}):{top:0,left:0}:void 0},position:function(){if(this[0]){var e,t,n,r=this[0],i={top:0,left:0};if("fixed"===k.css(r,"position"))t=r.getBoundingClientRect();else{t=this.offset(),n=r.ownerDocument,e=r.offsetParent||n.documentElement;while(e&&(e===n.body||e===n.documentElement)&&"static"===k.css(e,"position"))e=e.parentNode;e&&e!==r&&1===e.nodeType&&((i=k(e).offset()).top+=k.css(e,"borderTopWidth",!0),i.left+=k.css(e,"borderLeftWidth",!0))}return{top:t.top-i.top-k.css(r,"marginTop",!0),left:t.left-i.left-k.css(r,"marginLeft",!0)}}},offsetParent:function(){return this.map(function(){var e=this.offsetParent;while(e&&"static"===k.css(e,"position"))e=e.offsetParent;return e||ie})}}),k.each({scrollLeft:"pageXOffset",scrollTop:"pageYOffset"},function(t,i){var o="pageYOffset"===i;k.fn[t]=function(e){return _(this,function(e,t,n){var r;if(x(e)?r=e:9===e.nodeType&&(r=e.defaultView),void 0===n)return r?r[i]:e[t];r?r.scrollTo(o?r.pageXOffset:n,o?n:r.pageYOffset):e[t]=n},t,e,arguments.length)}}),k.each(["top","left"],function(e,n){k.cssHooks[n]=ze(y.pixelPosition,function(e,t){if(t)return t=_e(e,n),$e.test(t)?k(e).position()[n]+"px":t})}),k.each({Height:"height",Width:"width"},function(a,s){k.each({padding:"inner"+a,content:s,"":"outer"+a},function(r,o){k.fn[o]=function(e,t){var n=arguments.length&&(r||"boolean"!=typeof e),i=r||(!0===e||!0===t?"margin":"border");return _(this,function(e,t,n){var r;return x(e)?0===o.indexOf("outer")?e["inner"+a]:e.document.documentElement["client"+a]:9===e.nodeType?(r=e.documentElement,Math.max(e.body["scroll"+a],r["scroll"+a],e.body["offset"+a],r["offset"+a],r["client"+a])):void 0===n?k.css(e,t,i):k.style(e,t,n,i)},s,n?e:void 0,n)}})}),k.each("blur focus focusin focusout resize scroll click dblclick mousedown mouseup mousemove mouseover mouseout mouseenter mouseleave change select submit keydown keypress keyup contextmenu".split(" "),function(e,n){k.fn[n]=function(e,t){return 0a;a++)for(i in o[a])n=o[a][i],o[a].hasOwnProperty(i)&&void 0!==n&&(e[i]=t.isPlainObject(n)?t.isPlainObject(e[i])?t.widget.extend({},e[i],n):t.widget.extend({},n):n);return e},t.widget.bridge=function(e,i){var n=i.prototype.widgetFullName||e;t.fn[e]=function(o){var a="string"==typeof o,r=s.call(arguments,1),h=this;return a?this.length||"instance"!==o?this.each(function(){var i,s=t.data(this,n);return"instance"===o?(h=s,!1):s?t.isFunction(s[o])&&"_"!==o.charAt(0)?(i=s[o].apply(s,r),i!==s&&void 0!==i?(h=i&&i.jquery?h.pushStack(i.get()):i,!1):void 0):t.error("no such method '"+o+"' for "+e+" widget instance"):t.error("cannot call methods on "+e+" prior to initialization; "+"attempted to call method '"+o+"'")}):h=void 0:(r.length&&(o=t.widget.extend.apply(null,[o].concat(r))),this.each(function(){var e=t.data(this,n);e?(e.option(o||{}),e._init&&e._init()):t.data(this,n,new i(o,this))})),h}},t.Widget=function(){},t.Widget._childConstructors=[],t.Widget.prototype={widgetName:"widget",widgetEventPrefix:"",defaultElement:"",options:{classes:{},disabled:!1,create:null},_createWidget:function(e,s){s=t(s||this.defaultElement||this)[0],this.element=t(s),this.uuid=i++,this.eventNamespace="."+this.widgetName+this.uuid,this.bindings=t(),this.hoverable=t(),this.focusable=t(),this.classesElementLookup={},s!==this&&(t.data(s,this.widgetFullName,this),this._on(!0,this.element,{remove:function(t){t.target===s&&this.destroy()}}),this.document=t(s.style?s.ownerDocument:s.document||s),this.window=t(this.document[0].defaultView||this.document[0].parentWindow)),this.options=t.widget.extend({},this.options,this._getCreateOptions(),e),this._create(),this.options.disabled&&this._setOptionDisabled(this.options.disabled),this._trigger("create",null,this._getCreateEventData()),this._init()},_getCreateOptions:function(){return{}},_getCreateEventData:t.noop,_create:t.noop,_init:t.noop,destroy:function(){var e=this;this._destroy(),t.each(this.classesElementLookup,function(t,i){e._removeClass(i,t)}),this.element.off(this.eventNamespace).removeData(this.widgetFullName),this.widget().off(this.eventNamespace).removeAttr("aria-disabled"),this.bindings.off(this.eventNamespace)},_destroy:t.noop,widget:function(){return this.element},option:function(e,i){var s,n,o,a=e;if(0===arguments.length)return t.widget.extend({},this.options);if("string"==typeof e)if(a={},s=e.split("."),e=s.shift(),s.length){for(n=a[e]=t.widget.extend({},this.options[e]),o=0;s.length-1>o;o++)n[s[o]]=n[s[o]]||{},n=n[s[o]];if(e=s.pop(),1===arguments.length)return void 0===n[e]?null:n[e];n[e]=i}else{if(1===arguments.length)return void 0===this.options[e]?null:this.options[e];a[e]=i}return this._setOptions(a),this},_setOptions:function(t){var e;for(e in t)this._setOption(e,t[e]);return this},_setOption:function(t,e){return"classes"===t&&this._setOptionClasses(e),this.options[t]=e,"disabled"===t&&this._setOptionDisabled(e),this},_setOptionClasses:function(e){var i,s,n;for(i in e)n=this.classesElementLookup[i],e[i]!==this.options.classes[i]&&n&&n.length&&(s=t(n.get()),this._removeClass(n,i),s.addClass(this._classes({element:s,keys:i,classes:e,add:!0})))},_setOptionDisabled:function(t){this._toggleClass(this.widget(),this.widgetFullName+"-disabled",null,!!t),t&&(this._removeClass(this.hoverable,null,"ui-state-hover"),this._removeClass(this.focusable,null,"ui-state-focus"))},enable:function(){return this._setOptions({disabled:!1})},disable:function(){return this._setOptions({disabled:!0})},_classes:function(e){function i(i,o){var a,r;for(r=0;i.length>r;r++)a=n.classesElementLookup[i[r]]||t(),a=e.add?t(t.unique(a.get().concat(e.element.get()))):t(a.not(e.element).get()),n.classesElementLookup[i[r]]=a,s.push(i[r]),o&&e.classes[i[r]]&&s.push(e.classes[i[r]])}var s=[],n=this;return e=t.extend({element:this.element,classes:this.options.classes||{}},e),this._on(e.element,{remove:"_untrackClassesElement"}),e.keys&&i(e.keys.match(/\S+/g)||[],!0),e.extra&&i(e.extra.match(/\S+/g)||[]),s.join(" ")},_untrackClassesElement:function(e){var i=this;t.each(i.classesElementLookup,function(s,n){-1!==t.inArray(e.target,n)&&(i.classesElementLookup[s]=t(n.not(e.target).get()))})},_removeClass:function(t,e,i){return this._toggleClass(t,e,i,!1)},_addClass:function(t,e,i){return this._toggleClass(t,e,i,!0)},_toggleClass:function(t,e,i,s){s="boolean"==typeof s?s:i;var n="string"==typeof t||null===t,o={extra:n?e:i,keys:n?t:e,element:n?this.element:t,add:s};return o.element.toggleClass(this._classes(o),s),this},_on:function(e,i,s){var n,o=this;"boolean"!=typeof e&&(s=i,i=e,e=!1),s?(i=n=t(i),this.bindings=this.bindings.add(i)):(s=i,i=this.element,n=this.widget()),t.each(s,function(s,a){function r(){return e||o.options.disabled!==!0&&!t(this).hasClass("ui-state-disabled")?("string"==typeof a?o[a]:a).apply(o,arguments):void 0}"string"!=typeof a&&(r.guid=a.guid=a.guid||r.guid||t.guid++);var h=s.match(/^([\w:-]*)\s*(.*)$/),l=h[1]+o.eventNamespace,c=h[2];c?n.on(l,c,r):i.on(l,r)})},_off:function(e,i){i=(i||"").split(" ").join(this.eventNamespace+" ")+this.eventNamespace,e.off(i).off(i),this.bindings=t(this.bindings.not(e).get()),this.focusable=t(this.focusable.not(e).get()),this.hoverable=t(this.hoverable.not(e).get())},_delay:function(t,e){function i(){return("string"==typeof t?s[t]:t).apply(s,arguments)}var s=this;return setTimeout(i,e||0)},_hoverable:function(e){this.hoverable=this.hoverable.add(e),this._on(e,{mouseenter:function(e){this._addClass(t(e.currentTarget),null,"ui-state-hover")},mouseleave:function(e){this._removeClass(t(e.currentTarget),null,"ui-state-hover")}})},_focusable:function(e){this.focusable=this.focusable.add(e),this._on(e,{focusin:function(e){this._addClass(t(e.currentTarget),null,"ui-state-focus")},focusout:function(e){this._removeClass(t(e.currentTarget),null,"ui-state-focus")}})},_trigger:function(e,i,s){var n,o,a=this.options[e];if(s=s||{},i=t.Event(i),i.type=(e===this.widgetEventPrefix?e:this.widgetEventPrefix+e).toLowerCase(),i.target=this.element[0],o=i.originalEvent)for(n in o)n in i||(i[n]=o[n]);return this.element.trigger(i,s),!(t.isFunction(a)&&a.apply(this.element[0],[i].concat(s))===!1||i.isDefaultPrevented())}},t.each({show:"fadeIn",hide:"fadeOut"},function(e,i){t.Widget.prototype["_"+e]=function(s,n,o){"string"==typeof n&&(n={effect:n});var a,r=n?n===!0||"number"==typeof n?i:n.effect||i:e;n=n||{},"number"==typeof n&&(n={duration:n}),a=!t.isEmptyObject(n),n.complete=o,n.delay&&s.delay(n.delay),a&&t.effects&&t.effects.effect[r]?s[e](n):r!==e&&s[r]?s[r](n.duration,n.easing,o):s.queue(function(i){t(this)[e](),o&&o.call(s[0]),i()})}}),t.widget,function(){function e(t,e,i){return[parseFloat(t[0])*(u.test(t[0])?e/100:1),parseFloat(t[1])*(u.test(t[1])?i/100:1)]}function i(e,i){return parseInt(t.css(e,i),10)||0}function s(e){var i=e[0];return 9===i.nodeType?{width:e.width(),height:e.height(),offset:{top:0,left:0}}:t.isWindow(i)?{width:e.width(),height:e.height(),offset:{top:e.scrollTop(),left:e.scrollLeft()}}:i.preventDefault?{width:0,height:0,offset:{top:i.pageY,left:i.pageX}}:{width:e.outerWidth(),height:e.outerHeight(),offset:e.offset()}}var n,o=Math.max,a=Math.abs,r=/left|center|right/,h=/top|center|bottom/,l=/[\+\-]\d+(\.[\d]+)?%?/,c=/^\w+/,u=/%$/,d=t.fn.position;t.position={scrollbarWidth:function(){if(void 0!==n)return n;var e,i,s=t("
"),o=s.children()[0];return t("body").append(s),e=o.offsetWidth,s.css("overflow","scroll"),i=o.offsetWidth,e===i&&(i=s[0].clientWidth),s.remove(),n=e-i},getScrollInfo:function(e){var i=e.isWindow||e.isDocument?"":e.element.css("overflow-x"),s=e.isWindow||e.isDocument?"":e.element.css("overflow-y"),n="scroll"===i||"auto"===i&&e.width
i?"left":e>0?"right":"center",vertical:0>r?"top":s>0?"bottom":"middle"};l>p&&p>a(e+i)&&(u.horizontal="center"),c>f&&f>a(s+r)&&(u.vertical="middle"),u.important=o(a(e),a(i))>o(a(s),a(r))?"horizontal":"vertical",n.using.call(this,t,u)}),h.offset(t.extend(D,{using:r}))})},t.ui.position={fit:{left:function(t,e){var i,s=e.within,n=s.isWindow?s.scrollLeft:s.offset.left,a=s.width,r=t.left-e.collisionPosition.marginLeft,h=n-r,l=r+e.collisionWidth-a-n;e.collisionWidth>a?h>0&&0>=l?(i=t.left+h+e.collisionWidth-a-n,t.left+=h-i):t.left=l>0&&0>=h?n:h>l?n+a-e.collisionWidth:n:h>0?t.left+=h:l>0?t.left-=l:t.left=o(t.left-r,t.left)},top:function(t,e){var i,s=e.within,n=s.isWindow?s.scrollTop:s.offset.top,a=e.within.height,r=t.top-e.collisionPosition.marginTop,h=n-r,l=r+e.collisionHeight-a-n;e.collisionHeight>a?h>0&&0>=l?(i=t.top+h+e.collisionHeight-a-n,t.top+=h-i):t.top=l>0&&0>=h?n:h>l?n+a-e.collisionHeight:n:h>0?t.top+=h:l>0?t.top-=l:t.top=o(t.top-r,t.top)}},flip:{left:function(t,e){var i,s,n=e.within,o=n.offset.left+n.scrollLeft,r=n.width,h=n.isWindow?n.scrollLeft:n.offset.left,l=t.left-e.collisionPosition.marginLeft,c=l-h,u=l+e.collisionWidth-r-h,d="left"===e.my[0]?-e.elemWidth:"right"===e.my[0]?e.elemWidth:0,p="left"===e.at[0]?e.targetWidth:"right"===e.at[0]?-e.targetWidth:0,f=-2*e.offset[0];0>c?(i=t.left+d+p+f+e.collisionWidth-r-o,(0>i||a(c)>i)&&(t.left+=d+p+f)):u>0&&(s=t.left-e.collisionPosition.marginLeft+d+p+f-h,(s>0||u>a(s))&&(t.left+=d+p+f))},top:function(t,e){var i,s,n=e.within,o=n.offset.top+n.scrollTop,r=n.height,h=n.isWindow?n.scrollTop:n.offset.top,l=t.top-e.collisionPosition.marginTop,c=l-h,u=l+e.collisionHeight-r-h,d="top"===e.my[1],p=d?-e.elemHeight:"bottom"===e.my[1]?e.elemHeight:0,f="top"===e.at[1]?e.targetHeight:"bottom"===e.at[1]?-e.targetHeight:0,m=-2*e.offset[1];0>c?(s=t.top+p+f+m+e.collisionHeight-r-o,(0>s||a(c)>s)&&(t.top+=p+f+m)):u>0&&(i=t.top-e.collisionPosition.marginTop+p+f+m-h,(i>0||u>a(i))&&(t.top+=p+f+m))}},flipfit:{left:function(){t.ui.position.flip.left.apply(this,arguments),t.ui.position.fit.left.apply(this,arguments)},top:function(){t.ui.position.flip.top.apply(this,arguments),t.ui.position.fit.top.apply(this,arguments)}}}}(),t.ui.position,t.extend(t.expr[":"],{data:t.expr.createPseudo?t.expr.createPseudo(function(e){return function(i){return!!t.data(i,e)}}):function(e,i,s){return!!t.data(e,s[3])}}),t.fn.extend({disableSelection:function(){var t="onselectstart"in document.createElement("div")?"selectstart":"mousedown";return function(){return this.on(t+".ui-disableSelection",function(t){t.preventDefault()})}}(),enableSelection:function(){return this.off(".ui-disableSelection")}}),t.ui.focusable=function(i,s){var n,o,a,r,h,l=i.nodeName.toLowerCase();return"area"===l?(n=i.parentNode,o=n.name,i.href&&o&&"map"===n.nodeName.toLowerCase()?(a=t("img[usemap='#"+o+"']"),a.length>0&&a.is(":visible")):!1):(/^(input|select|textarea|button|object)$/.test(l)?(r=!i.disabled,r&&(h=t(i).closest("fieldset")[0],h&&(r=!h.disabled))):r="a"===l?i.href||s:s,r&&t(i).is(":visible")&&e(t(i)))},t.extend(t.expr[":"],{focusable:function(e){return t.ui.focusable(e,null!=t.attr(e,"tabindex"))}}),t.ui.focusable,t.fn.form=function(){return"string"==typeof this[0].form?this.closest("form"):t(this[0].form)},t.ui.formResetMixin={_formResetHandler:function(){var e=t(this);setTimeout(function(){var i=e.data("ui-form-reset-instances");t.each(i,function(){this.refresh()})})},_bindFormResetHandler:function(){if(this.form=this.element.form(),this.form.length){var t=this.form.data("ui-form-reset-instances")||[];t.length||this.form.on("reset.ui-form-reset",this._formResetHandler),t.push(this),this.form.data("ui-form-reset-instances",t)}},_unbindFormResetHandler:function(){if(this.form.length){var e=this.form.data("ui-form-reset-instances");e.splice(t.inArray(this,e),1),e.length?this.form.data("ui-form-reset-instances",e):this.form.removeData("ui-form-reset-instances").off("reset.ui-form-reset")}}},"1.7"===t.fn.jquery.substring(0,3)&&(t.each(["Width","Height"],function(e,i){function s(e,i,s,o){return t.each(n,function(){i-=parseFloat(t.css(e,"padding"+this))||0,s&&(i-=parseFloat(t.css(e,"border"+this+"Width"))||0),o&&(i-=parseFloat(t.css(e,"margin"+this))||0)}),i}var n="Width"===i?["Left","Right"]:["Top","Bottom"],o=i.toLowerCase(),a={innerWidth:t.fn.innerWidth,innerHeight:t.fn.innerHeight,outerWidth:t.fn.outerWidth,outerHeight:t.fn.outerHeight};t.fn["inner"+i]=function(e){return void 0===e?a["inner"+i].call(this):this.each(function(){t(this).css(o,s(this,e)+"px")})},t.fn["outer"+i]=function(e,n){return"number"!=typeof e?a["outer"+i].call(this,e):this.each(function(){t(this).css(o,s(this,e,!0,n)+"px")})}}),t.fn.addBack=function(t){return this.add(null==t?this.prevObject:this.prevObject.filter(t))}),t.ui.keyCode={BACKSPACE:8,COMMA:188,DELETE:46,DOWN:40,END:35,ENTER:13,ESCAPE:27,HOME:36,LEFT:37,PAGE_DOWN:34,PAGE_UP:33,PERIOD:190,RIGHT:39,SPACE:32,TAB:9,UP:38},t.ui.escapeSelector=function(){var t=/([!"#$%&'()*+,./:;<=>?@[\]^`{|}~])/g;return function(e){return e.replace(t,"\\$1")}}(),t.fn.labels=function(){var e,i,s,n,o;return this[0].labels&&this[0].labels.length?this.pushStack(this[0].labels):(n=this.eq(0).parents("label"),s=this.attr("id"),s&&(e=this.eq(0).parents().last(),o=e.add(e.length?e.siblings():this.siblings()),i="label[for='"+t.ui.escapeSelector(s)+"']",n=n.add(o.find(i).addBack(i))),this.pushStack(n))},t.fn.scrollParent=function(e){var i=this.css("position"),s="absolute"===i,n=e?/(auto|scroll|hidden)/:/(auto|scroll)/,o=this.parents().filter(function(){var e=t(this);return s&&"static"===e.css("position")?!1:n.test(e.css("overflow")+e.css("overflow-y")+e.css("overflow-x"))}).eq(0);return"fixed"!==i&&o.length?o:t(this[0].ownerDocument||document)},t.extend(t.expr[":"],{tabbable:function(e){var i=t.attr(e,"tabindex"),s=null!=i;return(!s||i>=0)&&t.ui.focusable(e,s)}}),t.fn.extend({uniqueId:function(){var t=0;return function(){return this.each(function(){this.id||(this.id="ui-id-"+ ++t)})}}(),removeUniqueId:function(){return this.each(function(){/^ui-id-\d+$/.test(this.id)&&t(this).removeAttr("id")})}}),t.ui.ie=!!/msie [\w.]+/.exec(navigator.userAgent.toLowerCase());var n=!1;t(document).on("mouseup",function(){n=!1}),t.widget("ui.mouse",{version:"1.12.1",options:{cancel:"input, textarea, button, select, option",distance:1,delay:0},_mouseInit:function(){var e=this;this.element.on("mousedown."+this.widgetName,function(t){return e._mouseDown(t)}).on("click."+this.widgetName,function(i){return!0===t.data(i.target,e.widgetName+".preventClickEvent")?(t.removeData(i.target,e.widgetName+".preventClickEvent"),i.stopImmediatePropagation(),!1):void 0}),this.started=!1},_mouseDestroy:function(){this.element.off("."+this.widgetName),this._mouseMoveDelegate&&this.document.off("mousemove."+this.widgetName,this._mouseMoveDelegate).off("mouseup."+this.widgetName,this._mouseUpDelegate)},_mouseDown:function(e){if(!n){this._mouseMoved=!1,this._mouseStarted&&this._mouseUp(e),this._mouseDownEvent=e;var i=this,s=1===e.which,o="string"==typeof this.options.cancel&&e.target.nodeName?t(e.target).closest(this.options.cancel).length:!1;return s&&!o&&this._mouseCapture(e)?(this.mouseDelayMet=!this.options.delay,this.mouseDelayMet||(this._mouseDelayTimer=setTimeout(function(){i.mouseDelayMet=!0},this.options.delay)),this._mouseDistanceMet(e)&&this._mouseDelayMet(e)&&(this._mouseStarted=this._mouseStart(e)!==!1,!this._mouseStarted)?(e.preventDefault(),!0):(!0===t.data(e.target,this.widgetName+".preventClickEvent")&&t.removeData(e.target,this.widgetName+".preventClickEvent"),this._mouseMoveDelegate=function(t){return i._mouseMove(t)},this._mouseUpDelegate=function(t){return i._mouseUp(t)},this.document.on("mousemove."+this.widgetName,this._mouseMoveDelegate).on("mouseup."+this.widgetName,this._mouseUpDelegate),e.preventDefault(),n=!0,!0)):!0}},_mouseMove:function(e){if(this._mouseMoved){if(t.ui.ie&&(!document.documentMode||9>document.documentMode)&&!e.button)return this._mouseUp(e);if(!e.which)if(e.originalEvent.altKey||e.originalEvent.ctrlKey||e.originalEvent.metaKey||e.originalEvent.shiftKey)this.ignoreMissingWhich=!0;else if(!this.ignoreMissingWhich)return this._mouseUp(e)}return(e.which||e.button)&&(this._mouseMoved=!0),this._mouseStarted?(this._mouseDrag(e),e.preventDefault()):(this._mouseDistanceMet(e)&&this._mouseDelayMet(e)&&(this._mouseStarted=this._mouseStart(this._mouseDownEvent,e)!==!1,this._mouseStarted?this._mouseDrag(e):this._mouseUp(e)),!this._mouseStarted)},_mouseUp:function(e){this.document.off("mousemove."+this.widgetName,this._mouseMoveDelegate).off("mouseup."+this.widgetName,this._mouseUpDelegate),this._mouseStarted&&(this._mouseStarted=!1,e.target===this._mouseDownEvent.target&&t.data(e.target,this.widgetName+".preventClickEvent",!0),this._mouseStop(e)),this._mouseDelayTimer&&(clearTimeout(this._mouseDelayTimer),delete this._mouseDelayTimer),this.ignoreMissingWhich=!1,n=!1,e.preventDefault()},_mouseDistanceMet:function(t){return Math.max(Math.abs(this._mouseDownEvent.pageX-t.pageX),Math.abs(this._mouseDownEvent.pageY-t.pageY))>=this.options.distance},_mouseDelayMet:function(){return this.mouseDelayMet},_mouseStart:function(){},_mouseDrag:function(){},_mouseStop:function(){},_mouseCapture:function(){return!0}}),t.ui.plugin={add:function(e,i,s){var n,o=t.ui[e].prototype;for(n in s)o.plugins[n]=o.plugins[n]||[],o.plugins[n].push([i,s[n]])},call:function(t,e,i,s){var n,o=t.plugins[e];if(o&&(s||t.element[0].parentNode&&11!==t.element[0].parentNode.nodeType))for(n=0;o.length>n;n++)t.options[o[n][0]]&&o[n][1].apply(t.element,i)}},t.widget("ui.resizable",t.ui.mouse,{version:"1.12.1",widgetEventPrefix:"resize",options:{alsoResize:!1,animate:!1,animateDuration:"slow",animateEasing:"swing",aspectRatio:!1,autoHide:!1,classes:{"ui-resizable-se":"ui-icon ui-icon-gripsmall-diagonal-se"},containment:!1,ghost:!1,grid:!1,handles:"e,s,se",helper:!1,maxHeight:null,maxWidth:null,minHeight:10,minWidth:10,zIndex:90,resize:null,start:null,stop:null},_num:function(t){return parseFloat(t)||0},_isNumber:function(t){return!isNaN(parseFloat(t))},_hasScroll:function(e,i){if("hidden"===t(e).css("overflow"))return!1;var s=i&&"left"===i?"scrollLeft":"scrollTop",n=!1;return e[s]>0?!0:(e[s]=1,n=e[s]>0,e[s]=0,n)},_create:function(){var e,i=this.options,s=this;this._addClass("ui-resizable"),t.extend(this,{_aspectRatio:!!i.aspectRatio,aspectRatio:i.aspectRatio,originalElement:this.element,_proportionallyResizeElements:[],_helper:i.helper||i.ghost||i.animate?i.helper||"ui-resizable-helper":null}),this.element[0].nodeName.match(/^(canvas|textarea|input|select|button|img)$/i)&&(this.element.wrap(t("
").css({position:this.element.css("position"),width:this.element.outerWidth(),height:this.element.outerHeight(),top:this.element.css("top"),left:this.element.css("left")})),this.element=this.element.parent().data("ui-resizable",this.element.resizable("instance")),this.elementIsWrapper=!0,e={marginTop:this.originalElement.css("marginTop"),marginRight:this.originalElement.css("marginRight"),marginBottom:this.originalElement.css("marginBottom"),marginLeft:this.originalElement.css("marginLeft")},this.element.css(e),this.originalElement.css("margin",0),this.originalResizeStyle=this.originalElement.css("resize"),this.originalElement.css("resize","none"),this._proportionallyResizeElements.push(this.originalElement.css({position:"static",zoom:1,display:"block"})),this.originalElement.css(e),this._proportionallyResize()),this._setupHandles(),i.autoHide&&t(this.element).on("mouseenter",function(){i.disabled||(s._removeClass("ui-resizable-autohide"),s._handles.show())}).on("mouseleave",function(){i.disabled||s.resizing||(s._addClass("ui-resizable-autohide"),s._handles.hide())}),this._mouseInit()},_destroy:function(){this._mouseDestroy();var e,i=function(e){t(e).removeData("resizable").removeData("ui-resizable").off(".resizable").find(".ui-resizable-handle").remove()};return this.elementIsWrapper&&(i(this.element),e=this.element,this.originalElement.css({position:e.css("position"),width:e.outerWidth(),height:e.outerHeight(),top:e.css("top"),left:e.css("left")}).insertAfter(e),e.remove()),this.originalElement.css("resize",this.originalResizeStyle),i(this.originalElement),this},_setOption:function(t,e){switch(this._super(t,e),t){case"handles":this._removeHandles(),this._setupHandles();break;default:}},_setupHandles:function(){var e,i,s,n,o,a=this.options,r=this;if(this.handles=a.handles||(t(".ui-resizable-handle",this.element).length?{n:".ui-resizable-n",e:".ui-resizable-e",s:".ui-resizable-s",w:".ui-resizable-w",se:".ui-resizable-se",sw:".ui-resizable-sw",ne:".ui-resizable-ne",nw:".ui-resizable-nw"}:"e,s,se"),this._handles=t(),this.handles.constructor===String)for("all"===this.handles&&(this.handles="n,e,s,w,se,sw,ne,nw"),s=this.handles.split(","),this.handles={},i=0;s.length>i;i++)e=t.trim(s[i]),n="ui-resizable-"+e,o=t(""),this._addClass(o,"ui-resizable-handle "+n),o.css({zIndex:a.zIndex}),this.handles[e]=".ui-resizable-"+e,this.element.append(o);this._renderAxis=function(e){var i,s,n,o;e=e||this.element;for(i in this.handles)this.handles[i].constructor===String?this.handles[i]=this.element.children(this.handles[i]).first().show():(this.handles[i].jquery||this.handles[i].nodeType)&&(this.handles[i]=t(this.handles[i]),this._on(this.handles[i],{mousedown:r._mouseDown})),this.elementIsWrapper&&this.originalElement[0].nodeName.match(/^(textarea|input|select|button)$/i)&&(s=t(this.handles[i],this.element),o=/sw|ne|nw|se|n|s/.test(i)?s.outerHeight():s.outerWidth(),n=["padding",/ne|nw|n/.test(i)?"Top":/se|sw|s/.test(i)?"Bottom":/^e$/.test(i)?"Right":"Left"].join(""),e.css(n,o),this._proportionallyResize()),this._handles=this._handles.add(this.handles[i])},this._renderAxis(this.element),this._handles=this._handles.add(this.element.find(".ui-resizable-handle")),this._handles.disableSelection(),this._handles.on("mouseover",function(){r.resizing||(this.className&&(o=this.className.match(/ui-resizable-(se|sw|ne|nw|n|e|s|w)/i)),r.axis=o&&o[1]?o[1]:"se")}),a.autoHide&&(this._handles.hide(),this._addClass("ui-resizable-autohide"))},_removeHandles:function(){this._handles.remove()},_mouseCapture:function(e){var i,s,n=!1;for(i in this.handles)s=t(this.handles[i])[0],(s===e.target||t.contains(s,e.target))&&(n=!0);return!this.options.disabled&&n},_mouseStart:function(e){var i,s,n,o=this.options,a=this.element;return this.resizing=!0,this._renderProxy(),i=this._num(this.helper.css("left")),s=this._num(this.helper.css("top")),o.containment&&(i+=t(o.containment).scrollLeft()||0,s+=t(o.containment).scrollTop()||0),this.offset=this.helper.offset(),this.position={left:i,top:s},this.size=this._helper?{width:this.helper.width(),height:this.helper.height()}:{width:a.width(),height:a.height()},this.originalSize=this._helper?{width:a.outerWidth(),height:a.outerHeight()}:{width:a.width(),height:a.height()},this.sizeDiff={width:a.outerWidth()-a.width(),height:a.outerHeight()-a.height()},this.originalPosition={left:i,top:s},this.originalMousePosition={left:e.pageX,top:e.pageY},this.aspectRatio="number"==typeof o.aspectRatio?o.aspectRatio:this.originalSize.width/this.originalSize.height||1,n=t(".ui-resizable-"+this.axis).css("cursor"),t("body").css("cursor","auto"===n?this.axis+"-resize":n),this._addClass("ui-resizable-resizing"),this._propagate("start",e),!0},_mouseDrag:function(e){var i,s,n=this.originalMousePosition,o=this.axis,a=e.pageX-n.left||0,r=e.pageY-n.top||0,h=this._change[o];return this._updatePrevProperties(),h?(i=h.apply(this,[e,a,r]),this._updateVirtualBoundaries(e.shiftKey),(this._aspectRatio||e.shiftKey)&&(i=this._updateRatio(i,e)),i=this._respectSize(i,e),this._updateCache(i),this._propagate("resize",e),s=this._applyChanges(),!this._helper&&this._proportionallyResizeElements.length&&this._proportionallyResize(),t.isEmptyObject(s)||(this._updatePrevProperties(),this._trigger("resize",e,this.ui()),this._applyChanges()),!1):!1},_mouseStop:function(e){this.resizing=!1;var i,s,n,o,a,r,h,l=this.options,c=this;return this._helper&&(i=this._proportionallyResizeElements,s=i.length&&/textarea/i.test(i[0].nodeName),n=s&&this._hasScroll(i[0],"left")?0:c.sizeDiff.height,o=s?0:c.sizeDiff.width,a={width:c.helper.width()-o,height:c.helper.height()-n},r=parseFloat(c.element.css("left"))+(c.position.left-c.originalPosition.left)||null,h=parseFloat(c.element.css("top"))+(c.position.top-c.originalPosition.top)||null,l.animate||this.element.css(t.extend(a,{top:h,left:r})),c.helper.height(c.size.height),c.helper.width(c.size.width),this._helper&&!l.animate&&this._proportionallyResize()),t("body").css("cursor","auto"),this._removeClass("ui-resizable-resizing"),this._propagate("stop",e),this._helper&&this.helper.remove(),!1},_updatePrevProperties:function(){this.prevPosition={top:this.position.top,left:this.position.left},this.prevSize={width:this.size.width,height:this.size.height}},_applyChanges:function(){var t={};return this.position.top!==this.prevPosition.top&&(t.top=this.position.top+"px"),this.position.left!==this.prevPosition.left&&(t.left=this.position.left+"px"),this.size.width!==this.prevSize.width&&(t.width=this.size.width+"px"),this.size.height!==this.prevSize.height&&(t.height=this.size.height+"px"),this.helper.css(t),t},_updateVirtualBoundaries:function(t){var e,i,s,n,o,a=this.options;o={minWidth:this._isNumber(a.minWidth)?a.minWidth:0,maxWidth:this._isNumber(a.maxWidth)?a.maxWidth:1/0,minHeight:this._isNumber(a.minHeight)?a.minHeight:0,maxHeight:this._isNumber(a.maxHeight)?a.maxHeight:1/0},(this._aspectRatio||t)&&(e=o.minHeight*this.aspectRatio,s=o.minWidth/this.aspectRatio,i=o.maxHeight*this.aspectRatio,n=o.maxWidth/this.aspectRatio,e>o.minWidth&&(o.minWidth=e),s>o.minHeight&&(o.minHeight=s),o.maxWidth>i&&(o.maxWidth=i),o.maxHeight>n&&(o.maxHeight=n)),this._vBoundaries=o},_updateCache:function(t){this.offset=this.helper.offset(),this._isNumber(t.left)&&(this.position.left=t.left),this._isNumber(t.top)&&(this.position.top=t.top),this._isNumber(t.height)&&(this.size.height=t.height),this._isNumber(t.width)&&(this.size.width=t.width)},_updateRatio:function(t){var e=this.position,i=this.size,s=this.axis;return this._isNumber(t.height)?t.width=t.height*this.aspectRatio:this._isNumber(t.width)&&(t.height=t.width/this.aspectRatio),"sw"===s&&(t.left=e.left+(i.width-t.width),t.top=null),"nw"===s&&(t.top=e.top+(i.height-t.height),t.left=e.left+(i.width-t.width)),t},_respectSize:function(t){var e=this._vBoundaries,i=this.axis,s=this._isNumber(t.width)&&e.maxWidth&&e.maxWidth
t.width,a=this._isNumber(t.height)&&e.minHeight&&e.minHeight>t.height,r=this.originalPosition.left+this.originalSize.width,h=this.originalPosition.top+this.originalSize.height,l=/sw|nw|w/.test(i),c=/nw|ne|n/.test(i);return o&&(t.width=e.minWidth),a&&(t.height=e.minHeight),s&&(t.width=e.maxWidth),n&&(t.height=e.maxHeight),o&&l&&(t.left=r-e.minWidth),s&&l&&(t.left=r-e.maxWidth),a&&c&&(t.top=h-e.minHeight),n&&c&&(t.top=h-e.maxHeight),t.width||t.height||t.left||!t.top?t.width||t.height||t.top||!t.left||(t.left=null):t.top=null,t},_getPaddingPlusBorderDimensions:function(t){for(var e=0,i=[],s=[t.css("borderTopWidth"),t.css("borderRightWidth"),t.css("borderBottomWidth"),t.css("borderLeftWidth")],n=[t.css("paddingTop"),t.css("paddingRight"),t.css("paddingBottom"),t.css("paddingLeft")];4>e;e++)i[e]=parseFloat(s[e])||0,i[e]+=parseFloat(n[e])||0;return{height:i[0]+i[2],width:i[1]+i[3]}},_proportionallyResize:function(){if(this._proportionallyResizeElements.length)for(var t,e=0,i=this.helper||this.element;this._proportionallyResizeElements.length>e;e++)t=this._proportionallyResizeElements[e],this.outerDimensions||(this.outerDimensions=this._getPaddingPlusBorderDimensions(t)),t.css({height:i.height()-this.outerDimensions.height||0,width:i.width()-this.outerDimensions.width||0})},_renderProxy:function(){var e=this.element,i=this.options;this.elementOffset=e.offset(),this._helper?(this.helper=this.helper||t("
"),this._addClass(this.helper,this._helper),this.helper.css({width:this.element.outerWidth(),height:this.element.outerHeight(),position:"absolute",left:this.elementOffset.left+"px",top:this.elementOffset.top+"px",zIndex:++i.zIndex}),this.helper.appendTo("body").disableSelection()):this.helper=this.element
+},_change:{e:function(t,e){return{width:this.originalSize.width+e}},w:function(t,e){var i=this.originalSize,s=this.originalPosition;return{left:s.left+e,width:i.width-e}},n:function(t,e,i){var s=this.originalSize,n=this.originalPosition;return{top:n.top+i,height:s.height-i}},s:function(t,e,i){return{height:this.originalSize.height+i}},se:function(e,i,s){return t.extend(this._change.s.apply(this,arguments),this._change.e.apply(this,[e,i,s]))},sw:function(e,i,s){return t.extend(this._change.s.apply(this,arguments),this._change.w.apply(this,[e,i,s]))},ne:function(e,i,s){return t.extend(this._change.n.apply(this,arguments),this._change.e.apply(this,[e,i,s]))},nw:function(e,i,s){return t.extend(this._change.n.apply(this,arguments),this._change.w.apply(this,[e,i,s]))}},_propagate:function(e,i){t.ui.plugin.call(this,e,[i,this.ui()]),"resize"!==e&&this._trigger(e,i,this.ui())},plugins:{},ui:function(){return{originalElement:this.originalElement,element:this.element,helper:this.helper,position:this.position,size:this.size,originalSize:this.originalSize,originalPosition:this.originalPosition}}}),t.ui.plugin.add("resizable","animate",{stop:function(e){var i=t(this).resizable("instance"),s=i.options,n=i._proportionallyResizeElements,o=n.length&&/textarea/i.test(n[0].nodeName),a=o&&i._hasScroll(n[0],"left")?0:i.sizeDiff.height,r=o?0:i.sizeDiff.width,h={width:i.size.width-r,height:i.size.height-a},l=parseFloat(i.element.css("left"))+(i.position.left-i.originalPosition.left)||null,c=parseFloat(i.element.css("top"))+(i.position.top-i.originalPosition.top)||null;i.element.animate(t.extend(h,c&&l?{top:c,left:l}:{}),{duration:s.animateDuration,easing:s.animateEasing,step:function(){var s={width:parseFloat(i.element.css("width")),height:parseFloat(i.element.css("height")),top:parseFloat(i.element.css("top")),left:parseFloat(i.element.css("left"))};n&&n.length&&t(n[0]).css({width:s.width,height:s.height}),i._updateCache(s),i._propagate("resize",e)}})}}),t.ui.plugin.add("resizable","containment",{start:function(){var e,i,s,n,o,a,r,h=t(this).resizable("instance"),l=h.options,c=h.element,u=l.containment,d=u instanceof t?u.get(0):/parent/.test(u)?c.parent().get(0):u;d&&(h.containerElement=t(d),/document/.test(u)||u===document?(h.containerOffset={left:0,top:0},h.containerPosition={left:0,top:0},h.parentData={element:t(document),left:0,top:0,width:t(document).width(),height:t(document).height()||document.body.parentNode.scrollHeight}):(e=t(d),i=[],t(["Top","Right","Left","Bottom"]).each(function(t,s){i[t]=h._num(e.css("padding"+s))}),h.containerOffset=e.offset(),h.containerPosition=e.position(),h.containerSize={height:e.innerHeight()-i[3],width:e.innerWidth()-i[1]},s=h.containerOffset,n=h.containerSize.height,o=h.containerSize.width,a=h._hasScroll(d,"left")?d.scrollWidth:o,r=h._hasScroll(d)?d.scrollHeight:n,h.parentData={element:d,left:s.left,top:s.top,width:a,height:r}))},resize:function(e){var i,s,n,o,a=t(this).resizable("instance"),r=a.options,h=a.containerOffset,l=a.position,c=a._aspectRatio||e.shiftKey,u={top:0,left:0},d=a.containerElement,p=!0;d[0]!==document&&/static/.test(d.css("position"))&&(u=h),l.left<(a._helper?h.left:0)&&(a.size.width=a.size.width+(a._helper?a.position.left-h.left:a.position.left-u.left),c&&(a.size.height=a.size.width/a.aspectRatio,p=!1),a.position.left=r.helper?h.left:0),l.top<(a._helper?h.top:0)&&(a.size.height=a.size.height+(a._helper?a.position.top-h.top:a.position.top),c&&(a.size.width=a.size.height*a.aspectRatio,p=!1),a.position.top=a._helper?h.top:0),n=a.containerElement.get(0)===a.element.parent().get(0),o=/relative|absolute/.test(a.containerElement.css("position")),n&&o?(a.offset.left=a.parentData.left+a.position.left,a.offset.top=a.parentData.top+a.position.top):(a.offset.left=a.element.offset().left,a.offset.top=a.element.offset().top),i=Math.abs(a.sizeDiff.width+(a._helper?a.offset.left-u.left:a.offset.left-h.left)),s=Math.abs(a.sizeDiff.height+(a._helper?a.offset.top-u.top:a.offset.top-h.top)),i+a.size.width>=a.parentData.width&&(a.size.width=a.parentData.width-i,c&&(a.size.height=a.size.width/a.aspectRatio,p=!1)),s+a.size.height>=a.parentData.height&&(a.size.height=a.parentData.height-s,c&&(a.size.width=a.size.height*a.aspectRatio,p=!1)),p||(a.position.left=a.prevPosition.left,a.position.top=a.prevPosition.top,a.size.width=a.prevSize.width,a.size.height=a.prevSize.height)},stop:function(){var e=t(this).resizable("instance"),i=e.options,s=e.containerOffset,n=e.containerPosition,o=e.containerElement,a=t(e.helper),r=a.offset(),h=a.outerWidth()-e.sizeDiff.width,l=a.outerHeight()-e.sizeDiff.height;e._helper&&!i.animate&&/relative/.test(o.css("position"))&&t(this).css({left:r.left-n.left-s.left,width:h,height:l}),e._helper&&!i.animate&&/static/.test(o.css("position"))&&t(this).css({left:r.left-n.left-s.left,width:h,height:l})}}),t.ui.plugin.add("resizable","alsoResize",{start:function(){var e=t(this).resizable("instance"),i=e.options;t(i.alsoResize).each(function(){var e=t(this);e.data("ui-resizable-alsoresize",{width:parseFloat(e.width()),height:parseFloat(e.height()),left:parseFloat(e.css("left")),top:parseFloat(e.css("top"))})})},resize:function(e,i){var s=t(this).resizable("instance"),n=s.options,o=s.originalSize,a=s.originalPosition,r={height:s.size.height-o.height||0,width:s.size.width-o.width||0,top:s.position.top-a.top||0,left:s.position.left-a.left||0};t(n.alsoResize).each(function(){var e=t(this),s=t(this).data("ui-resizable-alsoresize"),n={},o=e.parents(i.originalElement[0]).length?["width","height"]:["width","height","top","left"];t.each(o,function(t,e){var i=(s[e]||0)+(r[e]||0);i&&i>=0&&(n[e]=i||null)}),e.css(n)})},stop:function(){t(this).removeData("ui-resizable-alsoresize")}}),t.ui.plugin.add("resizable","ghost",{start:function(){var e=t(this).resizable("instance"),i=e.size;e.ghost=e.originalElement.clone(),e.ghost.css({opacity:.25,display:"block",position:"relative",height:i.height,width:i.width,margin:0,left:0,top:0}),e._addClass(e.ghost,"ui-resizable-ghost"),t.uiBackCompat!==!1&&"string"==typeof e.options.ghost&&e.ghost.addClass(this.options.ghost),e.ghost.appendTo(e.helper)},resize:function(){var e=t(this).resizable("instance");e.ghost&&e.ghost.css({position:"relative",height:e.size.height,width:e.size.width})},stop:function(){var e=t(this).resizable("instance");e.ghost&&e.helper&&e.helper.get(0).removeChild(e.ghost.get(0))}}),t.ui.plugin.add("resizable","grid",{resize:function(){var e,i=t(this).resizable("instance"),s=i.options,n=i.size,o=i.originalSize,a=i.originalPosition,r=i.axis,h="number"==typeof s.grid?[s.grid,s.grid]:s.grid,l=h[0]||1,c=h[1]||1,u=Math.round((n.width-o.width)/l)*l,d=Math.round((n.height-o.height)/c)*c,p=o.width+u,f=o.height+d,m=s.maxWidth&&p>s.maxWidth,g=s.maxHeight&&f>s.maxHeight,_=s.minWidth&&s.minWidth>p,v=s.minHeight&&s.minHeight>f;s.grid=h,_&&(p+=l),v&&(f+=c),m&&(p-=l),g&&(f-=c),/^(se|s|e)$/.test(r)?(i.size.width=p,i.size.height=f):/^(ne)$/.test(r)?(i.size.width=p,i.size.height=f,i.position.top=a.top-d):/^(sw)$/.test(r)?(i.size.width=p,i.size.height=f,i.position.left=a.left-u):((0>=f-c||0>=p-l)&&(e=i._getPaddingPlusBorderDimensions(this)),f-c>0?(i.size.height=f,i.position.top=a.top-d):(f=c-e.height,i.size.height=f,i.position.top=a.top+o.height-f),p-l>0?(i.size.width=p,i.position.left=a.left-u):(p=l-e.width,i.size.width=p,i.position.left=a.left+o.width-p))}}),t.ui.resizable});/**
+ * Copyright (c) 2007 Ariel Flesler - aflesler ○ gmail • com | https://github.com/flesler
+ * Licensed under MIT
+ * @author Ariel Flesler
+ * @version 2.1.2
+ */
+;(function(f){"use strict";"function"===typeof define&&define.amd?define(["jquery"],f):"undefined"!==typeof module&&module.exports?module.exports=f(require("jquery")):f(jQuery)})(function($){"use strict";function n(a){return!a.nodeName||-1!==$.inArray(a.nodeName.toLowerCase(),["iframe","#document","html","body"])}function h(a){return $.isFunction(a)||$.isPlainObject(a)?a:{top:a,left:a}}var p=$.scrollTo=function(a,d,b){return $(window).scrollTo(a,d,b)};p.defaults={axis:"xy",duration:0,limit:!0};$.fn.scrollTo=function(a,d,b){"object"=== typeof d&&(b=d,d=0);"function"===typeof b&&(b={onAfter:b});"max"===a&&(a=9E9);b=$.extend({},p.defaults,b);d=d||b.duration;var u=b.queue&&1=f[g]?0:Math.min(f[g],n));!a&&1-1){targetElements.on(evt+EVENT_NAMESPACE,function elementToggle(event){$.powerTip.toggle(this,event)})}else{targetElements.on(evt+EVENT_NAMESPACE,function elementOpen(event){$.powerTip.show(this,event)})}});$.each(options.closeEvents,function(idx,evt){if($.inArray(evt,options.openEvents)<0){targetElements.on(evt+EVENT_NAMESPACE,function elementClose(event){$.powerTip.hide(this,!isMouseEvent(event))})}});targetElements.on("keydown"+EVENT_NAMESPACE,function elementKeyDown(event){if(event.keyCode===27){$.powerTip.hide(this,true)}})}return targetElements};$.fn.powerTip.defaults={fadeInTime:200,fadeOutTime:100,followMouse:false,popupId:"powerTip",popupClass:null,intentSensitivity:7,intentPollInterval:100,closeDelay:100,placement:"n",smartPlacement:false,offset:10,mouseOnToPopup:false,manual:false,openEvents:["mouseenter","focus"],closeEvents:["mouseleave","blur"]};$.fn.powerTip.smartPlacementLists={n:["n","ne","nw","s"],e:["e","ne","se","w","nw","sw","n","s","e"],s:["s","se","sw","n"],w:["w","nw","sw","e","ne","se","n","s","w"],nw:["nw","w","sw","n","s","se","nw"],ne:["ne","e","se","n","s","sw","ne"],sw:["sw","w","nw","s","n","ne","sw"],se:["se","e","ne","s","n","nw","se"],"nw-alt":["nw-alt","n","ne-alt","sw-alt","s","se-alt","w","e"],"ne-alt":["ne-alt","n","nw-alt","se-alt","s","sw-alt","e","w"],"sw-alt":["sw-alt","s","se-alt","nw-alt","n","ne-alt","w","e"],"se-alt":["se-alt","s","sw-alt","ne-alt","n","nw-alt","e","w"]};$.powerTip={show:function apiShowTip(element,event){if(isMouseEvent(event)){trackMouse(event);session.previousX=event.pageX;session.previousY=event.pageY;$(element).data(DATA_DISPLAYCONTROLLER).show()}else{$(element).first().data(DATA_DISPLAYCONTROLLER).show(true,true)}return element},reposition:function apiResetPosition(element){$(element).first().data(DATA_DISPLAYCONTROLLER).resetPosition();return element},hide:function apiCloseTip(element,immediate){var displayController;immediate=element?immediate:true;if(element){displayController=$(element).first().data(DATA_DISPLAYCONTROLLER)}else if(session.activeHover){displayController=session.activeHover.data(DATA_DISPLAYCONTROLLER)}if(displayController){displayController.hide(immediate)}return element},toggle:function apiToggle(element,event){if(session.activeHover&&session.activeHover.is(element)){$.powerTip.hide(element,!isMouseEvent(event))}else{$.powerTip.show(element,event)}return element}};$.powerTip.showTip=$.powerTip.show;$.powerTip.closeTip=$.powerTip.hide;function CSSCoordinates(){var me=this;me.top="auto";me.left="auto";me.right="auto";me.bottom="auto";me.set=function(property,value){if($.isNumeric(value)){me[property]=Math.round(value)}}}function DisplayController(element,options,tipController){var hoverTimer=null,myCloseDelay=null;function openTooltip(immediate,forceOpen){cancelTimer();if(!element.data(DATA_HASACTIVEHOVER)){if(!immediate){session.tipOpenImminent=true;hoverTimer=setTimeout(function intentDelay(){hoverTimer=null;checkForIntent()},options.intentPollInterval)}else{if(forceOpen){element.data(DATA_FORCEDOPEN,true)}closeAnyDelayed();tipController.showTip(element)}}else{cancelClose()}}function closeTooltip(disableDelay){if(myCloseDelay){myCloseDelay=session.closeDelayTimeout=clearTimeout(myCloseDelay);session.delayInProgress=false}cancelTimer();session.tipOpenImminent=false;if(element.data(DATA_HASACTIVEHOVER)){element.data(DATA_FORCEDOPEN,false);if(!disableDelay){session.delayInProgress=true;session.closeDelayTimeout=setTimeout(function closeDelay(){session.closeDelayTimeout=null;tipController.hideTip(element);session.delayInProgress=false;myCloseDelay=null},options.closeDelay);myCloseDelay=session.closeDelayTimeout}else{tipController.hideTip(element)}}}function checkForIntent(){var xDifference=Math.abs(session.previousX-session.currentX),yDifference=Math.abs(session.previousY-session.currentY),totalDifference=xDifference+yDifference;if(totalDifference",{id:options.popupId});if($body.length===0){$body=$("body")}$body.append(tipElement);session.tooltips=session.tooltips?session.tooltips.add(tipElement):tipElement}if(options.followMouse){if(!tipElement.data(DATA_HASMOUSEMOVE)){$document.on("mousemove"+EVENT_NAMESPACE,positionTipOnCursor);$window.on("scroll"+EVENT_NAMESPACE,positionTipOnCursor);tipElement.data(DATA_HASMOUSEMOVE,true)}}function beginShowTip(element){element.data(DATA_HASACTIVEHOVER,true);tipElement.queue(function queueTipInit(next){showTip(element);next()})}function showTip(element){var tipContent;if(!element.data(DATA_HASACTIVEHOVER)){return}if(session.isTipOpen){if(!session.isClosing){hideTip(session.activeHover)}tipElement.delay(100).queue(function queueTipAgain(next){showTip(element);next()});return}element.trigger("powerTipPreRender");tipContent=getTooltipContent(element);if(tipContent){tipElement.empty().append(tipContent)}else{return}element.trigger("powerTipRender");session.activeHover=element;session.isTipOpen=true;tipElement.data(DATA_MOUSEONTOTIP,options.mouseOnToPopup);tipElement.addClass(options.popupClass);if(!options.followMouse||element.data(DATA_FORCEDOPEN)){positionTipOnElement(element);session.isFixedTipOpen=true}else{positionTipOnCursor()}if(!element.data(DATA_FORCEDOPEN)&&!options.followMouse){$document.on("click"+EVENT_NAMESPACE,function documentClick(event){var target=event.target;if(target!==element[0]){if(options.mouseOnToPopup){if(target!==tipElement[0]&&!$.contains(tipElement[0],target)){$.powerTip.hide()}}else{$.powerTip.hide()}}})}if(options.mouseOnToPopup&&!options.manual){tipElement.on("mouseenter"+EVENT_NAMESPACE,function tipMouseEnter(){if(session.activeHover){session.activeHover.data(DATA_DISPLAYCONTROLLER).cancel()}});tipElement.on("mouseleave"+EVENT_NAMESPACE,function tipMouseLeave(){if(session.activeHover){session.activeHover.data(DATA_DISPLAYCONTROLLER).hide()}})}tipElement.fadeIn(options.fadeInTime,function fadeInCallback(){if(!session.desyncTimeout){session.desyncTimeout=setInterval(closeDesyncedTip,500)}element.trigger("powerTipOpen")})}function hideTip(element){session.isClosing=true;session.isTipOpen=false;session.desyncTimeout=clearInterval(session.desyncTimeout);element.data(DATA_HASACTIVEHOVER,false);element.data(DATA_FORCEDOPEN,false);$document.off("click"+EVENT_NAMESPACE);tipElement.off(EVENT_NAMESPACE);tipElement.fadeOut(options.fadeOutTime,function fadeOutCallback(){var coords=new CSSCoordinates;session.activeHover=null;session.isClosing=false;session.isFixedTipOpen=false;tipElement.removeClass();coords.set("top",session.currentY+options.offset);coords.set("left",session.currentX+options.offset);tipElement.css(coords);element.trigger("powerTipClose")})}function positionTipOnCursor(){var tipWidth,tipHeight,coords,collisions,collisionCount;if(!session.isFixedTipOpen&&(session.isTipOpen||session.tipOpenImminent&&tipElement.data(DATA_HASMOUSEMOVE))){tipWidth=tipElement.outerWidth();tipHeight=tipElement.outerHeight();coords=new CSSCoordinates;coords.set("top",session.currentY+options.offset);coords.set("left",session.currentX+options.offset);collisions=getViewportCollisions(coords,tipWidth,tipHeight);if(collisions!==Collision.none){collisionCount=countFlags(collisions);if(collisionCount===1){if(collisions===Collision.right){coords.set("left",session.scrollLeft+session.windowWidth-tipWidth)}else if(collisions===Collision.bottom){coords.set("top",session.scrollTop+session.windowHeight-tipHeight)}}else{coords.set("left",session.currentX-tipWidth-options.offset);coords.set("top",session.currentY-tipHeight-options.offset)}}tipElement.css(coords)}}function positionTipOnElement(element){var priorityList,finalPlacement;if(options.smartPlacement||options.followMouse&&element.data(DATA_FORCEDOPEN)){priorityList=$.fn.powerTip.smartPlacementLists[options.placement];$.each(priorityList,function(idx,pos){var collisions=getViewportCollisions(placeTooltip(element,pos),tipElement.outerWidth(),tipElement.outerHeight());finalPlacement=pos;return collisions!==Collision.none})}else{placeTooltip(element,options.placement);finalPlacement=options.placement}tipElement.removeClass("w nw sw e ne se n s w se-alt sw-alt ne-alt nw-alt");tipElement.addClass(finalPlacement)}function placeTooltip(element,placement){var iterationCount=0,tipWidth,tipHeight,coords=new CSSCoordinates;coords.set("top",0);coords.set("left",0);tipElement.css(coords);do{tipWidth=tipElement.outerWidth();tipHeight=tipElement.outerHeight();coords=placementCalculator.compute(element,placement,tipWidth,tipHeight,options.offset);tipElement.css(coords)}while(++iterationCount<=5&&(tipWidth!==tipElement.outerWidth()||tipHeight!==tipElement.outerHeight()));return coords}function closeDesyncedTip(){var isDesynced=false,hasDesyncableCloseEvent=$.grep(["mouseleave","mouseout","blur","focusout"],function(eventType){return $.inArray(eventType,options.closeEvents)!==-1}).length>0;if(session.isTipOpen&&!session.isClosing&&!session.delayInProgress&&hasDesyncableCloseEvent){if(session.activeHover.data(DATA_HASACTIVEHOVER)===false||session.activeHover.is(":disabled")){isDesynced=true}else if(!isMouseOver(session.activeHover)&&!session.activeHover.is(":focus")&&!session.activeHover.data(DATA_FORCEDOPEN)){if(tipElement.data(DATA_MOUSEONTOTIP)){if(!isMouseOver(tipElement)){isDesynced=true}}else{isDesynced=true}}if(isDesynced){hideTip(session.activeHover)}}}this.showTip=beginShowTip;this.hideTip=hideTip;this.resetPosition=positionTipOnElement}function isSvgElement(element){return Boolean(window.SVGElement&&element[0]instanceof SVGElement)}function isMouseEvent(event){return Boolean(event&&$.inArray(event.type,MOUSE_EVENTS)>-1&&typeof event.pageX==="number")}function initTracking(){if(!session.mouseTrackingActive){session.mouseTrackingActive=true;getViewportDimensions();$(getViewportDimensions);$document.on("mousemove"+EVENT_NAMESPACE,trackMouse);$window.on("resize"+EVENT_NAMESPACE,trackResize);$window.on("scroll"+EVENT_NAMESPACE,trackScroll)}}function getViewportDimensions(){session.scrollLeft=$window.scrollLeft();session.scrollTop=$window.scrollTop();session.windowWidth=$window.width();session.windowHeight=$window.height()}function trackResize(){session.windowWidth=$window.width();session.windowHeight=$window.height()}function trackScroll(){var x=$window.scrollLeft(),y=$window.scrollTop();if(x!==session.scrollLeft){session.currentX+=x-session.scrollLeft;session.scrollLeft=x}if(y!==session.scrollTop){session.currentY+=y-session.scrollTop;session.scrollTop=y}}function trackMouse(event){session.currentX=event.pageX;session.currentY=event.pageY}function isMouseOver(element){var elementPosition=element.offset(),elementBox=element[0].getBoundingClientRect(),elementWidth=elementBox.right-elementBox.left,elementHeight=elementBox.bottom-elementBox.top;return session.currentX>=elementPosition.left&&session.currentX<=elementPosition.left+elementWidth&&session.currentY>=elementPosition.top&&session.currentY<=elementPosition.top+elementHeight}function getTooltipContent(element){var tipText=element.data(DATA_POWERTIP),tipObject=element.data(DATA_POWERTIPJQ),tipTarget=element.data(DATA_POWERTIPTARGET),targetElement,content;if(tipText){if($.isFunction(tipText)){tipText=tipText.call(element[0])}content=tipText}else if(tipObject){if($.isFunction(tipObject)){tipObject=tipObject.call(element[0])}if(tipObject.length>0){content=tipObject.clone(true,true)}}else if(tipTarget){targetElement=$("#"+tipTarget);if(targetElement.length>0){content=targetElement.html()}}return content}function getViewportCollisions(coords,elementWidth,elementHeight){var viewportTop=session.scrollTop,viewportLeft=session.scrollLeft,viewportBottom=viewportTop+session.windowHeight,viewportRight=viewportLeft+session.windowWidth,collisions=Collision.none;if(coords.topviewportBottom||Math.abs(coords.bottom-session.windowHeight)>viewportBottom){collisions|=Collision.bottom}if(coords.leftviewportRight){collisions|=Collision.left}if(coords.left+elementWidth>viewportRight||coords.right1)){a.preventDefault();var c=a.originalEvent.changedTouches[0],d=document.createEvent("MouseEvents");d.initMouseEvent(b,!0,!0,window,1,c.screenX,c.screenY,c.clientX,c.clientY,!1,!1,!1,!1,0,null),a.target.dispatchEvent(d)}}if(a.support.touch="ontouchend"in document,a.support.touch){var e,b=a.ui.mouse.prototype,c=b._mouseInit,d=b._mouseDestroy;b._touchStart=function(a){var b=this;!e&&b._mouseCapture(a.originalEvent.changedTouches[0])&&(e=!0,b._touchMoved=!1,f(a,"mouseover"),f(a,"mousemove"),f(a,"mousedown"))},b._touchMove=function(a){e&&(this._touchMoved=!0,f(a,"mousemove"))},b._touchEnd=function(a){e&&(f(a,"mouseup"),f(a,"mouseout"),this._touchMoved||f(a,"click"),e=!1)},b._mouseInit=function(){var b=this;b.element.bind({touchstart:a.proxy(b,"_touchStart"),touchmove:a.proxy(b,"_touchMove"),touchend:a.proxy(b,"_touchEnd")}),c.call(b)},b._mouseDestroy=function(){var b=this;b.element.unbind({touchstart:a.proxy(b,"_touchStart"),touchmove:a.proxy(b,"_touchMove"),touchend:a.proxy(b,"_touchEnd")}),d.call(b)}}}(jQuery);/*! SmartMenus jQuery Plugin - v1.1.0 - September 17, 2017
+ * http://www.smartmenus.org/
+ * Copyright Vasil Dinkov, Vadikom Web Ltd. http://vadikom.com; Licensed MIT */(function(t){"function"==typeof define&&define.amd?define(["jquery"],t):"object"==typeof module&&"object"==typeof module.exports?module.exports=t(require("jquery")):t(jQuery)})(function($){function initMouseDetection(t){var e=".smartmenus_mouse";if(mouseDetectionEnabled||t)mouseDetectionEnabled&&t&&($(document).off(e),mouseDetectionEnabled=!1);else{var i=!0,s=null,o={mousemove:function(t){var e={x:t.pageX,y:t.pageY,timeStamp:(new Date).getTime()};if(s){var o=Math.abs(s.x-e.x),a=Math.abs(s.y-e.y);if((o>0||a>0)&&2>=o&&2>=a&&300>=e.timeStamp-s.timeStamp&&(mouse=!0,i)){var n=$(t.target).closest("a");n.is("a")&&$.each(menuTrees,function(){return $.contains(this.$root[0],n[0])?(this.itemEnter({currentTarget:n[0]}),!1):void 0}),i=!1}}s=e}};o[touchEvents?"touchstart":"pointerover pointermove pointerout MSPointerOver MSPointerMove MSPointerOut"]=function(t){isTouchEvent(t.originalEvent)&&(mouse=!1)},$(document).on(getEventsNS(o,e)),mouseDetectionEnabled=!0}}function isTouchEvent(t){return!/^(4|mouse)$/.test(t.pointerType)}function getEventsNS(t,e){e||(e="");var i={};for(var s in t)i[s.split(" ").join(e+" ")+e]=t[s];return i}var menuTrees=[],mouse=!1,touchEvents="ontouchstart"in window,mouseDetectionEnabled=!1,requestAnimationFrame=window.requestAnimationFrame||function(t){return setTimeout(t,1e3/60)},cancelAnimationFrame=window.cancelAnimationFrame||function(t){clearTimeout(t)},canAnimate=!!$.fn.animate;return $.SmartMenus=function(t,e){this.$root=$(t),this.opts=e,this.rootId="",this.accessIdPrefix="",this.$subArrow=null,this.activatedItems=[],this.visibleSubMenus=[],this.showTimeout=0,this.hideTimeout=0,this.scrollTimeout=0,this.clickActivated=!1,this.focusActivated=!1,this.zIndexInc=0,this.idInc=0,this.$firstLink=null,this.$firstSub=null,this.disabled=!1,this.$disableOverlay=null,this.$touchScrollingSub=null,this.cssTransforms3d="perspective"in t.style||"webkitPerspective"in t.style,this.wasCollapsible=!1,this.init()},$.extend($.SmartMenus,{hideAll:function(){$.each(menuTrees,function(){this.menuHideAll()})},destroy:function(){for(;menuTrees.length;)menuTrees[0].destroy();initMouseDetection(!0)},prototype:{init:function(t){var e=this;if(!t){menuTrees.push(this),this.rootId=((new Date).getTime()+Math.random()+"").replace(/\D/g,""),this.accessIdPrefix="sm-"+this.rootId+"-",this.$root.hasClass("sm-rtl")&&(this.opts.rightToLeftSubMenus=!0);var i=".smartmenus";this.$root.data("smartmenus",this).attr("data-smartmenus-id",this.rootId).dataSM("level",1).on(getEventsNS({"mouseover focusin":$.proxy(this.rootOver,this),"mouseout focusout":$.proxy(this.rootOut,this),keydown:$.proxy(this.rootKeyDown,this)},i)).on(getEventsNS({mouseenter:$.proxy(this.itemEnter,this),mouseleave:$.proxy(this.itemLeave,this),mousedown:$.proxy(this.itemDown,this),focus:$.proxy(this.itemFocus,this),blur:$.proxy(this.itemBlur,this),click:$.proxy(this.itemClick,this)},i),"a"),i+=this.rootId,this.opts.hideOnClick&&$(document).on(getEventsNS({touchstart:$.proxy(this.docTouchStart,this),touchmove:$.proxy(this.docTouchMove,this),touchend:$.proxy(this.docTouchEnd,this),click:$.proxy(this.docClick,this)},i)),$(window).on(getEventsNS({"resize orientationchange":$.proxy(this.winResize,this)},i)),this.opts.subIndicators&&(this.$subArrow=$("
').css({position:"absolute",top:e.top,left:e.left,width:this.$root.outerWidth(),height:this.$root.outerHeight(),zIndex:this.getStartZIndex(!0),opacity:0}).appendTo(document.body)}this.disabled=!0}},docClick:function(t){return this.$touchScrollingSub?(this.$touchScrollingSub=null,void 0):((this.visibleSubMenus.length&&!$.contains(this.$root[0],t.target)||$(t.target).closest("a").length)&&this.menuHideAll(),void 0)},docTouchEnd:function(){if(this.lastTouch){if(!(!this.visibleSubMenus.length||void 0!==this.lastTouch.x2&&this.lastTouch.x1!=this.lastTouch.x2||void 0!==this.lastTouch.y2&&this.lastTouch.y1!=this.lastTouch.y2||this.lastTouch.target&&$.contains(this.$root[0],this.lastTouch.target))){this.hideTimeout&&(clearTimeout(this.hideTimeout),this.hideTimeout=0);var t=this;this.hideTimeout=setTimeout(function(){t.menuHideAll()},350)}this.lastTouch=null}},docTouchMove:function(t){if(this.lastTouch){var e=t.originalEvent.touches[0];this.lastTouch.x2=e.pageX,this.lastTouch.y2=e.pageY}},docTouchStart:function(t){var e=t.originalEvent.touches[0];this.lastTouch={x1:e.pageX,y1:e.pageY,target:e.target}},enable:function(){this.disabled&&(this.$disableOverlay&&(this.$disableOverlay.remove(),this.$disableOverlay=null),this.disabled=!1)},getClosestMenu:function(t){for(var e=$(t).closest("ul");e.dataSM("in-mega");)e=e.parent().closest("ul");return e[0]||null},getHeight:function(t){return this.getOffset(t,!0)},getOffset:function(t,e){var i;"none"==t.css("display")&&(i={position:t[0].style.position,visibility:t[0].style.visibility},t.css({position:"absolute",visibility:"hidden"}).show());var s=t[0].getBoundingClientRect&&t[0].getBoundingClientRect(),o=s&&(e?s.height||s.bottom-s.top:s.width||s.right-s.left);return o||0===o||(o=e?t[0].offsetHeight:t[0].offsetWidth),i&&t.hide().css(i),o},getStartZIndex:function(t){var e=parseInt(this[t?"$root":"$firstSub"].css("z-index"));return!t&&isNaN(e)&&(e=parseInt(this.$root.css("z-index"))),isNaN(e)?1:e},getTouchPoint:function(t){return t.touches&&t.touches[0]||t.changedTouches&&t.changedTouches[0]||t},getViewport:function(t){var e=t?"Height":"Width",i=document.documentElement["client"+e],s=window["inner"+e];return s&&(i=Math.min(i,s)),i},getViewportHeight:function(){return this.getViewport(!0)},getViewportWidth:function(){return this.getViewport()},getWidth:function(t){return this.getOffset(t)},handleEvents:function(){return!this.disabled&&this.isCSSOn()},handleItemEvents:function(t){return this.handleEvents()&&!this.isLinkInMegaMenu(t)},isCollapsible:function(){return"static"==this.$firstSub.css("position")},isCSSOn:function(){return"inline"!=this.$firstLink.css("display")},isFixed:function(){var t="fixed"==this.$root.css("position");return t||this.$root.parentsUntil("body").each(function(){return"fixed"==$(this).css("position")?(t=!0,!1):void 0}),t},isLinkInMegaMenu:function(t){return $(this.getClosestMenu(t[0])).hasClass("mega-menu")},isTouchMode:function(){return!mouse||this.opts.noMouseOver||this.isCollapsible()},itemActivate:function(t,e){var i=t.closest("ul"),s=i.dataSM("level");if(s>1&&(!this.activatedItems[s-2]||this.activatedItems[s-2][0]!=i.dataSM("parent-a")[0])){var o=this;$(i.parentsUntil("[data-smartmenus-id]","ul").get().reverse()).add(i).each(function(){o.itemActivate($(this).dataSM("parent-a"))})}if((!this.isCollapsible()||e)&&this.menuHideSubMenus(this.activatedItems[s-1]&&this.activatedItems[s-1][0]==t[0]?s:s-1),this.activatedItems[s-1]=t,this.$root.triggerHandler("activate.smapi",t[0])!==!1){var a=t.dataSM("sub");a&&(this.isTouchMode()||!this.opts.showOnClick||this.clickActivated)&&this.menuShow(a)}},itemBlur:function(t){var e=$(t.currentTarget);this.handleItemEvents(e)&&this.$root.triggerHandler("blur.smapi",e[0])},itemClick:function(t){var e=$(t.currentTarget);if(this.handleItemEvents(e)){if(this.$touchScrollingSub&&this.$touchScrollingSub[0]==e.closest("ul")[0])return this.$touchScrollingSub=null,t.stopPropagation(),!1;if(this.$root.triggerHandler("click.smapi",e[0])===!1)return!1;var i=$(t.target).is(".sub-arrow"),s=e.dataSM("sub"),o=s?2==s.dataSM("level"):!1,a=this.isCollapsible(),n=/toggle$/.test(this.opts.collapsibleBehavior),r=/link$/.test(this.opts.collapsibleBehavior),h=/^accordion/.test(this.opts.collapsibleBehavior);if(s&&!s.is(":visible")){if((!r||!a||i)&&(this.opts.showOnClick&&o&&(this.clickActivated=!0),this.itemActivate(e,h),s.is(":visible")))return this.focusActivated=!0,!1}else if(a&&(n||i))return this.itemActivate(e,h),this.menuHide(s),n&&(this.focusActivated=!1),!1;return this.opts.showOnClick&&o||e.hasClass("disabled")||this.$root.triggerHandler("select.smapi",e[0])===!1?!1:void 0}},itemDown:function(t){var e=$(t.currentTarget);this.handleItemEvents(e)&&e.dataSM("mousedown",!0)},itemEnter:function(t){var e=$(t.currentTarget);if(this.handleItemEvents(e)){if(!this.isTouchMode()){this.showTimeout&&(clearTimeout(this.showTimeout),this.showTimeout=0);var i=this;this.showTimeout=setTimeout(function(){i.itemActivate(e)},this.opts.showOnClick&&1==e.closest("ul").dataSM("level")?1:this.opts.showTimeout)}this.$root.triggerHandler("mouseenter.smapi",e[0])}},itemFocus:function(t){var e=$(t.currentTarget);this.handleItemEvents(e)&&(!this.focusActivated||this.isTouchMode()&&e.dataSM("mousedown")||this.activatedItems.length&&this.activatedItems[this.activatedItems.length-1][0]==e[0]||this.itemActivate(e,!0),this.$root.triggerHandler("focus.smapi",e[0]))},itemLeave:function(t){var e=$(t.currentTarget);this.handleItemEvents(e)&&(this.isTouchMode()||(e[0].blur(),this.showTimeout&&(clearTimeout(this.showTimeout),this.showTimeout=0)),e.removeDataSM("mousedown"),this.$root.triggerHandler("mouseleave.smapi",e[0]))},menuHide:function(t){if(this.$root.triggerHandler("beforehide.smapi",t[0])!==!1&&(canAnimate&&t.stop(!0,!0),"none"!=t.css("display"))){var e=function(){t.css("z-index","")};this.isCollapsible()?canAnimate&&this.opts.collapsibleHideFunction?this.opts.collapsibleHideFunction.call(this,t,e):t.hide(this.opts.collapsibleHideDuration,e):canAnimate&&this.opts.hideFunction?this.opts.hideFunction.call(this,t,e):t.hide(this.opts.hideDuration,e),t.dataSM("scroll")&&(this.menuScrollStop(t),t.css({"touch-action":"","-ms-touch-action":"","-webkit-transform":"",transform:""}).off(".smartmenus_scroll").removeDataSM("scroll").dataSM("scroll-arrows").hide()),t.dataSM("parent-a").removeClass("highlighted").attr("aria-expanded","false"),t.attr({"aria-expanded":"false","aria-hidden":"true"});var i=t.dataSM("level");this.activatedItems.splice(i-1,1),this.visibleSubMenus.splice($.inArray(t,this.visibleSubMenus),1),this.$root.triggerHandler("hide.smapi",t[0])}},menuHideAll:function(){this.showTimeout&&(clearTimeout(this.showTimeout),this.showTimeout=0);for(var t=this.opts.isPopup?1:0,e=this.visibleSubMenus.length-1;e>=t;e--)this.menuHide(this.visibleSubMenus[e]);this.opts.isPopup&&(canAnimate&&this.$root.stop(!0,!0),this.$root.is(":visible")&&(canAnimate&&this.opts.hideFunction?this.opts.hideFunction.call(this,this.$root):this.$root.hide(this.opts.hideDuration))),this.activatedItems=[],this.visibleSubMenus=[],this.clickActivated=!1,this.focusActivated=!1,this.zIndexInc=0,this.$root.triggerHandler("hideAll.smapi")},menuHideSubMenus:function(t){for(var e=this.activatedItems.length-1;e>=t;e--){var i=this.activatedItems[e].dataSM("sub");i&&this.menuHide(i)}},menuInit:function(t){if(!t.dataSM("in-mega")){t.hasClass("mega-menu")&&t.find("ul").dataSM("in-mega",!0);for(var e=2,i=t[0];(i=i.parentNode.parentNode)!=this.$root[0];)e++;var s=t.prevAll("a").eq(-1);s.length||(s=t.prevAll().find("a").eq(-1)),s.addClass("has-submenu").dataSM("sub",t),t.dataSM("parent-a",s).dataSM("level",e).parent().dataSM("sub",t);var o=s.attr("id")||this.accessIdPrefix+ ++this.idInc,a=t.attr("id")||this.accessIdPrefix+ ++this.idInc;s.attr({id:o,"aria-haspopup":"true","aria-controls":a,"aria-expanded":"false"}),t.attr({id:a,role:"group","aria-hidden":"true","aria-labelledby":o,"aria-expanded":"false"}),this.opts.subIndicators&&s[this.opts.subIndicatorsPos](this.$subArrow.clone())}},menuPosition:function(t){var e,i,s=t.dataSM("parent-a"),o=s.closest("li"),a=o.parent(),n=t.dataSM("level"),r=this.getWidth(t),h=this.getHeight(t),u=s.offset(),l=u.left,c=u.top,d=this.getWidth(s),m=this.getHeight(s),p=$(window),f=p.scrollLeft(),v=p.scrollTop(),b=this.getViewportWidth(),S=this.getViewportHeight(),g=a.parent().is("[data-sm-horizontal-sub]")||2==n&&!a.hasClass("sm-vertical"),M=this.opts.rightToLeftSubMenus&&!o.is("[data-sm-reverse]")||!this.opts.rightToLeftSubMenus&&o.is("[data-sm-reverse]"),w=2==n?this.opts.mainMenuSubOffsetX:this.opts.subMenusSubOffsetX,T=2==n?this.opts.mainMenuSubOffsetY:this.opts.subMenusSubOffsetY;if(g?(e=M?d-r-w:w,i=this.opts.bottomToTopSubMenus?-h-T:m+T):(e=M?w-r:d-w,i=this.opts.bottomToTopSubMenus?m-T-h:T),this.opts.keepInViewport){var y=l+e,I=c+i;if(M&&f>y?e=g?f-y+e:d-w:!M&&y+r>f+b&&(e=g?f+b-r-y+e:w-r),g||(S>h&&I+h>v+S?i+=v+S-h-I:(h>=S||v>I)&&(i+=v-I)),g&&(I+h>v+S+.49||v>I)||!g&&h>S+.49){var x=this;t.dataSM("scroll-arrows")||t.dataSM("scroll-arrows",$([$('0;t.dataSM("scroll-arrows").eq(i?0:1).is(":visible")&&(t.dataSM("scroll").up=i,this.menuScroll(t,!0))}e.preventDefault()},menuScrollOut:function(t,e){mouse&&(/^scroll-(up|down)/.test((e.relatedTarget||"").className)||(t[0]==e.relatedTarget||$.contains(t[0],e.relatedTarget))&&this.getClosestMenu(e.relatedTarget)==t[0]||t.dataSM("scroll-arrows").css("visibility","hidden"))},menuScrollOver:function(t,e){if(mouse&&!/^scroll-(up|down)/.test(e.target.className)&&this.getClosestMenu(e.target)==t[0]){this.menuScrollRefreshData(t);var i=t.dataSM("scroll"),s=$(window).scrollTop()-t.dataSM("parent-a").offset().top-i.itemH;t.dataSM("scroll-arrows").eq(0).css("margin-top",s).end().eq(1).css("margin-top",s+this.getViewportHeight()-i.arrowDownH).end().css("visibility","visible")}},menuScrollRefreshData:function(t){var e=t.dataSM("scroll"),i=$(window).scrollTop()-t.dataSM("parent-a").offset().top-e.itemH;this.cssTransforms3d&&(i=-(parseFloat(t.css("margin-top"))-i)),$.extend(e,{upEnd:i,downEnd:i+this.getViewportHeight()-e.subH})},menuScrollStop:function(t){return this.scrollTimeout?(cancelAnimationFrame(this.scrollTimeout),this.scrollTimeout=0,t.dataSM("scroll").step=1,!0):void 0},menuScrollTouch:function(t,e){if(e=e.originalEvent,isTouchEvent(e)){var i=this.getTouchPoint(e);if(this.getClosestMenu(i.target)==t[0]){var s=t.dataSM("scroll");if(/(start|down)$/i.test(e.type))this.menuScrollStop(t)?(e.preventDefault(),this.$touchScrollingSub=t):this.$touchScrollingSub=null,this.menuScrollRefreshData(t),$.extend(s,{touchStartY:i.pageY,touchStartTime:e.timeStamp});else if(/move$/i.test(e.type)){var o=void 0!==s.touchY?s.touchY:s.touchStartY;if(void 0!==o&&o!=i.pageY){this.$touchScrollingSub=t;var a=i.pageY>o;void 0!==s.up&&s.up!=a&&$.extend(s,{touchStartY:i.pageY,touchStartTime:e.timeStamp}),$.extend(s,{up:a,touchY:i.pageY}),this.menuScroll(t,!0,Math.abs(i.pageY-o))}e.preventDefault()}else void 0!==s.touchY&&((s.momentum=15*Math.pow(Math.abs(i.pageY-s.touchStartY)/(e.timeStamp-s.touchStartTime),2))&&(this.menuScrollStop(t),this.menuScroll(t),e.preventDefault()),delete s.touchY)}}},menuShow:function(t){if((t.dataSM("beforefirstshowfired")||(t.dataSM("beforefirstshowfired",!0),this.$root.triggerHandler("beforefirstshow.smapi",t[0])!==!1))&&this.$root.triggerHandler("beforeshow.smapi",t[0])!==!1&&(t.dataSM("shown-before",!0),canAnimate&&t.stop(!0,!0),!t.is(":visible"))){var e=t.dataSM("parent-a"),i=this.isCollapsible();if((this.opts.keepHighlighted||i)&&e.addClass("highlighted"),i)t.removeClass("sm-nowrap").css({zIndex:"",width:"auto",minWidth:"",maxWidth:"",top:"",left:"",marginLeft:"",marginTop:""});else{if(t.css("z-index",this.zIndexInc=(this.zIndexInc||this.getStartZIndex())+1),(this.opts.subMenusMinWidth||this.opts.subMenusMaxWidth)&&(t.css({width:"auto",minWidth:"",maxWidth:""}).addClass("sm-nowrap"),this.opts.subMenusMinWidth&&t.css("min-width",this.opts.subMenusMinWidth),this.opts.subMenusMaxWidth)){var s=this.getWidth(t);t.css("max-width",this.opts.subMenusMaxWidth),s>this.getWidth(t)&&t.removeClass("sm-nowrap").css("width",this.opts.subMenusMaxWidth)}this.menuPosition(t)}var o=function(){t.css("overflow","")};i?canAnimate&&this.opts.collapsibleShowFunction?this.opts.collapsibleShowFunction.call(this,t,o):t.show(this.opts.collapsibleShowDuration,o):canAnimate&&this.opts.showFunction?this.opts.showFunction.call(this,t,o):t.show(this.opts.showDuration,o),e.attr("aria-expanded","true"),t.attr({"aria-expanded":"true","aria-hidden":"false"}),this.visibleSubMenus.push(t),this.$root.triggerHandler("show.smapi",t[0])}},popupHide:function(t){this.hideTimeout&&(clearTimeout(this.hideTimeout),this.hideTimeout=0);var e=this;this.hideTimeout=setTimeout(function(){e.menuHideAll()},t?1:this.opts.hideTimeout)},popupShow:function(t,e){if(!this.opts.isPopup)return alert('SmartMenus jQuery Error:\n\nIf you want to show this menu via the "popupShow" method, set the isPopup:true option.'),void 0;if(this.hideTimeout&&(clearTimeout(this.hideTimeout),this.hideTimeout=0),this.$root.dataSM("shown-before",!0),canAnimate&&this.$root.stop(!0,!0),!this.$root.is(":visible")){this.$root.css({left:t,top:e});var i=this,s=function(){i.$root.css("overflow","")};canAnimate&&this.opts.showFunction?this.opts.showFunction.call(this,this.$root,s):this.$root.show(this.opts.showDuration,s),this.visibleSubMenus[0]=this.$root}},refresh:function(){this.destroy(!0),this.init(!0)},rootKeyDown:function(t){if(this.handleEvents())switch(t.keyCode){case 27:var e=this.activatedItems[0];if(e){this.menuHideAll(),e[0].focus();var i=e.dataSM("sub");i&&this.menuHide(i)}break;case 32:var s=$(t.target);if(s.is("a")&&this.handleItemEvents(s)){var i=s.dataSM("sub");i&&!i.is(":visible")&&(this.itemClick({currentTarget:t.target}),t.preventDefault())}}},rootOut:function(t){if(this.handleEvents()&&!this.isTouchMode()&&t.target!=this.$root[0]&&(this.hideTimeout&&(clearTimeout(this.hideTimeout),this.hideTimeout=0),!this.opts.showOnClick||!this.opts.hideOnClick)){var e=this;this.hideTimeout=setTimeout(function(){e.menuHideAll()},this.opts.hideTimeout)}},rootOver:function(t){this.handleEvents()&&!this.isTouchMode()&&t.target!=this.$root[0]&&this.hideTimeout&&(clearTimeout(this.hideTimeout),this.hideTimeout=0)},winResize:function(t){if(this.handleEvents()){if(!("onorientationchange"in window)||"orientationchange"==t.type){var e=this.isCollapsible();this.wasCollapsible&&e||(this.activatedItems.length&&this.activatedItems[this.activatedItems.length-1][0].blur(),this.menuHideAll()),this.wasCollapsible=e}}else if(this.$disableOverlay){var i=this.$root.offset();this.$disableOverlay.css({top:i.top,left:i.left,width:this.$root.outerWidth(),height:this.$root.outerHeight()})}}}}),$.fn.dataSM=function(t,e){return e?this.data(t+"_smartmenus",e):this.data(t+"_smartmenus")},$.fn.removeDataSM=function(t){return this.removeData(t+"_smartmenus")},$.fn.smartmenus=function(options){if("string"==typeof options){var args=arguments,method=options;return Array.prototype.shift.call(args),this.each(function(){var t=$(this).data("smartmenus");t&&t[method]&&t[method].apply(t,args)})}return this.each(function(){var dataOpts=$(this).data("sm-options")||null;if(dataOpts)try{dataOpts=eval("("+dataOpts+")")}catch(e){dataOpts=null,alert('ERROR\n\nSmartMenus jQuery init:\nInvalid "data-sm-options" attribute value syntax.')}new $.SmartMenus(this,$.extend({},$.fn.smartmenus.defaults,options,dataOpts))})},$.fn.smartmenus.defaults={isPopup:!1,mainMenuSubOffsetX:0,mainMenuSubOffsetY:0,subMenusSubOffsetX:0,subMenusSubOffsetY:0,subMenusMinWidth:"10em",subMenusMaxWidth:"20em",subIndicators:!0,subIndicatorsPos:"append",subIndicatorsText:"",scrollStep:30,scrollAccelerate:!0,showTimeout:250,hideTimeout:500,showDuration:0,showFunction:null,hideDuration:0,hideFunction:function(t,e){t.fadeOut(200,e)},collapsibleShowDuration:0,collapsibleShowFunction:function(t,e){t.slideDown(200,e)},collapsibleHideDuration:0,collapsibleHideFunction:function(t,e){t.slideUp(200,e)},showOnClick:!1,hideOnClick:!0,noMouseOver:!1,keepInViewport:!0,keepHighlighted:!0,markCurrentItem:!1,markCurrentTree:!0,rightToLeftSubMenus:!1,bottomToTopSubMenus:!1,collapsibleBehavior:"default"},$});
\ No newline at end of file
diff --git a/ver-1.7.0/ver-1.6.4/menu.js b/ver-1.7.0/ver-1.6.4/menu.js
new file mode 100644
index 00000000..2fe2214f
--- /dev/null
+++ b/ver-1.7.0/ver-1.6.4/menu.js
@@ -0,0 +1,51 @@
+/*
+ @licstart The following is the entire license notice for the JavaScript code in this file.
+
+ The MIT License (MIT)
+
+ Copyright (C) 1997-2020 by Dimitri van Heesch
+
+ Permission is hereby granted, free of charge, to any person obtaining a copy of this software
+ and associated documentation files (the "Software"), to deal in the Software without restriction,
+ including without limitation the rights to use, copy, modify, merge, publish, distribute,
+ sublicense, and/or sell copies of the Software, and to permit persons to whom the Software is
+ furnished to do so, subject to the following conditions:
+
+ The above copyright notice and this permission notice shall be included in all copies or
+ substantial portions of the Software.
+
+ THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR IMPLIED, INCLUDING
+ BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
+ NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM,
+ DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
+ OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
+
+ @licend The above is the entire license notice for the JavaScript code in this file
+ */
+function initMenu(relPath,searchEnabled,serverSide,searchPage,search) {
+ function makeTree(data,relPath) {
+ var result='';
+ if ('children' in data) {
+ result+='';
+ }
+ return result;
+ }
+
+ $('#main-nav').append(makeTree(menudata,relPath));
+ $('#main-nav').children(':first').addClass('sm sm-dox').attr('id','main-menu');
+ if (searchEnabled) {
+ if (serverSide) {
+ $('#main-menu').append('NCEPLIBS-g2c: misspack.c File Reference
+
+
+
+
+
+
+ NCEPLIBS-g2c
+ 1.6.4
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
Pack up a data field using a complex packing algorithm as defined in the GRIB2 documention.
+More...
+
#include <stdlib.h>
+
#include <math.h>
+
#include "grib2.h "
+
+
Go to the source code of this file.
+
+void misspack (g2float *fld, g2int ndpts, g2int idrsnum, g2int *idrstmpl, unsigned char *cpack, g2int *lcpack) This subroutine packs up a data field using a complex packing algorithm as defined in the GRIB2 documention. More...
+
+
Pack up a data field using a complex packing algorithm as defined in the GRIB2 documention.
+
Author Stephen Gilbert
+
Date 2000-06-21
+
+
Definition in file misspack.c .
+
+
+
◆
+
+
+
+
+
+ void misspack
+ (
+ g2float * fld ,
+
+ g2int ndpts ,
+
+ g2int idrsnum ,
+
+ g2int * idrstmpl ,
+
+ unsigned char *
+ cpack ,
+
+ g2int * lcpack
+
+ )
+
+
+
+
+
This subroutine packs up a data field using a complex packing algorithm as defined in the GRIB2 documention.
+
It supports GRIB2 complex packing templates with or without spatial differences (i.e. DRTs 5.2 and 5.3). It also fills in GRIB2 Data Representation Template 5.2 or Template 5.3 with the appropriate values. This version assumes that Missing Value Management is being used and that 1 or 2 missing values appear in the data.
+
Parameters
+
+ fld Contains the data values to pack ndpts The number of data values in array fld idrsnum Data Representation Template number 5.N Must equal 2 or 3. idrstmpl Contains the array of values for Data Representation Template 5.2 or 5.3.
+0 Reference value - ignored on input, set by misspack routine.
+1 Binary Scale Factor - used on input.
+2 Decimal Scale Factor- used on input.
+6 Missing value management.
+7 Primary missing value.
+8 Secondary missing value.
+16 Order of Spatial Differencing (1 or 2).
+
+ cpack The packed data field (character*1 array). lcpack length of packed field cpack.
+
+
+
Author Stephen Gilbert
+
Date 2000-06-21
+
+
Definition at line 43 of file misspack.c .
+
+
References int_power() , mkieee() , pack_gp() , rdieee() , sbit() , and sbits() .
+
+
Referenced by cmplxpack() .
+
+
+
+
+
NCEPLIBS-g2c: misspack.c Source File
+
+
+
+
+
+
+ NCEPLIBS-g2c
+ 1.6.4
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
Go to the documentation of this file.
+
+
+
+
+
+
+
44 unsigned char *cpack,
g2int *lcpack)
+
+
46 g2int *ifld, *ifldmiss, *jfld;
+
47 g2int *jmin, *jmax, *lbit;
+
48 static g2int zero = 0;
+
49 g2int *gref, *gwidth, *glen;
+
50 g2int glength, grpwidth;
+
51 g2int i, n, iofst, imin, ival1, ival2, isd, minsd, nbitsd;
+
52 g2int nbitsgref, left, iwmax, ngwidthref, nbitsgwidth, ilmax;
+
53 g2int nglenref, nglenlast, nbitsglen;
+
54 g2int j, missopt, nonmiss, itemp, maxorig, nbitorig, miss1, miss2;
+
55 g2int ngroups, ng, num0, num1, num2;
+
56 g2int imax, lg, mtemp, ier, igmax;
+
57 g2int kfildo, minpk, inc, maxgrps, ibit, jbit, kbit, novref, lbitref;
+
58 g2float rmissp, rmisss, bscale, dscale, rmin, temp;
+
59 static g2int simple_alg = 0;
+
60 static g2float alog2 = 0.69314718;
+
+
+
+
+
65 missopt = idrstmpl[6];
+
66 if (missopt != 1 && missopt != 2)
+
+
68 printf(
"misspack: Unrecognized option.\n" );
+
+
+
+
+
+
74 rdieee (idrstmpl + 7, &rmissp, 1);
+
+
76 rdieee (idrstmpl + 8, &rmisss, 1);
+
+
+
+
+
81 ifldmiss = calloc(ndpts,
sizeof (
g2int ));
+
+
+
+
85 for (j = 0; j < ndpts; j++)
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
101 for (j = 0; j < ndpts; j++)
+
+
103 if (fld[j] == rmissp)
+
+
+
+
107 else if (fld[j] == rmisss)
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
126 ifld = calloc(ndpts,
sizeof (
g2int ));
+
127 jfld = calloc(ndpts,
sizeof (
g2int ));
+
128 gref = calloc(ndpts,
sizeof (
g2int ));
+
129 gwidth = calloc(ndpts,
sizeof (
g2int ));
+
130 glen = calloc(ndpts,
sizeof (
g2int ));
+
+
+
+
134 if (idrstmpl[1] == 0)
+
+
136 imin = (
g2int )rint(rmin * dscale);
+
+
138 for (j = 0; j < ndpts; j++)
+
+
140 if (ifldmiss[j] == 0)
+
+
142 jfld[nonmiss] = (
g2int )rint(fld[j] * dscale) - imin;
+
+
+
+
+
+
+
149 rmin = rmin * dscale;
+
150 for (j = 0; j < ndpts; j++)
+
+
152 if (ifldmiss[j] == 0)
+
+
154 jfld[nonmiss] = (
g2int )rint(((fld[j] * dscale) - rmin) * bscale);
+
+
+
+
+
+
+
+
+
163 if (idrstmpl[16] != 1 && idrstmpl[16] != 2)
+
+
165 if (idrstmpl[16] == 1)
+
+
+
168 for (j = nonmiss - 1; j > 0; j--)
+
169 jfld[j] = jfld[j] - jfld[j - 1];
+
+
+
172 else if (idrstmpl[16] == 2)
+
+
+
+
176 for (j = nonmiss - 1; j > 1; j--)
+
177 jfld[j] = jfld[j] - (2 * jfld[j - 1]) + jfld[j - 2];
+
+
+
+
+
+
+
+
185 for (j = isd; j < nonmiss; j++)
+
+
+
188 for (j = isd; j < nonmiss; j++)
+
189 jfld[j] = jfld[j] - minsd;
+
+
+
+
193 temp = log((
double )(abs(minsd) + 1)) / alog2;
+
194 nbitsd = (
g2int )ceil(temp) + 1;
+
+
+
+
+
199 if (idrstmpl[16] == 2 && ival2 > ival1)
+
+
201 temp = log((
double )(maxorig + 1)) / alog2;
+
202 nbitorig = (
g2int )ceil(temp) + 1;
+
203 if (nbitorig > nbitsd)
+
+
+
+
+
208 nbitsd = nbitsd+(8-(nbitsd%8));
+
+
+
+
+
+
+
+
216 sbit (cpack, &ival1, iofst, nbitsd);
+
217 iofst = iofst + nbitsd;
+
+
+
+
221 sbit (cpack, &one, iofst, 1);
+
+
+
224 sbit (cpack, &itemp, iofst, nbitsd-1);
+
225 iofst = iofst + nbitsd - 1;
+
+
227 if (idrstmpl[16] == 2)
+
+
+
+
+
232 sbit (cpack, &ival2, iofst, nbitsd);
+
233 iofst = iofst + nbitsd;
+
+
+
+
237 sbit (cpack, &one, iofst, 1);
+
+
+
240 sbit (cpack, &itemp, iofst, nbitsd-1);
+
241 iofst = iofst + nbitsd - 1;
+
+
+
+
+
+
247 sbit (cpack, &minsd, iofst, nbitsd);
+
248 iofst = iofst + nbitsd;
+
+
+
+
252 sbit (cpack, &one, iofst, 1);
+
+
+
255 sbit (cpack, &itemp, iofst, nbitsd-1);
+
256 iofst = iofst + nbitsd - 1;
+
+
+
+
+
+
+
263 for (j = 0; j < nonmiss; j++)
+
+
+
+
+
+
269 for (j = 0; j < ndpts; j++)
+
+
271 if (ifldmiss[j] == 0)
+
+
+
+
+
276 else if (ifldmiss[j] == 1)
+
+
+
+
280 else if (ifldmiss[j] == 2)
+
+
+
+
+
+
+
+
+
+
290 ngroups = ndpts / 10;
+
291 for (j = 0; j < ngroups; j++)
+
+
+
+
+
+
297 glen[ngroups - 1] = itemp;
+
+
+
+
+
+
+
+
+
306 maxgrps = (ndpts / minpk) + 1;
+
307 jmin = calloc(maxgrps,
sizeof (
g2int ));
+
308 jmax = calloc(maxgrps,
sizeof (
g2int ));
+
309 lbit = calloc(maxgrps,
sizeof (
g2int ));
+
310 pack_gp (&kfildo, ifld, &ndpts, &missopt, &minpk, &inc, &miss1, &miss2,
+
311 jmin, jmax, lbit, glen, &maxgrps, &ngroups, &ibit, &jbit,
+
312 &kbit, &novref, &lbitref, &ier);
+
313 for (ng = 0; ng < ngroups; ng++)
+
314 glen[ng] = glen[ng]+novref;
+
+
+
+
+
+
+
+
+
323 for (ng = 0; ng<ngroups; ng++)
+
+
+
326 num0 = num1 = num2 = 0;
+
327 for (j = n; j < n + glen[ng]; j++)
+
+
329 if (ifldmiss[j] == 0)
+
+
331 if (ifldmiss[j] == 1)
+
+
333 if (ifldmiss[j] == 2)
+
+
+
+
+
+
+
+
+
342 else if (num2 == 0) {
+
+
+
+
+
+
+
+
+
+
+
+
354 gref[ng] = 2147483647;
+
+
+
357 for (lg = 0; lg < glen[ng]; lg++)
+
+
359 if (ifldmiss[j] == 0) {
+
360 if (ifld[j] < gref[ng])
+
+
+
+
+
+
+
367 if (missopt == 1) imax = imax+1;
+
368 if (missopt == 2) imax = imax+2;
+
+
370 if (gref[ng] != imax) {
+
371 temp = log((
double )(imax-gref[ng]+1))/alog2;
+
372 gwidth[ng] = (
g2int )ceil(temp);
+
+
+
+
+
+
+
+
+
381 for (lg = 0; lg<glen[ng]; lg++)
+
+
383 if (ifldmiss[j] == 0)
+
384 ifld[j] = ifld[j] - gref[ng];
+
385 else if (ifldmiss[j] == 1)
+
+
387 else if (ifldmiss[j] == 2)
+
+
+
+
+
+
+
+
+
+
+
+
399 for (j = 1; j < ngroups; j++)
+
+
+
+
+
+
+
+
+
408 temp = log((
double )(igmax + 1)) / alog2;
+
409 nbitsgref = (
g2int )ceil(temp);
+
+
+
412 for (j = 0; j < ngroups; j++)
+
+
+
+
+
+
+
419 sbits (cpack, gref, iofst, nbitsgref, 0, ngroups);
+
420 itemp = nbitsgref * ngroups;
+
421 iofst = iofst + itemp;
+
+
423 if ((itemp % 8) != 0)
+
+
425 left = 8 - (itemp % 8);
+
426 sbit (cpack, &zero, iofst, left);
+
427 iofst = iofst + left;
+
+
+
+
+
+
+
+
+
+
+
+
439 ngwidthref = gwidth[0];
+
440 for (j = 1; j < ngroups; j++)
+
+
442 if (gwidth[j] > iwmax)
+
+
444 if (gwidth[j] < ngwidthref)
+
445 ngwidthref = gwidth[j];
+
+
447 if (iwmax != ngwidthref)
+
+
449 temp = log((
double )(iwmax - ngwidthref + 1)) / alog2;
+
450 nbitsgwidth = (
g2int )ceil(temp);
+
451 for (i = 0; i<ngroups; i++)
+
452 gwidth[i] = gwidth[i]-ngwidthref;
+
453 sbits (cpack, gwidth, iofst, nbitsgwidth, 0, ngroups);
+
454 itemp = nbitsgwidth * ngroups;
+
455 iofst = iofst + itemp;
+
+
+
+
459 left = 8 - (itemp % 8);
+
460 sbit (cpack, &zero, iofst, left);
+
461 iofst = iofst + left;
+
+
+
+
+
+
467 for (i = 0; i < ngroups; i++)
+
+
+
+
+
+
+
+
+
476 for (j = 1; j < ngroups - 1; j++)
+
+
+
+
480 if (glen[j] < nglenref)
+
+
+
483 nglenlast = glen[ngroups - 1];
+
484 if (ilmax != nglenref)
+
+
486 temp = log((
double )(ilmax - nglenref + 1)) / alog2;
+
487 nbitsglen = (
g2int )ceil(temp);
+
488 for (i = 0; i < ngroups - 1; i++)
+
489 glen[i] = glen[i] - nglenref;
+
490 sbits (cpack, glen, iofst, nbitsglen, 0, ngroups);
+
491 itemp = nbitsglen * ngroups;
+
492 iofst = iofst + itemp;
+
+
494 if ((itemp % 8) != 0)
+
+
496 left = 8 - (itemp % 8);
+
497 sbit (cpack, &zero, iofst, left);
+
498 iofst = iofst + left;
+
+
+
+
+
503 for (i = 0; i < ngroups; i++)
+
+
+
+
+
+
509 for (ng = 0; ng < ngroups; ng++)
+
+
511 glength = glen[ng] + nglenref;
+
512 if (ng == (ngroups - 1))
+
+
514 grpwidth = gwidth[ng] + ngwidthref;
+
+
+
517 sbits (cpack, ifld + n, iofst, grpwidth, 0, glength);
+
518 iofst = iofst + (grpwidth * glength);
+
+
+
+
+
+
524 if ((iofst % 8) != 0)
+
+
526 left = 8 - (iofst % 8);
+
527 sbit (cpack, &zero, iofst, left);
+
528 iofst = iofst + left;
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
546 mkieee (&rmin, idrstmpl, 1);
+
547 idrstmpl[3] = nbitsgref;
+
+
+
550 idrstmpl[9] = ngroups;
+
551 idrstmpl[10] = ngwidthref;
+
552 idrstmpl[11] = nbitsgwidth;
+
553 idrstmpl[12] = nglenref;
+
+
555 idrstmpl[14] = nglenlast;
+
556 idrstmpl[15] = nbitsglen;
+
+
+
559 idrstmpl[17] = nbitsd / 8;
+
+
+
+
void sbit(unsigned char *out, g2int *in, g2int iskip, g2int nbyte)
Store bits - put arbitrary size values into a packed bit string, taking the low order bits from each ...
+
void sbits(unsigned char *out, g2int *in, g2int iskip, g2int nbyte, g2int nskip, g2int n)
Store bits - put arbitrary size values into a packed bit string, taking the low order bits from each ...
+
Header file for NCEPLIBS-g2c library.
+
+
int64_t g2int
Long integer type.
+
double int_power(double x, g2int y)
Function similar to C pow() power function.
+
void misspack(g2float *fld, g2int ndpts, g2int idrsnum, g2int *idrstmpl, unsigned char *cpack, g2int *lcpack)
This subroutine packs up a data field using a complex packing algorithm as defined in the GRIB2 docum...
+
void mkieee(g2float *a, g2int *rieee, g2int num)
This subroutine stores a list of real values in 32-bit IEEE floating point format.
+
int pack_gp(integer *kfildo, integer *ic, integer *nxy, integer *is523, integer *minpk, integer *inc, integer *missp, integer *misss, integer *jmin, integer *jmax, integer *lbit, integer *nov, integer *ndg, integer *lx, integer *ibit, integer *jbit, integer *kbit, integer *novref, integer *lbitref, integer *ier)
Determines groups of variable size, but at least of size minpk, the associated max (jmax( )) and min ...
+
void rdieee(g2int *rieee, g2float *a, g2int num)
This subroutine reads a list of real values in 32-bit IEEE floating point format.
+
+
NCEPLIBS-g2c: mkieee.c File Reference
+
+
+
+
+
+
+ NCEPLIBS-g2c
+ 1.6.4
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
#include <stdlib.h>
+
#include <math.h>
+
#include "grib2.h "
+
+
Go to the source code of this file.
+
+
+
Author Stephen Gilbert
+
Date 2002-10-29
+
+
Definition in file mkieee.c .
+
+
+
◆
+
+
+
+
+
+ void mkieee
+ (
+ g2float * a ,
+
+ g2int * rieee ,
+
+ g2int num
+
+ )
+
+
+
+
+
This subroutine stores a list of real values in 32-bit IEEE floating point format.
+
Parameters
+
+ a Input array of floating point values. num Number of floating point values to convert. rieee Output array of data values in 32-bit IEEE format stored in g2int integer array. rieee must be allocated with at least 4*num bytes of memory before calling this function.
+
+
+
Author Stephen Gilbert
+
Date 2002-10-29
+
+
Definition at line 21 of file mkieee.c .
+
+
References int_power() .
+
+
Referenced by compack() , g2_addfield() , jpcpack() , misspack() , pngpack() , simpack() , and specpack() .
+
+
+
+
+
NCEPLIBS-g2c: mkieee.c Source File
+
+
+
+
+
+
+ NCEPLIBS-g2c
+ 1.6.4
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
Go to the documentation of this file.
+
+
+
+
+
+
+
+
+
24 g2int j,n,ieee,iexp,imant;
+
+
+
27 static double two23,two126;
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
76 if (n > 127) iexp=255;
+
+
+
+
80 ieee = ieee | ( iexp << 23 );
+
+
+
+
+
+
+
+
+
89 imant=(
g2int )rint(atemp*two23);
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
Header file for NCEPLIBS-g2c library.
+
+
int64_t g2int
Long integer type.
+
double int_power(double x, g2int y)
Function similar to C pow() power function.
+
void mkieee(g2float *a, g2int *rieee, g2int num)
This subroutine stores a list of real values in 32-bit IEEE floating point format.
+
+
1) hash = '#'+parts[1].replace(/[^\w\-]/g,'');
+ else hash='';
+ }
+ if (hash.match(/^#l\d+$/)) {
+ var anchor=$('a[name='+hash.substring(1)+']');
+ glowEffect(anchor.parent(),1000); // line number
+ hash=''; // strip line number anchors
+ }
+ var url=root+hash;
+ var i=-1;
+ while (NAVTREEINDEX[i+1]<=url) i++;
+ if (i==-1) { i=0; root=NAVTREE[0][1]; } // fallback: show index
+ if (navTreeSubIndices[i]) {
+ gotoNode(o,i,root,hash,relpath)
+ } else {
+ getScript(relpath+'navtreeindex'+i,function(){
+ navTreeSubIndices[i] = eval('NAVTREEINDEX'+i);
+ if (navTreeSubIndices[i]) {
+ gotoNode(o,i,root,hash,relpath);
+ }
+ },true);
+ }
+}
+
+function showSyncOff(n,relpath)
+{
+ n.html('NCEPLIBS-g2c: pack_gp.c File Reference
+
+
+
+
+
+
+ NCEPLIBS-g2c
+ 1.6.4
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
#include <stdlib.h>
+
#include "grib2.h "
+
+
Go to the source code of this file.
+
+int pack_gp (integer *kfildo, integer *ic, integer *nxy, integer *is523, integer *minpk, integer *inc, integer *missp, integer *misss, integer *jmin, integer *jmax, integer *lbit, integer *nov, integer *ndg, integer *lx, integer *ibit, integer *jbit, integer *kbit, integer *novref, integer *lbitref, integer *ier) Determines groups of variable size, but at least of size minpk, the associated max (jmax( )) and min (jmin( )), the number of bits necessary to hold the values in each group (lbit( )), the number of values in each group (nov( )), the number of bits necessary to pack the jmin( ) values (ibit), the number of bits necessary to pack the lbit( ) values (jbit), and the number of bits necessary to pack the nov( ) values (kbit). More...
+
+
Author Glahn
+
Date february 1994
+
+
Definition in file pack_gp.c .
+
+
+
◆
+
+
+
+
+
+ #define FALSE_ (0)
+
+
+
+
+
False.
+
+
Definition at line 11 of file pack_gp.c .
+
+
+
+
+
◆
+
+
+
+
+
+ #define TRUE_ (1)
+
+
+
+
+
True.
+
+
Definition at line 10 of file pack_gp.c .
+
+
+
+
+
+
◆
+
+
+
+
+
Integer type.
+
+
Definition at line 8 of file pack_gp.c .
+
+
+
+
+
◆
+
+
+
+
+
Logical type.
+
+
Definition at line 9 of file pack_gp.c .
+
+
+
+
+
+
◆
+
+
+
+
+
+ int pack_gp
+ (
+ integer * kfildo ,
+
+ integer * ic ,
+
+ integer * nxy ,
+
+ integer * is523 ,
+
+ integer * minpk ,
+
+ integer * inc ,
+
+ integer * missp ,
+
+ integer * misss ,
+
+ integer * jmin ,
+
+ integer * jmax ,
+
+ integer * lbit ,
+
+ integer * nov ,
+
+ integer * ndg ,
+
+ integer * lx ,
+
+ integer * ibit ,
+
+ integer * jbit ,
+
+ integer * kbit ,
+
+ integer * novref ,
+
+ integer * lbitref ,
+
+ integer * ier
+
+ )
+
+
+
+
+
Determines groups of variable size, but at least of size minpk, the associated max (jmax( )) and min (jmin( )), the number of bits necessary to hold the values in each group (lbit( )), the number of values in each group (nov( )), the number of bits necessary to pack the jmin( ) values (ibit), the number of bits necessary to pack the lbit( ) values (jbit), and the number of bits necessary to pack the nov( ) values (kbit).
+
The routine is designed to determine the groups such that a small number of bits is necessary to pack the data without excessive computations. If all values in the group are zero, the number of bits to use in packing is defined as zero when there can be no missing values; when there can be missing values, the number of bits must be at least 1 to have the capability to recognize the missing value. However, if all values in a group are missing, the number of bits needed is 0, and the unpacker recognizes this. All variables are integer. Even though the groups are initially of size minpk or larger, an adjustment between two groups (the lookback procedure) may make a group smaller than minpk. The control on group size is that the sum of the sizes of the two consecutive groups, each of size minpk or larger, is not decreased. When determining the number of bits necessary for packing, the largest value that can be accommodated in, say, mbits, is 2**mbits-1; this largest value (and the next smallest value) is reserved for the missing value indicator (only) when is523 ne 0. If the dimension ndg is not large enough to hold all the groups, the local value of minpk is increased by 50 percent. This is repeated until ndg will suffice. A diagnostic is printed whenever this happens, which should be very rarely. If it happens often, ndg in subroutine pack should be increased and a corresponding increase in subroutine unpack made. Considerable code is provided so that no more checking for missing values within loops is done than necessary; the added efficiency of this is relatively minor, but does no harm. For grib2, the reference value for the length of groups in nov( ) and for the number of bits necessary to pack group values are determined, and subtracted before jbit and kbit are determined.
+
When 1 or more groups are large compared to the others, the width of all groups must be as large as the largest. A subroutine reduce breaks up large groups into 2 or more to reduce total bits required. If reduce should abort, pack_gp will be executed again without the call to reduce.
+
PROGRAM HISTORY LOG:
+February 1994 Glahn tdl mos-2000
+June 1995 Glahn modified for lmiss error.
+July 1996 Glahn added misss
+February 1997 Glahn removed 4 redundant tests for missp.eq.0; inserted a test to better handle a string of 9999's
+February 1997 Glahn added loops to eliminate test for misss when misss = 0
+March 1997 Glahn corrected for secondary missing value
+March 1997 Glahn corrected for use of local value of minpk
+March 1997 Glahn corrected for secondary missing value
+March 1997 Glahn changed calculating number of bits through exponents to an array (improved overall packing performance by about 35 percent!). allowed 0 bits for packing jmin( ), lbit( ), and nov( ).
+May 1997 Glahn a number of changes for efficiency. mod functions eliminated and one ifthen added. jount removed. recomputation of bits not made unless necessary after moving points from one group to another. nendb adjusted to eliminate possibility of very small group at the end. about 8 percent improvement in overall packing. iskipa removed; there is always a group b that can become group a. control on size of group b (statement below 150) added. added adda, and use of ge and le instead of gt and lt in loops between 150 and 160. ibitbs added to shorten trips through loop.
+March 2000 Glahn modified for grib2; changed name from packgp
+january 2001 Glahn comments; ier = 706 substituted for stops; added return1; removed statement number 110; added ier and * return
+November 2001 Glahn changed some diagnostic formats to allow printing larger numbers
+November 2001 Glahn added misslx( ) to put maximum value into jmin( ) when all values missing to agree with grib standard.
+November 2001 Glahn changed two tests on missp and misss eq 0 to tests on is523. however, missp and misss cannot in general be = 0.
+November 2001 Glahn added call to reduce; defined itest before loops to reduce computation; started large group when all same value
+December 2001 Glahn modified and added a few comments
+January 2002 Glahn removed loop before 150 to determine a group of all same value
+January 2002 Glahn changed mallow from 9999999 to 2**30+1, and made it a parameter
+March 2002 Glahn added non fatal ier = 716, 717; removed nendb=nxy above 150; added iersav=0; comments
+
+
DATA SET USE
+kfildo - unit number for output (print) file. (output)
+
+
Parameters
+
+ kfildo unit number for output (print) file. (input) ic array to hold data for packing. the values do not have to be positive at this point, but must be in the range -2**30 to +2**30 (the the value of mallow). these integer values will be retained exactly through packing and unpacking. (input) nxy number of values in ic( ). also treated as its dimension. (input) is523 missing value management 0=data contains no missing values 1=data contains primary missing values 2=data contains primary and secondary missing values (input) minpk the minimum size of each group, except possibly the last one. (input) inc the number of values to add to an already existing group in determining whether or not to start a new group. ideally, this would be 1, but each time inc values are attempted, the max and min of the next minpk values must be found. this is "a loop within a
+loop," and a slightly larger value may give about as good results with slightly less computational time. if inc is le 0, 1 is used, and a diagnostic is output. note: it is expected that inc will equal 1. the code uses inc primarily in the loops starting at statement 180. if inc were 1, there would not need to be loops as such. however, kinc (the local value of inc) is set ge 1 when near the end of the data to forestall a very small group at the end. (input) missp when missing points can be present in the data, they will have the value missp or misss. missp is the primary missing value and misss is the secondary missing value . these must not be values that would occur with subtracting the minimum (reference) value or scaling. for example, missp = 0 would not be advisable. (input) misss secondary missing value indicator (see missp). (input) jmin the minimum of each group (j=1,lx). (output) jmax the maximum of each group (j=1,lx). this is not really needed, but since the max of each group must be found, saving it here is cheap in case the user wants it. (output) lbit the number of bits necessary to pack each group (j=1,lx). it is assumed the minimum of each group will be removed before packing, and the values to pack will, therefore, all be positive. however, ic( ) does not necessarily contain all positive values. if the overall minimum has been removed (the usual case), then ic( ) will contain only positive values. (output) nov the number of values in each group (j=1,lx). (output) ndg the dimension of jmin, jmax, lbit, and nov. (input) lx the number of groups determined. (output) ibit the number of bits necessary to pack the jmin(j) values, j=1,lx. (output) jbit the number of bits necessary to pack the lbit(j) values, j=1,lx. (output) kbit the number of bits necessary to pack the nov(j) values, j=1,lx. (output) novref reference value for nov( ). (output) lbitref reference value for lbit( ). (output) ier Error code
+0 No error.
+706 value will not pack in 30 bits–fatal
+714 error in reduce–non-fatal
+715 ngp not large enough in reduce–non-fatal
+716 minpk inceased–non-fatal
+717 inc set
+1–non-fatal
+alternate return when ier ne 0 and fatal error.
+
+
+
+
+
Returns 0 - check ier for error code. INTERNAL VARIABLES
+
+ cfeed = contains the character representation
+ of a printer form feed.
+ ifeed = contains the integer value of a printer
+ form feed.
+ kinc = working copy of inc. may be modified.
+ mina = minimum value in group a.
+ maxa = maximum value in group a.
+ nenda = the place in ic( ) where group a ends.
+ kstart = the place in ic( ) where group a starts.
+ ibita = number of bits needed to hold values in group a.
+ minb = minimum value in group b.
+ maxb = maximum value in group b.
+ nendb = the place in ic( ) where group b ends.
+ ibitb = number of bits needed to hold values in group b.
+ minc = minimum value in group c.
+ maxc = maximum value in group c.
+ ktotal = count of number of values in ic( ) processed.
+ nount = number of values added to group a.
+ lmiss = 0 when is523 = 0. when packing into a
+ specific number of bits, say mbits,
+ the maximum value that can be handled is
+ 2**mbits-1. when is523 = 1, indicating
+ primary missing values, this maximum value
+ is reserved to hold the primary missing value
+ indicator and lmiss = 1. when is523 = 2,
+ the value just below the maximum i.e.,
+ 2**mbits-2 is reserved to hold the secondary
+ missing value indicator and lmiss = 2.
+ lminpk = local value of minpk. this will be adjusted
+ upward whenever ndg is not large enough to hold
+ all the groups.
+ mallow = the largest allowable value for packing.
+ mislla = set to 1 when all values in group a are missing.
+ this is used to distinguish between a real
+ minimum when all values are not missing
+ and a minimum that has been set to zero when
+ all values are missing. 0 otherwise.
+ note that this does not distinguish between
+ primary and secondary missings when secondary
+ missings are present. this means that
+ lbit( ) will not be zero with the resulting
+ compression efficiency when secondary missings
+ are present. also note that a check has been
+ made earlier to determine that secondary
+ missings are really there.
+ misllb = set to 1 when all values in group b are missing.
+ this is used to distinguish between a real
+ minimum when all values are not missing
+ and a minimum that has been set to zero when
+ all values are missing. 0 otherwise.
+ misllc = performs the same function for group c that
+ mislla and misllb do for groups b and c,
+ respectively.
+ ibxx2(j) = an array that when this routine is first entered
+ is set to 2**j, j=0,30. ibxx2(30) = 2**30, which
+ is the largest value packable, because 2**31
+ is larger than the integer word size.
+ ifirst = set by data statement to 0. changed to 1 on
+ first
+ entry when ibxx2( ) is filled.
+ minak = keeps track of the location in ic( ) where the
+ minimum value in group a is located.
+ maxak = does the same as minak, except for the maximum.
+ minbk = the same as minak for group b.
+ maxbk = the same as maxak for group b.
+ minck = the same as minak for group c.
+ maxck = the same as maxak for group c.
+ adda = keeps track whether or not an attempt to add
+ points to group a was made. if so, then adda
+ keeps from trying to put one back into b.
+ (logical)
+ ibitbs = keeps current value if ibitb so that loop
+ ending at 166 doesn't have to start at
+ ibitb = 0 every time.
+ misslx(j) = mallow except when a group is all one value (and
+ lbit(j) = 0) and that value is missing. in
+ that case, misslx(j) is missp or misss. this
+ gets inserted into jmin(j) later as the
+ missing indicator; it can't be put in until
+ the end, because jmin( ) is used to calculate
+ the maximum number of bits (ibits) needed to
+ pack jmin( ).
+
+
+
Definition at line 256 of file pack_gp.c .
+
+
References FALSE_ , reduce() , and TRUE_ .
+
+
Referenced by compack() , and misspack() .
+
+
+
+
+
NCEPLIBS-g2c: pack_gp.c Source File
+
+
+
+
+
+
+ NCEPLIBS-g2c
+ 1.6.4
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
Go to the documentation of this file.
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
264 const integer mallow = 1073741825;
+
+
+
+
+
+
+
+
+
+
274 static integer ired, kinc, mina, maxa, minb, maxb, minc, maxc, ibxx2[31];
+
275 static char cfeed[1];
+
276 static integer nenda, nendb, ibita, ibitb, minak, minbk, maxak, maxbk,
+
277 minck, maxck, nouta, lmiss, itest, nount;
+
+
+
+
281 static integer ibitbs, mislla, misllb, misllc, iersav, lminpk, ktotal,
+
282 kounta, kountb, kstart, mstart, mintst, maxtst,
+
283 kounts, mintstk, maxtstk;
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
309 *(
unsigned char *)cfeed = (
char ) ifeed;
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
329 kinc = (*inc > 1) ? *inc : 1;
+
+
+
+
+
+
+
+
+
338 for (j = 1; j <= 30; ++j) {
+
339 ibxx2[j] = ibxx2[j - 1] << 1;
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
385 i__1 = kstart + lminpk - 1;
+
+
387 nenda = (i__1 < *nxy) ? i__1 : *nxy;
+
388 if (*nxy - nenda <= lminpk / 2) {
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
405 if (nenda != *nxy && ic[kstart] == ic[kstart + 1]) {
+
+
+
+
+
+
+
412 for (k = kstart + 1; k <= i__1; ++k) {
+
+
414 if (ic[k] != ic[kstart]) {
+
+
416 i__2 = nenda, i__3 = k - 1;
+
+
418 nenda = (i__2 > i__3) ? i__2 : i__3;
+
+
+
+
+
+
+
+
+
+
428 }
else if (*is523 == 1) {
+
+
+
+
432 for (k = kstart + 1; k <= i__1; ++k) {
+
+
434 if (ic[k] != *missp) {
+
+
436 if (ic[k] != ic[kstart]) {
+
+
438 i__2 = nenda, i__3 = k - 1;
+
+
440 nenda = (i__2 > i__3) ? i__2 : i__3;
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
456 for (k = kstart + 1; k <= i__1; ++k) {
+
+
458 if (ic[k] != *missp && ic[k] != *misss) {
+
+
460 if (ic[k] != ic[kstart]) {
+
+
462 i__2 = nenda, i__3 = k - 1;
+
+
464 nenda = (i__2 > i__3) ? i__2 : i__3;
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
483 for (k = kstart; k <= i__1; ++k) {
+
+
+
+
+
+
+
+
+
+
+
+
495 }
else if (*is523 == 1) {
+
+
+
498 for (k = kstart; k <= i__1; ++k) {
+
499 if (ic[k] == *missp) {
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
517 for (k = kstart; k <= i__1; ++k) {
+
518 if (ic[k] == *missp || ic[k] == *misss) {
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
535 kounta = nenda - kstart + 1;
+
+
+
+
+
+
541 if (mina != mallow) {
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
557 itest = maxa - mina + lmiss;
+
+
559 for (ibita = 0; ibita <= 30; ++ibita) {
+
560 if (itest < ibxx2[ibita]) {
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
581 if (ktotal >= *nxy) {
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
611 for (k = mstart + 1; k <= i__1; ++k) {
+
+
613 if (ic[k] != ic[mstart]) {
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
631 i__3 = ktotal + lminpk;
+
+
633 i__1 = nendb, i__2 = (i__3 < *nxy) ? i__3 : *nxy;
+
+
635 nendb = (i__1 > i__2) ? i__1 : i__2;
+
+
+
638 if (*nxy - nendb <= lminpk / 2) {
+
+
+
+
+
+
+
+
+
+
+
+
+
+
652 for (k = mstart; k <= i__1; ++k) {
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
668 }
else if (*is523 == 1) {
+
+
+
671 for (k = mstart; k <= i__1; ++k) {
+
672 if (ic[k] == *missp) {
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
690 for (k = mstart; k <= i__1; ++k) {
+
691 if (ic[k] == *missp || ic[k] == *misss) {
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
708 kountb = nendb - ktotal;
+
+
710 if (minb != mallow) {
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
727 for (ibitb = ibitbs; ibitb <= 30; ++ibitb) {
+
728 if (maxb - minb < ibxx2[ibitb] - lmiss) {
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
753 if (ibitb >= ibita) {
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
781 for (k = ktotal; k >= i__1; --k) {
+
+
+
+
+
786 }
else if (ic[k] > maxb) {
+
+
+
+
790 if (maxtst - mintst >= ibxx2[ibitb]) {
+
+
+
+
+
+
+
+
+
+
+
+
+
803 }
else if (*is523 == 1) {
+
+
+
806 for (k = ktotal; k >= i__1; --k) {
+
+
808 if (ic[k] == *missp) {
+
+
+
+
+
+
814 }
else if (ic[k] > maxb) {
+
+
+
+
818 if (maxtst - mintst >= ibxx2[ibitb] - lmiss) {
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
837 for (k = ktotal; k >= i__1; --k) {
+
+
839 if (ic[k] == *missp || ic[k] == *misss) {
+
+
+
+
+
+
845 }
else if (ic[k] > maxb) {
+
+
+
+
849 if (maxtst - mintst >= ibxx2[ibitb] - lmiss) {
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
875 if (kounta == kounts) {
+
+
+
+
+
+
+
+
+
+
+
886 nouta = kounts - kounta;
+
+
+
889 if (nenda - nouta > minak && nenda - nouta > maxak) {
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
905 i__1 = nenda - nouta;
+
906 for (k = kstart; k <= i__1; ++k) {
+
+
+
+
+
+
+
+
+
+
916 }
else if (*is523 == 1) {
+
+
918 i__1 = nenda - nouta;
+
919 for (k = kstart; k <= i__1; ++k) {
+
920 if (ic[k] == *missp) {
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
935 i__1 = nenda - nouta;
+
936 for (k = kstart; k <= i__1; ++k) {
+
937 if (ic[k] == *missp || ic[k] == *misss) {
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
953 if (mina != mallow) {
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
968 itest = maxa - mina + lmiss;
+
+
970 for (ibita = 0; ibita <= 30; ++ibita) {
+
971 if (itest < ibxx2[ibita]) {
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
1010 if (*nxy - (ktotal + kinc) <= lminpk / 2) {
+
1011 kinc = *nxy - ktotal;
+
+
+
+
+
+
+
+
+
+
+
+
+
+
1025 i__2 = ktotal + kinc;
+
+
1027 i__1 = (i__2 < *nxy) ? i__2 : *nxy;
+
1028 for (k = ktotal + 1; k <= i__1; ++k) {
+
+
+
+
+
+
+
+
+
+
+
+
+
1041 }
else if (*is523 == 1) {
+
+
+
1044 i__2 = ktotal + kinc;
+
+
1046 i__1 = (i__2 < *nxy) ? i__2 : *nxy;
+
1047 for (k = ktotal + 1; k <= i__1; ++k) {
+
1048 if (ic[k] == *missp) {
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
1067 i__2 = ktotal + kinc;
+
+
1069 i__1 = (i__2 < *nxy) ? i__2 : *nxy;
+
1070 for (k = ktotal + 1; k <= i__1; ++k) {
+
1071 if (ic[k] == *missp || ic[k] == *misss) {
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
1099 if (minc == mallow) {
+
+
+
+
+
+
+
+
+
+
+
+
+
+
1113 if (maxc - minc >= ibxx2[ibita] - lmiss) {
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
1131 if (ktotal >= *nxy) {
+
+
+
+
1135 if (minbk > ktotal && maxbk > ktotal) {
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
1160 lminpk += lminpk / 2;
+
+
+
+
+
+
+
+
+
+
+
+
+
1173 kstart = ktotal + 1;
+
+
+
1176 misslx[*lx - 1] = mallow;
+
+
1178 misslx[*lx - 1] = ic[ktotal];
+
+
+
+
+
+
+
+
+
+
+
1189 if (ktotal >= *nxy) {
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
1218 for (l = 1; l <= i__1; ++l) {
+
+
1220 if (jmin[l] < ibxx2[*ibit]) {
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
1236 for (l = 1; l <= i__1; ++l) {
+
+
+
+
1240 if (misslx[l - 1] == *missp) {
+
1241 jmin[l] = ibxx2[*ibit] - 1;
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
1269 for (k = 1; k <= i__1; ++k) {
+
1270 if (lbit[k] < *lbitref) {
+
+
+
+
+
+
1276 if (*lbitref != 0) {
+
+
+
1279 for (k = 1; k <= i__1; ++k) {
+
1280 lbit[k] -= *lbitref;
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
1297 for (k = 1; k <= i__1; ++k) {
+
+
1299 if (lbit[k] < ibxx2[*jbit]) {
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
1326 for (k = 1; k <= i__1; ++k) {
+
1327 if (nov[k] < *novref) {
+
+
+
+
+
+
+
+
+
1336 for (k = 1; k <= i__1; ++k) {
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
1359 for (k = 1; k <= i__1; ++k) {
+
+
1361 if (nov[k] < ibxx2[*kbit]) {
+
+
+
+
+
+
+
+
+
+
+
+
+
1374 reduce (kfildo, &jmin[1], &jmax[1], &lbit[1], &nov[1], lx, ndg, ibit,
+
1375 jbit, kbit, novref, ibxx2, ier);
+
+
1377 if (*ier == 714 || *ier == 715) {
+
+
+
+
+
+
+
+
+
+
+
1388 if ( misslx != 0 ) {
+
+
+
+
+
+
+
+
+
+
+
+
+
1401 if ( misslx != 0 ) free(misslx);
+
+
+
Header file for NCEPLIBS-g2c library.
+
int64_t g2int
Long integer type.
+
int pack_gp(integer *kfildo, integer *ic, integer *nxy, integer *is523, integer *minpk, integer *inc, integer *missp, integer *misss, integer *jmin, integer *jmax, integer *lbit, integer *nov, integer *ndg, integer *lx, integer *ibit, integer *jbit, integer *kbit, integer *novref, integer *lbitref, integer *ier)
Determines groups of variable size, but at least of size minpk, the associated max (jmax( )) and min ...
+
g2int integer
Integer type.
+
g2int logical
Logical type.
+
+
+
int reduce(integer *kfildo, integer *jmin, integer *jmax, integer *lbit, integer *nov, integer *lx, integer *ndg, integer *ibit, integer *jbit, integer *kbit, integer *novref, integer *ibxx2, integer *ier)
Determines whether the number of groups should be increased in order to reduce the size of the large ...
+
+
NCEPLIBS-g2c: pdstemplates.c File Reference
+
+
+
+
+
+
+ NCEPLIBS-g2c
+ 1.6.4
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
Functions for GRIB2 Product Definition Templates used in Section 4 - the Product Definition Section (PDS).
+More...
+
#include <stdlib.h>
+
#include "grib2.h "
+
#include "pdstemplates.h "
+
+
Go to the source code of this file.
+
+
+
Functions for GRIB2 Product Definition Templates used in Section 4 - the Product Definition Section (PDS).
+
+
+
+Date Programmer Comments
+
+2001-06-28 Gilbert Initial
+
+2009-01-14 Vuong Changed structure name template to gtemplate
+
+2009-12-15 Vuong Added Product Definition Templates 4.31, 4.15
+
+2010-08-03 Vuong Added Product Definition Template 4.42 and 4.43
+
+2010-12-08 Vuong Corrected Product Definition Template 4.42 and 4.43
+
+2012-03-29 Vuong Added Templates 4.44,4.45,4.46,4.47,4.48,4.50, 4.51,4.91,4.32 and 4.52
+
+2013-08-05 Vuong Corrected 4.91 and added Templates 4.33,4.34,4.53,4.54
+
+2015-10-07 Vuong Added Templates 4.57, 4.60, 4.61 and allow a forecast time to be negative
+
+
Author Stephen Gilbert
+
Date 2001-06-28
+
+
Definition in file pdstemplates.c .
+
+
+
◆
+
+
+
+
+
This subroutine generates the remaining octet map for a given Product Definition Template, if required.
+
Some Templates can vary depending on data values given in an earlier part of the Template, and it is necessary to know some of the earlier entry values to generate the full octet map of the Template.
+
This function allocates memory in the ext field of the gtemplate struct. This memory must be freed by the caller.
+
Parameters
+
+ number number of the Product Definition Template 4.NN that is being requested. list The list of values for each entry in the the Product Definition Template.
+
+
+
Returns Pointer to the returned template struct. Returns NULL pointer if template not found.
+
Author Stephen Gilbert
+
Date 2000-05-11
+
+
Definition at line 121 of file pdstemplates.c .
+
+
References getpdsindex() , and getpdstemplate() .
+
+
Referenced by g2_addfield() , and g2_unpack4() .
+
+
+
+
+
◆
+
+
+
+
+
This function returns the index of specified Product Definition Template in array templates.
+
Parameters
+
+ number The number of the Product Definition Template that is being requested.
+
+
+
Returns Index of PDT in array templates, if template exists. -1, otherwise.
+
Author Stephen Gilbert
+
Date 2001-06-28
+
+
Definition at line 38 of file pdstemplates.c .
+
+
References MAXPDSTEMP , and templatespds .
+
+
Referenced by extpdstemplate() , and getpdstemplate() .
+
+
+
+
+
◆
+
+
+
+
+
This subroutine returns PDS template information for a specified Product Definition Template.
+
The number of entries in the template is returned along with a map of the number of octets occupied by each entry. Also, a flag is returned to indicate whether the template would need to be extended.
+
This function allocates memory for the gtemplate struct, which must be freed by the caller.
+
Parameters
+
+ number the number of the Product Definition Template that is being requested.
+
+
+
Returns Pointer to the returned template struct. Returns NULL pointer if template not found.
+
Author Stephen Gilbert
+
Date 2000-05-11
+
+
Definition at line 73 of file pdstemplates.c .
+
+
References getpdsindex() , pdstemplate::mappdslen , pdstemplate::needext , pdstemplate::template_num , and templatespds .
+
+
Referenced by extpdstemplate() , g2_addfield() , and g2_unpack4() .
+
+
+
+
+
NCEPLIBS-g2c: pdstemplates.c Source File
+
+
+
+
+
+
+ NCEPLIBS-g2c
+ 1.6.4
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
Go to the documentation of this file.
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
93 printf(
"getpdstemplate: PDS Template 4.%d not defined.\n" , (
int )number);
+
+
+
+
+
+
+
+
+
+
+
124 g2int index, i, j, k, l;
+
+
+
+
+
+
+
+
+
+
+
+
+
137 new ->extlen = list[26];
+
138 new ->ext = malloc(
sizeof (
g2int ) * new->extlen);
+
139 for (i = 0; i <
new ->extlen; i++)
+
+
+
+
+
144 else if (number == 4)
+
+
146 new ->extlen = list[25];
+
147 new ->ext = malloc(
sizeof (
g2int ) * new->extlen);
+
148 for (i = 0; i <
new ->extlen; i++)
+
+
+
+
+
153 else if (number == 8)
+
+
+
+
157 new ->extlen = (list[21] - 1) * 6;
+
158 new ->ext = malloc(
sizeof (
g2int ) * new->extlen);
+
159 for (j = 2; j <= list[21]; j++)
+
+
+
162 for (k = 0; k < 6; k++)
+
+
164 new ->ext[l+k] =
new ->map[23 + k];
+
+
+
+
+
169 else if (number == 9)
+
+
+
+
173 new ->extlen = (list[28] - 1) * 6;
+
174 new ->ext = malloc(
sizeof (
g2int ) * new->extlen);
+
175 for (j = 2; j <= list[28]; j++)
+
+
+
178 for (k = 0; k < 6; k++)
+
+
180 new ->ext[l + k] =
new ->map[30 + k];
+
+
+
+
+
185 else if (number == 10)
+
+
+
+
189 new ->extlen = (list[22] - 1) * 6;
+
190 new ->ext = (
g2int *)malloc(
sizeof (
g2int )*
new ->extlen);
+
191 for (j = 2; j <= list[22]; j++)
+
+
+
194 for (k = 0; k < 6; k++)
+
+
196 new ->ext[l + k] =
new ->map[24 + k];
+
+
+
+
+
201 else if (number == 11)
+
+
+
+
205 new ->extlen = (list[24] - 1) * 6;
+
206 new ->ext = malloc(
sizeof (
g2int ) * new->extlen);
+
207 for (j = 2; j <= list[24]; j++)
+
+
+
210 for (k = 0; k < 6; k++)
+
+
212 new ->ext[l + k] =
new ->map[26 + k];
+
+
+
+
+
217 else if (number == 12)
+
+
+
+
221 new ->extlen = (list[23] - 1) * 6;
+
222 new ->ext = malloc(
sizeof (
g2int ) * new->extlen);
+
223 for (j = 2; j <= list[23]; j++)
+
+
+
226 for (k = 0; k < 6; k++)
+
+
228 new ->ext[l + k] =
new ->map[25 + k];
+
+
+
+
+
233 else if (number == 13)
+
+
235 new ->extlen = ((list[37] - 1) * 6) + list[26];
+
236 new ->ext = malloc(
sizeof (
g2int ) * new->extlen);
+
+
+
239 for (j = 2; j <= list[37]; j++)
+
+
+
242 for (k = 0; k < 6; k++)
+
+
244 new ->ext[l + k] =
new ->map[39 + k];
+
+
+
+
248 l = (list[37] - 1) * 6;
+
+
+
251 for (i = 0; i < list[26]; i++)
+
+
+
+
+
256 else if (number == 14)
+
+
258 new ->extlen = ((list[36] - 1) * 6) + list[25];
+
259 new ->ext = malloc(
sizeof (
g2int ) * new->extlen);
+
+
+
262 for (j = 2; j <= list[36]; j++)
+
+
+
265 for (k = 0; k < 6; k++)
+
+
267 new ->ext[l + k] =
new ->map[38 + k];
+
+
+
+
271 l = (list[36] - 1) * 6;
+
+
+
274 for (i = 0; i < list[25]; i++)
+
+
+
+
+
279 else if (number == 30)
+
+
281 new ->extlen = list[4] * 5;
+
282 new ->ext = malloc(
sizeof (
g2int ) * new->extlen);
+
283 for (i = 0;i < list[4]; i++)
+
+
+
+
+
+
+
+
+
+
293 else if (number == 31)
+
+
295 new ->extlen = list[4] * 5;
+
296 new ->ext = malloc(
sizeof (
g2int ) * new->extlen);
+
297 for (i = 0; i < list[4]; i++)
+
+
+
+
+
+
+
+
+
+
307 else if (number == 42)
+
+
+
+
311 new ->extlen = (list[22] - 1) * 6;
+
312 new ->ext = malloc(
sizeof (
g2int ) * new->extlen);
+
313 for (j = 2; j <= list[22]; j++)
+
+
+
316 for (k = 0; k < 6; k++)
+
+
318 new ->ext[l + k] =
new ->map[24 + k];
+
+
+
+
+
323 else if (number == 43)
+
+
+
+
327 new ->extlen = (list[25] - 1) * 6;
+
328 new ->ext = malloc(
sizeof (
g2int ) * new->extlen);
+
329 for (j = 2; j <= list[25]; j++)
+
+
+
332 for (k = 0; k < 6; k++)
+
+
334 new ->ext[l + k] =
new ->map[27 + k];
+
+
+
+
+
339 else if (number == 32)
+
+
341 new ->extlen = list[9] * 10;
+
342 new ->ext = malloc(
sizeof (
g2int ) * new->extlen);
+
343 for (i = 0; i < list[9]; i++)
+
+
+
+
+
+
349 new ->ext[l + 3] = -1;
+
350 new ->ext[l + 4] = -4;
+
+
+
353 else if (number == 46)
+
+
+
+
357 new ->extlen = (list[27] - 1) * 6;
+
358 new ->ext = malloc(
sizeof (
g2int ) * new->extlen);
+
359 for (j = 2; j <= list[27]; j++)
+
+
+
362 for (k = 0; k < 6; k++)
+
+
364 new ->ext[l + k] =
new ->map[29 + k];
+
+
+
+
+
369 else if (number == 47)
+
+
+
+
373 new ->extlen = (list[30] - 1) * 6;
+
374 new ->ext = malloc(
sizeof (
g2int ) * new->extlen);
+
375 for (j = 2; j <= list[30]; j++)
+
+
+
378 for (k = 0; k < 6; k++)
+
+
380 new ->ext[l + k] =
new ->map[32 + k];
+
+
+
+
384 else if (number == 51)
+
+
386 new ->extlen = list[15]*11;
+
387 new ->ext = malloc(
sizeof (
g2int ) * new->extlen);
+
388 for (i = 0; i < list[15]; i++)
+
+
+
+
+
+
+
+
+
+
+
399 else if (number == 33)
+
+
401 new ->extlen = list[9];
+
402 new ->ext = malloc(
sizeof (
g2int ) * new->extlen);
+
403 for (i = 0; i <
new ->extlen; i++)
+
+
+
+
+
408 else if (number == 34)
+
+
410 new ->extlen = ((list[24] - 1) * 6)+list[9];
+
411 new ->ext = malloc(
sizeof (
g2int ) * new->extlen);
+
+
+
414 for (j = 2; j <= list[24]; j++)
+
+
+
417 for (k = 0; k < 6; k++)
+
+
419 new ->ext[l + k] =
new ->map[26 + k];
+
+
+
+
423 l = (list[24] - 1) * 6;
+
+
+
426 for (i = 0; i < list[9]; i++)
+
+
+
+
+
431 else if (number == 53)
+
+
433 new ->extlen = list[3];
+
434 new ->ext = malloc(
sizeof (
g2int ) * new->extlen);
+
435 for (i = 0; i <
new ->extlen; i++)
+
+
+
+
+
440 else if (number == 54)
+
+
442 new ->extlen = list[3];
+
443 new ->ext = malloc(
sizeof (
g2int ) * new->extlen);
+
444 for (i = 0;i<
new ->extlen;i++)
+
+
+
+
+
449 else if (number == 91)
+
+
451 new ->extlen = ((list[28] - 1) * 6)+list[15];
+
452 new ->ext = malloc(
sizeof (
g2int ) * new->extlen);
+
+
+
455 for (j = 2; j <= list[28]; j++)
+
+
+
458 for (k = 0; k < 6; k++)
+
+
460 new ->ext[l + k] =
new ->map[30 + k];
+
+
+
+
464 l = (list[29] - 1) * 6;
+
+
+
467 for (i = 0; i < list[15]; i++)
+
+
+
+
+
+
473 else if (number == 57)
+
+
475 new ->extlen = list[6] * 15;
+
476 new ->ext = malloc(
sizeof (
g2int ) * new->extlen);
+
477 for (i = 0; i < list[6]; i++)
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
498 else if (number == 61)
+
+
+
+
502 new ->extlen = (list[30] - 1) * 6;
+
503 new ->ext = malloc(
sizeof (
g2int ) * new->extlen);
+
504 for (j = 2; j <= list[30]; j++)
+
+
+
507 for (k = 0; k < 6; k++)
+
+
509 new ->ext[l + k] =
new ->map[32 + k];
+
+
+
+
+
+
+
+
+
Header file for NCEPLIBS-g2c library.
+
int64_t g2int
Long integer type.
+
Struct for GRIB template.
+
gtemplate * extpdstemplate(g2int number, g2int *list)
This subroutine generates the remaining octet map for a given Product Definition Template,...
+
g2int getpdsindex(g2int number)
This function returns the index of specified Product Definition Template in array templates.
+
gtemplate * getpdstemplate(g2int number)
This subroutine returns PDS template information for a specified Product Definition Template.
+
This include file contains info on all the available GRIB2 Product Definition Templates used in [Sect...
+
#define MAXPDSTEMP
Maximum number of templates.
+
g2int needext
Does template need extension?
+
const struct pdstemplate templatespds[MAXPDSTEMP]
Date for struct for PDS template.
+
g2int template_num
Template number.
+
g2int mappdslen
The number of entries in the template.
+
+
NCEPLIBS-g2c: pdstemplates.h File Reference
+
+
+
+
+
+
+ NCEPLIBS-g2c
+ 1.6.4
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
This include file contains info on all the available GRIB2 Product Definition Templates used in [Section 4 - the Product Definition Section (PDS)](https://www.nco.ncep.noaa.gov/pmb/docs/grib2/grib2_doc/grib2_sect4.shtml ).
+More...
+
+
Go to the source code of this file.
+
+
+
This include file contains info on all the available GRIB2 Product Definition Templates used in [Section 4 - the Product Definition Section (PDS)](https://www.nco.ncep.noaa.gov/pmb/docs/grib2/grib2_doc/grib2_sect4.shtml ).
+
Each Template has three parts:
+The number of entries in the template (mappdslen).
+A map of the template (mappds), which contains the number of octets in which to pack each of the template values.
+A logical value (needext) that indicates whether the Template needs to be extended. In some cases the number of entries in a template can vary depending upon values specified in the "static" part of the template. (See Template 4.3 as an example).
+
+
Note Array mappds contains the number of octets in which the corresponding template values will be stored. A negative value in mappds is used to indicate that the corresponding template entry can contain negative values. This information is used later when packing (or unpacking) the template data values. Negative data values in GRIB are stored with the left most bit set to one, and a negative number of octets value in mappds[] indicates that this possibility should be considered. The number of octets used to store the data value in this case would be the absolute value of the negative value in mappds.
+
+
+
+Date Programmer Comments
+
+2005-12-08 Gilbert Allow negative scale factors, limits for 4.5 and 4.9
+
+2009-12-15 Vuong Added Product Definition Templates 4.31, 4.15
+
+2010-08-03 Vuong Added Product Definition Template 4.40,4.41,4.42,4.43
+
+2010-12-08 Vuong Corrected Definition Template 4.42,4.43
+
+2010-12-08 Vuong Corrected Definition Template 4.42,4.43
+
+2012-03-29 Vuong Added Templates 4.44,4.45,4.46,4.47,4.48,4.50,4.51,4.91,4.32 and 4.52
+
+2013-08-05 Vuong Corrected 4.91 and added Templates 4.33,4.34,4.53,4.54
+
+2015-10-07 Vuong Added Templates 4.57, 4.60, 4.61 and allow a forecast time to be negative
+
+
Author Stephen Gilbert
+
Date 2005-12-08
+
+
Definition in file pdstemplates.h .
+
+
+
◆
+
+
+
+
+
+ struct pdstemplate
+
+
+
+
Struct for PDS template.
+
+
Definition at line 53 of file pdstemplates.h .
+
+Data Fields
+g2int
+
+mappds[MAXPDSMAPLEN ]
+
+Number of bytes for each template value.
+g2int
+
+mappdslen
+
+The number of entries in the template.
+g2int
+
+needext
+
+Does template need extension?
+g2int
+
+template_num
+
+Template number.
+
+
+
+
+
+
◆
+
+
+
+
+
+ #define MAXPDSMAPLEN 200
+
+
+
+
+
Maximum template map length.
+
+
Definition at line 48 of file pdstemplates.h .
+
+
+
+
+
◆
+
+
+
+
+
+ #define MAXPDSTEMP 47
+
+
+
+
+
Maximum number of templates.
+
+
Definition at line 47 of file pdstemplates.h .
+
+
+
+
+
+
◆
+
+
+
+
NCEPLIBS-g2c: pdstemplates.h Source File
+
+
+
+
+
+
+ NCEPLIBS-g2c
+ 1.6.4
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
Go to the documentation of this file.
+
43 #ifndef _pdstemplates_H
+
44 #define _pdstemplates_H
+
+
+
+
48 #define MAXPDSMAPLEN 200
+
+
+
+
+
+
+
+
+
+
+
68 {0,15,0, {1,1,1,1,1,2,1,1,-4,1,-1,-4,1,-1,-4} },
+
71 {1,18,0, {1,1,1,1,1,2,1,1,-4,1,-1,-4,1,-1,-4,1,1,1} },
+
74 {2,17,0, {1,1,1,1,1,2,1,1,-4,1,-1,-4,1,-1,-4,1,1} },
+
77 {3,31,1, {1,1,1,1,1,2,1,1,-4,1,-1,-4,1,-1,-4,1,1,1,1,1,1,1,-4,-4,4,4,1,-1,4,-1,4} },
+
80 {4,30,1, {1,1,1,1,1,2,1,1,-4,1,-1,-4,1,-1,-4,1,1,1,1,1,1,1,-4,4,4,1,-1,4,-1,4} },
+
83 {5,22,0, {1,1,1,1,1,2,1,1,-4,1,-1,-4,1,-1,-4,1,1,1,-1,-4,-1,-4} },
+
86 {6,16,0, {1,1,1,1,1,2,1,1,-4,1,-1,-4,1,-1,-4,1} },
+
89 {7,15,0, {1,1,1,1,1,2,1,1,-4,1,-1,-4,1,-1,-4} },
+
92 {8,29,1, {1,1,1,1,1,2,1,1,-4,1,-1,-4,1,-1,-4,2,1,1,1,1,1,1,4,1,1,1,4,1,4} },
+
95 {9,36,1, {1,1,1,1,1,2,1,1,-4,1,-1,-4,1,-1,-4,1,1,1,-1,-4,-1,-4,2,1,1,1,1,1,1,4,1,1,1,4,1,4} },
+
98 {10,30,1, {1,1,1,1,1,2,1,1,-4,1,-1,-4,1,-1,-4,1,2,1,1,1,1,1,1,4,1,1,1,4,1,4} },
+
101 {11,32,1, {1,1,1,1,1,2,1,1,-4,1,-1,-4,1,-1,-4,1,1,1,2,1,1,1,1,1,1,4,1,1,1,4,1,4} },
+
104 {12,31,1, {1,1,1,1,1,2,1,1,-4,1,-1,-4,1,-1,-4,1,1,2,1,1,1,1,1,1,4,1,1,1,4,1,4} },
+
107 {13,45,1, {1,1,1,1,1,2,1,1,-4,1,-1,-4,1,-1,-4,1,1,1,1,1,1,1,-4,-4,4,4,1,-1,4,-1,4,2,1,1,1,1,1,1,4,1,1,1,4,1,4} },
+
110 {14,44,1, {1,1,1,1,1,2,1,1,-4,1,-1,-4,1,-1,-4,1,1,1,1,1,1,1,-4,4,4,1,-1,4,-1,4,2,1,1,1,1,1,1,4,1,1,1,4,1,4} },
+
113 {15,18,0, {1,1,1,1,1,2,1,1,-4,1,-1,-4,1,-1,-4,1,1,1} },
+
115 {20,19,0, {1,1,1,1,1,-4,4,2,4,2,1,1,1,1,1,2,1,3,2} },
+
117 {30,5,1, {1,1,1,1,1} },
+
119 {31,5,1, {1,1,1,1,1} },
+
122 {40,16,0, {1,1,2,1,1,1,2,1,1,-4,1,-1,-4,1,-1,-4} },
+
125 {41,19,0, {1,1,2,1,1,1,2,1,1,-4,1,-1,-4,1,-1,-4,1,1,1} },
+
129 {42,30,1, {1,1,2,1,1,1,2,1,1,-4,1,-1,-4,1,-1,-4,2,1,1,1,1,1,1,4,1,1,1,4,1,4} },
+
133 {43,33,1, {1,1,2,1,1,1,2,1,1,-4,1,-1,-4,1,-1,-4,1,1,1,2,1,1,1,1,1,1,4,1,1,1,4,1,4} },
+
+
138 {1000,9,0, {1,1,1,1,1,2,1,1,-4} },
+
141 {1001,16,0, {1,1,1,1,1,2,1,1,4,4,1,1,1,4,1,4} },
+
144 {1002,15,0, {1,1,1,1,1,2,1,1,-4,1,1,1,4,4,2} },
+
147 {1100,15,0, {1,1,1,1,1,2,1,1,-4,1,-1,-4,1,-1,-4} },
+
150 {1101,22,0, {1,1,1,1,1,2,1,1,-4,1,-1,-4,1,-1,-4,4,1,1,1,4,1,4} },
+
152 {32,10,1, {1,1,1,1,1,2,1,1,-2,1} },
+
155 {44,21,0, {1,1,2,1,-1,-4,-1,-4,1,1,1,2,1,1,-2,1,-1,-4,1,-1,-4} },
+
159 {45,24,0, {1,1,2,1,-1,-4,-1,-4,1,1,1,2,1,1,-4,1,-1,-4,1,-1,-4,1,1,1} },
+
163 {46,35,1, {1,1,2,1,-1,-4,-1,-4,1,1,1,2,1,1,-4,1,-1,-4,1,-1,-4,2,1,1,1,1,1,1,4,1,1,1,4,1,4} },
+
167 {47,38,1, {1,1,1,2,1,-1,-4,-1,-4,1,1,2,1,1,-4,1,-1,-4,1,-1,-4,1,1,1,2,1,1,1,1,1,1,4,1,1,1,4,1,4} },
+
171 {48,26,0, {1,1,2,1,-1,-4,-1,-4,1,-1,-4,-1,-4,1,1,1,2,1,1,-4,1,-1,-4,1,-1,-4} },
+
+
176 {50,21,0, {1,1,1,1,1,2,1,1,-4,1,-1,-4,1,-1,-4,1,1,4,4,4,4} },
+
+
181 {52,15,0, {1,1,1,1,1,1,1,1,2,1,1,-4,1,-1,-4} },
+
+
185 {51,16,1, {1,1,1,1,1,2,1,1,-4,1,-1,-4,1,-1,-4,1} },
+
+
190 {91,36,1, {1,1,1,1,1,2,1,1,-4,1,-1,-4,1,-1,-4,1,1,1,-1,-4,-1,-4,2,1,1,1,1,1,1,4,1,1,1,4,1,4} },
+
195 {33,18,1, {1,1,1,1,1,2,1,1,-4,1,2,2,2,-1,-4,1,1,1} },
+
200 {34,32,1, {1,1,1,1,1,2,1,1,-4,1,2,2,2,-1,-4,1,1,1,2,1,1,1,1,1,1,4,1,1,1,4,1,4} },
+
205 {53,19,1, {1,1,1,1,4,2,1,1,1,2,1,1,-4,1,-1,-4,1,-1,-4} },
+
210 {54,22,1, {1,1,1,1,4,2,1,1,1,2,1,1,-4,1,-1,-4,1,-1,-4,1,1,1} },
+
216 {57,7,1, {1,1,2,2,2,2,1} },
+
221 {60,24,0, {1,1,1,1,1,2,1,1,-4,1,-1,-4,1,-1,-4,1,1,1,2,1,1,1,1,1} },
+
226 {61,38,1, {1,1,1,1,1,2,1,1,-4,1,-1,-4,1,-1,-4,1,1,1,2,1,1,1,1,1,2,1,1,1,1,1,1,4,1,1,1,4,1,4} },
+
232 {35,6,1, {1,1,1,1,1,1} }
+
+
+
+
+
Header file for NCEPLIBS-g2c library.
+
int64_t g2int
Long integer type.
+
#define MAXPDSTEMP
Maximum number of templates.
+
g2int mappds[MAXPDSMAPLEN]
Number of bytes for each template value.
+
g2int needext
Does template need extension?
+
const struct pdstemplate templatespds[MAXPDSTEMP]
Date for struct for PDS template.
+
#define MAXPDSMAPLEN
Maximum template map length.
+
g2int template_num
Template number.
+
g2int mappdslen
The number of entries in the template.
+
+
+
NCEPLIBS-g2c: pngpack.c File Reference
+
+
+
+
+
+
+ NCEPLIBS-g2c
+ 1.6.4
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
Function to pack data with PNG compression.
+More...
+
#include <stdlib.h>
+
#include <math.h>
+
#include "grib2.h "
+
+
Go to the source code of this file.
+
+
+
Function to pack data with PNG compression.
+
Author Stephen Gilbert
+
Date 2003-08-27
+
+
Definition in file pngpack.c .
+
+
+
◆
+
+
+
+
+
+ int enc_png
+ (
+ char *
+ data ,
+
+ g2int width ,
+
+ g2int height ,
+
+ g2int nbits ,
+
+ char *
+ pngbuf
+
+ )
+
+
+
+
+
Encode PNG.
+
Parameters
+
+ data data. width width. height height. nbits number of bits. pngbuf PNG buffer.
+
+
+
Returns PNG length, or negative number for error.
+
Author Stephen Gilbert
+
+
Definition at line 81 of file enc_png.c .
+
+
References user_flush_data() , and user_write_data() .
+
+
Referenced by pngpack() .
+
+
+
+
+
◆
+
+
+
+
+
+ void pngpack
+ (
+ g2float * fld ,
+
+ g2int width ,
+
+ g2int height ,
+
+ g2int * idrstmpl ,
+
+ unsigned char *
+ cpack ,
+
+ g2int * lcpack
+
+ )
+
+
+
+
+
This subroutine packs up a data field into PNG image format.
+
After the data field is scaled, and the reference value is subtracted out, it is treated as a grayscale image and passed to a PNG encoder. It also fills in GRIB2 Data Representation Template 5.41 or 5.40010 with the appropriate values.
+
Parameters
+
+ fld Contains the data values to pack. width number of points in the x direction. height number of points in the y direction. idrstmpl Contains the array of values for Data Representation Template 5.41 or 5.40010.
+0 Reference value - ignored on input, set by pngpack routine.
+1 Binary Scale Factor - used on input.
+2 Decimal Scale Factor - used on input.
+3 number of bits for each grayscale pixel value - ignored on input.
+4 Original field type - currently ignored on input, set = 0 on output. Data values assumed to be reals.
+
+ cpack The packed data field. lcpack length of packed field cpack.
+
+
+
Author Stephen Gilbert
+
Date 2003-08-27
+
+
Definition at line 38 of file pngpack.c .
+
+
References enc_png() , int_power() , mkieee() , and sbits() .
+
+
Referenced by g2_addfield() .
+
+
+
+
+
NCEPLIBS-g2c: pngpack.c Source File
+
+
+
+
+
+
+ NCEPLIBS-g2c
+ 1.6.4
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
Go to the documentation of this file.
+
+
+
+
+
+
+
+
+
39 unsigned char *cpack,
g2int *lcpack)
+
+
+
42 static g2float alog2 = 0.69314718;
+
43 g2int j, nbits, imin, imax, maxdif;
+
+
45 g2float bscale, dscale, rmax, rmin, temp;
+
+
+
+
49 ndpts = width * height;
+
+
+
+
+
+
+
56 for (j = 1; j < ndpts; j++)
+
+
+
+
+
+
+
63 maxdif = (
g2int )rint((rmax-rmin) * dscale * bscale);
+
+
+
+
+
68 if (rmin != rmax && maxdif != 0)
+
+
70 ifld = malloc(ndpts *
sizeof (
g2int ));
+
+
+
+
+
+
+
+
78 imin = (
g2int )rint(rmin * dscale);
+
79 imax = (
g2int )rint(rmax * dscale);
+
+
81 temp = log((
double )(maxdif + 1)) / alog2;
+
82 nbits = (
g2int )ceil(temp);
+
+
+
85 for (j = 0; j < ndpts; j++)
+
86 ifld[j] = (
g2int )rint(fld[j] * dscale) - imin;
+
+
+
+
+
+
+
+
94 maxdif = (
g2int )rint((rmax - rmin) * bscale);
+
95 temp = log((
double )(maxdif + 1)) / alog2;
+
96 nbits = (
g2int )ceil(temp);
+
+
98 for (j = 0; j < ndpts; j++)
+
99 ifld[j] = (
g2int )rint(((fld[j] * dscale) - rmin) * bscale);
+
+
+
+
+
+
+
106 else if (nbits <= 16)
+
+
108 else if (nbits <= 24)
+
+
+
+
+
113 nbytes = (nbits / 8) * ndpts;
+
114 ctemp = calloc(nbytes, 1);
+
115 sbits (ctemp, ifld, 0, nbits, 0, ndpts);
+
+
+
118 if ((*lcpack = (
g2int )
enc_png ((
char *)ctemp, width, height, nbits, (
char *)cpack)) <= 0)
+
119 printf(
"pngpack: ERROR Packing PNG = %d\n" , (
int )*lcpack);
+
+
+
+
+
+
+
+
+
+
129 mkieee (&rmin, idrstmpl, 1);
+
+
+
+
+
+
void sbits(unsigned char *out, g2int *in, g2int iskip, g2int nbyte, g2int nskip, g2int n)
Store bits - put arbitrary size values into a packed bit string, taking the low order bits from each ...
+
Header file for NCEPLIBS-g2c library.
+
+
int64_t g2int
Long integer type.
+
double int_power(double x, g2int y)
Function similar to C pow() power function.
+
void mkieee(g2float *a, g2int *rieee, g2int num)
This subroutine stores a list of real values in 32-bit IEEE floating point format.
+
int enc_png(char *, g2int, g2int, g2int, char *)
Encode PNG.
+
void pngpack(g2float *fld, g2int width, g2int height, g2int *idrstmpl, unsigned char *cpack, g2int *lcpack)
This subroutine packs up a data field into PNG image format.
+
+
NCEPLIBS-g2c: pngunpack.c File Reference
+
+
+
+
+
+
+ NCEPLIBS-g2c
+ 1.6.4
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
Contains a function to unpack data packed with PNG compression.
+More...
+
#include <stdio.h>
+
#include <stdlib.h>
+
#include "grib2.h "
+
+
Go to the source code of this file.
+
+int dec_png (unsigned char *, g2int *, g2int *, char *) Decode PNG. More... g2int pngunpack (unsigned char *cpack, g2int len, g2int *idrstmpl, g2int ndpts, g2float *fld) This subroutine unpacks a data field that was packed into a PNG image format using info from the GRIB2 Data Representation Template 5.41 or 5.40010. More...
+
+
Contains a function to unpack data packed with PNG compression.
+
Author Stephen Gilbert
+
Date 2003-08-27
+
+
Definition in file pngunpack.c .
+
+
+
◆
+
+
+
+
+
+ int dec_png
+ (
+ unsigned char *
+ pngbuf ,
+
+ g2int * width ,
+
+ g2int * height ,
+
+ char *
+ cout
+
+ )
+
+
+
+
+
Decode PNG.
+
Parameters
+
+ pngbuf Pointer to PNG buffer. width Pointer to width. height Pointer to height. cout Output buffer.
+
+
+
Returns 0 for success, error code otherwise.
+
Author Stephen Gilbert
+
+
Definition at line 71 of file dec_png.c .
+
+
References user_read_data() .
+
+
Referenced by pngunpack() .
+
+
+
+
+
◆
+
+
+
+
+
+ g2int pngunpack (
+ unsigned char *
+ cpack ,
+
+ g2int len ,
+
+ g2int * idrstmpl ,
+
+ g2int ndpts ,
+
+ g2float * fld
+
+ )
+
+
+
+
+
This subroutine unpacks a data field that was packed into a PNG image format using info from the GRIB2 Data Representation Template 5.41 or 5.40010.
+
Parameters
+
+ cpack The packed data field (character*1 array). len length of packed field cpack(). idrstmpl Pointer to array of values for Data Representation Template 5.41 or 5.40010. ndpts The number of data values to unpack. fld Contains the unpacked data values.
+
+
+
Returns 0 for success, 1 for memory allocation error.
+
Author Stephen Gilbert
+
Date 2003-08-27
+
+
Definition at line 30 of file pngunpack.c .
+
+
References dec_png() , gbits() , int_power() , and rdieee() .
+
+
Referenced by g2_unpack7() .
+
+
+
+
+
NCEPLIBS-g2c: pngunpack.c Source File
+
+
+
+
+
+
+ NCEPLIBS-g2c
+ 1.6.4
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
Go to the documentation of this file.
+
+
+
+
+
+
+
+
+
+
+
+
34 g2int j, nbits, width, height;
+
+
+
+
+
+
+
+
+
+
+
+
+
47 ifld = calloc(ndpts,
sizeof (
g2int ));
+
48 ctemp = calloc(ndpts * 4, 1);
+
+
+
51 fprintf(stderr,
"Could not allocate space in jpcunpack.\n Data field NOT upacked.\n" );
+
+
+
54 dec_png (cpack, &width, &height, ctemp);
+
55 gbits (ctemp, ifld, 0, nbits, 0, ndpts);
+
56 for (j = 0; j < ndpts; j++)
+
57 fld[j] = (((
g2float )ifld[j] * bscale) + ref) * dscale;
+
+
+
+
+
+
63 for (j = 0; j < ndpts; j++)
+
+
+
+
+
+
void gbits(unsigned char *in, g2int *iout, g2int iskip, g2int nbyte, g2int nskip, g2int n)
Get bits - unpack bits: Extract arbitrary size values from a packed bit string, right justifying each...
+
Header file for NCEPLIBS-g2c library.
+
+
int64_t g2int
Long integer type.
+
double int_power(double x, g2int y)
Function similar to C pow() power function.
+
int dec_png(unsigned char *, g2int *, g2int *, char *)
Decode PNG.
+
g2int pngunpack(unsigned char *cpack, g2int len, g2int *idrstmpl, g2int ndpts, g2float *fld)
This subroutine unpacks a data field that was packed into a PNG image format using info from the GRIB...
+
void rdieee(g2int *rieee, g2float *a, g2int num)
This subroutine reads a list of real values in 32-bit IEEE floating point format.
+
+
NCEPLIBS-g2c: rdieee.c File Reference
+
+
+
+
+
+
+ NCEPLIBS-g2c
+ 1.6.4
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
Read a list of real values in 32-bit IEEE floating point format.
+More...
+
+
Go to the source code of this file.
+
+
+
Read a list of real values in 32-bit IEEE floating point format.
+
Author Stephen Gilbert
+
Date 2002-10-25
+
+
Definition in file rdieee.c .
+
+
+
◆
+
+
+
+
+
+ void rdieee
+ (
+ g2int * rieee ,
+
+ g2float * a ,
+
+ g2int num
+
+ )
+
+
+
+
+
+
NCEPLIBS-g2c: rdieee.c Source File
+
+
+
+
+
+
+ NCEPLIBS-g2c
+ 1.6.4
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
Go to the documentation of this file.
+
+
+
+
+
+
+
24 g2int isign,iexp,imant;
+
+
+
+
+
+
30 g2int msk2=0x7F800000;
+
31 g2int msk3=0x007FFFFF;
+
+
+
+
+
+
+
+
+
+
+
+
43 isign=(rieee[j]&msk1)>>31;
+
44 iexp=(rieee[j]&msk2)>>23;
+
45 imant=(rieee[j]&msk3);
+
+
+
+
49 if (isign == 1) sign=-1.0;
+
+
51 if ( (iexp > 0) && (iexp < 255) ) {
+
+
53 a[j]=sign*temp*(1.0+(two23*(
g2float )imant));
+
+
55 else if ( iexp == 0 ) {
+
+
57 a[j]=sign*two126*two23*(
g2float )imant;
+
+
+
+
+
62 else if ( iexp == 255 )
+
+
+
+
+
+
+
Header file for NCEPLIBS-g2c library.
+
+
uint64_t g2intu
Unsigned long integer type.
+
int64_t g2int
Long integer type.
+
double int_power(double x, g2int y)
Function similar to C pow() power function.
+
void rdieee(g2int *rieee, g2float *a, g2int num)
This subroutine reads a list of real values in 32-bit IEEE floating point format.
+
+
NCEPLIBS-g2c: reduce.c File Reference
+
+
+
+
+
+
+ NCEPLIBS-g2c
+ 1.6.4
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
Determines whether the number of groups should be increased in order to reduce the size of the large groups, and to make that adjustment.
+More...
+
#include <stdlib.h>
+
#include "grib2.h "
+
+
Go to the source code of this file.
+
+int reduce (integer *kfildo, integer *jmin, integer *jmax, integer *lbit, integer *nov, integer *lx, integer *ndg, integer *ibit, integer *jbit, integer *kbit, integer *novref, integer *ibxx2, integer *ier) Determines whether the number of groups should be increased in order to reduce the size of the large groups, and to make that adjustment. More...
+
+
Determines whether the number of groups should be increased in order to reduce the size of the large groups, and to make that adjustment.
+
Author Harry Glahn, The Meteorological Development Lab (MDL)
+
Date November 2001
+
+
Definition in file reduce.c .
+
+
+
◆
+
+
+
+
+
Integer type.
+
+
Definition at line 14 of file reduce.c .
+
+
+
+
+
◆
+
+
+
+
+
Float type.
+
+
Definition at line 15 of file reduce.c .
+
+
+
+
+
+
◆
+
+
+
+
+
+ int reduce
+ (
+ integer * kfildo ,
+
+ integer * jmin ,
+
+ integer * jmax ,
+
+ integer * lbit ,
+
+ integer * nov ,
+
+ integer * lx ,
+
+ integer * ndg ,
+
+ integer * ibit ,
+
+ integer * jbit ,
+
+ integer * kbit ,
+
+ integer * novref ,
+
+ integer * ibxx2 ,
+
+ integer * ier
+
+ )
+
+
+
+
+
Determines whether the number of groups should be increased in order to reduce the size of the large groups, and to make that adjustment.
+
By reducing the size of the large groups, less bits may be necessary for packing the group sizes and all the information about the groups.
+
The reference for nov was removed in the calling routine so that kbit could be determined. This furnishes a starting point for the iterations in reduce. However, the reference must be considered.
+
PROGRAM HISTORY LOG
+November 2001 Harry Glahn, The Meteorological Development Lab (MDL) tdl grib2
+March 2002 Harry Glahn, The Meteorological Development Lab (MDL) comment ier = 715
+March 2002 Harry Glahn, The Meteorological Development Lab (MDL) modified to accommodate lx=1 on entry
+
+
DATA SET USE
+kfildo - unit number for output (print) file. (output)
+
+
Parameters
+
+ kfildo unit number for output (print) file. (input) jmin the minimum of each group (j=1,lx). it is possible after splitting the groups, jmin( ) will not be the minimum of the new group. this doesn't matter; jmin( ) is really the group reference and doesn't have to be the smallest value. (input/output) jmax the maximum of each group (j=1,lx). (input/output) lbit the number of bits necessary to pack each group (j=1,lx). (input/output) nov the number of values in each group (j=1,lx). (input/output) lx the number of groups. this will be increased if groups are split. (input/output) ndg the dimension of jmin( ), jmax( ), lbit( ), and nov( ). (input) ibit the number of bits necessary to pack the jmin(j) values, j=1,lx. (input) jbit the number of bits necessary to pack the lbit(j) values, j=1,lx. (input) kbit the number of bits necessary to pack the nov(j) values, j=1,lx. if the groups are split, kbit is reduced. (input/output) novref reference value for nov( ). (input) ibxx2 2**j (j=0,30). (input) ier error return. (output)
+0 = good return.
+714 = problem in algorithm. reduce aborted.
+715 = ngp not large enough. reduce aborted.
+
+
+
+
+
Returns always returns 0, see parameter ier for error code.
+
+ntotbt(j) = the total bits used for the packing bits j
+ (j=1,30). (internal)
+ nboxj(j) = new boxes needed for the packing bits j
+ (j=1,30). (internal)
+ newbox(l) = number of new boxes (groups) for each original
+ group (l=1,lx) for the current j. (automatic)
+ (internal)
+ newboxp(l) = same as newbox( ) but for the previous j.
+ this eliminates recomputation. (automatic)
+ (internal)
+ cfeed = contains the character representation
+ of a printer form feed. (character) (internal)
+ ifeed = contains the integer value of a printer
+ form feed. (internal)
+ iorigb = the original number of bits necessary
+ for the group values. (internal)
+ Author Harry Glahn, The Meteorological Development Lab (MDL)
+
Date November 2001
+
+
Definition at line 91 of file reduce.c .
+
+
Referenced by pack_gp() .
+
+
+
+
+
NCEPLIBS-g2c: reduce.c Source File
+
+
+
+
+
+
+ NCEPLIBS-g2c
+ 1.6.4
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
Go to the documentation of this file.
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
104 static integer newboxtp, j, l, m, jj, lxn, left;
+
+
+
107 static char cfeed[1];
+
108 static integer nboxj[31], lxnkp, iorigb, ibxx2m1, movmin,
+
109 ntotbt[31], ntotpr, newboxt;
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
130 *(
unsigned char *)cfeed = (
char ) ifeed;
+
+
+
+
+
135 for (l = 1; l <= i__1; ++l) {
+
+
+
+
+
+
+
142 for (j = 1; j <= 31; ++j) {
+
143 ntotbt[j - 1] = 999999999;
+
+
+
+
+
148 iorigb = (*ibit + *jbit + *kbit) * *lx;
+
+
+
+
+
153 ntotbt[*kbit - 1] = iorigb;
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
169 i__1 = 30, i__2 = *kbit - 1;
+
+
171 for (j = (i__1 < i__2) ? i__1 : i__2; j >= 2; --j) {
+
+
+
+
+
+
+
+
179 for (l = 1; l <= i__1; ++l) {
+
+
181 if (nov[l] < ibxx2[j]) {
+
+
+
+
+
+
+
188 m = (nov[l] - 1) / (ibxx2[j] - 1) + 1;
+
+
+
+
+
+
194 novl = (nov[l] + m - 1) / m;
+
+
+
+
+
199 if (novl < ibxx2[j]) {
+
+
+
+
+
+
+
+
+
+
+
+
+
212 newbox[l - 1] = m - 1;
+
213 newboxt = newboxt + m - 1;
+
+
+
+
+
218 nboxj[j - 1] = newboxt;
+
+
220 ntotbt[j - 1] = (*ibit + *jbit) * (*lx + newboxt) + j * (*lx +
+
+
+
223 if (ntotbt[j - 1] >= ntotpr) {
+
+
+
+
+
+
+
+
+
+
+
+
235 for (l = 1; l <= i__1; ++l) {
+
236 newboxp[l - 1] = newbox[l - 1];
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
268 pimp = (iorigb - ntotbt[jj - 1]) / (
real ) iorigb * 100.f;
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
288 lxnkp = *lx + newboxtp;
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
308 ibxx2m1 = ibxx2[jj] - 1;
+
+
+
311 for (l = *lx; l >= 1; --l) {
+
+
+
+
+
+
+
318 if (newboxp[l - 1] * (ibxx2m1 + *novref) + *novref > nov[l] + *
+
+
+
+
+
323 movmin = (nov[l] - newboxp[l - 1] * *novref) / newboxp[l - 1];
+
+
+
+
+
+
+
+
+
+
+
+
335 if (newboxp[l - 1] > 0) {
+
336 if ((movmin + *novref) * newboxp[l - 1] + *novref <= nov[l] +
+
337 *novref && (movmin + *novref) * (newboxp[l - 1] + 1)
+
338 >= nov[l] + *novref) {
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
356 i__1 = newboxp[l - 1] + 1;
+
357 for (j = 1; j <= i__1; ++j) {
+
+
359 move = (movmin < left) ? movmin : left;
+
+
+
+
+
+
365 left -= move + *novref;
+
+
+
+
+
+
371 if (left != -(*novref)) {
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
404 if ( newbox != 0 ) free(newbox);
+
405 if ( newboxp != 0 ) free(newboxp);
+
+
+
Header file for NCEPLIBS-g2c library.
+
+
int64_t g2int
Long integer type.
+
g2int integer
Integer type.
+
g2int integer
Integer type.
+
+
int reduce(integer *kfildo, integer *jmin, integer *jmax, integer *lbit, integer *nov, integer *lx, integer *ndg, integer *ibit, integer *jbit, integer *kbit, integer *novref, integer *ibxx2, integer *ier)
Determines whether the number of groups should be increased in order to reduce the size of the large ...
+
+
=desktop_vp) {
+ if (!collapsed) {
+ collapseExpand();
+ }
+ } else if (width>desktop_vp && collapsedWidth0) {
+ restoreWidth(0);
+ collapsed=true;
+ }
+ else {
+ var width = readCookie('width');
+ if (width>200 && width<$(window).width()) { restoreWidth(width); } else { restoreWidth(200); }
+ collapsed=false;
+ }
+ }
+
+ header = $("#top");
+ sidenav = $("#side-nav");
+ content = $("#doc-content");
+ navtree = $("#nav-tree");
+ footer = $("#nav-path");
+ $(".side-nav-resizable").resizable({resize: function(e, ui) { resizeWidth(); } });
+ $(sidenav).resizable({ minWidth: 0 });
+ $(window).resize(function() { resizeHeight(); });
+ var device = navigator.userAgent.toLowerCase();
+ var touch_device = device.match(/(iphone|ipod|ipad|android)/);
+ if (touch_device) { /* wider split bar for touch only devices */
+ $(sidenav).css({ paddingRight:'20px' });
+ $('.ui-resizable-e').css({ width:'20px' });
+ $('#nav-sync').css({ right:'34px' });
+ barWidth=20;
+ }
+ var width = readCookie('width');
+ if (width) { restoreWidth(width); } else { resizeWidth(); }
+ resizeHeight();
+ var url = location.href;
+ var i=url.indexOf("#");
+ if (i>=0) window.location.hash=url.substr(i);
+ var _preventDefault = function(evt) { evt.preventDefault(); };
+ $("#splitbar").bind("dragstart", _preventDefault).bind("selectstart", _preventDefault);
+ $(".ui-resizable-handle").dblclick(collapseExpand);
+ $(window).on('load',resizeHeight);
+}
+/* @license-end */
diff --git a/ver-1.7.0/ver-1.6.4/search/all_0.html b/ver-1.7.0/ver-1.6.4/search/all_0.html
new file mode 100644
index 00000000..1ec5b2d5
--- /dev/null
+++ b/ver-1.7.0/ver-1.6.4/search/all_0.html
@@ -0,0 +1,37 @@
+
+
+
+
Loading...
+
+
+
Searching...
+
No Matches
+
+
+
Loading...
+
+
+
Searching...
+
No Matches
+
+
+
Loading...
+
+
+
Searching...
+
No Matches
+
+
+
Loading...
+
+
+
Searching...
+
No Matches
+
+
+
Loading...
+
+
+
Searching...
+
No Matches
+
+
+
Loading...
+
+
+
Searching...
+
No Matches
+
+
+
Loading...
+
+
+
Searching...
+
No Matches
+
+
+
Loading...
+
+
+
Searching...
+
No Matches
+
+
+
Loading...
+
+
+
Searching...
+
No Matches
+
+
+
Loading...
+
+
+
Searching...
+
No Matches
+
+
+
Loading...
+
+
+
Searching...
+
No Matches
+
+
+
Loading...
+
+
+
Searching...
+
No Matches
+
+
+
Loading...
+
+
+
Searching...
+
No Matches
+
+
+
Loading...
+
+
+
Searching...
+
No Matches
+
+
+
Loading...
+
+
+
Searching...
+
No Matches
+
+
+
Loading...
+
+
+
Searching...
+
No Matches
+
+
+
Loading...
+
+
+
Searching...
+
No Matches
+
+
+
Loading...
+
+
+
Searching...
+
No Matches
+
+
+
Loading...
+
+
+
Searching...
+
No Matches
+
+
+
Loading...
+
+
+
Searching...
+
No Matches
+
+
+
+
+
+ image/svg+xml
+
+
+
+
diff --git a/ver-1.7.0/ver-1.6.4/search/defines_0.html b/ver-1.7.0/ver-1.6.4/search/defines_0.html
new file mode 100644
index 00000000..15cc3de3
--- /dev/null
+++ b/ver-1.7.0/ver-1.6.4/search/defines_0.html
@@ -0,0 +1,37 @@
+
+
+
+
Loading...
+
+
+
Searching...
+
No Matches
+
+
+
Loading...
+
+
+
Searching...
+
No Matches
+
+
+
Loading...
+
+
+
Searching...
+
No Matches
+
+
+
Loading...
+
+
+
Searching...
+
No Matches
+
+
+
Loading...
+
+
+
Searching...
+
No Matches
+
+
+
Loading...
+
+
+
Searching...
+
No Matches
+
+
+
Loading...
+
+
+
Searching...
+
No Matches
+
+
+
Loading...
+
+
+
Searching...
+
No Matches
+
+
+
Loading...
+
+
+
Searching...
+
No Matches
+
+
+
Loading...
+
+
+
Searching...
+
No Matches
+
+
+
Loading...
+
+
+
Searching...
+
No Matches
+
+
+
Loading...
+
+
+
Searching...
+
No Matches
+
+
+
Loading...
+
+
+
Searching...
+
No Matches
+
+
+
Loading...
+
+
+
Searching...
+
No Matches
+
+
+
Loading...
+
+
+
Searching...
+
No Matches
+
+
+
Loading...
+
+
+
Searching...
+
No Matches
+
+
+
Loading...
+
+
+
Searching...
+
No Matches
+
+
+
Loading...
+
+
+
Searching...
+
No Matches
+
+
+
Loading...
+
+
+
Searching...
+
No Matches
+
+
+
Loading...
+
+
+
Searching...
+
No Matches
+
+
+
Loading...
+
+
+
Searching...
+
No Matches
+
+
+
Loading...
+
+
+
Searching...
+
No Matches
+
+
+
Loading...
+
+
+
Searching...
+
No Matches
+
+
+
Loading...
+
+
+
Searching...
+
No Matches
+
+
+
Loading...
+
+
+
Searching...
+
No Matches
+
+
+
Loading...
+
+
+
Searching...
+
No Matches
+
+
+
Loading...
+
+
+
Searching...
+
No Matches
+
+
+
+
+
+ image/svg+xml
+
+
+
+
diff --git a/ver-1.7.0/ver-1.6.4/search/nomatches.html b/ver-1.7.0/ver-1.6.4/search/nomatches.html
new file mode 100644
index 00000000..2b9360b6
--- /dev/null
+++ b/ver-1.7.0/ver-1.6.4/search/nomatches.html
@@ -0,0 +1,13 @@
+
+
+ object is the parent of the search bar */
+ display: flex;
+ justify-content: center;
+ align-items: center;
+ height: 36px;
+ margin-right: 1em;
+}
+
+/*---------------- Search filter selection */
+
+#MSearchSelectWindow {
+ display: none;
+ position: absolute;
+ left: 0; top: 0;
+ border: 1px solid #90A5CE;
+ background-color: #F9FAFC;
+ z-index: 10001;
+ padding-top: 4px;
+ padding-bottom: 4px;
+ -moz-border-radius: 4px;
+ -webkit-border-top-left-radius: 4px;
+ -webkit-border-top-right-radius: 4px;
+ -webkit-border-bottom-left-radius: 4px;
+ -webkit-border-bottom-right-radius: 4px;
+ -webkit-box-shadow: 5px 5px 5px rgba(0, 0, 0, 0.15);
+}
+
+.SelectItem {
+ font: 8pt Arial, Verdana, sans-serif;
+ padding-left: 2px;
+ padding-right: 12px;
+ border: 0px;
+}
+
+span.SelectionMark {
+ margin-right: 4px;
+ font-family: monospace;
+ outline-style: none;
+ text-decoration: none;
+}
+
+a.SelectItem {
+ display: block;
+ outline-style: none;
+ color: #000000;
+ text-decoration: none;
+ padding-left: 6px;
+ padding-right: 12px;
+}
+
+a.SelectItem:focus,
+a.SelectItem:active {
+ color: #000000;
+ outline-style: none;
+ text-decoration: none;
+}
+
+a.SelectItem:hover {
+ color: #FFFFFF;
+ background-color: #3D578C;
+ outline-style: none;
+ text-decoration: none;
+ cursor: pointer;
+ display: block;
+}
+
+/*---------------- Search results window */
+
+iframe#MSearchResults {
+ width: 60ex;
+ height: 15em;
+}
+
+#MSearchResultsWindow {
+ display: none;
+ position: absolute;
+ left: 0; top: 0;
+ border: 1px solid #000;
+ background-color: #EEF1F7;
+ z-index:10000;
+}
+
+/* ----------------------------------- */
+
+
+#SRIndex {
+ clear:both;
+ padding-bottom: 15px;
+}
+
+.SREntry {
+ font-size: 10pt;
+ padding-left: 1ex;
+}
+
+.SRPage .SREntry {
+ font-size: 8pt;
+ padding: 1px 5px;
+}
+
+body.SRPage {
+ margin: 5px 2px;
+}
+
+.SRChildren {
+ padding-left: 3ex; padding-bottom: .5em
+}
+
+.SRPage .SRChildren {
+ display: none;
+}
+
+.SRSymbol {
+ font-weight: bold;
+ color: #425E97;
+ font-family: Arial, Verdana, sans-serif;
+ text-decoration: none;
+ outline: none;
+}
+
+a.SRScope {
+ display: block;
+ color: #425E97;
+ font-family: Arial, Verdana, sans-serif;
+ text-decoration: none;
+ outline: none;
+}
+
+a.SRSymbol:focus, a.SRSymbol:active,
+a.SRScope:focus, a.SRScope:active {
+ text-decoration: underline;
+}
+
+span.SRScope {
+ padding-left: 4px;
+ font-family: Arial, Verdana, sans-serif;
+}
+
+.SRPage .SRStatus {
+ padding: 2px 5px;
+ font-size: 8pt;
+ font-style: italic;
+ font-family: Arial, Verdana, sans-serif;
+}
+
+.SRResult {
+ display: none;
+}
+
+div.searchresults {
+ margin-left: 10px;
+ margin-right: 10px;
+}
+
+/*---------------- External search page results */
+
+.searchresult {
+ background-color: #F0F3F8;
+}
+
+.pages b {
+ color: white;
+ padding: 5px 5px 3px 5px;
+ background-image: url("../tab_a.png");
+ background-repeat: repeat-x;
+ text-shadow: 0 1px 1px #000000;
+}
+
+.pages {
+ line-height: 17px;
+ margin-left: 4px;
+ text-decoration: none;
+}
+
+.hl {
+ font-weight: bold;
+}
+
+#searchresults {
+ margin-bottom: 20px;
+}
+
+.searchpages {
+ margin-top: 10px;
+}
+
diff --git a/ver-1.7.0/ver-1.6.4/search/search.js b/ver-1.7.0/ver-1.6.4/search/search.js
new file mode 100644
index 00000000..fb226f73
--- /dev/null
+++ b/ver-1.7.0/ver-1.6.4/search/search.js
@@ -0,0 +1,816 @@
+/*
+ @licstart The following is the entire license notice for the JavaScript code in this file.
+
+ The MIT License (MIT)
+
+ Copyright (C) 1997-2020 by Dimitri van Heesch
+
+ Permission is hereby granted, free of charge, to any person obtaining a copy of this software
+ and associated documentation files (the "Software"), to deal in the Software without restriction,
+ including without limitation the rights to use, copy, modify, merge, publish, distribute,
+ sublicense, and/or sell copies of the Software, and to permit persons to whom the Software is
+ furnished to do so, subject to the following conditions:
+
+ The above copyright notice and this permission notice shall be included in all copies or
+ substantial portions of the Software.
+
+ THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR IMPLIED, INCLUDING
+ BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
+ NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM,
+ DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
+ OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
+
+ @licend The above is the entire license notice for the JavaScript code in this file
+ */
+function convertToId(search)
+{
+ var result = '';
+ for (i=0;i do a search
+ {
+ this.Search();
+ }
+ }
+
+ this.OnSearchSelectKey = function(evt)
+ {
+ var e = (evt) ? evt : window.event; // for IE
+ if (e.keyCode==40 && this.searchIndex0) // Up
+ {
+ this.searchIndex--;
+ this.OnSelectItem(this.searchIndex);
+ }
+ else if (e.keyCode==13 || e.keyCode==27)
+ {
+ this.OnSelectItem(this.searchIndex);
+ this.CloseSelectionWindow();
+ this.DOMSearchField().focus();
+ }
+ return false;
+ }
+
+ // --------- Actions
+
+ // Closes the results window.
+ this.CloseResultsWindow = function()
+ {
+ this.DOMPopupSearchResultsWindow().style.display = 'none';
+ this.DOMSearchClose().style.display = 'none';
+ this.Activate(false);
+ }
+
+ this.CloseSelectionWindow = function()
+ {
+ this.DOMSearchSelectWindow().style.display = 'none';
+ }
+
+ // Performs a search.
+ this.Search = function()
+ {
+ this.keyTimeout = 0;
+
+ // strip leading whitespace
+ var searchValue = this.DOMSearchField().value.replace(/^ +/, "");
+
+ var code = searchValue.toLowerCase().charCodeAt(0);
+ var idxChar = searchValue.substr(0, 1).toLowerCase();
+ if ( 0xD800 <= code && code <= 0xDBFF && searchValue > 1) // surrogate pair
+ {
+ idxChar = searchValue.substr(0, 2);
+ }
+
+ var resultsPage;
+ var resultsPageWithSearch;
+ var hasResultsPage;
+
+ var idx = indexSectionsWithContent[this.searchIndex].indexOf(idxChar);
+ if (idx!=-1)
+ {
+ var hexCode=idx.toString(16);
+ resultsPage = this.resultsPath + '/' + indexSectionNames[this.searchIndex] + '_' + hexCode + this.extension;
+ resultsPageWithSearch = resultsPage+'?'+escape(searchValue);
+ hasResultsPage = true;
+ }
+ else // nothing available for this search term
+ {
+ resultsPage = this.resultsPath + '/nomatches' + this.extension;
+ resultsPageWithSearch = resultsPage;
+ hasResultsPage = false;
+ }
+
+ window.frames.MSearchResults.location = resultsPageWithSearch;
+ var domPopupSearchResultsWindow = this.DOMPopupSearchResultsWindow();
+
+ if (domPopupSearchResultsWindow.style.display!='block')
+ {
+ var domSearchBox = this.DOMSearchBox();
+ this.DOMSearchClose().style.display = 'inline-block';
+ if (this.insideFrame)
+ {
+ var domPopupSearchResults = this.DOMPopupSearchResults();
+ domPopupSearchResultsWindow.style.position = 'relative';
+ domPopupSearchResultsWindow.style.display = 'block';
+ var width = document.body.clientWidth - 8; // the -8 is for IE :-(
+ domPopupSearchResultsWindow.style.width = width + 'px';
+ domPopupSearchResults.style.width = width + 'px';
+ }
+ else
+ {
+ var domPopupSearchResults = this.DOMPopupSearchResults();
+ var left = getXPos(domSearchBox) + 150; // domSearchBox.offsetWidth;
+ var top = getYPos(domSearchBox) + 20; // domSearchBox.offsetHeight + 1;
+ domPopupSearchResultsWindow.style.display = 'block';
+ left -= domPopupSearchResults.offsetWidth;
+ domPopupSearchResultsWindow.style.top = top + 'px';
+ domPopupSearchResultsWindow.style.left = left + 'px';
+ }
+ }
+
+ this.lastSearchValue = searchValue;
+ this.lastResultsPage = resultsPage;
+ }
+
+ // -------- Activation Functions
+
+ // Activates or deactivates the search panel, resetting things to
+ // their default values if necessary.
+ this.Activate = function(isActive)
+ {
+ if (isActive || // open it
+ this.DOMPopupSearchResultsWindow().style.display == 'block'
+ )
+ {
+ this.DOMSearchBox().className = 'MSearchBoxActive';
+
+ var searchField = this.DOMSearchField();
+
+ if (searchField.value == this.searchLabel) // clear "Search" term upon entry
+ {
+ searchField.value = '';
+ this.searchActive = true;
+ }
+ }
+ else if (!isActive) // directly remove the panel
+ {
+ this.DOMSearchBox().className = 'MSearchBoxInactive';
+ this.DOMSearchField().value = this.searchLabel;
+ this.searchActive = false;
+ this.lastSearchValue = ''
+ this.lastResultsPage = '';
+ }
+ }
+}
+
+// -----------------------------------------------------------------------
+
+// The class that handles everything on the search results page.
+function SearchResults(name)
+{
+ // The number of matches from the last run of .
+ this.lastMatchCount = 0;
+ this.lastKey = 0;
+ this.repeatOn = false;
+
+ // Toggles the visibility of the passed element ID.
+ this.FindChildElement = function(id)
+ {
+ var parentElement = document.getElementById(id);
+ var element = parentElement.firstChild;
+
+ while (element && element!=parentElement)
+ {
+ if (element.nodeName.toLowerCase() == 'div' && element.className == 'SRChildren')
+ {
+ return element;
+ }
+
+ if (element.nodeName.toLowerCase() == 'div' && element.hasChildNodes())
+ {
+ element = element.firstChild;
+ }
+ else if (element.nextSibling)
+ {
+ element = element.nextSibling;
+ }
+ else
+ {
+ do
+ {
+ element = element.parentNode;
+ }
+ while (element && element!=parentElement && !element.nextSibling);
+
+ if (element && element!=parentElement)
+ {
+ element = element.nextSibling;
+ }
+ }
+ }
+ }
+
+ this.Toggle = function(id)
+ {
+ var element = this.FindChildElement(id);
+ if (element)
+ {
+ if (element.style.display == 'block')
+ {
+ element.style.display = 'none';
+ }
+ else
+ {
+ element.style.display = 'block';
+ }
+ }
+ }
+
+ // Searches for the passed string. If there is no parameter,
+ // it takes it from the URL query.
+ //
+ // Always returns true, since other documents may try to call it
+ // and that may or may not be possible.
+ this.Search = function(search)
+ {
+ if (!search) // get search word from URL
+ {
+ search = window.location.search;
+ search = search.substring(1); // Remove the leading '?'
+ search = unescape(search);
+ }
+
+ search = search.replace(/^ +/, ""); // strip leading spaces
+ search = search.replace(/ +$/, ""); // strip trailing spaces
+ search = search.toLowerCase();
+ search = convertToId(search);
+
+ var resultRows = document.getElementsByTagName("div");
+ var matches = 0;
+
+ var i = 0;
+ while (i < resultRows.length)
+ {
+ var row = resultRows.item(i);
+ if (row.className == "SRResult")
+ {
+ var rowMatchName = row.id.toLowerCase();
+ rowMatchName = rowMatchName.replace(/^sr\d*_/, ''); // strip 'sr123_'
+
+ if (search.length<=rowMatchName.length &&
+ rowMatchName.substr(0, search.length)==search)
+ {
+ row.style.display = 'block';
+ matches++;
+ }
+ else
+ {
+ row.style.display = 'none';
+ }
+ }
+ i++;
+ }
+ document.getElementById("Searching").style.display='none';
+ if (matches == 0) // no results
+ {
+ document.getElementById("NoMatches").style.display='block';
+ }
+ else // at least one result
+ {
+ document.getElementById("NoMatches").style.display='none';
+ }
+ this.lastMatchCount = matches;
+ return true;
+ }
+
+ // return the first item with index index or higher that is visible
+ this.NavNext = function(index)
+ {
+ var focusItem;
+ while (1)
+ {
+ var focusName = 'Item'+index;
+ focusItem = document.getElementById(focusName);
+ if (focusItem && focusItem.parentNode.parentNode.style.display=='block')
+ {
+ break;
+ }
+ else if (!focusItem) // last element
+ {
+ break;
+ }
+ focusItem=null;
+ index++;
+ }
+ return focusItem;
+ }
+
+ this.NavPrev = function(index)
+ {
+ var focusItem;
+ while (1)
+ {
+ var focusName = 'Item'+index;
+ focusItem = document.getElementById(focusName);
+ if (focusItem && focusItem.parentNode.parentNode.style.display=='block')
+ {
+ break;
+ }
+ else if (!focusItem) // last element
+ {
+ break;
+ }
+ focusItem=null;
+ index--;
+ }
+ return focusItem;
+ }
+
+ this.ProcessKeys = function(e)
+ {
+ if (e.type == "keydown")
+ {
+ this.repeatOn = false;
+ this.lastKey = e.keyCode;
+ }
+ else if (e.type == "keypress")
+ {
+ if (!this.repeatOn)
+ {
+ if (this.lastKey) this.repeatOn = true;
+ return false; // ignore first keypress after keydown
+ }
+ }
+ else if (e.type == "keyup")
+ {
+ this.lastKey = 0;
+ this.repeatOn = false;
+ }
+ return this.lastKey!=0;
+ }
+
+ this.Nav = function(evt,itemIndex)
+ {
+ var e = (evt) ? evt : window.event; // for IE
+ if (e.keyCode==13) return true;
+ if (!this.ProcessKeys(e)) return false;
+
+ if (this.lastKey==38) // Up
+ {
+ var newIndex = itemIndex-1;
+ var focusItem = this.NavPrev(newIndex);
+ if (focusItem)
+ {
+ var child = this.FindChildElement(focusItem.parentNode.parentNode.id);
+ if (child && child.style.display == 'block') // children visible
+ {
+ var n=0;
+ var tmpElem;
+ while (1) // search for last child
+ {
+ tmpElem = document.getElementById('Item'+newIndex+'_c'+n);
+ if (tmpElem)
+ {
+ focusItem = tmpElem;
+ }
+ else // found it!
+ {
+ break;
+ }
+ n++;
+ }
+ }
+ }
+ if (focusItem)
+ {
+ focusItem.focus();
+ }
+ else // return focus to search field
+ {
+ parent.document.getElementById("MSearchField").focus();
+ }
+ }
+ else if (this.lastKey==40) // Down
+ {
+ var newIndex = itemIndex+1;
+ var focusItem;
+ var item = document.getElementById('Item'+itemIndex);
+ var elem = this.FindChildElement(item.parentNode.parentNode.id);
+ if (elem && elem.style.display == 'block') // children visible
+ {
+ focusItem = document.getElementById('Item'+itemIndex+'_c0');
+ }
+ if (!focusItem) focusItem = this.NavNext(newIndex);
+ if (focusItem) focusItem.focus();
+ }
+ else if (this.lastKey==39) // Right
+ {
+ var item = document.getElementById('Item'+itemIndex);
+ var elem = this.FindChildElement(item.parentNode.parentNode.id);
+ if (elem) elem.style.display = 'block';
+ }
+ else if (this.lastKey==37) // Left
+ {
+ var item = document.getElementById('Item'+itemIndex);
+ var elem = this.FindChildElement(item.parentNode.parentNode.id);
+ if (elem) elem.style.display = 'none';
+ }
+ else if (this.lastKey==27) // Escape
+ {
+ parent.searchBox.CloseResultsWindow();
+ parent.document.getElementById("MSearchField").focus();
+ }
+ else if (this.lastKey==13) // Enter
+ {
+ return true;
+ }
+ return false;
+ }
+
+ this.NavChild = function(evt,itemIndex,childIndex)
+ {
+ var e = (evt) ? evt : window.event; // for IE
+ if (e.keyCode==13) return true;
+ if (!this.ProcessKeys(e)) return false;
+
+ if (this.lastKey==38) // Up
+ {
+ if (childIndex>0)
+ {
+ var newIndex = childIndex-1;
+ document.getElementById('Item'+itemIndex+'_c'+newIndex).focus();
+ }
+ else // already at first child, jump to parent
+ {
+ document.getElementById('Item'+itemIndex).focus();
+ }
+ }
+ else if (this.lastKey==40) // Down
+ {
+ var newIndex = childIndex+1;
+ var elem = document.getElementById('Item'+itemIndex+'_c'+newIndex);
+ if (!elem) // last child, jump to parent next parent
+ {
+ elem = this.NavNext(itemIndex+1);
+ }
+ if (elem)
+ {
+ elem.focus();
+ }
+ }
+ else if (this.lastKey==27) // Escape
+ {
+ parent.searchBox.CloseResultsWindow();
+ parent.document.getElementById("MSearchField").focus();
+ }
+ else if (this.lastKey==13) // Enter
+ {
+ return true;
+ }
+ return false;
+ }
+}
+
+function setKeyActions(elem,action)
+{
+ elem.setAttribute('onkeydown',action);
+ elem.setAttribute('onkeypress',action);
+ elem.setAttribute('onkeyup',action);
+}
+
+function setClassAttr(elem,attr)
+{
+ elem.setAttribute('class',attr);
+ elem.setAttribute('className',attr);
+}
+
+function createResults()
+{
+ var results = document.getElementById("SRResults");
+ for (var e=0; e
+
+
+
Loading...
+
+
+
Searching...
+
No Matches
+
+
+
Loading...
+
+
+
Searching...
+
No Matches
+
+
+
Loading...
+
+
+
Searching...
+
No Matches
+
+
+
Loading...
+
+
+
Searching...
+
No Matches
+
+
+
Loading...
+
+
+
Searching...
+
No Matches
+
+
+
Loading...
+
+
+
Searching...
+
No Matches
+
+
+
Loading...
+
+
+
Searching...
+
No Matches
+
+
+
Loading...
+
+
+
Searching...
+
No Matches
+
+
+
Loading...
+
+
+
Searching...
+
No Matches
+
+
+
Loading...
+
+
+
Searching...
+
No Matches
+
+
+
Loading...
+
+
+
Searching...
+
No Matches
+
+
+
Loading...
+
+
+
Searching...
+
No Matches
+
+
+
Loading...
+
+
+
Searching...
+
No Matches
+
+
+
Loading...
+
+
+
Searching...
+
No Matches
+
+
+
Loading...
+
+
+
Searching...
+
No Matches
+
+
+
Loading...
+
+
+
Searching...
+
No Matches
+
+
+
Loading...
+
+
+
Searching...
+
No Matches
+
+
+
Loading...
+
+
+
Searching...
+
No Matches
+
+
NCEPLIBS-g2c: seekgb.c File Reference
+
+
+
+
+
+
+ NCEPLIBS-g2c
+ 1.6.4
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
Searches a file for the next GRIB message.
+More...
+
#include <stdio.h>
+
#include <stdlib.h>
+
#include "grib2.h "
+
+
Go to the source code of this file.
+
+
+
Searches a file for the next GRIB message.
+
Author Stephen Gilbert
+
Date 2002-10-28
+
+
Definition in file seekgb.c .
+
+
+
◆
+
+
+
+
+
+ void seekgb
+ (
+ FILE *
+ lugb ,
+
+ g2int iseek ,
+
+ g2int mseek ,
+
+ g2int * lskip ,
+
+ g2int * lgrib
+
+ )
+
+
+
+
+
This subprogram searches a file for the next GRIB Message.
+
The search is done starting at byte offset iseek of the file referenced by lugb for mseek bytes at a time. If found, the starting position and length of the message are returned in lskip and lgrib, respectively. The search is terminated when an EOF or I/O error is encountered.
+
PROGRAM HISTORY LOG:
+2002-10-28 GILBERT Modified from Iredell's skgb subroutine
+2009-01-16 VUONG Changed lskip to 4 instead of sizof(g2int)
+
+
Parameters
+
+ lugb FILE pointer for the file to search. File must be opened before this routine is called. iseek number of bytes in the file to skip before search. mseek number of bytes to search at a time. lskip number of bytes to skip from the beggining of the file to where the GRIB message starts. lgrib number of bytes in message (set to 0, if no message found).
+
+
+
Author Stephen Gilbert
+
Date 2002-10-28
+
+
Definition at line 32 of file seekgb.c .
+
+
References gbit() .
+
+
+
+
+
NCEPLIBS-g2c: seekgb.c Source File
+
+
+
+
+
+
+ NCEPLIBS-g2c
+ 1.6.4
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
Go to the documentation of this file.
+
+
+
+
+
+
+
34 g2int k,k4,ipos,nread,lim,start,vers,lengrib;
+
+
+
+
+
+
40 cbuf=(
unsigned char *)malloc(mseek);
+
+
+
+
+
+
+
47 while (*lgrib==0 && nread==mseek) {
+
+
+
+
51 fseek(lugb,ipos,SEEK_SET);
+
52 nread=fread(cbuf,
sizeof (
unsigned char ),mseek,lugb);
+
+
+
+
+
+
58 gbit (cbuf,&start,(k+0)*8,4*8);
+
59 gbit (cbuf,&vers,(k+7)*8,1*8);
+
60 if (start==1196575042 && (vers==1 || vers==2)) {
+
+
62 if (vers == 1)
gbit (cbuf,&lengrib,(k+4)*8,3*8);
+
63 if (vers == 2)
gbit (cbuf,&lengrib,(k+12)*8,4*8);
+
64 fseek(lugb,ipos+k+lengrib-4,SEEK_SET);
+
+
66 k4=fread(&end,4,1,lugb);
+
67 if (k4 == 1 && end == 926365495) {
+
+
+
+
+
+
+
+
+
+
+
+
void gbit(unsigned char *in, g2int *iout, g2int iskip, g2int nbyte)
Get bits - unpack bits: Extract arbitrary size values from a packed bit string, right justifying each...
+
Header file for NCEPLIBS-g2c library.
+
int64_t g2int
Long integer type.
+
void seekgb(FILE *lugb, g2int iseek, g2int mseek, g2int *lskip, g2int *lgrib)
This subprogram searches a file for the next GRIB Message.
+
+
NCEPLIBS-g2c: simpack.c File Reference
+
+
+
+
+
+
+ NCEPLIBS-g2c
+ 1.6.4
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
Pack up a data field using the simple packing algorithm.
+More...
+
#include <stdlib.h>
+
#include <math.h>
+
#include "grib2.h "
+
+
Go to the source code of this file.
+
+void simpack (g2float *fld, g2int ndpts, g2int *idrstmpl, unsigned char *cpack, g2int *lcpack) This subroutine packs up a data field using the simple packing algorithm as defined in the GRIB2 documention. More...
+
+
Pack up a data field using the simple packing algorithm.
+
Author Stephen Gilbert
+
Date 2002-11-06
+
+
Definition in file simpack.c .
+
+
+
◆
+
+
+
+
+
+ void simpack
+ (
+ g2float * fld ,
+
+ g2int ndpts ,
+
+ g2int * idrstmpl ,
+
+ unsigned char *
+ cpack ,
+
+ g2int * lcpack
+
+ )
+
+
+
+
+
This subroutine packs up a data field using the simple packing algorithm as defined in the GRIB2 documention.
+
It also fills in GRIB2 Data Representation Template 5.0 with the appropriate values.
+
Parameters
+
+ fld Contains the data values to pack. ndpts The number of data values in array fld. idrstmpl Contains the array of values for [Data Representation Template 5.0](https://www.nco.ncep.noaa.gov/pmb/docs/grib2/grib2_doc/grib2_temp5-0.shtml ).
+0 Reference value - ignored on input - set by simpack routine.
+1 Binary Scale Factor - unchanged from input.
+2 Decimal Scale Factor - unchanged from input.
+3 Number of bits used to pack data, if value is > 0 and <= 31. If this input value is 0 or outside above range then the num of bits is calculated based on given data and scale factors.
+4 Original field type - currently ignored on input. Data values assumed to be reals. Set to 0 by simpack routine.
+
+ cpack The packed data field lcpack length of packed field starting at cpack.
+
+
+
Author Stephen Gilbert
+
Date 2002-11-06
+
+
Definition at line 34 of file simpack.c .
+
+
References int_power() , mkieee() , sbit() , and sbits() .
+
+
Referenced by g2_addfield() , and specpack() .
+
+
+
+
+
NCEPLIBS-g2c: simpack.c Source File
+
+
+
+
+
+
+ NCEPLIBS-g2c
+ 1.6.4
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
Go to the documentation of this file.
+
+
+
+
+
+
+
35 unsigned char *cpack,
g2int *lcpack)
+
+
37 static g2int zero = 0;
+
+
39 g2int j, nbits, imin, imax, maxdif, nbittot, left;
+
40 g2float bscale, dscale, rmax, rmin, temp;
+
+
42 static g2float alog2 = 0.69314718;
+
+
+
+
46 if (idrstmpl[3] <= 0 || idrstmpl[3] > 31)
+
+
+
+
+
+
+
+
54 for (j = 1; j < ndpts; j++) {
+
+
+
+
+
+
+
61 ifld = calloc(ndpts,
sizeof (
g2int ));
+
+
+
+
+
+
+
+
+
70 if (nbits == 0 && idrstmpl[1] == 0) {
+
+
+
+
74 imin = (
g2int )rint(rmin * dscale);
+
75 imax = (
g2int )rint(rmax * dscale);
+
+
77 temp = log((
double )(maxdif + 1)) / alog2;
+
78 nbits = (
g2int )ceil(temp);
+
+
+
81 for (j = 0; j < ndpts; j++)
+
82 ifld[j] = (
g2int )rint(fld[j] * dscale) - imin;
+
+
84 else if (nbits != 0 && idrstmpl[1] == 0) {
+
+
+
+
+
+
+
91 temp = log(maxnum / (rmax - rmin)) / alog2;
+
92 idrstmpl[1] = (
g2int )ceil(-1.0 * temp);
+
+
+
95 for (j = 0; j < ndpts; j++)
+
96 ifld[j] = (
g2int )rint(((fld[j] * dscale) - rmin) * bscale);
+
+
98 else if (nbits == 0 && idrstmpl[1] != 0) {
+
+
+
+
102 rmin = rmin * dscale;
+
103 rmax = rmax * dscale;
+
104 maxdif = (
g2int )rint((rmax - rmin) * bscale);
+
105 temp = log((
double )(maxdif + 1)) / alog2;
+
106 nbits = (
g2int )ceil(temp);
+
+
108 for (j = 0; j < ndpts; j++)
+
109 ifld[j] = (
g2int )rint(((fld[j] * dscale) - rmin) * bscale);
+
+
111 else if (nbits != 0 && idrstmpl[1] != 0) {
+
+
+
+
+
+
117 rmin = rmin * dscale;
+
+
119 for (j = 0; j < ndpts; j++)
+
120 ifld[j] = (
g2int )rint(((fld[j] * dscale) - rmin) * bscale);
+
+
+
+
+
125 sbits (cpack, ifld, 0, nbits, 0, ndpts);
+
126 nbittot = nbits * ndpts;
+
127 left = 8 - (nbittot % 8);
+
+
129 sbit (cpack, &zero, nbittot, left);
+
130 nbittot = nbittot + left;
+
+
132 *lcpack = nbittot / 8;
+
+
+
+
+
+
+
+
140 mkieee (&rmin, idrstmpl, 1);
+
+
+
+
+
+
void sbit(unsigned char *out, g2int *in, g2int iskip, g2int nbyte)
Store bits - put arbitrary size values into a packed bit string, taking the low order bits from each ...
+
void sbits(unsigned char *out, g2int *in, g2int iskip, g2int nbyte, g2int nskip, g2int n)
Store bits - put arbitrary size values into a packed bit string, taking the low order bits from each ...
+
Header file for NCEPLIBS-g2c library.
+
+
int64_t g2int
Long integer type.
+
double int_power(double x, g2int y)
Function similar to C pow() power function.
+
void mkieee(g2float *a, g2int *rieee, g2int num)
This subroutine stores a list of real values in 32-bit IEEE floating point format.
+
void simpack(g2float *fld, g2int ndpts, g2int *idrstmpl, unsigned char *cpack, g2int *lcpack)
This subroutine packs up a data field using the simple packing algorithm as defined in the GRIB2 docu...
+
+
NCEPLIBS-g2c: simunpack.c File Reference
+
+
+
+
+
+
+ NCEPLIBS-g2c
+ 1.6.4
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
#include <stdio.h>
+
#include <stdlib.h>
+
#include "grib2.h "
+
+
Go to the source code of this file.
+
+g2int simunpack (unsigned char *cpack, g2int *idrstmpl, g2int ndpts, g2float *fld) This subroutine unpacks a data field that was packed using a simple packing algorithm as defined in the GRIB2 documention, using info from the GRIB2 Data Representation Template 5.0. More...
+
+
Author Stephen Gilbert
+
Date 2002-10-29
+
+
Definition in file simunpack.c .
+
+
+
◆
+
+
+
+
+
+ g2int simunpack (
+ unsigned char *
+ cpack ,
+
+ g2int * idrstmpl ,
+
+ g2int ndpts ,
+
+ g2float * fld
+
+ )
+
+
+
+
+
This subroutine unpacks a data field that was packed using a simple packing algorithm as defined in the GRIB2 documention, using info from the GRIB2 Data Representation Template 5.0.
+
Parameters
+
+ cpack pointer to the packed data field. idrstmpl pointer to the array of values for Data Representation Template 5.0. ndpts The number of data values to unpack. fld Contains the unpacked data values. fld must be `* allocated with at least ndpts * sizeof(g2float) bytes before calling this routine.
+
+
+
Returns 0 for success, error code otherwise.
+
Author Stephen Gilbert
+
Date 2002-10-29
+
+
Definition at line 26 of file simunpack.c .
+
+
References gbits() , int_power() , and rdieee() .
+
+
Referenced by g2_unpack7() .
+
+
+
+
+
NCEPLIBS-g2c: simunpack.c Source File
+
+
+
+
+
+
+ NCEPLIBS-g2c
+ 1.6.4
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
Go to the documentation of this file.
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
38 if (!(ifld = calloc(ndpts,
sizeof (
g2int ))))
+
+
40 fprintf(stderr,
"Could not allocate space in simunpack.\n "
+
41 "Data field NOT upacked.\n" );
+
+
+
+
+
+
+
+
49 gbits (cpack, ifld, 0, nbits, 0, ndpts);
+
50 for (j = 0; j < ndpts; j++)
+
51 fld[j] = (((
g2float )ifld[j] * bscale) + ref) * dscale;
+
+
+
+
55 for (j = 0; j < ndpts; j++)
+
+
+
+
+
+
+
void gbits(unsigned char *in, g2int *iout, g2int iskip, g2int nbyte, g2int nskip, g2int n)
Get bits - unpack bits: Extract arbitrary size values from a packed bit string, right justifying each...
+
Header file for NCEPLIBS-g2c library.
+
+
int64_t g2int
Long integer type.
+
double int_power(double x, g2int y)
Function similar to C pow() power function.
+
void rdieee(g2int *rieee, g2float *a, g2int num)
This subroutine reads a list of real values in 32-bit IEEE floating point format.
+
g2int simunpack(unsigned char *cpack, g2int *idrstmpl, g2int ndpts, g2float *fld)
This subroutine unpacks a data field that was packed using a simple packing algorithm as defined in t...
+
+
NCEPLIBS-g2c: specpack.c File Reference
+
+
+
+
+
+
+ NCEPLIBS-g2c
+ 1.6.4
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
Pack a spectral data field using the complex packing algorithm for spherical harmonic data.
+More...
+
#include <stdio.h>
+
#include <stdlib.h>
+
#include <math.h>
+
#include "grib2.h "
+
+
Go to the source code of this file.
+
+
+
Pack a spectral data field using the complex packing algorithm for spherical harmonic data.
+
Author Stephen Gilbert
+
Date 2002-12-19
+
+
Definition in file specpack.c .
+
+
+
◆
+
+
+
+
+
+ void specpack
+ (
+ g2float * fld ,
+
+ g2int ndpts ,
+
+ g2int JJ ,
+
+ g2int KK ,
+
+ g2int MM ,
+
+ g2int * idrstmpl ,
+
+ unsigned char *
+ cpack ,
+
+ g2int * lcpack
+
+ )
+
+
+
+
+
This subroutine packs a spectral data field using the complex packing algorithm for spherical harmonic data as defined in the GRIB2 Data Representation Template 5.51 .
+
Parameters
+
+ fld Contains the data values to be packed. ndpts The number of data values to pack. JJ J - pentagonal resolution parameter. KK K - pentagonal resolution parameter. MM M - pentagonal resolution parameter. idrstmpl Contains the array of 10 values for [Data Representation Template 5.51](https://www.nco.ncep.noaa.gov/pmb/docs/grib2/grib2_doc/grib2_temp5-51.shtml ). cpack Pointer that gets the packed data field. Must be allocated by caller. lcpack length of packed field cpack.
+
+
+
Author Stephen Gilbert
+
Date 2002-12-19
+
+
Definition at line 33 of file specpack.c .
+
+
References mkieee() , and simpack() .
+
+
Referenced by g2_addfield() .
+
+
+
+
+
NCEPLIBS-g2c: specpack.c Source File
+
+
+
+
+
+
+ NCEPLIBS-g2c
+ 1.6.4
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
Go to the documentation of this file.
+
+
+
+
+
+
+
+
34 g2int *idrstmpl,
unsigned char *cpack,
g2int *lcpack)
+
+
+
37 g2int *ifld, tmplsim[5];
+
+
+
40 g2int Js, Ks, Ms, Ts, Ns, inc, incu, incp, n, Nm, m, ipos;
+
+
+
+
+
+
+
+
+
49 pscale = malloc((JJ + MM + 1) *
sizeof (
g2float ));
+
50 tscale = (
g2float )idrstmpl[4] * 1E-6;
+
51 for (n = Js; n <= JJ + MM; n++)
+
52 pscale[n] = pow((
g2float )(n * (n + 1)), tscale);
+
+
+
+
+
57 tfld = malloc(ndpts *
sizeof (
g2float ));
+
58 unpk = malloc(ndpts *
sizeof (
g2float ));
+
59 ifld = malloc(ndpts *
sizeof (
g2int ));
+
+
+
+
63 for (m = 0; m <= MM; m++)
+
+
+
+
+
+
+
+
71 for (n = m; n <= Nm; n++)
+
+
73 if (n <= Ns && m <= Ms)
+
+
75 unpk[incu++] = fld[inc++];
+
76 unpk[incu++] = fld[inc++];
+
+
+
+
80 tfld[incp++] = fld[inc++] * pscale[n];
+
81 tfld[incp++] = fld[inc++] * pscale[n];
+
+
+
+
+
+
+
+
89 printf(
"specpack: Incorrect number of unpacked values %d given:\n" , (
int )Ts);
+
90 printf(
"specpack: Resetting idrstmpl[8] to %d\n" , (
int )incu);
+
+
+
+
+
+
+
+
+
+
100 tmplsim[1] = idrstmpl[1];
+
101 tmplsim[2] = idrstmpl[2];
+
102 tmplsim[3] = idrstmpl[3];
+
103 simpack (tfld, ndpts - Ts, tmplsim, cpack + ipos, lcpack);
+
104 *lcpack = (*lcpack) + ipos;
+
+
+
107 idrstmpl[0] = tmplsim[0];
+
108 idrstmpl[1] = tmplsim[1];
+
109 idrstmpl[2] = tmplsim[2];
+
110 idrstmpl[3] = tmplsim[3];
+
+
+
+
+
+
+
+
+
+
void simpack(g2float *, g2int, g2int *, unsigned char *, g2int *)
This subroutine packs up a data field using the simple packing algorithm as defined in the GRIB2 docu...
+
Header file for NCEPLIBS-g2c library.
+
+
int64_t g2int
Long integer type.
+
void mkieee(g2float *a, g2int *rieee, g2int num)
This subroutine stores a list of real values in 32-bit IEEE floating point format.
+
void specpack(g2float *fld, g2int ndpts, g2int JJ, g2int KK, g2int MM, g2int *idrstmpl, unsigned char *cpack, g2int *lcpack)
This subroutine packs a spectral data field using the complex packing algorithm for spherical harmoni...
+
+
NCEPLIBS-g2c: specunpack.c File Reference
+
+
+
+
+
+
+ NCEPLIBS-g2c
+ 1.6.4
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
Unpack a spectral data field that was packed using the complex packing algorithm for spherical harmonic data.
+More...
+
#include <stdio.h>
+
#include <stdlib.h>
+
#include <math.h>
+
#include "grib2.h "
+
+
Go to the source code of this file.
+
+g2int specunpack (unsigned char *cpack, g2int *idrstmpl, g2int ndpts, g2int JJ, g2int KK, g2int MM, g2float *fld) This subroutine unpacks a spectral data field that was packed using the complex packing algorithm for spherical harmonic data as defined in the GRIB2 documention, using info from the GRIB2 Data Representation Template 5.51 . More...
+
+
Unpack a spectral data field that was packed using the complex packing algorithm for spherical harmonic data.
+
Author Stephen Gilbert
+
Date 2000-06-21
+
+
Definition in file specunpack.c .
+
+
+
◆
+
+
+
+
+
+ g2int specunpack (
+ unsigned char *
+ cpack ,
+
+ g2int * idrstmpl ,
+
+ g2int ndpts ,
+
+ g2int JJ ,
+
+ g2int KK ,
+
+ g2int MM ,
+
+ g2float * fld
+
+ )
+
+
+
+
+
This subroutine unpacks a spectral data field that was packed using the complex packing algorithm for spherical harmonic data as defined in the GRIB2 documention, using info from the GRIB2 Data Representation Template 5.51 .
+
Parameters
+
+ cpack pointer to the packed data field. idrstmpl pointer to the array of values for Data Representation Template 5.51. ndpts The number of data values to unpack (real and imaginary parts). JJ pentagonal resolution parameter. KK pentagonal resolution parameter. MM pentagonal resolution parameter. fld Contains the unpacked data values. fld must be allocated with at least ndpts * sizeof(g2float) bytes before calling this routine.
+
+
+
Returns 0 for success, -3 for wrong type.
+
Author Stephen Gilbert
+
Date 2000-06-21
+
+
Definition at line 35 of file specunpack.c .
+
+
References gbits() , int_power() , and rdieee() .
+
+
Referenced by g2_unpack7() .
+
+
+
+
+
NCEPLIBS-g2c: specunpack.c Source File
+
+
+
+
+
+
+ NCEPLIBS-g2c
+ 1.6.4
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
Go to the documentation of this file.
+
+
+
+
+
+
+
+
+
+
38 g2int *ifld, j, iofst, nbits;
+
39 g2float ref, bscale, dscale, *unpk;
+
+
41 g2int Js, Ks, Ms, Ts, Ns, Nm, n, m;
+
42 g2int inc, incu, incp;
+
+
44 rdieee (idrstmpl+0, &ref, 1);
+
+
+
+
+
+
+
+
+
+
+
+
56 unpk = malloc(ndpts *
sizeof (
g2float ));
+
57 ifld = malloc(ndpts *
sizeof (
g2int ));
+
+
59 gbits (cpack, ifld, 0, 32, 0, Ts);
+
+
+
62 gbits (cpack, ifld, iofst, nbits, 0, ndpts - Ts);
+
+
+
+
66 pscale = malloc((JJ + MM + 1) *
sizeof (
g2float ));
+
67 tscale = idrstmpl[4] * 1E-6;
+
68 for (n = Js; n <= JJ + MM; n++)
+
69 pscale[n] = pow((
g2float )(n * (n+1)), -tscale);
+
+
+
+
+
+
75 for (m = 0; m <= MM; m++)
+
+
+
+
+
+
+
+
83 for (n = m; n <= Nm; n++)
+
+
85 if (n <= Ns && m <= Ms)
+
+
87 fld[inc++] = unpk[incu++];
+
88 fld[inc++] = unpk[incu++];
+
+
+
+
92 fld[inc++] = (((
g2float )ifld[incp++] * bscale) + ref) *
+
+
94 fld[inc++] = (((
g2float )ifld[incp++] * bscale) + ref) *
+
+
+
+
+
+
+
+
+
+
+
+
106 printf(
"specunpack: Cannot handle 64 or 128-bit floats.\n" );
+
107 for (j = 0; j < ndpts; j++)
+
+
+
+
+
+
+
void gbits(unsigned char *in, g2int *iout, g2int iskip, g2int nbyte, g2int nskip, g2int n)
Get bits - unpack bits: Extract arbitrary size values from a packed bit string, right justifying each...
+
Header file for NCEPLIBS-g2c library.
+
+
int64_t g2int
Long integer type.
+
double int_power(double x, g2int y)
Function similar to C pow() power function.
+
void rdieee(g2int *rieee, g2float *a, g2int num)
This subroutine reads a list of real values in 32-bit IEEE floating point format.
+
g2int specunpack(unsigned char *cpack, g2int *idrstmpl, g2int ndpts, g2int JJ, g2int KK, g2int MM, g2float *fld)
This subroutine unpacks a spectral data field that was packed using the complex packing algorithm for...
+
+
1.8.17
+ 
1.9.1 
');
+}
+
+function showSyncOn(n,relpath)
+{
+ n.html('
');
+}
+
+function toggleSyncButton(relpath)
+{
+ var navSync = $('#nav-sync');
+ if (navSync.hasClass('sync')) {
+ navSync.removeClass('sync');
+ showSyncOff(navSync,relpath);
+ storeLink(stripPath2(pathName())+hashUrl());
+ } else {
+ navSync.addClass('sync');
+ showSyncOn(navSync,relpath);
+ deleteLink();
+ }
+}
+
+var loadTriggered = false;
+var readyTriggered = false;
+var loadObject,loadToRoot,loadUrl,loadRelPath;
+
+$(window).on('load',function(){
+ if (readyTriggered) { // ready first
+ navTo(loadObject,loadToRoot,loadUrl,loadRelPath);
+ showRoot();
+ }
+ loadTriggered=true;
+});
+
+function initNavTree(toroot,relpath)
+{
+ var o = new Object();
+ o.toroot = toroot;
+ o.node = new Object();
+ o.node.li = document.getElementById("nav-tree-contents");
+ o.node.childrenData = NAVTREE;
+ o.node.children = new Array();
+ o.node.childrenUL = document.createElement("ul");
+ o.node.getChildrenUL = function() { return o.node.childrenUL; };
+ o.node.li.appendChild(o.node.childrenUL);
+ o.node.depth = 0;
+ o.node.relpath = relpath;
+ o.node.expanded = false;
+ o.node.isLast = true;
+ o.node.plus_img = document.createElement("span");
+ o.node.plus_img.className = 'arrow';
+ o.node.plus_img.innerHTML = arrowRight;
+
+ if (localStorageSupported()) {
+ var navSync = $('#nav-sync');
+ if (cachedLink()) {
+ showSyncOff(navSync,relpath);
+ navSync.removeClass('sync');
+ } else {
+ showSyncOn(navSync,relpath);
+ }
+ navSync.click(function(){ toggleSyncButton(relpath); });
+ }
+
+ if (loadTriggered) { // load before ready
+ navTo(o,toroot,hashUrl(),relpath);
+ showRoot();
+ } else { // ready before load
+ loadObject = o;
+ loadToRoot = toroot;
+ loadUrl = hashUrl();
+ loadRelPath = relpath;
+ readyTriggered=true;
+ }
+
+ $(window).bind('hashchange', function(){
+ if (window.location.hash && window.location.hash.length>1){
+ var a;
+ if ($(location).attr('hash')){
+ var clslink=stripPath(pathName())+':'+hashValue();
+ a=$('.item a[class$="'+clslink.replace(/
+
+
+
+
+
+
+
