Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Menu
Open sidebar
mpim-sw
libcdi
Commits
64ae99f0
Commit
64ae99f0
authored
Mar 24, 2010
by
Uwe Schulzweida
Browse files
cdilib update
parent
ea06c511
Changes
1
Hide whitespace changes
Inline
Side-by-side
src/cgribexlib.c
View file @
64ae99f0
/* Automatically generated by m214003 at 2010-0
2-18
, do not edit */
/* Automatically generated by m214003 at 2010-0
3-24
, do not edit */
/* CGRIBEXLIB_VERSION="1.4.
3
" */
/* CGRIBEXLIB_VERSION="1.4.
4
" */
#if defined (HAVE_CONFIG_H)
# include "config.h"
...
...
@@ -3491,7 +3491,7 @@ void encode_double_array(int NumBits, long PackStart, long datasize, GRIBPACK *l
/* GRIB BLOCK 4 - BINARY DATA SECTION */
static
int
encodeBDS
(
GRIBPACK
*
lGrib
,
long
*
gribLen
,
int
decscale
,
int
*
isec2
,
int
*
isec4
,
long
datasize
,
double
data
[],
long
*
datstart
,
long
*
datsize
)
long
*
datstart
,
long
*
datsize
,
int
code
)
{
/* Uwe Schulzweida, 11/04/2003 : Check that number of bits per value is not exceeded */
/* Uwe Schulzweida, 6/05/2003 : Copy result to fpval to prevent integer overflow */
...
...
@@ -3676,7 +3676,7 @@ int encodeBDS(GRIBPACK *lGrib, long *gribLen, int decscale, int *isec2, int *ise
}
if
(
jloop
==
128
)
{
gprintf
(
func
,
"Problem calculating binary scale value for encode
"
);
gprintf
(
func
,
"Problem calculating binary scale value for encode
code %d!"
,
code
);
gprintf
(
func
,
"> range %g rangec %g fmin %g fmax %g"
,
range
,
rangec
,
fmin
,
fmax
);
return
(
707
);
}
...
...
@@ -3694,7 +3694,7 @@ int encodeBDS(GRIBPACK *lGrib, long *gribLen, int decscale, int *isec2, int *ise
}
if
(
jloop
==
127
)
{
gprintf
(
func
,
"Problem calculating binary scale value for encode
"
);
gprintf
(
func
,
"Problem calculating binary scale value for encode
code %d!"
,
code
);
gprintf
(
func
,
"< range %g rangec %g fmin %g fmax %g"
,
range
,
rangec
,
fmin
,
fmax
);
return
(
707
);
}
...
...
@@ -3846,7 +3846,7 @@ void gribEncode(int *isec0, int *isec1, int *isec2, double *fsec2, int *isec3,
bdsstart
=
gribLen
;
status
=
encodeBDS
(
lGrib
,
&
gribLen
,
ISEC1_DecScaleFactor
,
isec2
,
isec4
,
fsec4size
,
fsec4
,
&
datstart
,
&
datsize
);
isec4
,
fsec4size
,
fsec4
,
&
datstart
,
&
datsize
,
ISEC1_Parameter
);
if
(
status
)
{
*
kret
=
status
;
...
...
@@ -8853,7 +8853,7 @@ int gribUnzip(unsigned char *dbuf, long dbufsize, unsigned char *sbuf, long sbu
return
(
gribLen
);
}
static
const
char
grb_libvers
[]
=
"1.4.
3
"
" of ""
Feb 18
2010"" ""1
1:24:41
"
;
static
const
char
grb_libvers
[]
=
"1.4.
4
"
" of ""
Mar 24
2010"" ""1
5:35:19
"
;
const
char
*
cgribexLibraryVersion
(
void
)
{
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment