mirror of
https://github.com/TREX-CoE/qmckl.git
synced 2024-12-22 20:36:01 +01:00
Merge branch 'wf_det_grad_cof' of https://github.com/v1j4y/qmckl into wf_det_grad_cof
This commit is contained in:
commit
9c68623e0e
@ -145,22 +145,23 @@ integer function qmckl_dgemm_f(context, TransA, TransB, m, n, k, alpha, A, LDA,
|
||||
return
|
||||
endif
|
||||
|
||||
if (LDA_2 .ne. m) then
|
||||
if (LDA_2 /= m) then
|
||||
info = QMCKL_INVALID_ARG_9
|
||||
return
|
||||
endif
|
||||
|
||||
if (LDB_2 .ne. k) then
|
||||
if (LDB_2 /= k) then
|
||||
info = QMCKL_INVALID_ARG_10
|
||||
return
|
||||
endif
|
||||
|
||||
if (LDC .ne. m) then
|
||||
if (LDC /= m) then
|
||||
info = QMCKL_INVALID_ARG_13
|
||||
return
|
||||
endif
|
||||
|
||||
if (TransA) then
|
||||
|
||||
if (alpha .eq. 1.0d0 .and. beta .eq. 0.0d0) then
|
||||
C = matmul(AT,B)
|
||||
else
|
||||
|
@ -73,7 +73,7 @@ To learn more about Verificarlo CI :
|
||||
https://github.com/verificarlo/verificarlo/blob/master/doc/06-Postprocessing.md#verificarlo-ci
|
||||
|
||||
|
||||
** Automatically initialize the vfc_probe object if ~VFC_CI~ is defined
|
||||
** Automatically initialize the ~vfc_probe~ object if ~VFC_CI~ is defined
|
||||
|
||||
#+begin_src c :tangle (eval h_private_func)
|
||||
#ifdef VFC_CI
|
||||
@ -118,8 +118,8 @@ bool qmckl_probe(
|
||||
|
||||
** Probe with absolute check
|
||||
|
||||
- if VFC_CI is defined, place a probe with an absolute check
|
||||
- if VFC_CI is undefined, perform an absolute check based on target value
|
||||
- if ~VFC_CI~ is defined, place a probe with an absolute check
|
||||
- if ~VFC_CI~ is undefined, perform an absolute check based on target value
|
||||
and accuracy
|
||||
|
||||
#+begin_src c :tangle (eval h_private_func)
|
||||
@ -150,8 +150,8 @@ bool qmckl_probe_check(
|
||||
|
||||
** Probe with relative check
|
||||
|
||||
- if VFC_CI is defined, place a probe with a relative check
|
||||
- if VFC_CI is undefined, perform a relative check based on target value
|
||||
- if ~VFC_CI~ is defined, place a probe with a relative check
|
||||
- if ~VFC_CI~ is undefined, perform a relative check based on target value
|
||||
and accuracy
|
||||
|
||||
#+begin_src c :tangle (eval h_private_func)
|
||||
|
Loading…
Reference in New Issue
Block a user