From b70dd91db94427cbcc9613d1e6675f8d6885395a Mon Sep 17 00:00:00 2001
From: Anthony Scemama <scemama@irsamc.ups-tlse.fr>
Date: Fri, 6 May 2022 00:18:23 +0200
Subject: [PATCH] Fix bad style

---
 org/qmckl_mo.org | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/org/qmckl_mo.org b/org/qmckl_mo.org
index 31d2885..026f52c 100644
--- a/org/qmckl_mo.org
+++ b/org/qmckl_mo.org
@@ -805,6 +805,8 @@ qmckl_compute_mo_basis_mo_vgl_hpc (const qmckl_context context,
                                    const double* restrict ao_vgl,
                                    double* restrict const mo_vgl )
 {
+  assert (context != QMCKL_NULL_CONTEXT);
+
 #ifdef HAVE_OPENMP
   #pragma omp parallel for
 #endif
@@ -837,7 +839,6 @@ qmckl_compute_mo_basis_mo_vgl_hpc (const qmckl_context context,
     double  av4[ao_num];
     double  av5[ao_num];
     for (int64_t k=0 ; k<ao_num ; ++k) {
-      const double* restrict ck1 = coef_normalized_t + k*mo_num;
       if (avgl1[k] != 0.) {
         idx[nidx] = k;
         av1[nidx] = avgl1[k];
@@ -852,7 +853,6 @@ qmckl_compute_mo_basis_mo_vgl_hpc (const qmckl_context context,
     int64_t n;
 
     for (n=0 ; n < nidx-4 ; n+=4) {
-      int64_t k = idx[n];
       const double* restrict ck1 = coef_normalized_t + idx[n  ]*mo_num;
       const double* restrict ck2 = coef_normalized_t + idx[n+1]*mo_num;
       const double* restrict ck3 = coef_normalized_t + idx[n+2]*mo_num;