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

GRIB-334: patch from Harald

This commit is contained in:
Shahram Najm 2013-06-04 16:26:46 +01:00
parent 5604366bd0
commit dcd8de42dd
2 changed files with 16 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
fortran/grib_fortran.c
View File

@ -1761,7 +1761,7 @@ int grib_f_get_long_array__(int* gid, char* key, long *val, int* size, int len){
int grib_f_get_long_array(int* gid, char* key, long *val, int* size, int len){
return grib_f_get_long_array_( gid, key, val, size, len);
}
int grib_f_get_byte_array_(int* gid, char* key, unsigned char *val, int* size, int len){
int grib_f_get_byte_array_(int* gid, char* key, unsigned char *val, int* size, int len, int lenv){
grib_handle *h = get_handle(*gid);
int err = GRIB_SUCCESS;
@ -1775,11 +1775,11 @@ int grib_f_get_byte_array_(int* gid, char* key, unsigned char *val, int* size, i
return err;
}
int grib_f_get_byte_array__(int* gid, char* key, unsigned char *val, int* size, int len){
return grib_f_get_byte_array_( gid, key, val, size, len);
int grib_f_get_byte_array__(int* gid, char* key, unsigned char *val, int* size, int len, int lenv){
return grib_f_get_byte_array_( gid, key, val, size, len, lenv);
}
int grib_f_get_byte_array(int* gid, char* key, unsigned char *val, int* size, int len){
return grib_f_get_byte_array_( gid, key, val, size, len);
int grib_f_get_byte_array(int* gid, char* key, unsigned char *val, int* size, int len, int lenv){
return grib_f_get_byte_array_( gid, key, val, size, len, lenv);
}
int grib_f_index_get_string_(int* gid, char* key, char* val, int *eachsize,int* size, int len){
@ -1942,7 +1942,7 @@ int grib_f_set_long_array__(int* gid, char* key, long* val, int* size, int len)
int grib_f_set_long_array(int* gid, char* key, long* val, int* size, int len){
return grib_f_set_long_array_( gid, key, val, size, len);
}
int grib_f_set_byte_array_(int* gid, char* key, unsigned char* val, int* size, int len){
int grib_f_set_byte_array_(int* gid, char* key, unsigned char* val, int* size, int len, int lenv){
grib_handle *h = get_handle(*gid);
int err = GRIB_SUCCESS;
char buf[1024];
@ -1955,11 +1955,11 @@ int grib_f_set_byte_array_(int* gid, char* key, unsigned char* val, int* size, i
return err;
}
int grib_f_set_byte_array__(int* gid, char* key, unsigned char* val, int* size, int len){
return grib_f_set_byte_array_( gid, key, val, size, len);
int grib_f_set_byte_array__(int* gid, char* key, unsigned char* val, int* size, int len, int lenv){
return grib_f_set_byte_array_( gid, key, val, size, len, lenv);
}
int grib_f_set_byte_array(int* gid, char* key, unsigned char* val, int* size, int len){
return grib_f_set_byte_array_( gid, key, val, size, len);
int grib_f_set_byte_array(int* gid, char* key, unsigned char* val, int* size, int len, int lenv){
return grib_f_set_byte_array_( gid, key, val, size, len, lenv);
}
int grib_f_set_int_(int* gid, char* key, int* val, int len){

12
fortran/grib_fortran_prototypes.h
View File

@ -169,9 +169,9 @@ int grib_f_get_int_array(int *gid, char *key, int *val, int *size, int len);
int grib_f_get_long_array_(int *gid, char *key, long *val, int *size, int len);
int grib_f_get_long_array__(int *gid, char *key, long *val, int *size, int len);
int grib_f_get_long_array(int *gid, char *key, long *val, int *size, int len);
int grib_f_get_byte_array_(int* gid, char* key, unsigned char *val, int* size, int len);
int grib_f_get_byte_array__(int* gid, char* key, unsigned char *val, int* size, int len);
int grib_f_get_byte_array(int* gid, char* key, unsigned char *val, int* size, int len);
int grib_f_get_byte_array_(int* gid, char* key, unsigned char *val, int* size, int len, int lenv);
int grib_f_get_byte_array__(int* gid, char* key, unsigned char *val, int* size, int len, int lenv);
int grib_f_get_byte_array(int* gid, char* key, unsigned char *val, int* size, int len, int lenv);
int grib_f_index_get_string_(int *gid, char *key, char *val, int *eachsize, int *size, int len);
int grib_f_index_get_string__(int *gid, char *key, char *val, int *eachsize, int *size, int len);
int grib_f_index_get_string(int *gid, char *key, char *val, int *eachsize, int *size, int len);
@ -190,9 +190,9 @@ int grib_f_set_int_array(int *gid, char *key, int *val, int *size, int len);
int grib_f_set_long_array_(int *gid, char *key, long *val, int *size, int len);
int grib_f_set_long_array__(int *gid, char *key, long *val, int *size, int len);
int grib_f_set_long_array(int *gid, char *key, long *val, int *size, int len);
int grib_f_set_byte_array_(int* gid, char* key, unsigned char *val, int* size, int len);
int grib_f_set_byte_array__(int* gid, char* key, unsigned char *val, int* size, int len);
int grib_f_set_byte_array(int* gid, char* key, unsigned char *val, int* size, int len);
int grib_f_set_byte_array_(int* gid, char* key, unsigned char *val, int* size, int len, int lenv);
int grib_f_set_byte_array__(int* gid, char* key, unsigned char *val, int* size, int len, int lenv);
int grib_f_set_byte_array(int* gid, char* key, unsigned char *val, int* size, int len, int lenv);
int grib_f_set_int_(int *gid, char *key, int *val, int len);
int grib_f_set_int__(int *gid, char *key, int *val, int len);
int grib_f_set_int(int *gid, char *key, int *val, int len);