diff --git a/common/lib/dune b/common/lib/dune index 1bdc555..3453f04 100644 --- a/common/lib/dune +++ b/common/lib/dune @@ -9,6 +9,7 @@ str zarith getopt + camlp-streams ) (c_names diff --git a/common/lib/util.c b/common/lib/util.c index d03155f..c4f4423 100644 --- a/common/lib/util.c +++ b/common/lib/util.c @@ -19,7 +19,7 @@ /* [[file:~/QCaml/common/util.org::*Erf][Erf:1]] */ CAMLprim value erf_float_bytecode(value x) { - return copy_double(erf(Double_val(x))); + return caml_copy_double(erf(Double_val(x))); } CAMLprim double erf_float(double x) { @@ -32,7 +32,7 @@ CAMLprim double erf_float(double x) { /* [[file:~/QCaml/common/util.org::*Erfc][Erfc:1]] */ CAMLprim value erfc_float_bytecode(value x) { - return copy_double(erfc(Double_val(x))); + return caml_copy_double(erfc(Double_val(x))); } CAMLprim double erfc_float(double x) { @@ -45,7 +45,7 @@ CAMLprim double erfc_float(double x) { /* [[file:~/QCaml/common/util.org::*Gamma][Gamma:1]] */ CAMLprim value gamma_float_bytecode(value x) { - return copy_double(tgamma(Double_val(x))); + return caml_copy_double(tgamma(Double_val(x))); } diff --git a/common/util.org b/common/util.org index ba7031a..9f80fa8 100644 --- a/common/util.org +++ b/common/util.org @@ -44,7 +44,7 @@ open Alcotest #+begin_src c :tangle (eval c) :exports none CAMLprim value erf_float_bytecode(value x) { - return copy_double(erf(Double_val(x))); + return caml_copy_double(erf(Double_val(x))); } CAMLprim double erf_float(double x) { @@ -66,7 +66,7 @@ external erf_float : float -> float #+begin_src c :tangle (eval c) :exports none CAMLprim value erfc_float_bytecode(value x) { - return copy_double(erfc(Double_val(x))); + return caml_copy_double(erfc(Double_val(x))); } CAMLprim double erfc_float(double x) { @@ -87,7 +87,7 @@ external erfc_float : float -> float = "erfc_float_bytecode" "erfc_float" [@@unb #+begin_src c :tangle (eval c) :exports none CAMLprim value gamma_float_bytecode(value x) { - return copy_double(tgamma(Double_val(x))); + return caml_copy_double(tgamma(Double_val(x))); } diff --git a/docs/common.html b/docs/common.html index 4acd97c..7d43f0a 100644 --- a/docs/common.html +++ b/docs/common.html @@ -3,7 +3,7 @@ "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
- +Azimuthal quantum number, repsesented as \( s,p,d,\dots \) .
-Angular_momentum.t
+Angular_momentum.t
type t = +type t = | S | P | D | F | G | H | I | J | K | L | M | N | O | Int of int @@ -424,7 +424,7 @@ Azimuthal quantum number, repsesented as \( s,p,d,\dots \) .
-An exception is raised when the Angular_momentum.t
element can't
+An exception is raised when the Angular_momentum.t
element can't
be created.
val of_char : char -> t @@ -460,7 +460,7 @@ quartets, use in the two-electron operators.- of_char
Returns an +Angular_momentum.t
when a shell is given as a character (case insensitive)Returns an Angular_momentum.t
when a shell is given as a character (case insensitive)@@ -488,7 +488,7 @@ quartets, use in the two-electron operators. @@ -540,7 +540,7 @@ Angular_momentum.(to_string D);;Example:
-+Angular_momentum.of_char 'p';; - : Angular_momentum.t = P @@ -507,8 +507,8 @@ Angular_momentum.(to_string D);; --2.3 Shell functions
+Example:
-+Angular_momentum.(n_functions D) ;; - : int = 6 @@ -553,8 +553,8 @@ Angular_momentum.( zkey_array (Doublet (P,S)) );;
val ( + ) : t -> t -> t @@ -565,7 +565,7 @@ Angular_momentum.( zkey_array (Doublet (P,S)) );;Example:
-+Angular_momentum.(D + P);; - : Angular_momentum.t = F @@ -575,8 +575,8 @@ Angular_momentum.(F - P);;
Printers can print as a string (default) or as an integer. @@ -591,12 +591,12 @@ Printers can print as a string (default) or as an integer.
We define here a data type to handle bit strings efficiently. When @@ -608,11 +608,11 @@ bit string as a multi-precision integer.
type t @@ -621,8 +621,8 @@ bit string as a multi-precision integer.
val of_int : int -> t @@ -774,7 +774,7 @@ bit string as a multi-precision integer.Example:
-+Bitstring.of_int 15;; - : Bitstring.t = ++++------------------------------------------------------------ @@ -783,7 +783,7 @@ Bitstring.of_int 15;;Example:
-+Bitstring.(shift_left (of_int 15) 2);; - : Bitstring.t = --++++---------------------------------------------------------- @@ -806,7 +806,7 @@ Bitstring.(testbit (of_int 15) 4);;Example:
-+Bitstring.(logor (of_int 15) (of_int 73));; - : Bitstring.t = ++++--+--------------------------------------------------------- @@ -824,7 +824,7 @@ Bitstring.(logxor (of_int 15) (of_int 73));;Example:
-+Bitstring.(plus_one (of_int 15));; - : Bitstring.t = ----+----------------------------------------------------------- @@ -838,7 +838,7 @@ Bitstring.(minus_one (of_int 15));;Example:
-+Bitstring.(trailing_zeros (of_int 12));; - : int = 2 @@ -852,7 +852,7 @@ Bitstring.(popcount (of_int 15));;Example:
-+Bitstring.(to_list (of_int 45));; - : int list = [1; 3; 4; 6]@@ -860,7 +860,7 @@ Bitstring.(to_list (of_int 45));;Example:
-+Bitstring.permutations 2 4;; - : Bitstring.t list = [++--------------------------------------------------------------; @@ -873,8 +873,8 @@ Example:
val pp : Format.formatter -> t -> unit @@ -884,16 +884,16 @@ Example:
type t @@ -906,8 +906,8 @@ This type should be used for all charges in the program (electrons, nuclei,
val of_float : float -> t @@ -923,8 +923,8 @@ This type should be used for all charges in the program (electrons, nuclei,
val ( + ) : t -> t -> t @@ -937,8 +937,8 @@ This type should be used for all charges in the program (electrons, nuclei,
val pp : Format.formatter -> t -> unit @@ -948,8 +948,8 @@ This type should be used for all charges in the program (electrons, nuclei,
This module is a wrapper around the Getopt
library and helps to
@@ -1005,11 +1005,11 @@ Then, define what to do with the arguments:
type short_opt = char +type short_opt = char type long_opt = string type optional = Mandatory | Optional type documentation = string @@ -1029,9 +1029,9 @@ Then, define what to do with the arguments:
ls -l
)ls --directory
)Mandatory
or Optional
ls -l
) and for some arguments the argument is optional
All the options are stored in the hash table dict
where the key
-is the long option and the value is a value of type description
.
+is the long option and the value is a value of type description
.
val get : long_opt -> string option @@ -1094,7 +1094,7 @@ Function to create an anonymous argument.- get
Returns the argument associated with a long option +Returns the argument associated with a long option @@ -1112,8 +1112,8 @@ Function to create an anonymous argument. - @@ -1615,7 +1615,7 @@ Powers.(to_int_tuple (of_int_tuple (2,3,1)));;-5.4 Specification
++5.4 Specification
-val set_specs : description list -> unit @@ -1128,16 +1128,16 @@ Sets the specifications of the current program from a list of-6 Constants
++6 Constants
-All constants used in the program.
-6.1 Thresholds
++6.1 Thresholds
-val epsilon : float @@ -1168,8 +1168,8 @@ All constants used in the program.-6.2 Mathematical constants
++6.2 Mathematical constants
-val pi : float @@ -1224,8 +1224,8 @@ All constants used in the program.-6.3 Physical constants
++6.3 Physical constants
-val a0 : float @@ -1269,8 +1269,8 @@ All constants used in the program.-7 Coordinate
++7 Coordinate
-Coordinates in 3D space. @@ -1283,14 +1283,14 @@ module.
-7.1 Type
++7.1 Type
--type bohr +type bohr type angstrom type xyz = { @@ -1309,8 +1309,8 @@ module.-7.2 Creation
++7.2 Creation
-val make : 'a point -> t @@ -1347,8 +1347,8 @@ module.-7.3 Conversion
++7.3 Conversion
-val bohr_to_angstrom : bohr point -> angstrom point @@ -1379,8 +1379,8 @@ module.-7.4 Vector operations
++7.4 Vector operations
-val neg : t -> t @@ -1442,7 +1442,7 @@ module.Example:
-+Coordinate.neg { x=1. ; y=2. ; z=3. } ;; - : Coordinate.t = -1.0000 -2.0000 -3.0000 @@ -1468,8 +1468,8 @@ Coordinate.(-7.5 Printers
++7.5 Printers
-val pp : Format.formatter -> t -> unit @@ -1485,16 +1485,16 @@ Coordinates can be printed in bohr or angstrom.-8 Non-negative float
++8 Non-negative float
--8.1 Type
++8.1 Type
--8.2 Conversions
++8.2 Conversions
-val of_float : float -> t @@ -1524,19 +1524,19 @@ The unsafe variant doesn't do this check.-9 Powers
++9 Powers
-Contains powers of \(x\), \(y\) and \(z\) describing the polynomials in atomic basis sets.
-9.1 Type
++9.1 Type
-type t = private { @@ -1554,8 +1554,8 @@ Contains powers of \(x\), \(y\) and \(z\) describing the polynomials in atomic b-9.2 Conversions
++9.2 Conversions
-val of_int_tuple : int * int * int -> t @@ -1566,7 +1566,7 @@ Contains powers of \(x\), \(y\) and \(z\) describing the polynomials in atomic bExample:
-+Powers.of_int_tuple (2,3,1);; - : Powers.t = x^2 + y^3 + z^1 @@ -1576,8 +1576,8 @@ Powers.(to_int_tuple (of_int_tuple (2,3,1)));;-9.3 Operations
++9.3 Operations
val get : Coordinate.axis -> t -> int @@ -1602,12 +1602,12 @@ Powers.(to_int_tuple (of_int_tuple (2,3,1)));;- incr
Returns a new +Powers.t
with the power on the given axis incrementedReturns a new Powers.t
with the power on the given axis incremented- decr
Returns a new +Powers.t
with the power on the given axis decremented. As opposed toof_int_tuple
, the values may become negativeReturns a new Powers.t
with the power on the given axis decremented. As opposed toof_int_tuple
, the values may become negativeExample:
-+Powers.get Coordinate.Y (Powers.of_int_tuple (2,3,1));; - : int = 3 @@ -1629,8 +1629,8 @@ Powers.decr Coordinate.Y (Powers.of_int_tuple (2,3,1));;
val pp : Format.formatter -> t -> unit @@ -1640,8 +1640,8 @@ Powers.decr Coordinate.Y (Powers.of_int_tuple (2,3,1));;
QCaml-specific parameters @@ -1676,8 +1676,8 @@ QCaml-specific parameters
A range is a sorted list of integers in an interval. @@ -1692,11 +1692,11 @@ A range is a sorted list of integers in an interval.
val of_string : string -> t @@ -1717,8 +1717,8 @@ A range is a sorted list of integers in an interval.
val pp : Format.formatter -> t -> unit @@ -1728,19 +1728,19 @@ A range is a sorted list of integers in an interval.
Electron spin
type t = Alfa | Beta
@@ -1755,8 +1755,8 @@ letters as Beta
, so the alignment of the code is nicer.
val other : t -> t @@ -1769,8 +1769,8 @@ Returns the opposite spin
val pp : Format.formatter -> t -> unit @@ -1780,8 +1780,8 @@ Returns the opposite spin
Utility functions. @@ -1789,8 +1789,8 @@ Utility functions.
external erf_float : float -> float @@ -1845,8 +1845,8 @@ Utility functions.
external erfc_float : float -> float @@ -1856,8 +1856,8 @@ Utility functions.
external gamma_float : float -> float @@ -1867,8 +1867,8 @@ Utility functions.
val popcnt : int64 -> int @@ -1877,8 +1877,8 @@ Utility functions.
val trailz : int64 -> int @@ -1887,8 +1887,8 @@ Utility functions.
val leadz : int64 -> int @@ -1897,13 +1897,13 @@ Utility functions.
val fact : int -> float @@ -1976,8 +1976,8 @@ Utility functions.
val incomplete_gamma : alpha:float -> float -> float @@ -2034,8 +2034,8 @@ where \(\gamma\) is the incomplete gamma function.
val list_some : 'a option list -> 'a list @@ -2072,8 +2072,8 @@ where \(\gamma\) is the incomplete gamma function.
val array_range : int -> int -> int array @@ -2110,8 +2110,8 @@ where \(\gamma\) is the incomplete gamma function.
val stream_range : int -> int -> int Stream.t @@ -2148,8 +2148,8 @@ where \(\gamma\) is the incomplete gamma function.
val pp_float_array_size : Format.formatter -> float array -> unit @@ -2199,7 +2199,7 @@ where \(\gamma\) is the incomplete gamma function.Example:
-+pp_float_array_size: [ 6: 1.000000 1.732051 1.732051 1.000000 1.732051 1.000000 ] @@ -2222,8 +2222,8 @@ pp_bitstring 14:
Encodes the powers of x, y, z in a compact form, suitable for being @@ -2231,7 +2231,7 @@ used as keys in a hash table.
-Internally, the Zkey.t
is made of two integers, left
and right
.
+Internally, the Zkey.t
is made of two integers, left
and right
.
The small integers x, y and z are stored compactly in this 126-bits
space:
Example:
-+Left Right 3 [--------------------------------------------------------------] [------------------|---------------|---------------|---------------] x y z @@ -2260,11 +2260,11 @@ The values of x,y,z should be positive and should not exceed 32767 for
type t @@ -2280,8 +2280,8 @@ The values of x,y,z should be positive and should not exceed 32767 for
val of_powers_three : Powers.t -> t @@ -2308,22 +2308,22 @@ The values of x,y,z should be positive and should not exceed 32767 for- of_powers_three
Create from a +Powers.t
Create from a Powers.t
- of_powers_six
Create from two +Powers.t
Create from two Powers.t
- of_powers_nine
Create from three +Powers.t
Create from three Powers.t
- of_powers_twelve
Create from four +Powers.t
Create from four Powers.t
@@ -2348,7 +2348,7 @@ The values of x,y,z should be positive and should not exceed 32767 for - to_powers
Convert to an +Powers.t
arrayConvert to an Powers.t
array@@ -2360,8 +2360,8 @@ The values of x,y,z should be positive and should not exceed 32767 for - -14.3 Functions for hash tables
++14.3 Functions for hash tables
-val hash : t -> int @@ -2398,8 +2398,8 @@ The values of x,y,z should be positive and should not exceed 32767 for-14.4 Printers
++14.4 Printers
-val pp : Format.formatter -> t -> unit @@ -2409,19 +2409,19 @@ The values of x,y,z should be positive and should not exceed 32767 for-15 Zmap
++15 Zmap
-A hash table where the keys are
Zkey
-15.1 Type
++15.1 Type
-diff --git a/docs/top.html b/docs/top.html index ae6170e..0ef0d7f 100644 --- a/docs/top.html +++ b/docs/top.html @@ -3,7 +3,7 @@ "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd"> - + -include module type of Hashtbl.Make(Zkey) @@ -2433,7 +2433,7 @@ A hash table where the keys areZkey
Top-level @@ -250,18 +250,18 @@ org_html_manager.setup(); // activate after the parameters are setTable of Contents
-diff --git a/dune-project b/dune-project index 74b9906..06099ef 100644 --- a/dune-project +++ b/dune-project @@ -27,6 +27,7 @@ in quantum chemistry.") (depends (ocaml (>= 4.10)) (dune (>= 1.10)) + (camlp-streams (>= 5.0)) lacaml getopt zarith diff --git a/qcaml.opam b/qcaml.opam index 795b532..8dad688 100644 --- a/qcaml.opam +++ b/qcaml.opam @@ -20,6 +20,7 @@ in quantum chemistry.""" depends: [ "ocaml" {>= "4.10"} "dune" {>= "1.10"} + "camlp-streams" {>= "5.0"} "lacaml" "getopt" "zarith" -1 Summary
++1 Summary