Introduced many tests

Author: scemama

org/qmckl_electron.org

@@ -678,25 +678,32 @@ for (int64_t i=0 ; i<3*elec_num*walk_num ; ++i) {
 *** Get
 
     #+begin_src c :comments org :tangle (eval h_func) :noweb yes
-qmckl_exit_code qmckl_get_electron_ee_distance(qmckl_context context, double* const distance);
+qmckl_exit_code
+qmckl_get_electron_ee_distance(qmckl_context context,
+                               double* const distance,
+                               const int64_t size_max);
     #+end_src
 
     #+begin_src f90 :tangle (eval fh_func) :comments org :exports none
 interface
-  integer(c_int32_t) function qmckl_get_electron_ee_distance(context, distance) &
+  integer(c_int32_t) function qmckl_get_electron_ee_distance(context, distance, size_max) &
     bind(C)
     use, intrinsic :: iso_c_binding
     import
     implicit none
     integer (c_int64_t) , intent(in)  , value :: context
     real    (c_double ) , intent(out)         :: distance(*)
+    integer (c_int64_t) , intent(in)          :: size_max
   end function
 end interface
     #+end_src
 
 
     #+begin_src c :comments org :tangle (eval c) :noweb yes  :exports none
-qmckl_exit_code qmckl_get_electron_ee_distance(qmckl_context context, double* const distance)
+qmckl_exit_code
+qmckl_get_electron_ee_distance(qmckl_context context,
+                               double* const distance,
+                               const int64_t size_max)
 {
   if (qmckl_context_check(context) == QMCKL_NULL_CONTEXT) {
     return QMCKL_NULL_CONTEXT;
@@ -707,10 +714,23 @@ qmckl_exit_code qmckl_get_electron_ee_distance(qmckl_context context, double* co
   rc = qmckl_provide_ee_distance(context);
   if (rc != QMCKL_SUCCESS) return rc;
 
+  if (distance == NULL) {
+    return qmckl_failwith( context,
+                           QMCKL_INVALID_ARG_2,
+                           "qmckl_get_electron_ee_distance",
+                           "distance is a null pointer");
+  }
+
   qmckl_context_struct* const ctx = (qmckl_context_struct*) context;
   assert (ctx != NULL);
 
-  size_t sze = ctx->electron.num * ctx->electron.num * ctx->electron.walker.num;
+  const int64_t sze = ctx->electron.num * ctx->electron.num * ctx->electron.walker.num;
+  if (size_max < sze) {
+    return qmckl_failwith( context,
+                           QMCKL_INVALID_ARG_3,
+                           "qmckl_get_electron_ee_distance",
+                           "size_max < num*num*walk_num");
+  }
   memcpy(distance, ctx->electron.ee_distance, sze * sizeof(double));
 
   return QMCKL_SUCCESS;
@@ -901,7 +921,7 @@ assert(qmckl_electron_provided(context));
 
 
 double ee_distance[walk_num * elec_num * elec_num];
-rc = qmckl_get_electron_ee_distance(context, ee_distance);
+rc = qmckl_get_electron_ee_distance(context, ee_distance, walk_num * elec_num * elec_num);
 
 // (e1,e2,w)
 // (0,0,0) == 0.