From 00a051af49cb9c54380b5a4effc599e3c741b383 Mon Sep 17 00:00:00 2001 From: Anthony Scemama Date: Sat, 31 Oct 2020 19:07:57 +0100 Subject: [PATCH] Added const attributes --- src/qmckl_ao.org | 18 +++++++++--------- src/qmckl_context.org | 19 ++++++++++++------- src/qmckl_distance.org | 12 ++++++------ 3 files changed, 27 insertions(+), 22 deletions(-) diff --git a/src/qmckl_ao.org b/src/qmckl_ao.org index c8e57a4..b14f440 100644 --- a/src/qmckl_ao.org +++ b/src/qmckl_ao.org @@ -84,10 +84,10 @@ MunitResult test_qmckl_ao() { *** Header #+BEGIN_SRC C :comments link :tangle qmckl_ao.h -qmckl_exit_code qmckl_ao_powers(qmckl_context context, - int64_t n, - double *X, int32_t *LMAX, - double *P, int64_t LDP); +qmckl_exit_code qmckl_ao_powers(const qmckl_context context, + const int64_t n, + const double *X, const int32_t *LMAX, + const double *P, const int64_t LDP); #+END_SRC *** Source @@ -234,11 +234,11 @@ munit_assert_int(0, ==, test_qmckl_ao_powers(context)); *** Header #+BEGIN_SRC C :comments link :tangle qmckl_ao.h -qmckl_exit_code qmckl_ao_polynomial_vgl(qmckl_context context, - double *X, double *R, - int32_t lmax, int64_t *n, - int32_t *L, int64_t ldl, - double *VGL, int64_t ldv); +qmckl_exit_code qmckl_ao_polynomial_vgl(const qmckl_context context, + const double *X, const double *R, + const int32_t lmax, const int64_t *n, + const int32_t *L, const int64_t ldl, + const double *VGL, const int64_t ldv); #+END_SRC *** Source diff --git a/src/qmckl_context.org b/src/qmckl_context.org index e839078..ad35918 100644 --- a/src/qmckl_context.org +++ b/src/qmckl_context.org @@ -275,11 +275,12 @@ qmckl_exit_code qmckl_context_destroy(qmckl_context context) { The update functions return =QMCKL_SUCCESS= or =QMCKL_FAILURE=. ** =qmckl_context_update_precision= -*** Source +*** Header #+BEGIN_SRC C :comments link :tangle qmckl_context.h qmckl_exit_code qmckl_context_update_precision(const qmckl_context context, const int precision); #+END_SRC +*** Source #+BEGIN_SRC C :comments link :tangle qmckl_context.c qmckl_exit_code qmckl_context_update_precision(const qmckl_context context, const int precision) { qmckl_context_struct* ctx; @@ -297,11 +298,12 @@ qmckl_exit_code qmckl_context_update_precision(const qmckl_context context, cons *** TODO Tests :noexport: ** =qmckl_context_update_range= -*** Source +*** Header #+BEGIN_SRC C :comments link :tangle qmckl_context.h qmckl_exit_code qmckl_context_update_range(const qmckl_context context, const int range); #+END_SRC +*** Source #+BEGIN_SRC C :comments link :tangle qmckl_context.c qmckl_exit_code qmckl_context_update_range(const qmckl_context context, const int range) { qmckl_context_struct* ctx; @@ -319,11 +321,12 @@ qmckl_exit_code qmckl_context_update_range(const qmckl_context context, const in *** TODO Tests :noexport: ** =qmckl_context_set_precision= -*** Source +*** Header #+BEGIN_SRC C :comments link :tangle qmckl_context.h qmckl_context qmckl_context_set_precision(const qmckl_context context, const int precision); #+END_SRC +*** Source #+BEGIN_SRC C :comments link :tangle qmckl_context.c qmckl_context qmckl_context_set_precision(const qmckl_context context, const int precision) { qmckl_context new_context; @@ -339,11 +342,12 @@ qmckl_context qmckl_context_set_precision(const qmckl_context context, const int *** TODO Tests :noexport: ** =qmckl_context_set_range= -*** Source +*** Header #+BEGIN_SRC C :comments link :tangle qmckl_context.h qmckl_context qmckl_context_set_range(const qmckl_context context, const int range); #+END_SRC +*** Source #+BEGIN_SRC C :comments link :tangle qmckl_context.c qmckl_context qmckl_context_set_range(const qmckl_context context, const int range) { qmckl_context new_context; @@ -360,11 +364,12 @@ qmckl_context qmckl_context_set_range(const qmckl_context context, const int ran *** TODO Tests :noexport: ** =qmckl_context_get_precision= -*** Source +*** Header #+BEGIN_SRC C :comments link :tangle qmckl_context.h int qmckl_context_get_precision(const qmckl_context context); #+END_SRC +*** Source #+BEGIN_SRC C :comments link :tangle qmckl_context.c int qmckl_context_get_precision(const qmckl_context context) { qmckl_context_struct* ctx; @@ -375,12 +380,12 @@ int qmckl_context_get_precision(const qmckl_context context) { *** TODO Tests :noexport: ** =qmckl_context_get_range= -*** Source - +*** Header #+BEGIN_SRC C :comments link :tangle qmckl_context.h int qmckl_context_get_range(const qmckl_context context); #+END_SRC +*** Source #+BEGIN_SRC C :comments link :tangle qmckl_context.c int qmckl_context_get_range(const qmckl_context context) { qmckl_context_struct* ctx; diff --git a/src/qmckl_distance.org b/src/qmckl_distance.org index 8bee0eb..847ca30 100644 --- a/src/qmckl_distance.org +++ b/src/qmckl_distance.org @@ -81,12 +81,12 @@ MunitResult test_qmckl_distance() { *** Header #+BEGIN_SRC C :comments link :tangle qmckl_distance.h -qmckl_exit_code qmckl_distance_sq(qmckl_context context, - char transa, char transb, - int64_t m, int64_t n, - double *A, int64_t lda, - double *B, int64_t ldb, - double *C, int64_t ldc); +qmckl_exit_code qmckl_distance_sq(const qmckl_context context, + const char transa, const char transb, + const int64_t m, const int64_t n, + const double *A, const int64_t lda, + const double *B, const int64_t ldb, + const double *C, const int64_t ldc); #+END_SRC *** Source