feat: sundials

src/lib/solvers/zls.ml

@@ -42,7 +42,7 @@ let copy c1 = let c2 = cmake (length c1) in blit c1 c2; c2
 
 let blit_matrix m1 m2 = Array.iter2 blit m1 m2
 let copy_matrix m = Array.map copy m
- 
+
 type 's f_alloc = unit -> 's
 type 's f_maxsize = 's -> int * int
 type 's f_csize = 's -> int
@@ -126,7 +126,7 @@ module type STATE_ODE_SOLVER =
        time [t] since the last mesh-point or the initial instant. *)
     val get_dky : t -> dkyfn
 
-    
+
     (* generic solver parameters *)
     val set_stop_time  : t -> float -> unit
     val set_min_step   : t -> float -> unit
@@ -196,7 +196,7 @@ module type STATE_ZEROC_SOLVER =
        - the returned values is the simulation time of the earliest
          zero-crossing that was found. *)
     val find         : t -> ((float -> int -> unit) * carray) -> zarray -> float
-  
+
     (* locate the fields for which there is a takeoff *)
     val find_takeoff : t -> zarray -> float
   end