Apply suggestions from code review

Co-authored-by: Ioannis Magkanaris <iomagkanaris@gmail.com>

Author: olupton

coreneuron/mechanism/mech/mod2c_core_thread.hpp

@@ -93,7 +93,9 @@ struct SparseObj {          /* all the state information */
 };
 
 nrn_pragma_acc(routine seq)
+nrn_pragma_omp(declare target)
 extern double* _nrn_thread_getelm(SparseObj* so, int row, int col, int _iml);
+nrn_pragma_omp(end declare target)
 
 extern void* nrn_cons_sparseobj(SPFUN, int, Memb_list*, _threadargsproto_);
 

coreneuron/permute/cellorder.cpp

@@ -596,7 +596,8 @@ void solve_interleaved2(int ith) {
         int* strides = ii.stride;           // sum ncycles of these (bad since ncompart/warpsize)
         int* rootbegin = ii.firstnode;      // nwarp+1 of these
         int* nodebegin = ii.lastnode;       // nwarp+1 of these
-#if defined(_OPENACC) && !defined(CORENEURON_PREFER_OPENMP_OFFLOAD) && defined(_OPENACC)
+#if defined(CORENEURON_ENABLE_GPU) && !defined(CORENEURON_PREFER_OPENMP_OFFLOAD) && \
+    defined(_OPENACC)
         int nstride = stridedispl[nwarp];
 #endif
         nrn_pragma_acc(parallel loop gang vector vector_length(

coreneuron/sim/scopmath/ssimplic_thread.cpp

@@ -15,7 +15,9 @@ namespace coreneuron {
 #define s_(arg) _p[s[arg] * _STRIDE]
 
 nrn_pragma_acc(routine seq)
+nrn_pragma_omp(declare target)
 static int check_state(int, int*, _threadargsproto_);
+nrn_pragma_omp(end declare target)
 
 int _ss_sparse_thread(SparseObj* v,
                       int n,