QCaml/gaussian_integrals/lib/zero_m_parameters.ml

open Common
open Operators

type t =
{
  expo_p_inv  : float ;
  expo_q_inv  : float ;
  norm_pq_sq  : float ;
  maxm        : int   ;
  center_pq   : Coordinate.t ;
  center_pa   : Coordinate.t ;
  center_qc   : Coordinate.t ;
  zero_m_func : t -> float array ;
  operator    : Operator.t option;
}

let zero ?operator zero_m_func =
{
  zero_m_func ;
  operator ;
  maxm=0 ;
  expo_p_inv = 0.;
  expo_q_inv = 0.;
  norm_pq_sq = 0.;
  center_pq = Coordinate.zero ;
  center_pa = Coordinate.zero ;
  center_qc = Coordinate.zero ;
}