let computing = fun f -> fun width -> fun length ->
let container_float_array_array_array =
ref (Array.make length (Array.make width [||])) in
let index = ref 0 in
try
while !index < length do
(!container_float_array_array_array).(!index)
<- (Array.map convert_back_R (f (!index)));
incr index;
done;
!container_float_array_array_array
with x ->
let error_message =
match x with
|Convert_Error s -> "Convert_Error: " ^ s
|Value_operation s -> "Value_operation: " ^ s
|Signal_operation s -> "Signal_operation: " ^ s
|Beam_Matching_Error s -> "Beam_Matching_Error: " ^ s
|Evaluation_Error s -> "Evaluation_Error: " ^ s
|NotYetDone -> "NotYetDone"
|_ -> "Compute finished."
in
let () = print_endline error_message in
Array.sub (!container_float_array_array_array) 0 !index