LCPQ/QCaml
10
1
Fork 0
mirror of https://gitlab.com/scemama/QCaml.git synced 2024-11-07 14:43:41 +01:00
Code Releases Activity

Better error message

Browse Source
This commit is contained in:
Anthony Scemama 2019-04-05 18:05:56 +02:00
parent 76627c5e95
commit 81edd8966d
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
CI/F12CI.ml
View File

@ -169,7 +169,11 @@ let dressing_vector ~frozen_core aux_basis f12_amplitudes ci =
) )
in in
let result = let result =
let m_H_aux, m_F_aux = make_h_and_f [(Stream.next out_dets_stream)] in let x =
try [ Stream.next out_dets_stream ]
with Stream.Failure -> failwith "Auxiliary basis set does not produce any excited determinant"
in
let m_H_aux, m_F_aux = make_h_and_f x in
let m_HF = let m_HF =
gemm m_H_aux m_F_aux ~transb:`T gemm m_H_aux m_F_aux ~transb:`T
in in
@ -193,7 +197,7 @@ let dressing_vector ~frozen_core aux_basis f12_amplitudes ci =
Parallel.broadcast (lazy result) Parallel.broadcast (lazy result)
in in
Printf.printf "Done\n%!"; if Parallel.master then Printf.printf "Done\n%!";
Matrix.dense_of_mat m_HF Matrix.dense_of_mat m_HF