/*
//@HEADER
// ************************************************************************
//
//                        Kokkos v. 2.0
//              Copyright (2014) Sandia Corporation
//
// Under the terms of Contract DE-AC04-94AL85000 with Sandia Corporation,
// the U.S. Government retains certain rights in this software.
//
// Redistribution and use in source and binary forms, with or without
// modification, are permitted provided that the following conditions are
// met:
//
// 1. Redistributions of source code must retain the above copyright
// notice, this list of conditions and the following disclaimer.
//
// 2. Redistributions in binary form must reproduce the above copyright
// notice, this list of conditions and the following disclaimer in the
// documentation and/or other materials provided with the distribution.
//
// 3. Neither the name of the Corporation nor the names of the
// contributors may be used to endorse or promote products derived from
// this software without specific prior written permission.
//
// THIS SOFTWARE IS PROVIDED BY SANDIA CORPORATION "AS IS" AND ANY
// EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
// IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
// PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL SANDIA CORPORATION OR THE
// CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL,
// EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO,
// PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR
// PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF
// LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING
// NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
// SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
//
// Questions? Contact  H. Carter Edwards (hcedwar@sandia.gov)
//
// ************************************************************************
//@HEADER
*/

#ifndef KOKKOS_HOST_EXP_ITERATE_TILE_HPP
#define KOKKOS_HOST_EXP_ITERATE_TILE_HPP

#include <Kokkos_Macros.hpp>
#if defined(KOKKOS_ENABLE_AGGRESSIVE_VECTORIZATION) && defined(KOKKOS_HAVE_PRAGMA_IVDEP) && !defined(__CUDA_ARCH__)
#define KOKKOS_MDRANGE_IVDEP
#endif

#ifdef KOKKOS_MDRANGE_IVDEP
 #define KOKKOS_ENABLE_IVDEP_MDRANGE _Pragma("ivdep")
#else
 #define KOKKOS_ENABLE_IVDEP_MDRANGE
#endif

#include <iostream>
#include <algorithm>
#include <cstdio>

namespace Kokkos { namespace Experimental { namespace Impl {

// Temporary, for testing new loop macros
#define KOKKOS_ENABLE_NEW_LOOP_MACROS 1


#define LOOP_1L(type, tile) \
  KOKKOS_ENABLE_IVDEP_MDRANGE \
  for( type i0=0; i0<static_cast<type>(tile[0]); ++i0)

#define LOOP_2L(type, tile) \
  for( type i1=0; i1<static_cast<type>(tile[1]); ++i1) \
  LOOP_1L(type, tile)

#define LOOP_3L(type, tile) \
  for( type i2=0; i2<static_cast<type>(tile[2]); ++i2) \
  LOOP_2L(type, tile)

#define LOOP_4L(type, tile) \
  for( type i3=0; i3<static_cast<type>(tile[3]); ++i3) \
  LOOP_3L(type, tile)

#define LOOP_5L(type, tile) \
  for( type i4=0; i4<static_cast<type>(tile[4]); ++i4) \
  LOOP_4L(type, tile)

#define LOOP_6L(type, tile) \
  for( type i5=0; i5<static_cast<type>(tile[5]); ++i5) \
  LOOP_5L(type, tile)

#define LOOP_7L(type, tile) \
  for( type i6=0; i6<static_cast<type>(tile[6]); ++i6) \
  LOOP_6L(type, tile)

#define LOOP_8L(type, tile) \
  for( type i7=0; i7<static_cast<type>(tile[7]); ++i7) \
  LOOP_7L(type, tile)


#define LOOP_1R(type, tile) \
  KOKKOS_ENABLE_IVDEP_MDRANGE \
  for ( type i0=0; i0<static_cast<type>(tile[0]); ++i0 )

#define LOOP_2R(type, tile) \
  LOOP_1R(type, tile) \
  for ( type i1=0; i1<static_cast<type>(tile[1]); ++i1 )

#define LOOP_3R(type, tile) \
  LOOP_2R(type, tile) \
  for ( type i2=0; i2<static_cast<type>(tile[2]); ++i2 )

#define LOOP_4R(type, tile) \
  LOOP_3R(type, tile) \
  for ( type i3=0; i3<static_cast<type>(tile[3]); ++i3 )

#define LOOP_5R(type, tile) \
  LOOP_4R(type, tile) \
  for ( type i4=0; i4<static_cast<type>(tile[4]); ++i4 )

#define LOOP_6R(type, tile) \
  LOOP_5R(type, tile) \
  for ( type i5=0; i5<static_cast<type>(tile[5]); ++i5 )

#define LOOP_7R(type, tile) \
  LOOP_6R(type, tile) \
  for ( type i6=0; i6<static_cast<type>(tile[6]); ++i6 )

#define LOOP_8R(type, tile) \
  LOOP_7R(type, tile) \
  for ( type i7=0; i7<static_cast<type>(tile[7]); ++i7 )


#define LOOP_ARGS_1 i0 + m_offset[0]
#define LOOP_ARGS_2 LOOP_ARGS_1, i1 + m_offset[1]
#define LOOP_ARGS_3 LOOP_ARGS_2, i2 + m_offset[2]
#define LOOP_ARGS_4 LOOP_ARGS_3, i3 + m_offset[3]
#define LOOP_ARGS_5 LOOP_ARGS_4, i4 + m_offset[4]
#define LOOP_ARGS_6 LOOP_ARGS_5, i5 + m_offset[5]
#define LOOP_ARGS_7 LOOP_ARGS_6, i6 + m_offset[6]
#define LOOP_ARGS_8 LOOP_ARGS_7, i7 + m_offset[7]


// New Loop Macros...
// parallel_for, non-tagged
#define APPLY( func, ... ) \
  func( __VA_ARGS__ );

// LayoutRight
// d = 0 to start
#define LOOP_R_1( func, type, m_offset, extent, d, ... )    \
  KOKKOS_ENABLE_IVDEP_MDRANGE                            \
  for( type i0 = (type)0; i0 < static_cast<type>(extent[d]); ++i0) { \
    APPLY( func, __VA_ARGS__, i0 + m_offset[d] )              \
  }

#define LOOP_R_2( func, type, m_offset, extent, d, ... )             \
  for( type i1 = (type)0; i1 < static_cast<type>(extent[d]); ++i1) {          \
    LOOP_R_1( func, type, m_offset, extent, d+1 , __VA_ARGS__, i1 + m_offset[d] ) \
  }

#define LOOP_R_3( func, type, m_offset, extent, d, ... )             \
  for( type i2 = (type)0; i2 < static_cast<type>(extent[d]); ++i2) {          \
    LOOP_R_2( func, type, m_offset, extent, d+1 , __VA_ARGS__, i2 + m_offset[d] ) \
  }

#define LOOP_R_4( func, type, m_offset, extent, d, ... )             \
  for( type i3 = (type)0; i3 < static_cast<type>(extent[d]); ++i3) {          \
    LOOP_R_3( func, type, m_offset, extent, d+1 , __VA_ARGS__, i3 + m_offset[d] ) \
  }

#define LOOP_R_5( func, type, m_offset, extent, d, ... )             \
  for( type i4 = (type)0; i4 < static_cast<type>(extent[d]); ++i4) {          \
    LOOP_R_4( func, type, m_offset, extent, d+1 , __VA_ARGS__, i4 + m_offset[d] ) \
  }

#define LOOP_R_6( func, type, m_offset, extent, d, ... )             \
  for( type i5 = (type)0; i5 < static_cast<type>(extent[d]); ++i5) {          \
    LOOP_R_5( func, type, m_offset, extent, d+1 , __VA_ARGS__, i5 + m_offset[d] ) \
  }

#define LOOP_R_7( func, type, m_offset, extent, d, ... )             \
  for( type i6 = (type)0; i6 < static_cast<type>(extent[d]); ++i6) {          \
    LOOP_R_6( func, type, m_offset, extent, d+1 , __VA_ARGS__, i6 + m_offset[d] ) \
  }

#define LOOP_R_8( func, type, m_offset, extent, d, ... )             \
  for( type i7 = (type)0; i7 < static_cast<type>(extent[d]); ++i7) {          \
    LOOP_R_7( func, type, m_offset, extent, d+1 , __VA_ARGS__, i7 + m_offset[d] ) \
  }

//LayoutLeft
// d = rank-1 to start
#define LOOP_L_1( func, type, m_offset, extent, d, ... )    \
  KOKKOS_ENABLE_IVDEP_MDRANGE                            \
  for( type i0 = (type)0; i0 < static_cast<type>(extent[d]); ++i0) { \
    APPLY( func, i0 + m_offset[d] , __VA_ARGS__ )              \
  }

#define LOOP_L_2( func, type, m_offset, extent, d, ... )             \
  for( type i1 = (type)0; i1 < static_cast<type>(extent[d]); ++i1) {          \
    LOOP_L_1( func, type, m_offset, extent, d-1, i1 + m_offset[d] , __VA_ARGS__ ) \
  }

#define LOOP_L_3( func, type, m_offset, extent, d, ... )             \
  for( type i2 = (type)0; i2 < static_cast<type>(extent[d]); ++i2) {          \
    LOOP_L_2( func, type, m_offset, extent, d-1, i2 + m_offset[d] , __VA_ARGS__ ) \
  }

#define LOOP_L_4( func, type, m_offset, extent, d, ... )             \
  for( type i3 = (type)0; i3 < static_cast<type>(extent[d]); ++i3) {          \
    LOOP_L_3( func, type, m_offset, extent, d-1, i3 + m_offset[d] , __VA_ARGS__ ) \
  }

#define LOOP_L_5( func, type, m_offset, extent, d, ... )             \
  for( type i4 = (type)0; i4 < static_cast<type>(extent[d]); ++i4) {          \
    LOOP_L_4( func, type, m_offset, extent, d-1, i4 + m_offset[d] , __VA_ARGS__ ) \
  }

#define LOOP_L_6( func, type, m_offset, extent, d, ... )             \
  for( type i5 = (type)0; i5 < static_cast<type>(extent[d]); ++i5) {          \
    LOOP_L_5( func, type, m_offset, extent, d-1, i5 + m_offset[d] , __VA_ARGS__ ) \
  }

#define LOOP_L_7( func, type, m_offset, extent, d, ... )             \
  for( type i6 = (type)0; i6 < static_cast<type>(extent[d]); ++i6) {          \
    LOOP_L_6( func, type, m_offset, extent, d-1, i6 + m_offset[d] , __VA_ARGS__ ) \
  }

#define LOOP_L_8( func, type, m_offset, extent, d, ... )             \
  for( type i7 = (type)0; i7 < static_cast<type>(extent[d]); ++i7) {          \
    LOOP_L_7( func, type, m_offset, extent, d-1, i7 + m_offset[d] , __VA_ARGS__ ) \
  }

// Left vs Right
// TODO: rank not necessary to pass through, can hardcode the values
#define LOOP_LAYOUT_1( func, type, is_left, m_offset, extent, rank )  \
  KOKKOS_ENABLE_IVDEP_MDRANGE                            \
  for( type i0 = (type)0; i0 < static_cast<type>(extent[0]); ++i0) { \
    APPLY( func, i0 + m_offset[0] )              \
  }

#define LOOP_LAYOUT_2( func, type, is_left, m_offset, extent, rank )  \
  if (is_left) { \
    for( type i1 = (type)0; i1 < static_cast<type>(extent[rank-1]); ++i1) {   \
      LOOP_L_1( func, type, m_offset, extent, rank-2, i1 + m_offset[rank-1] ) \
    } \
  } \
  else         { \
    for( type i1 = (type)0; i1 < static_cast<type>(extent[0]); ++i1) { \
      LOOP_R_1( func, type, m_offset, extent, 1 , i1 + m_offset[0] )   \
    } \
  }

#define LOOP_LAYOUT_3( func, type, is_left, m_offset, extent, rank )  \
  if (is_left) { \
    for( type i2 = (type)0; i2 < static_cast<type>(extent[rank-1]); ++i2) {   \
      LOOP_L_2( func, type, m_offset, extent, rank-2, i2 + m_offset[rank-1] ) \
    } \
  } \
  else         { \
    for( type i2 = (type)0; i2 < static_cast<type>(extent[0]); ++i2) { \
      LOOP_R_2( func, type, m_offset, extent, 1 , i2 + m_offset[0] )   \
    } \
  }

#define LOOP_LAYOUT_4( func, type, is_left, m_offset, extent, rank )  \
  if (is_left) { \
    for( type i3 = (type)0; i3 < static_cast<type>(extent[rank-1]); ++i3) {   \
      LOOP_L_3( func, type, m_offset, extent, rank-2, i3 + m_offset[rank-1] ) \
    } \
  } \
  else         { \
    for( type i3 = (type)0; i3 < static_cast<type>(extent[0]); ++i3) { \
      LOOP_R_3( func, type, m_offset, extent, 1 , i3 + m_offset[0] )   \
    } \
  }

#define LOOP_LAYOUT_5( func, type, is_left, m_offset, extent, rank )  \
  if (is_left) { \
    for( type i4 = (type)0; i4 < static_cast<type>(extent[rank-1]); ++i4) {   \
      LOOP_L_4( func, type, m_offset, extent, rank-2, i4 + m_offset[rank-1] ) \
    } \
  } \
  else         { \
    for( type i4 = (type)0; i4 < static_cast<type>(extent[0]); ++i4) { \
      LOOP_R_4( func, type, m_offset, extent, 1 , i4 + m_offset[0] )   \
    } \
  }

#define LOOP_LAYOUT_6( func, type, is_left, m_offset, extent, rank )  \
  if (is_left) { \
    for( type i5 = (type)0; i5 < static_cast<type>(extent[rank-1]); ++i5) {   \
      LOOP_L_5( func, type, m_offset, extent, rank-2, i5 + m_offset[rank-1] ) \
    } \
  } \
  else         { \
    for( type i5 = (type)0; i5 < static_cast<type>(extent[0]); ++i5) { \
      LOOP_R_5( func, type, m_offset, extent, 1 , i5 + m_offset[0] )   \
    } \
  }

#define LOOP_LAYOUT_7( func, type, is_left, m_offset, extent, rank )  \
  if (is_left) { \
    for( type i6 = (type)0; i6 < static_cast<type>(extent[rank-1]); ++i6) {   \
      LOOP_L_6( func, type, m_offset, extent, rank-2, i6 + m_offset[rank-1] ) \
    } \
  } \
  else         { \
    for( type i6 = (type)0; i6 < static_cast<type>(extent[0]); ++i6) { \
      LOOP_R_6( func, type, m_offset, extent, 1 , i6 + m_offset[0] )   \
    } \
  }

#define LOOP_LAYOUT_8( func, type, is_left, m_offset, extent, rank )  \
  if (is_left) { \
    for( type i7 = (type)0; i7 < static_cast<type>(extent[rank-1]); ++i7) {   \
      LOOP_L_7( func, type, m_offset, extent, rank-2, i7 + m_offset[rank-1] ) \
    } \
  } \
  else         { \
    for( type i7 = (type)0; i7 < static_cast<type>(extent[0]); ++i7) { \
      LOOP_R_7( func, type, m_offset, extent, 1 , i7 + m_offset[0] )   \
    } \
  }

// Partial vs Full Tile
#define TILE_LOOP_1( func, type, is_left, cond, m_offset, extent_full, extent_partial, rank ) \
  if (cond) { LOOP_LAYOUT_1( func, type, is_left, m_offset, extent_full, rank ) } \
  else      { LOOP_LAYOUT_1( func, type, is_left, m_offset, extent_partial, rank ) }

#define TILE_LOOP_2( func, type, is_left, cond, m_offset, extent_full, extent_partial, rank ) \
  if (cond) { LOOP_LAYOUT_2( func, type, is_left, m_offset, extent_full, rank ) } \
  else      { LOOP_LAYOUT_2( func, type, is_left, m_offset, extent_partial, rank ) }

#define TILE_LOOP_3( func, type, is_left, cond, m_offset, extent_full, extent_partial, rank ) \
  if (cond) { LOOP_LAYOUT_3( func, type, is_left, m_offset, extent_full, rank ) } \
  else      { LOOP_LAYOUT_3( func, type, is_left, m_offset, extent_partial, rank ) }

#define TILE_LOOP_4( func, type, is_left, cond, m_offset, extent_full, extent_partial, rank ) \
  if (cond) { LOOP_LAYOUT_4( func, type, is_left, m_offset, extent_full, rank ) } \
  else      { LOOP_LAYOUT_4( func, type, is_left, m_offset, extent_partial, rank ) }

#define TILE_LOOP_5( func, type, is_left, cond, m_offset, extent_full, extent_partial, rank ) \
  if (cond) { LOOP_LAYOUT_5( func, type, is_left, m_offset, extent_full, rank ) } \
  else      { LOOP_LAYOUT_5( func, type, is_left, m_offset, extent_partial, rank ) }

#define TILE_LOOP_6( func, type, is_left, cond, m_offset, extent_full, extent_partial, rank ) \
  if (cond) { LOOP_LAYOUT_6( func, type, is_left, m_offset, extent_full, rank ) } \
  else      { LOOP_LAYOUT_6( func, type, is_left, m_offset, extent_partial, rank ) }

#define TILE_LOOP_7( func, type, is_left, cond, m_offset, extent_full, extent_partial, rank ) \
  if (cond) { LOOP_LAYOUT_7( func, type, is_left, m_offset, extent_full, rank ) } \
  else      { LOOP_LAYOUT_7( func, type, is_left, m_offset, extent_partial, rank ) }

#define TILE_LOOP_8( func, type, is_left, cond, m_offset, extent_full, extent_partial, rank ) \
  if (cond) { LOOP_LAYOUT_8( func, type, is_left, m_offset, extent_full, rank ) } \
  else      { LOOP_LAYOUT_8( func, type, is_left, m_offset, extent_partial, rank ) }


// parallel_reduce, non-tagged
// Reduction version
#define APPLY_REDUX( val, func, ... ) \
  func( __VA_ARGS__, val );

// LayoutRight
// d = 0 to start
#define LOOP_R_1_REDUX( val, func, type, m_offset, extent, d, ... )    \
  KOKKOS_ENABLE_IVDEP_MDRANGE                            \
  for( type i0 = (type)0; i0 < static_cast<type>(extent[d]); ++i0) { \
    APPLY_REDUX( val, func, __VA_ARGS__, i0 + m_offset[d] )              \
  }

#define LOOP_R_2_REDUX( val, func, type, m_offset, extent, d, ... )             \
  for( type i1 = (type)0; i1 < static_cast<type>(extent[d]); ++i1) {          \
    LOOP_R_1_REDUX( val, func, type, m_offset, extent, d+1 , __VA_ARGS__, i1 + m_offset[d] ) \
  }

#define LOOP_R_3_REDUX( val, func, type, m_offset, extent, d, ... )             \
  for( type i2 = (type)0; i2 < static_cast<type>(extent[d]); ++i2) {          \
    LOOP_R_2_REDUX( val, func, type, m_offset, extent, d+1 , __VA_ARGS__, i2 + m_offset[d] ) \
  }

#define LOOP_R_4_REDUX( val, func, type, m_offset, extent, d, ... )             \
  for( type i3 = (type)0; i3 < static_cast<type>(extent[d]); ++i3) {          \
    LOOP_R_3_REDUX( val, func, type, m_offset, extent, d+1 , __VA_ARGS__, i3 + m_offset[d] ) \
  }

#define LOOP_R_5_REDUX( val, func, type, m_offset, extent, d, ... )             \
  for( type i4 = (type)0; i4 < static_cast<type>(extent[d]); ++i4) {          \
    LOOP_R_4_REDUX( val, func, type, m_offset, extent, d+1 , __VA_ARGS__, i4 + m_offset[d] ) \
  }

#define LOOP_R_6_REDUX( val, func, type, m_offset, extent, d, ... )             \
  for( type i5 = (type)0; i5 < static_cast<type>(extent[d]); ++i5) {          \
    LOOP_R_5_REDUX( val, func, type, m_offset, extent, d+1 , __VA_ARGS__, i5 + m_offset[d] ) \
  }

#define LOOP_R_7_REDUX( val, func, type, m_offset, extent, d, ... )             \
  for( type i6 = (type)0; i6 < static_cast<type>(extent[d]); ++i6) {          \
    LOOP_R_6_REDUX( val, func, type, m_offset, extent, d+1 , __VA_ARGS__, i6 + m_offset[d] ) \
  }

#define LOOP_R_8_REDUX( val, func, type, m_offset, extent, d, ... )             \
  for( type i7 = (type)0; i7 < static_cast<type>(extent[d]); ++i7) {          \
    LOOP_R_7_REDUX( val, func, type, m_offset, extent, d+1 , __VA_ARGS__, i7 + m_offset[d] ) \
  }

//LayoutLeft
// d = rank-1 to start
#define LOOP_L_1_REDUX( val, func, type, m_offset, extent, d, ... )    \
  KOKKOS_ENABLE_IVDEP_MDRANGE                            \
  for( type i0 = (type)0; i0 < static_cast<type>(extent[d]); ++i0) { \
    APPLY_REDUX( val, func, i0 + m_offset[d] , __VA_ARGS__ )              \
  }

#define LOOP_L_2_REDUX( val, func, type, m_offset, extent, d, ... )             \
  for( type i1 = (type)0; i1 < static_cast<type>(extent[d]); ++i1) {          \
    LOOP_L_1_REDUX( val, func, type, m_offset, extent, d-1, i1 + m_offset[d] , __VA_ARGS__ ) \
  }

#define LOOP_L_3_REDUX( val, func, type, m_offset, extent, d, ... )             \
  for( type i2 = (type)0; i2 < static_cast<type>(extent[d]); ++i2) {          \
    LOOP_L_2_REDUX( val, func, type, m_offset, extent, d-1, i2 + m_offset[d] , __VA_ARGS__ ) \
  }

#define LOOP_L_4_REDUX( val, func, type, m_offset, extent, d, ... )             \
  for( type i3 = (type)0; i3 < static_cast<type>(extent[d]); ++i3) {          \
    LOOP_L_3_REDUX( val, func, type, m_offset, extent, d-1, i3 + m_offset[d] , __VA_ARGS__ ) \
  }

#define LOOP_L_5_REDUX( val, func, type, m_offset, extent, d, ... )             \
  for( type i4 = (type)0; i4 < static_cast<type>(extent[d]); ++i4) {          \
    LOOP_L_4_REDUX( val, func, type, m_offset, extent, d-1, i4 + m_offset[d] , __VA_ARGS__ ) \
  }

#define LOOP_L_6_REDUX( val, func, type, m_offset, extent, d, ... )             \
  for( type i5 = (type)0; i5 < static_cast<type>(extent[d]); ++i5) {          \
    LOOP_L_5_REDUX( val, func, type, m_offset, extent, d-1, i5 + m_offset[d] , __VA_ARGS__ ) \
  }

#define LOOP_L_7_REDUX( val, func, type, m_offset, extent, d, ... )             \
  for( type i6 = (type)0; i6 < static_cast<type>(extent[d]); ++i6) {          \
    LOOP_L_6_REDUX( val, func, type, m_offset, extent, d-1, i6 + m_offset[d] , __VA_ARGS__ ) \
  }

#define LOOP_L_8_REDUX( val, func, type, m_offset, extent, d, ... )             \
  for( type i7 = (type)0; i7 < static_cast<type>(extent[d]); ++i7) {          \
    LOOP_L_7_REDUX( val, func, type, m_offset, extent, d-1, i7 + m_offset[d] , __VA_ARGS__ ) \
  }

// Left vs Right
#define LOOP_LAYOUT_1_REDUX( val, func, type, is_left, m_offset, extent, rank )  \
  KOKKOS_ENABLE_IVDEP_MDRANGE                            \
  for( type i0 = (type)0; i0 < static_cast<type>(extent[0]); ++i0) { \
    APPLY_REDUX( val, func, i0 + m_offset[0] )              \
  }

#define LOOP_LAYOUT_2_REDUX( val, func, type, is_left, m_offset, extent, rank )  \
  if (is_left) { \
    for( type i1 = (type)0; i1 < static_cast<type>(extent[rank-1]); ++i1) {   \
      LOOP_L_1_REDUX( val, func, type, m_offset, extent, rank-2, i1 + m_offset[rank-1] ) \
    } \
  } \
  else         { \
    for( type i1 = (type)0; i1 < static_cast<type>(extent[0]); ++i1) { \
      LOOP_R_1_REDUX( val, func, type, m_offset, extent, 1 , i1 + m_offset[0] )   \
    } \
  }

#define LOOP_LAYOUT_3_REDUX( val, func, type, is_left, m_offset, extent, rank )  \
  if (is_left) { \
    for( type i2 = (type)0; i2 < static_cast<type>(extent[rank-1]); ++i2) {   \
      LOOP_L_2_REDUX( val, func, type, m_offset, extent, rank-2, i2 + m_offset[rank-1] ) \
    } \
  } \
  else         { \
    for( type i2 = (type)0; i2 < static_cast<type>(extent[0]); ++i2) { \
      LOOP_R_2_REDUX( val, func, type, m_offset, extent, 1 , i2 + m_offset[0] )   \
    } \
  }

#define LOOP_LAYOUT_4_REDUX( val, func, type, is_left, m_offset, extent, rank )  \
  if (is_left) { \
    for( type i3 = (type)0; i3 < static_cast<type>(extent[rank-1]); ++i3) {   \
      LOOP_L_3_REDUX( val, func, type, m_offset, extent, rank-2, i3 + m_offset[rank-1] ) \
    } \
  } \
  else         { \
    for( type i3 = (type)0; i3 < static_cast<type>(extent[0]); ++i3) { \
      LOOP_R_3_REDUX( val, func, type, m_offset, extent, 1 , i3 + m_offset[0] )   \
    } \
  }

#define LOOP_LAYOUT_5_REDUX( val, func, type, is_left, m_offset, extent, rank )  \
  if (is_left) { \
    for( type i4 = (type)0; i4 < static_cast<type>(extent[rank-1]); ++i4) {   \
      LOOP_L_4_REDUX( val, func, type, m_offset, extent, rank-2, i4 + m_offset[rank-1] ) \
    } \
  } \
  else         { \
    for( type i4 = (type)0; i4 < static_cast<type>(extent[0]); ++i4) { \
      LOOP_R_4_REDUX( val, func, type, m_offset, extent, 1 , i4 + m_offset[0] )   \
    } \
  }

#define LOOP_LAYOUT_6_REDUX( val, func, type, is_left, m_offset, extent, rank )  \
  if (is_left) { \
    for( type i5 = (type)0; i5 < static_cast<type>(extent[rank-1]); ++i5) {   \
      LOOP_L_5_REDUX( val, func, type, m_offset, extent, rank-2, i5 + m_offset[rank-1] ) \
    } \
  } \
  else         { \
    for( type i5 = (type)0; i5 < static_cast<type>(extent[0]); ++i5) { \
      LOOP_R_5_REDUX( val, func, type, m_offset, extent, 1 , i5 + m_offset[0] )   \
    } \
  }

#define LOOP_LAYOUT_7_REDUX( val, func, type, is_left, m_offset, extent, rank )  \
  if (is_left) { \
    for( type i6 = (type)0; i6 < static_cast<type>(extent[rank-1]); ++i6) {   \
      LOOP_L_6_REDUX( val, func, type, m_offset, extent, rank-2, i6 + m_offset[rank-1] ) \
    } \
  } \
  else         { \
    for( type i6 = (type)0; i6 < static_cast<type>(extent[0]); ++i6) { \
      LOOP_R_6_REDUX( val, func, type, m_offset, extent, 1 , i6 + m_offset[0] )   \
    } \
  }

#define LOOP_LAYOUT_8_REDUX( val, func, type, is_left, m_offset, extent, rank )  \
  if (is_left) { \
    for( type i7 = (type)0; i7 < static_cast<type>(extent[rank-1]); ++i7) {   \
      LOOP_L_7_REDUX( val, func, type, m_offset, extent, rank-2, i7 + m_offset[rank-1] ) \
    } \
  } \
  else         { \
    for( type i7 = (type)0; i7 < static_cast<type>(extent[0]); ++i7) { \
      LOOP_R_7_REDUX( val, func, type, m_offset, extent, 1 , i7 + m_offset[0] )   \
    } \
  }

// Partial vs Full Tile
#define TILE_LOOP_1_REDUX( val, func, type, is_left, cond, m_offset, extent_full, extent_partial, rank ) \
  if (cond) { LOOP_LAYOUT_1_REDUX( val, func, type, is_left, m_offset, extent_full, rank ) } \
  else      { LOOP_LAYOUT_1_REDUX( val, func, type, is_left, m_offset, extent_partial, rank ) }

#define TILE_LOOP_2_REDUX( val, func, type, is_left, cond, m_offset, extent_full, extent_partial, rank ) \
  if (cond) { LOOP_LAYOUT_2_REDUX( val, func, type, is_left, m_offset, extent_full, rank ) } \
  else      { LOOP_LAYOUT_2_REDUX( val, func, type, is_left, m_offset, extent_partial, rank ) }

#define TILE_LOOP_3_REDUX( val, func, type, is_left, cond, m_offset, extent_full, extent_partial, rank ) \
  if (cond) { LOOP_LAYOUT_3_REDUX( val, func, type, is_left, m_offset, extent_full, rank ) } \
  else      { LOOP_LAYOUT_3_REDUX( val, func, type, is_left, m_offset, extent_partial, rank ) }

#define TILE_LOOP_4_REDUX( val, func, type, is_left, cond, m_offset, extent_full, extent_partial, rank ) \
  if (cond) { LOOP_LAYOUT_4_REDUX( val, func, type, is_left, m_offset, extent_full, rank ) } \
  else      { LOOP_LAYOUT_4_REDUX( val, func, type, is_left, m_offset, extent_partial, rank ) }

#define TILE_LOOP_5_REDUX( val, func, type, is_left, cond, m_offset, extent_full, extent_partial, rank ) \
  if (cond) { LOOP_LAYOUT_5_REDUX( val, func, type, is_left, m_offset, extent_full, rank ) } \
  else      { LOOP_LAYOUT_5_REDUX( val, func, type, is_left, m_offset, extent_partial, rank ) }

#define TILE_LOOP_6_REDUX( val, func, type, is_left, cond, m_offset, extent_full, extent_partial, rank ) \
  if (cond) { LOOP_LAYOUT_6_REDUX( val, func, type, is_left, m_offset, extent_full, rank ) } \
  else      { LOOP_LAYOUT_6_REDUX( val, func, type, is_left, m_offset, extent_partial, rank ) }

#define TILE_LOOP_7_REDUX( val, func, type, is_left, cond, m_offset, extent_full, extent_partial, rank ) \
  if (cond) { LOOP_LAYOUT_7_REDUX( val, func, type, is_left, m_offset, extent_full, rank ) } \
  else      { LOOP_LAYOUT_7_REDUX( val, func, type, is_left, m_offset, extent_partial, rank ) }

#define TILE_LOOP_8_REDUX( val, func, type, is_left, cond, m_offset, extent_full, extent_partial, rank ) \
  if (cond) { LOOP_LAYOUT_8_REDUX( val, func, type, is_left, m_offset, extent_full, rank ) } \
  else      { LOOP_LAYOUT_8_REDUX( val, func, type, is_left, m_offset, extent_partial, rank ) }
// end New Loop Macros


// tagged macros
#define TAGGED_APPLY( tag, func, ... ) \
  func( tag, __VA_ARGS__ );

// LayoutRight
// d = 0 to start
#define TAGGED_LOOP_R_1( tag, func, type, m_offset, extent, d, ... )    \
  KOKKOS_ENABLE_IVDEP_MDRANGE                            \
  for( type i0 = (type)0; i0 < static_cast<type>(extent[d]); ++i0) { \
    TAGGED_APPLY( tag, func, __VA_ARGS__, i0 + m_offset[d] )              \
  }

#define TAGGED_LOOP_R_2( tag, func, type, m_offset, extent, d, ... )             \
  for( type i1 = (type)0; i1 < static_cast<type>(extent[d]); ++i1) {          \
    TAGGED_LOOP_R_1( tag, func, type, m_offset, extent, d+1 , __VA_ARGS__, i1 + m_offset[d] ) \
  }

#define TAGGED_LOOP_R_3( tag, func, type, m_offset, extent, d, ... )             \
  for( type i2 = (type)0; i2 < static_cast<type>(extent[d]); ++i2) {          \
    TAGGED_LOOP_R_2( tag, func, type, m_offset, extent, d+1 , __VA_ARGS__, i2 + m_offset[d] ) \
  }

#define TAGGED_LOOP_R_4( tag, func, type, m_offset, extent, d, ... )             \
  for( type i3 = (type)0; i3 < static_cast<type>(extent[d]); ++i3) {          \
    TAGGED_LOOP_R_3( tag, func, type, m_offset, extent, d+1 , __VA_ARGS__, i3 + m_offset[d] ) \
  }

#define TAGGED_LOOP_R_5( tag, func, type, m_offset, extent, d, ... )             \
  for( type i4 = (type)0; i4 < static_cast<type>(extent[d]); ++i4) {          \
    TAGGED_LOOP_R_4( tag, func, type, m_offset, extent, d+1 , __VA_ARGS__, i4 + m_offset[d] ) \
  }

#define TAGGED_LOOP_R_6( tag, func, type, m_offset, extent, d, ... )             \
  for( type i5 = (type)0; i5 < static_cast<type>(extent[d]); ++i5) {          \
    TAGGED_LOOP_R_5( tag, func, type, m_offset, extent, d+1 , __VA_ARGS__, i5 + m_offset[d] ) \
  }

#define TAGGED_LOOP_R_7( tag, func, type, m_offset, extent, d, ... )             \
  for( type i6 = (type)0; i6 < static_cast<type>(extent[d]); ++i6) {          \
    TAGGED_LOOP_R_6( tag, func, type, m_offset, extent, d+1 , __VA_ARGS__, i6 + m_offset[d] ) \
  }

#define TAGGED_LOOP_R_8( tag, func, type, m_offset, extent, d, ... )             \
  for( type i7 = (type)0; i7 < static_cast<type>(extent[d]); ++i7) {          \
    TAGGED_LOOP_R_7( tag, func, type, m_offset, extent, d+1 , __VA_ARGS__, i7 + m_offset[d] ) \
  }

//LayoutLeft
// d = rank-1 to start
#define TAGGED_LOOP_L_1( tag, func, type, m_offset, extent, d, ... )    \
  KOKKOS_ENABLE_IVDEP_MDRANGE                            \
  for( type i0 = (type)0; i0 < static_cast<type>(extent[d]); ++i0) { \
    TAGGED_APPLY( tag, func, i0 + m_offset[d] , __VA_ARGS__ )              \
  }

#define TAGGED_LOOP_L_2( tag, func, type, m_offset, extent, d, ... )             \
  for( type i1 = (type)0; i1 < static_cast<type>(extent[d]); ++i1) {          \
    TAGGED_LOOP_L_1( tag, func, type, m_offset, extent, d-1, i1 + m_offset[d] , __VA_ARGS__ ) \
  }

#define TAGGED_LOOP_L_3( tag, func, type, m_offset, extent, d, ... )             \
  for( type i2 = (type)0; i2 < static_cast<type>(extent[d]); ++i2) {          \
    TAGGED_LOOP_L_2( tag, func, type, m_offset, extent, d-1, i2 + m_offset[d] , __VA_ARGS__ ) \
  }

#define TAGGED_LOOP_L_4( tag, func, type, m_offset, extent, d, ... )             \
  for( type i3 = (type)0; i3 < static_cast<type>(extent[d]); ++i3) {          \
    TAGGED_LOOP_L_3( tag, func, type, m_offset, extent, d-1, i3 + m_offset[d] , __VA_ARGS__ ) \
  }

#define TAGGED_LOOP_L_5( tag, func, type, m_offset, extent, d, ... )             \
  for( type i4 = (type)0; i4 < static_cast<type>(extent[d]); ++i4) {          \
    TAGGED_LOOP_L_4( tag, func, type, m_offset, extent, d-1, i4 + m_offset[d] , __VA_ARGS__ ) \
  }

#define TAGGED_LOOP_L_6( tag, func, type, m_offset, extent, d, ... )             \
  for( type i5 = (type)0; i5 < static_cast<type>(extent[d]); ++i5) {          \
    TAGGED_LOOP_L_5( tag, func, type, m_offset, extent, d-1, i5 + m_offset[d] , __VA_ARGS__ ) \
  }

#define TAGGED_LOOP_L_7( tag, func, type, m_offset, extent, d, ... )             \
  for( type i6 = (type)0; i6 < static_cast<type>(extent[d]); ++i6) {          \
    TAGGED_LOOP_L_6( tag, func, type, m_offset, extent, d-1, i6 + m_offset[d] , __VA_ARGS__ ) \
  }

#define TAGGED_LOOP_L_8( tag, func, type, m_offset, extent, d, ... )             \
  for( type i7 = (type)0; i7 < static_cast<type>(extent[d]); ++i7) {          \
    TAGGED_LOOP_L_7( tag, func, type, m_offset, extent, d-1, i7 + m_offset[d] , __VA_ARGS__ ) \
  }

// Left vs Right
// TODO: rank not necessary to pass through, can hardcode the values
#define TAGGED_LOOP_LAYOUT_1( tag, func, type, is_left, m_offset, extent, rank )  \
  KOKKOS_ENABLE_IVDEP_MDRANGE                            \
  for( type i0 = (type)0; i0 < static_cast<type>(extent[0]); ++i0) { \
    TAGGED_APPLY( tag, func, i0 + m_offset[0] )              \
  }

#define TAGGED_LOOP_LAYOUT_2( tag, func, type, is_left, m_offset, extent, rank )  \
  if (is_left) { \
    for( type i1 = (type)0; i1 < static_cast<type>(extent[rank-1]); ++i1) {   \
      TAGGED_LOOP_L_1( tag, func, type, m_offset, extent, rank-2, i1 + m_offset[rank-1] ) \
    } \
  } \
  else         { \
    for( type i1 = (type)0; i1 < static_cast<type>(extent[0]); ++i1) { \
      TAGGED_LOOP_R_1( tag, func, type, m_offset, extent, 1 , i1 + m_offset[0] )   \
    } \
  }

#define TAGGED_LOOP_LAYOUT_3( tag, func, type, is_left, m_offset, extent, rank )  \
  if (is_left) { \
    for( type i2 = (type)0; i2 < static_cast<type>(extent[rank-1]); ++i2) {   \
      TAGGED_LOOP_L_2( tag, func, type, m_offset, extent, rank-2, i2 + m_offset[rank-1] ) \
    } \
  } \
  else         { \
    for( type i2 = (type)0; i2 < static_cast<type>(extent[0]); ++i2) { \
      TAGGED_LOOP_R_2( tag, func, type, m_offset, extent, 1 , i2 + m_offset[0] )   \
    } \
  }

#define TAGGED_LOOP_LAYOUT_4( tag, func, type, is_left, m_offset, extent, rank )  \
  if (is_left) { \
    for( type i3 = (type)0; i3 < static_cast<type>(extent[rank-1]); ++i3) {   \
      TAGGED_LOOP_L_3( tag, func, type, m_offset, extent, rank-2, i3 + m_offset[rank-1] ) \
    } \
  } \
  else         { \
    for( type i3 = (type)0; i3 < static_cast<type>(extent[0]); ++i3) { \
      TAGGED_LOOP_R_3( tag, func, type, m_offset, extent, 1 , i3 + m_offset[0] )   \
    } \
  }

#define TAGGED_LOOP_LAYOUT_5( tag, func, type, is_left, m_offset, extent, rank )  \
  if (is_left) { \
    for( type i4 = (type)0; i4 < static_cast<type>(extent[rank-1]); ++i4) {   \
      TAGGED_LOOP_L_4( tag, func, type, m_offset, extent, rank-2, i4 + m_offset[rank-1] ) \
    } \
  } \
  else         { \
    for( type i4 = (type)0; i4 < static_cast<type>(extent[0]); ++i4) { \
      TAGGED_LOOP_R_4( tag, func, type, m_offset, extent, 1 , i4 + m_offset[0] )   \
    } \
  }

#define TAGGED_LOOP_LAYOUT_6( tag, func, type, is_left, m_offset, extent, rank )  \
  if (is_left) { \
    for( type i5 = (type)0; i5 < static_cast<type>(extent[rank-1]); ++i5) {   \
      TAGGED_LOOP_L_5( tag, func, type, m_offset, extent, rank-2, i5 + m_offset[rank-1] ) \
    } \
  } \
  else         { \
    for( type i5 = (type)0; i5 < static_cast<type>(extent[0]); ++i5) { \
      TAGGED_LOOP_R_5( tag, func, type, m_offset, extent, 1 , i5 + m_offset[0] )   \
    } \
  }

#define TAGGED_LOOP_LAYOUT_7( tag, func, type, is_left, m_offset, extent, rank )  \
  if (is_left) { \
    for( type i6 = (type)0; i6 < static_cast<type>(extent[rank-1]); ++i6) {   \
      TAGGED_LOOP_L_6( tag, func, type, m_offset, extent, rank-2, i6 + m_offset[rank-1] ) \
    } \
  } \
  else         { \
    for( type i6 = (type)0; i6 < static_cast<type>(extent[0]); ++i6) { \
      TAGGED_LOOP_R_6( tag, func, type, m_offset, extent, 1 , i6 + m_offset[0] )   \
    } \
  }

#define TAGGED_LOOP_LAYOUT_8( tag, func, type, is_left, m_offset, extent, rank )  \
  if (is_left) { \
    for( type i7 = (type)0; i7 < static_cast<type>(extent[rank-1]); ++i7) {   \
      TAGGED_LOOP_L_7( tag, func, type, m_offset, extent, rank-2, i7 + m_offset[rank-1] ) \
    } \
  } \
  else         { \
    for( type i7 = (type)0; i7 < static_cast<type>(extent[0]); ++i7) { \
      TAGGED_LOOP_R_7( tag, func, type, m_offset, extent, 1 , i7 + m_offset[0] )   \
    } \
  }

// Partial vs Full Tile
#define TAGGED_TILE_LOOP_1( tag, func, type, is_left, cond, m_offset, extent_full, extent_partial, rank ) \
  if (cond) { TAGGED_LOOP_LAYOUT_1( tag, func, type, is_left, m_offset, extent_full, rank ) } \
  else      { TAGGED_LOOP_LAYOUT_1( tag, func, type, is_left, m_offset, extent_partial, rank ) }

#define TAGGED_TILE_LOOP_2( tag, func, type, is_left, cond, m_offset, extent_full, extent_partial, rank ) \
  if (cond) { TAGGED_LOOP_LAYOUT_2( tag, func, type, is_left, m_offset, extent_full, rank ) } \
  else      { TAGGED_LOOP_LAYOUT_2( tag, func, type, is_left, m_offset, extent_partial, rank ) }

#define TAGGED_TILE_LOOP_3( tag, func, type, is_left, cond, m_offset, extent_full, extent_partial, rank ) \
  if (cond) { TAGGED_LOOP_LAYOUT_3( tag, func, type, is_left, m_offset, extent_full, rank ) } \
  else      { TAGGED_LOOP_LAYOUT_3( tag, func, type, is_left, m_offset, extent_partial, rank ) }

#define TAGGED_TILE_LOOP_4( tag, func, type, is_left, cond, m_offset, extent_full, extent_partial, rank ) \
  if (cond) { TAGGED_LOOP_LAYOUT_4( tag, func, type, is_left, m_offset, extent_full, rank ) } \
  else      { TAGGED_LOOP_LAYOUT_4( tag, func, type, is_left, m_offset, extent_partial, rank ) }

#define TAGGED_TILE_LOOP_5( tag, func, type, is_left, cond, m_offset, extent_full, extent_partial, rank ) \
  if (cond) { TAGGED_LOOP_LAYOUT_5( tag, func, type, is_left, m_offset, extent_full, rank ) } \
  else      { TAGGED_LOOP_LAYOUT_5( tag, func, type, is_left, m_offset, extent_partial, rank ) }

#define TAGGED_TILE_LOOP_6( tag, func, type, is_left, cond, m_offset, extent_full, extent_partial, rank ) \
  if (cond) { TAGGED_LOOP_LAYOUT_6( tag, func, type, is_left, m_offset, extent_full, rank ) } \
  else      { TAGGED_LOOP_LAYOUT_6( tag, func, type, is_left, m_offset, extent_partial, rank ) }

#define TAGGED_TILE_LOOP_7( tag, func, type, is_left, cond, m_offset, extent_full, extent_partial, rank ) \
  if (cond) { TAGGED_LOOP_LAYOUT_7( tag, func, type, is_left, m_offset, extent_full, rank ) } \
  else      { TAGGED_LOOP_LAYOUT_7( tag, func, type, is_left, m_offset, extent_partial, rank ) }

#define TAGGED_TILE_LOOP_8( tag, func, type, is_left, cond, m_offset, extent_full, extent_partial, rank ) \
  if (cond) { TAGGED_LOOP_LAYOUT_8( tag, func, type, is_left, m_offset, extent_full, rank ) } \
  else      { TAGGED_LOOP_LAYOUT_8( tag, func, type, is_left, m_offset, extent_partial, rank ) }


// parallel_reduce, tagged
// Reduction version
#define TAGGED_APPLY_REDUX( val, tag, func, ... ) \
  func( tag, __VA_ARGS__, val );

// LayoutRight
// d = 0 to start
#define TAGGED_LOOP_R_1_REDUX( val, tag, func, type, m_offset, extent, d, ... )    \
  KOKKOS_ENABLE_IVDEP_MDRANGE                            \
  for( type i0 = (type)0; i0 < static_cast<type>(extent[d]); ++i0) { \
    TAGGED_APPLY_REDUX( val, tag, func, __VA_ARGS__, i0 + m_offset[d] )              \
  }

#define TAGGED_LOOP_R_2_REDUX( val, tag, func, type, m_offset, extent, d, ... )             \
  for( type i1 = (type)0; i1 < static_cast<type>(extent[d]); ++i1) {          \
    TAGGED_LOOP_R_1_REDUX( val, tag, func, type, m_offset, extent, d+1 , __VA_ARGS__, i1 + m_offset[d] ) \
  }

#define TAGGED_LOOP_R_3_REDUX( val, tag, func, type, m_offset, extent, d, ... )             \
  for( type i2 = (type)0; i2 < static_cast<type>(extent[d]); ++i2) {          \
    TAGGED_LOOP_R_2_REDUX( val, tag, func, type, m_offset, extent, d+1 , __VA_ARGS__, i2 + m_offset[d] ) \
  }

#define TAGGED_LOOP_R_4_REDUX( val, tag, func, type, m_offset, extent, d, ... )             \
  for( type i3 = (type)0; i3 < static_cast<type>(extent[d]); ++i3) {          \
    TAGGED_LOOP_R_3_REDUX( val, tag, func, type, m_offset, extent, d+1 , __VA_ARGS__, i3 + m_offset[d] ) \
  }

#define TAGGED_LOOP_R_5_REDUX( val, tag, func, type, m_offset, extent, d, ... )             \
  for( type i4 = (type)0; i4 < static_cast<type>(extent[d]); ++i4) {          \
    TAGGED_LOOP_R_4_REDUX( val, tag, func, type, m_offset, extent, d+1 , __VA_ARGS__, i4 + m_offset[d] ) \
  }

#define TAGGED_LOOP_R_6_REDUX( val, tag, func, type, m_offset, extent, d, ... )             \
  for( type i5 = (type)0; i5 < static_cast<type>(extent[d]); ++i5) {          \
    TAGGED_LOOP_R_5_REDUX( val, tag, func, type, m_offset, extent, d+1 , __VA_ARGS__, i5 + m_offset[d] ) \
  }

#define TAGGED_LOOP_R_7_REDUX( val, tag, func, type, m_offset, extent, d, ... )             \
  for( type i6 = (type)0; i6 < static_cast<type>(extent[d]); ++i6) {          \
    TAGGED_LOOP_R_6_REDUX( val, tag, func, type, m_offset, extent, d+1 , __VA_ARGS__, i6 + m_offset[d] ) \
  }

#define TAGGED_LOOP_R_8_REDUX( val, tag, func, type, m_offset, extent, d, ... )             \
  for( type i7 = (type)0; i7 < static_cast<type>(extent[d]); ++i7) {          \
    TAGGED_LOOP_R_7_REDUX( val, tag, func, type, m_offset, extent, d+1 , __VA_ARGS__, i7 + m_offset[d] ) \
  }

//LayoutLeft
// d = rank-1 to start
#define TAGGED_LOOP_L_1_REDUX( val, tag, func, type, m_offset, extent, d, ... )    \
  KOKKOS_ENABLE_IVDEP_MDRANGE                            \
  for( type i0 = (type)0; i0 < static_cast<type>(extent[d]); ++i0) { \
    TAGGED_APPLY_REDUX( val, tag, func, i0 + m_offset[d] , __VA_ARGS__ )              \
  }

#define TAGGED_LOOP_L_2_REDUX( val, tag, func, type, m_offset, extent, d, ... )             \
  for( type i1 = (type)0; i1 < static_cast<type>(extent[d]); ++i1) {          \
    TAGGED_LOOP_L_1_REDUX( val, tag, func, type, m_offset, extent, d-1, i1 + m_offset[d] , __VA_ARGS__ ) \
  }

#define TAGGED_LOOP_L_3_REDUX( val, tag, func, type, m_offset, extent, d, ... )             \
  for( type i2 = (type)0; i2 < static_cast<type>(extent[d]); ++i2) {          \
    TAGGED_LOOP_L_2_REDUX( val, tag, func, type, m_offset, extent, d-1, i2 + m_offset[d] , __VA_ARGS__ ) \
  }

#define TAGGED_LOOP_L_4_REDUX( val, tag, func, type, m_offset, extent, d, ... )             \
  for( type i3 = (type)0; i3 < static_cast<type>(extent[d]); ++i3) {          \
    TAGGED_LOOP_L_3_REDUX( val, tag, func, type, m_offset, extent, d-1, i3 + m_offset[d] , __VA_ARGS__ ) \
  }

#define TAGGED_LOOP_L_5_REDUX( val, tag, func, type, m_offset, extent, d, ... )             \
  for( type i4 = (type)0; i4 < static_cast<type>(extent[d]); ++i4) {          \
    TAGGED_LOOP_L_4_REDUX( val, tag, func, type, m_offset, extent, d-1, i4 + m_offset[d] , __VA_ARGS__ ) \
  }

#define TAGGED_LOOP_L_6_REDUX( val, tag, func, type, m_offset, extent, d, ... )             \
  for( type i5 = (type)0; i5 < static_cast<type>(extent[d]); ++i5) {          \
    TAGGED_LOOP_L_5_REDUX( val, tag, func, type, m_offset, extent, d-1, i5 + m_offset[d] , __VA_ARGS__ ) \
  }

#define TAGGED_LOOP_L_7_REDUX( val, tag, func, type, m_offset, extent, d, ... )             \
  for( type i6 = (type)0; i6 < static_cast<type>(extent[d]); ++i6) {          \
    TAGGED_LOOP_L_6_REDUX( val, tag, func, type, m_offset, extent, d-1, i6 + m_offset[d] , __VA_ARGS__ ) \
  }

#define TAGGED_LOOP_L_8_REDUX( val, tag, func, type, m_offset, extent, d, ... )             \
  for( type i7 = (type)0; i7 < static_cast<type>(extent[d]); ++i7) {          \
    TAGGED_LOOP_L_7_REDUX( val, tag, func, type, m_offset, extent, d-1, i7 + m_offset[d] , __VA_ARGS__ ) \
  }

// Left vs Right
#define TAGGED_LOOP_LAYOUT_1_REDUX( val, tag, func, type, is_left, m_offset, extent, rank )  \
  KOKKOS_ENABLE_IVDEP_MDRANGE                            \
  for( type i0 = (type)0; i0 < static_cast<type>(extent[0]); ++i0) { \
    TAGGED_APPLY_REDUX( val, tag, func, i0 + m_offset[0] )              \
  }

#define TAGGED_LOOP_LAYOUT_2_REDUX( val, tag, func, type, is_left, m_offset, extent, rank )  \
  if (is_left) { \
    for( type i1 = (type)0; i1 < static_cast<type>(extent[rank-1]); ++i1) {   \
      TAGGED_LOOP_L_1_REDUX( val, tag, func, type, m_offset, extent, rank-2, i1 + m_offset[rank-1] ) \
    } \
  } \
  else         { \
    for( type i1 = (type)0; i1 < static_cast<type>(extent[0]); ++i1) { \
      TAGGED_LOOP_R_1_REDUX( val, tag, func, type, m_offset, extent, 1 , i1 + m_offset[0] )   \
    } \
  }

#define TAGGED_LOOP_LAYOUT_3_REDUX( val, tag, func, type, is_left, m_offset, extent, rank )  \
  if (is_left) { \
    for( type i2 = (type)0; i2 < static_cast<type>(extent[rank-1]); ++i2) {   \
      TAGGED_LOOP_L_2_REDUX( val, tag, func, type, m_offset, extent, rank-2, i2 + m_offset[rank-1] ) \
    } \
  } \
  else         { \
    for( type i2 = (type)0; i2 < static_cast<type>(extent[0]); ++i2) { \
      TAGGED_LOOP_R_2_REDUX( val, tag, func, type, m_offset, extent, 1 , i2 + m_offset[0] )   \
    } \
  }

#define TAGGED_LOOP_LAYOUT_4_REDUX( val, tag, func, type, is_left, m_offset, extent, rank )  \
  if (is_left) { \
    for( type i3 = (type)0; i3 < static_cast<type>(extent[rank-1]); ++i3) {   \
      TAGGED_LOOP_L_3_REDUX( val, tag, func, type, m_offset, extent, rank-2, i3 + m_offset[rank-1] ) \
    } \
  } \
  else         { \
    for( type i3 = (type)0; i3 < static_cast<type>(extent[0]); ++i3) { \
      TAGGED_LOOP_R_3_REDUX( val, tag, func, type, m_offset, extent, 1 , i3 + m_offset[0] )   \
    } \
  }

#define TAGGED_LOOP_LAYOUT_5_REDUX( val, tag, func, type, is_left, m_offset, extent, rank )  \
  if (is_left) { \
    for( type i4 = (type)0; i4 < static_cast<type>(extent[rank-1]); ++i4) {   \
      TAGGED_LOOP_L_4_REDUX( val, tag, func, type, m_offset, extent, rank-2, i4 + m_offset[rank-1] ) \
    } \
  } \
  else         { \
    for( type i4 = (type)0; i4 < static_cast<type>(extent[0]); ++i4) { \
      TAGGED_LOOP_R_4_REDUX( val, tag, func, type, m_offset, extent, 1 , i4 + m_offset[0] )   \
    } \
  }

#define TAGGED_LOOP_LAYOUT_6_REDUX( val, tag, func, type, is_left, m_offset, extent, rank )  \
  if (is_left) { \
    for( type i5 = (type)0; i5 < static_cast<type>(extent[rank-1]); ++i5) {   \
      TAGGED_LOOP_L_5_REDUX( val, tag, func, type, m_offset, extent, rank-2, i5 + m_offset[rank-1] ) \
    } \
  } \
  else         { \
    for( type i5 = (type)0; i5 < static_cast<type>(extent[0]); ++i5) { \
      TAGGED_LOOP_R_5_REDUX( val, tag, func, type, m_offset, extent, 1 , i5 + m_offset[0] )   \
    } \
  }

#define TAGGED_LOOP_LAYOUT_7_REDUX( val, tag, func, type, is_left, m_offset, extent, rank )  \
  if (is_left) { \
    for( type i6 = (type)0; i6 < static_cast<type>(extent[rank-1]); ++i6) {   \
      TAGGED_LOOP_L_6_REDUX( val, tag, func, type, m_offset, extent, rank-2, i6 + m_offset[rank-1] ) \
    } \
  } \
  else         { \
    for( type i6 = (type)0; i6 < static_cast<type>(extent[0]); ++i6) { \
      TAGGED_LOOP_R_6_REDUX( val, tag, func, type, m_offset, extent, 1 , i6 + m_offset[0] )   \
    } \
  }

#define TAGGED_LOOP_LAYOUT_8_REDUX( val, tag, func, type, is_left, m_offset, extent, rank )  \
  if (is_left) { \
    for( type i7 = (type)0; i7 < static_cast<type>(extent[rank-1]); ++i7) {   \
      TAGGED_LOOP_L_7_REDUX( val, tag, func, type, m_offset, extent, rank-2, i7 + m_offset[rank-1] ) \
    } \
  } \
  else         { \
    for( type i7 = (type)0; i7 < static_cast<type>(extent[0]); ++i7) { \
      TAGGED_LOOP_R_7_REDUX( val, tag, func, type, m_offset, extent, 1 , i7 + m_offset[0] )   \
    } \
  }

// Partial vs Full Tile
#define TAGGED_TILE_LOOP_1_REDUX( val, tag, func, type, is_left, cond, m_offset, extent_full, extent_partial, rank ) \
  if (cond) { TAGGED_LOOP_LAYOUT_1_REDUX( val, tag, func, type, is_left, m_offset, extent_full, rank ) } \
  else      { TAGGED_LOOP_LAYOUT_1_REDUX( val, tag, func, type, is_left, m_offset, extent_partial, rank ) }

#define TAGGED_TILE_LOOP_2_REDUX( val, tag, func, type, is_left, cond, m_offset, extent_full, extent_partial, rank ) \
  if (cond) { TAGGED_LOOP_LAYOUT_2_REDUX( val, tag, func, type, is_left, m_offset, extent_full, rank ) } \
  else      { TAGGED_LOOP_LAYOUT_2_REDUX( val, tag, func, type, is_left, m_offset, extent_partial, rank ) }

#define TAGGED_TILE_LOOP_3_REDUX( val, tag, func, type, is_left, cond, m_offset, extent_full, extent_partial, rank ) \
  if (cond) { TAGGED_LOOP_LAYOUT_3_REDUX( val, tag, func, type, is_left, m_offset, extent_full, rank ) } \
  else      { TAGGED_LOOP_LAYOUT_3_REDUX( val, tag, func, type, is_left, m_offset, extent_partial, rank ) }

#define TAGGED_TILE_LOOP_4_REDUX( val, tag, func, type, is_left, cond, m_offset, extent_full, extent_partial, rank ) \
  if (cond) { TAGGED_LOOP_LAYOUT_4_REDUX( val, tag, func, type, is_left, m_offset, extent_full, rank ) } \
  else      { TAGGED_LOOP_LAYOUT_4_REDUX( val, tag, func, type, is_left, m_offset, extent_partial, rank ) }

#define TAGGED_TILE_LOOP_5_REDUX( val, tag, func, type, is_left, cond, m_offset, extent_full, extent_partial, rank ) \
  if (cond) { TAGGED_LOOP_LAYOUT_5_REDUX( val, tag, func, type, is_left, m_offset, extent_full, rank ) } \
  else      { TAGGED_LOOP_LAYOUT_5_REDUX( val, tag, func, type, is_left, m_offset, extent_partial, rank ) }

#define TAGGED_TILE_LOOP_6_REDUX( val, tag, func, type, is_left, cond, m_offset, extent_full, extent_partial, rank ) \
  if (cond) { TAGGED_LOOP_LAYOUT_6_REDUX( val, tag, func, type, is_left, m_offset, extent_full, rank ) } \
  else      { TAGGED_LOOP_LAYOUT_6_REDUX( val, tag, func, type, is_left, m_offset, extent_partial, rank ) }

#define TAGGED_TILE_LOOP_7_REDUX( val, tag, func, type, is_left, cond, m_offset, extent_full, extent_partial, rank ) \
  if (cond) { TAGGED_LOOP_LAYOUT_7_REDUX( val, tag, func, type, is_left, m_offset, extent_full, rank ) } \
  else      { TAGGED_LOOP_LAYOUT_7_REDUX( val, tag, func, type, is_left, m_offset, extent_partial, rank ) }

#define TAGGED_TILE_LOOP_8_REDUX( val, tag, func, type, is_left, cond, m_offset, extent_full, extent_partial, rank ) \
  if (cond) { TAGGED_LOOP_LAYOUT_8_REDUX( val, tag, func, type, is_left, m_offset, extent_full, rank ) } \
  else      { TAGGED_LOOP_LAYOUT_8_REDUX( val, tag, func, type, is_left, m_offset, extent_partial, rank ) }

// end tagged macros


// Structs for calling loops
template < int Rank, bool IsLeft, typename IType, typename Tagged, typename Enable = void >
struct Tile_Loop_Type;

template < bool IsLeft, typename IType >
struct Tile_Loop_Type<1, IsLeft, IType, void, void >
{
  template < typename Func, typename Offset, typename ExtentA, typename ExtentB >
  static void apply(Func const& func, bool cond, Offset const& offset, ExtentA const& a, ExtentB const& b)
  {
    TILE_LOOP_1( func, IType, IsLeft, cond, offset, a, b, 1 );
  }

  template < typename ValType, typename Func, typename Offset, typename ExtentA, typename ExtentB >
  static void apply(ValType &value, Func const& func, bool cond, Offset const& offset, ExtentA const& a, ExtentB const& b)
  {
    TILE_LOOP_1_REDUX( value, func, IType, IsLeft, cond, offset, a, b, 1 );
  }
};

template < bool IsLeft, typename IType >
struct Tile_Loop_Type<2, IsLeft, IType, void, void>
{
  template < typename Func, typename Offset, typename ExtentA, typename ExtentB >
  static void apply(Func const& func, bool cond, Offset const& offset, ExtentA const& a, ExtentB const& b)
  {
    TILE_LOOP_2( func, IType, IsLeft, cond, offset, a, b, 2 );
  }

  template < typename ValType, typename Func, typename Offset, typename ExtentA, typename ExtentB >
  static void apply(ValType &value, Func const& func, bool cond, Offset const& offset, ExtentA const& a, ExtentB const& b)
  {
    TILE_LOOP_2_REDUX( value, func, IType, IsLeft, cond, offset, a, b, 2 );
  }
};

template < bool IsLeft, typename IType >
struct Tile_Loop_Type<3, IsLeft, IType, void, void>
{
  template < typename Func, typename Offset, typename ExtentA, typename ExtentB >
  static void apply(Func const& func, bool cond, Offset const& offset, ExtentA const& a, ExtentB const& b)
  {
    TILE_LOOP_3( func, IType, IsLeft, cond, offset, a, b, 3 );
  }

  template < typename ValType, typename Func, typename Offset, typename ExtentA, typename ExtentB >
  static void apply(ValType &value, Func const& func, bool cond, Offset const& offset, ExtentA const& a, ExtentB const& b)
  {
    TILE_LOOP_3_REDUX( value, func, IType, IsLeft, cond, offset, a, b, 3 );
  }
};

template < bool IsLeft, typename IType >
struct Tile_Loop_Type<4, IsLeft, IType, void, void>
{
  template < typename Func, typename Offset, typename ExtentA, typename ExtentB >
  static void apply(Func const& func, bool cond, Offset const& offset, ExtentA const& a, ExtentB const& b)
  {
    TILE_LOOP_4( func, IType, IsLeft, cond, offset, a, b, 4 );
  }

  template < typename ValType, typename Func, typename Offset, typename ExtentA, typename ExtentB >
  static void apply(ValType &value, Func const& func, bool cond, Offset const& offset, ExtentA const& a, ExtentB const& b)
  {
    TILE_LOOP_4_REDUX( value, func, IType, IsLeft, cond, offset, a, b, 4 );
  }
};

template < bool IsLeft, typename IType >
struct Tile_Loop_Type<5, IsLeft, IType, void, void>
{
  template < typename Func, typename Offset, typename ExtentA, typename ExtentB >
  static void apply(Func const& func, bool cond, Offset const& offset, ExtentA const& a, ExtentB const& b)
  {
    TILE_LOOP_5( func, IType, IsLeft, cond, offset, a, b, 5 );
  }

  template < typename ValType, typename Func, typename Offset, typename ExtentA, typename ExtentB >
  static void apply(ValType &value, Func const& func, bool cond, Offset const& offset, ExtentA const& a, ExtentB const& b)
  {
    TILE_LOOP_5_REDUX( value, func, IType, IsLeft, cond, offset, a, b, 5 );
  }
};

template < bool IsLeft, typename IType >
struct Tile_Loop_Type<6, IsLeft, IType, void, void>
{
  template < typename Func, typename Offset, typename ExtentA, typename ExtentB >
  static void apply(Func const& func, bool cond, Offset const& offset, ExtentA const& a, ExtentB const& b)
  {
    TILE_LOOP_6( func, IType, IsLeft, cond, offset, a, b, 6 );
  }

  template < typename ValType, typename Func, typename Offset, typename ExtentA, typename ExtentB >
  static void apply(ValType &value, Func const& func, bool cond, Offset const& offset, ExtentA const& a, ExtentB const& b)
  {
    TILE_LOOP_6_REDUX( value, func, IType, IsLeft, cond, offset, a, b, 6 );
  }
};

template < bool IsLeft, typename IType >
struct Tile_Loop_Type<7, IsLeft, IType, void, void>
{
  template < typename Func, typename Offset, typename ExtentA, typename ExtentB >
  static void apply(Func const& func, bool cond, Offset const& offset, ExtentA const& a, ExtentB const& b)
  {
    TILE_LOOP_7( func, IType, IsLeft, cond, offset, a, b, 7 );
  }

  template < typename ValType, typename Func, typename Offset, typename ExtentA, typename ExtentB >
  static void apply(ValType &value, Func const& func, bool cond, Offset const& offset, ExtentA const& a, ExtentB const& b)
  {
    TILE_LOOP_7_REDUX( value, func, IType, IsLeft, cond, offset, a, b, 7 );
  }
};

template < bool IsLeft, typename IType >
struct Tile_Loop_Type<8, IsLeft, IType, void, void>
{
  template < typename Func, typename Offset, typename ExtentA, typename ExtentB >
  static void apply(Func const& func, bool cond, Offset const& offset, ExtentA const& a, ExtentB const& b)
  {
    TILE_LOOP_8( func, IType, IsLeft, cond, offset, a, b, 8 );
  }

  template < typename ValType, typename Func, typename Offset, typename ExtentA, typename ExtentB >
  static void apply(ValType &value, Func const& func, bool cond, Offset const& offset, ExtentA const& a, ExtentB const& b)
  {
    TILE_LOOP_8_REDUX( value, func, IType, IsLeft, cond, offset, a, b, 8 );
  }
};

// tagged versions

template < bool IsLeft, typename IType, typename Tagged >
struct Tile_Loop_Type<1, IsLeft, IType, Tagged, typename std::enable_if< !std::is_same<Tagged,void>::value>::type >
{
  template < typename Func, typename Offset, typename ExtentA, typename ExtentB >
  static void apply(Func const& func, bool cond, Offset const& offset, ExtentA const& a, ExtentB const& b)
  {
    TAGGED_TILE_LOOP_1( Tagged(), func, IType, IsLeft, cond, offset, a, b, 1 );
  }

  template < typename ValType, typename Func, typename Offset, typename ExtentA, typename ExtentB >
  static void apply(ValType &value, Func const& func, bool cond, Offset const& offset, ExtentA const& a, ExtentB const& b)
  {
    TAGGED_TILE_LOOP_1_REDUX( value, Tagged(), func, IType, IsLeft, cond, offset, a, b, 1 );
  }
};

template < bool IsLeft, typename IType, typename Tagged >
struct Tile_Loop_Type<2, IsLeft, IType, Tagged, typename std::enable_if< !std::is_same<Tagged,void>::value>::type>
{
  template < typename Func, typename Offset, typename ExtentA, typename ExtentB >
  static void apply(Func const& func, bool cond, Offset const& offset, ExtentA const& a, ExtentB const& b)
  {
    TAGGED_TILE_LOOP_2( Tagged(), func, IType, IsLeft, cond, offset, a, b, 2 );
  }

  template < typename ValType, typename Func, typename Offset, typename ExtentA, typename ExtentB >
  static void apply(ValType &value, Func const& func, bool cond, Offset const& offset, ExtentA const& a, ExtentB const& b)
  {
    TAGGED_TILE_LOOP_2_REDUX( value, Tagged(), func, IType, IsLeft, cond, offset, a, b, 2 );
  }
};

template < bool IsLeft, typename IType, typename Tagged >
struct Tile_Loop_Type<3, IsLeft, IType, Tagged, typename std::enable_if< !std::is_same<Tagged,void>::value>::type>
{
  template < typename Func, typename Offset, typename ExtentA, typename ExtentB >
  static void apply(Func const& func, bool cond, Offset const& offset, ExtentA const& a, ExtentB const& b)
  {
    TAGGED_TILE_LOOP_3( Tagged(), func, IType, IsLeft, cond, offset, a, b, 3 );
  }

  template < typename ValType, typename Func, typename Offset, typename ExtentA, typename ExtentB >
  static void apply(ValType &value, Func const& func, bool cond, Offset const& offset, ExtentA const& a, ExtentB const& b)
  {
    TAGGED_TILE_LOOP_3_REDUX( value, Tagged(), func, IType, IsLeft, cond, offset, a, b, 3 );
  }
};

template < bool IsLeft, typename IType, typename Tagged >
struct Tile_Loop_Type<4, IsLeft, IType, Tagged, typename std::enable_if< !std::is_same<Tagged,void>::value>::type>
{
  template < typename Func, typename Offset, typename ExtentA, typename ExtentB >
  static void apply(Func const& func, bool cond, Offset const& offset, ExtentA const& a, ExtentB const& b)
  {
    TAGGED_TILE_LOOP_4( Tagged(), func, IType, IsLeft, cond, offset, a, b, 4 );
  }

  template < typename ValType, typename Func, typename Offset, typename ExtentA, typename ExtentB >
  static void apply(ValType &value, Func const& func, bool cond, Offset const& offset, ExtentA const& a, ExtentB const& b)
  {
    TAGGED_TILE_LOOP_4_REDUX( value, Tagged(), func, IType, IsLeft, cond, offset, a, b, 4 );
  }
};

template < bool IsLeft, typename IType, typename Tagged >
struct Tile_Loop_Type<5, IsLeft, IType, Tagged, typename std::enable_if< !std::is_same<Tagged,void>::value>::type>
{
  template < typename Func, typename Offset, typename ExtentA, typename ExtentB >
  static void apply(Func const& func, bool cond, Offset const& offset, ExtentA const& a, ExtentB const& b)
  {
    TAGGED_TILE_LOOP_5( Tagged(), func, IType, IsLeft, cond, offset, a, b, 5 );
  }

  template < typename ValType, typename Func, typename Offset, typename ExtentA, typename ExtentB >
  static void apply(ValType &value, Func const& func, bool cond, Offset const& offset, ExtentA const& a, ExtentB const& b)
  {
    TAGGED_TILE_LOOP_5_REDUX( value, Tagged(), func, IType, IsLeft, cond, offset, a, b, 5 );
  }
};

template < bool IsLeft, typename IType, typename Tagged >
struct Tile_Loop_Type<6, IsLeft, IType, Tagged, typename std::enable_if< !std::is_same<Tagged,void>::value>::type>
{
  template < typename Func, typename Offset, typename ExtentA, typename ExtentB >
  static void apply(Func const& func, bool cond, Offset const& offset, ExtentA const& a, ExtentB const& b)
  {
    TAGGED_TILE_LOOP_6( Tagged(), func, IType, IsLeft, cond, offset, a, b, 6 );
  }

  template < typename ValType, typename Func, typename Offset, typename ExtentA, typename ExtentB >
  static void apply(ValType &value, Func const& func, bool cond, Offset const& offset, ExtentA const& a, ExtentB const& b)
  {
    TAGGED_TILE_LOOP_6_REDUX( value, Tagged(), func, IType, IsLeft, cond, offset, a, b, 6 );
  }
};

template < bool IsLeft, typename IType, typename Tagged >
struct Tile_Loop_Type<7, IsLeft, IType, Tagged, typename std::enable_if< !std::is_same<Tagged,void>::value>::type>
{
  template < typename Func, typename Offset, typename ExtentA, typename ExtentB >
  static void apply(Func const& func, bool cond, Offset const& offset, ExtentA const& a, ExtentB const& b)
  {
    TAGGED_TILE_LOOP_7( Tagged(), func, IType, IsLeft, cond, offset, a, b, 7 );
  }

  template < typename ValType, typename Func, typename Offset, typename ExtentA, typename ExtentB >
  static void apply(ValType &value, Func const& func, bool cond, Offset const& offset, ExtentA const& a, ExtentB const& b)
  {
    TAGGED_TILE_LOOP_7_REDUX( value, Tagged(), func, IType, IsLeft, cond, offset, a, b, 7 );
  }
};

template < bool IsLeft, typename IType, typename Tagged >
struct Tile_Loop_Type<8, IsLeft, IType, Tagged, typename std::enable_if< !std::is_same<Tagged,void>::value>::type>
{
  template < typename Func, typename Offset, typename ExtentA, typename ExtentB >
  static void apply(Func const& func, bool cond, Offset const& offset, ExtentA const& a, ExtentB const& b)
  {
    TAGGED_TILE_LOOP_8( Tagged(), func, IType, IsLeft, cond, offset, a, b, 8 );
  }

  template < typename ValType, typename Func, typename Offset, typename ExtentA, typename ExtentB >
  static void apply(ValType &value, Func const& func, bool cond, Offset const& offset, ExtentA const& a, ExtentB const& b)
  {
    TAGGED_TILE_LOOP_8_REDUX( value, Tagged(), func, IType, IsLeft, cond, offset, a, b, 8 );
  }
};
// end Structs for calling loops


template <typename T>
using is_void = std::is_same< T , void >;

template <typename T>
struct is_type_array : std::false_type 
{
  using value_type = T;
};

template <typename T>
struct is_type_array< T[] > : std::true_type
{
  using value_type = T;
};


template < typename RP
         , typename Functor
         , typename Tag = void
         , typename ValueType = void
         , typename Enable = void
         >
struct HostIterateTile;

//For ParallelFor
template < typename RP
         , typename Functor
         , typename Tag
         , typename ValueType
         >
struct HostIterateTile < RP , Functor , Tag , ValueType , typename std::enable_if< is_void<ValueType >::value >::type >
{
  using index_type = typename RP::index_type;
  using point_type = typename RP::point_type;

  using value_type = ValueType;

  inline
  HostIterateTile( RP const& rp, Functor const& func )
    : m_rp(rp)
    , m_func(func)
  {
  }

  inline
  bool check_iteration_bounds( point_type& partial_tile , point_type& offset ) const {
    bool is_full_tile = true;

      for ( int i = 0; i < RP::rank; ++i ) {
        if ((offset[i] + m_rp.m_tile[i]) <= m_rp.m_upper[i]) {
            partial_tile[i] = m_rp.m_tile[i] ;
        }
        else {
          is_full_tile = false ;
            partial_tile[i] = (m_rp.m_upper[i] - 1 - offset[i]) == 0 ? 1
                            : (m_rp.m_upper[i] - m_rp.m_tile[i]) > 0 ? (m_rp.m_upper[i] - offset[i])
                            : (m_rp.m_upper[i] - m_rp.m_lower[i]) ; // when single tile encloses range
        }
      }

    return is_full_tile ;
  } // end check bounds


  template <int Rank>
  struct RankTag
  {
    typedef RankTag type;
    enum { value = (int)Rank };
  };

#if KOKKOS_ENABLE_NEW_LOOP_MACROS
  template <typename IType>
  inline
  void
  operator()(IType tile_idx) const
  {
    point_type m_offset;
    point_type m_tiledims;

    if (RP::outer_direction == RP::Left) {
      for (int i=0; i<RP::rank; ++i) {
        m_offset[i] = (tile_idx % m_rp.m_tile_end[i]) * m_rp.m_tile[i] + m_rp.m_lower[i] ;
        tile_idx /= m_rp.m_tile_end[i];
      }
    }
    else {
      for (int i=RP::rank-1; i>=0; --i) {
        m_offset[i] = (tile_idx % m_rp.m_tile_end[i]) * m_rp.m_tile[i] + m_rp.m_lower[i] ;
        tile_idx /= m_rp.m_tile_end[i];
      }
    }

    //Check if offset+tiledim in bounds - if not, replace tile dims with the partial tile dims
    const bool full_tile = check_iteration_bounds(m_tiledims , m_offset) ;

    Tile_Loop_Type< RP::rank, (RP::inner_direction == RP::Left), index_type, Tag >::apply( m_func, full_tile, m_offset, m_rp.m_tile, m_tiledims );

  }

#else
  template <typename IType>
  inline
  void
  operator()(IType tile_idx) const
  { operator_impl( tile_idx , RankTag<RP::rank>() ); }
  // added due to compiler error when using sfinae to choose operator based on rank w/ cuda+serial

  template <typename IType>
  inline
  void operator_impl( IType tile_idx , const RankTag<2> ) const
  {
    point_type m_offset;
    point_type m_tiledims;

    if (RP::outer_direction == RP::Left) {
      for (int i=0; i<RP::rank; ++i) {
        m_offset[i] = (tile_idx % m_rp.m_tile_end[i]) * m_rp.m_tile[i] + m_rp.m_lower[i] ;
        tile_idx /= m_rp.m_tile_end[i];
      }
    }
    else {
      for (int i=RP::rank-1; i>=0; --i) {
        m_offset[i] = (tile_idx % m_rp.m_tile_end[i]) * m_rp.m_tile[i] + m_rp.m_lower[i] ;
        tile_idx /= m_rp.m_tile_end[i];
      }
    }

    //Check if offset+tiledim in bounds - if not, replace tile dims with the partial tile dims
    const bool full_tile = check_iteration_bounds(m_tiledims , m_offset) ;

    if (RP::inner_direction == RP::Left) {
     if ( full_tile ) {
//      #pragma simd
        LOOP_2L(index_type, m_tiledims) {
          apply( LOOP_ARGS_2 );
        }
      } else {
//      #pragma simd
        LOOP_2L(index_type, m_tiledims) {
          apply( LOOP_ARGS_2 );
        }
      }
    } // end RP::Left
    else {
     if ( full_tile ) {
//      #pragma simd
        LOOP_2R(index_type, m_tiledims) {
          apply( LOOP_ARGS_2 );
        }
      } else {
//      #pragma simd
        LOOP_2R(index_type, m_tiledims) {
          apply( LOOP_ARGS_2 );
        }
      }
    } // end RP::Right

  } //end op() rank == 2


  template <typename IType>
  inline
  void operator_impl( IType tile_idx , const RankTag<3> ) const
  {
    point_type m_offset;
    point_type m_tiledims;

    if (RP::outer_direction == RP::Left) {
      for (int i=0; i<RP::rank; ++i) {
        m_offset[i] = (tile_idx % m_rp.m_tile_end[i]) * m_rp.m_tile[i] + m_rp.m_lower[i] ;
        tile_idx /= m_rp.m_tile_end[i];
      }
    }
    else {
      for (int i=RP::rank-1; i>=0; --i) {
        m_offset[i] = (tile_idx % m_rp.m_tile_end[i]) * m_rp.m_tile[i] + m_rp.m_lower[i] ;
        tile_idx /= m_rp.m_tile_end[i];
      }
    }

    //Check if offset+tiledim in bounds - if not, replace tile dims with the partial tile dims
    const bool full_tile = check_iteration_bounds(m_tiledims , m_offset) ;

    if (RP::inner_direction == RP::Left) {
     if ( full_tile ) {
//      #pragma simd
        LOOP_3L(index_type, m_tiledims) {
          apply( LOOP_ARGS_3 );
        }
      } else {
//      #pragma simd
        LOOP_3L(index_type, m_tiledims) {
          apply( LOOP_ARGS_3 );
        }
      }
    } // end RP::Left
    else {
     if ( full_tile ) {
//      #pragma simd
        LOOP_3R(index_type, m_tiledims) {
          apply( LOOP_ARGS_3 );
        }
      } else {
//      #pragma simd
        LOOP_3R(index_type, m_tiledims) {
          apply( LOOP_ARGS_3 );
        }
      }
    } // end RP::Right

  } //end op() rank == 3


  template <typename IType>
  inline
  void operator_impl( IType tile_idx , const RankTag<4> ) const
  {
    point_type m_offset;
    point_type m_tiledims;

    if (RP::outer_direction == RP::Left) {
      for (int i=0; i<RP::rank; ++i) {
        m_offset[i] = (tile_idx % m_rp.m_tile_end[i]) * m_rp.m_tile[i] + m_rp.m_lower[i] ;
        tile_idx /= m_rp.m_tile_end[i];
      }
    }
    else {
      for (int i=RP::rank-1; i>=0; --i) {
        m_offset[i] = (tile_idx % m_rp.m_tile_end[i]) * m_rp.m_tile[i] + m_rp.m_lower[i] ;
        tile_idx /= m_rp.m_tile_end[i];
      }
    }

    //Check if offset+tiledim in bounds - if not, replace tile dims with the partial tile dims
    const bool full_tile = check_iteration_bounds(m_tiledims , m_offset) ;

    if (RP::inner_direction == RP::Left) {
     if ( full_tile ) {
//      #pragma simd
        LOOP_4L(index_type, m_tiledims) {
          apply( LOOP_ARGS_4 );
        }
      } else {
//      #pragma simd
        LOOP_4L(index_type, m_tiledims) {
          apply( LOOP_ARGS_4 );
        }
      }
    } // end RP::Left
    else {
     if ( full_tile ) {
//      #pragma simd
        LOOP_4R(index_type, m_tiledims) {
          apply( LOOP_ARGS_4 );
        }
      } else {
//      #pragma simd
        LOOP_4R(index_type, m_tiledims) {
          apply( LOOP_ARGS_4 );
        }
      }
    } // end RP::Right

  } //end op() rank == 4


  template <typename IType>
  inline
  void operator_impl( IType tile_idx , const RankTag<5> ) const
  {
    point_type m_offset;
    point_type m_tiledims;

    if (RP::outer_direction == RP::Left) {
      for (int i=0; i<RP::rank; ++i) {
        m_offset[i] = (tile_idx % m_rp.m_tile_end[i]) * m_rp.m_tile[i] + m_rp.m_lower[i] ;
        tile_idx /= m_rp.m_tile_end[i];
      }
    }
    else {
      for (int i=RP::rank-1; i>=0; --i) {
        m_offset[i] = (tile_idx % m_rp.m_tile_end[i]) * m_rp.m_tile[i] + m_rp.m_lower[i] ;
        tile_idx /= m_rp.m_tile_end[i];
      }
    }

    //Check if offset+tiledim in bounds - if not, replace tile dims with the partial tile dims
    const bool full_tile = check_iteration_bounds(m_tiledims , m_offset) ;

    if (RP::inner_direction == RP::Left) {
     if ( full_tile ) {
//      #pragma simd
        LOOP_5L(index_type, m_tiledims) {
          apply( LOOP_ARGS_5 );
        }
      } else {
//      #pragma simd
        LOOP_5L(index_type, m_tiledims) {
          apply( LOOP_ARGS_5 );
        }
      }
    } // end RP::Left
    else {
     if ( full_tile ) {
//      #pragma simd
        LOOP_5R(index_type, m_tiledims) {
          apply( LOOP_ARGS_5 );
        }
      } else {
//      #pragma simd
        LOOP_5R(index_type, m_tiledims) {
          apply( LOOP_ARGS_5 );
        }
      }
    } // end RP::Right

  } //end op() rank == 5


  template <typename IType>
  inline
  void operator_impl( IType tile_idx , const RankTag<6> ) const
  {
    point_type m_offset;
    point_type m_tiledims;

    if (RP::outer_direction == RP::Left) {
      for (int i=0; i<RP::rank; ++i) {
        m_offset[i] = (tile_idx % m_rp.m_tile_end[i]) * m_rp.m_tile[i] + m_rp.m_lower[i] ;
        tile_idx /= m_rp.m_tile_end[i];
      }
    }
    else {
      for (int i=RP::rank-1; i>=0; --i) {
        m_offset[i] = (tile_idx % m_rp.m_tile_end[i]) * m_rp.m_tile[i] + m_rp.m_lower[i] ;
        tile_idx /= m_rp.m_tile_end[i];
      }
    }

    //Check if offset+tiledim in bounds - if not, replace tile dims with the partial tile dims
    const bool full_tile = check_iteration_bounds(m_tiledims , m_offset) ;

    if (RP::inner_direction == RP::Left) {
     if ( full_tile ) {
//      #pragma simd
        LOOP_6L(index_type, m_tiledims) {
          apply( LOOP_ARGS_6 );
        }
      } else {
//      #pragma simd
        LOOP_6L(index_type, m_tiledims) {
          apply( LOOP_ARGS_6 );
        }
      }
    } // end RP::Left
    else {
     if ( full_tile ) {
//      #pragma simd
        LOOP_6R(index_type, m_tiledims) {
          apply( LOOP_ARGS_6 );
        }
      } else {
//      #pragma simd
        LOOP_6R(index_type, m_tiledims) {
          apply( LOOP_ARGS_6 );
        }
      }
    } // end RP::Right

  } //end op() rank == 6


  template <typename IType>
  inline
  void operator_impl( IType tile_idx , const RankTag<7> ) const
  {
    point_type m_offset;
    point_type m_tiledims;

    if (RP::outer_direction == RP::Left) {
      for (int i=0; i<RP::rank; ++i) {
        m_offset[i] = (tile_idx % m_rp.m_tile_end[i]) * m_rp.m_tile[i] + m_rp.m_lower[i] ;
        tile_idx /= m_rp.m_tile_end[i];
      }
    }
    else {
      for (int i=RP::rank-1; i>=0; --i) {
        m_offset[i] = (tile_idx % m_rp.m_tile_end[i]) * m_rp.m_tile[i] + m_rp.m_lower[i] ;
        tile_idx /= m_rp.m_tile_end[i];
      }
    }

    //Check if offset+tiledim in bounds - if not, replace tile dims with the partial tile dims
    const bool full_tile = check_iteration_bounds(m_tiledims , m_offset) ;

    if (RP::inner_direction == RP::Left) {
     if ( full_tile ) {
//      #pragma simd
        LOOP_7L(index_type, m_tiledims) {
          apply( LOOP_ARGS_7 );
        }
      } else {
//      #pragma simd
        LOOP_7L(index_type, m_tiledims) {
          apply( LOOP_ARGS_7 );
        }
      }
    } // end RP::Left
    else {
     if ( full_tile ) {
//      #pragma simd
        LOOP_7R(index_type, m_tiledims) {
          apply( LOOP_ARGS_7 );
        }
      } else {
//      #pragma simd
        LOOP_7R(index_type, m_tiledims) {
          apply( LOOP_ARGS_7 );
        }
      }
    } // end RP::Right

  } //end op() rank == 7


  template <typename IType>
  inline
  void operator_impl( IType tile_idx , const RankTag<8> ) const
  {
    point_type m_offset;
    point_type m_tiledims;

    if (RP::outer_direction == RP::Left) {
      for (int i=0; i<RP::rank; ++i) {
        m_offset[i] = (tile_idx % m_rp.m_tile_end[i]) * m_rp.m_tile[i] + m_rp.m_lower[i] ;
        tile_idx /= m_rp.m_tile_end[i];
      }
    }
    else {
      for (int i=RP::rank-1; i>=0; --i) {
        m_offset[i] = (tile_idx % m_rp.m_tile_end[i]) * m_rp.m_tile[i] + m_rp.m_lower[i] ;
        tile_idx /= m_rp.m_tile_end[i];
      }
    }

    //Check if offset+tiledim in bounds - if not, replace tile dims with the partial tile dims
    const bool full_tile = check_iteration_bounds(m_tiledims , m_offset) ;

    if (RP::inner_direction == RP::Left) {
     if ( full_tile ) {
//      #pragma simd
        LOOP_8L(index_type, m_tiledims) {
          apply( LOOP_ARGS_8 );
        }
      } else {
//      #pragma simd
        LOOP_8L(index_type, m_tiledims) {
          apply( LOOP_ARGS_8 );
        }
      }
    } // end RP::Left
    else {
     if ( full_tile ) {
//      #pragma simd
        LOOP_8R(index_type, m_tiledims) {
          apply( LOOP_ARGS_8 );
        }
      } else {
//      #pragma simd
        LOOP_8R(index_type, m_tiledims) {
          apply( LOOP_ARGS_8 );
        }
      }
    } // end RP::Right

  } //end op() rank == 8
#endif


    template <typename... Args>
    typename std::enable_if<( sizeof...(Args) == RP::rank && std::is_same<Tag,void>::value), void>::type
    apply(Args &&... args) const
    {
      m_func(args...);
    }

    template <typename... Args>
    typename std::enable_if<( sizeof...(Args) == RP::rank && !std::is_same<Tag,void>::value), void>::type
    apply(Args &&... args) const
    {
      m_func( m_tag, args...);
    }


  RP         const& m_rp;
  Functor    const& m_func;
  typename std::conditional< std::is_same<Tag,void>::value,int,Tag>::type m_tag;
};


// For ParallelReduce
// ValueType - scalar: For reductions
template < typename RP
         , typename Functor
         , typename Tag
         , typename ValueType
         >
struct HostIterateTile < RP , Functor , Tag , ValueType , typename std::enable_if< !is_void<ValueType >::value && !is_type_array<ValueType>::value >::type >
{
  using index_type = typename RP::index_type;
  using point_type = typename RP::point_type;

  using value_type = ValueType;

  inline
  HostIterateTile( RP const& rp, Functor const& func, value_type & v )
    : m_rp(rp) //Cuda 7.0 does not like braces...
    , m_func(func)
    , m_v(v) // use with non-void ValueType struct
  {
// Errors due to braces rather than parenthesis for init (with cuda 7.0)
//      /home/ndellin/kokkos/core/src/impl/KokkosExp_Host_IterateTile.hpp:1216:98: error: too many braces around initializer for ‘int’ [-fpermissive]
//      /home/ndellin/kokkos/core/src/impl/KokkosExp_Host_IterateTile.hpp:1216:98: error: aggregate value used where an integer was expected
  }

  inline
  bool check_iteration_bounds( point_type& partial_tile , point_type& offset ) const {
    bool is_full_tile = true;

      for ( int i = 0; i < RP::rank; ++i ) {
        if ((offset[i] + m_rp.m_tile[i]) <= m_rp.m_upper[i]) {
            partial_tile[i] = m_rp.m_tile[i] ;
        }
        else {
          is_full_tile = false ;
            partial_tile[i] = (m_rp.m_upper[i] - 1 - offset[i]) == 0 ? 1
                            : (m_rp.m_upper[i] - m_rp.m_tile[i]) > 0 ? (m_rp.m_upper[i] - offset[i])
                            : (m_rp.m_upper[i] - m_rp.m_lower[i]) ; // when single tile encloses range
        }
      }

    return is_full_tile ;
  } // end check bounds


  template <int Rank>
  struct RankTag
  {
    typedef RankTag type;
    enum { value = (int)Rank };
  };


#if KOKKOS_ENABLE_NEW_LOOP_MACROS
  template <typename IType>
  inline
  void
  operator()(IType tile_idx) const
  {
    point_type m_offset;
    point_type m_tiledims;

    if (RP::outer_direction == RP::Left) {
      for (int i=0; i<RP::rank; ++i) {
        m_offset[i] = (tile_idx % m_rp.m_tile_end[i]) * m_rp.m_tile[i] + m_rp.m_lower[i] ;
        tile_idx /= m_rp.m_tile_end[i];
      }
    }
    else {
      for (int i=RP::rank-1; i>=0; --i) {
        m_offset[i] = (tile_idx % m_rp.m_tile_end[i]) * m_rp.m_tile[i] + m_rp.m_lower[i] ;
        tile_idx /= m_rp.m_tile_end[i];
      }
    }

    //Check if offset+tiledim in bounds - if not, replace tile dims with the partial tile dims
    const bool full_tile = check_iteration_bounds(m_tiledims , m_offset) ;

    Tile_Loop_Type< RP::rank, (RP::inner_direction == RP::Left), index_type, Tag >::apply( m_v, m_func, full_tile, m_offset, m_rp.m_tile, m_tiledims );

  }

#else
  template <typename IType>
  inline
  void
  operator()(IType tile_idx) const
  { operator_impl( tile_idx , RankTag<RP::rank>() ); }
  // added due to compiler error when using sfinae to choose operator based on rank


  template <typename IType>
  inline
  void operator_impl( IType tile_idx , const RankTag<2> ) const
  {
    point_type m_offset;
    point_type m_tiledims;

    if (RP::outer_direction == RP::Left) {
      for (int i=0; i<RP::rank; ++i) {
        m_offset[i] = (tile_idx % m_rp.m_tile_end[i]) * m_rp.m_tile[i] + m_rp.m_lower[i] ;
        tile_idx /= m_rp.m_tile_end[i];
      }
    }
    else {
      for (int i=RP::rank-1; i>=0; --i) {
        m_offset[i] = (tile_idx % m_rp.m_tile_end[i]) * m_rp.m_tile[i] + m_rp.m_lower[i] ;
        tile_idx /= m_rp.m_tile_end[i];
      }
    }

    //Check if offset+tiledim in bounds - if not, replace tile dims with the partial tile dims
    const bool full_tile = check_iteration_bounds(m_tiledims , m_offset) ;

    if (RP::inner_direction == RP::Left) {
     if ( full_tile ) {
//      #pragma simd
        LOOP_2L(index_type, m_tiledims) {
          apply( LOOP_ARGS_2 );
        }
      } else {
//      #pragma simd
        LOOP_2L(index_type, m_tiledims) {
          apply( LOOP_ARGS_2 );
        }
      }
    } // end RP::Left
    else {
     if ( full_tile ) {
//      #pragma simd
        LOOP_2R(index_type, m_tiledims) {
          apply( LOOP_ARGS_2 );
        }
      } else {
//      #pragma simd
        LOOP_2R(index_type, m_tiledims) {
          apply( LOOP_ARGS_2 );
        }
      }
    } // end RP::Right

  } //end op() rank == 2


  template <typename IType>
  inline
  void operator_impl( IType tile_idx , const RankTag<3> ) const
  {
    point_type m_offset;
    point_type m_tiledims;

    if (RP::outer_direction == RP::Left) {
      for (int i=0; i<RP::rank; ++i) {
        m_offset[i] = (tile_idx % m_rp.m_tile_end[i]) * m_rp.m_tile[i] + m_rp.m_lower[i] ;
        tile_idx /= m_rp.m_tile_end[i];
      }
    }
    else {
      for (int i=RP::rank-1; i>=0; --i) {
        m_offset[i] = (tile_idx % m_rp.m_tile_end[i]) * m_rp.m_tile[i] + m_rp.m_lower[i] ;
        tile_idx /= m_rp.m_tile_end[i];
      }
    }

    //Check if offset+tiledim in bounds - if not, replace tile dims with the partial tile dims
    const bool full_tile = check_iteration_bounds(m_tiledims , m_offset) ;

    if (RP::inner_direction == RP::Left) {
     if ( full_tile ) {
//      #pragma simd
        LOOP_3L(index_type, m_tiledims) {
          apply( LOOP_ARGS_3 );
        }
      } else {
//      #pragma simd
        LOOP_3L(index_type, m_tiledims) {
          apply( LOOP_ARGS_3 );
        }
      }
    } // end RP::Left
    else {
     if ( full_tile ) {
//      #pragma simd
        LOOP_3R(index_type, m_tiledims) {
          apply( LOOP_ARGS_3 );
        }
      } else {
//      #pragma simd
        LOOP_3R(index_type, m_tiledims) {
          apply( LOOP_ARGS_3 );
        }
      }
    } // end RP::Right

  } //end op() rank == 3


  template <typename IType>
  inline
  void operator_impl( IType tile_idx , const RankTag<4> ) const
  {
    point_type m_offset;
    point_type m_tiledims;

    if (RP::outer_direction == RP::Left) {
      for (int i=0; i<RP::rank; ++i) {
        m_offset[i] = (tile_idx % m_rp.m_tile_end[i]) * m_rp.m_tile[i] + m_rp.m_lower[i] ;
        tile_idx /= m_rp.m_tile_end[i];
      }
    }
    else {
      for (int i=RP::rank-1; i>=0; --i) {
        m_offset[i] = (tile_idx % m_rp.m_tile_end[i]) * m_rp.m_tile[i] + m_rp.m_lower[i] ;
        tile_idx /= m_rp.m_tile_end[i];
      }
    }

    //Check if offset+tiledim in bounds - if not, replace tile dims with the partial tile dims
    const bool full_tile = check_iteration_bounds(m_tiledims , m_offset) ;

    if (RP::inner_direction == RP::Left) {
     if ( full_tile ) {
//      #pragma simd
        LOOP_4L(index_type, m_tiledims) {
          apply( LOOP_ARGS_4 );
        }
      } else {
//      #pragma simd
        LOOP_4L(index_type, m_tiledims) {
          apply( LOOP_ARGS_4 );
        }
      }
    } // end RP::Left
    else {
     if ( full_tile ) {
//      #pragma simd
        LOOP_4R(index_type, m_tiledims) {
          apply( LOOP_ARGS_4 );
        }
      } else {
//      #pragma simd
        LOOP_4R(index_type, m_tiledims) {
          apply( LOOP_ARGS_4 );
        }
      }
    } // end RP::Right

  } //end op() rank == 4


  template <typename IType>
  inline
  void operator_impl( IType tile_idx , const RankTag<5> ) const
  {
    point_type m_offset;
    point_type m_tiledims;

    if (RP::outer_direction == RP::Left) {
      for (int i=0; i<RP::rank; ++i) {
        m_offset[i] = (tile_idx % m_rp.m_tile_end[i]) * m_rp.m_tile[i] + m_rp.m_lower[i] ;
        tile_idx /= m_rp.m_tile_end[i];
      }
    }
    else {
      for (int i=RP::rank-1; i>=0; --i) {
        m_offset[i] = (tile_idx % m_rp.m_tile_end[i]) * m_rp.m_tile[i] + m_rp.m_lower[i] ;
        tile_idx /= m_rp.m_tile_end[i];
      }
    }

    //Check if offset+tiledim in bounds - if not, replace tile dims with the partial tile dims
    const bool full_tile = check_iteration_bounds(m_tiledims , m_offset) ;

    if (RP::inner_direction == RP::Left) {
     if ( full_tile ) {
//      #pragma simd
        LOOP_5L(index_type, m_tiledims) {
          apply( LOOP_ARGS_5 );
        }
      } else {
//      #pragma simd
        LOOP_5L(index_type, m_tiledims) {
          apply( LOOP_ARGS_5 );
        }
      }
    } // end RP::Left
    else {
     if ( full_tile ) {
//      #pragma simd
        LOOP_5R(index_type, m_tiledims) {
          apply( LOOP_ARGS_5 );
        }
      } else {
//      #pragma simd
        LOOP_5R(index_type, m_tiledims) {
          apply( LOOP_ARGS_5 );
        }
      }
    } // end RP::Right

  } //end op() rank == 5


  template <typename IType>
  inline
  void operator_impl( IType tile_idx , const RankTag<6> ) const
  {
    point_type m_offset;
    point_type m_tiledims;

    if (RP::outer_direction == RP::Left) {
      for (int i=0; i<RP::rank; ++i) {
        m_offset[i] = (tile_idx % m_rp.m_tile_end[i]) * m_rp.m_tile[i] + m_rp.m_lower[i] ;
        tile_idx /= m_rp.m_tile_end[i];
      }
    }
    else {
      for (int i=RP::rank-1; i>=0; --i) {
        m_offset[i] = (tile_idx % m_rp.m_tile_end[i]) * m_rp.m_tile[i] + m_rp.m_lower[i] ;
        tile_idx /= m_rp.m_tile_end[i];
      }
    }

    //Check if offset+tiledim in bounds - if not, replace tile dims with the partial tile dims
    const bool full_tile = check_iteration_bounds(m_tiledims , m_offset) ;

    if (RP::inner_direction == RP::Left) {
     if ( full_tile ) {
//      #pragma simd
        LOOP_6L(index_type, m_tiledims) {
          apply( LOOP_ARGS_6 );
        }
      } else {
//      #pragma simd
        LOOP_6L(index_type, m_tiledims) {
          apply( LOOP_ARGS_6 );
        }
      }
    } // end RP::Left
    else {
     if ( full_tile ) {
//      #pragma simd
        LOOP_6R(index_type, m_tiledims) {
          apply( LOOP_ARGS_6 );
        }
      } else {
//      #pragma simd
        LOOP_6R(index_type, m_tiledims) {
          apply( LOOP_ARGS_6 );
        }
      }
    } // end RP::Right

  } //end op() rank == 6


  template <typename IType>
  inline
  void operator_impl( IType tile_idx , const RankTag<7> ) const
  {
    point_type m_offset;
    point_type m_tiledims;

    if (RP::outer_direction == RP::Left) {
      for (int i=0; i<RP::rank; ++i) {
        m_offset[i] = (tile_idx % m_rp.m_tile_end[i]) * m_rp.m_tile[i] + m_rp.m_lower[i] ;
        tile_idx /= m_rp.m_tile_end[i];
      }
    }
    else {
      for (int i=RP::rank-1; i>=0; --i) {
        m_offset[i] = (tile_idx % m_rp.m_tile_end[i]) * m_rp.m_tile[i] + m_rp.m_lower[i] ;
        tile_idx /= m_rp.m_tile_end[i];
      }
    }

    //Check if offset+tiledim in bounds - if not, replace tile dims with the partial tile dims
    const bool full_tile = check_iteration_bounds(m_tiledims , m_offset) ;

    if (RP::inner_direction == RP::Left) {
     if ( full_tile ) {
//      #pragma simd
        LOOP_7L(index_type, m_tiledims) {
          apply( LOOP_ARGS_7 );
        }
      } else {
//      #pragma simd
        LOOP_7L(index_type, m_tiledims) {
          apply( LOOP_ARGS_7 );
        }
      }
    } // end RP::Left
    else {
     if ( full_tile ) {
//      #pragma simd
        LOOP_7R(index_type, m_tiledims) {
          apply( LOOP_ARGS_7 );
        }
      } else {
//      #pragma simd
        LOOP_7R(index_type, m_tiledims) {
          apply( LOOP_ARGS_7 );
        }
      }
    } // end RP::Right

  } //end op() rank == 7


  template <typename IType>
  inline
  void operator_impl( IType tile_idx , const RankTag<8> ) const
  {
    point_type m_offset;
    point_type m_tiledims;

    if (RP::outer_direction == RP::Left) {
      for (int i=0; i<RP::rank; ++i) {
        m_offset[i] = (tile_idx % m_rp.m_tile_end[i]) * m_rp.m_tile[i] + m_rp.m_lower[i] ;
        tile_idx /= m_rp.m_tile_end[i];
      }
    }
    else {
      for (int i=RP::rank-1; i>=0; --i) {
        m_offset[i] = (tile_idx % m_rp.m_tile_end[i]) * m_rp.m_tile[i] + m_rp.m_lower[i] ;
        tile_idx /= m_rp.m_tile_end[i];
      }
    }

    //Check if offset+tiledim in bounds - if not, replace tile dims with the partial tile dims
    const bool full_tile = check_iteration_bounds(m_tiledims , m_offset) ;

    if (RP::inner_direction == RP::Left) {
     if ( full_tile ) {
//      #pragma simd
        LOOP_8L(index_type, m_tiledims) {
          apply( LOOP_ARGS_8 );
        }
      } else {
//      #pragma simd
        LOOP_8L(index_type, m_tiledims) {
          apply( LOOP_ARGS_8 );
        }
      }
    } // end RP::Left
    else {
     if ( full_tile ) {
//      #pragma simd
        LOOP_8R(index_type, m_tiledims) {
          apply( LOOP_ARGS_8 );
        }
      } else {
//      #pragma simd
        LOOP_8R(index_type, m_tiledims) {
          apply( LOOP_ARGS_8 );
        }
      }
    } // end RP::Right

  } //end op() rank == 8
#endif


    template <typename... Args>
    typename std::enable_if<( sizeof...(Args) == RP::rank && std::is_same<Tag,void>::value), void>::type
    apply(Args &&... args) const
    {
      m_func(args... , m_v);
    }

    template <typename... Args>
    typename std::enable_if<( sizeof...(Args) == RP::rank && !std::is_same<Tag,void>::value), void>::type
    apply(Args &&... args) const
    {
      m_func( m_tag, args... , m_v);
    }


  RP         const& m_rp;
  Functor    const& m_func;
  value_type  & m_v;
  typename std::conditional< std::is_same<Tag,void>::value,int,Tag>::type m_tag;

};


// For ParallelReduce
// Extra specialization for array reductions
// ValueType[]: For array reductions
template < typename RP
         , typename Functor
         , typename Tag
         , typename ValueType
         >
struct HostIterateTile < RP , Functor , Tag , ValueType , typename std::enable_if< !is_void<ValueType >::value && is_type_array<ValueType>::value >::type >
{
  using index_type = typename RP::index_type;
  using point_type = typename RP::point_type;

  using value_type = typename is_type_array<ValueType>::value_type; // strip away the 'array-ness' [], only underlying type remains

  inline
  HostIterateTile( RP const& rp, Functor const& func, value_type *v ) // v should be an array; treat as pointer for compatibility since size is not known nor needed here
    : m_rp(rp) //Cuda 7.0 does not like braces...
    , m_func(func)
    , m_v(v) // use with non-void ValueType struct
  {}

  inline
  bool check_iteration_bounds( point_type& partial_tile , point_type& offset ) const {
    bool is_full_tile = true;

      for ( int i = 0; i < RP::rank; ++i ) {
        if ((offset[i] + m_rp.m_tile[i]) <= m_rp.m_upper[i]) {
            partial_tile[i] = m_rp.m_tile[i] ;
        }
        else {
          is_full_tile = false ;
            partial_tile[i] = (m_rp.m_upper[i] - 1 - offset[i]) == 0 ? 1
                            : (m_rp.m_upper[i] - m_rp.m_tile[i]) > 0 ? (m_rp.m_upper[i] - offset[i])
                            : (m_rp.m_upper[i] - m_rp.m_lower[i]) ; // when single tile encloses range
        }
      }

    return is_full_tile ;
  } // end check bounds


  template <int Rank>
  struct RankTag
  {
    typedef RankTag type;
    enum { value = (int)Rank };
  };


#if KOKKOS_ENABLE_NEW_LOOP_MACROS
  template <typename IType>
  inline
  void
  operator()(IType tile_idx) const
  {
    point_type m_offset;
    point_type m_tiledims;

    if (RP::outer_direction == RP::Left) {
      for (int i=0; i<RP::rank; ++i) {
        m_offset[i] = (tile_idx % m_rp.m_tile_end[i]) * m_rp.m_tile[i] + m_rp.m_lower[i] ;
        tile_idx /= m_rp.m_tile_end[i];
      }
    }
    else {
      for (int i=RP::rank-1; i>=0; --i) {
        m_offset[i] = (tile_idx % m_rp.m_tile_end[i]) * m_rp.m_tile[i] + m_rp.m_lower[i] ;
        tile_idx /= m_rp.m_tile_end[i];
      }
    }

    //Check if offset+tiledim in bounds - if not, replace tile dims with the partial tile dims
    const bool full_tile = check_iteration_bounds(m_tiledims , m_offset) ;

    Tile_Loop_Type< RP::rank, (RP::inner_direction == RP::Left), index_type, Tag >::apply( m_v, m_func, full_tile, m_offset, m_rp.m_tile, m_tiledims );

  }

#else
  template <typename IType>
  inline
  void
  operator()(IType tile_idx) const
  { operator_impl( tile_idx , RankTag<RP::rank>() ); }
  // added due to compiler error when using sfinae to choose operator based on rank


  template <typename IType>
  inline
  void operator_impl( IType tile_idx , const RankTag<2> ) const
  {
    point_type m_offset;
    point_type m_tiledims;

    if (RP::outer_direction == RP::Left) {
      for (int i=0; i<RP::rank; ++i) {
        m_offset[i] = (tile_idx % m_rp.m_tile_end[i]) * m_rp.m_tile[i] + m_rp.m_lower[i] ;
        tile_idx /= m_rp.m_tile_end[i];
      }
    }
    else {
      for (int i=RP::rank-1; i>=0; --i) {
        m_offset[i] = (tile_idx % m_rp.m_tile_end[i]) * m_rp.m_tile[i] + m_rp.m_lower[i] ;
        tile_idx /= m_rp.m_tile_end[i];
      }
    }

    //Check if offset+tiledim in bounds - if not, replace tile dims with the partial tile dims
    const bool full_tile = check_iteration_bounds(m_tiledims , m_offset) ;

    if (RP::inner_direction == RP::Left) {
     if ( full_tile ) {
//      #pragma simd
        LOOP_2L(index_type, m_tiledims) {
          apply( LOOP_ARGS_2 );
        }
      } else {
//      #pragma simd
        LOOP_2L(index_type, m_tiledims) {
          apply( LOOP_ARGS_2 );
        }
      }
    } // end RP::Left
    else {
     if ( full_tile ) {
//      #pragma simd
        LOOP_2R(index_type, m_tiledims) {
          apply( LOOP_ARGS_2 );
        }
      } else {
//      #pragma simd
        LOOP_2R(index_type, m_tiledims) {
          apply( LOOP_ARGS_2 );
        }
      }
    } // end RP::Right

  } //end op() rank == 2


  template <typename IType>
  inline
  void operator_impl( IType tile_idx , const RankTag<3> ) const
  {
    point_type m_offset;
    point_type m_tiledims;

    if (RP::outer_direction == RP::Left) {
      for (int i=0; i<RP::rank; ++i) {
        m_offset[i] = (tile_idx % m_rp.m_tile_end[i]) * m_rp.m_tile[i] + m_rp.m_lower[i] ;
        tile_idx /= m_rp.m_tile_end[i];
      }
    }
    else {
      for (int i=RP::rank-1; i>=0; --i) {
        m_offset[i] = (tile_idx % m_rp.m_tile_end[i]) * m_rp.m_tile[i] + m_rp.m_lower[i] ;
        tile_idx /= m_rp.m_tile_end[i];
      }
    }

    //Check if offset+tiledim in bounds - if not, replace tile dims with the partial tile dims
    const bool full_tile = check_iteration_bounds(m_tiledims , m_offset) ;

    if (RP::inner_direction == RP::Left) {
     if ( full_tile ) {
//      #pragma simd
        LOOP_3L(index_type, m_tiledims) {
          apply( LOOP_ARGS_3 );
        }
      } else {
//      #pragma simd
        LOOP_3L(index_type, m_tiledims) {
          apply( LOOP_ARGS_3 );
        }
      }
    } // end RP::Left
    else {
     if ( full_tile ) {
//      #pragma simd
        LOOP_3R(index_type, m_tiledims) {
          apply( LOOP_ARGS_3 );
        }
      } else {
//      #pragma simd
        LOOP_3R(index_type, m_tiledims) {
          apply( LOOP_ARGS_3 );
        }
      }
    } // end RP::Right

  } //end op() rank == 3


  template <typename IType>
  inline
  void operator_impl( IType tile_idx , const RankTag<4> ) const
  {
    point_type m_offset;
    point_type m_tiledims;

    if (RP::outer_direction == RP::Left) {
      for (int i=0; i<RP::rank; ++i) {
        m_offset[i] = (tile_idx % m_rp.m_tile_end[i]) * m_rp.m_tile[i] + m_rp.m_lower[i] ;
        tile_idx /= m_rp.m_tile_end[i];
      }
    }
    else {
      for (int i=RP::rank-1; i>=0; --i) {
        m_offset[i] = (tile_idx % m_rp.m_tile_end[i]) * m_rp.m_tile[i] + m_rp.m_lower[i] ;
        tile_idx /= m_rp.m_tile_end[i];
      }
    }

    //Check if offset+tiledim in bounds - if not, replace tile dims with the partial tile dims
    const bool full_tile = check_iteration_bounds(m_tiledims , m_offset) ;

    if (RP::inner_direction == RP::Left) {
     if ( full_tile ) {
//      #pragma simd
        LOOP_4L(index_type, m_tiledims) {
          apply( LOOP_ARGS_4 );
        }
      } else {
//      #pragma simd
        LOOP_4L(index_type, m_tiledims) {
          apply( LOOP_ARGS_4 );
        }
      }
    } // end RP::Left
    else {
     if ( full_tile ) {
//      #pragma simd
        LOOP_4R(index_type, m_tiledims) {
          apply( LOOP_ARGS_4 );
        }
      } else {
//      #pragma simd
        LOOP_4R(index_type, m_tiledims) {
          apply( LOOP_ARGS_4 );
        }
      }
    } // end RP::Right

  } //end op() rank == 4


  template <typename IType>
  inline
  void operator_impl( IType tile_idx , const RankTag<5> ) const
  {
    point_type m_offset;
    point_type m_tiledims;

    if (RP::outer_direction == RP::Left) {
      for (int i=0; i<RP::rank; ++i) {
        m_offset[i] = (tile_idx % m_rp.m_tile_end[i]) * m_rp.m_tile[i] + m_rp.m_lower[i] ;
        tile_idx /= m_rp.m_tile_end[i];
      }
    }
    else {
      for (int i=RP::rank-1; i>=0; --i) {
        m_offset[i] = (tile_idx % m_rp.m_tile_end[i]) * m_rp.m_tile[i] + m_rp.m_lower[i] ;
        tile_idx /= m_rp.m_tile_end[i];
      }
    }

    //Check if offset+tiledim in bounds - if not, replace tile dims with the partial tile dims
    const bool full_tile = check_iteration_bounds(m_tiledims , m_offset) ;

    if (RP::inner_direction == RP::Left) {
     if ( full_tile ) {
//      #pragma simd
        LOOP_5L(index_type, m_tiledims) {
          apply( LOOP_ARGS_5 );
        }
      } else {
//      #pragma simd
        LOOP_5L(index_type, m_tiledims) {
          apply( LOOP_ARGS_5 );
        }
      }
    } // end RP::Left
    else {
     if ( full_tile ) {
//      #pragma simd
        LOOP_5R(index_type, m_tiledims) {
          apply( LOOP_ARGS_5 );
        }
      } else {
//      #pragma simd
        LOOP_5R(index_type, m_tiledims) {
          apply( LOOP_ARGS_5 );
        }
      }
    } // end RP::Right

  } //end op() rank == 5


  template <typename IType>
  inline
  void operator_impl( IType tile_idx , const RankTag<6> ) const
  {
    point_type m_offset;
    point_type m_tiledims;

    if (RP::outer_direction == RP::Left) {
      for (int i=0; i<RP::rank; ++i) {
        m_offset[i] = (tile_idx % m_rp.m_tile_end[i]) * m_rp.m_tile[i] + m_rp.m_lower[i] ;
        tile_idx /= m_rp.m_tile_end[i];
      }
    }
    else {
      for (int i=RP::rank-1; i>=0; --i) {
        m_offset[i] = (tile_idx % m_rp.m_tile_end[i]) * m_rp.m_tile[i] + m_rp.m_lower[i] ;
        tile_idx /= m_rp.m_tile_end[i];
      }
    }

    //Check if offset+tiledim in bounds - if not, replace tile dims with the partial tile dims
    const bool full_tile = check_iteration_bounds(m_tiledims , m_offset) ;

    if (RP::inner_direction == RP::Left) {
     if ( full_tile ) {
//      #pragma simd
        LOOP_6L(index_type, m_tiledims) {
          apply( LOOP_ARGS_6 );
        }
      } else {
//      #pragma simd
        LOOP_6L(index_type, m_tiledims) {
          apply( LOOP_ARGS_6 );
        }
      }
    } // end RP::Left
    else {
     if ( full_tile ) {
//      #pragma simd
        LOOP_6R(index_type, m_tiledims) {
          apply( LOOP_ARGS_6 );
        }
      } else {
//      #pragma simd
        LOOP_6R(index_type, m_tiledims) {
          apply( LOOP_ARGS_6 );
        }
      }
    } // end RP::Right

  } //end op() rank == 6


  template <typename IType>
  inline
  void operator_impl( IType tile_idx , const RankTag<7> ) const
  {
    point_type m_offset;
    point_type m_tiledims;

    if (RP::outer_direction == RP::Left) {
      for (int i=0; i<RP::rank; ++i) {
        m_offset[i] = (tile_idx % m_rp.m_tile_end[i]) * m_rp.m_tile[i] + m_rp.m_lower[i] ;
        tile_idx /= m_rp.m_tile_end[i];
      }
    }
    else {
      for (int i=RP::rank-1; i>=0; --i) {
        m_offset[i] = (tile_idx % m_rp.m_tile_end[i]) * m_rp.m_tile[i] + m_rp.m_lower[i] ;
        tile_idx /= m_rp.m_tile_end[i];
      }
    }

    //Check if offset+tiledim in bounds - if not, replace tile dims with the partial tile dims
    const bool full_tile = check_iteration_bounds(m_tiledims , m_offset) ;

    if (RP::inner_direction == RP::Left) {
     if ( full_tile ) {
//      #pragma simd
        LOOP_7L(index_type, m_tiledims) {
          apply( LOOP_ARGS_7 );
        }
      } else {
//      #pragma simd
        LOOP_7L(index_type, m_tiledims) {
          apply( LOOP_ARGS_7 );
        }
      }
    } // end RP::Left
    else {
     if ( full_tile ) {
//      #pragma simd
        LOOP_7R(index_type, m_tiledims) {
          apply( LOOP_ARGS_7 );
        }
      } else {
//      #pragma simd
        LOOP_7R(index_type, m_tiledims) {
          apply( LOOP_ARGS_7 );
        }
      }
    } // end RP::Right

  } //end op() rank == 7


  template <typename IType>
  inline
  void operator_impl( IType tile_idx , const RankTag<8> ) const
  {
    point_type m_offset;
    point_type m_tiledims;

    if (RP::outer_direction == RP::Left) {
      for (int i=0; i<RP::rank; ++i) {
        m_offset[i] = (tile_idx % m_rp.m_tile_end[i]) * m_rp.m_tile[i] + m_rp.m_lower[i] ;
        tile_idx /= m_rp.m_tile_end[i];
      }
    }
    else {
      for (int i=RP::rank-1; i>=0; --i) {
        m_offset[i] = (tile_idx % m_rp.m_tile_end[i]) * m_rp.m_tile[i] + m_rp.m_lower[i] ;
        tile_idx /= m_rp.m_tile_end[i];
      }
    }

    //Check if offset+tiledim in bounds - if not, replace tile dims with the partial tile dims
    const bool full_tile = check_iteration_bounds(m_tiledims , m_offset) ;

    if (RP::inner_direction == RP::Left) {
     if ( full_tile ) {
//      #pragma simd
        LOOP_8L(index_type, m_tiledims) {
          apply( LOOP_ARGS_8 );
        }
      } else {
//      #pragma simd
        LOOP_8L(index_type, m_tiledims) {
          apply( LOOP_ARGS_8 );
        }
      }
    } // end RP::Left
    else {
     if ( full_tile ) {
//      #pragma simd
        LOOP_8R(index_type, m_tiledims) {
          apply( LOOP_ARGS_8 );
        }
      } else {
//      #pragma simd
        LOOP_8R(index_type, m_tiledims) {
          apply( LOOP_ARGS_8 );
        }
      }
    } // end RP::Right

  } //end op() rank == 8
#endif


    template <typename... Args>
    typename std::enable_if<( sizeof...(Args) == RP::rank && std::is_same<Tag,void>::value), void>::type
    apply(Args &&... args) const
    {
      m_func(args... , m_v);
    }

    template <typename... Args>
    typename std::enable_if<( sizeof...(Args) == RP::rank && !std::is_same<Tag,void>::value), void>::type
    apply(Args &&... args) const
    {
      m_func( m_tag, args... , m_v);
    }


  RP         const& m_rp;
  Functor    const& m_func;
  value_type * m_v;
  typename std::conditional< std::is_same<Tag,void>::value,int,Tag>::type m_tag;

};


// ------------------------------------------------------------------ //

// MDFunctor - wraps the range_policy and functor to pass to IterateTile
// Used for md_parallel_{for,reduce} with Serial, Threads, OpenMP
// Cuda uses DeviceIterateTile directly within md_parallel_for
// TODO Once md_parallel_{for,reduce} removed, this can be removed

// ParallelReduce - scalar reductions
template < typename MDRange, typename Functor, typename ValueType = void >
struct MDFunctor
{
  using range_policy = MDRange;
  using functor_type = Functor;
  using value_type   = ValueType;
  using work_tag     = typename range_policy::work_tag;
  using index_type   = typename range_policy::index_type;
  using iterate_type = typename Kokkos::Experimental::Impl::HostIterateTile< MDRange
                                                                           , Functor
                                                                           , work_tag
                                                                           , value_type
                                                                           >;


  inline
  MDFunctor( MDRange const& range, Functor const& f )
    : m_range( range )
    , m_func( f )
  {}

  inline
  MDFunctor( MDFunctor const& ) = default;

  inline
  MDFunctor& operator=( MDFunctor const& ) = default;

  inline
  MDFunctor( MDFunctor && ) = default;

  inline
  MDFunctor& operator=( MDFunctor && ) = default;

  inline
  void operator()(index_type t, value_type & v) const
  {
    iterate_type(m_range, m_func, v)(t);
  }

  MDRange   m_range;
  Functor   m_func;
};


// ParallelReduce - array reductions 
template < typename MDRange, typename Functor, typename ValueType >
struct MDFunctor< MDRange, Functor, ValueType[] >
{
  using range_policy = MDRange;
  using functor_type = Functor;
  using value_type   = ValueType[];
  using work_tag     = typename range_policy::work_tag;
  using index_type   = typename range_policy::index_type;
  using iterate_type = typename Kokkos::Experimental::Impl::HostIterateTile< MDRange
                                                                           , Functor
                                                                           , work_tag
                                                                           , value_type
                                                                           >;


  inline
  MDFunctor( MDRange const& range, Functor const& f )
    : m_range( range )
    , m_func( f )
    , value_count( f.value_count )
  {}

  inline
  MDFunctor( MDFunctor const& ) = default;

  inline
  MDFunctor& operator=( MDFunctor const& ) = default;

  inline
  MDFunctor( MDFunctor && ) = default;

  inline
  MDFunctor& operator=( MDFunctor && ) = default;

  // FIXME Init and Join, as defined in m_func, are not working through the MDFunctor
  // Best path forward is to eliminate need for MDFunctor, directly use MDRangePolicy within Parallel{For,Reduce} ??
  inline
  void operator()(index_type t, value_type v) const
  {
    iterate_type(m_range, m_func, v)(t);
  }

  MDRange   m_range;
  Functor   m_func;
  size_t    value_count;
};


// ParallelFor
template < typename MDRange, typename Functor >
struct MDFunctor< MDRange, Functor, void >
{
  using range_policy = MDRange;
  using functor_type = Functor;
  using work_tag     = typename range_policy::work_tag;
  using index_type   = typename range_policy::index_type;
  using iterate_type = typename Kokkos::Experimental::Impl::HostIterateTile< MDRange
                                                                           , Functor
                                                                           , work_tag
                                                                           , void
                                                                           >;


  inline
  MDFunctor( MDRange const& range, Functor const& f )
    : m_range( range )
    , m_func( f )
  {}

  inline
  MDFunctor( MDFunctor const& ) = default;

  inline
  MDFunctor& operator=( MDFunctor const& ) = default;

  inline
  MDFunctor( MDFunctor && ) = default;

  inline
  MDFunctor& operator=( MDFunctor && ) = default;

  inline
  void operator()(index_type t) const
  {
    iterate_type(m_range, m_func)(t);
  }

  MDRange m_range;
  Functor m_func;
};

#undef KOKKOS_ENABLE_NEW_LOOP_MACROS

} } } //end namespace Kokkos::Experimental::Impl

#endif
