TREX/qmckl
1
0
Fork 0
mirror of https://github.com/TREX-CoE/qmckl.git synced 2025-01-03 01:56:18 +01:00
Code Issues Projects Releases Wiki Activity

qmckl_mo_basis_select_mo is qmckl_exit_code, not bool

Browse Source
This commit is contained in:
Anthony Scemama 2023-03-09 11:01:55 +01:00
parent c715f3e31f
commit 44c4c6c6d5
1 changed files with 8 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
org/qmckl_mo.org
View File

@ -455,15 +455,17 @@ end interface
otherwise it is kept. otherwise it is kept.
#+begin_src c :comments org :tangle (eval h_func) #+begin_src c :comments org :tangle (eval h_func)
bool qmckl_mo_basis_select_mo (const qmckl_context context, qmckl_exit_code
const int32_t* keep, qmckl_mo_basis_select_mo (const qmckl_context context,
const int64_t size_max); const int32_t* keep,
const int64_t size_max);
#+end_src #+end_src
#+begin_src c :comments org :tangle (eval c) :exports none #+begin_src c :comments org :tangle (eval c) :exports none
bool qmckl_mo_basis_select_mo (const qmckl_context context, qmckl_exit_code
const int32_t* keep, qmckl_mo_basis_select_mo (const qmckl_context context,
const int64_t size_max) const int32_t* keep,
const int64_t size_max)
{ {
if (qmckl_context_check(context) == QMCKL_NULL_CONTEXT) { if (qmckl_context_check(context) == QMCKL_NULL_CONTEXT) {
return qmckl_failwith( context, return qmckl_failwith( context,