From dcd8de42dd879a585229c8372b20ae592d48817f Mon Sep 17 00:00:00 2001 From: Shahram Najm Date: Tue, 4 Jun 2013 16:26:46 +0100 Subject: [PATCH] GRIB-334: patch from Harald --- fortran/grib_fortran.c | 20 ++++++++++---------- fortran/grib_fortran_prototypes.h | 12 ++++++------ 2 files changed, 16 insertions(+), 16 deletions(-) diff --git a/fortran/grib_fortran.c b/fortran/grib_fortran.c index 6de09a5d1..a2623db3b 100644 --- a/fortran/grib_fortran.c +++ b/fortran/grib_fortran.c @@ -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){ diff --git a/fortran/grib_fortran_prototypes.h b/fortran/grib_fortran_prototypes.h index cc3d4d730..052d8ae04 100644 --- a/fortran/grib_fortran_prototypes.h +++ b/fortran/grib_fortran_prototypes.h @@ -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);