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

Compiler warnings removed

This commit is contained in:
Shahram Najm 2016-07-21 17:25:17 +01:00
parent 13ddd7f3a6
commit eb6ee169cc
1 changed files with 4 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
src/grib_dumper_class_fortran.c
View File

@ -282,12 +282,11 @@ static void dump_values_attribute(grib_dumper* d,grib_accessor* a,char* prefix)
double value; size_t size = 1; double value; size_t size = 1;
double *values=NULL; double *values=NULL;
int err = 0; int err = 0;
int i,r,icount; int i,icount;
int cols=2; int cols=2;
long count=0; long count=0;
char* sval; char* sval;
grib_context* c=a->context; grib_context* c=a->context;
grib_handle* h=grib_handle_of_accessor(a);
grib_value_count(a,&count); grib_value_count(a,&count);
size=count; size=count;
@ -331,7 +330,7 @@ static void dump_values_attribute(grib_dumper* d,grib_accessor* a,char* prefix)
fprintf(self->dumper.out," call codes_set(ibufr,'%s->%s' &\n,rvalues)\n",prefix,a->name); fprintf(self->dumper.out," call codes_set(ibufr,'%s->%s' &\n,rvalues)\n",prefix,a->name);
} else { } else {
r=get_key_rank(h,self->keys,a->name); /* int r=get_key_rank(h,self->keys,a->name); */
if( !grib_is_missing_double(a,value) ) { if( !grib_is_missing_double(a,value) ) {
sval=dval_to_string(c,value); sval=dval_to_string(c,value);
@ -461,11 +460,10 @@ static void dump_long_attribute(grib_dumper* d,grib_accessor* a,char* prefix)
long value; size_t size = 1; long value; size_t size = 1;
long *values=NULL; long *values=NULL;
int err = 0; int err = 0;
int i,r,icount; int i,icount;
int cols=4; int cols=4;
long count=0; long count=0;
grib_context* c=a->context; grib_context* c=a->context;
grib_handle* h=grib_handle_of_accessor(a);
grib_value_count(a,&count); grib_value_count(a,&count);
size=count; size=count;
@ -504,7 +502,7 @@ static void dump_long_attribute(grib_dumper* d,grib_accessor* a,char* prefix)
fprintf(self->dumper.out," call codes_set(ibufr,'%s->%s' &\n,ivalues)\n",prefix,a->name); fprintf(self->dumper.out," call codes_set(ibufr,'%s->%s' &\n,ivalues)\n",prefix,a->name);
} else { } else {
r=get_key_rank(h,self->keys,a->name); /* int r=get_key_rank(h,self->keys,a->name); */
if( !grib_is_missing_long(a,value) ) { if( !grib_is_missing_long(a,value) ) {
fprintf(self->dumper.out," call codes_set(ibufr,'%s->%s'&\n,",prefix,a->name); fprintf(self->dumper.out," call codes_set(ibufr,'%s->%s'&\n,",prefix,a->name);
fprintf(self->dumper.out,"%ld)\n",value); fprintf(self->dumper.out,"%ld)\n",value);