21 lines
569 B
OCaml
21 lines
569 B
OCaml
include Std
|
|
include Ztypes
|
|
include Solvers
|
|
|
|
module type IGNORE = sig end
|
|
module Defaultsolver : IGNORE = struct end
|
|
|
|
module Zlsrun = struct
|
|
module Make (S : IGNORE) = struct
|
|
let go s =
|
|
let s = Lift.lift_hsim s in
|
|
let open Hsim in
|
|
let state = (module State.InPlaceSimState : State.SimState) in
|
|
let solver =
|
|
Solver.solver (StatefulSundials.InPlace.csolve)
|
|
(Types.d_of_dc StatefulZ.InPlace.zsolve) in
|
|
let open Sim.Sim(val state) in
|
|
()
|
|
(* run_until_n (Utils.ignore 0 (run s solver)) 30. 1 ignore *)
|
|
end
|
|
end
|