summaryrefslogtreecommitdiff
path: root/src/include/cctk_Loop.h.pl
diff options
context:
space:
mode:
Diffstat (limited to 'src/include/cctk_Loop.h.pl')
-rwxr-xr-xsrc/include/cctk_Loop.h.pl450
1 files changed, 225 insertions, 225 deletions
diff --git a/src/include/cctk_Loop.h.pl b/src/include/cctk_Loop.h.pl
index 899d34f5..4e69b04a 100755
--- a/src/include/cctk_Loop.h.pl
+++ b/src/include/cctk_Loop.h.pl
@@ -215,18 +215,18 @@ for $dim (1,2,3,4) {
(bsnl '#define CCTK_LOOP[DIM]_NORMAL(name,'),
(bsnl ' '.(crpt '[C]').','),
(bsnl ' '.(crpt 'n[C]').','),
- (bsnl ' '.(crpt '[C]dir').','),
- (bsnl ' '.(crpt '[C]min').','),
- (bsnl ' '.(crpt '[C]max').','),
- (bsnl ' '.(crpt '[C]ash').')'),
+ (bsnl ' '.(crpt 'cctki0_[C]dir_').','),
+ (bsnl ' '.(crpt 'cctki0_[C]min_').','),
+ (bsnl ' '.(crpt 'cctki0_[C]max_').','),
+ (bsnl ' '.(crpt 'cctki0_[C]ash_').')'),
(bsnl ' CCTK_LOOP[DIM]STR_NORMAL(name,'),
(bsnl ' '.(crpt '[C]').','),
(bsnl ' '.(crpt 'n[C]').','),
- (bsnl ' '.(crpt '([C]dir)').','),
- (bsnl ' '.(crpt '([C]min)').','),
- (bsnl ' '.(crpt '([C]max)').','),
- (bsnl ' '.(crpt '([C]ash)').','),
- (bsnl ' cctki0_imin_,cctki0_imax_, 1)'),
+ (bsnl ' '.(crpt '(cctki0_[C]dir_)').','),
+ (bsnl ' '.(crpt '(cctki0_[C]min_)').','),
+ (bsnl ' '.(crpt '(cctki0_[C]max_)').','),
+ (bsnl ' '.(crpt '(cctki0_[C]ash_)').','),
+ (bsnl ' cctki0_dummy_imin,cctki0_dummy_imax, 1)'),
(nl ''),
(bsnl '#define CCTK_ENDLOOP[DIM]_NORMAL(name)'),
(bsnl ' CCTK_ENDLOOP[DIM]STR_NORMAL(name)'),
@@ -234,18 +234,18 @@ for $dim (1,2,3,4) {
(bsnl '#define CCTK_LOOP[DIM]STR_NORMAL(name,'),
(bsnl ' '.(crpt '[C]').','),
(bsnl ' '.(crpt 'n[C]').','),
- (bsnl ' '.(crpt '[C]dir').','),
- (bsnl ' '.(crpt '[C]min_').','),
- (bsnl ' '.(crpt '[C]max_').','),
- (bsnl ' '.(crpt '[C]ash').','),
- (bsnl ' imin,imax, istr)'),
+ (bsnl ' '.(crpt 'cctki0_[C]dir_').','),
+ (bsnl ' '.(crpt 'cctki0_[C]min_').','),
+ (bsnl ' '.(crpt 'cctki0_[C]max_').','),
+ (bsnl ' '.(crpt 'cctki0_[C]ash_').','),
+ (bsnl ' imin,imax, cctki0_istr_)'),
(bsnl ' do {'),
(bsnl ' typedef int cctki0_loop[DIM]_normal_##name;'),
- (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 CCTK_ATTRIBUTE_UNUSED = ([C]ash);')),
- (bsnl ' int const cctki0_istr = (istr);'),
+ (rpt (bsnl ' int const cctki0_[C]dir = (cctki0_[C]dir_);')),
+ (rpt (bsnl ' int const cctki0_[C]min = (cctki0_[C]min_);')),
+ (rpt (bsnl ' int const cctki0_[C]max = (cctki0_[C]max_);')),
+ (rpt (bsnl ' int const cctki0_[C]ash CCTK_ATTRIBUTE_UNUSED = (cctki0_[C]ash_);')),
+ (bsnl ' int const cctki0_istr = (cctki0_istr_);'),
# Export loop bounds in the i direction
(bsnl ' int const imin CCTK_ATTRIBUTE_UNUSED = cctki0_imin;'),
(bsnl ' int const imax CCTK_ATTRIBUTE_UNUSED = cctki0_imax;'),
@@ -268,33 +268,33 @@ for $dim (1,2,3,4) {
(nl ''),
(bsnl '#define CCTK_LOOP[DIM](name,'),
(bsnl ' '.(crpt '[C]').','),
- (bsnl ' '.(crpt '[C]min').','),
- (bsnl ' '.(crpt '[C]max').','),
- (bsnl ' '.(crpt '[C]ash').')'),
+ (bsnl ' '.(crpt 'cctki1_[C]min_').','),
+ (bsnl ' '.(crpt 'cctki1_[C]max_').','),
+ (bsnl ' '.(crpt 'cctki1_[C]ash_').')'),
(bsnl ' CCTK_LOOP[DIM]STR(name,'),
(bsnl ' '.(crpt '[C]').','),
- (bsnl ' '.(crpt '([C]min)').','),
- (bsnl ' '.(crpt '([C]max)').','),
- (bsnl ' '.(crpt '([C]ash)').','),
- (bsnl ' cctki1_imin_,cctki1_imax_, 1)'),
+ (bsnl ' '.(crpt '(cctki1_[C]min_)').','),
+ (bsnl ' '.(crpt '(cctki1_[C]max_)').','),
+ (bsnl ' '.(crpt '(cctki1_[C]ash_)').','),
+ (bsnl ' cctki1_dummy_imin,cctki1_dummy_imax, 1)'),
(nl ''),
(bsnl '#define CCTK_ENDLOOP[DIM](name)'),
(bsnl ' CCTK_ENDLOOP[DIM]STR(name)'),
(nl ''),
(bsnl '#define CCTK_LOOP[DIM]STR(name,'),
(bsnl ' '.(crpt '[C]').','),
- (bsnl ' '.(crpt '[C]min_').','),
- (bsnl ' '.(crpt '[C]max_').','),
- (bsnl ' '.(crpt '[C]ash').','),
- (bsnl ' imin,imax, istr)'),
+ (bsnl ' '.(crpt 'cctki1_[C]min_').','),
+ (bsnl ' '.(crpt 'cctki1_[C]max_').','),
+ (bsnl ' '.(crpt 'cctki1_[C]ash_').','),
+ (bsnl ' imin,imax, cctki1_istr_)'),
(bsnl ' CCTK_LOOP[DIM]STR_NORMAL(name,'),
(bsnl ' '.(crpt '[C]').','),
(bsnl ' '.(crpt 'cctki1_n[C]').','),
(bsnl ' '.(crpt '0').','),
- (bsnl ' '.(crpt '[C]min_').','),
- (bsnl ' '.(crpt '[C]max_').','),
- (bsnl ' '.(crpt '[C]ash').','),
- (bsnl ' imin,imax, istr)'),
+ (bsnl ' '.(crpt '(cctki1_[C]min_)').','),
+ (bsnl ' '.(crpt '(cctki1_[C]max_)').','),
+ (bsnl ' '.(crpt '(cctki1_[C]ash_)').','),
+ (bsnl ' imin,imax, (cctki1_istr_))'),
(nl ''),
(bsnl '#define CCTK_ENDLOOP[DIM]STR(name)'),
(bsnl ' CCTK_ENDLOOP[DIM]STR_NORMAL(name)'),
@@ -303,27 +303,27 @@ for $dim (1,2,3,4) {
(nl ''),
(nl '/* LOOP_INTERIOR */'),
(nl ''),
- (bsnl '#define CCTK_LOOP[DIM]_INTERIOR(name, cctkGH,'),
+ (bsnl '#define CCTK_LOOP[DIM]_INTERIOR(name, cctki2_cctkGH_,'),
(bsnl ' '.(crpt '[C]').','),
- (bsnl ' '.(crpt '[C]blo').','),
- (bsnl ' '.(crpt '[C]bhi').')'),
- (bsnl ' CCTK_LOOP[DIM]STR_INTERIOR(name, (cctkGH),'),
+ (bsnl ' '.(crpt 'cctki2_[C]blo_').','),
+ (bsnl ' '.(crpt 'cctki2_[C]bhi_').')'),
+ (bsnl ' CCTK_LOOP[DIM]STR_INTERIOR(name, (cctki2_cctkGH_),'),
(bsnl ' '.(crpt '[C]').','),
- (bsnl ' '.(crpt '([C]blo)').','),
- (bsnl ' '.(crpt '([C]bhi)').','),
- (bsnl ' cctki2_imin_,cctki2_imax_, 1)'),
+ (bsnl ' '.(crpt '(cctki2_[C]blo_)').','),
+ (bsnl ' '.(crpt '(cctki2_[C]bhi_)').','),
+ (bsnl ' cctki2_dummy_imin,cctki2_dummy_imax, 1)'),
(nl ''),
(bsnl '#define CCTK_ENDLOOP[DIM]_INTERIOR(name)'),
(bsnl ' CCTK_ENDLOOP[DIM]STR_INTERIOR(name)'),
(nl ''),
- (bsnl '#define CCTK_LOOP[DIM]STR_INTERIOR(name, cctkGH,'),
+ (bsnl '#define CCTK_LOOP[DIM]STR_INTERIOR(name, cctki2_cctkGH_,'),
(bsnl ' '.(crpt '[C]').','),
- (bsnl ' '.(crpt '[C]blo').','),
- (bsnl ' '.(crpt '[C]bhi').','),
- (bsnl ' imin,imax, istr)'),
+ (bsnl ' '.(crpt 'cctki2_[C]blo_').','),
+ (bsnl ' '.(crpt 'cctki2_[C]bhi_').','),
+ (bsnl ' imin,imax, cctki2_istr_)'),
(bsnl ' do {'),
(bsnl ' typedef int cctki2_loop[DIM]_interior_##name;'),
- (bsnl ' cGH const *restrict const cctki2_cctkGH = (cctkGH);'),
+ (bsnl ' cGH const *restrict const cctki2_cctkGH = (cctki2_cctkGH_);'),
(bsnl ' if (cctki2_cctkGH->cctk_dim != [DIM]) {'),
(bsnl ' _Pragma("omp critical")'),
(bsnl ' CCTK_WARN(CCTK_WARN_ABORT,'),
@@ -331,10 +331,10 @@ for $dim (1,2,3,4) {
(bsnl ' }'),
(bsnl ' CCTK_LOOP[DIM]STR(name##_interior,'),
(bsnl ' '.(crpt '[C]').','),
- (bsnl ' '.(crpt '([C]blo)').','),
- (rpt (bsnl ' cctki2_cctkGH->cctk_lsh[[I]]-([C]bhi),')),
+ (bsnl ' '.(crpt '(cctki2_[C]blo_)').','),
+ (rpt (bsnl ' cctki2_cctkGH->cctk_lsh[[I]]-(cctki2_[C]bhi_),')),
(rpt (bsnl ' cctki2_cctkGH->cctk_ash[[I]],')),
- (bsnl ' imin,imax, (istr)) {'),
+ (bsnl ' imin,imax, (cctki2_istr_)) {'),
(nl ''),
(bsnl '#define CCTK_ENDLOOP[DIM]STR_INTERIOR(name)'),
(bsnl ' } CCTK_ENDLOOP[DIM]STR(name##_interior);'),
@@ -345,46 +345,46 @@ for $dim (1,2,3,4) {
(nl ''),
(nl '/* LOOP_BOUNDARIES */'),
(nl ''),
- (bsnl '#define CCTK_LOOP[DIM]_BOUNDARIES(name, cctkGH,'),
+ (bsnl '#define CCTK_LOOP[DIM]_BOUNDARIES(name, cctki2_cctkGH_,'),
(bsnl ' '.(crpt '[C]').','),
(bsnl ' '.(crpt 'n[C]').','),
- (bsnl ' '.(crpt '[C]blo').','),
- (bsnl ' '.(crpt '[C]bhi').','),
- (bsnl ' '.(crpt '[C]bboxlo').','),
- (bsnl ' '.(crpt '[C]bboxhi').')'),
- (bsnl ' CCTK_LOOP[DIM]STR_BOUNDARIES(name, (cctkGH),'),
+ (bsnl ' '.(crpt 'cctki2_[C]blo_').','),
+ (bsnl ' '.(crpt 'cctki2_[C]bhi_').','),
+ (bsnl ' '.(crpt 'cctki2_[C]bboxlo_').','),
+ (bsnl ' '.(crpt 'cctki2_[C]bboxhi_').')'),
+ (bsnl ' CCTK_LOOP[DIM]STR_BOUNDARIES(name, (cctki2_cctkGH_),'),
(bsnl ' '.(crpt '[C]').','),
(bsnl ' '.(crpt 'n[C]').','),
- (bsnl ' '.(crpt '([C]blo)').','),
- (bsnl ' '.(crpt '([C]bhi)').','),
- (bsnl ' '.(crpt '([C]bboxlo)').','),
- (bsnl ' '.(crpt '([C]bboxhi)').','),
- (bsnl ' cctki2_imin_,cctki2_imax_, 1)'),
+ (bsnl ' '.(crpt '(cctki2_[C]blo_)').','),
+ (bsnl ' '.(crpt '(cctki2_[C]bhi_)').','),
+ (bsnl ' '.(crpt '(cctki2_[C]bboxlo_)').','),
+ (bsnl ' '.(crpt '(cctki2_[C]bboxhi_)').','),
+ (bsnl ' cctki2_dummy_imin,cctki2_dummy_imax, 1)'),
(nl ''),
(bsnl '#define CCTK_ENDLOOP[DIM]_BOUNDARIES(name)'),
(bsnl ' CCTK_ENDLOOP[DIM]STR_BOUNDARIES(name)'),
(nl ''),
- (bsnl '#define CCTK_LOOP[DIM]STR_BOUNDARIES(name, cctkGH,'),
+ (bsnl '#define CCTK_LOOP[DIM]STR_BOUNDARIES(name, cctki2_cctkGH_,'),
(bsnl ' '.(crpt '[C]').','),
(bsnl ' '.(crpt 'n[C]').','),
- (bsnl ' '.(crpt '[C]blo').','),
- (bsnl ' '.(crpt '[C]bhi').','),
- (bsnl ' '.(crpt '[C]bboxlo').','),
- (bsnl ' '.(crpt '[C]bboxhi').','),
- (bsnl ' imin,imax, istr)'),
+ (bsnl ' '.(crpt 'cctki2_[C]blo_').','),
+ (bsnl ' '.(crpt 'cctki2_[C]bhi_').','),
+ (bsnl ' '.(crpt 'cctki2_[C]bboxlo_').','),
+ (bsnl ' '.(crpt 'cctki2_[C]bboxhi_').','),
+ (bsnl ' imin,imax, cctki2_istr_)'),
(bsnl ' do {'),
(bsnl ' typedef int cctki2_loop[DIM]_boundaries_##name;'),
- (bsnl ' cGH const *restrict const cctki2_cctkGH = (cctkGH);'),
+ (bsnl ' cGH const *restrict const cctki2_cctkGH = (cctki2_cctkGH_);'),
(bsnl ' if (cctki2_cctkGH->cctk_dim != [DIM]) {'),
(bsnl ' _Pragma("omp critical")'),
(bsnl ' CCTK_WARN(CCTK_WARN_ABORT,'),
(bsnl ' "The macro CCTK_LOOP[DIM]_BOUNDARIES can only be used in [DIM] dimensions");'),
(bsnl ' }'),
- (bsnl ' int const cctki2_blo[] = { '.(crpt '([C]blo)').' };'),
- (bsnl ' int const cctki2_bhi[] = { '.(crpt '([C]bhi)').' };'),
- (bsnl ' int const cctki2_bbox[] = { '.(crpt '([C]bboxlo), ([C]bboxhi)').' };'),
+ (bsnl ' int const cctki2_blo[] = { '.(crpt '(cctki2_[C]blo_)').' };'),
+ (bsnl ' int const cctki2_bhi[] = { '.(crpt '(cctki2_[C]bhi_)').' };'),
+ (bsnl ' int const cctki2_bbox[] = { '.(crpt '(cctki2_[C]bboxlo_), (cctki2_[C]bboxhi_)').' };'),
(bsnl ' int const cctki2_lsh[] = { '.(crpt 'cctki2_cctkGH->cctk_lsh[[I]]').' };'),
- (bsnl ' int const cctki2_istr CCTK_ATTRIBUTE_UNUSED = (istr);'),
+ (bsnl ' int const cctki2_istr CCTK_ATTRIBUTE_UNUSED = (cctki2_istr_);'),
# Loop over all faces, edges, and corners
(reverse (rpt (bsnl ' for (int cctki2_[C]dir=-1; cctki2_[C]dir<=+1; ++cctki2_[C]dir) {'))),
(bsnl ' int cctki2_any_bbox ='),
@@ -416,46 +416,46 @@ for $dim (1,2,3,4) {
(nl ''),
(nl '/* LOOP_INTBOUNDARIES */'),
(nl ''),
- (bsnl '#define CCTK_LOOP[DIM]_INTBOUNDARIES(name, cctkGH,'),
+ (bsnl '#define CCTK_LOOP[DIM]_INTBOUNDARIES(name, cctki2_cctkGH_,'),
(bsnl ' '.(crpt '[C]').','),
(bsnl ' '.(crpt 'n[C]').','),
- (bsnl ' '.(crpt '[C]blo').','),
- (bsnl ' '.(crpt '[C]bhi').','),
- (bsnl ' '.(crpt '[C]bboxlo').','),
- (bsnl ' '.(crpt '[C]bboxhi').')'),
- (bsnl ' CCTK_LOOP[DIM]STR_INTBOUNDARIES(name, (cctkGH),'),
+ (bsnl ' '.(crpt 'cctki2_[C]blo_').','),
+ (bsnl ' '.(crpt 'cctki2_[C]bhi_').','),
+ (bsnl ' '.(crpt 'cctki2_[C]bboxlo_').','),
+ (bsnl ' '.(crpt 'cctki2_[C]bboxhi_').')'),
+ (bsnl ' CCTK_LOOP[DIM]STR_INTBOUNDARIES(name, (cctki2_cctkGH_),'),
(bsnl ' '.(crpt '[C]').','),
(bsnl ' '.(crpt 'n[C]').','),
- (bsnl ' '.(crpt '([C]blo)').','),
- (bsnl ' '.(crpt '([C]bhi)').','),
- (bsnl ' '.(crpt '([C]bboxlo)').','),
- (bsnl ' '.(crpt '([C]bboxhi)').','),
- (bsnl ' cctki2_imin_,cctki2_imax_, 1)'),
+ (bsnl ' '.(crpt '(cctki2_[C]blo_)').','),
+ (bsnl ' '.(crpt '(cctki2_[C]bhi_)').','),
+ (bsnl ' '.(crpt '(cctki2_[C]bboxlo_)').','),
+ (bsnl ' '.(crpt '(cctki2_[C]bboxhi_)').','),
+ (bsnl ' cctki2_dummy_imin,cctki2_dummy_imax, 1)'),
(nl ''),
(bsnl '#define CCTK_ENDLOOP[DIM]_INTBOUNDARIES(name)'),
(bsnl ' CCTK_ENDLOOP[DIM]STR_INTBOUNDARIES(name)'),
(nl ''),
- (bsnl '#define CCTK_LOOP[DIM]STR_INTBOUNDARIES(name, cctkGH,'),
+ (bsnl '#define CCTK_LOOP[DIM]STR_INTBOUNDARIES(name, cctki2_cctkGH_,'),
(bsnl ' '.(crpt '[C]').','),
(bsnl ' '.(crpt 'n[C]').','),
- (bsnl ' '.(crpt '[C]blo').','),
- (bsnl ' '.(crpt '[C]bhi').','),
- (bsnl ' '.(crpt '[C]bboxlo').','),
- (bsnl ' '.(crpt '[C]bboxhi').','),
- (bsnl ' imin,imax, istr)'),
+ (bsnl ' '.(crpt 'cctki2_[C]blo_').','),
+ (bsnl ' '.(crpt 'cctki2_[C]bhi_').','),
+ (bsnl ' '.(crpt 'cctki2_[C]bboxlo_').','),
+ (bsnl ' '.(crpt 'cctki2_[C]bboxhi_').','),
+ (bsnl ' imin,imax, cctki2_istr_)'),
(bsnl ' do {'),
(bsnl ' typedef int cctki2_loop[DIM]_intboundaries_##name;'),
- (bsnl ' cGH const *restrict const cctki2_cctkGH = (cctkGH);'),
+ (bsnl ' cGH const *restrict const cctki2_cctkGH = (cctki2_cctkGH_);'),
(bsnl ' if (cctki2_cctkGH->cctk_dim != [DIM]) {'),
(bsnl ' _Pragma("omp critical")'),
(bsnl ' CCTK_WARN(CCTK_WARN_ABORT,'),
(bsnl ' "The macro CCTK_LOOP[DIM]_INTBOUNDARIES can only be used in [DIM] dimensions");'),
(bsnl ' }'),
- (bsnl ' int const cctki2_blo[] = { '.(crpt '([C]blo)').' };'),
- (bsnl ' int const cctki2_bhi[] = { '.(crpt '([C]bhi)').' };'),
- (bsnl ' int const cctki2_bbox[] = { '.(crpt '([C]bboxlo), ([C]bboxhi)').' };'),
+ (bsnl ' int const cctki2_blo[] = { '.(crpt '(cctki2_[C]blo_)').' };'),
+ (bsnl ' int const cctki2_bhi[] = { '.(crpt '(cctki2_[C]bhi_)').' };'),
+ (bsnl ' int const cctki2_bbox[] = { '.(crpt '(cctki2_[C]bboxlo_), (cctki2_[C]bboxhi_)').' };'),
(bsnl ' int const cctki2_lsh[] = { '.(crpt 'cctki2_cctkGH->cctk_lsh[[I]]').' };'),
- (bsnl ' int const cctki2_istr CCTK_ATTRIBUTE_UNUSED = (istr);'),
+ (bsnl ' int const cctki2_istr CCTK_ATTRIBUTE_UNUSED = (cctki2_istr_);'),
# Loop over all faces, edges, and corners
(reverse (rpt (bsnl ' for (int cctki2_[C]dir=-1; cctki2_[C]dir<=+1; ++cctki2_[C]dir) {'))),
(bsnl ' int cctki2_any_bbox ='),
@@ -489,21 +489,21 @@ for $dim (1,2,3,4) {
(nl ''),
(nl '/* LOOP_ALL */'),
(nl ''),
- (bsnl '#define CCTK_LOOP[DIM]_ALL(name, cctkGH,'),
+ (bsnl '#define CCTK_LOOP[DIM]_ALL(name, cctki3_cctkGH_,'),
(bsnl ' '.(crpt '[C]').')'),
- (bsnl ' CCTK_LOOP[DIM]STR_ALL(name, (cctkGH),'),
+ (bsnl ' CCTK_LOOP[DIM]STR_ALL(name, (cctki3_cctkGH_),'),
(bsnl ' '.(crpt '[C]').','),
- (bsnl ' cctki3_imin_,cctki3_imax_, 1)'),
+ (bsnl ' cctki3_dummy_imin,cctki3_dummy_imax, 1)'),
(nl ''),
(bsnl '#define CCTK_ENDLOOP[DIM]_ALL(name)'),
(bsnl ' CCTK_ENDLOOP[DIM]STR_ALL(name)'),
(nl ''),
- (bsnl '#define CCTK_LOOP[DIM]STR_ALL(name, cctkGH,'),
+ (bsnl '#define CCTK_LOOP[DIM]STR_ALL(name, cctki3_cctkGH_,'),
(bsnl ' '.(crpt '[C]').','),
- (bsnl ' imin,imax, istr)'),
+ (bsnl ' imin,imax, cctki3_istr_)'),
(bsnl ' do {'),
(bsnl ' typedef int cctki3_loop[DIM]_all_##name;'),
- (bsnl ' cGH const *restrict const cctki3_cctkGH = (cctkGH);'),
+ (bsnl ' cGH const *restrict const cctki3_cctkGH = (cctki3_cctkGH_);'),
(bsnl ' if (cctki3_cctkGH->cctk_dim != [DIM]) {'),
(bsnl ' _Pragma("omp critical")'),
(bsnl ' CCTK_WARN(CCTK_WARN_ABORT,'),
@@ -514,7 +514,7 @@ for $dim (1,2,3,4) {
(bsnl ' '.(crpt '0').','),
(rpt (bsnl ' cctki3_cctkGH->cctk_lsh[[I]],')),
(rpt (bsnl ' cctki3_cctkGH->cctk_ash[[I]],')),
- (bsnl ' imin,imax, (istr)) {'),
+ (bsnl ' imin,imax, (cctki3_istr_)) {'),
(nl ''),
(bsnl '#define CCTK_ENDLOOP[DIM]STR_ALL(name)'),
(bsnl ' } CCTK_ENDLOOP[DIM]STR(name##_all);'),
@@ -525,21 +525,21 @@ for $dim (1,2,3,4) {
(nl ''),
(nl '/* LOOP_INT */'),
(nl ''),
- (bsnl '#define CCTK_LOOP[DIM]_INT(name, cctkGH,'),
+ (bsnl '#define CCTK_LOOP[DIM]_INT(name, cctki3_cctkGH_,'),
(bsnl ' '.(crpt '[C]').')'),
- (bsnl ' CCTK_LOOP[DIM]STR_INT(name, (cctkGH),'),
+ (bsnl ' CCTK_LOOP[DIM]STR_INT(name, (cctki3_cctkGH_),'),
(bsnl ' '.(crpt '[C]').','),
- (bsnl ' cctki3_imin_,cctki3_imax_, 1)'),
+ (bsnl ' cctki3_dummy_imin,cctki3_dummy_imax, 1)'),
(nl ''),
(bsnl '#define CCTK_ENDLOOP[DIM]_INT(name)'),
(bsnl ' CCTK_ENDLOOP[DIM]STR_INT(name)'),
(nl ''),
- (bsnl '#define CCTK_LOOP[DIM]STR_INT(name, cctkGH,'),
+ (bsnl '#define CCTK_LOOP[DIM]STR_INT(name, cctki3_cctkGH_,'),
(bsnl ' '.(crpt '[C]').','),
- (bsnl ' imin,imax, istr)'),
+ (bsnl ' imin,imax, cctki3_istr_)'),
(bsnl ' do {'),
(bsnl ' typedef int cctki3_loop[DIM]_int_##name;'),
- (bsnl ' cGH const *restrict const cctki3_cctkGH = (cctkGH);'),
+ (bsnl ' cGH const *restrict const cctki3_cctkGH = (cctki3_cctkGH_);'),
(bsnl ' if (cctki3_cctkGH->cctk_dim != [DIM]) {'),
(bsnl ' _Pragma("omp critical")'),
(bsnl ' CCTK_WARN(CCTK_WARN_ABORT,'),
@@ -557,7 +557,7 @@ for $dim (1,2,3,4) {
(bsnl ' '.(crpt '[C]').','),
(bsnl ' '.(crpt 'cctki3_bndsize[[2*I]]').','),
(bsnl ' '.(crpt 'cctki3_bndsize[[2*I+1]]').','),
- (bsnl ' imin,imax, (istr)) {'),
+ (bsnl ' imin,imax, (cctki3_istr_)) {'),
(nl ''),
(bsnl '#define CCTK_ENDLOOP[DIM]STR_INT(name)'),
(bsnl ' } CCTK_ENDLOOP[DIM]STR_INTERIOR(name##_int);'),
@@ -568,24 +568,24 @@ for $dim (1,2,3,4) {
(nl ''),
(nl '/* LOOP_BND */'),
(nl ''),
- (bsnl '#define CCTK_LOOP[DIM]_BND(name, cctkGH,'),
+ (bsnl '#define CCTK_LOOP[DIM]_BND(name, cctki3_cctkGH_,'),
(bsnl ' '.(crpt '[C]').','),
(bsnl ' '.(crpt 'n[C]').')'),
- (bsnl ' CCTK_LOOP[DIM]STR_BND(name, (cctkGH),'),
+ (bsnl ' CCTK_LOOP[DIM]STR_BND(name, (cctki3_cctkGH_),'),
(bsnl ' '.(crpt '[C]').','),
(bsnl ' '.(crpt 'n[C]').','),
- (bsnl ' cctki3_imin_,cctki3_imax_, 1)'),
+ (bsnl ' cctki3_dummy_imin,cctki3_dummy_imax, 1)'),
(nl ''),
(bsnl '#define CCTK_ENDLOOP[DIM]_BND(name)'),
(bsnl ' CCTK_ENDLOOP[DIM]STR_BND(name)'),
(nl ''),
- (bsnl '#define CCTK_LOOP[DIM]STR_BND(name, cctkGH,'),
+ (bsnl '#define CCTK_LOOP[DIM]STR_BND(name, cctki3_cctkGH_,'),
(bsnl ' '.(crpt '[C]').','),
(bsnl ' '.(crpt 'n[C]').','),
- (bsnl ' imin,imax, istr)'),
+ (bsnl ' imin,imax, cctki3_istr_)'),
(bsnl ' do {'),
(bsnl ' typedef int cctki3_loop[DIM]_bnd_##name;'),
- (bsnl ' cGH const *restrict const cctki3_cctkGH = (cctkGH);'),
+ (bsnl ' cGH const *restrict const cctki3_cctkGH = (cctki3_cctkGH_);'),
(bsnl ' if (cctki3_cctkGH->cctk_dim != [DIM]) {'),
(bsnl ' _Pragma("omp critical")'),
(bsnl ' CCTK_WARN(CCTK_WARN_ABORT,'),
@@ -606,7 +606,7 @@ for $dim (1,2,3,4) {
(bsnl ' '.(crpt 'cctki3_bndsize[[2*I+1]]').','),
(bsnl ' '.(crpt 'cctki3_is_physbnd[[2*I]]').','),
(bsnl ' '.(crpt 'cctki3_is_physbnd[[2*I+1]]').','),
- (bsnl ' imin,imax, (istr)) {'),
+ (bsnl ' imin,imax, (cctki3_istr_)) {'),
(nl ''),
(bsnl '#define CCTK_ENDLOOP[DIM]STR_BND(name)'),
(bsnl ' } CCTK_ENDLOOP[DIM]STR_BOUNDARIES(name##_bnd);'),
@@ -617,24 +617,24 @@ for $dim (1,2,3,4) {
(nl ''),
(nl '/* LOOP_INTBND */'),
(nl ''),
- (bsnl '#define CCTK_LOOP[DIM]_INTBND(name, cctkGH,'),
+ (bsnl '#define CCTK_LOOP[DIM]_INTBND(name, cctki3_cctkGH_,'),
(bsnl ' '.(crpt '[C]').','),
(bsnl ' '.(crpt 'n[C]').')'),
- (bsnl ' CCTK_LOOP[DIM]STR_INTBND(name, (cctkGH),'),
+ (bsnl ' CCTK_LOOP[DIM]STR_INTBND(name, (cctki3_cctkGH_),'),
(bsnl ' '.(crpt '[C]').','),
(bsnl ' '.(crpt 'n[C]').','),
- (bsnl ' cctki3_imin_,cctki3_imax_, 1)'),
+ (bsnl ' cctki3_dummy_imin,cctki3_dummy_imax, 1)'),
(nl ''),
(bsnl '#define CCTK_ENDLOOP[DIM]_INTBND(name)'),
(bsnl ' CCTK_ENDLOOP[DIM]STR_INTBND(name)'),
(nl ''),
- (bsnl '#define CCTK_LOOP[DIM]STR_INTBND(name, cctkGH,'),
+ (bsnl '#define CCTK_LOOP[DIM]STR_INTBND(name, cctki3_cctkGH_,'),
(bsnl ' '.(crpt '[C]').','),
(bsnl ' '.(crpt 'n[C]').','),
- (bsnl ' imin,imax, istr)'),
+ (bsnl ' imin,imax, cctki3_istr_)'),
(bsnl ' do {'),
(bsnl ' typedef int cctki3_loop[DIM]_intbnd_##name;'),
- (bsnl ' cGH const *restrict const cctki3_cctkGH = (cctkGH);'),
+ (bsnl ' cGH const *restrict const cctki3_cctkGH = (cctki3_cctkGH_);'),
(bsnl ' if (cctki3_cctkGH->cctk_dim != [DIM]) {'),
(bsnl ' _Pragma("omp critical")'),
(bsnl ' CCTK_WARN(CCTK_WARN_ABORT,'),
@@ -655,7 +655,7 @@ for $dim (1,2,3,4) {
(bsnl ' '.(crpt 'cctki3_bndsize[[2*I+1]]').','),
(bsnl ' '.(crpt 'cctki3_is_physbnd[[2*I]]').','),
(bsnl ' '.(crpt 'cctki3_is_physbnd[[2*I+1]]').','),
- (bsnl ' imin,imax, (istr)) {'),
+ (bsnl ' imin,imax, (cctki3_istr_)) {'),
(nl ''),
(bsnl '#define CCTK_ENDLOOP[DIM]STR_INTBND(name)'),
(bsnl ' } CCTK_ENDLOOP[DIM]STR_INTBOUNDARIES(name##_intbnd);'),
@@ -672,7 +672,7 @@ for $dim (1,2,3,4) {
(nl ''),
(bsnl '#define CCTK_LOOP[DIM]_NORMAL_DECLARE(name)'),
(bsnl ' CCTK_LOOP[DIM]STR_NORMAL_DECLARE(name)'),
- (bsnl ' && integer :: name/**/0_imin_, name/**/0_imax_'),
+ (bsnl ' && integer :: name/**/0_dummy_imin, name/**/0_dummy_imax'),
(nl ''),
(bsnl '#define CCTK_LOOP[DIM]_NORMAL_OMP_PRIVATE(name)'),
(bsnl ' CCTK_LOOP[DIM]STR_NORMAL_OMP_PRIVATE(name)'),
@@ -680,18 +680,18 @@ for $dim (1,2,3,4) {
(bsnl '#define CCTK_LOOP[DIM]_NORMAL(name,'),
(bsnl ' '.(crpt '[C]').','),
(bsnl ' '.(crpt 'n[C]').','),
- (bsnl ' '.(crpt '[C]dir').','),
- (bsnl ' '.(crpt '[C]min').','),
- (bsnl ' '.(crpt '[C]max').','),
- (bsnl ' '.(crpt '[C]ash').')'),
+ (bsnl ' '.(crpt 'cctki0_[C]dir').','),
+ (bsnl ' '.(crpt 'cctki0_[C]min').','),
+ (bsnl ' '.(crpt 'cctki0_[C]max').','),
+ (bsnl ' '.(crpt 'cctki0_[C]ash').')'),
(bsnl ' CCTK_LOOP[DIM]STR_NORMAL(name,'),
(bsnl ' '.(crpt '[C]').','),
(bsnl ' '.(crpt 'n[C]').','),
- (bsnl ' '.(crpt '[C]dir').','),
- (bsnl ' '.(crpt '[C]min').','),
- (bsnl ' '.(crpt '[C]max').','),
- (bsnl ' '.(crpt '[C]ash').','),
- (bsnl ' name/**/0_imin_,name/**/0_imax_, 1)'),
+ (bsnl ' '.(crpt 'cctki0_[C]dir').','),
+ (bsnl ' '.(crpt 'cctki0_[C]min').','),
+ (bsnl ' '.(crpt 'cctki0_[C]max').','),
+ (bsnl ' '.(crpt 'cctki0_[C]ash').','),
+ (bsnl ' name/**/0_dummy_imin,name/**/0_dummy_imax, 1)'),
(nl ''),
(bsnl '#define CCTK_ENDLOOP[DIM]_NORMAL(name)'),
(bsnl ' CCTK_ENDLOOP[DIM]STR_NORMAL(name)'),
@@ -710,16 +710,16 @@ for $dim (1,2,3,4) {
(bsnl '#define CCTK_LOOP[DIM]STR_NORMAL(name,'),
(bsnl ' '.(crpt '[C]').','),
(bsnl ' '.(crpt 'n[C]').','),
- (bsnl ' '.(crpt '[C]dir').','),
- (bsnl ' '.(crpt '[C]min_').','),
- (bsnl ' '.(crpt '[C]max_').','),
- (bsnl ' '.(crpt '[C]ash').','),
- (bsnl ' imin,imax, istr)'),
- (rpt (bsnl ' && name/**/0_[C]dir = [C]dir')),
- (rpt (bsnl ' && name/**/0_[C]min = [C]min_')),
- (rpt (bsnl ' && name/**/0_[C]max = [C]max_')),
- (rpt (bsnl ' && name/**/0_[C]ash = [C]ash')),
- (bsnl ' && name/**/0_istr = istr'),
+ (bsnl ' '.(crpt 'cctki0_[C]dir').','),
+ (bsnl ' '.(crpt 'cctki0_[C]min').','),
+ (bsnl ' '.(crpt 'cctki0_[C]max').','),
+ (bsnl ' '.(crpt 'cctki0_[C]ash').','),
+ (bsnl ' imin,imax, cctki0_istr)'),
+ (rpt (bsnl ' && name/**/0_[C]dir = cctki0_[C]dir')),
+ (rpt (bsnl ' && name/**/0_[C]min = cctki0_[C]min')),
+ (rpt (bsnl ' && name/**/0_[C]max = cctki0_[C]max')),
+ (rpt (bsnl ' && name/**/0_[C]ash = cctki0_[C]ash')),
+ (bsnl ' && name/**/0_istr = cctki0_istr'),
# Export loop bounds in the i direction
(bsnl ' && imin = name/**/0_imin'),
(bsnl ' && imax = name/**/0_imax'),
@@ -740,22 +740,22 @@ for $dim (1,2,3,4) {
(nl ''),
(bsnl '#define CCTK_LOOP[DIM]_DECLARE(name)'),
(bsnl ' CCTK_LOOP[DIM]STR_DECLARE(name)'),
- (bsnl ' && integer :: name/**/1_imin_, name/**/1_imax_'),
+ (bsnl ' && integer :: name/**/1_dummy_imin, name/**/1_dummy_imax'),
(nl ''),
(bsnl '#define CCTK_LOOP[DIM]_OMP_PRIVATE(name)'),
(bsnl ' CCTK_LOOP[DIM]STR_OMP_PRIVATE(name)'),
(nl ''),
(bsnl '#define CCTK_LOOP[DIM](name,'),
(bsnl ' '.(crpt '[C]').','),
- (bsnl ' '.(crpt '[C]min').','),
- (bsnl ' '.(crpt '[C]max').','),
- (bsnl ' '.(crpt '[C]ash').')'),
+ (bsnl ' '.(crpt 'cctki0_[C]min').','),
+ (bsnl ' '.(crpt 'cctki0_[C]max').','),
+ (bsnl ' '.(crpt 'cctki0_[C]ash').')'),
(bsnl ' CCTK_LOOP[DIM]STR(name,'),
(bsnl ' '.(crpt '[C]').','),
- (bsnl ' '.(crpt '[C]min').','),
- (bsnl ' '.(crpt '[C]max').','),
- (bsnl ' '.(crpt '[C]ash').','),
- (bsnl ' name/**/1_imin_,name/**/1_imax_, 1)'),
+ (bsnl ' '.(crpt 'cctki0_[C]min').','),
+ (bsnl ' '.(crpt 'cctki0_[C]max').','),
+ (bsnl ' '.(crpt 'cctki0_[C]ash').','),
+ (bsnl ' name/**/1_dummy_imin,name/**/1_dummy_imax, 1)'),
(nl ''),
(bsnl '#define CCTK_ENDLOOP[DIM](name)'),
(bsnl ' CCTK_ENDLOOP[DIM]STR(name)'),
@@ -769,18 +769,18 @@ for $dim (1,2,3,4) {
(nl ''),
(bsnl '#define CCTK_LOOP[DIM]STR(name,'),
(bsnl ' '.(crpt '[C]').','),
- (bsnl ' '.(crpt '[C]min_').','),
- (bsnl ' '.(crpt '[C]max_').','),
- (bsnl ' '.(crpt '[C]ash').','),
- (bsnl ' imin,imax, istr)'),
+ (bsnl ' '.(crpt 'cctki1_[C]min').','),
+ (bsnl ' '.(crpt 'cctki1_[C]max').','),
+ (bsnl ' '.(crpt 'cctki1_[C]ash').','),
+ (bsnl ' imin,imax, cctki1_istr)'),
(bsnl ' CCTK_LOOP[DIM]STR_NORMAL(name,'),
(bsnl ' '.(crpt '[C]').','),
(bsnl ' '.(crpt 'name/**/1_n[C]').','),
(bsnl ' '.(crpt '0').','),
- (bsnl ' '.(crpt '[C]min_').','),
- (bsnl ' '.(crpt '[C]max_').','),
- (bsnl ' '.(crpt '[C]ash').','),
- (bsnl ' imin,imax, istr)'),
+ (bsnl ' '.(crpt 'cctki1_[C]min').','),
+ (bsnl ' '.(crpt 'cctki1_[C]max').','),
+ (bsnl ' '.(crpt 'cctki1_[C]ash').','),
+ (bsnl ' imin,imax, cctki1_istr)'),
(nl ''),
(bsnl '#define CCTK_ENDLOOP[DIM]STR(name)'),
(bsnl ' CCTK_ENDLOOP[DIM]STR_NORMAL(name)'),
@@ -791,20 +791,20 @@ for $dim (1,2,3,4) {
(nl ''),
(bsnl '#define CCTK_LOOP[DIM]_INTERIOR_DECLARE(name)'),
(bsnl ' CCTK_LOOP[DIM]STR_INTERIOR_DECLARE(name)'),
- (bsnl ' && integer :: name/**/2_imin_, name/**/2_imax_'),
+ (bsnl ' && integer :: name/**/2_dummy_imin, name/**/2_dummy_imax'),
(nl ''),
(bsnl '#define CCTK_LOOP[DIM]_INTERIOR_OMP_PRIVATE(name)'),
(bsnl ' CCTK_LOOP[DIM]STR_INTERIOR_OMP_PRIVATE(name)'),
(nl ''),
(bsnl '#define CCTK_LOOP[DIM]_INTERIOR(name,'),
(bsnl ' '.(crpt '[C]').','),
- (bsnl ' '.(crpt '[C]blo').','),
- (bsnl ' '.(crpt '[C]bhi').')'),
+ (bsnl ' '.(crpt 'cctki2_[C]blo').','),
+ (bsnl ' '.(crpt 'cctki2_[C]bhi').')'),
(bsnl ' CCTK_LOOP[DIM]STR_INTERIOR(name,'),
(bsnl ' '.(crpt '[C]').','),
- (bsnl ' '.(crpt '[C]blo').','),
- (bsnl ' '.(crpt '[C]bhi').','),
- (bsnl ' name/**/2_imin_,name/**/2_imax_, 1)'),
+ (bsnl ' '.(crpt 'cctki2_[C]blo').','),
+ (bsnl ' '.(crpt 'cctki2_[C]bhi').','),
+ (bsnl ' name/**/2_dummy_imin,name/**/2_dummy_imax, 1)'),
(nl ''),
(bsnl '#define CCTK_ENDLOOP[DIM]_INTERIOR(name)'),
(bsnl ' CCTK_ENDLOOP[DIM]STR_INTERIOR(name)'),
@@ -817,15 +817,15 @@ for $dim (1,2,3,4) {
(nl ''),
(bsnl '#define CCTK_LOOP[DIM]STR_INTERIOR(name,'),
(bsnl ' '.(crpt '[C]').','),
- (bsnl ' '.(crpt '[C]blo').','),
- (bsnl ' '.(crpt '[C]bhi').','),
- (bsnl ' imin,imax, istr)'),
+ (bsnl ' '.(crpt 'cctki2_[C]blo').','),
+ (bsnl ' '.(crpt 'cctki2_[C]bhi').','),
+ (bsnl ' imin,imax, cctki2_istr)'),
(bsnl ' CCTK_LOOP[DIM]STR(name/**/_interior,'),
(bsnl ' '.(crpt '[C]').','),
- (rpt (bsnl ' ([C]blo)+1,')),
- (rpt (bsnl ' cctk_lsh([I+1])-([C]bhi),')),
+ (rpt (bsnl ' (cctki2_[C]blo)+1,')),
+ (rpt (bsnl ' cctk_lsh([I+1])-(cctki2_[C]bhi),')),
(bsnl ' '.(crpt 'cctk_ash([I+1])').','),
- (bsnl ' imin,imax, istr)'),
+ (bsnl ' imin,imax, cctki2_istr)'),
(nl ''),
(bsnl '#define CCTK_ENDLOOP[DIM]STR_INTERIOR(name)'),
(bsnl ' CCTK_ENDLOOP[DIM]STR(name/**/_interior)'),
@@ -836,7 +836,7 @@ for $dim (1,2,3,4) {
(nl ''),
(bsnl '#define CCTK_LOOP[DIM]_BOUNDARIES_DECLARE(name)'),
(bsnl ' CCTK_LOOP[DIM]STR_BOUNDARIES_DECLARE(name)'),
- (bsnl ' && integer :: name/**/2_imin_, name/**/2_imax_'),
+ (bsnl ' && integer :: name/**/2_dummy_imin, name/**/2_dummy_imax'),
(nl ''),
(bsnl '#define CCTK_LOOP[DIM]_BOUNDARIES_OMP_PRIVATE(name)'),
(bsnl ' CCTK_LOOP[DIM]STR_BOUNDARIES_OMP_PRIVATE(name)'),
@@ -844,18 +844,18 @@ for $dim (1,2,3,4) {
(bsnl '#define CCTK_LOOP[DIM]_BOUNDARIES(name,'),
(bsnl ' '.(crpt '[C]').','),
(bsnl ' '.(crpt 'n[C]').','),
- (bsnl ' '.(crpt '[C]blo').','),
- (bsnl ' '.(crpt '[C]bhi').','),
- (bsnl ' '.(crpt '[C]bboxlo').','),
- (bsnl ' '.(crpt '[C]bboxhi').')'),
+ (bsnl ' '.(crpt 'cctki2_[C]blo').','),
+ (bsnl ' '.(crpt 'cctki2_[C]bhi').','),
+ (bsnl ' '.(crpt 'cctki2_[C]bboxlo').','),
+ (bsnl ' '.(crpt 'cctki2_[C]bboxhi').')'),
(bsnl ' CCTK_LOOP[DIM]STR_BOUNDARIES(name,'),
(bsnl ' '.(crpt '[C]').','),
(bsnl ' '.(crpt 'n[C]').','),
- (bsnl ' '.(crpt '[C]blo').','),
- (bsnl ' '.(crpt '[C]bhi').','),
- (bsnl ' '.(crpt '[C]bboxlo').','),
- (bsnl ' '.(crpt '[C]bboxhi').','),
- (bsnl ' name/**/2_imin_,name/**/2_imax_, 1)'),
+ (bsnl ' '.(crpt 'cctki2_[C]blo').','),
+ (bsnl ' '.(crpt 'cctki2_[C]bhi').','),
+ (bsnl ' '.(crpt 'cctki2_[C]bboxlo').','),
+ (bsnl ' '.(crpt 'cctki2_[C]bboxhi').','),
+ (bsnl ' name/**/2_dummy_imin,name/**/2_dummy_imax, 1)'),
(nl ''),
(bsnl '#define CCTK_ENDLOOP[DIM]_BOUNDARIES(name)'),
(bsnl ' CCTK_ENDLOOP[DIM]STR_BOUNDARIES(name)'),
@@ -876,16 +876,16 @@ for $dim (1,2,3,4) {
(bsnl '#define CCTK_LOOP[DIM]STR_BOUNDARIES(name,'),
(bsnl ' '.(crpt '[C]').','),
(bsnl ' '.(crpt 'n[C]').','),
- (bsnl ' '.(crpt '[C]blo').','),
- (bsnl ' '.(crpt '[C]bhi').','),
- (bsnl ' '.(crpt '[C]bboxlo').','),
- (bsnl ' '.(crpt '[C]bboxhi').','),
- (bsnl ' imin,imax, istr)'),
- (bsnl ' && name/**/2_blo = (/ '.(crpt '[C]blo').' /)'),
- (bsnl ' && name/**/2_bhi = (/ '.(crpt '[C]bhi').' /)'),
- (bsnl ' && name/**/2_bboxlo = (/ '.(crpt '[C]bboxlo').' /)'),
- (bsnl ' && name/**/2_bboxhi = (/ '.(crpt '[C]bboxhi').' /)'),
- (bsnl ' && name/**/2_istr = (istr)'),
+ (bsnl ' '.(crpt 'cctki2_[C]blo').','),
+ (bsnl ' '.(crpt 'cctki2_[C]bhi').','),
+ (bsnl ' '.(crpt 'cctki2_[C]bboxlo').','),
+ (bsnl ' '.(crpt 'cctki2_[C]bboxhi').','),
+ (bsnl ' imin,imax, cctki2_istr)'),
+ (bsnl ' && name/**/2_blo = (/ '.(crpt 'cctki2_[C]blo').' /)'),
+ (bsnl ' && name/**/2_bhi = (/ '.(crpt 'cctki2_[C]bhi').' /)'),
+ (bsnl ' && name/**/2_bboxlo = (/ '.(crpt 'cctki2_[C]bboxlo').' /)'),
+ (bsnl ' && name/**/2_bboxhi = (/ '.(crpt 'cctki2_[C]bboxhi').' /)'),
+ (bsnl ' && name/**/2_istr = (cctki2_istr)'),
# Loop over all faces, edges, and corners
(reverse (rpt (bsnl ' && do name/**/2_[C]dir=-1, +1'))),
(bsnl ' && name/**/2_any_bbox = .false.'),
@@ -918,7 +918,7 @@ for $dim (1,2,3,4) {
(nl ''),
(bsnl '#define CCTK_LOOP[DIM]_INTBOUNDARIES_DECLARE(name)'),
(bsnl ' CCTK_LOOP[DIM]STR_INTBOUNDARIES_DECLARE(name)'),
- (bsnl ' && integer :: name/**/2_imin_, name/**/2_imax_'),
+ (bsnl ' && integer :: name/**/2_dummy_imin, name/**/2_dummy_imax'),
(nl ''),
(bsnl '#define CCTK_LOOP[DIM]_INTBOUNDARIES_OMP_PRIVATE(name)'),
(bsnl ' CCTK_LOOP[DIM]STR_INTBOUNDARIES_OMP_PRIVATE(name)'),
@@ -926,18 +926,18 @@ for $dim (1,2,3,4) {
(bsnl '#define CCTK_LOOP[DIM]_INTBOUNDARIES(name,'),
(bsnl ' '.(crpt '[C]').','),
(bsnl ' '.(crpt 'n[C]').','),
- (bsnl ' '.(crpt '[C]blo').','),
- (bsnl ' '.(crpt '[C]bhi').','),
- (bsnl ' '.(crpt '[C]bboxlo').','),
- (bsnl ' '.(crpt '[C]bboxhi').')'),
+ (bsnl ' '.(crpt 'cctki2_[C]blo').','),
+ (bsnl ' '.(crpt 'cctki2_[C]bhi').','),
+ (bsnl ' '.(crpt 'cctki2_[C]bboxlo').','),
+ (bsnl ' '.(crpt 'cctki2_[C]bboxhi').')'),
(bsnl ' CCTK_LOOP[DIM]STR_INTBOUNDARIES(name,'),
(bsnl ' '.(crpt '[C]').','),
(bsnl ' '.(crpt 'n[C]').','),
- (bsnl ' '.(crpt '[C]blo').','),
- (bsnl ' '.(crpt '[C]bhi').','),
- (bsnl ' '.(crpt '[C]bboxlo').','),
- (bsnl ' '.(crpt '[C]bboxhi').','),
- (bsnl ' name/**/2_imin_,name/**/2_imax_, 1)'),
+ (bsnl ' '.(crpt 'cctki2_[C]blo').','),
+ (bsnl ' '.(crpt 'cctki2_[C]bhi').','),
+ (bsnl ' '.(crpt 'cctki2_[C]bboxlo').','),
+ (bsnl ' '.(crpt 'cctki2_[C]bboxhi').','),
+ (bsnl ' name/**/2_dummy_imin,name/**/2_dummy_max, 1)'),
(nl ''),
(bsnl '#define CCTK_ENDLOOP[DIM]_INTBOUNDARIES(name)'),
(bsnl ' CCTK_ENDLOOP[DIM]STR_INTBOUNDARIES(name)'),
@@ -959,16 +959,16 @@ for $dim (1,2,3,4) {
(bsnl '#define CCTK_LOOP[DIM]STR_INTBOUNDARIES(name,'),
(bsnl ' '.(crpt '[C]').','),
(bsnl ' '.(crpt 'n[C]').','),
- (bsnl ' '.(crpt '[C]blo').','),
- (bsnl ' '.(crpt '[C]bhi').','),
- (bsnl ' '.(crpt '[C]bboxlo').','),
- (bsnl ' '.(crpt '[C]bboxhi').','),
- (bsnl ' imin,imax, istr)'),
- (bsnl ' && name/**/2_blo = (/ '.(crpt '[C]blo').' /)'),
- (bsnl ' && name/**/2_bhi = (/ '.(crpt '[C]bhi').' /)'),
- (bsnl ' && name/**/2_bboxlo = (/ '.(crpt '[C]bboxlo').' /)'),
- (bsnl ' && name/**/2_bboxhi = (/ '.(crpt '[C]bboxhi').' /)'),
- (bsnl ' && name/**/2_istr = (istr)'),
+ (bsnl ' '.(crpt 'cctki2_[C]blo').','),
+ (bsnl ' '.(crpt 'cctki2_[C]bhi').','),
+ (bsnl ' '.(crpt 'cctki2_[C]bboxlo').','),
+ (bsnl ' '.(crpt 'cctki2_[C]bboxhi').','),
+ (bsnl ' imin,imax, cctki2_istr)'),
+ (bsnl ' && name/**/2_blo = (/ '.(crpt 'cctki2_[C]blo').' /)'),
+ (bsnl ' && name/**/2_bhi = (/ '.(crpt 'cctki2_[C]bhi').' /)'),
+ (bsnl ' && name/**/2_bboxlo = (/ '.(crpt 'cctki2_[C]bboxlo').' /)'),
+ (bsnl ' && name/**/2_bboxhi = (/ '.(crpt 'cctki2_[C]bboxhi').' /)'),
+ (bsnl ' && name/**/2_istr = (cctki2_istr)'),
# Loop over all faces, edges, and corners
(reverse (rpt (bsnl ' && do name/**/2_[C]dir=-1, +1'))),
(bsnl ' && name/**/2_any_bbox = .false.'),
@@ -1004,7 +1004,7 @@ for $dim (1,2,3,4) {
(nl ''),
(bsnl '#define CCTK_LOOP[DIM]_ALL_DECLARE(name)'),
(bsnl ' CCTK_LOOP[DIM]STR_ALL_DECLARE(name)'),
- (bsnl ' && integer :: name/**/3_imin_, name/**/3_imax_'),
+ (bsnl ' && integer :: name/**/3_dummy_imin, name/**/3_dummy_imax'),
(nl ''),
(bsnl '#define CCTK_LOOP[DIM]_ALL_OMP_PRIVATE(name)'),
(bsnl ' CCTK_LOOP[DIM]STR_ALL_OMP_PRIVATE(name)'),
@@ -1013,7 +1013,7 @@ for $dim (1,2,3,4) {
(bsnl ' '.(crpt '[C]').')'),
(bsnl ' CCTK_LOOP[DIM]STR_ALL(name,'),
(bsnl ' '.(crpt '[C]').','),
- (bsnl ' name/**/3_imin_,name/**/3_imax_, 1)'),
+ (bsnl ' name/**/3_dummy_imin,name/**/3_dummy_imax, 1)'),
(nl ''),
(bsnl '#define CCTK_ENDLOOP[DIM]_ALL(name)'),
(bsnl ' CCTK_ENDLOOP[DIM]STR_ALL(name)'),
@@ -1026,13 +1026,13 @@ for $dim (1,2,3,4) {
(nl ''),
(bsnl '#define CCTK_LOOP[DIM]STR_ALL(name,'),
(bsnl ' '.(crpt '[C]').','),
- (bsnl ' imin,imax, istr)'),
+ (bsnl ' imin,imax, cctki3_istr)'),
(bsnl ' CCTK_LOOP[DIM]STR(name/**/_all,'),
(bsnl ' '.(crpt '[C]').','),
(bsnl ' '.(crpt '1').','),
(bsnl ' '.(crpt 'cctk_lsh([I+1])').','),
(bsnl ' '.(crpt 'cctk_ash([I+1])').','),
- (bsnl ' imin,imax, istr)'),
+ (bsnl ' imin,imax, cctki3_istr)'),
(nl ''),
(bsnl '#define CCTK_ENDLOOP[DIM]STR_ALL(name)'),
(bsnl ' CCTK_ENDLOOP[DIM]STR(name/**/_all)'),
@@ -1043,7 +1043,7 @@ for $dim (1,2,3,4) {
(nl ''),
(bsnl '#define CCTK_LOOP[DIM]_INT_DECLARE(name)'),
(bsnl ' CCTK_LOOP[DIM]STR_INT_DECLARE(name)'),
- (bsnl ' && integer :: name/**/3_imin_, name/**/3_imax_'),
+ (bsnl ' && integer :: name/**/3_dummy_imin, name/**/3_dummy_imax'),
(nl ''),
(bsnl '#define CCTK_LOOP[DIM]_INT_OMP_PRIVATE(name)'),
(bsnl ' CCTK_LOOP[DIM]STR_INT_OMP_PRIVATE(name)'),
@@ -1052,7 +1052,7 @@ for $dim (1,2,3,4) {
(bsnl ' '.(crpt '[C]').')'),
(bsnl ' CCTK_LOOP[DIM]STR_INT(name,'),
(bsnl ' '.(crpt '[C]').','),
- (bsnl ' name/**/3_imin_,name/**/3_imax_, 1)'),
+ (bsnl ' name/**/3_dummy_imin,name/**/3_dummy_imax, 1)'),
(nl ''),
(bsnl '#define CCTK_ENDLOOP[DIM]_INT(name)'),
(bsnl ' CCTK_ENDLOOP[DIM]STR_INT(name)'),
@@ -1070,7 +1070,7 @@ for $dim (1,2,3,4) {
(nl ''),
(bsnl '#define CCTK_LOOP[DIM]STR_INT(name,'),
(bsnl ' '.(crpt '[C]').','),
- (bsnl ' imin,imax, istr)'),
+ (bsnl ' imin,imax, cctki3_istr)'),
(bsnl ' && !$omp single'),
(bsnl ' && name/**/3_ierr = GetBoundarySizesAndTypes'),
(bsnl ' (cctkGH, [2*DIM], name/**/3_bndsize, name/**/3_is_ghostbnd, name/**/3_is_symbnd, name/**/3_is_physbnd)'),
@@ -1079,7 +1079,7 @@ for $dim (1,2,3,4) {
(bsnl ' '.(crpt '[C]').','),
(bsnl ' '.(crpt 'name/**/3_bndsize([2*I+1]+1)').','),
(bsnl ' '.(crpt 'name/**/3_bndsize([2*I+2])').','),
- (bsnl ' imin,imax, (istr))'),
+ (bsnl ' imin,imax, (cctki3_istr))'),
(nl ''),
(bsnl '#define CCTK_ENDLOOP[DIM]STR_INT(name)'),
(bsnl ' CCTK_ENDLOOP[DIM]STR_INTERIOR(name/**/_int)'),
@@ -1090,7 +1090,7 @@ for $dim (1,2,3,4) {
(nl ''),
(bsnl '#define CCTK_LOOP[DIM]_BND_DECLARE(name)'),
(bsnl ' CCTK_LOOP[DIM]STR_BND_DECLARE(name)'),
- (bsnl ' && integer :: name/**/3_imin_, name/**/3_imax_'),
+ (bsnl ' && integer :: name/**/3_dummy_imin, name/**/3_dummy_imax'),
(nl ''),
(bsnl '#define CCTK_LOOP[DIM]_BND_OMP_PRIVATE(name)'),
(bsnl ' CCTK_LOOP[DIM]STR_BND_OMP_PRIVATE(name)'),
@@ -1101,7 +1101,7 @@ for $dim (1,2,3,4) {
(bsnl ' CCTK_LOOP[DIM]STR_BND(name,'),
(bsnl ' '.(crpt '[C]').','),
(bsnl ' '.(crpt 'n[C]').','),
- (bsnl ' name/**/3_imin_,name/**/3_imax_, 1)'),
+ (bsnl ' name/**/3_dummy_imin,name/**/3_dummy_imax, 1)'),
(nl ''),
(bsnl '#define CCTK_ENDLOOP[DIM]_BND(name)'),
(bsnl ' CCTK_ENDLOOP[DIM]STR_BND(name)'),
@@ -1120,7 +1120,7 @@ for $dim (1,2,3,4) {
(bsnl '#define CCTK_LOOP[DIM]STR_BND(name,'),
(bsnl ' '.(crpt '[C]').','),
(bsnl ' '.(crpt 'n[C]').','),
- (bsnl ' imin,imax, istr)'),
+ (bsnl ' imin,imax, cctki3_istr)'),
(bsnl ' && !$omp single'),
(bsnl ' && name/**/3_ierr = GetBoundarySizesAndTypes'),
(bsnl ' (cctkGH, [2*DIM], name/**/3_bndsize, name/**/3_is_ghostbnd, name/**/3_is_symbnd, name/**/3_is_physbnd)'),
@@ -1132,7 +1132,7 @@ for $dim (1,2,3,4) {
(bsnl ' '.(crpt 'name/**/3_bndsize([2*I+2])').','),
(bsnl ' '.(crpt 'name/**/3_is_physbnd([2*I+1])').','),
(bsnl ' '.(crpt 'name/**/3_is_physbnd([2*I+2])').','),
- (bsnl ' imin,imax, (istr))'),
+ (bsnl ' imin,imax, (cctki3_istr))'),
(nl ''),
(bsnl '#define CCTK_ENDLOOP[DIM]STR_BND(name)'),
(bsnl ' CCTK_ENDLOOP[DIM]STR_BOUNDARIES(name/**/_bnd)'),
@@ -1146,7 +1146,7 @@ for $dim (1,2,3,4) {
(nl ''),
(bsnl '#define CCTK_LOOP[DIM]_INTBND_DECLARE(name)'),
(bsnl ' CCTK_LOOP[DIM]STR_INTBND_DECLARE(name)'),
- (bsnl ' && integer :: name/**/3_imin_, name/**/3_imax_'),
+ (bsnl ' && integer :: name/**/3_dummy_imin, name/**/3_dummy_imax'),
(nl ''),
(bsnl '#define CCTK_LOOP[DIM]_INTBND_OMP_PRIVATE(name)'),
(bsnl ' CCTK_LOOP[DIM]STR_INTBND_OMP_PRIVATE(name)'),
@@ -1157,7 +1157,7 @@ for $dim (1,2,3,4) {
(bsnl ' CCTK_LOOP[DIM]STR_INTBND(name,'),
(bsnl ' '.(crpt '[C]').','),
(bsnl ' '.(crpt 'n[C]').','),
- (bsnl ' name/**/3_imin_,name/**/3_imax_, 1)'),
+ (bsnl ' name/**/3_dummy_imin,name/**/3_dummy_imax, 1)'),
(nl ''),
(bsnl '#define CCTK_ENDLOOP[DIM]_INTBND(name)'),
(bsnl ' CCTK_ENDLOOP[DIM]STR_INTBND(name)'),
@@ -1176,7 +1176,7 @@ for $dim (1,2,3,4) {
(bsnl '#define CCTK_LOOP[DIM]STR_INTBND(name,'),
(bsnl ' '.(crpt '[C]').','),
(bsnl ' '.(crpt 'n[C]').','),
- (bsnl ' imin,imax, istr)'),
+ (bsnl ' imin,imax, cctki3_istr)'),
(bsnl ' && !$omp single'),
(bsnl ' && name/**/3_ierr = GetBoundarySizesAndTypes'),
(bsnl ' (cctkGH, [2*DIM], name/**/3_bndsize, name/**/3_is_ghostbnd, name/**/3_is_symbnd, name/**/3_is_physbnd)'),
@@ -1188,7 +1188,7 @@ for $dim (1,2,3,4) {
(bsnl ' '.(crpt 'name/**/3_bndsize([2*I+2])').','),
(bsnl ' '.(crpt 'name/**/3_is_physbnd([2*I+1])').','),
(bsnl ' '.(crpt 'name/**/3_is_physbnd([2*I+2])').','),
- (bsnl ' imin,imax, (istr))'),
+ (bsnl ' imin,imax, (cctki3_istr))'),
(nl ''),
(bsnl '#define CCTK_ENDLOOP[DIM]STR_INTBND(name)'),
(bsnl ' CCTK_ENDLOOP[DIM]STR_INTBOUNDARIES(name/**/_bnd)'),
generated by cgit v1.2.3 (git 2.39.1) at 2024-05-17 10:38:12 +0000