core
/
eccodes
mirror of https://github.com/ecmwf/eccodes.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Debugging: functions to print contents of grib_darray and grib_iarray

This commit is contained in:
Shahram Najm 2017-08-23 13:46:01 +01:00
parent 5009abef11
commit 066b43a4f8
3 changed files with 22 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/grib_api_prototypes.h
View File

@ -196,6 +196,7 @@ bufr_descriptor **grib_bufr_descriptors_array_get_array(bufr_descriptors_array *
size_t grib_bufr_descriptors_array_used_size(bufr_descriptors_array *v);
/* grib_darray.c */
void grib_darray_print(const char* title, const grib_darray* darray);
grib_darray *grib_darray_new_from_array(grib_context *c, double *a, size_t size);
grib_darray *grib_darray_new(grib_context *c, size_t size, size_t incsize);
grib_darray *grib_darray_resize(grib_context *c, grib_darray *v);
@ -225,6 +226,7 @@ void *grib_oarray_get(grib_oarray *v, int i);
size_t grib_oarray_used_size(grib_oarray *v);
/* grib_iarray.c */
void grib_iarray_print(const char* title, const grib_iarray* iarray);
grib_iarray *grib_iarray_new_from_array(grib_context *c, long *a, size_t size);
grib_iarray *grib_iarray_new(grib_context *c, size_t size, size_t incsize);
long grib_iarray_pop(grib_iarray *a);

10
src/grib_darray.c
View File

@ -15,6 +15,16 @@
***************************************************************************/
#include "grib_api_internal.h"
void grib_darray_print(const char* title, const grib_darray* darray)
{
Assert(darray);
size_t i;
printf("%s: darray.n = %ld\t", title, darray->n);
for (i=0; i<darray->n; i++) {
printf("darray[%ld]=%g\t", i, darray->v[i]);
}
printf("\n");
}
grib_darray* grib_darray_new_from_array(grib_context* c,double* a,size_t size)
{

10
src/grib_iarray.c
View File

@ -15,6 +15,16 @@
***************************************************************************/
#include "grib_api_internal.h"
void grib_iarray_print(const char* title, const grib_iarray* iarray)
{
Assert(iarray);
size_t i;
printf("%s: iarray.n = %ld\t", title, iarray->n);
for (i=0; i<iarray->n; i++) {
printf("iarray[%ld]=%ld\t", i, iarray->v[i]);
}
printf("\n");
}
grib_iarray* grib_iarray_new_from_array(grib_context* c,long* a,size_t size)
{