diff --git a/org/qmckl_blas.org b/org/qmckl_blas.org index 1a50529..6fc570f 100644 --- a/org/qmckl_blas.org +++ b/org/qmckl_blas.org @@ -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 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)