add set_min_domain_size interface

src/ALL_fortran.cpp

@@ -39,6 +39,13 @@ extern "C"
         return new ALL<double,double>(dim,gamma);
     }
 
+    // wrapper to set the minimum domain size
+    void ALL_set_min_domain_size_f(ALL<double,double>* all_obj, int dim, double* domain_size)
+    {
+	    if(all_obj->get_dimension() != dim) throw ALL_Invalid_Argument_Exception(__FILE__,__func__,__LINE__,"Length of array does not match dimension");
+	    all_obj->set_min_domain_size(domain_size);
+    }
+
     // wrapper to set the work (scalar only for the moment)
     void ALL_set_work_f(ALL<double,double>* all_obj, double work)
     {

src/ALL_module.f90

@@ -49,6 +49,12 @@ MODULE ALL_module
             REAL(c_double),VALUE    :: gamma
             TYPE(c_ptr)             :: this
         END FUNCTION
+        SUBROUTINE ALL_set_min_domain_size_int(obj, dim, domain_size) BIND(C,NAME="ALL_set_min_domain_size_f")
+            USE ISO_C_BINDING
+            INTEGER(c_int), VALUE         :: dim
+            REAL(c_double), DIMENSION(n)  :: domain_size
+            TYPE(c_ptr), VALUE            ::  obj
+        END SUBROUTINE
         SUBROUTINE ALL_set_work_int(obj, work) BIND(C,NAME="ALL_set_work_f")
             USE ISO_C_BINDING
             REAL(c_double),VALUE    ::  work
@@ -105,6 +111,12 @@ MODULE ALL_module
             REAL(8)         :: gamma
             obj%object = ALL_init_int(INT(dim,c_int),REAL(gamma,c_double))
         END SUBROUTINE
+        SUBROUTINE ALL_set_min_domain_size(obj, dim, domain_size)
+            INTEGER                :: dim
+            REAL(8), DIMENSION(n)  :: domain_size
+            TYPE(ALL_t)            ::  obj
+            CALL ALL_set_min_domain_size(obj%object, dim, domain_size)
+        END SUBROUTINE
         SUBROUTINE ALL_set_work(obj, work)
             TYPE(ALL_t)     ::  obj
             REAL(8)         ::  work