mirror of
https://github.com/QuantumPackage/qp2.git
synced 2024-08-24 21:21:47 +02:00
Perturbation type
This commit is contained in:
parent
22e54cecd1
commit
77ca529072
@ -219,22 +219,19 @@ module Perturbation : sig
|
|||||||
end = struct
|
end = struct
|
||||||
type t =
|
type t =
|
||||||
| EN
|
| EN
|
||||||
| Barycentric
|
| HF
|
||||||
| Variance
|
|
||||||
| SOP
|
| SOP
|
||||||
[@@deriving sexp]
|
[@@deriving sexp]
|
||||||
|
|
||||||
let to_string = function
|
let to_string = function
|
||||||
| EN -> \"EN\"
|
| EN -> \"EN\"
|
||||||
| Variance -> \"Variance\"
|
| HF -> \"HF\"
|
||||||
| Barycentric -> \"Barycentric\"
|
|
||||||
| SOP -> \"SOP\"
|
| SOP -> \"SOP\"
|
||||||
let of_string s =
|
let of_string s =
|
||||||
match (String.lowercase_ascii s) with
|
match (String.lowercase_ascii s) with
|
||||||
| \"sop\" -> SOP
|
| \"sop\" -> SOP
|
||||||
| \"en\" -> EN
|
| \"en\" -> EN
|
||||||
| \"variance\" -> Variance
|
| \"hf\" -> HF
|
||||||
| \"barycentric\" -> Barycentric
|
|
||||||
| _ -> raise (Invalid_argument (\"Wrong Perturbation type : \"^s))
|
| _ -> raise (Invalid_argument (\"Wrong Perturbation type : \"^s))
|
||||||
end
|
end
|
||||||
"
|
"
|
||||||
|
Loading…
Reference in New Issue
Block a user