Add Fastor library

2025-03-22 01:17:52 -05:00
parent 5546e086f6
commit 4dd5939693
132 changed files with 55086 additions and 0 deletions
--- a/noarch/include/Fastor/config/config.h
+++ b/noarch/include/Fastor/config/config.h
@@ -0,0 +1,359 @@
+/*  This file is part of the FASTOR library. {{{
+Copyright (c) 2020 Roman Poya
+
+Permission is hereby granted, free of charge, to any person obtaining a copy
+of this software and associated documentation files (the "Software"), to deal
+in the Software without restriction, including without limitation the rights
+to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
+copies of the Software, and to permit persons to whom the Software is
+furnished to do so, subject to the following conditions:
+
+The above copyright notice and this permission notice shall be included in all
+copies or substantial portions of the Software.
+
+THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
+AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
+LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
+OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
+SOFTWARE.
+
+}}}*/
+
+#ifndef CONFIG_H
+#define CONFIG_H
+
+#include <cassert>
+#include <cstdint>
+#include <cstdlib>
+#include <iostream>
+#include <stdexcept>
+#include <string>
+
+//------------------------------------------------------------------------------------------------//
+//------------------------------------------------------------------------------------------------//
+
+// Error out for pre-C++14 compiler versions
+//------------------------------------------------------------------------------------------------//
+#if defined(_MSC_VER)
+    #if _MSC_VER < 1920
+       #error FASTOR REQUIRES AN ISO C++14 COMPLIANT COMPILER
+    #endif
+#elif defined(__GNUC__) || defined(__GNUG__)
+    #if __cplusplus < 201402L
+        #error FASTOR REQUIRES AN ISO C++14 COMPLIANT COMPILER
+    #endif
+#endif
+//------------------------------------------------------------------------------------------------//
+
+
+// Compiler define macros
+//------------------------------------------------------------------------------------------------//
+#ifdef __INTEL_COMPILER
+#define FASTOR_INTEL __INTEL_COMPILER_BUILD_DATE
+#elif defined(__clang__) && defined(__apple_build_version__)
+#define FASTOR_APPLECLANG (__clang_major__ * 10000 + __clang_minor__ * 100 + __clang_patchlevel__)
+#elif defined(__clang__)
+#define FASTOR_CLANG (__clang_major__ * 10000 + __clang_minor__ * 100 + __clang_patchlevel__)
+#elif defined(__GNUC__)
+#define FASTOR_GCC (__GNUC__ * 10000 + __GNUC_MINOR__ * 100 + __GNUC_PATCHLEVEL__)
+#elif defined(_MSC_VER)
+#define FASTOR_MSVC _MSC_FULL_VER
+#else
+#define FASTOR_UNSUPPORTED_COMPILER 1
+#endif
+//------------------------------------------------------------------------------------------------//
+
+
+// Operating system define macros
+//------------------------------------------------------------------------------------------------//
+#if defined(_WIN32)
+#define FASTOR_WINDOWS32_OS 1
+#endif
+#if defined(_WIN64)
+#define FASTOR_WINDOWS64_OS 1
+#endif
+#if defined(_WIN32) || defined(_WIN64)
+#define FASTOR_WINDOWS_OS 1
+#endif
+#if defined(__unix__) || defined(__unix)
+#define FASTOR_UNIX_OS 1
+#endif
+#if defined(__linux__)
+#define FASTOR_LINUX_OS 1
+#endif
+#if defined(__APPLE__) || defined(__MACH__)
+#define FASTOR_APPLE_OS 1
+#endif
+#if defined(__ANDROID__) || defined(ANDROID)
+#define FASTOR_ANDROID_OS 1
+#endif
+#if defined(__CYGWIN__)
+#define FASTOR_CYGWIN_OS 1
+#endif
+//------------------------------------------------------------------------------------------------//
+
+
+// Determine CXX version
+//------------------------------------------------------------------------------------------------//
+#if defined(FASTOR_MSVC)
+#if defined(_MSVC_LANG)
+    #if _MSVC_LANG == 199711L
+        #define FASTOR_CXX_VERSION 1998
+    #elif _MSVC_LANG == 201103L
+        #define FASTOR_CXX_VERSION 2011
+    #elif _MSVC_LANG == 201402L
+        #define FASTOR_CXX_VERSION 2014
+    #elif _MSVC_LANG == 201703L
+        #define FASTOR_CXX_VERSION 2017
+    #elif _MSVC_LANG > 201703L
+        #define FASTOR_CXX_VERSION 2020
+    #endif
+#endif
+#else
+#if defined(__cplusplus)
+    #if __cplusplus == 199711L
+        #define FASTOR_CXX_VERSION 1998
+    #elif __cplusplus == 201103L
+        #define FASTOR_CXX_VERSION 2011
+    #elif __cplusplus == 201402L
+        #define FASTOR_CXX_VERSION 2014
+    #elif __cplusplus == 201703L
+        #define FASTOR_CXX_VERSION 2017
+    #elif __cplusplus > 201703L
+        #define FASTOR_CXX_VERSION 2020
+    #endif
+#endif
+#endif
+//------------------------------------------------------------------------------------------------//
+
+
+// Force inline and no-inline macros
+//------------------------------------------------------------------------------------------------//
+#if defined(__GNUC__) || defined(__GNUG__)
+    #define FASTOR_INLINE inline __attribute__((always_inline))
+    #define FASTOR_NOINLINE __attribute__((noinline))
+#elif defined(_MSC_VER)
+    #define FASTOR_INLINE __forceinline
+    #define FASTOR_NOINLINE __declspec(noinline)
+#endif
+
+#if defined(__GNUC__) || defined(__GNUG__)
+#define FASTOR_RESTRICT __restrict__
+#elif defined(_MSC_VER)
+#define FASTOR_RESTRICT __restrict
+#endif
+
+// Traditional inline which works will and helps the compiler
+// eliminate a lot of code
+#define FASTOR_HINT_INLINE inline
+//------------------------------------------------------------------------------------------------//
+
+
+// C++17 [if constexpr] define
+//------------------------------------------------------------------------------------------------//
+#if FASTOR_CXX_VERSION >= 2017
+    #define FASTOR_HAS_IF_CONSTEXPR 1
+    #define FASTOR_IF_CONSTEXPR if constexpr
+#else
+    #define FASTOR_HAS_IF_CONSTEXPR 0
+    #define FASTOR_IF_CONSTEXPR if
+#endif
+//------------------------------------------------------------------------------------------------//
+
+
+
+// Intrinsics defines
+//------------------------------------------------------------------------------------------------//
+#ifdef FASTOR_MSVC
+    #ifdef _M_IX86_FP
+        #if _M_IX86_FP >= 1
+            #ifndef __SSE__
+                #define __SSE__ 1
+            #endif
+        #endif
+        #if _M_IX86_FP >= 2
+            #ifndef __SSE2__
+                #define __SSE2__ 1
+            #endif
+        #endif
+    #elif defined(_M_AMD64)
+        #ifndef __SSE__
+            #define __SSE__ 1
+        #endif
+        #ifndef __SSE2__
+            #define __SSE2__ 1
+        #endif
+    #endif
+#endif
+
+#if defined(__MIC__)
+    #define FASTOR_MIC_IMPL 1
+#endif
+#if defined(__AVX512F__)
+    #define FASTOR_AVX512F_IMPL 1
+#endif
+#if defined(__AVX512CD__)
+    #define FASTOR_AVX512CD_IMPL 1
+#endif
+#if defined(__AVX512BW__)
+    #define FASTOR_AVX512BW_IMPL 1
+#endif
+#if defined(__AVX512DQ__)
+    #define FASTOR_AVX512DQ_IMPL 1
+#endif
+#if defined(__AVX512VL__)
+    #define FASTOR_AVX512VL_IMPL 1
+#endif
+#if defined(__AVX2__)
+    #define FASTOR_AVX2_IMPL 1
+#endif
+#if defined(__AVX__)
+    #define FASTOR_AVX_IMPL 1
+#endif
+#if defined(__SSE4_2__)
+    #define FASTOR_SSE4_2_IMPL 1
+#endif
+#if defined(__SSE4_1__)
+    #define FASTOR_SSE4_1_IMPL 1
+#endif
+#if defined(__SSE3__)
+    #define FASTOR_SSE3_IMPL 1
+#endif
+#if defined(__SSSE3__)
+    #define FASTOR_SSSE3_IMPL 1
+#endif
+#if defined(__SSE2__)
+    #define FASTOR_SSE2_IMPL 1
+#endif
+
+#if defined(__FMA4__)
+    #define FASTOR_FMA4_IMPL 1
+#endif
+#if defined(__FMA__)
+    #define FASTOR_FMA_IMPL 1
+#endif
+// #if !defined(__FMA__) && defined(__AVX2__)
+//     #define __FMA__ 1
+// #endif
+
+
+// Get around MSVC issue
+#if defined(FASTOR_WINDOWS_OS) || defined(FASTOR_MSVC)
+    #if defined(FASTOR_AVX512F_IMPL)
+        #if !defined(FASTOR_SSE2_IMPL)
+            #define FASTOR_SSE2_IMPL 1
+        #endif
+        #if !defined(FASTOR_SSE3_IMPL)
+            #define FASTOR_SSE3_IMPL 1
+        #endif
+        #if !defined(FASTOR_SSSE3_IMPL)
+            #define FASTOR_SSSE3_IMPL 1
+        #endif
+        #if !defined(FASTOR_SSE4_1_IMPL)
+            #define FASTOR_SSE4_1_IMPL 1
+        #endif
+        #if !defined(FASTOR_SSE4_2_IMPL)
+            #define FASTOR_SSE4_2_IMPL 1
+        #endif
+        #if !defined(FASTOR_AVX_IMPL)
+            #define FASTOR_AVX_IMPL 1
+        #endif
+        #if !defined(FASTOR_AVX2_IMPL)
+            #define FASTOR_AVX2_IMPL 1
+        #endif
+    #elif defined(FASTOR_AVX_IMPL) || defined(FASTOR_AVX2_IMPL)
+        #if !defined(FASTOR_SSE2_IMPL)
+            #define FASTOR_SSE2_IMPL 1
+        #endif
+        #if !defined(FASTOR_SSE3_IMPL)
+            #define FASTOR_SSE3_IMPL 1
+        #endif
+        #if !defined(FASTOR_SSSE3_IMPL)
+            #define FASTOR_SSSE3_IMPL 1
+        #endif
+        #if !defined(FASTOR_SSE4_1_IMPL)
+            #define FASTOR_SSE4_1_IMPL 1
+        #endif
+        #if !defined(FASTOR_SSE4_2_IMPL)
+            #define FASTOR_SSE4_2_IMPL 1
+        #endif
+    #endif
+#endif
+
+
+#if defined(FASTOR_AVX512F_IMPL) || defined(FASTOR_AVX512CD_IMPL) || defined(FASTOR_AVX512BW_IMPL) || defined(FASTOR_AVX512DQ_IMPL) || defined(FASTOR_AVX512VL_IMPL)
+    #define FASTOR_AVX512_IMPL 1
+#endif
+#if defined(FASTOR_AVX2_IMPL) && !defined(FASTOR_AVX_IMPL)
+    #define FASTOR_AVX_IMPL 1
+#endif
+#if defined(FASTOR_SSE2_IMPL) || defined(FASTOR_SSSE3_IMPL) || defined(FASTOR_SSE3_IMPL) || defined(FASTOR_SSE4_1_IMPL) || defined(FASTOR_SSE4_2_IMPL)
+    #define FASTOR_SSE_IMPL 1
+#endif
+
+#if !defined(FASTOR_MIC_IMPL) && !defined(FASTOR_AVX512_IMPL) && !defined(FASTOR_AVX_IMPL) && !defined(FASTOR_SSE_IMPL)
+#define FASTOR_SCALAR_IMPL 1
+#endif
+
+
+#ifdef FASTOR_SSE2_IMPL
+#include <emmintrin.h>
+#endif
+#ifdef FASTOR_SSE3_IMPL
+#include <pmmintrin.h>
+#endif
+#ifdef FASTOR_SSSE3_IMPL
+#include <tmmintrin.h>
+#endif
+#ifdef FASTOR_SSE4_1_IMPL
+#include <smmintrin.h>
+#endif
+#ifdef FASTOR_SSE4_2_IMPL
+#include <nmmintrin.h>
+#endif
+#ifdef FASTOR_AVX_IMPL
+#include <immintrin.h>
+#endif
+
+
+// Mask loading
+//------------------------------------------------------------------------------------------------//
+#if defined(FASTOR_AVX512F_IMPL) && defined(FASTOR_AVX512VL_IMPL)
+    #define FASTOR_HAS_AVX512_MASKS 1
+#endif
+//------------------------------------------------------------------------------------------------//
+
+// Horizontal add
+//------------------------------------------------------------------------------------------------//
+#if defined(FASTOR_AVX512F_IMPL)
+#if defined(FASTOR_INTEL)
+    #define FASTOR_HAS_AVX512_REDUCE_ADD 1
+#elif defined (FASTOR_GCC) && __GNUC__ >= 7
+    #define FASTOR_HAS_AVX512_REDUCE_ADD 1
+#elif defined (FASTOR_GCC) && __clang_major__ >= 4
+    #define FASTOR_HAS_AVX512_REDUCE_ADD 1
+#endif
+#endif
+//------------------------------------------------------------------------------------------------//
+
+// AVX512 abs
+//------------------------------------------------------------------------------------------------//
+#if defined(FASTOR_AVX512F_IMPL)
+#if defined(FASTOR_INTEL)
+    #define FASTOR_HAS_AVX512_ABS 1
+#elif defined (FASTOR_GCC) && __GNUC__ >= 7 && __GNUC_MINOR__ >= 4
+    #define FASTOR_HAS_AVX512_ABS 1
+#elif defined (FASTOR_GCC) && __clang_major__ >= 4
+    #define FASTOR_HAS_AVX512_ABS 1
+#endif
+#endif
+//------------------------------------------------------------------------------------------------//
+//------------------------------------------------------------------------------------------------//
+
+#include "Fastor/config/macros.h"
+
+//------------------------------------------------------------------------------------------------//
+
+#endif // CONFIG_H
--- a/noarch/include/Fastor/config/cpuid.h
+++ b/noarch/include/Fastor/config/cpuid.h
@@ -0,0 +1,71 @@
+/*  This file is part of the FASTOR library. {{{
+Copyright (c) 2020 Roman Poya
+
+Permission is hereby granted, free of charge, to any person obtaining a copy
+of this software and associated documentation files (the "Software"), to deal
+in the Software without restriction, including without limitation the rights
+to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
+copies of the Software, and to permit persons to whom the Software is
+furnished to do so, subject to the following conditions:
+
+The above copyright notice and this permission notice shall be included in all
+copies or substantial portions of the Software.
+
+THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
+AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
+LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
+OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
+SOFTWARE.
+
+}}}*/
+
+#ifndef CPUID_H
+#define CPUID_H
+
+#ifdef _WIN32
+#include <limits.h>
+#include <intrin.h>
+typedef unsigned __int32  uint32_t;
+#else
+#include <stdint.h>
+#endif
+
+
+namespace Fastor {
+
+class CPUID {
+  uint32_t regs[4];
+
+public:
+  explicit CPUID(unsigned i) {
+#ifdef _WIN32
+    __cpuid((int *)regs, (int)i);
+
+#else
+    asm volatile
+      ("cpuid" : "=a" (regs[0]), "=b" (regs[1]), "=c" (regs[2]), "=d" (regs[3])
+       : "a" (i), "c" (0));
+    // ECX is set to zero for CPUID function 4
+#endif
+  }
+
+  const uint32_t& EAX() const {return regs[0];} // cpu base frequency
+  const uint32_t& EBX() const {return regs[1];} // cpu max frequency
+  const uint32_t& ECX() const {return regs[2];} // bus (reference) frequency
+  const uint32_t& EDX() const {return regs[3];}
+};
+
+// Usage:
+// CPUID cpuID(0);
+// std::string vendor;
+// vendor += std::string((const char *)&cpuID.EBX(), 4);
+// vendor += std::string((const char *)&cpuID.EDX(), 4);
+// vendor += std::string((const char *)&cpuID.ECX(), 4);
+// std::cout << "CPU vendor = " << vendor << std::endl;
+
+
+} // Fastor
+
+#endif // CPUID_H
--- a/noarch/include/Fastor/config/macros.h
+++ b/noarch/include/Fastor/config/macros.h
@@ -0,0 +1,292 @@
+/*  This file is part of the FASTOR library. {{{
+Copyright (c) 2020 Roman Poya
+
+Permission is hereby granted, free of charge, to any person obtaining a copy
+of this software and associated documentation files (the "Software"), to deal
+in the Software without restriction, including without limitation the rights
+to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
+copies of the Software, and to permit persons to whom the Software is
+furnished to do so, subject to the following conditions:
+
+The above copyright notice and this permission notice shall be included in all
+copies or substantial portions of the Software.
+
+THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
+AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
+LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
+OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
+SOFTWARE.
+
+}}}*/
+
+#ifndef FASTOR_MACROS_H
+#define FASTOR_MACROS_H
+
+
+/* This file contains only the set of macros that Fastor defines and can be used or altered by the user
+*/
+//------------------------------------------------------------------------------------------------//
+// Compiler version
+//------------------------------------------------------------------------------------------------//
+#define FASTOR_MAJOR 0
+#define FASTOR_MINOR 6
+#define FASTOR_PATCHLEVEL 4
+#define FASTOR_VERSION (FASTOR_MAJOR * 10000 + FASTOR_MINOR * 100 + FASTOR_PATCHLEVEL)
+//------------------------------------------------------------------------------------------------//
+
+//------------------------------------------------------------------------------------------------//
+//------------------------------------------------------------------------------------------------//
+//------------------------------------------------------------------------------------------------//
+// ICC's default option is fast anyway (i.e. -fp-model fast=1)
+// but it does not define the __FAST_MATH__ macro
+#if defined(__FAST_MATH__)
+#define FASTOR_FAST_MATH
+// Use the following for unsafe math
+// Only for GCC & Clang, activates fast div/rcp
+//#define FASTOR_UNSAFE_MATH
+#endif
+
+// Runtime checks - off by default under release
+//------------------------------------------------------------------------------------------------//
+#ifndef FASTOR_ENABLE_RUNTIME_CHECKS
+#define FASTOR_ENABLE_RUNTIME_CHECKS 0
+#endif
+//------------------------------------------------------------------------------------------------//
+
+// Bounds and shape checking - ON by default under debug
+//------------------------------------------------------------------------------------------------//
+#if !defined(NDEBUG) || FASTOR_ENABLE_RUNTIME_CHECKS
+#ifndef FASTOR_BOUNDS_CHECK
+#define FASTOR_BOUNDS_CHECK 1
+#endif
+#ifndef FASTOR_SHAPE_CHECK
+#define FASTOR_SHAPE_CHECK 1
+#endif
+#else
+#ifndef FASTOR_BOUNDS_CHECK
+#define FASTOR_BOUNDS_CHECK 0
+#endif
+#ifndef FASTOR_SHAPE_CHECK
+#define FASTOR_SHAPE_CHECK 0
+#endif
+#endif
+//------------------------------------------------------------------------------------------------//
+
+
+// Aliasing
+//------------------------------------------------------------------------------------------------//
+#ifndef FASTOR_NO_ALIAS
+#define FASTOR_NO_ALIAS 0
+#endif
+//------------------------------------------------------------------------------------------------//
+
+
+// Macros used throughout Fastor
+//------------------------------------------------------------------------------------------------//
+//#define FASTOR_COPY_EXPR
+//#define FASTOR_DONT_VECTORISE
+//#define FASTOR_DONT_PERFORM_OP_MIN
+//#define FASTOR_USE_OLD_OUTER
+//#define FASTOR_USE_OLD_INTRINSICS
+//#define FASTOR_USE_HADD
+//#define FASTOR_USE_VECTORISED_EXPR_ASSIGN  // to use vectorised expression assignment
+//#define FASTOR_ZERO_INITIALISE
+//#define FASTOR_USE_OLD_NDVIEWS
+//#define FASTOR_DISPATCH_DIV_TO_MUL_EXPR // change BINARY_DIV_OP to BINARY_MUL_OP for Expression/Number
+//#define FASTOR_DISABLE_SPECIALISED_CTR
+
+//FASTOR_MATMUL_OUTER_BLOCK_SIZE 2
+//FASTOR_MATMUL_INNER_BLOCK_SIZE 2
+
+//FASTOR_TRANS_OUTER_BLOCK_SIZE 2
+//FASTOR_TRANS_INNER_BLOCK_SIZE 2
+
+#ifndef FASTOR_BLAS_SWITCH_MATRIX_SIZE
+#define FASTOR_BLAS_SWITCH_MATRIX_SIZE 16
+#endif
+
+// FASTOR_NIL
+//------------------------------------------------------------------------------------------------//
+#define FASTOR_NIL 0
+//------------------------------------------------------------------------------------------------//
+
+
+// Bit sizes
+//------------------------------------------------------------------------------------------------//
+#define FASTOR_AVX512_BITSIZE 512
+#define FASTOR_AVX_BITSIZE 256
+#define FASTOR_SSE_BITSIZE 128
+#define FASTOR_DOUBLE_BITSIZE (sizeof(double)*8)
+#define FASTOR_SINGLE_BITSIZE (sizeof(float)*8)
+#ifndef FASTOR_SCALAR_BITSIZE
+#define FASTOR_SCALAR_BITSIZE FASTOR_DOUBLE_BITSIZE
+#endif
+//------------------------------------------------------------------------------------------------//
+
+
+// Alignment
+//------------------------------------------------------------------------------------------------//
+#ifndef FASTOR_MEMORY_ALIGNMENT_VALUE
+#if defined(FASTOR_AVX512_IMPL)
+#define FASTOR_MEMORY_ALIGNMENT_VALUE 64
+#elif defined(FASTOR_AVX_IMPL)
+#define FASTOR_MEMORY_ALIGNMENT_VALUE 32
+#elif defined(FASTOR_SSE_IMPL)
+#define FASTOR_MEMORY_ALIGNMENT_VALUE 16
+#else
+#define FASTOR_MEMORY_ALIGNMENT_VALUE 8
+#endif
+#endif
+
+/* User controllable alignment for Fastor containers */
+#define FASTOR_ALIGN alignas((FASTOR_MEMORY_ALIGNMENT_VALUE))
+/* Strict non-controllable alignment for Fastor's internal use */
+#define FASTOR_ARCH_ALIGN alignas((FASTOR_MEMORY_ALIGNMENT_VALUE))
+
+// Conservative alignment for SIMD
+#if defined(FASTOR_DONT_ALIGN) || defined(FASTOR_DONT_VECTORISE)
+    #define FASTOR_ALIGNED false
+#else
+    #define FASTOR_ALIGNED true
+#endif
+
+#define FASTOR_ISALIGNED(POINTER, BYTE_COUNT) \
+    (((uintptr_t)(const void *)(POINTER)) % (BYTE_COUNT) == 0)
+//------------------------------------------------------------------------------------------------//
+
+
+// Assertions
+//------------------------------------------------------------------------------------------------//
+namespace Fastor {
+// Strong unconditional assert
+FASTOR_INLINE void FASTOR_EXIT_ASSERT(bool cond, const std::string &msg="") {
+    if (cond==false) {
+        throw std::runtime_error(msg);
+    }
+}
+
+#if !defined(NDEBUG) || FASTOR_ENABLE_RUNTIME_CHECKS
+#define FASTOR_ASSERT(COND, MESSAGE) FASTOR_EXIT_ASSERT(COND, MESSAGE)
+#else
+#define FASTOR_ASSERT(COND, MESSAGE)
+#endif
+
+// Warn
+FASTOR_INLINE void FASTOR_WARN(bool cond, const std::string &x) {
+    if (cond==false) {
+        std::cout << x << std::endl;
+    }
+}
+} // end of namespace Fastor
+//------------------------------------------------------------------------------------------------//
+
+
+// Warnings
+//------------------------------------------------------------------------------------------------//
+// Static warn
+#ifndef FASTOR_NO_STATIC_WARNING
+#if defined(__GNUC__)
+    #define FASTOR_DEPRECATE(foo, msg) foo __attribute__((deprecated(msg)))
+#elif defined(_MSC_VER)
+    #define FASTOR_DEPRECATE(foo, msg) __declspec(deprecated(msg)) foo
+#else
+    #error FASTOR STATIC WARNING DOES NOT SUPPORT THIS COMPILER
+#endif
+
+#define FASTOR_CAT(x,y) FASTOR_CAT1_(x,y)
+#define FASTOR_CAT1_(x,y) x##y
+
+
+namespace Fastor {
+namespace useless
+{
+    struct true_type {};
+    struct false_type {};
+    template <int test> struct converter : public true_type {};
+    template <> struct converter<0> : public false_type {};
+}
+
+#define FASTOR_STATIC_WARN(cond, msg) \
+struct FASTOR_CAT(static_warning,__LINE__) { \
+  FASTOR_DEPRECATE(void _(::useless::false_type const& ),msg) {}; \
+  void _(::useless::true_type const& ) {}; \
+  FASTOR_CAT(static_warning,__LINE__)() {_(::useless::converter<(cond)>());} \
+}
+
+} // end of namespace Fastor
+#endif // FASTOR_NO_STATIC_WARNING
+//------------------------------------------------------------------------------------------------//
+
+
+// Token to string
+//------------------------------------------------------------------------------------------------//
+#define FASTOR_TOSTRING_(X) #X
+#define FASTOR_TOSTRING(X) FASTOR_TOSTRING_(X)
+//------------------------------------------------------------------------------------------------//
+
+// asm comment
+//------------------------------------------------------------------------------------------------//
+#define FASTOR_ASM(STR) asm(STR ::)
+//------------------------------------------------------------------------------------------------//
+
+// unused
+//------------------------------------------------------------------------------------------------//
+namespace Fastor {
+// clobber
+template <typename T> void unused(T &&x) {
+#ifndef _WIN32
+    asm("" ::"m"(x));
+#endif
+}
+template <typename T, typename ... U> void unused(T&& x, U&& ...y) { unused(x); unused(y...); }
+} // end of namespace Fastor
+//------------------------------------------------------------------------------------------------//
+
+
+// SIMD round-down
+//------------------------------------------------------------------------------------------------//
+#define ROUND_DOWN2(x, s) ((x) & ~((s)-1))
+#define ROUND_DOWN(x, s) ROUND_DOWN2(x,s)
+//------------------------------------------------------------------------------------------------//
+
+
+// FASTOR CONSTRUCTS
+//------------------------------------------------------------------------------------------------//
+#include <cstdint>
+
+namespace Fastor {
+
+using FASTOR_INDEX = size_t;
+using Int64 = int64_t;
+using DEFAULT_FLOAT_TYPE = double;
+using DFT = DEFAULT_FLOAT_TYPE;
+using FASTOR_VINDEX = volatile size_t;
+
+constexpr int RowMajor = 0;
+constexpr int ColumnMajor = 1;
+
+
+constexpr int FASTOR_Symmetric = -100;
+constexpr int FASTOR_NonSymmetric = -101;
+constexpr int FASTOR_AntiSymmetric = -102;
+constexpr int FASTOR_Identity = -103;
+constexpr int FASTOR_One = -104;
+constexpr int FASTOR_Zero = -105;
+
+constexpr int FASTOR_ThreeD = -150;
+constexpr int FASTOR_TwoD = -151;
+constexpr int FASTOR_PlaneStrain = -152;
+constexpr int FASTOR_PlaneStress = -153;
+constexpr int FASTOR_Voigt = -106;
+
+constexpr int DepthFirst = -200;
+constexpr int NoDepthFirst = -201;
+
+constexpr double PRECI_TOL  = 1e-14;
+
+}
+//------------------------------------------------------------------------------------------------//
+
+#endif // FASTOR_MACROS_H