mirror of
https://github.com/LCPQ/quantum_package
synced 2024-10-02 14:30:59 +02:00
Bug in bitlist order corrected
This commit is contained in:
parent
655c0ad737
commit
66abccfdfb
@ -92,7 +92,7 @@ let to_int64_list l =
|
|||||||
in
|
in
|
||||||
let l = do_work [] [] 1 l
|
let l = do_work [] [] 1 l
|
||||||
in
|
in
|
||||||
List.map to_int64 l
|
List.rev_map to_int64 l
|
||||||
;;
|
;;
|
||||||
|
|
||||||
(* Create a bit list from a list of MO indices *)
|
(* Create a bit list from a list of MO indices *)
|
||||||
|
Loading…
Reference in New Issue
Block a user