Pretty printer for vectors

linear_algebra/lib/vector.ml

@@ -73,3 +73,8 @@ let normalize v =
 let (%.) t i = t.{i}
 
 let set t i v = t.{i} <- v
+
+let pp ppf m =
+  let m = to_bigarray_inplace m in
+  Lacaml.Io.pp_fvec ppf m
+

linear_algebra/lib/vector.mli

@@ -142,3 +142,5 @@ val (%.) : 'a t -> int -> float
 val set : 'a t -> int -> float -> unit
 (** Modifies the value in-place at the i-th position *)
 
+
+val pp : Format.formatter -> 'a t -> unit

top/lib/install_printers.ml

@@ -22,6 +22,7 @@ let printers =
     "Gaussian.Contracted_shell.pp" ;
     "Gaussian.General_basis.pp" ;
     "Linear_algebra.Matrix.pp" ;
+    "Linear_algebra.Vector.pp" ;
     "Mo.Basis.pp" ;
     "Mo.Class.pp" ;
     "Mo.Fock.pp" ;