From 6d3eb35b7fe909c7c90c4fe79f30c9e692ed920f Mon Sep 17 00:00:00 2001 From: Anthony Scemama Date: Fri, 15 Oct 2021 12:09:48 +0200 Subject: [PATCH 1/2] style for documentation --- org/qmckl_verificarlo.org | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/org/qmckl_verificarlo.org b/org/qmckl_verificarlo.org index 548e513..fdeccfc 100644 --- a/org/qmckl_verificarlo.org +++ b/org/qmckl_verificarlo.org @@ -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) From d36810ce373941040d18fc3e29f7acab8b0423de Mon Sep 17 00:00:00 2001 From: Anthony Scemama Date: Sun, 17 Oct 2021 17:57:15 +0200 Subject: [PATCH 2/2] Fix Fortran BLAS && -> .and. --- org/qmckl_blas.org | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/org/qmckl_blas.org b/org/qmckl_blas.org index 33856fb..3d59d7b 100644 --- a/org/qmckl_blas.org +++ b/org/qmckl_blas.org @@ -146,35 +146,35 @@ 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 == 1.d0 && beta == 0.d0) then + if (alpha == 1.d0 .and. beta == 0.d0) then C = matmul(AT,B) else C = beta*C + alpha*matmul(AT,B) endif else if (TransB) then - if (alpha == 1.d0 && beta == 0.d0) then + if (alpha == 1.d0 .and. beta == 0.d0) then C = matmul(A,BT) else C = beta*C + alpha*matmul(A,BT) endif else - if (alpha == 1.d0 && beta == 0.d0) then + if (alpha == 1.d0 .and. beta == 0.d0) then C = matmul(A,B) else C = beta*C + alpha*matmul(A,B)