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
|
||||
type t =
|
||||
| EN
|
||||
| Barycentric
|
||||
| Variance
|
||||
| HF
|
||||
| SOP
|
||||
[@@deriving sexp]
|
||||
|
||||
let to_string = function
|
||||
| EN -> \"EN\"
|
||||
| Variance -> \"Variance\"
|
||||
| Barycentric -> \"Barycentric\"
|
||||
| HF -> \"HF\"
|
||||
| SOP -> \"SOP\"
|
||||
let of_string s =
|
||||
match (String.lowercase_ascii s) with
|
||||
| \"sop\" -> SOP
|
||||
| \"en\" -> EN
|
||||
| \"variance\" -> Variance
|
||||
| \"barycentric\" -> Barycentric
|
||||
| \"hf\" -> HF
|
||||
| _ -> raise (Invalid_argument (\"Wrong Perturbation type : \"^s))
|
||||
end
|
||||
"
|
||||
|
Loading…
Reference in New Issue
Block a user