
open Bigarray

let gen ?(u=1e3) n m l =
  let native =
    Array.init n (fun _ ->
      Array.init m (fun _ ->
        Array.init l (fun _ ->
          2.0 *. (Random.float u) -. u)))
  in
  let fl64for = Array3.of_array Float64 Fortran_layout native in
  let fl64c   = Array3.of_array Float64 C_layout native in
  native, fl64for, fl64c

Add another script for 3d
Add another script for 3d
