add setMethodData for Histogram method to Fortran interface (#18)

src/ALL_fortran.cpp

@@ -162,6 +162,8 @@ void all_setup_c(ALL::ALL<double, double> *all_obj) {
   ALL_catch
 }
 
+void all_set_method_data_histogram_c(ALL::ALL<double, double> *all_obj, int *nbins) { all_obj->setMethodData(nbins); }
+
 // wrapper to call balance routine
 void all_balance_c(ALL::ALL<double, double> *all_obj) {
   ALL_try

src/ALL_module.F90

@@ -125,6 +125,11 @@ module ALL_module
             integer(c_int), value :: dim
             real(c_double), dimension(dim) :: size
         end subroutine
+        subroutine all_set_method_data_histogram_c(obj, nbins) bind(C)
+            use iso_c_binding
+            type(c_ptr), value :: obj
+            integer(c_int), dimension(3) :: nbins
+        end subroutine
         subroutine ALL_setup_c(obj) bind(C)
             use iso_c_binding
             type(c_ptr), value :: obj
@@ -205,6 +210,7 @@ module ALL_module
         procedure :: set_communicator => ALL_set_communicator_int
 #endif
         procedure :: set_sys_size => ALL_set_sys_size
+        procedure :: set_method_data_histgram => ALL_set_method_data_histgram
         procedure :: setup => ALL_setup
         procedure :: balance => ALL_balance
         procedure :: get_gamma => ALL_get_gamma
@@ -231,6 +237,7 @@ module ALL_module
     public :: ALL_set_vertices
     public :: ALL_set_communicator
     public :: ALL_set_sys_size
+    public :: ALL_set_method_data_histgram
     public :: ALL_setup
     public :: ALL_balance
     public :: ALL_get_gamma
@@ -352,6 +359,12 @@ contains
 #endif
         call all_set_sys_size_c(this%object, syssize, size(syssize))
     end subroutine
+    !> Set number of bins for histogram method
+    subroutine ALL_set_method_data_histgram(this, nbins)
+        class(ALL_t), intent(in) :: this
+        integer(c_int), dimension(3), intent(in) :: nbins !< Number of bins per dimension
+        call all_set_method_data_histogram_c(this%object, nbins)
+    end subroutine
     !> Set up the loadbalancer
     subroutine ALL_setup(this)
         class(ALL_t), intent(in) :: this