LCPQ
/
QCaml
mirror of https://gitlab.com/scemama/QCaml.git
10
1
Fork 0
Code Releases Activity

Better error message

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
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 =
gemm m_H_aux m_F_aux ~transb:`T
in
@ -193,7 +197,7 @@ let dressing_vector ~frozen_core aux_basis f12_amplitudes ci =
Parallel.broadcast (lazy result)
in
Printf.printf "Done\n%!";
if Parallel.master then Printf.printf "Done\n%!";
Matrix.dense_of_mat m_HF