mirror of
https://github.com/TREX-CoE/qmckl.git
synced 2024-08-18 03:11:44 +02: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
|
return
|
||||||
endif
|
endif
|
||||||
|
|
||||||
if (LDA_2 .ne. m) then
|
if (LDA_2 /= m) then
|
||||||
info = QMCKL_INVALID_ARG_9
|
info = QMCKL_INVALID_ARG_9
|
||||||
return
|
return
|
||||||
endif
|
endif
|
||||||
|
|
||||||
if (LDB_2 .ne. k) then
|
if (LDB_2 /= k) then
|
||||||
info = QMCKL_INVALID_ARG_10
|
info = QMCKL_INVALID_ARG_10
|
||||||
return
|
return
|
||||||
endif
|
endif
|
||||||
|
|
||||||
if (LDC .ne. m) then
|
if (LDC /= m) then
|
||||||
info = QMCKL_INVALID_ARG_13
|
info = QMCKL_INVALID_ARG_13
|
||||||
return
|
return
|
||||||
endif
|
endif
|
||||||
|
|
||||||
if (TransA) then
|
if (TransA) then
|
||||||
|
|
||||||
if (alpha .eq. 1.0d0 .and. beta .eq. 0.0d0) then
|
if (alpha .eq. 1.0d0 .and. beta .eq. 0.0d0) then
|
||||||
C = matmul(AT,B)
|
C = matmul(AT,B)
|
||||||
else
|
else
|
||||||
|
@ -73,7 +73,7 @@ To learn more about Verificarlo CI :
|
|||||||
https://github.com/verificarlo/verificarlo/blob/master/doc/06-Postprocessing.md#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)
|
#+begin_src c :tangle (eval h_private_func)
|
||||||
#ifdef VFC_CI
|
#ifdef VFC_CI
|
||||||
@ -118,8 +118,8 @@ bool qmckl_probe(
|
|||||||
|
|
||||||
** Probe with absolute check
|
** Probe with absolute check
|
||||||
|
|
||||||
- if VFC_CI is defined, place a probe with an 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 undefined, perform an absolute check based on target value
|
||||||
and accuracy
|
and accuracy
|
||||||
|
|
||||||
#+begin_src c :tangle (eval h_private_func)
|
#+begin_src c :tangle (eval h_private_func)
|
||||||
@ -150,8 +150,8 @@ bool qmckl_probe_check(
|
|||||||
|
|
||||||
** Probe with relative check
|
** Probe with relative check
|
||||||
|
|
||||||
- if VFC_CI is defined, place a probe with a 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 undefined, perform a relative check based on target value
|
||||||
and accuracy
|
and accuracy
|
||||||
|
|
||||||
#+begin_src c :tangle (eval h_private_func)
|
#+begin_src c :tangle (eval h_private_func)
|
||||||
|
Loading…
Reference in New Issue
Block a user