Update for latest SWIG and regenerate

Author: sethrj

src/flc_algorithm.i

@@ -154,21 +154,21 @@ static index_int binary_search_impl(const T *data, size_t size, T value, Compare
 }
 
 template<class T, class Compare>
-static void equal_range_impl(const T *data, size_t size, T value, index_int *first_index, index_int *last_index, Compare cmp) {
+static void equal_range_impl(const T *data, size_t size, T value, index_int &first_index, index_int &last_index, Compare cmp) {
   const T *end = data + size;
   auto range_pair = std::equal_range(data, end, value, cmp);
   // Index of the min/max items *IN FORTAN INDEXING*
-  *first_index = range_pair.first - data + 1;
-  *last_index = range_pair.second - data;
+  first_index = range_pair.first - data + 1;
+  last_index = range_pair.second - data;
 }
 
 template<class T, class Compare>
-static void minmax_element_impl(const T *data, size_t size, index_int *min_index, index_int *max_index, Compare cmp) {
+static void minmax_element_impl(const T *data, size_t size, index_int &min_index, index_int &max_index, Compare cmp) {
   const T *end = data + size;
   auto mm_pair = std::minmax_element(data, end, cmp);
   // Index of the min/max items *IN FORTAN INDEXING*
-  *min_index = mm_pair.first - data + 1;
-  *max_index = mm_pair.second - data + 1;
+  min_index = mm_pair.first - data + 1;
+  max_index = mm_pair.second - data + 1;
 }
 %}
 
@@ -178,11 +178,11 @@ static void minmax_element_impl(const T *data, size_t size, index_int *min_index
 
 %flc_cmp_algorithm(void, equal_range, %arg(const T *DATA, size_t DATASIZE,
                                            T value,
-                                           index_int *first_index, index_int *last_index),
+                                           index_int &first_index, index_int &last_index),
                    %arg(DATA, DATASIZE, value, first_index, last_index))
 
 %flc_cmp_algorithm(void, minmax_element, %arg(const T *DATA, size_t DATASIZE,
-                                            index_int *min_index, index_int *max_index),
+                                            index_int &min_index, index_int &max_index),
                    %arg(DATA, DATASIZE, min_index, max_index))
 
 /******************************

src/generated/flc.f90

@@ -28,6 +28,11 @@ module flc
 
 ! WRAPPER DECLARATIONS
 interface
+ subroutine SWIG_free(cptr) &
+  bind(C, name="free")
+ use, intrinsic :: ISO_C_BINDING
+ type(C_PTR), value :: cptr
+end subroutine
 function swigc_flibcpp_version_get() &
 bind(C, name="_wrap_flibcpp_version_get") &
 result(fresult)
@@ -36,27 +41,22 @@ function swigc_flibcpp_version_get() &
 type(SwigArrayWrapper) :: fresult
 end function
 
- subroutine SWIG_free(cptr) &
-  bind(C, name="free")
- use, intrinsic :: ISO_C_BINDING
- type(C_PTR), value :: cptr
-end subroutine
 end interface
 
 
 contains
  ! MODULE SUBPROGRAMS
 
-subroutine SWIG_chararray_to_string(wrap, string)
+subroutine  SWIGTM_fout_const_SS_char_Sm_ (imout, fout)
   use, intrinsic :: ISO_C_BINDING
-  type(SwigArrayWrapper), intent(IN) :: wrap
-  character(kind=C_CHAR, len=:), allocatable, intent(OUT) :: string
+  type(SwigArrayWrapper), intent(in) :: imout
+  character(kind=C_CHAR, len=:), allocatable, intent(out) :: fout
   character(kind=C_CHAR), dimension(:), pointer :: chars
   integer(kind=C_SIZE_T) :: i
-  call c_f_pointer(wrap%data, chars, [wrap%size])
-  allocate(character(kind=C_CHAR, len=wrap%size) :: string)
-  do i=1, wrap%size
-    string(i:i) = chars(i)
+  call c_f_pointer(imout%data, chars, [imout%size])
+  allocate(character(kind=C_CHAR, len=imout%size) :: fout)
+  do i=1, imout%size
+    fout(i:i) = chars(i)
   end do
 end subroutine
 
@@ -67,7 +67,7 @@ function get_flibcpp_version() &
 type(SwigArrayWrapper) :: fresult 
 
 fresult = swigc_flibcpp_version_get()
-call SWIG_chararray_to_string(fresult, swig_result)
+call  SWIGTM_fout_const_SS_char_Sm_ (fresult, swig_result)
 if (.false.) call SWIG_free(fresult%data)
 end function