ECC-428: Added C and F90 API calls

fortran/eccodes_f90_tail.f90

@@ -2836,4 +2836,30 @@ subroutine codes_copy_key( msgid_src, key, msgid_dest, status )
     endif
 end subroutine codes_copy_key 
 
+subroutine codes_bufr_multi_element_constant_arrays_on (status )
+    integer(kind=kindOfInt),optional, intent(out) :: status
+    integer(kind=kindOfInt)               :: iret
+
+    iret=codes_f_bufr_multi_element_constant_arrays_on()
+    if (present(status)) then
+        status = iret
+    else
+        call grib_check(iret,'codes_bufr_multi_element_constant_arrays_on','')
+    endif
+end subroutine codes_bufr_multi_element_constant_arrays_on
+
+subroutine codes_bufr_multi_element_constant_arrays_off (status )
+    integer(kind=kindOfInt),optional, intent(out) :: status
+    integer(kind=kindOfInt)               :: iret
+
+    iret=codes_f_bufr_multi_element_constant_arrays_off()
+    if (present(status)) then
+        status = iret
+    else
+        call grib_check(iret,'codes_bufr_multi_element_constant_arrays_off','')
+    endif
+
+end subroutine codes_bufr_multi_element_constant_arrays_off
+
+
 end module eccodes

fortran/grib_api_externals.h

@@ -73,6 +73,7 @@ integer, external :: grib_f_set_int, grib_f_set_int_array, &
                      grib_f_set_force_real4_array, grib_f_set_force_real8_array, &
                      grib_f_set_string, grib_f_set_string_array, grib_f_set_missing, &
                      grib_f_gribex_mode_on,grib_f_gribex_mode_off, &
+                     codes_f_bufr_multi_element_constant_arrays_on,codes_f_bufr_multi_element_constant_arrays_off, &
                      grib_f_find_nearest_single,grib_f_find_nearest_four_single,grib_f_find_nearest_multiple
 integer, external :: grib_f_get_message_size, grib_f_copy_message, grib_f_count_in_file
 integer, external :: grib_f_write, grib_f_multi_write, grib_f_multi_append

fortran/grib_fortran.c

@@ -3472,6 +3472,31 @@ int grib_f_multi_append__(int* ingid, int* sec,int* mgid) {
     return grib_f_multi_append_(ingid, sec, mgid);
 }
 
+
+/*****************************************************************************/
+int codes_f_bufr_multi_element_constant_arrays_on_() {
+    codes_bufr_multi_element_constant_arrays_on(NULL);
+    return GRIB_SUCCESS;
+}
+int codes_f_bufr_multi_element_constant_arrays_on__() {
+    return codes_f_bufr_multi_element_constant_arrays_on_();
+}
+int codes_f_bufr_multi_element_constant_arrays_on() {
+    return codes_f_bufr_multi_element_constant_arrays_on_();
+}
+
+int codes_f_bufr_multi_element_constant_arrays_off_() {
+    codes_bufr_multi_element_constant_arrays_off(NULL);
+    return GRIB_SUCCESS;
+}
+int codes_f_bufr_multi_element_constant_arrays_off__() {
+    return codes_f_bufr_multi_element_constant_arrays_off_();
+}
+int codes_f_bufr_multi_element_constant_arrays_off() {
+    return codes_f_bufr_multi_element_constant_arrays_off_();
+}
+
+
 /*****************************************************************************/
 int grib_f_set_definitions_path_(char* path, int len){
     grib_context* c = grib_context_get_default();

fortran/grib_fortran_prototypes.h

@@ -374,6 +374,13 @@ int codes_f_bufr_copy_data(int* gid1,int* gid2);
 int codes_f_bufr_copy_data_(int* gid1,int* gid2);
 int codes_f_bufr_copy_data__(int* gid1,int* gid2);
 
+int codes_f_bufr_multi_element_constant_arrays_on_(void);
+int codes_f_bufr_multi_element_constant_arrays_on__(void);
+int codes_f_bufr_multi_element_constant_arrays_on(void);
+int codes_f_bufr_multi_element_constant_arrays_off_(void);
+int codes_f_bufr_multi_element_constant_arrays_off__(void);
+int codes_f_bufr_multi_element_constant_arrays_off(void);
+
 int grib_f_set_definitions_path_(char *path, int len);
 int grib_f_set_definitions_path__(char *path, int len);
 int grib_f_set_definitions_path(char *path, int len);

src/eccodes.h

@@ -1041,6 +1041,11 @@ int codes_get_gribex_mode(codes_context* c);
 */
 void codes_gribex_mode_off(codes_context* c);
 
+
+void codes_bufr_multi_element_constant_arrays_on(codes_context* c);
+void codes_bufr_multi_element_constant_arrays_off(codes_context* c);
+/*int  codes_get_bufr_multi_element_constant_arrays(codes_context* c);*/
+
 /**
  * Sets the search path for definition files.
  *

src/grib_api_prototypes.h

@@ -979,6 +979,8 @@ void grib_context_free(const grib_context *c, void *p);
 void grib_context_free_persistent(const grib_context *c, void *p);
 void grib_context_reset(grib_context *c);
 void grib_context_delete(grib_context *c);
+void codes_bufr_multi_element_constant_arrays_on(grib_context* c);
+void codes_bufr_multi_element_constant_arrays_off(grib_context* c);
 void grib_context_set_definitions_path(grib_context *c, const char *path);
 void grib_context_set_samples_path(grib_context *c, const char *path);
 void *grib_context_malloc_persistent(const grib_context *c, size_t size);

src/grib_context.c

@@ -742,6 +742,19 @@ void grib_context_delete( grib_context* c)
         grib_context_free_persistent(&default_grib_context,c);
 }
 
+void codes_bufr_multi_element_constant_arrays_on(grib_context* c)
+{
+    if ( !c ) c=grib_context_get_default();
+    c->bufr_multi_element_constant_arrays = 1;
+}
+void codes_bufr_multi_element_constant_arrays_off(grib_context* c)
+{
+    if ( !c ) c=grib_context_get_default();
+    c->bufr_multi_element_constant_arrays = 0;
+}
+/*int  codes_get_bufr_multi_element_constant_arrays(grib_context* c);*/
+
+
 void grib_context_set_definitions_path(grib_context* c, const char* path)
 {
     if (!c) c=grib_context_get_default();