Mark some cctk_Loop variables as unused

git-svn-id: http://svn.cactuscode.org/flesh/trunk@4943 17b73243-c579-4c4c-a9d2-2d5706c11dac

2 files changed, 26 insertions, 26 deletions

diff --git a/src/include/cctk_Loop.h b/src/include/cctk_Loop.h
index 8af15eab..05e846f9 100644
--- a/src/include/cctk_Loop.h
+++ b/src/include/cctk_Loop.h
@@ -53,12 +53,12 @@
     int const cctki0_idir = (idir); \
     int const cctki0_imin = (imin_); \
     int const cctki0_imax = (imax_); \
-    int const cctki0_iash = (iash); \
+    int const cctki0_iash CCTK_ATTRIBUTE_UNUSED = (iash); \
     int const cctki0_istr = (istr); \
-    int const imin = cctki0_imin; \
-    int const imax = cctki0_imax; \
+    int const imin CCTK_ATTRIBUTE_UNUSED = cctki0_imin; \
+    int const imax CCTK_ATTRIBUTE_UNUSED = cctki0_imax; \
     _Pragma("omp for") \
-    for (int i=cctki0_imin - (imin) % cctki0_istr; i<cctki0_imax; i+=cctki0_istr) { \
+    for (int i=cctki0_imin - (cctki0_imin) % cctki0_istr; i<cctki0_imax; i+=cctki0_istr) { \
       int const ni CCTK_ATTRIBUTE_UNUSED = cctki0_idir<0 ? i+1 : cctki0_idir==0 ? 0 : cctki0_imax-i; \
       { \
 
@@ -1030,14 +1030,14 @@
     int const cctki0_jmin = (jmin_); \
     int const cctki0_imax = (imax_); \
     int const cctki0_jmax = (jmax_); \
-    int const cctki0_iash = (iash); \
-    int const cctki0_jash = (jash); \
+    int const cctki0_iash CCTK_ATTRIBUTE_UNUSED = (iash); \
+    int const cctki0_jash CCTK_ATTRIBUTE_UNUSED = (jash); \
     int const cctki0_istr = (istr); \
-    int const imin = cctki0_imin; \
-    int const imax = cctki0_imax; \
+    int const imin CCTK_ATTRIBUTE_UNUSED = cctki0_imin; \
+    int const imax CCTK_ATTRIBUTE_UNUSED = cctki0_imax; \
     _Pragma("omp for collapse(1)") \
     for (int j=cctki0_jmin; j<cctki0_jmax; ++j) { \
-    for (int i=cctki0_imin - (imin+cctki0_iash*(j)) % cctki0_istr; i<cctki0_imax; i+=cctki0_istr) { \
+    for (int i=cctki0_imin - (cctki0_imin+cctki0_iash*(j)) % cctki0_istr; i<cctki0_imax; i+=cctki0_istr) { \
       int const ni CCTK_ATTRIBUTE_UNUSED = cctki0_idir<0 ? i+1 : cctki0_idir==0 ? 0 : cctki0_imax-i; \
       int const nj CCTK_ATTRIBUTE_UNUSED = cctki0_jdir<0 ? j+1 : cctki0_jdir==0 ? 0 : cctki0_jmax-j; \
       { \
@@ -2068,16 +2068,16 @@
     int const cctki0_imax = (imax_); \
     int const cctki0_jmax = (jmax_); \
     int const cctki0_kmax = (kmax_); \
-    int const cctki0_iash = (iash); \
-    int const cctki0_jash = (jash); \
-    int const cctki0_kash = (kash); \
+    int const cctki0_iash CCTK_ATTRIBUTE_UNUSED = (iash); \
+    int const cctki0_jash CCTK_ATTRIBUTE_UNUSED = (jash); \
+    int const cctki0_kash CCTK_ATTRIBUTE_UNUSED = (kash); \
     int const cctki0_istr = (istr); \
-    int const imin = cctki0_imin; \
-    int const imax = cctki0_imax; \
+    int const imin CCTK_ATTRIBUTE_UNUSED = cctki0_imin; \
+    int const imax CCTK_ATTRIBUTE_UNUSED = cctki0_imax; \
     _Pragma("omp for collapse(2)") \
     for (int k=cctki0_kmin; k<cctki0_kmax; ++k) { \
     for (int j=cctki0_jmin; j<cctki0_jmax; ++j) { \
-    for (int i=cctki0_imin - (imin+cctki0_iash*(j+cctki0_jash*(k))) % cctki0_istr; i<cctki0_imax; i+=cctki0_istr) { \
+    for (int i=cctki0_imin - (cctki0_imin+cctki0_iash*(j+cctki0_jash*(k))) % cctki0_istr; i<cctki0_imax; i+=cctki0_istr) { \
       int const ni CCTK_ATTRIBUTE_UNUSED = cctki0_idir<0 ? i+1 : cctki0_idir==0 ? 0 : cctki0_imax-i; \
       int const nj CCTK_ATTRIBUTE_UNUSED = cctki0_jdir<0 ? j+1 : cctki0_jdir==0 ? 0 : cctki0_jmax-j; \
       int const nk CCTK_ATTRIBUTE_UNUSED = cctki0_kdir<0 ? k+1 : cctki0_kdir==0 ? 0 : cctki0_kmax-k; \
@@ -3167,18 +3167,18 @@
     int const cctki0_jmax = (jmax_); \
     int const cctki0_kmax = (kmax_); \
     int const cctki0_lmax = (lmax_); \
-    int const cctki0_iash = (iash); \
-    int const cctki0_jash = (jash); \
-    int const cctki0_kash = (kash); \
-    int const cctki0_lash = (lash); \
+    int const cctki0_iash CCTK_ATTRIBUTE_UNUSED = (iash); \
+    int const cctki0_jash CCTK_ATTRIBUTE_UNUSED = (jash); \
+    int const cctki0_kash CCTK_ATTRIBUTE_UNUSED = (kash); \
+    int const cctki0_lash CCTK_ATTRIBUTE_UNUSED = (lash); \
     int const cctki0_istr = (istr); \
-    int const imin = cctki0_imin; \
-    int const imax = cctki0_imax; \
+    int const imin CCTK_ATTRIBUTE_UNUSED = cctki0_imin; \
+    int const imax CCTK_ATTRIBUTE_UNUSED = cctki0_imax; \
     _Pragma("omp for collapse(3)") \
     for (int l=cctki0_lmin; l<cctki0_lmax; ++l) { \
     for (int k=cctki0_kmin; k<cctki0_kmax; ++k) { \
     for (int j=cctki0_jmin; j<cctki0_jmax; ++j) { \
-    for (int i=cctki0_imin - (imin+cctki0_iash*(j+cctki0_jash*(k+cctki0_kash*(l)))) % cctki0_istr; i<cctki0_imax; i+=cctki0_istr) { \
+    for (int i=cctki0_imin - (cctki0_imin+cctki0_iash*(j+cctki0_jash*(k+cctki0_kash*(l)))) % cctki0_istr; i<cctki0_imax; i+=cctki0_istr) { \
       int const ni CCTK_ATTRIBUTE_UNUSED = cctki0_idir<0 ? i+1 : cctki0_idir==0 ? 0 : cctki0_imax-i; \
       int const nj CCTK_ATTRIBUTE_UNUSED = cctki0_jdir<0 ? j+1 : cctki0_jdir==0 ? 0 : cctki0_jmax-j; \
       int const nk CCTK_ATTRIBUTE_UNUSED = cctki0_kdir<0 ? k+1 : cctki0_kdir==0 ? 0 : cctki0_kmax-k; \
diff --git a/src/include/cctk_Loop.h.pl b/src/include/cctk_Loop.h.pl
index 10ade053..311efbcb 100755
--- a/src/include/cctk_Loop.h.pl
+++ b/src/include/cctk_Loop.h.pl
@@ -244,15 +244,15 @@ for $dim (1,2,3,4) {
         (rpt (bsnl '    int const cctki0_[C]dir = ([C]dir);')),
         (rpt (bsnl '    int const cctki0_[C]min = ([C]min_);')),
         (rpt (bsnl '    int const cctki0_[C]max = ([C]max_);')),
-        (rpt (bsnl '    int const cctki0_[C]ash = ([C]ash);')),
+        (rpt (bsnl '    int const cctki0_[C]ash CCTK_ATTRIBUTE_UNUSED = ([C]ash);')),
         (bsnl '    int const cctki0_istr = (istr);'),
         # Export loop bounds in the i direction
-        (bsnl '    int const imin = cctki0_imin;'),
-        (bsnl '    int const imax = cctki0_imax;'),
+        (bsnl '    int const imin CCTK_ATTRIBUTE_UNUSED = cctki0_imin;'),
+        (bsnl '    int const imax CCTK_ATTRIBUTE_UNUSED = cctki0_imax;'),
         (bsnl '    _Pragma("omp for[DIM==1?: collapse([DIM-1])]")'),
         (reverse (rpt (bsnl ('    for (int [C]=cctki0_[C]min' .
                              # Align i-loop to vector size
-                             '[I==1? - ' . (sep '', rpt '[I==1?(imin:+cctki0_[C-1]ash*([C]]') . (sep '', rpt ')') . ' % cctki0_istr:]' .
+                             '[I==1? - ' . (sep '', rpt '[I==1?(cctki0_imin:+cctki0_[C-1]ash*([C]]') . (sep '', rpt ')') . ' % cctki0_istr:]' .
                              '; [C]<cctki0_[C]max; [I==1?[C]+=cctki0_[C]str:++[C]]) {')))),
         (rpt (bsnl '      int const n[C] CCTK_ATTRIBUTE_UNUSED = cctki0_[C]dir<0 ? [C]+1 : cctki0_[C]dir==0 ? 0 : cctki0_[C]max-[C];')),
         (bsnl '      {'),