QCaml/gaussian_integrals/lib/zero_m_parameters.ml

open Qcaml_common
open Qcaml_operators
    
type 'a 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 : 'a t -> float array ;
  operator    : 'a 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 ;
}