mirror of
https://gitlab.com/scemama/QCaml.git
synced 2024-07-06 19:35:51 +02:00
16 lines
192 B
OCaml
16 lines
192 B
OCaml
|
type t =
|
||
|
|
{
|
||
|
|
expo_p_inv : float ;
|
||
|
|
expo_q_inv : float ;
|
||
|
|
norm_pq_sq : float ;
|
||
|
|
maxm : int;
|
||
|
|
}
|
||
|
|
|
||
|
|
let zero =
|
||
|
|
{
|
||
|
|
maxm=0 ;
|
||
|
|
expo_p_inv = 0.;
|
||
|
|
expo_q_inv = 0.;
|
||
|
|
norm_pq_sq = 0.;
|
||
|
|
}
|