mirror of
https://github.com/LCPQ/quantum_package
synced 2024-12-23 04:43:50 +01:00
Added Input_cis.ml
This commit is contained in:
parent
161e54ad15
commit
b07365c52f
@ -6,5 +6,6 @@ open Core.Std;;
|
|||||||
include Input_ao_basis;;
|
include Input_ao_basis;;
|
||||||
include Input_bi_integrals;;
|
include Input_bi_integrals;;
|
||||||
include Input_bitmasks;;
|
include Input_bitmasks;;
|
||||||
|
include Input_cis;;
|
||||||
|
|
||||||
|
|
||||||
|
105
ocaml/Input_cis.ml
Normal file
105
ocaml/Input_cis.ml
Normal file
@ -0,0 +1,105 @@
|
|||||||
|
open Qptypes;;
|
||||||
|
open Qputils;;
|
||||||
|
open Core.Std;;
|
||||||
|
|
||||||
|
module Cis_dressed : sig
|
||||||
|
type t
|
||||||
|
val read : unit -> t
|
||||||
|
val to_string : t -> string
|
||||||
|
end = struct
|
||||||
|
type t =
|
||||||
|
{ n_state_cis : Strictly_positive_int.t;
|
||||||
|
n_core_cis : Positive_int.t;
|
||||||
|
n_act_cis : Positive_int.t;
|
||||||
|
mp2_dressing : bool;
|
||||||
|
standard_doubles : bool;
|
||||||
|
en_2_2 : bool;
|
||||||
|
}
|
||||||
|
;;
|
||||||
|
|
||||||
|
let get_default = Qpackage.get_ezfio_default "cis_dressed";;
|
||||||
|
|
||||||
|
let read_n_state_cis () =
|
||||||
|
if not (Ezfio.has_cis_dressed_n_state_cis ()) then
|
||||||
|
get_default "n_state_cis"
|
||||||
|
|> Int.of_string
|
||||||
|
|> Ezfio.set_cis_dressed_n_state_cis
|
||||||
|
;
|
||||||
|
Ezfio.get_cis_dressed_n_state_cis ()
|
||||||
|
|> Strictly_positive_int.of_int
|
||||||
|
;;
|
||||||
|
|
||||||
|
let read_n_core_cis () =
|
||||||
|
if not (Ezfio.has_cis_dressed_n_core_cis ()) then
|
||||||
|
get_default "n_core_cis"
|
||||||
|
|> Int.of_string
|
||||||
|
|> Ezfio.set_cis_dressed_n_core_cis
|
||||||
|
;
|
||||||
|
Ezfio.get_cis_dressed_n_core_cis ()
|
||||||
|
|> Positive_int.of_int
|
||||||
|
;;
|
||||||
|
|
||||||
|
let read_n_act_cis () =
|
||||||
|
if not (Ezfio.has_cis_dressed_n_act_cis ()) then
|
||||||
|
Ezfio.get_mo_basis_mo_tot_num ()
|
||||||
|
|> Ezfio.set_cis_dressed_n_act_cis
|
||||||
|
;
|
||||||
|
Ezfio.get_cis_dressed_n_act_cis ()
|
||||||
|
|> Positive_int.of_int
|
||||||
|
;;
|
||||||
|
|
||||||
|
let read_mp2_dressing () =
|
||||||
|
if not (Ezfio.has_cis_dressed_mp2_dressing ()) then
|
||||||
|
get_default "mp2_dressing"
|
||||||
|
|> Bool.of_string
|
||||||
|
|> Ezfio.set_cis_dressed_mp2_dressing
|
||||||
|
;
|
||||||
|
Ezfio.get_cis_dressed_mp2_dressing ()
|
||||||
|
;;
|
||||||
|
|
||||||
|
let read_standard_doubles () =
|
||||||
|
if not (Ezfio.has_cis_dressed_standard_doubles ()) then
|
||||||
|
get_default "standard_doubles"
|
||||||
|
|> Bool.of_string
|
||||||
|
|> Ezfio.set_cis_dressed_standard_doubles
|
||||||
|
;
|
||||||
|
Ezfio.get_cis_dressed_standard_doubles ()
|
||||||
|
;;
|
||||||
|
|
||||||
|
let read_en_2_2 () =
|
||||||
|
if not (Ezfio.has_cis_dressed_en_2_2 ()) then
|
||||||
|
get_default "en_2_2"
|
||||||
|
|> Bool.of_string
|
||||||
|
|> Ezfio.set_cis_dressed_en_2_2
|
||||||
|
;
|
||||||
|
Ezfio.get_cis_dressed_en_2_2 ()
|
||||||
|
;;
|
||||||
|
|
||||||
|
let read () =
|
||||||
|
{ n_state_cis = read_n_state_cis ();
|
||||||
|
n_core_cis = read_n_core_cis ();
|
||||||
|
n_act_cis = read_n_act_cis ();
|
||||||
|
mp2_dressing = read_mp2_dressing ();
|
||||||
|
standard_doubles = read_standard_doubles ();
|
||||||
|
en_2_2 = read_en_2_2 ();
|
||||||
|
}
|
||||||
|
;;
|
||||||
|
|
||||||
|
let to_string b =
|
||||||
|
Printf.sprintf "
|
||||||
|
n_state_cis = %s
|
||||||
|
n_core_cis = %s
|
||||||
|
n_act_cis = %s
|
||||||
|
mp2_dressing = %s
|
||||||
|
standard_doubles = %s
|
||||||
|
en_2_2 = %s
|
||||||
|
"
|
||||||
|
(Strictly_positive_int.to_string b.n_state_cis)
|
||||||
|
(Positive_int.to_string b.n_core_cis)
|
||||||
|
(Positive_int.to_string b.n_act_cis)
|
||||||
|
(Bool.to_string b.mp2_dressing)
|
||||||
|
(Bool.to_string b.standard_doubles)
|
||||||
|
(Bool.to_string b.en_2_2)
|
||||||
|
end
|
||||||
|
|
||||||
|
|
@ -19,4 +19,11 @@ let test_bitmasks () =
|
|||||||
print_endline (Input.Bitmasks.to_string b);
|
print_endline (Input.Bitmasks.to_string b);
|
||||||
;;
|
;;
|
||||||
|
|
||||||
test_bitmasks ();;
|
let test_cis () =
|
||||||
|
Ezfio.set_file "F2.ezfio" ;
|
||||||
|
let b = Input.Cis_dressed.read ()
|
||||||
|
in
|
||||||
|
print_endline (Input.Cis_dressed.to_string b);
|
||||||
|
;;
|
||||||
|
|
||||||
|
test_cis ();;
|
||||||
|
Loading…
Reference in New Issue
Block a user