TREX/qmckl
1
0
Fork 0
mirror of https://github.com/TREX-CoE/qmckl.git synced 2024-12-23 04:44:03 +01:00
Code Issues Projects Releases Wiki Activity

Merge branch 'wf_det_grad_cof' of https://github.com/v1j4y/qmckl into wf_det_grad_cof

Browse Source
This commit is contained in:
v1j4y 2021-10-19 11:37:54 +02:00
commit 9c68623e0e
2 changed files with 9 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
org/qmckl_blas.org
View File

@ -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

10
org/qmckl_verificarlo.org
View File

@ -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)