diff --git a/src/scopmath/force.cpp b/src/scopmath/force.cpp index aa4f80124e..e17dfb9d01 100644 --- a/src/scopmath/force.cpp +++ b/src/scopmath/force.cpp @@ -35,9 +35,7 @@ typedef struct Spline { #define SP0 (Spline*) 0 static Spline* splist = SP0; /* list of splines */ -static Spline* steplist = SP0; /* list of steps */ static Spline* lastspline = SP0; /* the spline used on previous call */ -static Spline* laststep = SP0; /* the step list used on previous call */ extern int DEFLT; diff --git a/src/scopmath/praxis.cpp b/src/scopmath/praxis.cpp index effb3f8844..580ba7dc63 100644 --- a/src/scopmath/praxis.cpp +++ b/src/scopmath/praxis.cpp @@ -143,7 +143,6 @@ int praxis_stop(int i) { static integer c__1 = 1; static integer c__2 = 2; static integer c__0 = 0; -static integer c__10 = 10; static integer c__4 = 4; static integer c__3 = 3; diff --git a/src/scopmath/sparse.hpp b/src/scopmath/sparse.hpp index 8532f19721..216de7b1ec 100644 --- a/src/scopmath/sparse.hpp +++ b/src/scopmath/sparse.hpp @@ -719,7 +719,7 @@ int _cvode_sparse(void** v, int n, IndexArray x, Array p, int (*fun)(), double** auto const x_ = [&p, &x](auto arg) -> auto& { return p[x[arg]]; }; - int i, j, ierr; + int i, ierr; detail::sparse::SparseObj* so; if (!*prhs) { diff --git a/src/scopmath/sparse_thread.hpp b/src/scopmath/sparse_thread.hpp index e09b0daf33..43c47dd8ff 100644 --- a/src/scopmath/sparse_thread.hpp +++ b/src/scopmath/sparse_thread.hpp @@ -148,7 +148,6 @@ inline void prmat(SparseObj* so) { inline void free_elm(SparseObj* so) { unsigned i; - Elm *el, *elnext; /* free all elements */ nrn_pool_freeall(so->elmpool); @@ -709,7 +708,7 @@ int _cvode_sparse_thread(void** v, int n, IndexArray x, Array p, Callable fun, A auto const x_ = [&p, &x](auto arg) -> auto& { return p[x[arg]]; }; - int i, j, ierr; + int i, ierr; SparseObj* so; so = (SparseObj*) (*v);