LCPQ/QCaml
10
1
Fork 0
mirror of https://gitlab.com/scemama/QCaml.git synced 2024-11-07 14:43:41 +01:00
Code Releases Activity

Mo.Basis.pp has the wrong type for a printing function.

Browse Source
This commit is contained in:
Anthony Scemama 2024-09-05 14:53:10 +02:00
parent 209cf324ee
commit 01cb05e5cd
3 changed files with 13 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
mo/lib/basis.ml
View File

@ -164,7 +164,7 @@ let of_mo_basis simulation other =
let pp ?(start=1) ?(finish=0) ppf t = let pp_range ?(start=1) ?(finish=0) ppf t =
let rows = Matrix.dim1 t.mo_coef let rows = Matrix.dim1 t.mo_coef
and cols = Matrix.dim2 t.mo_coef and cols = Matrix.dim2 t.mo_coef
in in
@ -202,3 +202,7 @@ let pp ?(start=1) ?(finish=0) ppf t =
end end
in in
aux start aux start
let pp ppf t =
pp_range ppf t

3
mo/lib/basis.mli
View File

@ -92,7 +92,8 @@ val ao_matrix_of_mo_matrix :
(** {1 Printers} *) (** {1 Printers} *)
val pp : ?start:int -> ?finish:int -> Format.formatter -> t -> unit val pp_range : ?start:int -> ?finish:int -> Format.formatter -> t -> unit
val pp : Format.formatter -> t -> unit

2
mo/test/localization.ml
View File

@ -51,7 +51,7 @@ H 4.286335 0.000000 0.000000
|> Mo.Localization.to_basis |> Mo.Localization.to_basis
in in
Format.printf "%a" (Mo.Basis.pp ~start:1 ~finish:10) localized_mo_basis Format.printf "%a" (Mo.Basis.pp_range ~start:1 ~finish:10) localized_mo_basis
(* (*