amathlib.h

//
// Created by af on 16.01.21.
//

#if  !defined(MATH_LIB_A_MATH_LIB_H) || defined(USE_CUDA)
#define MATH_LIB_A_MATH_LIB_H

#if !defined(USE_OPENCL)

#include <iterator>

#endif
#if defined(AML_USE_STD_COMPLEX)

#include <complex>

#endif

#if defined(USE_OPENCL)

#define AML_NO_STRING

#endif

#if !defined(AML_NO_STRING)

#include <string>
#include <sstream>

#endif

#include <stdint.h>

#if !defined(USE_OPENCL)

#include <math.h>

#endif

#define AML_SAFE_MATH

#define AML_LN10 2.3025850929940456840179914546843642076011014886287729760333279009675726096773524802359972050895982983419677840422862486334095254

#if defined(AML_CUDA) && !defined(USE_CUDA)
#define USE_CUDA

#define AML_PREFIX(name) CU_ ## name
#define AML_FUNCTION __device__ __forceinline__
#include "amathlib.h"
#undef USE_CUDA
#undef AML_PREFIX
#undef AML_FUNCTION
#define AML_PREFIX(name) name
#define AML_FUNCTION inline
#endif

#if defined(AML_PREFIX)
#undef AML_PREFIX
#undef AML_FUNCTION
#endif

#if defined(USE_CUDA)
#define AML_PREFIX(name) CU_ ## name
#define AML_FUNCTION __device__ __forceinline__
#else

#define AML_PREFIX(name) name
#define AML_FUNCTION inline
#endif

#define DEBUG_TO_INDEX(row, column) ((column - 1) * 4 + (row-1))

//#define USE_AVX512
//#define USE_AVX
//#define USE_SSE

//#define USE_SSE
//#define USE_SSE2
//#define USE_SSE3
//#define USE_SSE41
//#define USE_SSE42

//#define USE_AVX
//#define USE_AVX2
//#define USE_FMA


//#define USE_AVX512
//#define USE_AVX512F
//#define USE_KNC

#if __has_cpp_attribute(unlikely) && __has_cpp_attribute(likely)
#define UNLIKELY [[unlikely]]
#define LIKELY [[likely]]

#else
#define UNLIKELY
#define LIKELY

#endif


#if defined(__cpp_lib_is_constant_evaluated)
#define AML_CONSTEXPR constexpr
#else
#define AML_CONSTEXPR
#endif

#if defined(__cpp_concepts)

#define USE_CONCEPTS

#endif


#ifndef DEBUG

#if defined(__x86_64__) && !defined(USE_CUDA)
#ifdef __SSE__
#define USE_SSE
#endif


#ifdef __SSE2__
#define USE_SSE2
#endif


#ifdef __SSE2__
#define USE_SSE2
#endif


#ifdef __SSE4_1__
#define USE_SSE41
#endif


#ifdef __SSE4_2__
#define USE_SSE42
#endif

#ifdef __AVX__
#define USE_AVX
#endif


#ifdef __AVX2__
#define USE_AVX2
#endif


#ifdef __FMA__
#define USE_FMA
#endif

#ifdef __AVX512F__
#define USE_AVX512F
#endif


#endif // INTEL

#endif //NDEBUG

//#if defined(DEBUG)
#if defined(__x86_64__) && !defined(USE_CUDA)
#if defined(USE_AVX512F)
#define USE_AVX512
#endif
#if defined(USE_AVX512)
#define USE_AVX512F
#define USE_FMA
#endif
#if defined(USE_FMA)
#define USE_AVX2
#endif
#if defined(USE_AVX2)
#define USE_AVX
#endif
#if defined(USE_AVX)
#define USE_SSE42
#endif
#if defined(USE_SSE42)
#define USE_SSE41
#endif
#if defined(USE_SSE41)
#define USE_SSE3
#endif
#if defined(USE_SSE3)
#define USE_SSE2
#endif
#if defined(USE_SSE2)
#define USE_SSE1
#endif
#if defined(USE_SSE1)
#define USE_SSE
#endif

//#endif // DEBUG

#if defined(USE_AVX512) && !defined(USE_CUDA)

#include <immintrin.h>

#endif


#if defined(USE_AVX) && !defined(USE_CUDA)

#include <immintrin.h>

#endif
#if defined(USE_SSE) && !defined(USE_CUDA)

#include <emmintrin.h>

#endif //USE_SSE
#endif //INTEL

#if defined(__EMSCRIPTEN__)
#include <wasm_simd128.h>
#define USE_WASM_SIMD
#endif

#if defined(__ARM_NEON)

#include <arm_neon.h>

#define USE_NEON


#endif
#if defined(AML_USE_GMP) && !defined(AML_USE_AML_NUMBER)
#define AML_USE_AML_NUMBER
#endif

#if defined(AML_USE_AML_NUMBER)

#include "multiprecision.h"

#endif

union AML_PREFIX(doublevec4) {
#ifdef USE_AVX
	__m256d avx;
#endif
#ifdef USE_SSE
	__m128d sse[2];
#endif
#ifdef USE_NEON
	float64x2_t neon[2];
#endif
	double c[4];
};

union AML_PREFIX(doublevec8) {
#ifdef USE_AVX512
	__m512d avx512;
#endif
#ifdef USE_AVX
	__m256d avx[2];
#endif
#ifdef USE_SSE
	__m128d sse[4];
#endif
#ifdef USE_NEON
	float64x2_t neon[4];
#endif
	double c[8];
};

union AML_PREFIX(doublemat4x4) {
#ifdef USE_AVX512
	__m512d avx512[2];
#endif
#ifdef USE_AVX
	__m256d avx[4];
#endif
#ifdef USE_SSE
	__m128d sse[8];
#endif
#ifdef USE_NEON
	float64x2_t neon[8];
#endif
	double c[16];
};


union AML_PREFIX(floatmat4x4) {
#ifdef USE_AVX512
	__m512 avx512;
#endif
#ifdef USE_AVX
	__m256 avx[2];
#endif
#ifdef USE_SSE
	__m128 sse[4];
#endif
#ifdef USE_NEON
	float32x4_t neon[4];
#endif
	float c[16];
};

union AML_PREFIX(doublevec2) {
#ifdef USE_SSE
	__m128d sse;
#endif
#ifdef USE_NEON
	float64x2_t neon;
#endif
	double c[2];
};

union AML_PREFIX(doublevec1) {
	double c;
};


union AML_PREFIX(floatvec4) {
#ifdef USE_SSE
	__m128 sse;
#endif
#ifdef USE_NEON
	float32x4_t neon;
#endif
	float c[4];
};

union AML_PREFIX(floatvec8) {
#ifdef USE_AVX
	__m256 avx;
#endif
#ifdef USE_SSE
	__m128 sse[2];
#endif
#ifdef USE_NEON
	float32x4_t neon[2];
#endif
	float c[8];
};


union AML_PREFIX(floatvec2) {
#ifdef USE_NEON
	float32x2_t neon;
#endif
	float c[2];
};

union AML_PREFIX(floatvec1) {
	float c;
};


union AML_PREFIX(u8vec1) { // limited use
	uint8_t c;
};

union AML_PREFIX(u8vec2) {
	uint8_t c[2];
};


union AML_PREFIX(u8vec3) {
	uint8_t c[3];
};


union AML_PREFIX(u8vec4) {
	uint8_t c[4];
};


union AML_PREFIX(u8vec8) {
	uint8_t c[8];
};


union AML_PREFIX(u8vec16) {
#if defined(USE_SSE)
	__m128i sse;
#endif
	uint8_t c[16];
};


union AML_PREFIX(u8vec32) {
#if defined(USE_AVX)
	__m256i avx;
#endif
#if defined(USE_SSE)
	__m128i sse[4];
#endif
	uint8_t c[32];
};


union AML_PREFIX(u8vec64) {

#if defined(USE_AVX512)
	__m512i avx512;
#endif
#if defined(USE_AVX)
	__m256i avx[2];
#endif
#if defined(USE_SSE)
	__m128i sse[8];
#endif
	uint8_t c[64];
};

union AML_PREFIX(u16vec2) {
	uint16_t c[2];
};


union AML_PREFIX(u16vec3) {
	uint16_t c[3];
};


union AML_PREFIX(u16vec4) {
#if defined(USE_SSE)
	__m128i sse;
#endif
	uint16_t c[4];
};


union AML_PREFIX(u16vec8) {
#if defined(USE_SSE)
	__m128i sse[2];
#endif
	uint16_t c[8];
};


union AML_PREFIX(u16vec16) {
#if defined(USE_SSE)
	__m128i sse[4];
#endif
	uint16_t c[16];
};


union AML_PREFIX(u16vec32) {
#if defined(USE_AVX512)
	__m512i avx512;
#endif
#if defined(USE_AVX)
	__m256i avx[2];
#endif
#if defined(USE_SSE)
	__m128i sse[8];
#endif
	uint16_t c[32];
};

union AML_PREFIX(u32vec2) {
	uint32_t c[2];
};

union AML_PREFIX(u16vec64) {

#if defined(USE_AVX512)
	__m512i avx512[2];
#endif
#if defined(USE_AVX)
	__m256i avx[4];
#endif
#if defined(USE_SSE)
	__m128i sse[16];
#endif
	uint16_t c[64];
};


#include "amlarrayhead.h"

namespace AML_PREFIX(AML) {

#if defined(USE_CONCEPTS)
	template<class T>
	concept Number = requires(T a, T b){
		a + a;
		a * a;
		a / a;
		pow(a, b);
	};
#endif


#if defined(USE_CONCEPTS)

	template<Number T>
#else
	template<class T>
#endif
	AML_FUNCTION T
	mapLinear(const T value, const T lowerInput, const T upperInput, const T lowerOutput,
			  const T upperOutput) {
		return ((value - lowerInput) * ((upperOutput - lowerOutput) / (upperInput - lowerInput))) + lowerOutput;
	}


#if defined(USE_CONCEPTS)

	template<Number T>
#else
	template<class T>
#endif
	AML_FUNCTION T
	mapNonLinear(const T value, const T lowerInput, const T upperInput,
				 const T lowerOutput, const T upperOutput, const T factor) {
		return (((pow(((value - lowerInput) / (upperInput - lowerInput)), factor)) * (upperOutput - lowerOutput)) +
				lowerOutput);
	}


#if defined(USE_CONCEPTS)

	template<Number T>
#else
	template<class T>
#endif
	AML_FUNCTION T interpolate(const T min, const T max, const T ratio) {
		return (ratio * (min - max) + max);
	}

#if defined(USE_CONCEPTS)

	template<Number T>
#else
	template<class T>
#endif
	AML_FUNCTION T interpolate(const T val1, const T val2, const T val3, const T ratio) {
		return ratio * (ratio * (val1 - val2 - val2 + val3) + val2 + val2 - val3 - val3) + val3;
	}

#if defined(USE_CONCEPTS)

	template<Number T>
#else
	template<class T>
#endif
	AML_FUNCTION T arithmeticMean(const T a1, const T a2) {
#if defined(AML_SAFE_MATH)
		return a1 + (a2 - a1) * ((T) 0.5);
#else
		return (a1 + a2) / 2;
#endif
	}

#if !defined(USE_CUDA) && defined(USE_CONCEPTS)

#if defined(__GNUG__) && !defined(__clang__) && !defined(USE_CUDA)
#pragma GCC push_options
#pragma GCC optimize ("O3")
#endif

	template<class T>
	AML_FUNCTION bool precisionSufficient(const T a, const T b) {
		const T a1 = a;
		const T b1 = b;
		return a1 != b1;
	}

	template<class T>
	AML_FUNCTION bool precisionSufficient(const T a, const T b, auto f) {
		const T a1 = f(a);
		const T b1 = f(b);
		return a1 != b1;
	}

#if defined(__GNUG__) && !defined(__clang__) && !defined(USE_CUDA)
#pragma GCC pop_options
#endif
#endif
}


class AML_PREFIX(VectorU16_2D) {
public:
	AML_PREFIX(u16vec2) v{};

	AML_FUNCTION AML_PREFIX(VectorU16_2D)() {
		v.c[0] = 0;
		v.c[1] = 0;
	}


	AML_FUNCTION AML_PREFIX(VectorU16_2D)(uint16_t a, uint16_t b) {
		v.c[0] = a;
		v.c[1] = b;
	}
};

class AML_PREFIX(VectorU8_1D) {
public:
	AML_PREFIX(u8vec1) v{};

	AML_FUNCTION AML_PREFIX(VectorU8_1D)() {
		v.c = 0;
	}

	AML_FUNCTION explicit AML_PREFIX(VectorU8_1D)(const AML_PREFIX(u8vec1) &vec) {
		v = vec;
	}


	AML_FUNCTION AML_PREFIX(VectorU8_1D)(uint8_t a) {
		v.c = a;
	}

	AML_FUNCTION uint8_t &operator[]([[maybe_unused]]uint32_t location) {
		return v.c;
	}

	AML_FUNCTION bool anyTrue() {
		if (v.c) {
			return true;
		}
		return false;
	}

	AML_FUNCTION bool anyTrue(AML_PREFIX(VectorU8_1D) mask) {
		if (v.c && mask.v.c) {
			return true;
		}
		return false;
	}

	AML_FUNCTION bool allTrue() {
		if (!v.c) {
			return false;
		}
		return true;
	}

	AML_FUNCTION AML_PREFIX(VectorU8_1D) operator!() {
		AML_PREFIX(VectorU8_1D) ret;
		ret.v.c = !v.c;
		return ret;
	}

	AML_FUNCTION AML_PREFIX(VectorU8_1D) *bitNot() {
		v.c = !v.c;
		return this;
	}

	AML_FUNCTION AML_PREFIX(VectorU8_1D) operator&(AML_PREFIX(VectorU8_1D) o) {
		AML_PREFIX(VectorU8_1D) ret;
		ret.v.c = v.c & o.v.c;
		return ret;
	}

	AML_FUNCTION AML_PREFIX(VectorU8_1D) *bitAnd(AML_PREFIX(VectorU8_1D) o) {
		v.c = v.c & o.v.c;
		return this;
	}

	AML_FUNCTION AML_PREFIX(VectorU8_1D) operator&&(AML_PREFIX(VectorU8_1D) o) {
		AML_PREFIX(VectorU8_1D) ret;
		ret.v.c = v.c && o.v.c;
		return ret;
	}

	AML_FUNCTION AML_PREFIX(VectorU8_1D) *boolAnd(AML_PREFIX(VectorU8_1D) o) {
		v.c = v.c && o.v.c;
		return this;
	}
};

class AML_PREFIX(VectorU8_2D) {
public:
	AML_PREFIX(u8vec2) v{};

	AML_FUNCTION AML_PREFIX(VectorU8_2D)() {
		v.c[0] = 0;
		v.c[1] = 0;
	}

	AML_FUNCTION explicit AML_PREFIX(VectorU8_2D)(const AML_PREFIX(u8vec2) &vec) {
		v = vec;
	}


	AML_FUNCTION AML_PREFIX(VectorU8_2D)(const uint8_t a, const uint8_t b) {
		v.c[0] = a;
		v.c[1] = b;
	}

	AML_FUNCTION uint8_t &operator[](const uint32_t location) {
		return v.c[location];
	}

	AML_FUNCTION bool anyTrue() {
		if (v.c[0]) {
			return true;
		}
		if (v.c[1]) {
			return true;
		}
		return false;
	}

	AML_FUNCTION bool anyTrue(const AML_PREFIX(VectorU8_2D) mask) {
		if (v.c[0] && mask.v.c[0]) {
			return true;
		}
		if (v.c[1] && mask.v.c[1]) {
			return true;
		}
		return false;
	}

	AML_FUNCTION bool allTrue() {
		if (!v.c[0]) {
			return false;
		}
		if (!v.c[1]) {
			return false;
		}
		return true;
	}

	AML_FUNCTION AML_PREFIX(VectorU8_2D) operator!() {
		AML_PREFIX(VectorU8_2D) ret;
		ret.v.c[0] = !v.c[0];
		ret.v.c[1] = !v.c[1];
		return ret;
	}

	AML_FUNCTION AML_PREFIX(VectorU8_2D) *bitNot() {
		v.c[0] = !v.c[0];
		v.c[1] = !v.c[1];
		return this;
	}

	AML_FUNCTION AML_PREFIX(VectorU8_2D) operator&(const AML_PREFIX(VectorU8_2D) o) {
		AML_PREFIX(VectorU8_2D) ret;
		ret.v.c[0] = v.c[0] & o.v.c[0];
		ret.v.c[1] = v.c[1] & o.v.c[1];
		return ret;
	}

	AML_FUNCTION AML_PREFIX(VectorU8_2D) *bitAnd(AML_PREFIX(VectorU8_2D) o) {
		v.c[0] = v.c[0] & o.v.c[0];
		v.c[1] = v.c[1] & o.v.c[1];
		return this;
	}

	AML_FUNCTION AML_PREFIX(VectorU8_2D) operator&&(const AML_PREFIX(VectorU8_2D) o) {
		AML_PREFIX(VectorU8_2D) ret;
		ret.v.c[0] = v.c[0] && o.v.c[0];
		ret.v.c[1] = v.c[1] && o.v.c[1];
		return ret;
	}

	AML_FUNCTION AML_PREFIX(VectorU8_2D) *boolAnd(const AML_PREFIX(VectorU8_2D) o) {
		v.c[0] = v.c[0] && o.v.c[0];
		v.c[1] = v.c[1] && o.v.c[1];
		return this;
	}
};

class AML_PREFIX(VectorU8_4D) {
public:
	AML_PREFIX(u8vec4) v;

	AML_FUNCTION AML_PREFIX(VectorU8_4D)() {
		v.c[0] = 0;
		v.c[1] = 0;
	}

	AML_FUNCTION explicit AML_PREFIX(VectorU8_4D)(const AML_PREFIX(u8vec4) &vec) {
		v = vec;
	}


	AML_FUNCTION AML_PREFIX(VectorU8_4D)(uint8_t a, uint8_t b, uint8_t c, uint8_t d) {
		v.c[0] = a;
		v.c[1] = b;
		v.c[2] = c;
		v.c[3] = d;
	}

	AML_FUNCTION uint8_t &operator[](uint32_t location) {
		return v.c[location];
	}

	AML_FUNCTION bool anyTrue() {
		if (v.c[0]) {
			return true;
		}
		if (v.c[1]) {
			return true;
		}
		if (v.c[2]) {
			return true;
		}
		if (v.c[3]) {
			return true;
		}
		return false;
	}

	AML_FUNCTION bool anyTrue(AML_PREFIX(VectorU8_4D) mask) {
		if (v.c[0] && mask.v.c[0]) {
			return true;
		}
		if (v.c[1] && mask.v.c[1]) {
			return true;
		}
		if (v.c[2] && mask.v.c[2]) {
			return true;
		}
		if (v.c[3] && mask.v.c[3]) {
			return true;
		}
		return false;
	}

	AML_FUNCTION bool allTrue() {
		if (!v.c[0]) {
			return false;
		}
		if (!v.c[1]) {
			return false;
		}
		if (!v.c[2]) {
			return false;
		}
		if (!v.c[3]) {
			return false;
		}
		return true;
	}

	AML_FUNCTION AML_PREFIX(VectorU8_4D) operator!() {
		AML_PREFIX(VectorU8_4D) ret;
		ret.v.c[0] = !v.c[0];
		ret.v.c[1] = !v.c[1];
		ret.v.c[2] = !v.c[2];
		ret.v.c[3] = !v.c[3];
		return ret;
	}

	AML_FUNCTION AML_PREFIX(VectorU8_4D) *bitNot() {
		v.c[0] = !v.c[0];
		v.c[1] = !v.c[1];
		v.c[2] = !v.c[2];
		v.c[3] = !v.c[3];
		return this;
	}

	AML_FUNCTION AML_PREFIX(VectorU8_4D) operator&(const AML_PREFIX(VectorU8_4D) o) {
		AML_PREFIX(VectorU8_4D) ret;
		ret.v.c[0] = v.c[0] & o.v.c[0];
		ret.v.c[1] = v.c[1] & o.v.c[1];
		ret.v.c[2] = v.c[2] & o.v.c[2];
		ret.v.c[3] = v.c[3] & o.v.c[3];
		return ret;
	}

	AML_FUNCTION AML_PREFIX(VectorU8_4D) *bitAnd(const AML_PREFIX(VectorU8_4D) o) {
		v.c[0] = v.c[0] & o.v.c[0];
		v.c[1] = v.c[1] & o.v.c[1];
		v.c[2] = v.c[2] & o.v.c[2];
		v.c[3] = v.c[3] & o.v.c[3];
		return this;
	}

	AML_FUNCTION AML_PREFIX(VectorU8_4D) operator&&(const AML_PREFIX(VectorU8_4D) o) {
		AML_PREFIX(VectorU8_4D) ret;
		ret.v.c[0] = v.c[0] && o.v.c[0];
		ret.v.c[1] = v.c[1] && o.v.c[1];
		ret.v.c[2] = v.c[2] && o.v.c[2];
		ret.v.c[3] = v.c[3] && o.v.c[3];
		return ret;
	}

	AML_FUNCTION AML_PREFIX(VectorU8_4D) *boolAnd(const AML_PREFIX(VectorU8_4D) o) {
		v.c[0] = v.c[0] && o.v.c[0];
		v.c[1] = v.c[1] && o.v.c[1];
		v.c[2] = v.c[2] && o.v.c[2];
		v.c[3] = v.c[3] && o.v.c[3];
		return this;
	}
};

class AML_PREFIX(VectorU8_8D) {
public:
	AML_PREFIX(u8vec8) v{};

	AML_FUNCTION AML_PREFIX(VectorU8_8D)() {
		v.c[0] = 0;
		v.c[1] = 0;
		v.c[2] = 0;
		v.c[3] = 0;
		v.c[4] = 0;
		v.c[5] = 0;
		v.c[6] = 0;
		v.c[7] = 0;
	}

	AML_FUNCTION explicit AML_PREFIX(VectorU8_8D)(const AML_PREFIX(u8vec8) &vec) {
		v = vec;
	}


	AML_FUNCTION AML_PREFIX(VectorU8_8D)(uint8_t a, uint8_t b, uint8_t c, uint8_t d, uint8_t e, uint8_t f, uint8_t g,
										 uint8_t h) {
		v.c[0] = a;
		v.c[1] = b;
		v.c[2] = c;
		v.c[3] = d;
		v.c[4] = e;
		v.c[5] = f;
		v.c[6] = g;
		v.c[7] = h;
	}

	AML_FUNCTION uint8_t &operator[](uint32_t location) {
		return v.c[location];
	}

	AML_FUNCTION bool anyTrue() {
		if (v.c[0]) {
			return true;
		}
		if (v.c[1]) {
			return true;
		}
		if (v.c[2]) {
			return true;
		}
		if (v.c[3]) {
			return true;
		}
		if (v.c[4]) {
			return true;
		}
		if (v.c[5]) {
			return true;
		}
		if (v.c[6]) {
			return true;
		}
		if (v.c[7]) {
			return true;
		}
		return false;
	}

	AML_FUNCTION bool anyTrue(AML_PREFIX(VectorU8_8D) mask) {
		if (v.c[0] && mask.v.c[0]) {
			return true;
		}
		if (v.c[1] && mask.v.c[1]) {
			return true;
		}
		if (v.c[2] && mask.v.c[2]) {
			return true;
		}
		if (v.c[3] && mask.v.c[3]) {
			return true;
		}
		if (v.c[4] && mask.v.c[4]) {
			return true;
		}
		if (v.c[5] && mask.v.c[5]) {
			return true;
		}
		if (v.c[6] && mask.v.c[6]) {
			return true;
		}
		if (v.c[7] && mask.v.c[7]) {
			return true;
		}
		return false;
	}

	AML_FUNCTION bool allTrue() {
		if (!v.c[0]) {
			return false;
		}
		if (!v.c[1]) {
			return false;
		}
		if (!v.c[2]) {
			return false;
		}
		if (!v.c[3]) {
			return false;
		}
		if (!v.c[4]) {
			return false;
		}
		if (!v.c[5]) {
			return false;
		}
		if (!v.c[6]) {
			return false;
		}
		if (!v.c[7]) {
			return false;
		}
		return true;
	}

	AML_FUNCTION AML_PREFIX(VectorU8_8D) operator!() {
		AML_PREFIX(VectorU8_8D) ret;
		ret.v.c[0] = !v.c[0];
		ret.v.c[1] = !v.c[1];
		ret.v.c[2] = !v.c[2];
		ret.v.c[3] = !v.c[3];
		ret.v.c[4] = !v.c[4];
		ret.v.c[5] = !v.c[5];
		ret.v.c[6] = !v.c[6];
		ret.v.c[7] = !v.c[7];
		return ret;
	}

	AML_FUNCTION AML_PREFIX(VectorU8_8D) *bitNot() {
		v.c[0] = !v.c[0];
		v.c[1] = !v.c[1];
		v.c[2] = !v.c[2];
		v.c[3] = !v.c[3];
		v.c[4] = !v.c[4];
		v.c[5] = !v.c[5];
		v.c[6] = !v.c[6];
		v.c[7] = !v.c[7];
		return this;
	}

	AML_FUNCTION AML_PREFIX(VectorU8_8D) operator&(const AML_PREFIX(VectorU8_8D) o) {
		AML_PREFIX(VectorU8_8D) ret;
		ret.v.c[0] = v.c[0] & o.v.c[0];
		ret.v.c[1] = v.c[1] & o.v.c[1];
		ret.v.c[2] = v.c[2] & o.v.c[2];
		ret.v.c[3] = v.c[3] & o.v.c[3];
		ret.v.c[4] = v.c[4] & o.v.c[4];
		ret.v.c[5] = v.c[5] & o.v.c[5];
		ret.v.c[6] = v.c[6] & o.v.c[6];
		ret.v.c[7] = v.c[7] & o.v.c[7];
		return ret;
	}

	AML_FUNCTION AML_PREFIX(VectorU8_8D) *bitAnd(const AML_PREFIX(VectorU8_8D) o) {
		v.c[0] = v.c[0] & o.v.c[0];
		v.c[1] = v.c[1] & o.v.c[1];
		v.c[2] = v.c[2] & o.v.c[2];
		v.c[3] = v.c[3] & o.v.c[3];
		v.c[4] = v.c[4] & o.v.c[4];
		v.c[5] = v.c[5] & o.v.c[5];
		v.c[6] = v.c[6] & o.v.c[6];
		v.c[7] = v.c[7] & o.v.c[7];
		return this;
	}

	AML_FUNCTION AML_PREFIX(VectorU8_8D) operator&&(const AML_PREFIX(VectorU8_8D) o) {
		AML_PREFIX(VectorU8_8D) ret;
		ret.v.c[0] = v.c[0] && o.v.c[0];
		ret.v.c[1] = v.c[1] && o.v.c[1];
		ret.v.c[2] = v.c[2] && o.v.c[2];
		ret.v.c[3] = v.c[3] && o.v.c[3];
		ret.v.c[4] = v.c[4] && o.v.c[4];
		ret.v.c[5] = v.c[5] && o.v.c[5];
		ret.v.c[6] = v.c[6] && o.v.c[6];
		ret.v.c[7] = v.c[7] && o.v.c[7];
		return ret;
	}

	AML_FUNCTION AML_PREFIX(VectorU8_8D) *boolAnd(AML_PREFIX(VectorU8_8D) o) {
		v.c[0] = v.c[0] && o.v.c[0];
		v.c[1] = v.c[1] && o.v.c[1];
		v.c[2] = v.c[2] && o.v.c[2];
		v.c[3] = v.c[3] && o.v.c[3];
		v.c[4] = v.c[4] && o.v.c[4];
		v.c[5] = v.c[5] && o.v.c[5];
		v.c[6] = v.c[6] && o.v.c[6];
		v.c[7] = v.c[7] && o.v.c[7];
		return this;
	}
};

#include "amllahead.h"

#include "amlcomplexhead.h"

class AML_PREFIX(Array2Complex64) {
public:
	AML_PREFIX(doublevec2) r{};
	AML_PREFIX(doublevec2) i{};

	AML_FUNCTION AML_PREFIX(Array2Complex64)() {}

	AML_FUNCTION AML_PREFIX(Array2Complex64)(const AML_PREFIX(Complex64) value) {
		r.c[0] = value.c.c[0];
		i.c[0] = value.c.c[1];
		r.c[1] = value.c.c[0];
		i.c[1] = value.c.c[1];
	}


	AML_FUNCTION AML_PREFIX(Vector2D_64) real() {
		return AML_PREFIX(Vector2D_64)(r.c);
	}

	AML_FUNCTION AML_PREFIX(Vector2D_64) complex() {
		return AML_PREFIX(Vector2D_64)(i.c);
	}

	AML_FUNCTION AML_PREFIX(Complex64) operator[](uint64_t location) {
		return AML_PREFIX(Complex64)(r.c[location], i.c[location]);
	}

	AML_FUNCTION void set(uint64_t location, AML_PREFIX(Complex64) value) {
		r.c[location] = value.c.c[0];
		i.c[location] = value.c.c[1];
	}

	AML_FUNCTION AML_PREFIX(Array2Complex64) *add(const AML_PREFIX(Array2Complex64) a) {
		i.c[0] += a.i.c[0];
		i.c[1] += a.i.c[1];
		r.c[0] += a.r.c[0];
		r.c[1] += a.r.c[1];
		return this;
	}

	AML_FUNCTION AML_PREFIX(Array2Complex64) *add(const AML_PREFIX(Complex64) a) {
		i.c[0] += a.c.c[1];
		i.c[1] += a.c.c[1];
		r.c[0] += a.c.c[0];
		r.c[1] += a.c.c[0];
		return this;
	}

	AML_FUNCTION void operator+=(const AML_PREFIX(Array2Complex64) a) {
		i.c[0] += a.i.c[0];
		i.c[1] += a.i.c[1];
		r.c[0] += a.r.c[0];
		r.c[1] += a.r.c[1];
	}

	AML_FUNCTION void operator+=(const AML_PREFIX(Complex64) a) {
		i.c[0] += a.c.c[1];
		i.c[1] += a.c.c[1];
		r.c[0] += a.c.c[0];
		r.c[1] += a.c.c[0];
	}


	AML_FUNCTION AML_PREFIX(Array2Complex64) operator+(const AML_PREFIX(Array2Complex64) a) const {
		AML_PREFIX(Array2Complex64) ret;
		ret.i.c[0] = i.c[0] + a.i.c[0];
		ret.i.c[1] = i.c[1] + a.i.c[1];
		ret.r.c[0] = r.c[0] + a.r.c[0];
		ret.r.c[1] = r.c[1] + a.r.c[1];
		return ret;
	}

	AML_FUNCTION AML_PREFIX(Array2Complex64) operator+(const AML_PREFIX(Complex64) a) const {
		AML_PREFIX(Array2Complex64) ret;
		ret.i.c[0] = i.c[0] + a.c.c[1];
		ret.i.c[1] = i.c[1] + a.c.c[1];
		ret.r.c[0] = r.c[0] + a.c.c[0];
		ret.r.c[1] = r.c[1] + a.c.c[0];
		return ret;
	}

	AML_FUNCTION AML_PREFIX(Array2Complex64) *add(const AML_PREFIX(Array2Complex64) a, AML_PREFIX(VectorU8_2D) mask) {
		if (mask.v.c[0]) {
			i.c[0] += a.i.c[0];
			r.c[0] += a.r.c[0];
		}
		if (mask.v.c[1]) {
			i.c[1] += a.i.c[1];
			r.c[1] += a.r.c[1];
		}
		return this;
	}

	AML_FUNCTION AML_PREFIX(Array2Complex64) *add(const AML_PREFIX(Complex64) a, AML_PREFIX(VectorU8_2D) mask) {
		if (mask.v.c[0]) {
			i.c[0] += a.c.c[1];
			r.c[0] += a.c.c[0];
		}
		if (mask.v.c[1]) {
			i.c[1] += a.c.c[1];
			r.c[1] += a.c.c[0];
		}
		return this;
	}


	AML_FUNCTION AML_PREFIX(Array2Complex64) *subtract(const AML_PREFIX(Array2Complex64) a) {
		i.c[0] -= a.i.c[0];
		i.c[1] -= a.i.c[1];
		r.c[0] -= a.r.c[0];
		r.c[1] -= a.r.c[1];
		return this;
	}

	AML_FUNCTION AML_PREFIX(Array2Complex64) *subtract(const AML_PREFIX(Complex64) a) {
		i.c[0] -= a.c.c[1];
		i.c[1] -= a.c.c[1];
		r.c[0] -= a.c.c[0];
		r.c[1] -= a.c.c[0];
		return this;
	}

	AML_FUNCTION void operator-=(const AML_PREFIX(Array2Complex64) a) {
		i.c[0] -= a.i.c[0];
		i.c[1] -= a.i.c[1];
		r.c[0] -= a.r.c[0];
		r.c[1] -= a.r.c[1];
	}

	AML_FUNCTION void operator-=(const AML_PREFIX(Complex64) a) {
		i.c[0] -= a.c.c[1];
		i.c[1] -= a.c.c[1];
		r.c[0] -= a.c.c[0];
		r.c[1] -= a.c.c[0];
	}

	AML_FUNCTION AML_PREFIX(Array2Complex64) operator-(const AML_PREFIX(Array2Complex64) a) const {
		AML_PREFIX(Array2Complex64) ret;
		ret.i.c[0] = i.c[0] - a.i.c[0];
		ret.i.c[1] = i.c[1] - a.i.c[1];
		ret.r.c[0] = r.c[0] - a.r.c[0];
		ret.r.c[1] = r.c[1] - a.r.c[1];
		return ret;
	}

	AML_FUNCTION AML_PREFIX(Array2Complex64) operator-(const AML_PREFIX(Complex64) a) const {
		AML_PREFIX(Array2Complex64) ret;
		ret.i.c[0] = i.c[0] - a.c.c[1];
		ret.i.c[1] = i.c[1] - a.c.c[1];
		ret.r.c[0] = r.c[0] - a.c.c[0];
		ret.r.c[1] = r.c[1] - a.c.c[0];
		return ret;
	}

	AML_FUNCTION AML_PREFIX(Array2Complex64) *
	subtract(const AML_PREFIX(Array2Complex64) a, AML_PREFIX(VectorU8_2D) mask) {
		if (mask.v.c[0]) {
			i.c[0] -= a.i.c[0];
			r.c[0] -= a.r.c[0];
		}
		if (mask.v.c[1]) {
			i.c[1] -= a.i.c[1];
			r.c[1] -= a.r.c[1];
		}
		return this;
	}

	AML_FUNCTION AML_PREFIX(Array2Complex64) *subtract(const AML_PREFIX(Complex64) a, AML_PREFIX(VectorU8_2D) mask) {
		if (mask.v.c[0]) {
			i.c[0] -= a.c.c[1];
			r.c[0] -= a.c.c[0];
		}
		if (mask.v.c[1]) {
			i.c[1] -= a.c.c[1];
			r.c[1] -= a.c.c[0];
		}
		return this;
	}


	AML_FUNCTION AML_PREFIX(Array2Complex64) operator*(const AML_PREFIX(Array2Complex64) &a) const {
		AML_PREFIX(Array2Complex64) ret;
		ret.r.c[0] = r.c[0] * a.r.c[0] - i.c[0] * a.i.c[0];
		ret.i.c[0] = r.c[0] * a.i.c[0] + i.c[0] * a.r.c[0];
		ret.r.c[1] = r.c[1] * a.r.c[1] - i.c[1] * a.i.c[1];
		ret.i.c[1] = r.c[1] * a.i.c[1] + i.c[1] * a.r.c[1];


		return ret;
	}

	AML_FUNCTION AML_PREFIX(Array2Complex64) *multiply(const AML_PREFIX(Array2Complex64) &a) {
		double d1;
		double d2;
		d1 = r.c[0] * a.r.c[0] - i.c[0] * a.i.c[0];
		d2 = r.c[0] * a.i.c[0] + i.c[0] * a.r.c[0];
		r.c[0] = d1;
		i.c[0] = d2;

		d1 = r.c[1] * a.r.c[1] - i.c[1] * a.i.c[1];
		d2 = r.c[1] * a.i.c[1] + i.c[1] * a.r.c[1];
		r.c[1] = d1;
		i.c[1] = d2;
		return this;
	}

	AML_FUNCTION AML_PREFIX(Array2Complex64) operator*(const AML_PREFIX(Complex64) &a) const {
		AML_PREFIX(Array2Complex64) ret;
		ret.r.c[0] = r.c[0] * a.c.c[0] - i.c[0] * a.c.c[1];
		ret.i.c[0] = r.c[0] * a.c.c[1] + i.c[0] * a.c.c[0];
		ret.r.c[1] = r.c[1] * a.c.c[0] - i.c[1] * a.c.c[1];
		ret.i.c[1] = r.c[1] * a.c.c[1] + i.c[1] * a.c.c[0];

		return ret;
	}

	AML_FUNCTION void operator*=(const AML_PREFIX(Array2Complex64) &a) {
		double d1;
		double d2;
		d1 = r.c[0] * a.r.c[0] - i.c[0] * a.i.c[0];
		d2 = r.c[0] * a.i.c[0] + i.c[0] * a.r.c[0];
		r.c[0] = d1;
		i.c[0] = d2;

		d1 = r.c[1] * a.r.c[1] - i.c[1] * a.i.c[1];
		d2 = r.c[1] * a.i.c[1] + i.c[1] * a.r.c[1];
	}

	AML_FUNCTION void operator*=(const AML_PREFIX(Complex64) &a) {
		double d1;
		double d2;
		d1 = r.c[0] * a.c.c[0] - i.c[0] * a.c.c[1];
		d2 = r.c[0] * a.c.c[1] + i.c[0] * a.c.c[0];
		r.c[0] = d1;
		i.c[0] = d2;
		d1 = r.c[1] * a.c.c[0] - i.c[1] * a.c.c[1];
		d2 = r.c[1] * a.c.c[1] + i.c[1] * a.c.c[0];
		r.c[1] = d1;
		i.c[1] = d2;
	}

	AML_FUNCTION AML_PREFIX(Array2Complex64) *multiply(const AML_PREFIX(Complex64) &a) {
		double d1;
		double d2;
		d1 = r.c[0] * a.c.c[0] - i.c[0] * a.c.c[1];
		d2 = r.c[0] * a.c.c[1] + i.c[0] * a.c.c[0];
		r.c[0] = d1;
		i.c[0] = d2;
		d1 = r.c[1] * a.c.c[0] - i.c[1] * a.c.c[1];
		d2 = r.c[1] * a.c.c[1] + i.c[1] * a.c.c[0];
		r.c[1] = d1;
		i.c[1] = d2;
		return this;
	}

	AML_FUNCTION AML_PREFIX(Array2Complex64) *
	multiply(const AML_PREFIX(Complex64) &a, const AML_PREFIX(VectorU8_2D) &mask) {
		double d1;
		double d2;
		if (mask.v.c[0]) {
			d1 = r.c[0] * a.c.c[0] - i.c[0] * a.c.c[1];
			d2 = r.c[0] * a.c.c[1] + i.c[0] * a.c.c[0];
			r.c[0] = d1;
			i.c[0] = d2;
		}
		if (mask.v.c[1]) {
			d1 = r.c[1] * a.c.c[0] - i.c[1] * a.c.c[1];
			d2 = r.c[1] * a.c.c[1] + i.c[1] * a.c.c[0];
			r.c[1] = d1;
			i.c[1] = d2;
		}
		return this;


	}

	AML_FUNCTION AML_PREFIX(Array2Complex64) *
	multiply(const AML_PREFIX(Array2Complex64) &a, const AML_PREFIX(VectorU8_2D) &mask) {
		double d1;
		double d2;
		if (mask.v.c[0]) {
			d1 = r.c[0] * a.r.c[0] - i.c[0] * a.i.c[0];
			d2 = r.c[0] * a.i.c[0] + i.c[0] * a.r.c[0];
			r.c[0] = d1;
			i.c[0] = d2;
		}
		if (mask.v.c[1]) {
			d1 = r.c[1] * a.r.c[1] - i.c[1] * a.i.c[1];
			d2 = r.c[1] * a.i.c[1] + i.c[1] * a.r.c[1];
			r.c[1] = d1;
			i.c[1] = d2;
		}
		return this;
	}

	AML_FUNCTION AML_PREFIX(Array2Complex64) *square() {
		double d1;
		double d2;
		d1 = r.c[0] * r.c[0] - i.c[0] * i.c[0];
		d2 = r.c[0] * i.c[0] + i.c[0] * r.c[0];
		r.c[0] = d1;
		i.c[0] = d2;
		d1 = r.c[1] * r.c[1] - i.c[1] * i.c[1];
		d2 = r.c[1] * i.c[1] + i.c[1] * r.c[1];
		r.c[1] = d1;
		i.c[1] = d2;
		return this;
	}

	AML_FUNCTION AML_PREFIX(Array2Complex64) *square(const AML_PREFIX(VectorU8_2D) &mask) {
		double d1;
		double d2;
		if (mask.v.c[0]) {
			d1 = r.c[0] * r.c[0] - i.c[0] * i.c[0];
			d2 = r.c[0] * i.c[0] + i.c[0] * r.c[0];
			r.c[0] = d1;
			i.c[0] = d2;
		}
		if (mask.v.c[1]) {
			d1 = r.c[1] * r.c[1] - i.c[1] * i.c[1];
			d2 = r.c[1] * i.c[1] + i.c[1] * r.c[1];
			r.c[1] = d1;
			i.c[1] = d2;
		}
		return this;
	}

	AML_FUNCTION AML_PREFIX(Array2Complex64) *divide(const AML_PREFIX(Complex64) a) {
		double d1 = (r.c[0] * a.c.c[0] + i.c[0] * a.c.c[1]) / (a.c.c[0] * a.c.c[0] + a.c.c[1] * a.c.c[1]);
		double d2 = (i.c[0] * a.c.c[0] - r.c[0] * a.c.c[1]) / (a.c.c[0] * a.c.c[0] + a.c.c[1] * a.c.c[1]);
		r.c[0] = d1;
		i.c[0] = d2;
		d1 = (r.c[1] * a.c.c[0] + i.c[1] * a.c.c[1]) / (a.c.c[0] * a.c.c[0] + a.c.c[1] * a.c.c[1]);
		d2 = (i.c[1] * a.c.c[0] - r.c[1] * a.c.c[1]) / (a.c.c[0] * a.c.c[0] + a.c.c[1] * a.c.c[1]);
		r.c[1] = d1;
		i.c[1] = d2;
		return this;
	}

	AML_FUNCTION AML_PREFIX(Array2Complex64) *
	divide(const AML_PREFIX(Complex64) a, const AML_PREFIX(VectorU8_2D) &mask) {
		double d1;
		double d2;
		if (mask.v.c[0]) {
			d1 = (r.c[0] * a.c.c[0] + i.c[0] * a.c.c[1]) / (a.c.c[0] * a.c.c[0] + a.c.c[1] * a.c.c[1]);
			d2 = (i.c[0] * a.c.c[0] - r.c[0] * a.c.c[1]) / (a.c.c[0] * a.c.c[0] + a.c.c[1] * a.c.c[1]);
			r.c[0] = d1;
			i.c[0] = d2;
		}
		if (mask.v.c[1]) {
			d1 = (r.c[1] * a.c.c[0] + i.c[1] * a.c.c[1]) / (a.c.c[0] * a.c.c[0] + a.c.c[1] * a.c.c[1]);
			d2 = (i.c[1] * a.c.c[0] - r.c[1] * a.c.c[1]) / (a.c.c[0] * a.c.c[0] + a.c.c[1] * a.c.c[1]);
			r.c[1] = d1;
			i.c[1] = d2;
		}
		return this;
	}

	AML_FUNCTION AML_PREFIX(Array2Complex64) *divide(const AML_PREFIX(Array2Complex64) &a) {
		double d1 = (r.c[0] * a.r.c[0] + i.c[0] * a.i.c[0]) / (a.r.c[0] * a.r.c[0] + a.i.c[0] * a.i.c[0]);
		double d2 = (i.c[0] * a.r.c[0] - r.c[0] * a.i.c[0]) / (a.r.c[0] * a.r.c[0] + a.i.c[0] * a.i.c[0]);
		r.c[0] = d1;
		i.c[0] = d2;
		d1 = (r.c[1] * a.r.c[1] + i.c[1] * a.i.c[1]) / (a.r.c[1] * a.r.c[1] + a.i.c[1] * a.i.c[1]);
		d2 = (i.c[1] * a.r.c[1] - r.c[1] * a.i.c[1]) / (a.r.c[1] * a.r.c[1] + a.i.c[1] * a.i.c[1]);
		r.c[1] = d1;
		i.c[1] = d2;
		return this;
	}

	AML_FUNCTION AML_PREFIX(Array2Complex64) *
	divide(const AML_PREFIX(Array2Complex64) &a, const AML_PREFIX(VectorU8_2D) &mask) {
		double d1;
		double d2;
		if (mask.v.c[0]) {
			d1 = (r.c[0] * a.i.c[0] + i.c[0] * a.i.c[1]) / (a.i.c[0] * a.i.c[0] + a.i.c[1] * a.i.c[1]);
			d2 = (i.c[0] * a.i.c[0] - r.c[0] * a.i.c[1]) / (a.i.c[0] * a.i.c[0] + a.i.c[1] * a.i.c[1]);
			r.c[0] = d1;
			i.c[0] = d2;
		}
		if (mask.v.c[1]) {
			d1 = (r.c[1] * a.r.c[1] + i.c[1] * a.i.c[1]) / (a.r.c[1] * a.r.c[1] + a.i.c[1] * a.i.c[1]);
			d2 = (i.c[1] * a.r.c[1] - r.c[1] * a.i.c[1]) / (a.r.c[1] * a.r.c[1] + a.i.c[1] * a.i.c[1]);
			r.c[1] = d1;
			i.c[1] = d2;
		}
		return this;
	}

	AML_FUNCTION AML_PREFIX(Array2Complex64) operator/(const AML_PREFIX(Complex64) &a) const {
		AML_PREFIX(Array2Complex64) ret;
		double d1 = (r.c[0] * a.c.c[0] + i.c[0] * a.c.c[1]) / (a.c.c[0] * a.c.c[0] + a.c.c[1] * a.c.c[1]);
		double d2 = (i.c[0] * a.c.c[0] - r.c[0] * a.c.c[1]) / (a.c.c[0] * a.c.c[0] + a.c.c[1] * a.c.c[1]);
		ret.r.c[0] = d1;
		ret.i.c[0] = d2;
		d1 = (r.c[1] * a.c.c[0] + i.c[1] * a.c.c[1]) / (a.c.c[0] * a.c.c[0] + a.c.c[1] * a.c.c[1]);
		d2 = (i.c[1] * a.c.c[0] - r.c[1] * a.c.c[1]) / (a.c.c[0] * a.c.c[0] + a.c.c[1] * a.c.c[1]);
		ret.r.c[1] = d1;
		ret.i.c[1] = d2;
		return ret;
	}

	AML_FUNCTION AML_PREFIX(Array2Complex64) operator/(const AML_PREFIX(Array2Complex64) &a) const {
		AML_PREFIX(Array2Complex64) ret;
		double d1 = (r.c[0] * a.r.c[0] + i.c[0] * a.i.c[0]) / (a.r.c[0] * a.r.c[0] + a.i.c[0] * a.i.c[0]);
		double d2 = (i.c[0] * a.r.c[0] - r.c[0] * a.i.c[0]) / (a.r.c[0] * a.r.c[0] + a.i.c[0] * a.i.c[0]);
		ret.r.c[0] = d1;
		ret.i.c[0] = d2;
		d1 = (r.c[1] * a.r.c[1] + i.c[1] * a.i.c[1]) / (a.r.c[1] * a.r.c[1] + a.i.c[1] * a.i.c[1]);
		d2 = (i.c[1] * a.r.c[1] - r.c[1] * a.i.c[1]) / (a.r.c[1] * a.r.c[1] + a.i.c[1] * a.i.c[1]);
		ret.r.c[1] = d1;
		ret.i.c[1] = d2;
		return ret;
	}

	AML_FUNCTION void operator/=(const AML_PREFIX(Complex64) &a) {
		double d1 = (r.c[0] * a.c.c[0] + i.c[0] * a.c.c[1]) / (a.c.c[0] * a.c.c[0] + a.c.c[1] * a.c.c[1]);
		double d2 = (i.c[0] * a.c.c[0] - r.c[0] * a.c.c[1]) / (a.c.c[0] * a.c.c[0] + a.c.c[1] * a.c.c[1]);
		r.c[0] = d1;
		i.c[0] = d2;
		d1 = (r.c[1] * a.c.c[0] + i.c[1] * a.c.c[1]) / (a.c.c[0] * a.c.c[0] + a.c.c[1] * a.c.c[1]);
		d2 = (i.c[1] * a.c.c[0] - r.c[1] * a.c.c[1]) / (a.c.c[0] * a.c.c[0] + a.c.c[1] * a.c.c[1]);
		r.c[1] = d1;
		i.c[1] = d2;
	}

	AML_FUNCTION void operator/=(const AML_PREFIX(Array2Complex64) &a) {
		double d1 = (r.c[0] * a.r.c[0] + i.c[0] * a.i.c[0]) / (a.r.c[0] * a.r.c[0] + a.i.c[0] * a.i.c[0]);
		double d2 = (i.c[0] * a.r.c[0] - r.c[0] * a.i.c[0]) / (a.r.c[0] * a.r.c[0] + a.i.c[0] * a.i.c[0]);
		r.c[0] = d1;
		i.c[0] = d2;
		d1 = (r.c[1] * a.r.c[1] + i.c[1] * a.i.c[1]) / (a.r.c[1] * a.r.c[1] + a.i.c[1] * a.i.c[1]);
		d2 = (i.c[1] * a.r.c[1] - r.c[1] * a.i.c[1]) / (a.r.c[1] * a.r.c[1] + a.i.c[1] * a.i.c[1]);
		r.c[1] = d1;
		i.c[1] = d2;
	}

	AML_FUNCTION AML_PREFIX(Array2Complex64) *sqrt() {
		double d1;
		double d2;
		d2 = ::sqrt((-r.c[0] + ::sqrt(r.c[0] * r.c[0] + i.c[0] * i.c[0])) / (2));
		if (d2 == 0) UNLIKELY {
			d1 = ::sqrt(r.c[0]);
		} else LIKELY {
			d1 = i.c[0] / (2 * d2);
		}
		r.c[0] = d1;
		i.c[0] = d2;
		d2 = ::sqrt((-r.c[1] + ::sqrt(r.c[1] * r.c[1] + i.c[1] * i.c[1])) / (2));
		if (d2 == 0) UNLIKELY {
			d1 = ::sqrt(r.c[1]);
		} else LIKELY {
			d1 = i.c[1] / (2 * d2);
		}
		r.c[1] = d1;
		i.c[1] = d2;
		return this;
	}

	AML_FUNCTION AML_PREFIX(Array2Complex64) *sqrt(const AML_PREFIX(VectorU8_2D) mask) {
		double d1;
		double d2;
		if (mask.v.c[0]) {
			d2 = ::sqrt((-r.c[0] + ::sqrt(r.c[0] * r.c[0] + i.c[0] * i.c[0])) / (2));
			if (d2 == 0) UNLIKELY {
				d1 = ::sqrt(r.c[0]);
			} else LIKELY {
				d1 = i.c[0] / (2 * d2);
			}
			r.c[0] = d1;
			i.c[0] = d2;
		}
		if (mask.v.c[1]) {
			d2 = ::sqrt((-r.c[1] + ::sqrt(r.c[1] * r.c[1] + i.c[1] * i.c[1])) / (2));
			if (d2 == 0) UNLIKELY {
				d1 = ::sqrt(r.c[1]);
			} else LIKELY {
				d1 = i.c[1] / (2 * d2);
			}
			r.c[1] = d1;
			i.c[1] = d2;
		}
		return this;
	}

	AML_FUNCTION AML_PREFIX(Array2Complex64) *sin() {
		double d1;
		double d2;
		d1 = ::sin(r.c[0]) * ::cosh(i.c[0]);
		d2 = ::cos(i.c[0]) * ::sinh(r.c[0]);
		r.c[0] = d1;
		i.c[0] = d2;
		d1 = ::sin(r.c[1]) * ::cosh(i.c[1]);
		d2 = ::cos(i.c[1]) * ::sinh(r.c[1]);
		r.c[1] = d1;
		i.c[1] = d2;
		return this;
	}

	AML_FUNCTION AML_PREFIX(Array2Complex64) *cos() {
		double d1;
		double d2;
		d1 = ::cos(r.c[0]) * ::cosh(i.c[0]);
		d2 = -::sin(i.c[0]) * ::sinh(r.c[0]);
		r.c[0] = d1;
		i.c[0] = d2;
		d1 = ::cos(r.c[1]) * ::cosh(i.c[1]);
		d2 = -::sin(i.c[1]) * ::sinh(r.c[1]);
		r.c[1] = d1;
		i.c[1] = d2;
		return this;
	}

	AML_FUNCTION AML_PREFIX(Array2Complex64) *tan() {
		double d1;
		double d2;
		d1 = ::sin(r.c[0] + r.c[0]) / (::cos(r.c[0] + r.c[0]) * ::cosh(i.c[0] + i.c[0]));
		d2 = ::sinh(i.c[0] + i.c[0]) / (::cos(r.c[0] + r.c[0]) * ::cosh(i.c[0] + i.c[0]));
		r.c[0] = d1;
		i.c[0] = d2;
		d1 = ::sin(r.c[1] + r.c[1]) / (::cos(r.c[1] + r.c[1]) * ::cosh(i.c[1] + i.c[1]));
		d2 = ::sinh(i.c[1] + i.c[1]) / (::cos(r.c[1] + r.c[1]) * ::cosh(i.c[1] + i.c[1]));
		r.c[1] = d1;
		i.c[1] = d2;
		return this;
	}

	AML_FUNCTION AML_PREFIX(Array2Complex64) *sin(const AML_PREFIX(VectorU8_2D) mask) {
		double d1;
		double d2;
		if (mask.v.c[0]) {
			d1 = ::sin(r.c[0]) * ::cosh(i.c[0]);
			d2 = ::cos(i.c[0]) * ::sinh(r.c[0]);
			r.c[0] = d1;
			i.c[0] = d2;
		}
		if (mask.v.c[1]) {
			d1 = ::sin(r.c[1]) * ::cosh(i.c[1]);
			d2 = ::cos(i.c[1]) * ::sinh(r.c[1]);
			r.c[1] = d1;
			i.c[1] = d2;
		}
		return this;
	}

	AML_FUNCTION AML_PREFIX(Array2Complex64) *cos(const AML_PREFIX(VectorU8_2D) mask) {
		double d1;
		double d2;
		if (mask.v.c[0]) {
			d1 = ::cos(r.c[0]) * ::cosh(i.c[0]);
			d2 = -::sin(i.c[0]) * ::sinh(r.c[0]);
			r.c[0] = d1;
			i.c[0] = d2;
		}
		if (mask.v.c[1]) {
			d1 = ::cos(r.c[1]) * ::cosh(i.c[1]);
			d2 = -::sin(i.c[1]) * ::sinh(r.c[1]);
			r.c[1] = d1;
			i.c[1] = d2;
		}
		return this;
	}

	AML_FUNCTION AML_PREFIX(Array2Complex64) *tan(const AML_PREFIX(VectorU8_2D) mask) {
		double d1;
		double d2;
		if (mask.v.c[0]) {
			d1 = ::sin(r.c[0] + r.c[0]) / (::cos(r.c[0] + r.c[0]) * ::cosh(i.c[0] + i.c[0]));
			d2 = ::sinh(i.c[0] + i.c[0]) / (::cos(r.c[0] + r.c[0]) * ::cosh(i.c[0] + i.c[0]));
			r.c[0] = d1;
			i.c[0] = d2;
		}
		if (mask.v.c[1]) {
			d1 = ::sin(r.c[1] + r.c[1]) / (::cos(r.c[1] + r.c[1]) * ::cosh(i.c[1] + i.c[1]));
			d2 = ::sinh(i.c[1] + i.c[1]) / (::cos(r.c[1] + r.c[1]) * ::cosh(i.c[1] + i.c[1]));
			r.c[1] = d1;
			i.c[1] = d2;
		}
		return this;
	}

	AML_FUNCTION AML_PREFIX(Array2Complex64) *exp() {
		double d1 = ::exp(r.c[0]) * ::cos(i.c[0]);
		double d2 = ::exp(r.c[0]) * ::sin(i.c[0]);
		r.c[0] = d1;
		i.c[0] = d2;
		d1 = ::exp(r.c[1]) * ::cos(i.c[1]);
		d2 = ::exp(r.c[1]) * ::sin(i.c[1]);
		r.c[1] = d1;
		i.c[1] = d2;
		return this;
	}

	AML_FUNCTION AML_PREFIX(Array2Complex64) *exp(double n) {
		double d1 = ::pow(n, r.c[0]) * ::cos(i.c[0] * ::log(n));
		double d2 = ::pow(n, r.c[0]) * ::sin(i.c[0] * ::log(n));
		r.c[0] = d1;
		i.c[0] = d2;
		d1 = ::pow(n, r.c[1]) * ::cos(i.c[1] * ::log(n));
		d2 = ::pow(n, r.c[1]) * ::sin(i.c[1] * ::log(n));
		r.c[1] = d1;
		i.c[1] = d2;
		return this;
	}

	AML_FUNCTION AML_PREFIX(Array2Complex64) *exp(const AML_PREFIX(VectorU8_2D) &mask) {
		double d1;
		double d2;
		if (mask.v.c[0]) {
			d1 = ::exp(r.c[0]) * ::cos(i.c[0]);
			d2 = ::exp(r.c[0]) * ::sin(i.c[0]);
			r.c[0] = d1;
			i.c[0] = d2;
		}
		if (mask.v.c[1]) {
			d1 = ::exp(r.c[1]) * ::cos(i.c[1]);
			d2 = ::exp(r.c[1]) * ::sin(i.c[1]);
			r.c[1] = d1;
			i.c[1] = d2;
		}
		return this;
	}

	AML_FUNCTION AML_PREFIX(Array2Complex64) *exp(double n, const AML_PREFIX(VectorU8_2D) &mask) {
		double d1;
		double d2;
		if (mask.v.c[0]) {
			d1 = ::pow(n, r.c[0]) * ::cos(i.c[0] * ::log(n));
			d2 = ::pow(n, r.c[0]) * ::sin(i.c[0] * ::log(n));
			r.c[0] = d1;
			i.c[0] = d2;
		}
		if (mask.v.c[1]) {
			d1 = ::pow(n, r.c[1]) * ::cos(i.c[1] * ::log(n));
			d2 = ::pow(n, r.c[1]) * ::sin(i.c[1] * ::log(n));
			r.c[1] = d1;
			i.c[1] = d2;
		}
		return this;
	}

	AML_FUNCTION AML_PREFIX(Array2Complex64) *pow(const AML_PREFIX(Array2Complex64) n) {
		double d1 = ::log(i.c[0] * i.c[0] + r.c[0] * r.c[0]) / 2;
		double d2 = ::atan2(r.c[0], i.c[0]);
		double d3 = ::exp(d1 * n.i.c[0] - d2 * n.r.c[0]);
		double d4 = d1 * n.r.c[0] + d2 * n.i.c[0];
		double d5 = d3 * ::cos(d4);
		double d6 = d3 * ::sin(d4);
		i.c[0] = d5;
		r.c[0] = d6;
		d1 = ::log(i.c[1] * i.c[1] + r.c[1] * r.c[1]) / 2;
		d2 = ::atan2(r.c[1], i.c[1]);
		d3 = ::exp(d1 * n.i.c[1] - d2 * n.r.c[1]);
		d4 = d1 * n.r.c[1] + d2 * n.i.c[1];
		d5 = d3 * ::cos(d4);
		d6 = d3 * ::sin(d4);
		i.c[1] = d5;
		r.c[1] = d6;
		return this;
	}


	AML_FUNCTION AML_PREFIX(Array2Complex64) *pow(const AML_PREFIX(Complex64) n) {
		double d1 = ::log(i.c[0] * i.c[0] + r.c[0] * r.c[0]) / 2;
		double d2 = ::atan2(r.c[0], i.c[0]);
		double d3 = ::exp(d1 * n.c.c[0] - d2 * n.c.c[1]);
		double d4 = d1 * n.c.c[1] + d2 * n.c.c[0];
		double d5 = d3 * ::cos(d4);
		double d6 = d3 * ::sin(d4);
		i.c[0] = d5;
		r.c[0] = d6;
		d1 = ::log(i.c[1] * i.c[1] + r.c[1] * r.c[1]) / 2;
		d2 = ::atan2(r.c[1], i.c[1]);
		d3 = ::exp(d1 * n.c.c[0] - d2 * n.c.c[1]);
		d4 = d1 * n.c.c[1] + d2 * n.c.c[0];
		d5 = d3 * ::cos(d4);
		d6 = d3 * ::sin(d4);
		i.c[1] = d5;
		r.c[1] = d6;
		return this;
	}

	AML_FUNCTION AML_PREFIX(Array2Complex64) *
	pow(const AML_PREFIX(Array2Complex64) n, const AML_PREFIX(VectorU8_2D) &mask) {
		double d1;
		double d2;
		double d3;
		double d4;
		double d5;
		double d6;
		if (mask.v.c[0]) {
			d1 = ::log(i.c[0] * i.c[0] + r.c[0] * r.c[0]) / 2;
			d2 = ::atan2(r.c[0], i.c[0]);
			d3 = ::exp(d1 * n.i.c[0] - d2 * n.r.c[0]);
			d4 = d1 * n.r.c[0] + d2 * n.i.c[0];
			d5 = d3 * ::cos(d4);
			d6 = d3 * ::sin(d4);
			i.c[0] = d5;
			r.c[0] = d6;
		}
		if (mask.v.c[1]) {
			d1 = ::log(i.c[1] * i.c[1] + r.c[1] * r.c[1]) / 2;
			d2 = ::atan2(r.c[1], i.c[1]);
			d3 = ::exp(d1 * n.i.c[1] - d2 * n.r.c[1]);
			d4 = d1 * n.r.c[1] + d2 * n.i.c[1];
			d5 = d3 * ::cos(d4);
			d6 = d3 * ::sin(d4);
			i.c[1] = d5;
			r.c[1] = d6;
		}
		return this;
	}


	AML_FUNCTION AML_PREFIX(Array2Complex64) *pow(const AML_PREFIX(Complex64) n, const AML_PREFIX(VectorU8_2D) &mask) {
		double d1;
		double d2;
		double d3;
		double d4;
		double d5;
		double d6;
		if (mask.v.c[0]) {
			d1 = ::log(i.c[0] * i.c[0] + r.c[0] * r.c[0]) / 2;
			d2 = ::atan2(r.c[0], i.c[0]);
			d3 = ::exp(d1 * n.c.c[0] - d2 * n.c.c[1]);
			d4 = d1 * n.c.c[1] + d2 * n.c.c[0];
			d5 = d3 * ::cos(d4);
			d6 = d3 * ::sin(d4);
			i.c[0] = d5;
			r.c[0] = d6;
		}
		if (mask.v.c[1]) {
			d1 = ::log(i.c[1] * i.c[1] + r.c[1] * r.c[1]) / 2;
			d2 = ::atan2(r.c[1], i.c[1]);
			d3 = ::exp(d1 * n.c.c[0] - d2 * n.c.c[1]);
			d4 = d1 * n.c.c[1] + d2 * n.c.c[0];
			d5 = d3 * ::cos(d4);
			d6 = d3 * ::sin(d4);
			i.c[1] = d5;
			r.c[1] = d6;
		}
		return this;
	}


	AML_FUNCTION AML_PREFIX(Array2Complex64) *pow(double n) {
		double d1;
		double d2;
		d1 = ::pow(r.c[0] * r.c[0] + i.c[0] * i.c[0], n / 2) * ::cos(n * atan2(i.c[0], r.c[0]));
		d2 = ::pow(r.c[0] * r.c[0] + i.c[0] * i.c[0], n / 2) * ::sin(n * atan2(i.c[0], r.c[0]));
		r.c[0] = d1;
		i.c[0] = d2;
		d1 = ::pow(r.c[1] * r.c[1] + i.c[1] * i.c[1], n / 2) * ::cos(n * atan2(i.c[1], r.c[1]));
		d2 = ::pow(r.c[1] * r.c[1] + i.c[1] * i.c[1], n / 2) * ::sin(n * atan2(i.c[1], r.c[1]));
		r.c[1] = d1;
		i.c[1] = d2;
		return this;
	}

	AML_FUNCTION AML_PREFIX(Array2Complex64) *pow(double n, const AML_PREFIX(VectorU8_2D) &mask) {
		double d1;
		double d2;
		if (mask.v.c[0]) {
			d1 = ::pow(r.c[0] * r.c[0] + i.c[0] * i.c[0], n / 2) * ::cos(n * atan2(i.c[0], r.c[0]));
			d2 = ::pow(r.c[0] * r.c[0] + i.c[0] * i.c[0], n / 2) * ::sin(n * atan2(i.c[0], r.c[0]));
			r.c[0] = d1;
			i.c[0] = d2;
		}
		if (mask.v.c[1]) {
			d1 = ::pow(r.c[1] * r.c[1] + i.c[1] * i.c[1], n / 2) * ::cos(n * atan2(i.c[1], r.c[1]));
			d2 = ::pow(r.c[1] * r.c[1] + i.c[1] * i.c[1], n / 2) * ::sin(n * atan2(i.c[1], r.c[1]));
			r.c[1] = d1;
			i.c[1] = d2;
		}
		return this;
	}

	AML_FUNCTION AML_PREFIX(Vector2D_64) abs() {
		AML_PREFIX(Vector2D_64) ret;
		ret.v.c[0] = ::sqrt(r.c[0] * r.c[0] + i.c[0] * i.c[0]);
		ret.v.c[1] = ::sqrt(r.c[1] * r.c[1] + i.c[1] * i.c[1]);
		return ret;
	}

	AML_FUNCTION AML_PREFIX(VectorU8_2D) abs_gt(double a) {
		AML_PREFIX(VectorU8_2D) ret;
		ret.v.c[0] = a * a < r.c[0] * r.c[0] + i.c[0] * i.c[0];
		ret.v.c[1] = a * a < r.c[1] * r.c[1] + i.c[1] * i.c[1];
		return ret;
	}

	AML_FUNCTION AML_PREFIX(VectorU8_2D) abs_lt(double a) {
		AML_PREFIX(VectorU8_2D) ret;
		ret.v.c[0] = a * a > r.c[0] * r.c[0] + i.c[0] * i.c[0];
		ret.v.c[1] = a * a > r.c[1] * r.c[1] + i.c[1] * i.c[1];
		return ret;
	}

	AML_FUNCTION AML_PREFIX(VectorU8_2D) abs_eq(double a) {
		AML_PREFIX(VectorU8_2D) ret;
		ret.v.c[0] = a * a == r.c[0] * r.c[0] + i.c[0] * i.c[0];
		ret.v.c[1] = a * a == r.c[1] * r.c[1] + i.c[1] * i.c[1];
		return ret;
	}

	AML_FUNCTION AML_PREFIX(Array2Complex64) *ln(const AML_PREFIX(VectorU8_2D) &mask) {
		double d1;
		double d2;
		if (mask.v.c[0]) {
			d1 = ::log(i.c[0] * i.c[0] + r.c[0] * r.c[0]) / 2;
			d2 = ::atan2(r.c[0], i.c[0]);
			i.c[0] = d1;
			r.c[0] = d2;
		}
		if (mask.v.c[1]) {
			d1 = ::log(i.c[1] * i.c[1] + r.c[1] * r.c[1]) / 2;
			d2 = ::atan2(r.c[1], i.c[1]);
			i.c[1] = d1;
			r.c[1] = d2;
		}
		return this;
	}

	AML_FUNCTION AML_PREFIX(Array2Complex64) *log(const AML_PREFIX(VectorU8_2D) &mask) {
		double d1;
		double d2;
		if (mask.v.c[0]) {
			d1 = ::log(i.c[0] * i.c[0] + r.c[0] * r.c[0]) / 2;
			d2 = ::atan2(r.c[0], i.c[0]);
			i.c[0] = d1;
			r.c[0] = d2;
		}
		if (mask.v.c[1]) {
			d1 = ::log(i.c[1] * i.c[1] + r.c[1] * r.c[1]) / 2;
			d2 = ::atan2(r.c[1], i.c[1]);
			i.c[1] = d1;
			r.c[1] = d2;
		}
		return this;
	}

	AML_FUNCTION AML_PREFIX(Array2Complex64) *log10(const AML_PREFIX(VectorU8_2D) &mask) {
		double d1;
		double d2;
		if (mask.v.c[0]) {
			d1 = ::log(i.c[0] * i.c[0] + r.c[0] * r.c[0]) / (2 * AML_LN10);
			d2 = ::atan2(r.c[0], i.c[0]) / AML_LN10;
			i.c[0] = d1;
			r.c[0] = d2;
		}
		if (mask.v.c[1]) {
			d1 = ::log(i.c[1] * i.c[1] + r.c[1] * r.c[1]) / (2 * AML_LN10);
			d2 = ::atan2(r.c[1], i.c[1]) / AML_LN10;
			i.c[1] = d1;
			r.c[1] = d2;
		}
		return this;
	}

	AML_FUNCTION AML_PREFIX(Array2Complex64) *ln() {
		double d1;
		double d2;
		d1 = ::log(i.c[0] * i.c[0] + r.c[0] * r.c[0]) / 2;
		d2 = ::atan2(r.c[0], i.c[0]);
		i.c[0] = d1;
		r.c[0] = d2;
		d1 = ::log(i.c[1] * i.c[1] + r.c[1] * r.c[1]) / 2;
		d2 = ::atan2(r.c[1], i.c[1]);
		i.c[1] = d1;
		r.c[1] = d2;
		return this;
	}

	AML_FUNCTION AML_PREFIX(Array2Complex64) *log() {
		double d1;
		double d2;
		d1 = ::log(i.c[0] * i.c[0] + r.c[0] * r.c[0]) / 2;
		d2 = ::atan2(r.c[0], i.c[0]);
		i.c[0] = d1;
		r.c[0] = d2;
		d1 = ::log(i.c[1] * i.c[1] + r.c[1] * r.c[1]) / 2;
		d2 = ::atan2(r.c[1], i.c[1]);
		i.c[1] = d1;
		r.c[1] = d2;
		return this;
	}

	AML_FUNCTION AML_PREFIX(Array2Complex64) *log10() {
		double d1;
		double d2;
		d1 = ::log(i.c[0] * i.c[0] + r.c[0] * r.c[0]) / (2 * AML_LN10);
		d2 = ::atan2(r.c[0], i.c[0]) / AML_LN10;
		i.c[0] = d1;
		r.c[0] = d2;
		d1 = ::log(i.c[1] * i.c[1] + r.c[1] * r.c[1]) / (2 * AML_LN10);
		d2 = ::atan2(r.c[1], i.c[1]) / AML_LN10;
		i.c[1] = d1;
		r.c[1] = d2;
		return this;
	}

#if !defined(USE_OPENCL) && !defined(USE_CUDA)

	class AML_PREFIX(Complex64_2_Itr) : public std::iterator<
			std::input_iterator_tag,   // iterator_category
			AML_PREFIX(Complex64Ptr),                      // value_type
			long,                      // difference_type
			const AML_PREFIX(Complex64Ptr) *,               // pointer
			AML_PREFIX(Complex64Ptr)                       // reference
	> {

		AML_PREFIX(Array2Complex64) *a;
		int position;

	public:
		AML_FUNCTION explicit AML_PREFIX(Complex64_2_Itr)(AML_PREFIX(Array2Complex64) *array, int length) : a(array),
																											position(
																													length) {

		}

		AML_FUNCTION AML_PREFIX(Complex64_2_Itr) &operator++() {
			position++;
			return *this;
		}

		AML_FUNCTION bool operator==(const AML_PREFIX(Complex64_2_Itr) other) const {
			return position == other.position;
		}

		AML_FUNCTION bool operator!=(const AML_PREFIX(Complex64_2_Itr) other) const { return !(*this == other); }

		AML_FUNCTION reference operator*() const {
			return AML_PREFIX(Complex64Ptr)(&a->r.c[position], &a->i.c[position], position);
		}


	};

	AML_FUNCTION AML_PREFIX(Complex64_2_Itr) begin() {
		return AML_PREFIX(Complex64_2_Itr)(this, 0);
	}

	AML_FUNCTION AML_PREFIX(Complex64_2_Itr) end() {
		return AML_PREFIX(Complex64_2_Itr)(this, 2);
	}

#endif
};


#if !defined(AML_NO_STRING)


AML_FUNCTION std::string operator<<(std::string &lhs, const AML_PREFIX(Array2Complex64) &rhs) {
	std::ostringstream string;
	string << lhs << "{ " << rhs.r.c[0] << " + " << rhs.i.c[0] << "i ,  " << rhs.r.c[1] << " + " << rhs.i.c[1] << "i }";
	return string.str();
}

AML_FUNCTION std::string operator<<(const char *lhs, const AML_PREFIX(Array2Complex64) &rhs) {
	std::ostringstream string;
	string << lhs << "{ " << rhs.r.c[0] << " + " << rhs.i.c[0] << "i ,  " << rhs.r.c[1] << " + " << rhs.i.c[1] << "i }";
	return string.str();
}

template<class charT, class traits>
std::basic_ostream<charT, traits> &
operator<<(std::basic_ostream<charT, traits> &o, const AML_PREFIX(Array2Complex64) &rhs) {
	std::basic_ostringstream<charT, traits> s;
	s.flags(o.flags());
	s.imbue(o.getloc());
	s.precision(o.precision());
	s << "{ " << rhs.r.c[0] << " + " << rhs.i.c[0] << "i ,  " << rhs.r.c[1] << " + " << rhs.i.c[1] << "i }";
	return o << s.str();
}

#endif

AML_FUNCTION AML_PREFIX(Array2Complex64)
operator+(const AML_PREFIX(Complex64) &lhs, const AML_PREFIX(Array2Complex64) &rhs) {
	return rhs + lhs;
}

AML_FUNCTION AML_PREFIX(Array2Complex64)
operator-(const AML_PREFIX(Complex64) &lhs, const AML_PREFIX(Array2Complex64) &rhs) {
	AML_PREFIX(Array2Complex64) ret;
	ret.i.c[0] = lhs.c.c[1] - rhs.i.c[0];
	ret.i.c[1] = lhs.c.c[1] - rhs.i.c[1];
	ret.r.c[0] = lhs.c.c[0] - rhs.r.c[0];
	ret.r.c[1] = lhs.c.c[0] - rhs.r.c[1];
	return ret;
}

AML_FUNCTION AML_PREFIX(Array2Complex64)
operator*(const AML_PREFIX(Complex64) &lhs, const AML_PREFIX(Array2Complex64) &rhs) {
	return rhs * lhs;
}

AML_FUNCTION AML_PREFIX(Array2Complex64)
operator/(const AML_PREFIX(Complex64) &lhs, const AML_PREFIX(Array2Complex64) &rhs) {
	AML_PREFIX(Array2Complex64) ret;
	double d1 =
			(lhs.c.c[0] * rhs.r.c[0] + lhs.c.c[1] * rhs.i.c[0]) / (rhs.r.c[0] * rhs.r.c[0] + rhs.i.c[0] * rhs.i.c[0]);
	double d2 =
			(lhs.c.c[1] * rhs.r.c[0] - lhs.c.c[0] * rhs.i.c[0]) / (rhs.r.c[0] * rhs.r.c[0] + rhs.i.c[0] * rhs.i.c[0]);
	ret.r.c[0] = d1;
	ret.i.c[0] = d2;
	d1 = (lhs.c.c[0] * rhs.r.c[1] + lhs.c.c[1] * rhs.i.c[1]) / (rhs.r.c[1] * rhs.r.c[1] + rhs.i.c[1] * rhs.i.c[1]);
	d2 = (lhs.c.c[1] * rhs.r.c[1] - lhs.c.c[0] * rhs.i.c[1]) / (rhs.r.c[1] * rhs.r.c[1] + rhs.i.c[1] * rhs.i.c[1]);
	ret.r.c[1] = d1;
	ret.i.c[1] = d2;
	return ret;
}

class AML_PREFIX(Array4Complex64) {
public:
	AML_PREFIX(doublevec4) r{};
	AML_PREFIX(doublevec4) i{};

	AML_FUNCTION AML_PREFIX(Array4Complex64)() {}

	AML_FUNCTION AML_PREFIX(Array4Complex64)(const AML_PREFIX(Complex64) value) {
		r.c[0] = value.c.c[0];
		i.c[0] = value.c.c[1];
		r.c[1] = value.c.c[0];
		i.c[1] = value.c.c[1];
		r.c[2] = value.c.c[0];
		i.c[2] = value.c.c[1];
		r.c[3] = value.c.c[0];
		i.c[3] = value.c.c[1];
	}


	AML_FUNCTION AML_PREFIX(Vector4D_64) real() {
		return AML_PREFIX(Vector4D_64)(r.c);
	}

	AML_FUNCTION AML_PREFIX(Vector4D_64) complex() {
		return AML_PREFIX(Vector4D_64)(i.c);
	}

	AML_FUNCTION AML_PREFIX(Complex64) operator[](const uint64_t location) {
		return AML_PREFIX(Complex64)(r.c[location], i.c[location]);
	}

	AML_FUNCTION void set(const uint64_t location, const AML_PREFIX(Complex64) value) {
		r.c[location] = value.c.c[0];
		i.c[location] = value.c.c[1];
	}

	AML_FUNCTION AML_PREFIX(Array4Complex64) *add(const AML_PREFIX(Array4Complex64) &a) {
#if defined(USE_AVX)
		i.avx = _mm256_add_pd(i.avx, a.i.avx);
		r.avx = _mm256_add_pd(r.avx, a.r.avx);
#else
		i.c[0] += a.i.c[0];
		i.c[1] += a.i.c[1];
		i.c[2] += a.i.c[2];
		i.c[3] += a.i.c[3];
		r.c[0] += a.r.c[0];
		r.c[1] += a.r.c[1];
		r.c[2] += a.r.c[2];
		r.c[3] += a.r.c[3];
#endif
		return this;
	}

	AML_FUNCTION AML_PREFIX(Array4Complex64) *add(const AML_PREFIX(Complex64) a) {
#if defined(USE_AVX)
		__m256d a_i = {a.c.c[1], a.c.c[1], a.c.c[1], a.c.c[1]};
		i.avx = _mm256_add_pd(i.avx, a_i);
		__m256d a_r = {a.c.c[0], a.c.c[0], a.c.c[0], a.c.c[0]};
		r.avx = _mm256_add_pd(r.avx, a_r);
#else
		i.c[0] += a.c.c[1];
		i.c[1] += a.c.c[1];
		i.c[2] += a.c.c[1];
		i.c[3] += a.c.c[1];
		r.c[0] += a.c.c[0];
		r.c[1] += a.c.c[0];
		r.c[2] += a.c.c[0];
		r.c[3] += a.c.c[0];
#endif
		return this;
	}

	AML_FUNCTION void operator+=(const AML_PREFIX(Array4Complex64) &a) {
#if defined(USE_AVX)
		i.avx = _mm256_add_pd(i.avx, a.i.avx);
		r.avx = _mm256_add_pd(r.avx, a.r.avx);
#else
		i.c[0] += a.i.c[0];
		i.c[1] += a.i.c[1];
		i.c[2] += a.i.c[2];
		i.c[3] += a.i.c[3];
		r.c[0] += a.r.c[0];
		r.c[1] += a.r.c[1];
		r.c[2] += a.r.c[2];
		r.c[3] += a.r.c[3];
#endif
	}

	AML_FUNCTION void operator+=(const AML_PREFIX(Complex64) a) {
#if defined(USE_AVX)
		__m256d a_i = {a.c.c[1], a.c.c[1], a.c.c[1], a.c.c[1]};
		i.avx = _mm256_add_pd(i.avx, a_i);
		__m256d a_r = {a.c.c[0], a.c.c[0], a.c.c[0], a.c.c[0]};
		r.avx = _mm256_add_pd(r.avx, a_r);
#else
		i.c[0] += a.c.c[1];
		i.c[1] += a.c.c[1];
		i.c[2] += a.c.c[1];
		i.c[3] += a.c.c[1];
		r.c[0] += a.c.c[0];
		r.c[1] += a.c.c[0];
		r.c[2] += a.c.c[0];
		r.c[3] += a.c.c[0];
#endif
	}


	AML_FUNCTION AML_PREFIX(Array4Complex64) operator+(const AML_PREFIX(Array4Complex64) &a) const {
		AML_PREFIX(Array4Complex64) ret{};
#if defined(USE_AVX)
		ret.i.avx = _mm256_add_pd(i.avx, a.i.avx);
		ret.r.avx = _mm256_add_pd(r.avx, a.r.avx);
#else
		ret.i.c[0] = i.c[0] + a.i.c[0];
		ret.i.c[1] = i.c[1] + a.i.c[1];
		ret.i.c[2] = i.c[2] + a.i.c[2];
		ret.i.c[3] = i.c[3] + a.i.c[3];
		ret.r.c[0] = r.c[0] + a.r.c[0];
		ret.r.c[1] = r.c[1] + a.r.c[1];
		ret.r.c[2] = r.c[2] + a.r.c[2];
		ret.r.c[3] = r.c[3] + a.r.c[3];
#endif
		return ret;
	}

	AML_FUNCTION AML_PREFIX(Array4Complex64) operator+(const AML_PREFIX(Complex64) a) const {
		AML_PREFIX(Array4Complex64) ret{};
#if defined(USE_AVX)
		__m256d a_i = {a.c.c[1], a.c.c[1], a.c.c[1], a.c.c[1]};
		ret.i.avx = _mm256_add_pd(i.avx, a_i);
		__m256d a_r = {a.c.c[0], a.c.c[0], a.c.c[0], a.c.c[0]};
		ret.r.avx = _mm256_add_pd(r.avx, a_r);
#else
		ret.i.c[0] = i.c[0] + a.c.c[1];
		ret.i.c[1] = i.c[1] + a.c.c[1];
		ret.i.c[2] = i.c[2] + a.c.c[1];
		ret.i.c[3] = i.c[3] + a.c.c[1];
		ret.r.c[0] = r.c[0] + a.c.c[0];
		ret.r.c[1] = r.c[1] + a.c.c[0];
		ret.r.c[2] = r.c[2] + a.c.c[0];
		ret.r.c[3] = r.c[3] + a.c.c[0];
#endif
		return ret;
	}

	AML_FUNCTION AML_PREFIX(Array4Complex64) *
	add(const AML_PREFIX(Array4Complex64) &a, const AML_PREFIX(VectorU8_4D) mask) {
		if (mask.v.c[0]) {
			i.c[0] += a.i.c[0];
			r.c[0] += a.r.c[0];
		}
		if (mask.v.c[1]) {
			i.c[1] += a.i.c[1];
			r.c[1] += a.r.c[1];
		}
		if (mask.v.c[2]) {
			i.c[2] += a.i.c[2];
			r.c[2] += a.r.c[2];
		}
		if (mask.v.c[3]) {
			i.c[3] += a.i.c[3];
			r.c[3] += a.r.c[3];
		}
		return this;
	}

	AML_FUNCTION AML_PREFIX(Array4Complex64) *add(const AML_PREFIX(Complex64) a, const AML_PREFIX(VectorU8_4D) mask) {
		if (mask.v.c[0]) {
			i.c[0] += a.c.c[1];
			r.c[0] += a.c.c[0];
		}
		if (mask.v.c[1]) {
			i.c[1] += a.c.c[1];
			r.c[1] += a.c.c[0];
		}
		if (mask.v.c[2]) {
			i.c[2] += a.c.c[1];
			r.c[2] += a.c.c[0];
		}
		if (mask.v.c[3]) {
			i.c[3] += a.c.c[1];
			r.c[3] += a.c.c[0];
		}
		return this;
	}


	AML_FUNCTION AML_PREFIX(Array4Complex64) *subtract(const AML_PREFIX(Array4Complex64) &a) {
#if defined(USE_AVX)
		i.avx = _mm256_sub_pd(i.avx, a.i.avx);
		r.avx = _mm256_sub_pd(r.avx, a.r.avx);
#else
		i.c[0] -= a.i.c[0];
		i.c[1] -= a.i.c[1];
		i.c[2] -= a.i.c[2];
		i.c[3] -= a.i.c[3];
		r.c[0] -= a.r.c[0];
		r.c[1] -= a.r.c[1];
		r.c[2] -= a.r.c[2];
		r.c[3] -= a.r.c[3];
#endif
		return this;
	}

	AML_FUNCTION AML_PREFIX(Array4Complex64) *subtract(const AML_PREFIX(Complex64) a) {
#if defined(USE_AVX)
		__m256d a_i = {a.c.c[1], a.c.c[1], a.c.c[1], a.c.c[1]};
		i.avx = _mm256_sub_pd(i.avx, a_i);
		__m256d a_r = {a.c.c[0], a.c.c[0], a.c.c[0], a.c.c[0]};
		r.avx = _mm256_sub_pd(r.avx, a_r);
#else
		i.c[0] -= a.c.c[1];
		i.c[1] -= a.c.c[1];
		i.c[2] -= a.c.c[1];
		i.c[3] -= a.c.c[1];
		r.c[0] -= a.c.c[0];
		r.c[1] -= a.c.c[0];
		r.c[2] -= a.c.c[0];
		r.c[3] -= a.c.c[0];
#endif
		return this;
	}

	AML_FUNCTION void operator-=(const AML_PREFIX(Array4Complex64) &a) {
#if defined(USE_AVX)
		i.avx = _mm256_sub_pd(i.avx, a.i.avx);
		r.avx = _mm256_sub_pd(r.avx, a.r.avx);
#else
		i.c[0] -= a.i.c[0];
		i.c[1] -= a.i.c[1];
		i.c[2] -= a.i.c[2];
		i.c[3] -= a.i.c[3];
		r.c[0] -= a.r.c[0];
		r.c[1] -= a.r.c[1];
		r.c[2] -= a.r.c[2];
		r.c[3] -= a.r.c[3];
#endif
	}

	AML_FUNCTION void operator-=(const AML_PREFIX(Complex64) a) {
#if defined(USE_AVX)
		__m256d a_i = {a.c.c[1], a.c.c[1], a.c.c[1], a.c.c[1]};
		i.avx = _mm256_sub_pd(i.avx, a_i);
		__m256d a_r = {a.c.c[0], a.c.c[0], a.c.c[0], a.c.c[0]};
		r.avx = _mm256_sub_pd(r.avx, a_r);
#else
		i.c[0] -= a.c.c[1];
		i.c[1] -= a.c.c[1];
		i.c[2] -= a.c.c[1];
		i.c[3] -= a.c.c[1];
		r.c[0] -= a.c.c[0];
		r.c[1] -= a.c.c[0];
		r.c[2] -= a.c.c[0];
		r.c[3] -= a.c.c[0];
#endif
	}

	AML_FUNCTION AML_PREFIX(Array4Complex64) operator-(const AML_PREFIX(Array4Complex64) &a) const {
		AML_PREFIX(Array4Complex64) ret;
#if defined(USE_AVX)
		ret.i.avx = _mm256_sub_pd(i.avx, a.i.avx);
		ret.r.avx = _mm256_sub_pd(r.avx, a.r.avx);
#else
		ret.i.c[0] = i.c[0] - a.i.c[0];
		ret.i.c[1] = i.c[1] - a.i.c[1];
		ret.i.c[2] = i.c[2] - a.i.c[2];
		ret.i.c[3] = i.c[3] - a.i.c[3];
		ret.r.c[0] = r.c[0] - a.r.c[0];
		ret.r.c[1] = r.c[1] - a.r.c[1];
		ret.r.c[2] = r.c[2] - a.r.c[2];
		ret.r.c[3] = r.c[3] - a.r.c[3];
#endif
		return ret;
	}

	AML_FUNCTION AML_PREFIX(Array4Complex64) operator-(const AML_PREFIX(Complex64) a) const {
		AML_PREFIX(Array4Complex64) ret;
#if defined(USE_AVX)
		__m256d a_i = {a.c.c[1], a.c.c[1], a.c.c[1], a.c.c[1]};
		ret.i.avx = _mm256_sub_pd(i.avx, a_i);
		__m256d a_r = {a.c.c[0], a.c.c[0], a.c.c[0], a.c.c[0]};
		ret.r.avx = _mm256_sub_pd(r.avx, a_r);
#else
		ret.i.c[0] = i.c[0] - a.c.c[1];
		ret.i.c[1] = i.c[1] - a.c.c[1];
		ret.i.c[2] = i.c[2] - a.c.c[1];
		ret.i.c[3] = i.c[3] - a.c.c[1];
		ret.r.c[0] = r.c[0] - a.c.c[0];
		ret.r.c[1] = r.c[1] - a.c.c[0];
		ret.r.c[2] = r.c[2] - a.c.c[0];
		ret.r.c[3] = r.c[3] - a.c.c[0];
#endif
		return ret;
	}

	AML_FUNCTION AML_PREFIX(Array4Complex64) *
	subtract(const AML_PREFIX(Array4Complex64) &a, const AML_PREFIX(VectorU8_4D) &mask) {
		if (mask.v.c[0]) {
			i.c[0] -= a.i.c[0];
			r.c[0] -= a.r.c[0];
		}
		if (mask.v.c[1]) {
			i.c[1] -= a.i.c[1];
			r.c[1] -= a.r.c[1];
		}
		if (mask.v.c[2]) {
			i.c[2] -= a.i.c[2];
			r.c[2] -= a.r.c[2];
		}
		if (mask.v.c[3]) {
			i.c[3] -= a.i.c[3];
			r.c[3] -= a.r.c[3];
		}
		return this;
	}

	AML_FUNCTION AML_PREFIX(Array4Complex64) *
	subtract(const AML_PREFIX(Complex64) a, const AML_PREFIX(VectorU8_4D) &mask) {
		if (mask.v.c[0]) {
			i.c[0] -= a.c.c[1];
			r.c[0] -= a.c.c[0];
		}
		if (mask.v.c[1]) {
			i.c[1] -= a.c.c[1];
			r.c[1] -= a.c.c[0];
		}
		if (mask.v.c[2]) {
			i.c[2] -= a.c.c[1];
			r.c[2] -= a.c.c[0];
		}
		if (mask.v.c[3]) {
			i.c[3] -= a.c.c[1];
			r.c[3] -= a.c.c[0];
		}
		return this;
	}


	AML_FUNCTION AML_PREFIX(Array4Complex64) operator*(const AML_PREFIX(Array4Complex64) &a) const {
		AML_PREFIX(Array4Complex64) ret;
#if defined(USE_FMA)
		__m256d c_0 = _mm256_mul_pd(i.avx, a.i.avx);
		ret.r.avx = _mm256_fmsub_pd(r.avx, a.r.avx, c_0);
		__m256d c_2 = _mm256_mul_pd(i.avx, a.r.avx);
		ret.i.avx = _mm256_fmadd_pd(r.avx, a.i.avx, c_2);
#else
		ret.r.c[0] = r.c[0] * a.r.c[0] - i.c[0] * a.i.c[0];
		ret.i.c[0] = r.c[0] * a.i.c[0] + i.c[0] * a.r.c[0];
		ret.r.c[1] = r.c[1] * a.r.c[1] - i.c[1] * a.i.c[1];
		ret.i.c[1] = r.c[1] * a.i.c[1] + i.c[1] * a.r.c[1];
		ret.r.c[2] = r.c[2] * a.r.c[2] - i.c[2] * a.i.c[2];
		ret.i.c[2] = r.c[2] * a.i.c[2] + i.c[2] * a.r.c[2];
		ret.r.c[3] = r.c[3] * a.r.c[3] - i.c[3] * a.i.c[3];
		ret.i.c[3] = r.c[3] * a.i.c[3] + i.c[3] * a.r.c[3];
#endif


		return ret;
	}

	AML_FUNCTION AML_PREFIX(Array4Complex64) *multiply(const AML_PREFIX(Array4Complex64) &a) {
		double d1;
		double d2;
		d1 = r.c[0] * a.r.c[0] - i.c[0] * a.i.c[0];
		d2 = r.c[0] * a.i.c[0] + i.c[0] * a.r.c[0];
		r.c[0] = d1;
		i.c[0] = d2;

		d1 = r.c[1] * a.r.c[1] - i.c[1] * a.i.c[1];
		d2 = r.c[1] * a.i.c[1] + i.c[1] * a.r.c[1];
		r.c[1] = d1;
		i.c[1] = d2;
		d1 = r.c[2] * a.r.c[2] - i.c[2] * a.i.c[2];
		d2 = r.c[2] * a.i.c[2] + i.c[2] * a.r.c[2];
		r.c[2] = d1;
		i.c[2] = d2;
		d1 = r.c[3] * a.r.c[3] - i.c[3] * a.i.c[3];
		d2 = r.c[3] * a.i.c[3] + i.c[3] * a.r.c[3];
		r.c[3] = d1;
		i.c[3] = d2;
		return this;
	}

	AML_FUNCTION AML_PREFIX(Array4Complex64) operator*(const AML_PREFIX(Complex64) a) const {
		AML_PREFIX(Array4Complex64) ret;
		ret.r.c[0] = r.c[0] * a.c.c[0] - i.c[0] * a.c.c[1];
		ret.i.c[0] = r.c[0] * a.c.c[1] + i.c[0] * a.c.c[0];
		ret.r.c[1] = r.c[1] * a.c.c[0] - i.c[1] * a.c.c[1];
		ret.i.c[1] = r.c[1] * a.c.c[1] + i.c[1] * a.c.c[0];
		ret.r.c[2] = r.c[2] * a.c.c[0] - i.c[2] * a.c.c[1];
		ret.i.c[2] = r.c[2] * a.c.c[1] + i.c[2] * a.c.c[0];
		ret.r.c[3] = r.c[3] * a.c.c[0] - i.c[3] * a.c.c[1];
		ret.i.c[3] = r.c[3] * a.c.c[1] + i.c[3] * a.c.c[0];


		return ret;
	}

	AML_FUNCTION void operator*=(const AML_PREFIX(Array4Complex64) &a) {
		double d1;
		double d2;
		d1 = r.c[0] * a.r.c[0] - i.c[0] * a.i.c[0];
		d2 = r.c[0] * a.i.c[0] + i.c[0] * a.r.c[0];
		r.c[0] = d1;
		i.c[0] = d2;

		d1 = r.c[1] * a.r.c[1] - i.c[1] * a.i.c[1];
		d2 = r.c[1] * a.i.c[1] + i.c[1] * a.r.c[1];
		r.c[1] = d1;
		i.c[1] = d2;
		d1 = r.c[2] * a.r.c[2] - i.c[2] * a.i.c[2];
		d2 = r.c[2] * a.i.c[2] + i.c[2] * a.r.c[2];
		r.c[2] = d1;
		i.c[2] = d2;
		d1 = r.c[3] * a.r.c[3] - i.c[3] * a.i.c[3];
		d2 = r.c[3] * a.i.c[3] + i.c[3] * a.r.c[3];
		r.c[3] = d1;
		i.c[3] = d2;
	}

	AML_FUNCTION void operator*=(const AML_PREFIX(Complex64) a) {
		double d1;
		double d2;
		d1 = r.c[0] * a.c.c[0] - i.c[0] * a.c.c[1];
		d2 = r.c[0] * a.c.c[1] + i.c[0] * a.c.c[0];
		r.c[0] = d1;
		i.c[0] = d2;
		d1 = r.c[1] * a.c.c[0] - i.c[1] * a.c.c[1];
		d2 = r.c[1] * a.c.c[1] + i.c[1] * a.c.c[0];
		r.c[1] = d1;
		i.c[1] = d2;
		d1 = r.c[2] * a.c.c[0] - i.c[2] * a.c.c[1];
		d2 = r.c[2] * a.c.c[1] + i.c[2] * a.c.c[0];
		r.c[2] = d1;
		i.c[2] = d2;
		d1 = r.c[3] * a.c.c[0] - i.c[3] * a.c.c[1];
		d2 = r.c[3] * a.c.c[1] + i.c[3] * a.c.c[0];
		r.c[3] = d1;
		i.c[3] = d2;
	}

	AML_FUNCTION AML_PREFIX(Array4Complex64) *multiply(const AML_PREFIX(Complex64) a) {
		double d1;
		double d2;
		d1 = r.c[0] * a.c.c[0] - i.c[0] * a.c.c[1];
		d2 = r.c[0] * a.c.c[1] + i.c[0] * a.c.c[0];
		r.c[0] = d1;
		i.c[0] = d2;
		d1 = r.c[1] * a.c.c[0] - i.c[1] * a.c.c[1];
		d2 = r.c[1] * a.c.c[1] + i.c[1] * a.c.c[0];
		r.c[1] = d1;
		i.c[1] = d2;
		d1 = r.c[2] * a.c.c[0] - i.c[2] * a.c.c[1];
		d2 = r.c[2] * a.c.c[1] + i.c[2] * a.c.c[0];
		r.c[2] = d1;
		i.c[2] = d2;
		d1 = r.c[3] * a.c.c[0] - i.c[3] * a.c.c[1];
		d2 = r.c[3] * a.c.c[1] + i.c[3] * a.c.c[0];
		r.c[3] = d1;
		i.c[3] = d2;
		return this;
	}

	AML_FUNCTION AML_PREFIX(Array4Complex64) *
	multiply(const AML_PREFIX(Complex64) a, const AML_PREFIX(VectorU8_4D) &mask) {
		double d1;
		double d2;
		if (mask.v.c[0]) {
			d1 = r.c[0] * a.c.c[0] - i.c[0] * a.c.c[1];
			d2 = r.c[0] * a.c.c[1] + i.c[0] * a.c.c[0];
			r.c[0] = d1;
			i.c[0] = d2;
		}
		if (mask.v.c[1]) {
			d1 = r.c[1] * a.c.c[0] - i.c[1] * a.c.c[1];
			d2 = r.c[1] * a.c.c[1] + i.c[1] * a.c.c[0];
			r.c[1] = d1;
			i.c[1] = d2;
		}
		if (mask.v.c[2]) {
			d1 = r.c[2] * a.c.c[0] - i.c[2] * a.c.c[1];
			d2 = r.c[2] * a.c.c[1] + i.c[2] * a.c.c[0];
			r.c[2] = d1;
			i.c[2] = d2;
		}
		if (mask.v.c[3]) {
			d1 = r.c[3] * a.c.c[0] - i.c[3] * a.c.c[1];
			d2 = r.c[3] * a.c.c[1] + i.c[3] * a.c.c[0];
			r.c[3] = d1;
			i.c[3] = d2;
		}
		return this;


	}

	AML_FUNCTION AML_PREFIX(Array4Complex64) *
	multiply(const AML_PREFIX(Array4Complex64) &a, const AML_PREFIX(VectorU8_4D) &mask) {
		double d1;
		double d2;
		if (mask.v.c[0]) {
			d1 = r.c[0] * a.r.c[0] - i.c[0] * a.i.c[0];
			d2 = r.c[0] * a.i.c[0] + i.c[0] * a.r.c[0];
			r.c[0] = d1;
			i.c[0] = d2;
		}
		if (mask.v.c[1]) {
			d1 = r.c[1] * a.r.c[1] - i.c[1] * a.i.c[1];
			d2 = r.c[1] * a.i.c[1] + i.c[1] * a.r.c[1];
			r.c[1] = d1;
			i.c[1] = d2;
		}
		if (mask.v.c[2]) {
			d1 = r.c[2] * a.r.c[2] - i.c[2] * a.i.c[2];
			d2 = r.c[2] * a.i.c[2] + i.c[2] * a.r.c[2];
			r.c[2] = d1;
			i.c[2] = d2;
		}
		if (mask.v.c[3]) {
			d1 = r.c[3] * a.r.c[3] - i.c[3] * a.i.c[3];
			d2 = r.c[3] * a.i.c[3] + i.c[3] * a.r.c[3];
			r.c[3] = d1;
			i.c[3] = d2;
		}
		return this;
	}

	AML_FUNCTION AML_PREFIX(Array4Complex64) *square() {
		double d1;
		double d2;
		d1 = r.c[0] * r.c[0] - i.c[0] * i.c[0];
		d2 = r.c[0] * i.c[0] + i.c[0] * r.c[0];
		r.c[0] = d1;
		i.c[0] = d2;
		d1 = r.c[1] * r.c[1] - i.c[1] * i.c[1];
		d2 = r.c[1] * i.c[1] + i.c[1] * r.c[1];
		r.c[1] = d1;
		i.c[1] = d2;
		d1 = r.c[2] * r.c[2] - i.c[2] * i.c[2];
		d2 = r.c[2] * i.c[2] + i.c[2] * r.c[2];
		r.c[2] = d1;
		i.c[2] = d2;
		d1 = r.c[3] * r.c[3] - i.c[3] * i.c[3];
		d2 = r.c[3] * i.c[3] + i.c[3] * r.c[3];
		r.c[3] = d1;
		i.c[3] = d2;
		return this;
	}

	AML_FUNCTION AML_PREFIX(Array4Complex64) *square(const AML_PREFIX(VectorU8_4D) &mask) {
		double d1;
		double d2;
		if (mask.v.c[0]) {
			d1 = r.c[0] * r.c[0] - i.c[0] * i.c[0];
			d2 = r.c[0] * i.c[0] + i.c[0] * r.c[0];
			r.c[0] = d1;
			i.c[0] = d2;
		}
		if (mask.v.c[1]) {
			d1 = r.c[1] * r.c[1] - i.c[1] * i.c[1];
			d2 = r.c[1] * i.c[1] + i.c[1] * r.c[1];
			r.c[1] = d1;
			i.c[1] = d2;
		}
		if (mask.v.c[2]) {
			d1 = r.c[2] * r.c[2] - i.c[2] * i.c[2];
			d2 = r.c[2] * i.c[2] + i.c[2] * r.c[2];
			r.c[2] = d1;
			i.c[2] = d2;
		}
		if (mask.v.c[3]) {
			d1 = r.c[3] * r.c[3] - i.c[3] * i.c[3];
			d2 = r.c[3] * i.c[3] + i.c[3] * r.c[3];
			r.c[3] = d1;
			i.c[3] = d2;
		}
		return this;
	}

	AML_FUNCTION AML_PREFIX(Array4Complex64) *divide(const AML_PREFIX(Complex64) a) {
		double d1 = (r.c[0] * a.c.c[0] + i.c[0] * a.c.c[1]) / (a.c.c[0] * a.c.c[0] + a.c.c[1] * a.c.c[1]);
		double d2 = (i.c[0] * a.c.c[0] - r.c[0] * a.c.c[1]) / (a.c.c[0] * a.c.c[0] + a.c.c[1] * a.c.c[1]);
		r.c[0] = d1;
		i.c[0] = d2;
		d1 = (r.c[1] * a.c.c[0] + i.c[1] * a.c.c[1]) / (a.c.c[0] * a.c.c[0] + a.c.c[1] * a.c.c[1]);
		d2 = (i.c[1] * a.c.c[0] - r.c[1] * a.c.c[1]) / (a.c.c[0] * a.c.c[0] + a.c.c[1] * a.c.c[1]);
		r.c[1] = d1;
		i.c[1] = d2;
		d1 = (r.c[2] * a.c.c[0] + i.c[2] * a.c.c[1]) / (a.c.c[0] * a.c.c[0] + a.c.c[1] * a.c.c[1]);
		d2 = (i.c[2] * a.c.c[0] - r.c[2] * a.c.c[1]) / (a.c.c[0] * a.c.c[0] + a.c.c[1] * a.c.c[1]);
		r.c[2] = d1;
		i.c[2] = d2;
		d1 = (r.c[3] * a.c.c[0] + i.c[3] * a.c.c[1]) / (a.c.c[0] * a.c.c[0] + a.c.c[1] * a.c.c[1]);
		d2 = (i.c[3] * a.c.c[0] - r.c[3] * a.c.c[1]) / (a.c.c[0] * a.c.c[0] + a.c.c[1] * a.c.c[1]);
		r.c[3] = d1;
		i.c[3] = d2;
		return this;
	}

	AML_FUNCTION AML_PREFIX(Array4Complex64) *
	divide(const AML_PREFIX(Complex64) a, const AML_PREFIX(VectorU8_4D) &mask) {
		double d1;
		double d2;
		if (mask.v.c[0]) {
			d1 = (r.c[0] * a.c.c[0] + i.c[0] * a.c.c[1]) / (a.c.c[0] * a.c.c[0] + a.c.c[1] * a.c.c[1]);
			d2 = (i.c[0] * a.c.c[0] - r.c[0] * a.c.c[1]) / (a.c.c[0] * a.c.c[0] + a.c.c[1] * a.c.c[1]);
			r.c[0] = d1;
			i.c[0] = d2;
		}
		if (mask.v.c[1]) {
			d1 = (r.c[1] * a.c.c[0] + i.c[1] * a.c.c[1]) / (a.c.c[0] * a.c.c[0] + a.c.c[1] * a.c.c[1]);
			d2 = (i.c[1] * a.c.c[0] - r.c[1] * a.c.c[1]) / (a.c.c[0] * a.c.c[0] + a.c.c[1] * a.c.c[1]);
			r.c[1] = d1;
			i.c[1] = d2;
		}
		if (mask.v.c[2]) {
			d1 = (r.c[2] * a.c.c[0] + i.c[2] * a.c.c[1]) / (a.c.c[0] * a.c.c[0] + a.c.c[1] * a.c.c[1]);
			d2 = (i.c[2] * a.c.c[0] - r.c[2] * a.c.c[1]) / (a.c.c[0] * a.c.c[0] + a.c.c[1] * a.c.c[1]);
			r.c[2] = d1;
			i.c[2] = d2;
		}
		if (mask.v.c[3]) {
			d1 = (r.c[3] * a.c.c[0] + i.c[3] * a.c.c[1]) / (a.c.c[0] * a.c.c[0] + a.c.c[1] * a.c.c[1]);
			d2 = (i.c[3] * a.c.c[0] - r.c[3] * a.c.c[1]) / (a.c.c[0] * a.c.c[0] + a.c.c[1] * a.c.c[1]);
			r.c[3] = d1;
			i.c[3] = d2;
		}
		return this;
	}

	AML_FUNCTION AML_PREFIX(Array4Complex64) *divide(const AML_PREFIX(Array4Complex64) &a) {
		double d1 = (r.c[0] * a.r.c[0] + i.c[0] * a.i.c[0]) / (a.r.c[0] * a.r.c[0] + a.i.c[0] * a.i.c[0]);
		double d2 = (i.c[0] * a.r.c[0] - r.c[0] * a.i.c[0]) / (a.r.c[0] * a.r.c[0] + a.i.c[0] * a.i.c[0]);
		r.c[0] = d1;
		i.c[0] = d2;
		d1 = (r.c[1] * a.r.c[1] + i.c[1] * a.i.c[1]) / (a.r.c[1] * a.r.c[1] + a.i.c[1] * a.i.c[1]);
		d2 = (i.c[1] * a.r.c[1] - r.c[1] * a.i.c[1]) / (a.r.c[1] * a.r.c[1] + a.i.c[1] * a.i.c[1]);
		r.c[1] = d1;
		i.c[1] = d2;
		d1 = (r.c[2] * a.r.c[2] + i.c[2] * a.i.c[2]) / (a.r.c[2] * a.r.c[2] + a.i.c[2] * a.i.c[2]);
		d2 = (i.c[2] * a.r.c[2] - r.c[2] * a.i.c[2]) / (a.r.c[2] * a.r.c[2] + a.i.c[2] * a.i.c[2]);
		r.c[2] = d1;
		i.c[2] = d2;
		d1 = (r.c[3] * a.r.c[3] + i.c[3] * a.i.c[3]) / (a.r.c[3] * a.r.c[3] + a.i.c[3] * a.i.c[3]);
		d2 = (i.c[3] * a.r.c[3] - r.c[3] * a.i.c[3]) / (a.r.c[3] * a.r.c[3] + a.i.c[3] * a.i.c[3]);
		r.c[3] = d1;
		i.c[3] = d2;
		return this;
	}

	AML_FUNCTION AML_PREFIX(Array4Complex64) *
	divide(const AML_PREFIX(Array4Complex64) &a, const AML_PREFIX(VectorU8_4D) &mask) {
		double d1;
		double d2;
		if (mask.v.c[0]) {
			d1 = (r.c[0] * a.i.c[0] + i.c[0] * a.i.c[1]) / (a.i.c[0] * a.i.c[0] + a.i.c[1] * a.i.c[1]);
			d2 = (i.c[0] * a.i.c[0] - r.c[0] * a.i.c[1]) / (a.i.c[0] * a.i.c[0] + a.i.c[1] * a.i.c[1]);
			r.c[0] = d1;
			i.c[0] = d2;
		}
		if (mask.v.c[1]) {
			d1 = (r.c[1] * a.r.c[1] + i.c[1] * a.i.c[1]) / (a.r.c[1] * a.r.c[1] + a.i.c[1] * a.i.c[1]);
			d2 = (i.c[1] * a.r.c[1] - r.c[1] * a.i.c[1]) / (a.r.c[1] * a.r.c[1] + a.i.c[1] * a.i.c[1]);
			r.c[1] = d1;
			i.c[1] = d2;
		}
		if (mask.v.c[2]) {
			d1 = (r.c[2] * a.r.c[2] + i.c[2] * a.i.c[2]) / (a.r.c[2] * a.r.c[2] + a.i.c[2] * a.i.c[2]);
			d2 = (i.c[2] * a.r.c[2] - r.c[2] * a.i.c[2]) / (a.r.c[2] * a.r.c[2] + a.i.c[2] * a.i.c[2]);
			r.c[2] = d1;
			i.c[2] = d2;
		}
		if (mask.v.c[3]) {
			d1 = (r.c[3] * a.r.c[3] + i.c[3] * a.i.c[3]) / (a.r.c[3] * a.r.c[3] + a.i.c[3] * a.i.c[3]);
			d2 = (i.c[3] * a.r.c[3] - r.c[3] * a.i.c[3]) / (a.r.c[3] * a.r.c[3] + a.i.c[3] * a.i.c[3]);
			r.c[3] = d1;
			i.c[3] = d2;
		}
		return this;
	}

	AML_FUNCTION AML_PREFIX(Array4Complex64) operator/(const AML_PREFIX(Complex64) a) const {
		AML_PREFIX(Array4Complex64) ret;
		double d1 = (r.c[0] * a.c.c[0] + i.c[0] * a.c.c[1]) / (a.c.c[0] * a.c.c[0] + a.c.c[1] * a.c.c[1]);
		double d2 = (i.c[0] * a.c.c[0] - r.c[0] * a.c.c[1]) / (a.c.c[0] * a.c.c[0] + a.c.c[1] * a.c.c[1]);
		ret.r.c[0] = d1;
		ret.i.c[0] = d2;
		d1 = (r.c[1] * a.c.c[0] + i.c[1] * a.c.c[1]) / (a.c.c[0] * a.c.c[0] + a.c.c[1] * a.c.c[1]);
		d2 = (i.c[1] * a.c.c[0] - r.c[1] * a.c.c[1]) / (a.c.c[0] * a.c.c[0] + a.c.c[1] * a.c.c[1]);
		ret.r.c[1] = d1;
		ret.i.c[1] = d2;
		d1 = (r.c[2] * a.c.c[0] + i.c[2] * a.c.c[1]) / (a.c.c[0] * a.c.c[0] + a.c.c[1] * a.c.c[1]);
		d2 = (i.c[2] * a.c.c[0] - r.c[2] * a.c.c[1]) / (a.c.c[0] * a.c.c[0] + a.c.c[1] * a.c.c[1]);
		ret.r.c[2] = d1;
		ret.i.c[2] = d2;
		d1 = (r.c[3] * a.c.c[0] + i.c[3] * a.c.c[1]) / (a.c.c[0] * a.c.c[0] + a.c.c[1] * a.c.c[1]);
		d2 = (i.c[3] * a.c.c[0] - r.c[3] * a.c.c[1]) / (a.c.c[0] * a.c.c[0] + a.c.c[1] * a.c.c[1]);
		ret.r.c[3] = d1;
		ret.i.c[3] = d2;
		return ret;
	}

	AML_FUNCTION AML_PREFIX(Array4Complex64) operator/(const AML_PREFIX(Array4Complex64) &a) const {
		AML_PREFIX(Array4Complex64) ret;
		double d1 = (r.c[0] * a.r.c[0] + i.c[0] * a.i.c[0]) / (a.r.c[0] * a.r.c[0] + a.i.c[0] * a.i.c[0]);
		double d2 = (i.c[0] * a.r.c[0] - r.c[0] * a.i.c[0]) / (a.r.c[0] * a.r.c[0] + a.i.c[0] * a.i.c[0]);
		ret.r.c[0] = d1;
		ret.i.c[0] = d2;
		d1 = (r.c[1] * a.r.c[1] + i.c[1] * a.i.c[1]) / (a.r.c[1] * a.r.c[1] + a.i.c[1] * a.i.c[1]);
		d2 = (i.c[1] * a.r.c[1] - r.c[1] * a.i.c[1]) / (a.r.c[1] * a.r.c[1] + a.i.c[1] * a.i.c[1]);
		ret.r.c[1] = d1;
		ret.i.c[1] = d2;
		d1 = (r.c[2] * a.r.c[2] + i.c[2] * a.i.c[2]) / (a.r.c[2] * a.r.c[2] + a.i.c[2] * a.i.c[2]);
		d2 = (i.c[2] * a.r.c[2] - r.c[2] * a.i.c[2]) / (a.r.c[2] * a.r.c[2] + a.i.c[2] * a.i.c[2]);
		ret.r.c[2] = d1;
		ret.i.c[2] = d2;
		d1 = (r.c[3] * a.r.c[3] + i.c[3] * a.i.c[3]) / (a.r.c[3] * a.r.c[3] + a.i.c[3] * a.i.c[3]);
		d2 = (i.c[3] * a.r.c[3] - r.c[3] * a.i.c[3]) / (a.r.c[3] * a.r.c[3] + a.i.c[3] * a.i.c[3]);
		ret.r.c[3] = d1;
		ret.i.c[3] = d2;
		return ret;
	}

	AML_FUNCTION void operator/=(const AML_PREFIX(Complex64) a) {
		double d1 = (r.c[0] * a.c.c[0] + i.c[0] * a.c.c[1]) / (a.c.c[0] * a.c.c[0] + a.c.c[1] * a.c.c[1]);
		double d2 = (i.c[0] * a.c.c[0] - r.c[0] * a.c.c[1]) / (a.c.c[0] * a.c.c[0] + a.c.c[1] * a.c.c[1]);
		r.c[0] = d1;
		i.c[0] = d2;
		d1 = (r.c[1] * a.c.c[0] + i.c[1] * a.c.c[1]) / (a.c.c[0] * a.c.c[0] + a.c.c[1] * a.c.c[1]);
		d2 = (i.c[1] * a.c.c[0] - r.c[1] * a.c.c[1]) / (a.c.c[0] * a.c.c[0] + a.c.c[1] * a.c.c[1]);
		r.c[1] = d1;
		i.c[1] = d2;
		d1 = (r.c[2] * a.c.c[0] + i.c[2] * a.c.c[1]) / (a.c.c[0] * a.c.c[0] + a.c.c[1] * a.c.c[1]);
		d2 = (i.c[2] * a.c.c[0] - r.c[2] * a.c.c[1]) / (a.c.c[0] * a.c.c[0] + a.c.c[1] * a.c.c[1]);
		r.c[2] = d1;
		i.c[2] = d2;
		d1 = (r.c[3] * a.c.c[0] + i.c[3] * a.c.c[1]) / (a.c.c[0] * a.c.c[0] + a.c.c[1] * a.c.c[1]);
		d2 = (i.c[3] * a.c.c[0] - r.c[3] * a.c.c[1]) / (a.c.c[0] * a.c.c[0] + a.c.c[1] * a.c.c[1]);
		r.c[3] = d1;
		i.c[3] = d2;
	}

	AML_FUNCTION void operator/=(const AML_PREFIX(Array4Complex64) &a) {
		double d1 = (r.c[0] * a.r.c[0] + i.c[0] * a.i.c[0]) / (a.r.c[0] * a.r.c[0] + a.i.c[0] * a.i.c[0]);
		double d2 = (i.c[0] * a.r.c[0] - r.c[0] * a.i.c[0]) / (a.r.c[0] * a.r.c[0] + a.i.c[0] * a.i.c[0]);
		r.c[0] = d1;
		i.c[0] = d2;
		d1 = (r.c[1] * a.r.c[1] + i.c[1] * a.i.c[1]) / (a.r.c[1] * a.r.c[1] + a.i.c[1] * a.i.c[1]);
		d2 = (i.c[1] * a.r.c[1] - r.c[1] * a.i.c[1]) / (a.r.c[1] * a.r.c[1] + a.i.c[1] * a.i.c[1]);
		r.c[1] = d1;
		i.c[1] = d2;
		d1 = (r.c[2] * a.r.c[2] + i.c[2] * a.i.c[2]) / (a.r.c[2] * a.r.c[2] + a.i.c[2] * a.i.c[2]);
		d2 = (i.c[2] * a.r.c[2] - r.c[2] * a.i.c[2]) / (a.r.c[2] * a.r.c[2] + a.i.c[2] * a.i.c[2]);
		r.c[2] = d1;
		i.c[2] = d2;
		d1 = (r.c[3] * a.r.c[3] + i.c[3] * a.i.c[3]) / (a.r.c[3] * a.r.c[3] + a.i.c[3] * a.i.c[3]);
		d2 = (i.c[3] * a.r.c[3] - r.c[3] * a.i.c[3]) / (a.r.c[3] * a.r.c[3] + a.i.c[3] * a.i.c[3]);
		r.c[3] = d1;
		i.c[3] = d2;
	}

	AML_FUNCTION AML_PREFIX(Array4Complex64) *sqrt() {
		double d1;
		double d2;
		d2 = ::sqrt((-r.c[0] + ::sqrt(r.c[0] * r.c[0] + i.c[0] * i.c[0])) / (2));
		if (d2 == 0) UNLIKELY {
			d1 = ::sqrt(r.c[0]);
		} else LIKELY {
			d1 = i.c[0] / (2 * d2);
		}
		r.c[0] = d1;
		i.c[0] = d2;
		d2 = ::sqrt((-r.c[1] + ::sqrt(r.c[1] * r.c[1] + i.c[1] * i.c[1])) / (2));
		if (d2 == 0) UNLIKELY {
			d1 = ::sqrt(r.c[1]);
		} else LIKELY {
			d1 = i.c[1] / (2 * d2);
		}
		r.c[1] = d1;
		i.c[1] = d2;
		d2 = ::sqrt((-r.c[2] + ::sqrt(r.c[2] * r.c[2] + i.c[2] * i.c[2])) / (2));
		if (d2 == 0) UNLIKELY {
			d1 = ::sqrt(r.c[2]);
		} else LIKELY {
			d1 = i.c[2] / (2 * d2);
		}
		r.c[2] = d1;
		i.c[2] = d2;
		d2 = ::sqrt((-r.c[3] + ::sqrt(r.c[3] * r.c[3] + i.c[3] * i.c[3])) / (2));
		if (d2 == 0) UNLIKELY {
			d1 = ::sqrt(r.c[3]);
		} else LIKELY {
			d1 = i.c[3] / (2 * d2);
		}
		return this;
	}

	AML_FUNCTION AML_PREFIX(Array4Complex64) *sqrt(const AML_PREFIX(VectorU8_4D) mask) {
		double d1;
		double d2;
		if (mask.v.c[0]) {
			d2 = ::sqrt((-r.c[0] + ::sqrt(r.c[0] * r.c[0] + i.c[0] * i.c[0])) / (2));
			if (d2 == 0) UNLIKELY {
				d1 = ::sqrt(r.c[0]);
			} else LIKELY {
				d1 = i.c[0] / (2 * d2);
			}
			r.c[0] = d1;
			i.c[0] = d2;
		}
		if (mask.v.c[1]) {
			d2 = ::sqrt((-r.c[1] + ::sqrt(r.c[1] * r.c[1] + i.c[1] * i.c[1])) / (2));
			if (d2 == 0) UNLIKELY {
				d1 = ::sqrt(r.c[1]);
			} else LIKELY {
				d1 = i.c[1] / (2 * d2);
			}
			r.c[1] = d1;
			i.c[1] = d2;
		}
		if (mask.v.c[2]) {
			d2 = ::sqrt((-r.c[2] + ::sqrt(r.c[2] * r.c[2] + i.c[2] * i.c[2])) / (2));
			if (d2 == 0) UNLIKELY {
				d1 = ::sqrt(r.c[2]);
			} else LIKELY {
				d1 = i.c[2] / (2 * d2);
			}
			r.c[2] = d1;
			i.c[2] = d2;
		}
		if (mask.v.c[3]) {
			d2 = ::sqrt((-r.c[3] + ::sqrt(r.c[3] * r.c[3] + i.c[3] * i.c[3])) / (2));
			if (d2 == 0) UNLIKELY {
				d1 = ::sqrt(r.c[3]);
			} else LIKELY {
				d1 = i.c[3] / (2 * d2);
			}
			r.c[3] = d1;
			i.c[3] = d2;
		}
		return this;
	}

	AML_FUNCTION AML_PREFIX(Array4Complex64) *sin() {
		double d1;
		double d2;
		d1 = ::sin(r.c[0]) * ::cosh(i.c[0]);
		d2 = ::cos(i.c[0]) * ::sinh(r.c[0]);
		r.c[0] = d1;
		i.c[0] = d2;
		d1 = ::sin(r.c[1]) * ::cosh(i.c[1]);
		d2 = ::cos(i.c[1]) * ::sinh(r.c[1]);
		r.c[1] = d1;
		i.c[1] = d2;
		d1 = ::sin(r.c[2]) * ::cosh(i.c[2]);
		d2 = ::cos(i.c[2]) * ::sinh(r.c[2]);
		r.c[2] = d1;
		i.c[2] = d2;
		d1 = ::sin(r.c[3]) * ::cosh(i.c[3]);
		d2 = ::cos(i.c[3]) * ::sinh(r.c[3]);
		r.c[3] = d1;
		i.c[3] = d2;
		return this;
	}

	AML_FUNCTION AML_PREFIX(Array4Complex64) *cos() {
		double d1;
		double d2;
		d1 = ::cos(r.c[0]) * ::cosh(i.c[0]);
		d2 = -::sin(i.c[0]) * ::sinh(r.c[0]);
		r.c[0] = d1;
		i.c[0] = d2;
		d1 = ::cos(r.c[1]) * ::cosh(i.c[1]);
		d2 = -::sin(i.c[1]) * ::sinh(r.c[1]);
		r.c[1] = d1;
		i.c[1] = d2;
		d1 = ::cos(r.c[2]) * ::cosh(i.c[2]);
		d2 = -::sin(i.c[2]) * ::sinh(r.c[2]);
		r.c[2] = d1;
		i.c[2] = d2;
		d1 = ::cos(r.c[3]) * ::cosh(i.c[3]);
		d2 = -::sin(i.c[3]) * ::sinh(r.c[3]);
		r.c[3] = d1;
		i.c[3] = d2;
		return this;
	}

	AML_FUNCTION AML_PREFIX(Array4Complex64) *tan() {
		double d1;
		double d2;
		d1 = ::sin(r.c[0] + r.c[0]) / (::cos(r.c[0] + r.c[0]) * ::cosh(i.c[0] + i.c[0]));
		d2 = ::sinh(i.c[0] + i.c[0]) / (::cos(r.c[0] + r.c[0]) * ::cosh(i.c[0] + i.c[0]));
		r.c[0] = d1;
		i.c[0] = d2;
		d1 = ::sin(r.c[1] + r.c[1]) / (::cos(r.c[1] + r.c[1]) * ::cosh(i.c[1] + i.c[1]));
		d2 = ::sinh(i.c[1] + i.c[1]) / (::cos(r.c[1] + r.c[1]) * ::cosh(i.c[1] + i.c[1]));
		r.c[1] = d1;
		i.c[1] = d2;
		d1 = ::sin(r.c[2] + r.c[2]) / (::cos(r.c[2] + r.c[2]) * ::cosh(i.c[2] + i.c[2]));
		d2 = ::sinh(i.c[2] + i.c[2]) / (::cos(r.c[2] + r.c[2]) * ::cosh(i.c[2] + i.c[2]));
		r.c[2] = d1;
		i.c[2] = d2;
		d1 = ::sin(r.c[3] + r.c[3]) / (::cos(r.c[3] + r.c[3]) * ::cosh(i.c[3] + i.c[3]));
		d2 = ::sinh(i.c[3] + i.c[3]) / (::cos(r.c[3] + r.c[3]) * ::cosh(i.c[3] + i.c[3]));
		r.c[3] = d1;
		i.c[3] = d2;
		return this;
	}

	AML_FUNCTION AML_PREFIX(Array4Complex64) *sin(const AML_PREFIX(VectorU8_4D) &mask) {
		double d1;
		double d2;
		if (mask.v.c[0]) {
			d1 = ::sin(r.c[0]) * ::cosh(i.c[0]);
			d2 = ::cos(i.c[0]) * ::sinh(r.c[0]);
			r.c[0] = d1;
			i.c[0] = d2;
		}
		if (mask.v.c[1]) {
			d1 = ::sin(r.c[1]) * ::cosh(i.c[1]);
			d2 = ::cos(i.c[1]) * ::sinh(r.c[1]);
			r.c[1] = d1;
			i.c[1] = d2;
		}
		if (mask.v.c[2]) {
			d1 = ::sin(r.c[2]) * ::cosh(i.c[2]);
			d2 = ::cos(i.c[2]) * ::sinh(r.c[2]);
			r.c[2] = d1;
			i.c[2] = d2;
		}
		if (mask.v.c[3]) {
			d1 = ::sin(r.c[3]) * ::cosh(i.c[3]);
			d2 = ::cos(i.c[3]) * ::sinh(r.c[3]);
			r.c[3] = d1;
			i.c[3] = d2;
		}
		return this;
	}

	AML_FUNCTION AML_PREFIX(Array4Complex64) *cos(const AML_PREFIX(VectorU8_4D) &mask) {
		double d1;
		double d2;
		if (mask.v.c[0]) {
			d1 = ::cos(r.c[0]) * ::cosh(i.c[0]);
			d2 = -::sin(i.c[0]) * ::sinh(r.c[0]);
			r.c[0] = d1;
			i.c[0] = d2;
		}
		if (mask.v.c[1]) {
			d1 = ::cos(r.c[1]) * ::cosh(i.c[1]);
			d2 = -::sin(i.c[1]) * ::sinh(r.c[1]);
			r.c[1] = d1;
			i.c[1] = d2;
		}
		if (mask.v.c[2]) {
			d1 = ::cos(r.c[2]) * ::cosh(i.c[2]);
			d2 = -::sin(i.c[2]) * ::sinh(r.c[2]);
			r.c[2] = d1;
			i.c[2] = d2;
		}
		if (mask.v.c[3]) {
			d1 = ::cos(r.c[3]) * ::cosh(i.c[3]);
			d2 = -::sin(i.c[3]) * ::sinh(r.c[3]);
			r.c[3] = d1;
			i.c[3] = d2;
		}
		return this;
	}

	AML_FUNCTION AML_PREFIX(Array4Complex64) *tan(const AML_PREFIX(VectorU8_4D) &mask) {
		double d1;
		double d2;
		if (mask.v.c[0]) {
			d1 = ::sin(r.c[0] + r.c[0]) / (::cos(r.c[0] + r.c[0]) * ::cosh(i.c[0] + i.c[0]));
			d2 = ::sinh(i.c[0] + i.c[0]) / (::cos(r.c[0] + r.c[0]) * ::cosh(i.c[0] + i.c[0]));
			r.c[0] = d1;
			i.c[0] = d2;
		}
		if (mask.v.c[1]) {
			d1 = ::sin(r.c[1] + r.c[1]) / (::cos(r.c[1] + r.c[1]) * ::cosh(i.c[1] + i.c[1]));
			d2 = ::sinh(i.c[1] + i.c[1]) / (::cos(r.c[1] + r.c[1]) * ::cosh(i.c[1] + i.c[1]));
			r.c[1] = d1;
			i.c[1] = d2;
		}
		if (mask.v.c[2]) {
			d1 = ::sin(r.c[2] + r.c[2]) / (::cos(r.c[2] + r.c[2]) * ::cosh(i.c[2] + i.c[2]));
			d2 = ::sinh(i.c[2] + i.c[2]) / (::cos(r.c[2] + r.c[2]) * ::cosh(i.c[2] + i.c[2]));
			r.c[2] = d1;
			i.c[2] = d2;
		}
		if (mask.v.c[3]) {
			d1 = ::sin(r.c[3] + r.c[3]) / (::cos(r.c[3] + r.c[3]) * ::cosh(i.c[3] + i.c[3]));
			d2 = ::sinh(i.c[3] + i.c[3]) / (::cos(r.c[3] + r.c[3]) * ::cosh(i.c[3] + i.c[3]));
			r.c[3] = d1;
			i.c[3] = d2;
		}
		return this;
	}


	AML_FUNCTION AML_PREFIX(Array4Complex64) *exp() {
		double d1 = ::exp(r.c[0]) * ::cos(i.c[0]);
		double d2 = ::exp(r.c[0]) * ::sin(i.c[0]);
		r.c[0] = d1;
		i.c[0] = d2;
		d1 = ::exp(r.c[1]) * ::cos(i.c[1]);
		d2 = ::exp(r.c[1]) * ::sin(i.c[1]);
		r.c[1] = d1;
		i.c[1] = d2;
		d1 = ::exp(r.c[2]) * ::cos(i.c[2]);
		d2 = ::exp(r.c[2]) * ::sin(i.c[2]);
		r.c[2] = d1;
		i.c[2] = d2;
		d1 = ::exp(r.c[3]) * ::cos(i.c[3]);
		d2 = ::exp(r.c[3]) * ::sin(i.c[3]);
		r.c[3] = d1;
		i.c[3] = d2;
		return this;
	}

	AML_FUNCTION AML_PREFIX(Array4Complex64) *exp(double n) {
		double d1 = ::pow(n, r.c[0]) * ::cos(i.c[0] * ::log(n));
		double d2 = ::pow(n, r.c[0]) * ::sin(i.c[0] * ::log(n));
		r.c[0] = d1;
		i.c[0] = d2;
		d1 = ::pow(n, r.c[1]) * ::cos(i.c[1] * ::log(n));
		d2 = ::pow(n, r.c[1]) * ::sin(i.c[1] * ::log(n));
		r.c[1] = d1;
		i.c[1] = d2;
		d1 = ::pow(n, r.c[2]) * ::cos(i.c[2] * ::log(n));
		d2 = ::pow(n, r.c[2]) * ::sin(i.c[2] * ::log(n));
		r.c[2] = d1;
		i.c[2] = d2;
		d1 = ::pow(n, r.c[3]) * ::cos(i.c[3] * ::log(n));
		d2 = ::pow(n, r.c[3]) * ::sin(i.c[3] * ::log(n));
		r.c[3] = d1;
		i.c[3] = d2;
		return this;
	}

	AML_FUNCTION AML_PREFIX(Array4Complex64) *exp(const AML_PREFIX(VectorU8_4D) &mask) {
		double d1;
		double d2;
		if (mask.v.c[0]) {
			d1 = ::exp(r.c[0]) * ::cos(i.c[0]);
			d2 = ::exp(r.c[0]) * ::sin(i.c[0]);
			r.c[0] = d1;
			i.c[0] = d2;
		}
		if (mask.v.c[1]) {
			d1 = ::exp(r.c[1]) * ::cos(i.c[1]);
			d2 = ::exp(r.c[1]) * ::sin(i.c[1]);
			r.c[1] = d1;
			i.c[1] = d2;
		}
		if (mask.v.c[2]) {
			d1 = ::exp(r.c[2]) * ::cos(i.c[2]);
			d2 = ::exp(r.c[2]) * ::sin(i.c[2]);
			r.c[2] = d1;
			i.c[2] = d2;
		}
		if (mask.v.c[3]) {
			d1 = ::exp(r.c[3]) * ::cos(i.c[3]);
			d2 = ::exp(r.c[3]) * ::sin(i.c[3]);
			r.c[3] = d1;
			i.c[3] = d2;
		}
		return this;
	}

	AML_FUNCTION AML_PREFIX(Array4Complex64) *pow(const AML_PREFIX(Array4Complex64) &n) {
		double d1 = ::log(i.c[0] * i.c[0] + r.c[0] * r.c[0]) / 2;
		double d2 = ::atan2(r.c[0], i.c[0]);
		double d3 = ::exp(d1 * n.i.c[0] - d2 * n.r.c[0]);
		double d4 = d1 * n.r.c[0] + d2 * n.i.c[0];
		double d5 = d3 * ::cos(d4);
		double d6 = d3 * ::sin(d4);
		i.c[0] = d5;
		r.c[0] = d6;
		d1 = ::log(i.c[1] * i.c[1] + r.c[1] * r.c[1]) / 2;
		d2 = ::atan2(r.c[1], i.c[1]);
		d3 = ::exp(d1 * n.i.c[1] - d2 * n.r.c[1]);
		d4 = d1 * n.r.c[1] + d2 * n.i.c[1];
		d5 = d3 * ::cos(d4);
		d6 = d3 * ::sin(d4);
		i.c[1] = d5;
		r.c[1] = d6;
		d1 = ::log(i.c[2] * i.c[2] + r.c[2] * r.c[2]) / 2;
		d2 = ::atan2(r.c[2], i.c[2]);
		d3 = ::exp(d1 * n.i.c[2] - d2 * n.r.c[2]);
		d4 = d1 * n.r.c[2] + d2 * n.i.c[2];
		d5 = d3 * ::cos(d4);
		d6 = d3 * ::sin(d4);
		i.c[2] = d5;
		r.c[2] = d6;
		d1 = ::log(i.c[3] * i.c[3] + r.c[3] * r.c[3]) / 2;
		d2 = ::atan2(r.c[3], i.c[3]);
		d3 = ::exp(d1 * n.i.c[3] - d2 * n.r.c[3]);
		d4 = d1 * n.r.c[3] + d2 * n.i.c[3];
		d5 = d3 * ::cos(d4);
		d6 = d3 * ::sin(d4);
		i.c[3] = d5;
		r.c[3] = d6;
		return this;
	}


	AML_FUNCTION AML_PREFIX(Array4Complex64) *pow(const AML_PREFIX(Complex64) n) {
		double d1 = ::log(i.c[0] * i.c[0] + r.c[0] * r.c[0]) / 2;
		double d2 = ::atan2(r.c[0], i.c[0]);
		double d3 = ::exp(d1 * n.c.c[0] - d2 * n.c.c[1]);
		double d4 = d1 * n.c.c[1] + d2 * n.c.c[0];
		double d5 = d3 * ::cos(d4);
		double d6 = d3 * ::sin(d4);
		i.c[0] = d5;
		r.c[0] = d6;
		d1 = ::log(i.c[1] * i.c[1] + r.c[1] * r.c[1]) / 2;
		d2 = ::atan2(r.c[1], i.c[1]);
		d3 = ::exp(d1 * n.c.c[0] - d2 * n.c.c[1]);
		d4 = d1 * n.c.c[1] + d2 * n.c.c[0];
		d5 = d3 * ::cos(d4);
		d6 = d3 * ::sin(d4);
		i.c[1] = d5;
		r.c[1] = d6;
		d1 = ::log(i.c[2] * i.c[2] + r.c[2] * r.c[2]) / 2;
		d2 = ::atan2(r.c[2], i.c[2]);
		d3 = ::exp(d1 * n.c.c[0] - d2 * n.c.c[1]);
		d4 = d1 * n.c.c[1] + d2 * n.c.c[0];
		d5 = d3 * ::cos(d4);
		d6 = d3 * ::sin(d4);
		i.c[2] = d5;
		r.c[2] = d6;
		d1 = ::log(i.c[3] * i.c[3] + r.c[3] * r.c[3]) / 2;
		d2 = ::atan2(r.c[3], i.c[3]);
		d3 = ::exp(d1 * n.c.c[0] - d2 * n.c.c[1]);
		d4 = d1 * n.c.c[1] + d2 * n.c.c[0];
		d5 = d3 * ::cos(d4);
		d6 = d3 * ::sin(d4);
		i.c[3] = d5;
		r.c[3] = d6;
		return this;
	}

	AML_FUNCTION AML_PREFIX(Array4Complex64) *
	pow(const AML_PREFIX(Array4Complex64) &n, const AML_PREFIX(VectorU8_4D) &mask) {
		double d1;
		double d2;
		double d3;
		double d4;
		double d5;
		double d6;
		if (mask.v.c[0]) {
			d1 = ::log(i.c[0] * i.c[0] + r.c[0] * r.c[0]) / 2;
			d2 = ::atan2(r.c[0], i.c[0]);
			d3 = ::exp(d1 * n.i.c[0] - d2 * n.r.c[0]);
			d4 = d1 * n.r.c[0] + d2 * n.i.c[0];
			d5 = d3 * ::cos(d4);
			d6 = d3 * ::sin(d4);
			i.c[0] = d5;
			r.c[0] = d6;
		}
		if (mask.v.c[1]) {
			d1 = ::log(i.c[1] * i.c[1] + r.c[1] * r.c[1]) / 2;
			d2 = ::atan2(r.c[1], i.c[1]);
			d3 = ::exp(d1 * n.i.c[1] - d2 * n.r.c[1]);
			d4 = d1 * n.r.c[1] + d2 * n.i.c[1];
			d5 = d3 * ::cos(d4);
			d6 = d3 * ::sin(d4);
			i.c[1] = d5;
			r.c[1] = d6;
		}
		if (mask.v.c[2]) {
			d1 = ::log(i.c[2] * i.c[2] + r.c[2] * r.c[2]) / 2;
			d2 = ::atan2(r.c[2], i.c[2]);
			d3 = ::exp(d1 * n.i.c[2] - d2 * n.r.c[2]);
			d4 = d1 * n.r.c[2] + d2 * n.i.c[2];
			d5 = d3 * ::cos(d4);
			d6 = d3 * ::sin(d4);
			i.c[2] = d5;
			r.c[2] = d6;
		}
		if (mask.v.c[3]) {
			d1 = ::log(i.c[3] * i.c[3] + r.c[3] * r.c[3]) / 2;
			d2 = ::atan2(r.c[3], i.c[3]);
			d3 = ::exp(d1 * n.i.c[3] - d2 * n.r.c[3]);
			d4 = d1 * n.r.c[3] + d2 * n.i.c[3];
			d5 = d3 * ::cos(d4);
			d6 = d3 * ::sin(d4);
			i.c[3] = d5;
			r.c[3] = d6;
		}
		return this;
	}


	AML_FUNCTION AML_PREFIX(Array4Complex64) *pow(const AML_PREFIX(Complex64) n, const AML_PREFIX(VectorU8_4D) &mask) {
		double d1;
		double d2;
		double d3;
		double d4;
		double d5;
		double d6;
		if (mask.v.c[0]) {
			d1 = ::log(i.c[0] * i.c[0] + r.c[0] * r.c[0]) / 2;
			d2 = ::atan2(r.c[0], i.c[0]);
			d3 = ::exp(d1 * n.c.c[0] - d2 * n.c.c[1]);
			d4 = d1 * n.c.c[1] + d2 * n.c.c[0];
			d5 = d3 * ::cos(d4);
			d6 = d3 * ::sin(d4);
			i.c[0] = d5;
			r.c[0] = d6;
		}
		if (mask.v.c[1]) {
			d1 = ::log(i.c[1] * i.c[1] + r.c[1] * r.c[1]) / 2;
			d2 = ::atan2(r.c[1], i.c[1]);
			d3 = ::exp(d1 * n.c.c[0] - d2 * n.c.c[1]);
			d4 = d1 * n.c.c[1] + d2 * n.c.c[0];
			d5 = d3 * ::cos(d4);
			d6 = d3 * ::sin(d4);
			i.c[1] = d5;
			r.c[1] = d6;
		}
		if (mask.v.c[2]) {
			d1 = ::log(i.c[2] * i.c[2] + r.c[2] * r.c[2]) / 2;
			d2 = ::atan2(r.c[2], i.c[2]);
			d3 = ::exp(d1 * n.c.c[0] - d2 * n.c.c[1]);
			d4 = d1 * n.c.c[1] + d2 * n.c.c[0];
			d5 = d3 * ::cos(d4);
			d6 = d3 * ::sin(d4);
			i.c[2] = d5;
			r.c[2] = d6;
		}
		if (mask.v.c[3]) {
			d1 = ::log(i.c[3] * i.c[3] + r.c[3] * r.c[3]) / 2;
			d2 = ::atan2(r.c[3], i.c[3]);
			d3 = ::exp(d1 * n.c.c[0] - d2 * n.c.c[1]);
			d4 = d1 * n.c.c[1] + d2 * n.c.c[0];
			d5 = d3 * ::cos(d4);
			d6 = d3 * ::sin(d4);
			i.c[3] = d5;
			r.c[3] = d6;
		}
		return this;
	}

	AML_FUNCTION AML_PREFIX(Array4Complex64) *exp(double n, const AML_PREFIX(VectorU8_4D) &mask) {
		double d1;
		double d2;
		if (mask.v.c[0]) {
			d1 = ::pow(n, r.c[0]) * ::cos(i.c[0] * ::log(n));
			d2 = ::pow(n, r.c[0]) * ::sin(i.c[0] * ::log(n));
			r.c[0] = d1;
			i.c[0] = d2;
		}
		if (mask.v.c[1]) {
			d1 = ::pow(n, r.c[1]) * ::cos(i.c[1] * ::log(n));
			d2 = ::pow(n, r.c[1]) * ::sin(i.c[1] * ::log(n));
			r.c[1] = d1;
			i.c[1] = d2;
		}
		if (mask.v.c[2]) {
			d1 = ::pow(n, r.c[2]) * ::cos(i.c[2] * ::log(n));
			d2 = ::pow(n, r.c[2]) * ::sin(i.c[2] * ::log(n));
			r.c[2] = d1;
			i.c[2] = d2;
		}
		if (mask.v.c[3]) {
			d1 = ::pow(n, r.c[3]) * ::cos(i.c[3] * ::log(n));
			d2 = ::pow(n, r.c[3]) * ::sin(i.c[3] * ::log(n));
			r.c[3] = d1;
			i.c[3] = d2;
		}
		return this;
	}

	AML_FUNCTION AML_PREFIX(Array4Complex64) *pow(double n) {
		double d1;
		double d2;
		d1 = ::pow(r.c[0] * r.c[0] + i.c[0] * i.c[0], n / 2) * ::cos(n * atan2(i.c[0], r.c[0]));
		d2 = ::pow(r.c[0] * r.c[0] + i.c[0] * i.c[0], n / 2) * ::sin(n * atan2(i.c[0], r.c[0]));
		r.c[0] = d1;
		i.c[0] = d2;
		d1 = ::pow(r.c[1] * r.c[1] + i.c[1] * i.c[1], n / 2) * ::cos(n * atan2(i.c[1], r.c[1]));
		d2 = ::pow(r.c[1] * r.c[1] + i.c[1] * i.c[1], n / 2) * ::sin(n * atan2(i.c[1], r.c[1]));
		r.c[1] = d1;
		i.c[1] = d2;
		d1 = ::pow(r.c[2] * r.c[2] + i.c[2] * i.c[2], n / 2) * ::cos(n * atan2(i.c[2], r.c[2]));
		d2 = ::pow(r.c[2] * r.c[2] + i.c[2] * i.c[2], n / 2) * ::sin(n * atan2(i.c[2], r.c[2]));
		r.c[2] = d1;
		i.c[2] = d2;
		d1 = ::pow(r.c[3] * r.c[3] + i.c[3] * i.c[3], n / 2) * ::cos(n * atan2(i.c[3], r.c[3]));
		d2 = ::pow(r.c[3] * r.c[3] + i.c[3] * i.c[3], n / 2) * ::sin(n * atan2(i.c[3], r.c[3]));
		r.c[3] = d1;
		i.c[3] = d2;

		return this;
	}

	AML_FUNCTION AML_PREFIX(Array4Complex64) *pow(double n, const AML_PREFIX(VectorU8_4D) &mask) {
		double d1;
		double d2;
		if (mask.v.c[0]) {
			d1 = ::pow(r.c[0] * r.c[0] + i.c[0] * i.c[0], n / 2) * ::cos(n * atan2(i.c[0], r.c[0]));
			d2 = ::pow(r.c[0] * r.c[0] + i.c[0] * i.c[0], n / 2) * ::sin(n * atan2(i.c[0], r.c[0]));
			r.c[0] = d1;
			i.c[0] = d2;
		}
		if (mask.v.c[1]) {
			d1 = ::pow(r.c[1] * r.c[1] + i.c[1] * i.c[1], n / 2) * ::cos(n * atan2(i.c[1], r.c[1]));
			d2 = ::pow(r.c[1] * r.c[1] + i.c[1] * i.c[1], n / 2) * ::sin(n * atan2(i.c[1], r.c[1]));
			r.c[1] = d1;
			i.c[1] = d2;
		}
		if (mask.v.c[2]) {
			d1 = ::pow(r.c[2] * r.c[2] + i.c[2] * i.c[2], n / 2) * ::cos(n * atan2(i.c[2], r.c[2]));
			d2 = ::pow(r.c[2] * r.c[2] + i.c[2] * i.c[2], n / 2) * ::sin(n * atan2(i.c[2], r.c[2]));
			r.c[2] = d1;
			i.c[2] = d2;
		}
		if (mask.v.c[3]) {
			d1 = ::pow(r.c[3] * r.c[3] + i.c[3] * i.c[3], n / 2) * ::cos(n * atan2(i.c[3], r.c[3]));
			d2 = ::pow(r.c[3] * r.c[3] + i.c[3] * i.c[3], n / 2) * ::sin(n * atan2(i.c[3], r.c[3]));
			r.c[3] = d1;
			i.c[3] = d2;
		}
		return this;
	}

	AML_FUNCTION AML_PREFIX(Vector4D_64) abs() {
		AML_PREFIX(Vector4D_64) ret;
		ret.v.c[0] = ::sqrt(r.c[0] * r.c[0] + i.c[0] * i.c[0]);
		ret.v.c[1] = ::sqrt(r.c[1] * r.c[1] + i.c[1] * i.c[1]);
		ret.v.c[2] = ::sqrt(r.c[2] * r.c[2] + i.c[2] * i.c[2]);
		ret.v.c[3] = ::sqrt(r.c[3] * r.c[3] + i.c[3] * i.c[3]);
		return ret;
	}

	AML_FUNCTION AML_PREFIX(VectorU8_4D) abs_gt(double a) {
		AML_PREFIX(VectorU8_4D) ret;
		ret.v.c[0] = a * a < r.c[0] * r.c[0] + i.c[0] * i.c[0];
		ret.v.c[1] = a * a < r.c[1] * r.c[1] + i.c[1] * i.c[1];
		ret.v.c[2] = a * a < r.c[2] * r.c[2] + i.c[2] * i.c[2];
		ret.v.c[3] = a * a < r.c[3] * r.c[3] + i.c[3] * i.c[3];
		return ret;
	}

	AML_FUNCTION AML_PREFIX(VectorU8_4D) abs_lt(double a) {
		AML_PREFIX(VectorU8_4D) ret;
		ret.v.c[0] = a * a > r.c[0] * r.c[0] + i.c[0] * i.c[0];
		ret.v.c[1] = a * a > r.c[1] * r.c[1] + i.c[1] * i.c[1];
		ret.v.c[2] = a * a > r.c[2] * r.c[2] + i.c[2] * i.c[2];
		ret.v.c[3] = a * a > r.c[3] * r.c[3] + i.c[3] * i.c[3];
		return ret;
	}

	AML_FUNCTION AML_PREFIX(VectorU8_4D) abs_eq(double a) {
		AML_PREFIX(VectorU8_4D) ret;
		ret.v.c[0] = a * a == r.c[0] * r.c[0] + i.c[0] * i.c[0];
		ret.v.c[1] = a * a == r.c[1] * r.c[1] + i.c[1] * i.c[1];
		ret.v.c[2] = a * a == r.c[2] * r.c[2] + i.c[2] * i.c[2];
		ret.v.c[3] = a * a == r.c[3] * r.c[3] + i.c[3] * i.c[3];
		return ret;
	}

	AML_FUNCTION AML_PREFIX(Array4Complex64) *ln(const AML_PREFIX(VectorU8_4D) &mask) {
		double d1;
		double d2;
		if (mask.v.c[0]) {
			d1 = ::log(i.c[0] * i.c[0] + r.c[0] * r.c[0]) / 2;
			d2 = ::atan2(r.c[0], i.c[0]);
			i.c[0] = d1;
			r.c[0] = d2;
		}
		if (mask.v.c[1]) {
			d1 = ::log(i.c[1] * i.c[1] + r.c[1] * r.c[1]) / 2;
			d2 = ::atan2(r.c[1], i.c[1]);
			i.c[1] = d1;
			r.c[1] = d2;
		}
		if (mask.v.c[2]) {
			d1 = ::log(i.c[2] * i.c[2] + r.c[2] * r.c[2]) / 2;
			d2 = ::atan2(r.c[2], i.c[2]);
			i.c[2] = d1;
			r.c[2] = d2;
		}
		if (mask.v.c[3]) {
			d1 = ::log(i.c[3] * i.c[3] + r.c[3] * r.c[3]) / 2;
			d2 = ::atan2(r.c[3], i.c[3]);
			i.c[3] = d1;
			r.c[3] = d2;
		}
		return this;
	}

	AML_FUNCTION AML_PREFIX(Array4Complex64) *log(const AML_PREFIX(VectorU8_4D) &mask) {
		double d1;
		double d2;
		if (mask.v.c[0]) {
			d1 = ::log(i.c[0] * i.c[0] + r.c[0] * r.c[0]) / 2;
			d2 = ::atan2(r.c[0], i.c[0]);
			i.c[0] = d1;
			r.c[0] = d2;
		}
		if (mask.v.c[1]) {
			d1 = ::log(i.c[1] * i.c[1] + r.c[1] * r.c[1]) / 2;
			d2 = ::atan2(r.c[1], i.c[1]);
			i.c[1] = d1;
			r.c[1] = d2;
		}
		if (mask.v.c[2]) {
			d1 = ::log(i.c[2] * i.c[2] + r.c[2] * r.c[2]) / 2;
			d2 = ::atan2(r.c[2], i.c[2]);
			i.c[2] = d1;
			r.c[2] = d2;
		}
		if (mask.v.c[3]) {
			d1 = ::log(i.c[3] * i.c[3] + r.c[3] * r.c[3]) / 2;
			d2 = ::atan2(r.c[3], i.c[3]);
			i.c[3] = d1;
			r.c[3] = d2;
		}
		return this;
	}

	AML_FUNCTION AML_PREFIX(Array4Complex64) *log10(const AML_PREFIX(VectorU8_4D) &mask) {
		double d1;
		double d2;
		if (mask.v.c[0]) {
			d1 = ::log(i.c[0] * i.c[0] + r.c[0] * r.c[0]) / (2 * AML_LN10);
			d2 = ::atan2(r.c[0], i.c[0]) / AML_LN10;
			i.c[0] = d1;
			r.c[0] = d2;
		}
		if (mask.v.c[1]) {
			d1 = ::log(i.c[1] * i.c[1] + r.c[1] * r.c[1]) / (2 * AML_LN10);
			d2 = ::atan2(r.c[1], i.c[1]) / AML_LN10;
			i.c[1] = d1;
			r.c[1] = d2;
		}
		if (mask.v.c[2]) {
			d1 = ::log(i.c[2] * i.c[2] + r.c[2] * r.c[2]) / (2 * AML_LN10);
			d2 = ::atan2(r.c[2], i.c[2]) / AML_LN10;
			i.c[2] = d1;
			r.c[2] = d2;
		}
		if (mask.v.c[3]) {
			d1 = ::log(i.c[3] * i.c[3] + r.c[3] * r.c[3]) / (2 * AML_LN10);
			d2 = ::atan2(r.c[3], i.c[3]) / AML_LN10;
			i.c[3] = d1;
			r.c[3] = d2;
		}
		return this;
	}

	AML_FUNCTION AML_PREFIX(Array4Complex64) *ln() {
		double d1;
		double d2;
		d1 = ::log(i.c[0] * i.c[0] + r.c[0] * r.c[0]) / 2;
		d2 = ::atan2(r.c[0], i.c[0]);
		i.c[0] = d1;
		r.c[0] = d2;
		d1 = ::log(i.c[1] * i.c[1] + r.c[1] * r.c[1]) / 2;
		d2 = ::atan2(r.c[1], i.c[1]);
		i.c[1] = d1;
		r.c[1] = d2;
		d1 = ::log(i.c[2] * i.c[2] + r.c[2] * r.c[2]) / 2;
		d2 = ::atan2(r.c[2], i.c[2]);
		i.c[2] = d1;
		r.c[2] = d2;
		d1 = ::log(i.c[3] * i.c[3] + r.c[3] * r.c[3]) / 2;
		d2 = ::atan2(r.c[3], i.c[3]);
		i.c[3] = d1;
		r.c[3] = d2;
		return this;
	}

	AML_FUNCTION AML_PREFIX(Array4Complex64) *log() {
		double d1;
		double d2;
		d1 = ::log(i.c[0] * i.c[0] + r.c[0] * r.c[0]) / 2;
		d2 = ::atan2(r.c[0], i.c[0]);
		i.c[0] = d1;
		r.c[0] = d2;
		d1 = ::log(i.c[1] * i.c[1] + r.c[1] * r.c[1]) / 2;
		d2 = ::atan2(r.c[1], i.c[1]);
		i.c[1] = d1;
		r.c[1] = d2;
		d1 = ::log(i.c[2] * i.c[2] + r.c[2] * r.c[2]) / 2;
		d2 = ::atan2(r.c[2], i.c[2]);
		i.c[2] = d1;
		r.c[2] = d2;
		d1 = ::log(i.c[3] * i.c[3] + r.c[3] * r.c[3]) / 2;
		d2 = ::atan2(r.c[3], i.c[3]);
		i.c[3] = d1;
		r.c[3] = d2;
		return this;
	}

	AML_FUNCTION AML_PREFIX(Array4Complex64) *log10() {
		double d1;
		double d2;
		d1 = ::log(i.c[0] * i.c[0] + r.c[0] * r.c[0]) / (2 * AML_LN10);
		d2 = ::atan2(r.c[0], i.c[0]) / AML_LN10;
		i.c[0] = d1;
		r.c[0] = d2;
		d1 = ::log(i.c[1] * i.c[1] + r.c[1] * r.c[1]) / (2 * AML_LN10);
		d2 = ::atan2(r.c[1], i.c[1]) / AML_LN10;
		i.c[1] = d1;
		r.c[1] = d2;
		d1 = ::log(i.c[2] * i.c[2] + r.c[2] * r.c[2]) / (2 * AML_LN10);
		d2 = ::atan2(r.c[2], i.c[2]) / AML_LN10;
		i.c[2] = d1;
		r.c[2] = d2;
		d1 = ::log(i.c[3] * i.c[3] + r.c[3] * r.c[3]) / (2 * AML_LN10);
		d2 = ::atan2(r.c[3], i.c[3]) / AML_LN10;
		i.c[3] = d1;
		r.c[3] = d2;
		return this;
	}

#if !defined(USE_OPENCL) && !defined(USE_CUDA)

	class AML_PREFIX(Complex64_4_Itr) : public std::iterator<
			std::input_iterator_tag,   // iterator_category
			AML_PREFIX(Complex64Ptr),                      // value_type
			long,                      // difference_type
			const AML_PREFIX(Complex64Ptr) *,               // pointer
			AML_PREFIX(Complex64Ptr)                       // reference
	> {

		AML_PREFIX(Array4Complex64) *a;
		int position;

	public:
		AML_FUNCTION explicit AML_PREFIX(Complex64_4_Itr)(AML_PREFIX(Array4Complex64) *array, int length) : a(array),
																											position(
																													length) {}

		AML_FUNCTION AML_PREFIX(Complex64_4_Itr) &operator++() {
			position++;
			return *this;
		}

		AML_FUNCTION bool operator==(const AML_PREFIX(Complex64_4_Itr) other) const {
			return position == other.position;
		}

		AML_FUNCTION bool operator!=(const AML_PREFIX(Complex64_4_Itr) other) const { return !(*this == other); }

		AML_FUNCTION reference operator*() const {
			return AML_PREFIX(Complex64Ptr)(&a->r.c[position], &a->i.c[position], position);
		}


	};

	AML_FUNCTION AML_PREFIX(Complex64_4_Itr) begin() {
		return AML_PREFIX(Complex64_4_Itr)(this, 0);
	}

	AML_FUNCTION AML_PREFIX(Complex64_4_Itr) end() {
		return AML_PREFIX(Complex64_4_Itr)(this, 4);
	}

#endif
};


#if !defined(AML_NO_STRING)


AML_FUNCTION std::string operator<<(std::string &lhs, const AML_PREFIX(Array4Complex64) &rhs) {
	std::ostringstream string;
	string << lhs << "{ " << rhs.r.c[0] << " + " << rhs.i.c[0] << "i ,  " << rhs.r.c[1] << " + " << rhs.i.c[1]
		   << "i ,  " << rhs.r.c[2] << " + " << rhs.i.c[2] << "i ,  " << rhs.r.c[3] << " + " << rhs.i.c[3] << "i }";
	return string.str();
}

AML_FUNCTION std::string operator<<(const char *lhs, const AML_PREFIX(Array4Complex64) &rhs) {
	std::ostringstream string;
	string << lhs << "{ " << rhs.r.c[0] << " + " << rhs.i.c[0] << "i ,  " << rhs.r.c[1] << " + " << rhs.i.c[1]
		   << "i ,  " << rhs.r.c[2] << " + " << rhs.i.c[2] << "i ,  " << rhs.r.c[3] << " + " << rhs.i.c[3] << "i }";
	return string.str();
}

template<class charT, class traits>
std::basic_ostream<charT, traits> &
operator<<(std::basic_ostream<charT, traits> &o, const AML_PREFIX(Array4Complex64) &rhs) {
	std::basic_ostringstream<charT, traits> s;
	s.flags(o.flags());
	s.imbue(o.getloc());
	s.precision(o.precision());
	s << "{ " << rhs.r.c[0] << " + " << rhs.i.c[0] << "i ,  " << rhs.r.c[1] << " + " << rhs.i.c[1]
	  << "i ,  " << rhs.r.c[2] << " + " << rhs.i.c[2] << "i ,  " << rhs.r.c[3] << " + " << rhs.i.c[3] << "i }";
	return o << s.str();
}

#endif

AML_FUNCTION AML_PREFIX(Array4Complex64)
operator+(const AML_PREFIX(Complex64) &lhs, const AML_PREFIX(Array4Complex64) &rhs) {
	return rhs + lhs;
}

AML_FUNCTION AML_PREFIX(Array4Complex64)
operator-(const AML_PREFIX(Complex64) &lhs, const AML_PREFIX(Array4Complex64) &rhs) {
	AML_PREFIX(Array4Complex64) ret;
	ret.i.c[0] = lhs.c.c[1] - rhs.i.c[0];
	ret.i.c[1] = lhs.c.c[1] - rhs.i.c[1];
	ret.i.c[2] = lhs.c.c[1] - rhs.i.c[2];
	ret.i.c[3] = lhs.c.c[1] - rhs.i.c[3];
	ret.r.c[0] = lhs.c.c[0] - rhs.r.c[0];
	ret.r.c[1] = lhs.c.c[0] - rhs.r.c[1];
	ret.r.c[2] = lhs.c.c[0] - rhs.r.c[2];
	ret.r.c[3] = lhs.c.c[0] - rhs.r.c[3];
	return ret;
}

AML_FUNCTION AML_PREFIX(Array4Complex64)
operator*(const AML_PREFIX(Complex64) &lhs, const AML_PREFIX(Array4Complex64) &rhs) {
	return rhs * lhs;
}

AML_FUNCTION AML_PREFIX(Array4Complex64)
operator/(const AML_PREFIX(Complex64) &lhs, const AML_PREFIX(Array4Complex64) &rhs) {
	AML_PREFIX(Array4Complex64) ret;
	double d1 =
			(lhs.c.c[0] * rhs.r.c[0] + lhs.c.c[1] * rhs.i.c[0]) / (rhs.r.c[0] * rhs.r.c[0] + rhs.i.c[0] * rhs.i.c[0]);
	double d2 =
			(lhs.c.c[1] * rhs.r.c[0] - lhs.c.c[0] * rhs.i.c[0]) / (rhs.r.c[0] * rhs.r.c[0] + rhs.i.c[0] * rhs.i.c[0]);
	ret.r.c[0] = d1;
	ret.i.c[0] = d2;
	d1 = (lhs.c.c[0] * rhs.r.c[1] + lhs.c.c[1] * rhs.i.c[1]) / (rhs.r.c[1] * rhs.r.c[1] + rhs.i.c[1] * rhs.i.c[1]);
	d2 = (lhs.c.c[1] * rhs.r.c[1] - lhs.c.c[0] * rhs.i.c[1]) / (rhs.r.c[1] * rhs.r.c[1] + rhs.i.c[1] * rhs.i.c[1]);
	ret.r.c[1] = d1;
	ret.i.c[1] = d2;
	d1 = (lhs.c.c[0] * rhs.r.c[2] + lhs.c.c[1] * rhs.i.c[2]) / (rhs.r.c[2] * rhs.r.c[2] + rhs.i.c[2] * rhs.i.c[2]);
	d2 = (lhs.c.c[1] * rhs.r.c[2] - lhs.c.c[0] * rhs.i.c[2]) / (rhs.r.c[2] * rhs.r.c[2] + rhs.i.c[2] * rhs.i.c[2]);
	ret.r.c[2] = d1;
	ret.i.c[2] = d2;
	d1 = (lhs.c.c[0] * rhs.r.c[3] + lhs.c.c[1] * rhs.i.c[3]) / (rhs.r.c[3] * rhs.r.c[3] + rhs.i.c[3] * rhs.i.c[3]);
	d2 = (lhs.c.c[1] * rhs.r.c[3] - lhs.c.c[0] * rhs.i.c[3]) / (rhs.r.c[3] * rhs.r.c[3] + rhs.i.c[3] * rhs.i.c[3]);
	ret.r.c[3] = d1;
	ret.i.c[3] = d2;
	return ret;
}

class AML_PREFIX(Array8Complex64) {
public:
	AML_PREFIX(doublevec8) r{};
	AML_PREFIX(doublevec8) i{};

	AML_FUNCTION AML_PREFIX(Array8Complex64)() {}

	AML_FUNCTION AML_PREFIX(Array8Complex64)(const AML_PREFIX(Complex64) value) {
#if defined(USE_AVX)
		r.avx[0] = _mm256_set1_pd(value.c.c[0]);
		r.avx[1] = _mm256_set1_pd(value.c.c[0]);
		i.avx[0] = _mm256_set1_pd(value.c.c[1]);
		i.avx[1] = _mm256_set1_pd(value.c.c[1]);
#else
		r.c[0] = value.c.c[0];
		i.c[0] = value.c.c[1];
		r.c[1] = value.c.c[0];
		i.c[1] = value.c.c[1];
		r.c[2] = value.c.c[0];
		i.c[2] = value.c.c[1];
		r.c[3] = value.c.c[0];
		i.c[3] = value.c.c[1];
		r.c[4] = value.c.c[0];
		i.c[4] = value.c.c[1];
		r.c[5] = value.c.c[0];
		i.c[5] = value.c.c[1];
		r.c[6] = value.c.c[0];
		i.c[6] = value.c.c[1];
		r.c[7] = value.c.c[0];
		i.c[7] = value.c.c[1];
#endif
	}

	AML_FUNCTION AML_PREFIX(Vector8D_64) real() {
		return AML_PREFIX(Vector8D_64)(r.c);
	}

	AML_FUNCTION AML_PREFIX(Vector8D_64) complex() {
		return AML_PREFIX(Vector8D_64)(i.c);
	}

	AML_FUNCTION AML_PREFIX(Complex64) operator[](uint64_t location) {
		return AML_PREFIX(Complex64)(r.c[location], i.c[location]);
	}

	AML_FUNCTION void set(uint64_t location, AML_PREFIX(Complex64) value) {
		r.c[location] = value.c.c[0];
		i.c[location] = value.c.c[1];
	}

	AML_FUNCTION AML_PREFIX(Array8Complex64) *add(const AML_PREFIX(Array8Complex64) &a) {
#if defined(USE_AVX)
		i.avx[0] = _mm256_add_pd(i.avx[0], a.i.avx[0]);
		i.avx[1] = _mm256_add_pd(i.avx[1], a.i.avx[1]);
		r.avx[0] = _mm256_add_pd(r.avx[0], a.r.avx[0]);
		r.avx[1] = _mm256_add_pd(r.avx[1], a.r.avx[1]);
#else
		r.c[0] += a.r.c[0];
		r.c[1] += a.r.c[1];
		r.c[2] += a.r.c[2];
		r.c[3] += a.r.c[3];
		r.c[4] += a.r.c[4];
		r.c[5] += a.r.c[5];
		r.c[6] += a.r.c[6];
		r.c[7] += a.r.c[7];
		i.c[0] += a.i.c[0];
		i.c[1] += a.i.c[1];
		i.c[2] += a.i.c[2];
		i.c[3] += a.i.c[3];
		i.c[4] += a.i.c[4];
		i.c[5] += a.i.c[5];
		i.c[6] += a.i.c[6];
		i.c[7] += a.i.c[7];
#endif
		return this;
	}

	AML_FUNCTION AML_PREFIX(Array8Complex64) *add(const AML_PREFIX(Complex64) &a) {
#if defined(USE_AVX)
		__m256d a_i = {a.c.c[1], a.c.c[1], a.c.c[1], a.c.c[1]};
		i.avx[0] = _mm256_add_pd(i.avx[0], a_i);
		i.avx[1] = _mm256_add_pd(i.avx[1], a_i);
		__m256d a_r = {a.c.c[0], a.c.c[0], a.c.c[0], a.c.c[0]};
		r.avx[0] = _mm256_add_pd(r.avx[0], a_r);
		r.avx[1] = _mm256_add_pd(r.avx[1], a_r);
#else
		i.c[0] += a.c.c[1];
		i.c[1] += a.c.c[1];
		i.c[2] += a.c.c[1];
		i.c[3] += a.c.c[1];
		i.c[4] += a.c.c[1];
		i.c[5] += a.c.c[1];
		i.c[6] += a.c.c[1];
		i.c[7] += a.c.c[1];
		r.c[0] += a.c.c[0];
		r.c[1] += a.c.c[0];
		r.c[2] += a.c.c[0];
		r.c[3] += a.c.c[0];
		r.c[4] += a.c.c[0];
		r.c[5] += a.c.c[0];
		r.c[6] += a.c.c[0];
		r.c[7] += a.c.c[0];
#endif
		return this;
	}

	AML_FUNCTION void operator+=(const AML_PREFIX(Array8Complex64) &a) {
#if defined(USE_AVX)
		i.avx[0] = _mm256_add_pd(i.avx[0], a.i.avx[0]);
		i.avx[1] = _mm256_add_pd(i.avx[1], a.i.avx[1]);
		r.avx[0] = _mm256_add_pd(r.avx[0], a.r.avx[0]);
		r.avx[1] = _mm256_add_pd(r.avx[1], a.r.avx[1]);
#else
		i.c[0] += a.i.c[0];
		i.c[1] += a.i.c[1];
		i.c[2] += a.i.c[2];
		i.c[3] += a.i.c[3];
		i.c[4] += a.i.c[4];
		i.c[5] += a.i.c[5];
		i.c[6] += a.i.c[6];
		i.c[7] += a.i.c[7];
		r.c[0] += a.r.c[0];
		r.c[1] += a.r.c[1];
		r.c[2] += a.r.c[2];
		r.c[3] += a.r.c[3];
		r.c[4] += a.r.c[4];
		r.c[5] += a.r.c[5];
		r.c[6] += a.r.c[6];
		r.c[7] += a.r.c[7];
#endif
	}

	AML_FUNCTION void operator+=(const AML_PREFIX(Complex64) a) {
#if defined(USE_AVX)
		__m256d a_i = {a.c.c[1], a.c.c[1], a.c.c[1], a.c.c[1]};
		i.avx[0] = _mm256_add_pd(i.avx[0], a_i);
		i.avx[1] = _mm256_add_pd(i.avx[1], a_i);
		__m256d a_r = {a.c.c[0], a.c.c[0], a.c.c[0], a.c.c[0]};
		r.avx[0] = _mm256_add_pd(r.avx[0], a_r);
		r.avx[1] = _mm256_add_pd(r.avx[1], a_r);
#else
		i.c[0] += a.c.c[1];
		i.c[1] += a.c.c[1];
		i.c[2] += a.c.c[1];
		i.c[3] += a.c.c[1];
		i.c[4] += a.c.c[1];
		i.c[5] += a.c.c[1];
		i.c[6] += a.c.c[1];
		i.c[7] += a.c.c[1];
		r.c[0] += a.c.c[0];
		r.c[1] += a.c.c[0];
		r.c[2] += a.c.c[0];
		r.c[3] += a.c.c[0];
		r.c[4] += a.c.c[0];
		r.c[5] += a.c.c[0];
		r.c[6] += a.c.c[0];
		r.c[7] += a.c.c[0];
#endif
	}

	AML_FUNCTION AML_PREFIX(Array8Complex64) operator+(const AML_PREFIX(Array8Complex64) &a) const {
		AML_PREFIX(Array8Complex64) ret;
#if defined(USE_AVX)
		ret.i.avx[0] = _mm256_add_pd(i.avx[0], a.i.avx[0]);
		ret.i.avx[1] = _mm256_add_pd(i.avx[1], a.i.avx[1]);
		ret.r.avx[0] = _mm256_add_pd(r.avx[0], a.r.avx[0]);
		ret.r.avx[1] = _mm256_add_pd(r.avx[1], a.r.avx[1]);
#else
		ret.r.c[0] = r.c[0] + a.r.c[0];
		ret.r.c[1] = r.c[1] + a.r.c[1];
		ret.r.c[2] = r.c[2] + a.r.c[2];
		ret.r.c[3] = r.c[3] + a.r.c[3];
		ret.r.c[4] = r.c[4] + a.r.c[4];
		ret.r.c[5] = r.c[5] + a.r.c[5];
		ret.r.c[6] = r.c[6] + a.r.c[6];
		ret.r.c[7] = r.c[7] + a.r.c[7];
		ret.i.c[0] = i.c[0] + a.i.c[0];
		ret.i.c[1] = i.c[1] + a.i.c[1];
		ret.i.c[2] = i.c[2] + a.i.c[2];
		ret.i.c[3] = i.c[3] + a.i.c[3];
		ret.i.c[4] = i.c[4] + a.i.c[4];
		ret.i.c[5] = i.c[5] + a.i.c[5];
		ret.i.c[6] = i.c[6] + a.i.c[6];
		ret.i.c[7] = i.c[7] + a.i.c[7];
#endif
		return ret;
	}

	AML_FUNCTION AML_PREFIX(Array8Complex64) operator+(const AML_PREFIX(Complex64) a) const {
		AML_PREFIX(Array8Complex64) ret{};
#if defined(USE_AVX)
		__m256d a_i = {a.c.c[1], a.c.c[1], a.c.c[1], a.c.c[1]};
		ret.i.avx[0] = _mm256_add_pd(i.avx[0], a_i);
		ret.i.avx[1] = _mm256_add_pd(i.avx[1], a_i);
		__m256d a_r = {a.c.c[0], a.c.c[0], a.c.c[0], a.c.c[0]};
		ret.r.avx[0] = _mm256_add_pd(r.avx[0], a_r);
		ret.r.avx[1] = _mm256_add_pd(r.avx[1], a_r);
#else
		ret.i.c[0] = i.c[0] + a.c.c[1];
		ret.i.c[1] = i.c[1] + a.c.c[1];
		ret.i.c[2] = i.c[2] + a.c.c[1];
		ret.i.c[3] = i.c[3] + a.c.c[1];
		ret.i.c[4] = i.c[4] + a.c.c[1];
		ret.i.c[5] = i.c[5] + a.c.c[1];
		ret.i.c[6] = i.c[6] + a.c.c[1];
		ret.i.c[7] = i.c[7] + a.c.c[1];
		ret.r.c[0] = r.c[0] + a.c.c[0];
		ret.r.c[1] = r.c[1] + a.c.c[0];
		ret.r.c[2] = r.c[2] + a.c.c[0];
		ret.r.c[3] = r.c[3] + a.c.c[0];
		ret.r.c[4] = r.c[4] + a.c.c[0];
		ret.r.c[5] = r.c[5] + a.c.c[0];
		ret.r.c[6] = r.c[6] + a.c.c[0];
		ret.r.c[7] = r.c[7] + a.c.c[0];
#endif
		return ret;
	}

	AML_FUNCTION AML_PREFIX(Array8Complex64) *add(const AML_PREFIX(Array8Complex64) &a, AML_PREFIX(VectorU8_8D) mask) {
		if (mask.v.c[0]) {
			i.c[0] += a.i.c[0];
			r.c[0] += a.r.c[0];
		}
		if (mask.v.c[1]) {
			i.c[1] += a.i.c[1];
			r.c[1] += a.r.c[1];
		}
		if (mask.v.c[2]) {
			i.c[2] += a.i.c[2];
			r.c[2] += a.r.c[2];
		}
		if (mask.v.c[3]) {
			i.c[3] += a.i.c[3];
			r.c[3] += a.r.c[3];
		}
		if (mask.v.c[4]) {
			i.c[4] += a.i.c[4];
			r.c[4] += a.r.c[4];
		}
		if (mask.v.c[5]) {
			i.c[5] += a.i.c[5];
			r.c[5] += a.r.c[5];
		}
		if (mask.v.c[6]) {
			i.c[6] += a.i.c[6];
			r.c[6] += a.r.c[6];
		}
		if (mask.v.c[7]) {
			i.c[7] += a.i.c[7];
			r.c[7] += a.r.c[7];
		}
		return this;
	}

	AML_FUNCTION AML_PREFIX(Array8Complex64) *add(const AML_PREFIX(Complex64) a, AML_PREFIX(VectorU8_8D) mask) {
		if (mask.v.c[0]) {
			i.c[0] += a.c.c[1];
			r.c[0] += a.c.c[0];
		}
		if (mask.v.c[1]) {
			i.c[1] += a.c.c[1];
			r.c[1] += a.c.c[0];
		}
		if (mask.v.c[2]) {
			i.c[2] += a.c.c[1];
			r.c[2] += a.c.c[0];
		}
		if (mask.v.c[3]) {
			i.c[3] += a.c.c[1];
			r.c[3] += a.c.c[0];
		}
		if (mask.v.c[4]) {
			i.c[4] += a.c.c[1];
			r.c[4] += a.c.c[0];
		}
		if (mask.v.c[5]) {
			i.c[5] += a.c.c[1];
			r.c[5] += a.c.c[0];
		}
		if (mask.v.c[6]) {
			i.c[6] += a.c.c[1];
			r.c[6] += a.c.c[0];
		}
		if (mask.v.c[7]) {
			i.c[7] += a.c.c[1];
			r.c[7] += a.c.c[0];
		}
		return this;
	}

	AML_FUNCTION AML_PREFIX(Array8Complex64) *subtract(const AML_PREFIX(Array8Complex64) a) {
#if defined(USE_AVX)
		i.avx[0] = _mm256_sub_pd(i.avx[0], a.i.avx[0]);
		i.avx[1] = _mm256_sub_pd(i.avx[1], a.i.avx[1]);
		r.avx[0] = _mm256_sub_pd(r.avx[0], a.r.avx[0]);
		r.avx[1] = _mm256_sub_pd(r.avx[1], a.r.avx[1]);
#else
		i.c[0] -= a.i.c[0];
		i.c[1] -= a.i.c[1];
		i.c[2] -= a.i.c[2];
		i.c[3] -= a.i.c[3];
		i.c[4] -= a.i.c[4];
		i.c[5] -= a.i.c[5];
		i.c[6] -= a.i.c[6];
		i.c[7] -= a.i.c[7];
		r.c[0] -= a.r.c[0];
		r.c[1] -= a.r.c[1];
		r.c[2] -= a.r.c[2];
		r.c[3] -= a.r.c[3];
		r.c[4] -= a.r.c[4];
		r.c[5] -= a.r.c[5];
		r.c[6] -= a.r.c[6];
		r.c[7] -= a.r.c[7];
#endif
		return this;
	}

	AML_FUNCTION AML_PREFIX(Array8Complex64) *subtract(const AML_PREFIX(Complex64) a) {
#if defined(USE_AVX)
		__m256d a_i = {a.c.c[1], a.c.c[1], a.c.c[1], a.c.c[1]};
		i.avx[0] = _mm256_sub_pd(i.avx[0], a_i);
		i.avx[1] = _mm256_sub_pd(i.avx[1], a_i);
		__m256d a_r = {a.c.c[0], a.c.c[0], a.c.c[0], a.c.c[0]};
		r.avx[0] = _mm256_sub_pd(r.avx[0], a_r);
		r.avx[1] = _mm256_sub_pd(r.avx[1], a_r);
#else
		i.c[0] -= a.c.c[1];
		i.c[1] -= a.c.c[1];
		i.c[2] -= a.c.c[1];
		i.c[3] -= a.c.c[1];
		i.c[4] -= a.c.c[1];
		i.c[5] -= a.c.c[1];
		i.c[6] -= a.c.c[1];
		i.c[7] -= a.c.c[1];
		r.c[0] -= a.c.c[0];
		r.c[1] -= a.c.c[0];
		r.c[2] -= a.c.c[0];
		r.c[3] -= a.c.c[0];
		r.c[4] -= a.c.c[0];
		r.c[5] -= a.c.c[0];
		r.c[6] -= a.c.c[0];
		r.c[7] -= a.c.c[0];
#endif
		return this;
	}

	AML_FUNCTION void operator-=(const AML_PREFIX(Array8Complex64) a) {
#if defined(USE_AVX)
		i.avx[0] = _mm256_sub_pd(i.avx[0], a.i.avx[0]);
		i.avx[1] = _mm256_sub_pd(i.avx[1], a.i.avx[1]);
		r.avx[0] = _mm256_sub_pd(r.avx[0], a.r.avx[0]);
		r.avx[1] = _mm256_sub_pd(r.avx[1], a.r.avx[1]);
#else
		i.c[0] -= a.i.c[0];
		i.c[1] -= a.i.c[1];
		i.c[2] -= a.i.c[2];
		i.c[3] -= a.i.c[3];
		i.c[4] -= a.i.c[4];
		i.c[5] -= a.i.c[5];
		i.c[6] -= a.i.c[6];
		i.c[7] -= a.i.c[7];
		r.c[0] -= a.r.c[0];
		r.c[1] -= a.r.c[1];
		r.c[2] -= a.r.c[2];
		r.c[3] -= a.r.c[3];
		r.c[4] -= a.r.c[4];
		r.c[5] -= a.r.c[5];
		r.c[6] -= a.r.c[6];
		r.c[7] -= a.r.c[7];
#endif
	}

	AML_FUNCTION void operator-=(const AML_PREFIX(Complex64) a) {
#if defined(USE_AVX)
		__m256d a_i = {a.c.c[1], a.c.c[1], a.c.c[1], a.c.c[1]};
		i.avx[0] = _mm256_sub_pd(i.avx[0], a_i);
		i.avx[1] = _mm256_sub_pd(i.avx[1], a_i);
		__m256d a_r = {a.c.c[0], a.c.c[0], a.c.c[0], a.c.c[0]};
		r.avx[0] = _mm256_sub_pd(r.avx[0], a_r);
		r.avx[1] = _mm256_sub_pd(r.avx[1], a_r);
#else
		i.c[0] -= a.c.c[1];
		i.c[1] -= a.c.c[1];
		i.c[2] -= a.c.c[1];
		i.c[3] -= a.c.c[1];
		i.c[4] -= a.c.c[1];
		i.c[5] -= a.c.c[1];
		i.c[6] -= a.c.c[1];
		i.c[7] -= a.c.c[1];
		r.c[0] -= a.c.c[0];
		r.c[1] -= a.c.c[0];
		r.c[2] -= a.c.c[0];
		r.c[3] -= a.c.c[0];
		r.c[4] -= a.c.c[0];
		r.c[5] -= a.c.c[0];
		r.c[6] -= a.c.c[0];
		r.c[7] -= a.c.c[0];
#endif
	}

	AML_FUNCTION AML_PREFIX(Array8Complex64) operator-(const AML_PREFIX(Array8Complex64) &a) const {
		AML_PREFIX(Array8Complex64) ret;
#if defined(USE_AVX)
		ret.i.avx[0] = _mm256_sub_pd(i.avx[0], a.i.avx[0]);
		ret.i.avx[1] = _mm256_sub_pd(i.avx[1], a.i.avx[1]);
		ret.r.avx[0] = _mm256_sub_pd(r.avx[0], a.r.avx[0]);
		ret.r.avx[1] = _mm256_sub_pd(r.avx[1], a.r.avx[1]);
#else
		ret.i.c[0] = i.c[0] - a.i.c[0];
		ret.i.c[1] = i.c[1] - a.i.c[1];
		ret.i.c[2] = i.c[2] - a.i.c[2];
		ret.i.c[3] = i.c[3] - a.i.c[3];
		ret.i.c[4] = i.c[4] - a.i.c[4];
		ret.i.c[5] = i.c[5] - a.i.c[5];
		ret.i.c[6] = i.c[6] - a.i.c[6];
		ret.i.c[7] = i.c[7] - a.i.c[7];
		ret.r.c[0] = r.c[0] - a.r.c[0];
		ret.r.c[1] = r.c[1] - a.r.c[1];
		ret.r.c[2] = r.c[2] - a.r.c[2];
		ret.r.c[3] = r.c[3] - a.r.c[3];
		ret.r.c[4] = r.c[4] - a.r.c[4];
		ret.r.c[5] = r.c[5] - a.r.c[5];
		ret.r.c[6] = r.c[6] - a.r.c[6];
		ret.r.c[7] = r.c[7] - a.r.c[7];
#endif
		return ret;
	}

	AML_FUNCTION AML_PREFIX(Array8Complex64) operator-(const AML_PREFIX(Complex64) a) const {
		AML_PREFIX(Array8Complex64) ret;
#if defined(USE_AVX)
		__m256d a_i = {a.c.c[1], a.c.c[1], a.c.c[1], a.c.c[1]};
		ret.i.avx[0] = _mm256_sub_pd(i.avx[0], a_i);
		ret.i.avx[1] = _mm256_sub_pd(i.avx[1], a_i);
		__m256d a_r = {a.c.c[0], a.c.c[0], a.c.c[0], a.c.c[0]};
		ret.r.avx[0] = _mm256_sub_pd(r.avx[0], a_r);
		ret.r.avx[1] = _mm256_sub_pd(r.avx[1], a_r);
#else
		ret.i.c[0] = i.c[0] - a.c.c[1];
		ret.i.c[1] = i.c[1] - a.c.c[1];
		ret.i.c[2] = i.c[2] - a.c.c[1];
		ret.i.c[3] = i.c[3] - a.c.c[1];
		ret.i.c[4] = i.c[4] - a.c.c[1];
		ret.i.c[5] = i.c[5] - a.c.c[1];
		ret.i.c[6] = i.c[6] - a.c.c[1];
		ret.i.c[7] = i.c[7] - a.c.c[1];
		ret.r.c[0] = r.c[0] - a.c.c[0];
		ret.r.c[1] = r.c[1] - a.c.c[0];
		ret.r.c[2] = r.c[2] - a.c.c[0];
		ret.r.c[3] = r.c[3] - a.c.c[0];
		ret.r.c[4] = r.c[4] - a.c.c[0];
		ret.r.c[5] = r.c[5] - a.c.c[0];
		ret.r.c[6] = r.c[6] - a.c.c[0];
		ret.r.c[7] = r.c[7] - a.c.c[0];
#endif
		return ret;
	}

	AML_FUNCTION AML_PREFIX(Array8Complex64) *
	subtract(const AML_PREFIX(Array8Complex64) &a, AML_PREFIX(VectorU8_8D) mask) {
		if (mask.v.c[0]) {
			i.c[0] -= a.i.c[0];
			r.c[0] -= a.r.c[0];
		}
		if (mask.v.c[1]) {
			i.c[1] -= a.i.c[1];
			r.c[1] -= a.r.c[1];
		}
		if (mask.v.c[2]) {
			i.c[2] -= a.i.c[2];
			r.c[2] -= a.r.c[2];
		}
		if (mask.v.c[3]) {
			i.c[3] -= a.i.c[3];
			r.c[3] -= a.r.c[3];
		}
		if (mask.v.c[4]) {
			i.c[4] -= a.i.c[4];
			r.c[4] -= a.r.c[4];
		}
		if (mask.v.c[5]) {
			i.c[5] -= a.i.c[5];
			r.c[5] -= a.r.c[5];
		}
		if (mask.v.c[6]) {
			i.c[6] -= a.i.c[6];
			r.c[6] -= a.r.c[6];
		}
		if (mask.v.c[7]) {
			i.c[7] -= a.i.c[7];
			r.c[7] -= a.r.c[7];
		}
		return this;
	}

	AML_FUNCTION AML_PREFIX(Array8Complex64) *subtract(const AML_PREFIX(Complex64) a, AML_PREFIX(VectorU8_8D) mask) {
		if (mask.v.c[0]) {
			i.c[0] -= a.c.c[1];
			r.c[0] -= a.c.c[0];
		}
		if (mask.v.c[1]) {
			i.c[1] -= a.c.c[1];
			r.c[1] -= a.c.c[0];
		}
		if (mask.v.c[2]) {
			i.c[2] -= a.c.c[1];
			r.c[2] -= a.c.c[0];
		}
		if (mask.v.c[3]) {
			i.c[3] -= a.c.c[1];
			r.c[3] -= a.c.c[0];
		}
		if (mask.v.c[4]) {
			i.c[4] -= a.c.c[1];
			r.c[4] -= a.c.c[0];
		}
		if (mask.v.c[5]) {
			i.c[5] -= a.c.c[1];
			r.c[5] -= a.c.c[0];
		}
		if (mask.v.c[6]) {
			i.c[6] -= a.c.c[1];
			r.c[6] -= a.c.c[0];
		}
		if (mask.v.c[7]) {
			i.c[7] -= a.c.c[1];
			r.c[7] -= a.c.c[0];
		}
		return this;
	}


	AML_FUNCTION AML_PREFIX(Array8Complex64) operator*(const AML_PREFIX(Array8Complex64) &a) const {
		AML_PREFIX(Array8Complex64) ret;
#if defined(USE_FMA)
		__m256d c_0 = _mm256_mul_pd(i.avx[0], a.i.avx[0]);
		ret.r.avx[0] = _mm256_fmsub_pd(r.avx[0], a.r.avx[0], c_0);
		__m256d c_1 = _mm256_mul_pd(i.avx[1], a.i.avx[1]);
		ret.r.avx[1] = _mm256_fmsub_pd(r.avx[1], a.r.avx[1], c_1);
		__m256d c_2 = _mm256_mul_pd(i.avx[0], a.r.avx[0]);
		ret.i.avx[0] = _mm256_fmadd_pd(r.avx[0], a.i.avx[0], c_2);
		__m256d c_3 = _mm256_mul_pd(i.avx[1], a.r.avx[1]);
		ret.i.avx[1] = _mm256_fmadd_pd(r.avx[1], a.i.avx[1], c_3);
#else
		ret.r.c[0] = r.c[0] * a.r.c[0] - i.c[0] * a.i.c[0];
		ret.i.c[0] = r.c[0] * a.i.c[0] + i.c[0] * a.r.c[0];
		ret.r.c[1] = r.c[1] * a.r.c[1] - i.c[1] * a.i.c[1];
		ret.i.c[1] = r.c[1] * a.i.c[1] + i.c[1] * a.r.c[1];
		ret.r.c[2] = r.c[2] * a.r.c[2] - i.c[2] * a.i.c[2];
		ret.i.c[2] = r.c[2] * a.i.c[2] + i.c[2] * a.r.c[2];
		ret.r.c[3] = r.c[3] * a.r.c[3] - i.c[3] * a.i.c[3];
		ret.i.c[3] = r.c[3] * a.i.c[3] + i.c[3] * a.r.c[3];
		ret.r.c[4] = r.c[4] * a.r.c[4] - i.c[4] * a.i.c[4];
		ret.i.c[4] = r.c[4] * a.i.c[4] + i.c[4] * a.r.c[4];
		ret.r.c[5] = r.c[5] * a.r.c[5] - i.c[5] * a.i.c[5];
		ret.i.c[5] = r.c[5] * a.i.c[5] + i.c[5] * a.r.c[5];
		ret.r.c[6] = r.c[6] * a.r.c[6] - i.c[6] * a.i.c[6];
		ret.i.c[6] = r.c[6] * a.i.c[6] + i.c[6] * a.r.c[6];
		ret.r.c[7] = r.c[7] * a.r.c[7] - i.c[7] * a.i.c[7];
		ret.i.c[7] = r.c[7] * a.i.c[7] + i.c[7] * a.r.c[7];
#endif

		return ret;
	}

	AML_FUNCTION AML_PREFIX(Array8Complex64) *multiply(const AML_PREFIX(Array8Complex64) &a) {
		double d1;
		double d2;
		d1 = r.c[0] * a.r.c[0] - i.c[0] * a.i.c[0];
		d2 = r.c[0] * a.i.c[0] + i.c[0] * a.r.c[0];
		r.c[0] = d1;
		i.c[0] = d2;

		d1 = r.c[1] * a.r.c[1] - i.c[1] * a.i.c[1];
		d2 = r.c[1] * a.i.c[1] + i.c[1] * a.r.c[1];
		r.c[1] = d1;
		i.c[1] = d2;
		d1 = r.c[2] * a.r.c[2] - i.c[2] * a.i.c[2];
		d2 = r.c[2] * a.i.c[2] + i.c[2] * a.r.c[2];
		r.c[2] = d1;
		i.c[2] = d2;
		d1 = r.c[3] * a.r.c[3] - i.c[3] * a.i.c[3];
		d2 = r.c[3] * a.i.c[3] + i.c[3] * a.r.c[3];
		r.c[3] = d1;
		i.c[3] = d2;
		d1 = r.c[4] * a.r.c[4] - i.c[4] * a.i.c[4];
		d2 = r.c[4] * a.i.c[4] + i.c[4] * a.r.c[4];
		r.c[4] = d1;
		i.c[4] = d2;
		d1 = r.c[5] * a.r.c[5] - i.c[5] * a.i.c[5];
		d2 = r.c[5] * a.i.c[5] + i.c[5] * a.r.c[5];
		r.c[5] = d1;
		i.c[5] = d2;
		d1 = r.c[6] * a.r.c[6] - i.c[6] * a.i.c[6];
		d2 = r.c[6] * a.i.c[6] + i.c[6] * a.r.c[6];
		r.c[6] = d1;
		i.c[6] = d2;
		d1 = r.c[7] * a.r.c[7] - i.c[7] * a.i.c[7];
		d2 = r.c[7] * a.i.c[7] + i.c[7] * a.r.c[7];
		r.c[7] = d1;
		i.c[7] = d2;
		return this;
	}

	AML_FUNCTION void operator*=(const AML_PREFIX(Array8Complex64) &a) {
		double d1;
		double d2;
		d1 = r.c[0] * a.r.c[0] - i.c[0] * a.i.c[0];
		d2 = r.c[0] * a.i.c[0] + i.c[0] * a.r.c[0];
		r.c[0] = d1;
		i.c[0] = d2;

		d1 = r.c[1] * a.r.c[1] - i.c[1] * a.i.c[1];
		d2 = r.c[1] * a.i.c[1] + i.c[1] * a.r.c[1];
		r.c[1] = d1;
		i.c[1] = d2;
		d1 = r.c[2] * a.r.c[2] - i.c[2] * a.i.c[2];
		d2 = r.c[2] * a.i.c[2] + i.c[2] * a.r.c[2];
		r.c[2] = d1;
		i.c[2] = d2;
		d1 = r.c[3] * a.r.c[3] - i.c[3] * a.i.c[3];
		d2 = r.c[3] * a.i.c[3] + i.c[3] * a.r.c[3];
		r.c[3] = d1;
		i.c[3] = d2;
		d1 = r.c[4] * a.r.c[4] - i.c[4] * a.i.c[4];
		d2 = r.c[4] * a.i.c[4] + i.c[4] * a.r.c[4];
		r.c[4] = d1;
		i.c[4] = d2;
		d1 = r.c[5] * a.r.c[5] - i.c[5] * a.i.c[5];
		d2 = r.c[5] * a.i.c[5] + i.c[5] * a.r.c[5];
		r.c[5] = d1;
		i.c[5] = d2;
		d1 = r.c[6] * a.r.c[6] - i.c[6] * a.i.c[6];
		d2 = r.c[6] * a.i.c[6] + i.c[6] * a.r.c[6];
		r.c[6] = d1;
		i.c[6] = d2;
		d1 = r.c[7] * a.r.c[7] - i.c[7] * a.i.c[7];
		d2 = r.c[7] * a.i.c[7] + i.c[7] * a.r.c[7];
		r.c[7] = d1;
		i.c[7] = d2;
	}

	AML_FUNCTION void operator*=(const AML_PREFIX(Complex64) &a) {
		double d1;
		double d2;
		d1 = r.c[0] * a.c.c[0] - i.c[0] * a.c.c[1];
		d2 = r.c[0] * a.c.c[1] + i.c[0] * a.c.c[0];
		r.c[0] = d1;
		i.c[0] = d2;
		d1 = r.c[1] * a.c.c[0] - i.c[1] * a.c.c[1];
		d2 = r.c[1] * a.c.c[1] + i.c[1] * a.c.c[0];
		r.c[1] = d1;
		i.c[1] = d2;
		d1 = r.c[2] * a.c.c[0] - i.c[2] * a.c.c[1];
		d2 = r.c[2] * a.c.c[1] + i.c[2] * a.c.c[0];
		r.c[2] = d1;
		i.c[2] = d2;
		d1 = r.c[3] * a.c.c[0] - i.c[3] * a.c.c[1];
		d2 = r.c[3] * a.c.c[1] + i.c[3] * a.c.c[0];
		r.c[3] = d1;
		i.c[3] = d2;
		d1 = r.c[4] * a.c.c[0] - i.c[4] * a.c.c[1];
		d2 = r.c[4] * a.c.c[1] + i.c[4] * a.c.c[0];
		r.c[4] = d1;
		i.c[4] = d2;
		d1 = r.c[5] * a.c.c[0] - i.c[5] * a.c.c[1];
		d2 = r.c[5] * a.c.c[1] + i.c[5] * a.c.c[0];
		r.c[5] = d1;
		i.c[5] = d2;
		d1 = r.c[6] * a.c.c[0] - i.c[6] * a.c.c[1];
		d2 = r.c[6] * a.c.c[1] + i.c[6] * a.c.c[0];
		r.c[6] = d1;
		i.c[6] = d2;
		d1 = r.c[7] * a.c.c[0] - i.c[7] * a.c.c[1];
		d2 = r.c[7] * a.c.c[1] + i.c[7] * a.c.c[0];
		r.c[7] = d1;
		i.c[7] = d2;
	}

	AML_FUNCTION AML_PREFIX(Array8Complex64) operator*(const AML_PREFIX(Complex64) &a) const {
		AML_PREFIX(Array8Complex64) ret;
		ret.r.c[0] = r.c[0] * a.c.c[0] - i.c[0] * a.c.c[1];
		ret.i.c[0] = r.c[0] * a.c.c[1] + i.c[0] * a.c.c[0];
		ret.r.c[1] = r.c[1] * a.c.c[0] - i.c[1] * a.c.c[1];
		ret.i.c[1] = r.c[1] * a.c.c[1] + i.c[1] * a.c.c[0];
		ret.r.c[2] = r.c[2] * a.c.c[0] - i.c[2] * a.c.c[1];
		ret.i.c[2] = r.c[2] * a.c.c[1] + i.c[2] * a.c.c[0];
		ret.r.c[3] = r.c[3] * a.c.c[0] - i.c[3] * a.c.c[1];
		ret.i.c[3] = r.c[3] * a.c.c[1] + i.c[3] * a.c.c[0];
		ret.r.c[4] = r.c[4] * a.c.c[0] - i.c[4] * a.c.c[1];
		ret.i.c[4] = r.c[4] * a.c.c[1] + i.c[4] * a.c.c[0];
		ret.r.c[5] = r.c[5] * a.c.c[0] - i.c[5] * a.c.c[1];
		ret.i.c[5] = r.c[5] * a.c.c[1] + i.c[5] * a.c.c[0];
		ret.r.c[6] = r.c[6] * a.c.c[0] - i.c[6] * a.c.c[1];
		ret.i.c[6] = r.c[6] * a.c.c[1] + i.c[6] * a.c.c[0];
		ret.r.c[7] = r.c[7] * a.c.c[0] - i.c[7] * a.c.c[1];
		ret.i.c[7] = r.c[7] * a.c.c[1] + i.c[7] * a.c.c[0];


		return ret;
	}

	AML_FUNCTION AML_PREFIX(Array8Complex64) *multiply(const AML_PREFIX(Complex64) &a) {
		double d1;
		double d2;
		d1 = r.c[0] * a.c.c[0] - i.c[0] * a.c.c[1];
		d2 = r.c[0] * a.c.c[1] + i.c[0] * a.c.c[0];
		r.c[0] = d1;
		i.c[0] = d2;
		d1 = r.c[1] * a.c.c[0] - i.c[1] * a.c.c[1];
		d2 = r.c[1] * a.c.c[1] + i.c[1] * a.c.c[0];
		r.c[1] = d1;
		i.c[1] = d2;
		d1 = r.c[2] * a.c.c[0] - i.c[2] * a.c.c[1];
		d2 = r.c[2] * a.c.c[1] + i.c[2] * a.c.c[0];
		r.c[2] = d1;
		i.c[2] = d2;
		d1 = r.c[3] * a.c.c[0] - i.c[3] * a.c.c[1];
		d2 = r.c[3] * a.c.c[1] + i.c[3] * a.c.c[0];
		r.c[3] = d1;
		i.c[3] = d2;
		d1 = r.c[4] * a.c.c[0] - i.c[4] * a.c.c[1];
		d2 = r.c[4] * a.c.c[1] + i.c[4] * a.c.c[0];
		r.c[4] = d1;
		i.c[4] = d2;
		d1 = r.c[5] * a.c.c[0] - i.c[5] * a.c.c[1];
		d2 = r.c[5] * a.c.c[1] + i.c[5] * a.c.c[0];
		r.c[5] = d1;
		i.c[5] = d2;
		d1 = r.c[6] * a.c.c[0] - i.c[6] * a.c.c[1];
		d2 = r.c[6] * a.c.c[1] + i.c[6] * a.c.c[0];
		r.c[6] = d1;
		i.c[6] = d2;
		d1 = r.c[7] * a.c.c[0] - i.c[7] * a.c.c[1];
		d2 = r.c[7] * a.c.c[1] + i.c[7] * a.c.c[0];
		r.c[7] = d1;
		i.c[7] = d2;
		return this;
	}

	AML_FUNCTION AML_PREFIX(Array8Complex64) *
	multiply(const AML_PREFIX(Complex64) &a, const AML_PREFIX(VectorU8_8D) &mask) {
		double d1;
		double d2;
		if (mask.v.c[0]) {
			d1 = r.c[0] * a.c.c[0] - i.c[0] * a.c.c[1];
			d2 = r.c[0] * a.c.c[1] + i.c[0] * a.c.c[0];
			r.c[0] = d1;
			i.c[0] = d2;
		}
		if (mask.v.c[1]) {
			d1 = r.c[1] * a.c.c[0] - i.c[1] * a.c.c[1];
			d2 = r.c[1] * a.c.c[1] + i.c[1] * a.c.c[0];
			r.c[1] = d1;
			i.c[1] = d2;
		}
		if (mask.v.c[2]) {
			d1 = r.c[2] * a.c.c[0] - i.c[2] * a.c.c[1];
			d2 = r.c[2] * a.c.c[1] + i.c[2] * a.c.c[0];
			r.c[2] = d1;
			i.c[2] = d2;
		}
		if (mask.v.c[3]) {
			d1 = r.c[3] * a.c.c[0] - i.c[3] * a.c.c[1];
			d2 = r.c[3] * a.c.c[1] + i.c[3] * a.c.c[0];
			r.c[3] = d1;
			i.c[3] = d2;
		}
		if (mask.v.c[4]) {
			d1 = r.c[4] * a.c.c[0] - i.c[4] * a.c.c[1];
			d2 = r.c[4] * a.c.c[1] + i.c[4] * a.c.c[0];
			r.c[4] = d1;
			i.c[4] = d2;
		}
		if (mask.v.c[5]) {
			d1 = r.c[5] * a.c.c[0] - i.c[5] * a.c.c[1];
			d2 = r.c[5] * a.c.c[1] + i.c[5] * a.c.c[0];
			r.c[5] = d1;
			i.c[5] = d2;
		}
		if (mask.v.c[6]) {
			d1 = r.c[6] * a.c.c[0] - i.c[6] * a.c.c[1];
			d2 = r.c[6] * a.c.c[1] + i.c[6] * a.c.c[0];
			r.c[6] = d1;
			i.c[6] = d2;
		}
		if (mask.v.c[7]) {
			d1 = r.c[7] * a.c.c[0] - i.c[7] * a.c.c[1];
			d2 = r.c[7] * a.c.c[1] + i.c[7] * a.c.c[0];
			r.c[7] = d1;
			i.c[7] = d2;
		}
		return this;


	}

	AML_FUNCTION AML_PREFIX(Array8Complex64) *
	multiply(const AML_PREFIX(Array8Complex64) &a, const AML_PREFIX(VectorU8_8D) &mask) {
		double d1;
		double d2;
		if (mask.v.c[0]) {
			d1 = r.c[0] * a.r.c[0] - i.c[0] * a.i.c[0];
			d2 = r.c[0] * a.i.c[0] + i.c[0] * a.r.c[0];
			r.c[0] = d1;
			i.c[0] = d2;
		}
		if (mask.v.c[1]) {
			d1 = r.c[1] * a.r.c[1] - i.c[1] * a.i.c[1];
			d2 = r.c[1] * a.i.c[1] + i.c[1] * a.r.c[1];
			r.c[1] = d1;
			i.c[1] = d2;
		}
		if (mask.v.c[2]) {
			d1 = r.c[2] * a.r.c[2] - i.c[2] * a.i.c[2];
			d2 = r.c[2] * a.i.c[2] + i.c[2] * a.r.c[2];
			r.c[2] = d1;
			i.c[2] = d2;
		}
		if (mask.v.c[3]) {
			d1 = r.c[3] * a.r.c[3] - i.c[3] * a.i.c[3];
			d2 = r.c[3] * a.i.c[3] + i.c[3] * a.r.c[3];
			r.c[3] = d1;
			i.c[3] = d2;
		}
		if (mask.v.c[4]) {
			d1 = r.c[4] * a.r.c[4] - i.c[4] * a.i.c[4];
			d2 = r.c[4] * a.i.c[4] + i.c[4] * a.r.c[4];
			r.c[4] = d1;
			i.c[4] = d2;
		}
		if (mask.v.c[5]) {
			d1 = r.c[5] * a.r.c[5] - i.c[5] * a.i.c[5];
			d2 = r.c[5] * a.i.c[5] + i.c[5] * a.r.c[5];
			r.c[5] = d1;
			i.c[5] = d2;
		}
		if (mask.v.c[6]) {
			d1 = r.c[6] * a.r.c[6] - i.c[6] * a.i.c[6];
			d2 = r.c[6] * a.i.c[6] + i.c[6] * a.r.c[6];
			r.c[6] = d1;
			i.c[6] = d2;
		}
		if (mask.v.c[7]) {
			d1 = r.c[7] * a.r.c[7] - i.c[7] * a.i.c[7];
			d2 = r.c[7] * a.i.c[7] + i.c[7] * a.r.c[7];
			r.c[7] = d1;
			i.c[7] = d2;
		}
		return this;
	}

	AML_FUNCTION AML_PREFIX(Array8Complex64) *square() {
		double d1;
		double d2;
		d1 = r.c[0] * r.c[0] - i.c[0] * i.c[0];
		d2 = r.c[0] * i.c[0] + i.c[0] * r.c[0];
		r.c[0] = d1;
		i.c[0] = d2;
		d1 = r.c[1] * r.c[1] - i.c[1] * i.c[1];
		d2 = r.c[1] * i.c[1] + i.c[1] * r.c[1];
		r.c[1] = d1;
		i.c[1] = d2;
		d1 = r.c[2] * r.c[2] - i.c[2] * i.c[2];
		d2 = r.c[2] * i.c[2] + i.c[2] * r.c[2];
		r.c[2] = d1;
		i.c[2] = d2;
		d1 = r.c[3] * r.c[3] - i.c[3] * i.c[3];
		d2 = r.c[3] * i.c[3] + i.c[3] * r.c[3];
		r.c[3] = d1;
		i.c[3] = d2;
		d1 = r.c[4] * r.c[4] - i.c[4] * i.c[4];
		d2 = r.c[4] * i.c[4] + i.c[4] * r.c[4];
		r.c[4] = d1;
		i.c[4] = d2;
		d1 = r.c[5] * r.c[5] - i.c[5] * i.c[5];
		d2 = r.c[5] * i.c[5] + i.c[5] * r.c[5];
		r.c[5] = d1;
		i.c[5] = d2;
		d1 = r.c[6] * r.c[6] - i.c[6] * i.c[6];
		d2 = r.c[6] * i.c[6] + i.c[6] * r.c[6];
		r.c[6] = d1;
		i.c[6] = d2;
		d1 = r.c[7] * r.c[7] - i.c[7] * i.c[7];
		d2 = r.c[7] * i.c[7] + i.c[7] * r.c[7];
		r.c[7] = d1;
		i.c[7] =
				d2;
		return this;
	}

	AML_FUNCTION AML_PREFIX(Array8Complex64) *square(const AML_PREFIX(VectorU8_8D) &mask) {
		double d1;
		double d2;
		if (mask.v.c[0]) {
			d1 = r.c[0] * r.c[0] - i.c[0] * i.c[0];
			d2 = r.c[0] * i.c[0] + i.c[0] * r.c[0];
			r.c[0] = d1;
			i.c[0] = d2;
		}
		if (mask.v.c[1]) {
			d1 = r.c[1] * r.c[1] - i.c[1] * i.c[1];
			d2 = r.c[1] * i.c[1] + i.c[1] * r.c[1];
			r.c[1] = d1;
			i.c[1] = d2;
		}
		if (mask.v.c[2]) {
			d1 = r.c[2] * r.c[2] - i.c[2] * i.c[2];
			d2 = r.c[2] * i.c[2] + i.c[2] * r.c[2];
			r.c[2] = d1;
			i.c[2] = d2;
		}
		if (mask.v.c[3]) {
			d1 = r.c[3] * r.c[3] - i.c[3] * i.c[3];
			d2 = r.c[3] * i.c[3] + i.c[3] * r.c[3];
			r.c[3] = d1;
			i.c[3] = d2;
		}
		if (mask.v.c[4]) {
			d1 = r.c[4] * r.c[4] - i.c[4] * i.c[4];
			d2 = r.c[4] * i.c[4] + i.c[4] * r.c[4];
			r.c[4] = d1;
			i.c[4] = d2;
		}
		if (mask.v.c[5]) {
			d1 = r.c[5] * r.c[5] - i.c[5] * i.c[5];
			d2 = r.c[5] * i.c[5] + i.c[5] * r.c[5];
			r.c[5] = d1;
			i.c[5] = d2;
		}
		if (mask.v.c[6]) {
			d1 = r.c[6] * r.c[6] - i.c[6] * i.c[6];
			d2 = r.c[6] * i.c[6] + i.c[6] * r.c[6];
			r.c[6] = d1;
			i.c[6] = d2;
		}
		if (mask.v.c[7]) {
			d1 = r.c[7] * r.c[7] - i.c[7] * i.c[7];
			d2 = r.c[7] * i.c[7] + i.c[7] * r.c[7];
			r.c[7] = d1;
			i.c[7] = d2;
		}
		return this;
	}

	AML_FUNCTION AML_PREFIX(Array8Complex64) *divide(const AML_PREFIX(Complex64) a) {
		double d1 = (r.c[0] * a.c.c[0] + i.c[0] * a.c.c[1]) / (a.c.c[0] * a.c.c[0] + a.c.c[1] * a.c.c[1]);
		double d2 = (i.c[0] * a.c.c[0] - r.c[0] * a.c.c[1]) / (a.c.c[0] * a.c.c[0] + a.c.c[1] * a.c.c[1]);
		r.c[0] = d1;
		i.c[0] = d2;
		d1 = (r.c[1] * a.c.c[0] + i.c[1] * a.c.c[1]) / (a.c.c[0] * a.c.c[0] + a.c.c[1] * a.c.c[1]);
		d2 = (i.c[1] * a.c.c[0] - r.c[1] * a.c.c[1]) / (a.c.c[0] * a.c.c[0] + a.c.c[1] * a.c.c[1]);
		r.c[1] = d1;
		i.c[1] = d2;
		d1 = (r.c[2] * a.c.c[0] + i.c[2] * a.c.c[1]) / (a.c.c[0] * a.c.c[0] + a.c.c[1] * a.c.c[1]);
		d2 = (i.c[2] * a.c.c[0] - r.c[2] * a.c.c[1]) / (a.c.c[0] * a.c.c[0] + a.c.c[1] * a.c.c[1]);
		r.c[2] = d1;
		i.c[2] = d2;
		d1 = (r.c[3] * a.c.c[0] + i.c[3] * a.c.c[1]) / (a.c.c[0] * a.c.c[0] + a.c.c[1] * a.c.c[1]);
		d2 = (i.c[3] * a.c.c[0] - r.c[3] * a.c.c[1]) / (a.c.c[0] * a.c.c[0] + a.c.c[1] * a.c.c[1]);
		r.c[3] = d1;
		i.c[3] = d2;
		d1 = (r.c[4] * a.c.c[0] + i.c[4] * a.c.c[1]) / (a.c.c[0] * a.c.c[0] + a.c.c[1] * a.c.c[1]);
		d2 = (i.c[4] * a.c.c[0] - r.c[4] * a.c.c[1]) / (a.c.c[0] * a.c.c[0] + a.c.c[1] * a.c.c[1]);
		r.c[4] = d1;
		i.c[4] = d2;
		d1 = (r.c[5] * a.c.c[0] + i.c[5] * a.c.c[1]) / (a.c.c[0] * a.c.c[0] + a.c.c[1] * a.c.c[1]);
		d2 = (i.c[5] * a.c.c[0] - r.c[5] * a.c.c[1]) / (a.c.c[0] * a.c.c[0] + a.c.c[1] * a.c.c[1]);
		r.c[5] = d1;
		i.c[5] = d2;
		d1 = (r.c[6] * a.c.c[0] + i.c[6] * a.c.c[1]) / (a.c.c[0] * a.c.c[0] + a.c.c[1] * a.c.c[1]);
		d2 = (i.c[6] * a.c.c[0] - r.c[6] * a.c.c[1]) / (a.c.c[0] * a.c.c[0] + a.c.c[1] * a.c.c[1]);
		r.c[6] = d1;
		i.c[6] = d2;
		d1 = (r.c[7] * a.c.c[0] + i.c[7] * a.c.c[1]) / (a.c.c[0] * a.c.c[0] + a.c.c[1] * a.c.c[1]);
		d2 = (i.c[7] * a.c.c[0] - r.c[7] * a.c.c[1]) / (a.c.c[0] * a.c.c[0] + a.c.c[1] * a.c.c[1]);
		r.c[7] = d1;
		i.c[7] = d2;
		return this;
	}

	AML_FUNCTION AML_PREFIX(Array8Complex64) *
	divide(const AML_PREFIX(Complex64) a, const AML_PREFIX(VectorU8_8D) &mask) {
		double d1;
		double d2;
		if (mask.v.c[0]) {
			d1 = (r.c[0] * a.c.c[0] + i.c[0] * a.c.c[1]) / (a.c.c[0] * a.c.c[0] + a.c.c[1] * a.c.c[1]);
			d2 = (i.c[0] * a.c.c[0] - r.c[0] * a.c.c[1]) / (a.c.c[0] * a.c.c[0] + a.c.c[1] * a.c.c[1]);
			r.c[0] = d1;
			i.c[0] = d2;
		}
		if (mask.v.c[1]) {
			d1 = (r.c[1] * a.c.c[0] + i.c[1] * a.c.c[1]) / (a.c.c[0] * a.c.c[0] + a.c.c[1] * a.c.c[1]);
			d2 = (i.c[1] * a.c.c[0] - r.c[1] * a.c.c[1]) / (a.c.c[0] * a.c.c[0] + a.c.c[1] * a.c.c[1]);
			r.c[1] = d1;
			i.c[1] = d2;
		}
		if (mask.v.c[2]) {
			d1 = (r.c[2] * a.c.c[0] + i.c[2] * a.c.c[1]) / (a.c.c[0] * a.c.c[0] + a.c.c[1] * a.c.c[1]);
			d2 = (i.c[2] * a.c.c[0] - r.c[2] * a.c.c[1]) / (a.c.c[0] * a.c.c[0] + a.c.c[1] * a.c.c[1]);
			r.c[2] = d1;
			i.c[2] = d2;
		}
		if (mask.v.c[3]) {
			d1 = (r.c[3] * a.c.c[0] + i.c[3] * a.c.c[1]) / (a.c.c[0] * a.c.c[0] + a.c.c[1] * a.c.c[1]);
			d2 = (i.c[3] * a.c.c[0] - r.c[3] * a.c.c[1]) / (a.c.c[0] * a.c.c[0] + a.c.c[1] * a.c.c[1]);
			r.c[3] = d1;
			i.c[3] = d2;
		}
		if (mask.v.c[4]) {
			d1 = (r.c[4] * a.c.c[0] + i.c[4] * a.c.c[1]) / (a.c.c[0] * a.c.c[0] + a.c.c[1] * a.c.c[1]);
			d2 = (i.c[4] * a.c.c[0] - r.c[4] * a.c.c[1]) / (a.c.c[0] * a.c.c[0] + a.c.c[1] * a.c.c[1]);
			r.c[4] = d1;
			i.c[4] = d2;
		}
		if (mask.v.c[5]) {
			d1 = (r.c[5] * a.c.c[0] + i.c[5] * a.c.c[1]) / (a.c.c[0] * a.c.c[0] + a.c.c[1] * a.c.c[1]);
			d2 = (i.c[5] * a.c.c[0] - r.c[5] * a.c.c[1]) / (a.c.c[0] * a.c.c[0] + a.c.c[1] * a.c.c[1]);
			r.c[5] = d1;
			i.c[5] = d2;
		}
		if (mask.v.c[6]) {
			d1 = (r.c[6] * a.c.c[0] + i.c[6] * a.c.c[1]) / (a.c.c[0] * a.c.c[0] + a.c.c[1] * a.c.c[1]);
			d2 = (i.c[6] * a.c.c[0] - r.c[6] * a.c.c[1]) / (a.c.c[0] * a.c.c[0] + a.c.c[1] * a.c.c[1]);
			r.c[6] = d1;
			i.c[6] = d2;
		}
		if (mask.v.c[7]) {
			d1 = (r.c[7] * a.c.c[0] + i.c[7] * a.c.c[1]) / (a.c.c[0] * a.c.c[0] + a.c.c[1] * a.c.c[1]);
			d2 = (i.c[7] * a.c.c[0] - r.c[7] * a.c.c[1]) / (a.c.c[0] * a.c.c[0] + a.c.c[1] * a.c.c[1]);
			r.c[7] = d1;
			i.c[7] = d2;
		}
		return this;
	}

	AML_FUNCTION AML_PREFIX(Array8Complex64) *divide(const AML_PREFIX(Array8Complex64) &a) {
		double d1 = (r.c[0] * a.r.c[0] + i.c[0] * a.i.c[0]) / (a.r.c[0] * a.r.c[0] + a.i.c[0] * a.i.c[0]);
		double d2 = (i.c[0] * a.r.c[0] - r.c[0] * a.i.c[0]) / (a.r.c[0] * a.r.c[0] + a.i.c[0] * a.i.c[0]);
		r.c[0] = d1;
		i.c[0] = d2;
		d1 = (r.c[1] * a.r.c[1] + i.c[1] * a.i.c[1]) / (a.r.c[1] * a.r.c[1] + a.i.c[1] * a.i.c[1]);
		d2 = (i.c[1] * a.r.c[1] - r.c[1] * a.i.c[1]) / (a.r.c[1] * a.r.c[1] + a.i.c[1] * a.i.c[1]);
		r.c[1] = d1;
		i.c[1] = d2;
		d1 = (r.c[2] * a.r.c[2] + i.c[2] * a.i.c[2]) / (a.r.c[2] * a.r.c[2] + a.i.c[2] * a.i.c[2]);
		d2 = (i.c[2] * a.r.c[2] - r.c[2] * a.i.c[2]) / (a.r.c[2] * a.r.c[2] + a.i.c[2] * a.i.c[2]);
		r.c[2] = d1;
		i.c[2] = d2;
		d1 = (r.c[3] * a.r.c[3] + i.c[3] * a.i.c[3]) / (a.r.c[3] * a.r.c[3] + a.i.c[3] * a.i.c[3]);
		d2 = (i.c[3] * a.r.c[3] - r.c[3] * a.i.c[3]) / (a.r.c[3] * a.r.c[3] + a.i.c[3] * a.i.c[3]);
		r.c[3] = d1;
		i.c[3] = d2;
		d1 = (r.c[4] * a.r.c[4] + i.c[4] * a.i.c[4]) / (a.r.c[4] * a.r.c[4] + a.i.c[4] * a.i.c[4]);
		d2 = (i.c[4] * a.r.c[4] - r.c[4] * a.i.c[4]) / (a.r.c[4] * a.r.c[4] + a.i.c[4] * a.i.c[4]);
		r.c[4] = d1;
		i.c[4] = d2;
		d1 = (r.c[5] * a.r.c[5] + i.c[5] * a.i.c[5]) / (a.r.c[5] * a.r.c[5] + a.i.c[5] * a.i.c[5]);
		d2 = (i.c[5] * a.r.c[5] - r.c[5] * a.i.c[5]) / (a.r.c[5] * a.r.c[5] + a.i.c[5] * a.i.c[5]);
		r.c[5] = d1;
		i.c[5] = d2;
		d1 = (r.c[6] * a.r.c[6] + i.c[6] * a.i.c[6]) / (a.r.c[6] * a.r.c[6] + a.i.c[6] * a.i.c[6]);
		d2 = (i.c[6] * a.r.c[6] - r.c[6] * a.i.c[6]) / (a.r.c[6] * a.r.c[6] + a.i.c[6] * a.i.c[6]);
		r.c[6] = d1;
		i.c[6] = d2;
		d1 = (r.c[7] * a.r.c[7] + i.c[7] * a.i.c[7]) / (a.r.c[7] * a.r.c[7] + a.i.c[7] * a.i.c[7]);
		d2 = (i.c[7] * a.r.c[7] - r.c[7] * a.i.c[7]) / (a.r.c[7] * a.r.c[7] + a.i.c[7] * a.i.c[7]);
		r.c[7] = d1;
		i.c[7] = d2;
		return this;
	}

	AML_FUNCTION AML_PREFIX(Array8Complex64) *
	divide(const AML_PREFIX(Array8Complex64) &a, const AML_PREFIX(VectorU8_8D) &mask) {
		double d1;
		double d2;
		if (mask.v.c[0]) {
			d1 = (r.c[0] * a.i.c[0] + i.c[0] * a.i.c[1]) / (a.i.c[0] * a.i.c[0] + a.i.c[1] * a.i.c[1]);
			d2 = (i.c[0] * a.i.c[0] - r.c[0] * a.i.c[1]) / (a.i.c[0] * a.i.c[0] + a.i.c[1] * a.i.c[1]);
			r.c[0] = d1;
			i.c[0] = d2;
		}
		if (mask.v.c[1]) {
			d1 = (r.c[1] * a.r.c[1] + i.c[1] * a.i.c[1]) / (a.r.c[1] * a.r.c[1] + a.i.c[1] * a.i.c[1]);
			d2 = (i.c[1] * a.r.c[1] - r.c[1] * a.i.c[1]) / (a.r.c[1] * a.r.c[1] + a.i.c[1] * a.i.c[1]);
			r.c[1] = d1;
			i.c[1] = d2;
		}
		if (mask.v.c[2]) {
			d1 = (r.c[2] * a.r.c[2] + i.c[2] * a.i.c[2]) / (a.r.c[2] * a.r.c[2] + a.i.c[2] * a.i.c[2]);
			d2 = (i.c[2] * a.r.c[2] - r.c[2] * a.i.c[2]) / (a.r.c[2] * a.r.c[2] + a.i.c[2] * a.i.c[2]);
			r.c[2] = d1;
			i.c[2] = d2;
		}
		if (mask.v.c[3]) {
			d1 = (r.c[3] * a.r.c[3] + i.c[3] * a.i.c[3]) / (a.r.c[3] * a.r.c[3] + a.i.c[3] * a.i.c[3]);
			d2 = (i.c[3] * a.r.c[3] - r.c[3] * a.i.c[3]) / (a.r.c[3] * a.r.c[3] + a.i.c[3] * a.i.c[3]);
			r.c[3] = d1;
			i.c[3] = d2;
		}
		if (mask.v.c[4]) {
			d1 = (r.c[4] * a.r.c[4] + i.c[4] * a.i.c[4]) / (a.r.c[4] * a.r.c[4] + a.i.c[4] * a.i.c[4]);
			d2 = (i.c[4] * a.r.c[4] - r.c[4] * a.i.c[4]) / (a.r.c[4] * a.r.c[4] + a.i.c[4] * a.i.c[4]);
			r.c[4] = d1;
			i.c[4] = d2;
		}
		if (mask.v.c[5]) {
			d1 = (r.c[5] * a.r.c[5] + i.c[5] * a.i.c[5]) / (a.r.c[5] * a.r.c[5] + a.i.c[5] * a.i.c[5]);
			d2 = (i.c[5] * a.r.c[5] - r.c[5] * a.i.c[5]) / (a.r.c[5] * a.r.c[5] + a.i.c[5] * a.i.c[5]);
			r.c[5] = d1;
			i.c[5] = d2;
		}
		if (mask.v.c[6]) {
			d1 = (r.c[6] * a.r.c[6] + i.c[6] * a.i.c[6]) / (a.r.c[6] * a.r.c[6] + a.i.c[6] * a.i.c[6]);
			d2 = (i.c[6] * a.r.c[6] - r.c[6] * a.i.c[6]) / (a.r.c[6] * a.r.c[6] + a.i.c[6] * a.i.c[6]);
			r.c[6] = d1;
			i.c[6] = d2;
		}
		if (mask.v.c[7]) {
			d1 = (r.c[7] * a.r.c[7] + i.c[7] * a.i.c[7]) / (a.r.c[7] * a.r.c[7] + a.i.c[7] * a.i.c[7]);
			d2 = (i.c[7] * a.r.c[7] - r.c[7] * a.i.c[7]) / (a.r.c[7] * a.r.c[7] + a.i.c[7] * a.i.c[7]);
			r.c[7] = d1;
			i.c[7] = d2;
		}
		return this;
	}

	AML_FUNCTION AML_PREFIX(Array8Complex64) operator/(const AML_PREFIX(Complex64) &a) const {
		AML_PREFIX(Array8Complex64) ret;
		double d1 = (r.c[0] * a.c.c[0] + i.c[0] * a.c.c[1]) / (a.c.c[0] * a.c.c[0] + a.c.c[1] * a.c.c[1]);
		double d2 = (i.c[0] * a.c.c[0] - r.c[0] * a.c.c[1]) / (a.c.c[0] * a.c.c[0] + a.c.c[1] * a.c.c[1]);
		ret.r.c[0] = d1;
		ret.i.c[0] = d2;
		d1 = (r.c[1] * a.c.c[0] + i.c[1] * a.c.c[1]) / (a.c.c[0] * a.c.c[0] + a.c.c[1] * a.c.c[1]);
		d2 = (i.c[1] * a.c.c[0] - r.c[1] * a.c.c[1]) / (a.c.c[0] * a.c.c[0] + a.c.c[1] * a.c.c[1]);
		ret.r.c[1] = d1;
		ret.i.c[1] = d2;
		d1 = (r.c[2] * a.c.c[0] + i.c[2] * a.c.c[1]) / (a.c.c[0] * a.c.c[0] + a.c.c[1] * a.c.c[1]);
		d2 = (i.c[2] * a.c.c[0] - r.c[2] * a.c.c[1]) / (a.c.c[0] * a.c.c[0] + a.c.c[1] * a.c.c[1]);
		ret.r.c[2] = d1;
		ret.i.c[2] = d2;
		d1 = (r.c[3] * a.c.c[0] + i.c[3] * a.c.c[1]) / (a.c.c[0] * a.c.c[0] + a.c.c[1] * a.c.c[1]);
		d2 = (i.c[3] * a.c.c[0] - r.c[3] * a.c.c[1]) / (a.c.c[0] * a.c.c[0] + a.c.c[1] * a.c.c[1]);
		ret.r.c[3] = d1;
		ret.i.c[3] = d2;
		d1 = (r.c[4] * a.c.c[0] + i.c[4] * a.c.c[1]) / (a.c.c[0] * a.c.c[0] + a.c.c[1] * a.c.c[1]);
		d2 = (i.c[4] * a.c.c[0] - r.c[4] * a.c.c[1]) / (a.c.c[0] * a.c.c[0] + a.c.c[1] * a.c.c[1]);
		ret.r.c[4] = d1;
		ret.i.c[4] = d2;
		d1 = (r.c[5] * a.c.c[0] + i.c[5] * a.c.c[1]) / (a.c.c[0] * a.c.c[0] + a.c.c[1] * a.c.c[1]);
		d2 = (i.c[5] * a.c.c[0] - r.c[5] * a.c.c[1]) / (a.c.c[0] * a.c.c[0] + a.c.c[1] * a.c.c[1]);
		ret.r.c[5] = d1;
		ret.i.c[5] = d2;
		d1 = (r.c[6] * a.c.c[0] + i.c[6] * a.c.c[1]) / (a.c.c[0] * a.c.c[0] + a.c.c[1] * a.c.c[1]);
		d2 = (i.c[6] * a.c.c[0] - r.c[6] * a.c.c[1]) / (a.c.c[0] * a.c.c[0] + a.c.c[1] * a.c.c[1]);
		ret.r.c[6] = d1;
		ret.i.c[6] = d2;
		d1 = (r.c[7] * a.c.c[0] + i.c[7] * a.c.c[1]) / (a.c.c[0] * a.c.c[0] + a.c.c[1] * a.c.c[1]);
		d2 = (i.c[7] * a.c.c[0] - r.c[7] * a.c.c[1]) / (a.c.c[0] * a.c.c[0] + a.c.c[1] * a.c.c[1]);
		ret.r.c[7] = d1;
		ret.i.c[7] = d2;
		return ret;
	}

	AML_FUNCTION AML_PREFIX(Array8Complex64) operator/(const AML_PREFIX(Array8Complex64) &a) const {
		AML_PREFIX(Array8Complex64) ret;
		double d1 = (r.c[0] * a.r.c[0] + i.c[0] * a.i.c[0]) / (a.r.c[0] * a.r.c[0] + a.i.c[0] * a.i.c[0]);
		double d2 = (i.c[0] * a.r.c[0] - r.c[0] * a.i.c[0]) / (a.r.c[0] * a.r.c[0] + a.i.c[0] * a.i.c[0]);
		ret.r.c[0] = d1;
		ret.i.c[0] = d2;
		d1 = (r.c[1] * a.r.c[1] + i.c[1] * a.i.c[1]) / (a.r.c[1] * a.r.c[1] + a.i.c[1] * a.i.c[1]);
		d2 = (i.c[1] * a.r.c[1] - r.c[1] * a.i.c[1]) / (a.r.c[1] * a.r.c[1] + a.i.c[1] * a.i.c[1]);
		ret.r.c[1] = d1;
		ret.i.c[1] = d2;
		d1 = (r.c[2] * a.r.c[2] + i.c[2] * a.i.c[2]) / (a.r.c[2] * a.r.c[2] + a.i.c[2] * a.i.c[2]);
		d2 = (i.c[2] * a.r.c[2] - r.c[2] * a.i.c[2]) / (a.r.c[2] * a.r.c[2] + a.i.c[2] * a.i.c[2]);
		ret.r.c[2] = d1;
		ret.i.c[2] = d2;
		d1 = (r.c[3] * a.r.c[3] + i.c[3] * a.i.c[3]) / (a.r.c[3] * a.r.c[3] + a.i.c[3] * a.i.c[3]);
		d2 = (i.c[3] * a.r.c[3] - r.c[3] * a.i.c[3]) / (a.r.c[3] * a.r.c[3] + a.i.c[3] * a.i.c[3]);
		ret.r.c[3] = d1;
		ret.i.c[3] = d2;
		d1 = (r.c[4] * a.r.c[4] + i.c[4] * a.i.c[4]) / (a.r.c[4] * a.r.c[4] + a.i.c[4] * a.i.c[4]);
		d2 = (i.c[4] * a.r.c[4] - r.c[4] * a.i.c[4]) / (a.r.c[4] * a.r.c[4] + a.i.c[4] * a.i.c[4]);
		ret.r.c[4] = d1;
		ret.i.c[4] = d2;
		d1 = (r.c[5] * a.r.c[5] + i.c[5] * a.i.c[5]) / (a.r.c[5] * a.r.c[5] + a.i.c[5] * a.i.c[5]);
		d2 = (i.c[5] * a.r.c[5] - r.c[5] * a.i.c[5]) / (a.r.c[5] * a.r.c[5] + a.i.c[5] * a.i.c[5]);
		ret.r.c[5] = d1;
		ret.i.c[5] = d2;
		d1 = (r.c[6] * a.r.c[6] + i.c[6] * a.i.c[6]) / (a.r.c[6] * a.r.c[6] + a.i.c[6] * a.i.c[6]);
		d2 = (i.c[6] * a.r.c[6] - r.c[6] * a.i.c[6]) / (a.r.c[6] * a.r.c[6] + a.i.c[6] * a.i.c[6]);
		ret.r.c[6] = d1;
		ret.i.c[6] = d2;
		d1 = (r.c[7] * a.r.c[7] + i.c[7] * a.i.c[7]) / (a.r.c[7] * a.r.c[7] + a.i.c[7] * a.i.c[7]);
		d2 = (i.c[7] * a.r.c[7] - r.c[7] * a.i.c[7]) / (a.r.c[7] * a.r.c[7] + a.i.c[7] * a.i.c[7]);
		ret.r.c[7] = d1;
		ret.i.c[7] = d2;
		return ret;
	}

	AML_FUNCTION void operator/=(const AML_PREFIX(Complex64) &a) {
		double d1 = (r.c[0] * a.c.c[0] + i.c[0] * a.c.c[1]) / (a.c.c[0] * a.c.c[0] + a.c.c[1] * a.c.c[1]);
		double d2 = (i.c[0] * a.c.c[0] - r.c[0] * a.c.c[1]) / (a.c.c[0] * a.c.c[0] + a.c.c[1] * a.c.c[1]);
		r.c[0] = d1;
		i.c[0] = d2;
		d1 = (r.c[1] * a.c.c[0] + i.c[1] * a.c.c[1]) / (a.c.c[0] * a.c.c[0] + a.c.c[1] * a.c.c[1]);
		d2 = (i.c[1] * a.c.c[0] - r.c[1] * a.c.c[1]) / (a.c.c[0] * a.c.c[0] + a.c.c[1] * a.c.c[1]);
		r.c[1] = d1;
		i.c[1] = d2;
		d1 = (r.c[2] * a.c.c[0] + i.c[2] * a.c.c[1]) / (a.c.c[0] * a.c.c[0] + a.c.c[1] * a.c.c[1]);
		d2 = (i.c[2] * a.c.c[0] - r.c[2] * a.c.c[1]) / (a.c.c[0] * a.c.c[0] + a.c.c[1] * a.c.c[1]);
		r.c[2] = d1;
		i.c[2] = d2;
		d1 = (r.c[3] * a.c.c[0] + i.c[3] * a.c.c[1]) / (a.c.c[0] * a.c.c[0] + a.c.c[1] * a.c.c[1]);
		d2 = (i.c[3] * a.c.c[0] - r.c[3] * a.c.c[1]) / (a.c.c[0] * a.c.c[0] + a.c.c[1] * a.c.c[1]);
		r.c[3] = d1;
		i.c[3] = d2;
		d1 = (r.c[4] * a.c.c[0] + i.c[4] * a.c.c[1]) / (a.c.c[0] * a.c.c[0] + a.c.c[1] * a.c.c[1]);
		d2 = (i.c[4] * a.c.c[0] - r.c[4] * a.c.c[1]) / (a.c.c[0] * a.c.c[0] + a.c.c[1] * a.c.c[1]);
		r.c[4] = d1;
		i.c[4] = d2;
		d1 = (r.c[5] * a.c.c[0] + i.c[5] * a.c.c[1]) / (a.c.c[0] * a.c.c[0] + a.c.c[1] * a.c.c[1]);
		d2 = (i.c[5] * a.c.c[0] - r.c[5] * a.c.c[1]) / (a.c.c[0] * a.c.c[0] + a.c.c[1] * a.c.c[1]);
		r.c[5] = d1;
		i.c[5] = d2;
		d1 = (r.c[6] * a.c.c[0] + i.c[6] * a.c.c[1]) / (a.c.c[0] * a.c.c[0] + a.c.c[1] * a.c.c[1]);
		d2 = (i.c[6] * a.c.c[0] - r.c[6] * a.c.c[1]) / (a.c.c[0] * a.c.c[0] + a.c.c[1] * a.c.c[1]);
		r.c[6] = d1;
		i.c[6] = d2;
		d1 = (r.c[7] * a.c.c[0] + i.c[7] * a.c.c[1]) / (a.c.c[0] * a.c.c[0] + a.c.c[1] * a.c.c[1]);
		d2 = (i.c[7] * a.c.c[0] - r.c[7] * a.c.c[1]) / (a.c.c[0] * a.c.c[0] + a.c.c[1] * a.c.c[1]);
		r.c[7] = d1;
		i.c[7] = d2;
	}

	AML_FUNCTION void operator/=(const AML_PREFIX(Array8Complex64) &a) {
		double d1 = (r.c[0] * a.r.c[0] + i.c[0] * a.i.c[0]) / (a.r.c[0] * a.r.c[0] + a.i.c[0] * a.i.c[0]);
		double d2 = (i.c[0] * a.r.c[0] - r.c[0] * a.i.c[0]) / (a.r.c[0] * a.r.c[0] + a.i.c[0] * a.i.c[0]);
		r.c[0] = d1;
		i.c[0] = d2;
		d1 = (r.c[1] * a.r.c[1] + i.c[1] * a.i.c[1]) / (a.r.c[1] * a.r.c[1] + a.i.c[1] * a.i.c[1]);
		d2 = (i.c[1] * a.r.c[1] - r.c[1] * a.i.c[1]) / (a.r.c[1] * a.r.c[1] + a.i.c[1] * a.i.c[1]);
		r.c[1] = d1;
		i.c[1] = d2;
		d1 = (r.c[2] * a.r.c[2] + i.c[2] * a.i.c[2]) / (a.r.c[2] * a.r.c[2] + a.i.c[2] * a.i.c[2]);
		d2 = (i.c[2] * a.r.c[2] - r.c[2] * a.i.c[2]) / (a.r.c[2] * a.r.c[2] + a.i.c[2] * a.i.c[2]);
		r.c[2] = d1;
		i.c[2] = d2;
		d1 = (r.c[3] * a.r.c[3] + i.c[3] * a.i.c[3]) / (a.r.c[3] * a.r.c[3] + a.i.c[3] * a.i.c[3]);
		d2 = (i.c[3] * a.r.c[3] - r.c[3] * a.i.c[3]) / (a.r.c[3] * a.r.c[3] + a.i.c[3] * a.i.c[3]);
		r.c[3] = d1;
		i.c[3] = d2;
		d1 = (r.c[4] * a.r.c[4] + i.c[4] * a.i.c[4]) / (a.r.c[4] * a.r.c[4] + a.i.c[4] * a.i.c[4]);
		d2 = (i.c[4] * a.r.c[4] - r.c[4] * a.i.c[4]) / (a.r.c[4] * a.r.c[4] + a.i.c[4] * a.i.c[4]);
		r.c[4] = d1;
		i.c[4] = d2;
		d1 = (r.c[5] * a.r.c[5] + i.c[5] * a.i.c[5]) / (a.r.c[5] * a.r.c[5] + a.i.c[5] * a.i.c[5]);
		d2 = (i.c[5] * a.r.c[5] - r.c[5] * a.i.c[5]) / (a.r.c[5] * a.r.c[5] + a.i.c[5] * a.i.c[5]);
		r.c[5] = d1;
		i.c[5] = d2;
		d1 = (r.c[6] * a.r.c[6] + i.c[6] * a.i.c[6]) / (a.r.c[6] * a.r.c[6] + a.i.c[6] * a.i.c[6]);
		d2 = (i.c[6] * a.r.c[6] - r.c[6] * a.i.c[6]) / (a.r.c[6] * a.r.c[6] + a.i.c[6] * a.i.c[6]);
		r.c[6] = d1;
		i.c[6] = d2;
		d1 = (r.c[7] * a.r.c[7] + i.c[7] * a.i.c[7]) / (a.r.c[7] * a.r.c[7] + a.i.c[7] * a.i.c[7]);
		d2 = (i.c[7] * a.r.c[7] - r.c[7] * a.i.c[7]) / (a.r.c[7] * a.r.c[7] + a.i.c[7] * a.i.c[7]);
		r.c[7] = d1;
		i.c[7] = d2;
	}

	AML_FUNCTION AML_PREFIX(Array8Complex64) *sqrt() {
		double d1;
		double d2;
		d2 = ::sqrt((-r.c[0] + ::sqrt(r.c[0] * r.c[0] + i.c[0] * i.c[0])) / (2));
		if (d2 == 0) UNLIKELY {
			d1 = ::sqrt(r.c[0]);
		} else LIKELY {
			d1 = i.c[0] / (2 * d2);
		}
		r.c[0] = d1;
		i.c[0] = d2;
		d2 = ::sqrt((-r.c[1] + ::sqrt(r.c[1] * r.c[1] + i.c[1] * i.c[1])) / (2));
		if (d2 == 0) UNLIKELY {
			d1 = ::sqrt(r.c[1]);
		} else LIKELY {
			d1 = i.c[1] / (2 * d2);
		}
		r.c[1] = d1;
		i.c[1] = d2;
		d2 = ::sqrt((-r.c[2] + ::sqrt(r.c[2] * r.c[2] + i.c[2] * i.c[2])) / (2));
		if (d2 == 0) UNLIKELY {
			d1 = ::sqrt(r.c[2]);
		} else LIKELY {
			d1 = i.c[2] / (2 * d2);
		}
		r.c[2] = d1;
		i.c[2] = d2;
		d2 = ::sqrt((-r.c[3] + ::sqrt(r.c[3] * r.c[3] + i.c[3] * i.c[3])) / (2));
		if (d2 == 0) UNLIKELY {
			d1 = ::sqrt(r.c[3]);
		} else LIKELY {
			d1 = i.c[3] / (2 * d2);
		}
		r.c[3] = d1;
		i.c[3] = d2;
		d2 = ::sqrt((-r.c[4] + ::sqrt(r.c[4] * r.c[4] + i.c[4] * i.c[4])) / (2));
		if (d2 == 0) UNLIKELY {
			d1 = ::sqrt(r.c[4]);
		} else LIKELY {
			d1 = i.c[4] / (2 * d2);
		}
		r.c[4] = d1;
		i.c[4] = d2;
		d2 = ::sqrt((-r.c[5] + ::sqrt(r.c[5] * r.c[5] + i.c[5] * i.c[5])) / (2));
		if (d2 == 0) UNLIKELY {
			d1 = ::sqrt(r.c[5]);
		} else LIKELY {
			d1 = i.c[5] / (2 * d2);
		}
		r.c[5] = d1;
		i.c[5] = d2;
		d2 = ::sqrt((-r.c[6] + ::sqrt(r.c[6] * r.c[6] + i.c[6] * i.c[6])) / (2));
		if (d2 == 0) UNLIKELY {
			d1 = ::sqrt(r.c[6]);
		} else LIKELY {
			d1 = i.c[6] / (2 * d2);
		}
		r.c[6] = d1;
		i.c[6] = d2;
		d2 = ::sqrt((-r.c[7] + ::sqrt(r.c[7] * r.c[7] + i.c[7] * i.c[7])) / (2));
		if (d2 == 0) UNLIKELY {
			d1 = ::sqrt(r.c[7]);
		} else LIKELY {
			d1 = i.c[7] / (2 * d2);
		}
		r.c[7] = d1;
		i.c[7] = d2;
		return this;
	}

	AML_FUNCTION AML_PREFIX(Array8Complex64) *sqrt(const AML_PREFIX(VectorU8_8D) mask) {
		double d1;
		double d2;
		if (mask.v.c[0]) {
			d2 = ::sqrt((-r.c[0] + ::sqrt(r.c[0] * r.c[0] + i.c[0] * i.c[0])) / (2));
			if (d2 == 0) UNLIKELY {
				d1 = ::sqrt(r.c[0]);
			} else LIKELY {
				d1 = i.c[0] / (2 * d2);
			}
			r.c[0] = d1;
			i.c[0] = d2;
		}
		if (mask.v.c[1]) {
			d2 = ::sqrt((-r.c[1] + ::sqrt(r.c[1] * r.c[1] + i.c[1] * i.c[1])) / (2));
			if (d2 == 0) UNLIKELY {
				d1 = ::sqrt(r.c[1]);
			} else LIKELY {
				d1 = i.c[1] / (2 * d2);
			}
			r.c[1] = d1;
			i.c[1] = d2;
		}
		if (mask.v.c[2]) {
			d2 = ::sqrt((-r.c[2] + ::sqrt(r.c[2] * r.c[2] + i.c[2] * i.c[2])) / (2));
			if (d2 == 0) UNLIKELY {
				d1 = ::sqrt(r.c[2]);
			} else LIKELY {
				d1 = i.c[2] / (2 * d2);
			}
			r.c[2] = d1;
			i.c[2] = d2;
		}
		if (mask.v.c[3]) {
			d2 = ::sqrt((-r.c[3] + ::sqrt(r.c[3] * r.c[3] + i.c[3] * i.c[3])) / (2));
			if (d2 == 0) UNLIKELY {
				d1 = ::sqrt(r.c[3]);
			} else LIKELY {
				d1 = i.c[3] / (2 * d2);
			}
			r.c[3] = d1;
			i.c[3] = d2;
		}
		if (mask.v.c[4]) {
			d2 = ::sqrt((-r.c[4] + ::sqrt(r.c[4] * r.c[4] + i.c[4] * i.c[4])) / (2));
			if (d2 == 0) UNLIKELY {
				d1 = ::sqrt(r.c[4]);
			} else LIKELY {
				d1 = i.c[4] / (2 * d2);
			}
			r.c[4] = d1;
			i.c[4] = d2;
		}
		if (mask.v.c[5]) {
			d2 = ::sqrt((-r.c[5] + ::sqrt(r.c[5] * r.c[5] + i.c[5] * i.c[5])) / (2));
			if (d2 == 0) UNLIKELY {
				d1 = ::sqrt(r.c[5]);
			} else LIKELY {
				d1 = i.c[5] / (2 * d2);
			}
			r.c[5] = d1;
			i.c[5] = d2;
		}
		if (mask.v.c[6]) {
			d2 = ::sqrt((-r.c[6] + ::sqrt(r.c[6] * r.c[6] + i.c[6] * i.c[6])) / (2));
			if (d2 == 0) UNLIKELY {
				d1 = ::sqrt(r.c[6]);
			} else LIKELY {
				d1 = i.c[6] / (2 * d2);
			}
			r.c[6] = d1;
			i.c[6] = d2;
		}
		if (mask.v.c[7]) {
			d2 = ::sqrt((-r.c[7] + ::sqrt(r.c[7] * r.c[7] + i.c[7] * i.c[7])) / (2));
			if (d2 == 0) UNLIKELY {
				d1 = ::sqrt(r.c[7]);
			} else LIKELY {
				d1 = i.c[7] / (2 * d2);
			}
			r.c[7] = d1;
			i.c[7] = d2;
		}
		return this;
	}

	AML_FUNCTION AML_PREFIX(Array8Complex64) *sin() {
		double d1;
		double d2;
		d1 = ::sin(r.c[0]) * ::cosh(i.c[0]);
		d2 = ::cos(i.c[0]) * ::sinh(r.c[0]);
		r.c[0] = d1;
		i.c[0] = d2;
		d1 = ::sin(r.c[1]) * ::cosh(i.c[1]);
		d2 = ::cos(i.c[1]) * ::sinh(r.c[1]);
		r.c[1] = d1;
		i.c[1] = d2;
		d1 = ::sin(r.c[2]) * ::cosh(i.c[2]);
		d2 = ::cos(i.c[2]) * ::sinh(r.c[2]);
		r.c[2] = d1;
		i.c[2] = d2;
		d1 = ::sin(r.c[3]) * ::cosh(i.c[3]);
		d2 = ::cos(i.c[3]) * ::sinh(r.c[3]);
		r.c[3] = d1;
		i.c[3] = d2;
		d1 = ::sin(r.c[4]) * ::cosh(i.c[4]);
		d2 = ::cos(i.c[4]) * ::sinh(r.c[4]);
		r.c[4] = d1;
		i.c[4] = d2;
		d1 = ::sin(r.c[5]) * ::cosh(i.c[5]);
		d2 = ::cos(i.c[5]) * ::sinh(r.c[5]);
		r.c[5] = d1;
		i.c[5] = d2;
		d1 = ::sin(r.c[6]) * ::cosh(i.c[6]);
		d2 = ::cos(i.c[6]) * ::sinh(r.c[6]);
		r.c[6] = d1;
		i.c[6] = d2;
		d1 = ::sin(r.c[7]) * ::cosh(i.c[7]);
		d2 = ::cos(i.c[7]) * ::sinh(r.c[7]);
		r.c[7] = d1;
		i.c[7] = d2;
		return this;
	}

	AML_FUNCTION AML_PREFIX(Array8Complex64) *cos() {
		double d1;
		double d2;
		d1 = ::cos(r.c[0]) * ::cosh(i.c[0]);
		d2 = -::sin(i.c[0]) * ::sinh(r.c[0]);
		r.c[0] = d1;
		i.c[0] = d2;
		d1 = ::cos(r.c[1]) * ::cosh(i.c[1]);
		d2 = -::sin(i.c[1]) * ::sinh(r.c[1]);
		r.c[1] = d1;
		i.c[1] = d2;
		d1 = ::cos(r.c[2]) * ::cosh(i.c[2]);
		d2 = -::sin(i.c[2]) * ::sinh(r.c[2]);
		r.c[2] = d1;
		i.c[2] = d2;
		d1 = ::cos(r.c[3]) * ::cosh(i.c[3]);
		d2 = -::sin(i.c[3]) * ::sinh(r.c[3]);
		r.c[3] = d1;
		i.c[3] = d2;
		d1 = ::cos(r.c[4]) * ::cosh(i.c[4]);
		d2 = -::sin(i.c[4]) * ::sinh(r.c[4]);
		r.c[4] = d1;
		i.c[4] = d2;
		d1 = ::cos(r.c[5]) * ::cosh(i.c[5]);
		d2 = -::sin(i.c[5]) * ::sinh(r.c[5]);
		r.c[5] = d1;
		i.c[5] = d2;
		d1 = ::cos(r.c[6]) * ::cosh(i.c[6]);
		d2 = -::sin(i.c[6]) * ::sinh(r.c[6]);
		r.c[6] = d1;
		i.c[6] = d2;
		d1 = ::cos(r.c[7]) * ::cosh(i.c[7]);
		d2 = -::sin(i.c[7]) * ::sinh(r.c[7]);
		r.c[7] = d1;
		i.c[7] = d2;
		return this;
	}

	AML_FUNCTION AML_PREFIX(Array8Complex64) *tan() {
		double d1;
		double d2;
		d1 = ::sin(r.c[0] + r.c[0]) / (::cos(r.c[0] + r.c[0]) * ::cosh(i.c[0] + i.c[0]));
		d2 = ::sinh(i.c[0] + i.c[0]) / (::cos(r.c[0] + r.c[0]) * ::cosh(i.c[0] + i.c[0]));
		r.c[0] = d1;
		i.c[0] = d2;
		d1 = ::sin(r.c[1] + r.c[1]) / (::cos(r.c[1] + r.c[1]) * ::cosh(i.c[1] + i.c[1]));
		d2 = ::sinh(i.c[1] + i.c[1]) / (::cos(r.c[1] + r.c[1]) * ::cosh(i.c[1] + i.c[1]));
		r.c[1] = d1;
		i.c[1] = d2;
		d1 = ::sin(r.c[2] + r.c[2]) / (::cos(r.c[2] + r.c[2]) * ::cosh(i.c[2] + i.c[2]));
		d2 = ::sinh(i.c[2] + i.c[2]) / (::cos(r.c[2] + r.c[2]) * ::cosh(i.c[2] + i.c[2]));
		r.c[2] = d1;
		i.c[2] = d2;
		d1 = ::sin(r.c[3] + r.c[3]) / (::cos(r.c[3] + r.c[3]) * ::cosh(i.c[3] + i.c[3]));
		d2 = ::sinh(i.c[3] + i.c[3]) / (::cos(r.c[3] + r.c[3]) * ::cosh(i.c[3] + i.c[3]));
		r.c[3] = d1;
		i.c[3] = d2;
		d1 = ::sin(r.c[4] + r.c[4]) / (::cos(r.c[4] + r.c[4]) * ::cosh(i.c[4] + i.c[4]));
		d2 = ::sinh(i.c[4] + i.c[4]) / (::cos(r.c[4] + r.c[4]) * ::cosh(i.c[4] + i.c[4]));
		r.c[4] = d1;
		i.c[4] = d2;
		d1 = ::sin(r.c[5] + r.c[5]) / (::cos(r.c[5] + r.c[5]) * ::cosh(i.c[5] + i.c[5]));
		d2 = ::sinh(i.c[5] + i.c[5]) / (::cos(r.c[5] + r.c[5]) * ::cosh(i.c[5] + i.c[5]));
		r.c[5] = d1;
		i.c[5] = d2;
		d1 = ::sin(r.c[6] + r.c[6]) / (::cos(r.c[6] + r.c[6]) * ::cosh(i.c[6] + i.c[6]));
		d2 = ::sinh(i.c[6] + i.c[6]) / (::cos(r.c[6] + r.c[6]) * ::cosh(i.c[6] + i.c[6]));
		r.c[6] = d1;
		i.c[6] = d2;
		d1 = ::sin(r.c[7] + r.c[7]) / (::cos(r.c[7] + r.c[7]) * ::cosh(i.c[7] + i.c[7]));
		d2 = ::sinh(i.c[7] + i.c[7]) / (::cos(r.c[7] + r.c[7]) * ::cosh(i.c[7] + i.c[7]));
		r.c[7] = d1;
		i.c[7] = d2;
		return this;
	}

	AML_FUNCTION AML_PREFIX(Array8Complex64) *sin(const AML_PREFIX(VectorU8_8D) mask) {
		double d1;
		double d2;
		if (mask.v.c[0]) {
			d1 = ::sin(r.c[0]) * ::cosh(i.c[0]);
			d2 = ::cos(i.c[0]) * ::sinh(r.c[0]);
			r.c[0] = d1;
			i.c[0] = d2;
		}
		if (mask.v.c[1]) {
			d1 = ::sin(r.c[1]) * ::cosh(i.c[1]);
			d2 = ::cos(i.c[1]) * ::sinh(r.c[1]);
			r.c[1] = d1;
			i.c[1] = d2;
		}
		if (mask.v.c[2]) {
			d1 = ::sin(r.c[2]) * ::cosh(i.c[2]);
			d2 = ::cos(i.c[2]) * ::sinh(r.c[2]);
			r.c[2] = d1;
			i.c[2] = d2;
		}
		if (mask.v.c[3]) {
			d1 = ::sin(r.c[3]) * ::cosh(i.c[3]);
			d2 = ::cos(i.c[3]) * ::sinh(r.c[3]);
			r.c[3] = d1;
			i.c[3] = d2;
		}
		if (mask.v.c[4]) {
			d1 = ::sin(r.c[4]) * ::cosh(i.c[4]);
			d2 = ::cos(i.c[4]) * ::sinh(r.c[4]);
			r.c[4] = d1;
			i.c[4] = d2;
		}
		if (mask.v.c[5]) {
			d1 = ::sin(r.c[5]) * ::cosh(i.c[5]);
			d2 = ::cos(i.c[5]) * ::sinh(r.c[5]);
			r.c[5] = d1;
			i.c[5] = d2;
		}
		if (mask.v.c[6]) {
			d1 = ::sin(r.c[6]) * ::cosh(i.c[6]);
			d2 = ::cos(i.c[6]) * ::sinh(r.c[6]);
			r.c[6] = d1;
			i.c[6] = d2;
		}
		if (mask.v.c[7]) {
			d1 = ::sin(r.c[7]) * ::cosh(i.c[7]);
			d2 = ::cos(i.c[7]) * ::sinh(r.c[7]);
			r.c[7] = d1;
			i.c[7] = d2;
		}
		return this;
	}

	AML_FUNCTION AML_PREFIX(Array8Complex64) *cos(const AML_PREFIX(VectorU8_8D) mask) {
		double d1;
		double d2;
		if (mask.v.c[0]) {
			d1 = ::cos(r.c[0]) * ::cosh(i.c[0]);
			d2 = -::sin(i.c[0]) * ::sinh(r.c[0]);
			r.c[0] = d1;
			i.c[0] = d2;
		}
		if (mask.v.c[1]) {
			d1 = ::cos(r.c[1]) * ::cosh(i.c[1]);
			d2 = -::sin(i.c[1]) * ::sinh(r.c[1]);
			r.c[1] = d1;
			i.c[1] = d2;
		}
		if (mask.v.c[2]) {
			d1 = ::cos(r.c[2]) * ::cosh(i.c[2]);
			d2 = -::sin(i.c[2]) * ::sinh(r.c[2]);
			r.c[2] = d1;
			i.c[2] = d2;
		}
		if (mask.v.c[3]) {
			d1 = ::cos(r.c[3]) * ::cosh(i.c[3]);
			d2 = -::sin(i.c[3]) * ::sinh(r.c[3]);
			r.c[3] = d1;
			i.c[3] = d2;
		}
		if (mask.v.c[4]) {
			d1 = ::cos(r.c[4]) * ::cosh(i.c[4]);
			d2 = -::sin(i.c[4]) * ::sinh(r.c[4]);
			r.c[4] = d1;
			i.c[4] = d2;
		}
		if (mask.v.c[5]) {
			d1 = ::cos(r.c[5]) * ::cosh(i.c[5]);
			d2 = -::sin(i.c[5]) * ::sinh(r.c[5]);
			r.c[5] = d1;
			i.c[5] = d2;
		}
		if (mask.v.c[6]) {
			d1 = ::cos(r.c[6]) * ::cosh(i.c[6]);
			d2 = -::sin(i.c[6]) * ::sinh(r.c[6]);
			r.c[6] = d1;
			i.c[6] = d2;
		}
		if (mask.v.c[7]) {
			d1 = ::cos(r.c[7]) * ::cosh(i.c[7]);
			d2 = -::sin(i.c[7]) * ::sinh(r.c[7]);
			r.c[7] = d1;
			i.c[7] = d2;
		}
		return this;
	}

	AML_FUNCTION AML_PREFIX(Array8Complex64) *tan(const AML_PREFIX(VectorU8_8D) mask) {
		double d1;
		double d2;
		if (mask.v.c[0]) {
			d1 = ::sin(r.c[0] + r.c[0]) / (::cos(r.c[0] + r.c[0]) * ::cosh(i.c[0] + i.c[0]));
			d2 = ::sinh(i.c[0] + i.c[0]) / (::cos(r.c[0] + r.c[0]) * ::cosh(i.c[0] + i.c[0]));
			r.c[0] = d1;
			i.c[0] = d2;
		}
		if (mask.v.c[1]) {
			d1 = ::sin(r.c[1] + r.c[1]) / (::cos(r.c[1] + r.c[1]) * ::cosh(i.c[1] + i.c[1]));
			d2 = ::sinh(i.c[1] + i.c[1]) / (::cos(r.c[1] + r.c[1]) * ::cosh(i.c[1] + i.c[1]));
			r.c[1] = d1;
			i.c[1] = d2;
		}
		if (mask.v.c[2]) {
			d1 = ::sin(r.c[2] + r.c[2]) / (::cos(r.c[2] + r.c[2]) * ::cosh(i.c[2] + i.c[2]));
			d2 = ::sinh(i.c[2] + i.c[2]) / (::cos(r.c[2] + r.c[2]) * ::cosh(i.c[2] + i.c[2]));
			r.c[2] = d1;
			i.c[2] = d2;
		}
		if (mask.v.c[3]) {
			d1 = ::sin(r.c[3] + r.c[3]) / (::cos(r.c[3] + r.c[3]) * ::cosh(i.c[3] + i.c[3]));
			d2 = ::sinh(i.c[3] + i.c[3]) / (::cos(r.c[3] + r.c[3]) * ::cosh(i.c[3] + i.c[3]));
			r.c[3] = d1;
			i.c[3] = d2;
		}
		if (mask.v.c[4]) {
			d1 = ::sin(r.c[4] + r.c[4]) / (::cos(r.c[4] + r.c[4]) * ::cosh(i.c[4] + i.c[4]));
			d2 = ::sinh(i.c[4] + i.c[4]) / (::cos(r.c[4] + r.c[4]) * ::cosh(i.c[4] + i.c[4]));
			r.c[4] = d1;
			i.c[4] = d2;
		}
		if (mask.v.c[5]) {
			d1 = ::sin(r.c[5] + r.c[5]) / (::cos(r.c[5] + r.c[5]) * ::cosh(i.c[5] + i.c[5]));
			d2 = ::sinh(i.c[5] + i.c[5]) / (::cos(r.c[5] + r.c[5]) * ::cosh(i.c[5] + i.c[5]));
			r.c[5] = d1;
			i.c[5] = d2;
		}
		if (mask.v.c[6]) {
			d1 = ::sin(r.c[6] + r.c[6]) / (::cos(r.c[6] + r.c[6]) * ::cosh(i.c[6] + i.c[6]));
			d2 = ::sinh(i.c[6] + i.c[6]) / (::cos(r.c[6] + r.c[6]) * ::cosh(i.c[6] + i.c[6]));
			r.c[6] = d1;
			i.c[6] = d2;
		}
		if (mask.v.c[7]) {
			d1 = ::sin(r.c[7] + r.c[7]) / (::cos(r.c[7] + r.c[7]) * ::cosh(i.c[7] + i.c[7]));
			d2 = ::sinh(i.c[7] + i.c[7]) / (::cos(r.c[7] + r.c[7]) * ::cosh(i.c[7] + i.c[7]));
			r.c[7] = d1;
			i.c[7] = d2;
		}
		return this;
	}


	AML_FUNCTION AML_PREFIX(Array8Complex64) *exp() {
		double d1 = ::exp(r.c[0]) * ::cos(i.c[0]);
		double d2 = ::exp(r.c[0]) * ::sin(i.c[0]);
		r.c[0] = d1;
		i.c[0] = d2;
		d1 = ::exp(r.c[1]) * ::cos(i.c[1]);
		d2 = ::exp(r.c[1]) * ::sin(i.c[1]);
		r.c[1] = d1;
		i.c[1] = d2;
		d1 = ::exp(r.c[2]) * ::cos(i.c[2]);
		d2 = ::exp(r.c[2]) * ::sin(i.c[2]);
		r.c[2] = d1;
		i.c[2] = d2;
		d1 = ::exp(r.c[3]) * ::cos(i.c[3]);
		d2 = ::exp(r.c[3]) * ::sin(i.c[3]);
		r.c[3] = d1;
		i.c[3] = d2;
		d1 = ::exp(r.c[4]) * ::cos(i.c[4]);
		d2 = ::exp(r.c[4]) * ::sin(i.c[4]);
		r.c[4] = d1;
		i.c[4] = d2;
		d1 = ::exp(r.c[5]) * ::cos(i.c[5]);
		d2 = ::exp(r.c[5]) * ::sin(i.c[5]);
		r.c[5] = d1;
		i.c[5] = d2;
		d1 = ::exp(r.c[6]) * ::cos(i.c[6]);
		d2 = ::exp(r.c[6]) * ::sin(i.c[6]);
		r.c[6] = d1;
		i.c[6] = d2;
		d1 = ::exp(r.c[7]) * ::cos(i.c[7]);
		d2 = ::exp(r.c[7]) * ::sin(i.c[7]);
		r.c[7] = d1;
		i.c[7] = d2;
		return this;
	}

	AML_FUNCTION AML_PREFIX(Array8Complex64) *exp(double n) {
		double d1 = ::pow(n, r.c[0]) * ::cos(i.c[0] * ::log(n));
		double d2 = ::pow(n, r.c[0]) * ::sin(i.c[0] * ::log(n));
		r.c[0] = d1;
		i.c[0] = d2;
		d1 = ::pow(n, r.c[1]) * ::cos(i.c[1] * ::log(n));
		d2 = ::pow(n, r.c[1]) * ::sin(i.c[1] * ::log(n));
		r.c[1] = d1;
		i.c[1] = d2;
		d1 = ::pow(n, r.c[2]) * ::cos(i.c[2] * ::log(n));
		d2 = ::pow(n, r.c[2]) * ::sin(i.c[2] * ::log(n));
		r.c[2] = d1;
		i.c[2] = d2;
		d1 = ::pow(n, r.c[3]) * ::cos(i.c[3] * ::log(n));
		d2 = ::pow(n, r.c[3]) * ::sin(i.c[3] * ::log(n));
		r.c[3] = d1;
		i.c[3] = d2;
		d1 = ::pow(n, r.c[4]) * ::cos(i.c[4] * ::log(n));
		d2 = ::pow(n, r.c[4]) * ::sin(i.c[4] * ::log(n));
		r.c[4] = d1;
		i.c[4] = d2;
		d1 = ::pow(n, r.c[5]) * ::cos(i.c[5] * ::log(n));
		d2 = ::pow(n, r.c[5]) * ::sin(i.c[5] * ::log(n));
		r.c[5] = d1;
		i.c[5] = d2;
		d1 = ::pow(n, r.c[6]) * ::cos(i.c[6] * ::log(n));
		d2 = ::pow(n, r.c[6]) * ::sin(i.c[6] * ::log(n));
		r.c[6] = d1;
		i.c[6] = d2;
		d1 = ::pow(n, r.c[7]) * ::cos(i.c[7] * ::log(n));
		d2 = ::pow(n, r.c[7]) * ::sin(i.c[7] * ::log(n));
		r.c[7] = d1;
		i.c[7] = d2;
		return this;
	}

	AML_FUNCTION AML_PREFIX(Array8Complex64) *pow(const AML_PREFIX(Array8Complex64) &n) {
		double d1 = ::log(i.c[0] * i.c[0] + r.c[0] * r.c[0]) / 2;
		double d2 = ::atan2(r.c[0], i.c[0]);
		double d3 = ::exp(d1 * n.i.c[0] - d2 * n.r.c[0]);
		double d4 = d1 * n.r.c[0] + d2 * n.i.c[0];
		double d5 = d3 * ::cos(d4);
		double d6 = d3 * ::sin(d4);
		i.c[0] = d5;
		r.c[0] = d6;
		d1 = ::log(i.c[1] * i.c[1] + r.c[1] * r.c[1]) / 2;
		d2 = ::atan2(r.c[1], i.c[1]);
		d3 = ::exp(d1 * n.i.c[1] - d2 * n.r.c[1]);
		d4 = d1 * n.r.c[1] + d2 * n.i.c[1];
		d5 = d3 * ::cos(d4);
		d6 = d3 * ::sin(d4);
		i.c[1] = d5;
		r.c[1] = d6;
		d1 = ::log(i.c[2] * i.c[2] + r.c[2] * r.c[2]) / 2;
		d2 = ::atan2(r.c[2], i.c[2]);
		d3 = ::exp(d1 * n.i.c[2] - d2 * n.r.c[2]);
		d4 = d1 * n.r.c[2] + d2 * n.i.c[2];
		d5 = d3 * ::cos(d4);
		d6 = d3 * ::sin(d4);
		i.c[2] = d5;
		r.c[2] = d6;
		d1 = ::log(i.c[3] * i.c[3] + r.c[3] * r.c[3]) / 2;
		d2 = ::atan2(r.c[3], i.c[3]);
		d3 = ::exp(d1 * n.i.c[3] - d2 * n.r.c[3]);
		d4 = d1 * n.r.c[3] + d2 * n.i.c[3];
		d5 = d3 * ::cos(d4);
		d6 = d3 * ::sin(d4);
		i.c[3] = d5;
		r.c[3] = d6;
		d1 = ::log(i.c[4] * i.c[4] + r.c[4] * r.c[4]) / 2;
		d2 = ::atan2(r.c[4], i.c[4]);
		d3 = ::exp(d1 * n.i.c[4] - d2 * n.r.c[4]);
		d4 = d1 * n.r.c[4] + d2 * n.i.c[4];
		d5 = d3 * ::cos(d4);
		d6 = d3 * ::sin(d4);
		i.c[4] = d5;
		r.c[4] = d6;
		d1 = ::log(i.c[5] * i.c[5] + r.c[5] * r.c[5]) / 2;
		d2 = ::atan2(r.c[5], i.c[5]);
		d3 = ::exp(d1 * n.i.c[5] - d2 * n.r.c[5]);
		d4 = d1 * n.r.c[5] + d2 * n.i.c[5];
		d5 = d3 * ::cos(d4);
		d6 = d3 * ::sin(d4);
		i.c[5] = d5;
		r.c[5] = d6;
		d1 = ::log(i.c[6] * i.c[6] + r.c[6] * r.c[6]) / 2;
		d2 = ::atan2(r.c[6], i.c[6]);
		d3 = ::exp(d1 * n.i.c[6] - d2 * n.r.c[6]);
		d4 = d1 * n.r.c[6] + d2 * n.i.c[6];
		d5 = d3 * ::cos(d4);
		d6 = d3 * ::sin(d4);
		i.c[6] = d5;
		r.c[6] = d6;
		d1 = ::log(i.c[7] * i.c[7] + r.c[7] * r.c[7]) / 2;
		d2 = ::atan2(r.c[7], i.c[7]);
		d3 = ::exp(d1 * n.i.c[7] - d2 * n.r.c[7]);
		d4 = d1 * n.r.c[7] + d2 * n.i.c[7];
		d5 = d3 * ::cos(d4);
		d6 = d3 * ::sin(d4);
		i.c[7] = d5;
		r.c[7] = d6;
		return this;
	}


	AML_FUNCTION AML_PREFIX(Array8Complex64) *pow(const AML_PREFIX(Complex64) n) {
		double d1 = ::log(i.c[0] * i.c[0] + r.c[0] * r.c[0]) / 2;
		double d2 = ::atan2(r.c[0], i.c[0]);
		double d3 = ::exp(d1 * n.c.c[0] - d2 * n.c.c[1]);
		double d4 = d1 * n.c.c[1] + d2 * n.c.c[0];
		double d5 = d3 * ::cos(d4);
		double d6 = d3 * ::sin(d4);
		i.c[0] = d5;
		r.c[0] = d6;
		d1 = ::log(i.c[1] * i.c[1] + r.c[1] * r.c[1]) / 2;
		d2 = ::atan2(r.c[1], i.c[1]);
		d3 = ::exp(d1 * n.c.c[0] - d2 * n.c.c[1]);
		d4 = d1 * n.c.c[1] + d2 * n.c.c[0];
		d5 = d3 * ::cos(d4);
		d6 = d3 * ::sin(d4);
		i.c[1] = d5;
		r.c[1] = d6;
		d1 = ::log(i.c[2] * i.c[2] + r.c[2] * r.c[2]) / 2;
		d2 = ::atan2(r.c[2], i.c[2]);
		d3 = ::exp(d1 * n.c.c[0] - d2 * n.c.c[1]);
		d4 = d1 * n.c.c[1] + d2 * n.c.c[0];
		d5 = d3 * ::cos(d4);
		d6 = d3 * ::sin(d4);
		i.c[2] = d5;
		r.c[2] = d6;
		d1 = ::log(i.c[3] * i.c[3] + r.c[3] * r.c[3]) / 2;
		d2 = ::atan2(r.c[3], i.c[3]);
		d3 = ::exp(d1 * n.c.c[0] - d2 * n.c.c[1]);
		d4 = d1 * n.c.c[1] + d2 * n.c.c[0];
		d5 = d3 * ::cos(d4);
		d6 = d3 * ::sin(d4);
		i.c[3] = d5;
		r.c[3] = d6;
		d1 = ::log(i.c[4] * i.c[4] + r.c[4] * r.c[4]) / 2;
		d2 = ::atan2(r.c[4], i.c[4]);
		d3 = ::exp(d1 * n.c.c[0] - d2 * n.c.c[1]);
		d4 = d1 * n.c.c[1] + d2 * n.c.c[0];
		d5 = d3 * ::cos(d4);
		d6 = d3 * ::sin(d4);
		i.c[4] = d5;
		r.c[4] = d6;
		d1 = ::log(i.c[5] * i.c[5] + r.c[5] * r.c[5]) / 2;
		d2 = ::atan2(r.c[5], i.c[5]);
		d3 = ::exp(d1 * n.c.c[0] - d2 * n.c.c[1]);
		d4 = d1 * n.c.c[1] + d2 * n.c.c[0];
		d5 = d3 * ::cos(d4);
		d6 = d3 * ::sin(d4);
		i.c[5] = d5;
		r.c[5] = d6;
		d1 = ::log(i.c[6] * i.c[6] + r.c[6] * r.c[6]) / 2;
		d2 = ::atan2(r.c[6], i.c[6]);
		d3 = ::exp(d1 * n.c.c[0] - d2 * n.c.c[1]);
		d4 = d1 * n.c.c[1] + d2 * n.c.c[0];
		d5 = d3 * ::cos(d4);
		d6 = d3 * ::sin(d4);
		i.c[6] = d5;
		r.c[6] = d6;
		d1 = ::log(i.c[7] * i.c[7] + r.c[7] * r.c[7]) / 2;
		d2 = ::atan2(r.c[7], i.c[7]);
		d3 = ::exp(d1 * n.c.c[0] - d2 * n.c.c[1]);
		d4 = d1 * n.c.c[1] + d2 * n.c.c[0];
		d5 = d3 * ::cos(d4);
		d6 = d3 * ::sin(d4);
		i.c[7] = d5;
		r.c[7] = d6;
		return this;
	}

	AML_FUNCTION AML_PREFIX(Array8Complex64) *
	pow(const AML_PREFIX(Array8Complex64) &n, const AML_PREFIX(VectorU8_8D) &mask) {
		double d1;
		double d2;
		double d3;
		double d4;
		double d5;
		double d6;
		if (mask.v.c[0]) {
			d1 = ::log(i.c[0] * i.c[0] + r.c[0] * r.c[0]) / 2;
			d2 = ::atan2(r.c[0], i.c[0]);
			d3 = ::exp(d1 * n.i.c[0] - d2 * n.r.c[0]);
			d4 = d1 * n.r.c[0] + d2 * n.i.c[0];
			d5 = d3 * ::cos(d4);
			d6 = d3 * ::sin(d4);
			i.c[0] = d5;
			r.c[0] = d6;
		}
		if (mask.v.c[1]) {
			d1 = ::log(i.c[1] * i.c[1] + r.c[1] * r.c[1]) / 2;
			d2 = ::atan2(r.c[1], i.c[1]);
			d3 = ::exp(d1 * n.i.c[1] - d2 * n.r.c[1]);
			d4 = d1 * n.r.c[1] + d2 * n.i.c[1];
			d5 = d3 * ::cos(d4);
			d6 = d3 * ::sin(d4);
			i.c[1] = d5;
			r.c[1] = d6;
		}
		if (mask.v.c[2]) {
			d1 = ::log(i.c[2] * i.c[2] + r.c[2] * r.c[2]) / 2;
			d2 = ::atan2(r.c[2], i.c[2]);
			d3 = ::exp(d1 * n.i.c[2] - d2 * n.r.c[2]);
			d4 = d1 * n.r.c[2] + d2 * n.i.c[2];
			d5 = d3 * ::cos(d4);
			d6 = d3 * ::sin(d4);
			i.c[2] = d5;
			r.c[2] = d6;
		}
		if (mask.v.c[3]) {
			d1 = ::log(i.c[3] * i.c[3] + r.c[3] * r.c[3]) / 2;
			d2 = ::atan2(r.c[3], i.c[3]);
			d3 = ::exp(d1 * n.i.c[3] - d2 * n.r.c[3]);
			d4 = d1 * n.r.c[3] + d2 * n.i.c[3];
			d5 = d3 * ::cos(d4);
			d6 = d3 * ::sin(d4);
			i.c[3] = d5;
			r.c[3] = d6;
		}
		if (mask.v.c[4]) {
			d1 = ::log(i.c[4] * i.c[4] + r.c[4] * r.c[4]) / 2;
			d2 = ::atan2(r.c[4], i.c[4]);
			d3 = ::exp(d1 * n.i.c[4] - d2 * n.r.c[4]);
			d4 = d1 * n.r.c[4] + d2 * n.i.c[4];
			d5 = d3 * ::cos(d4);
			d6 = d3 * ::sin(d4);
			i.c[4] = d5;
			r.c[4] = d6;
		}
		if (mask.v.c[5]) {
			d1 = ::log(i.c[5] * i.c[5] + r.c[5] * r.c[5]) / 2;
			d2 = ::atan2(r.c[5], i.c[5]);
			d3 = ::exp(d1 * n.i.c[5] - d2 * n.r.c[5]);
			d4 = d1 * n.r.c[5] + d2 * n.i.c[5];
			d5 = d3 * ::cos(d4);
			d6 = d3 * ::sin(d4);
			i.c[5] = d5;
			r.c[5] = d6;
		}
		if (mask.v.c[6]) {
			d1 = ::log(i.c[6] * i.c[6] + r.c[6] * r.c[6]) / 2;
			d2 = ::atan2(r.c[6], i.c[6]);
			d3 = ::exp(d1 * n.i.c[6] - d2 * n.r.c[6]);
			d4 = d1 * n.r.c[6] + d2 * n.i.c[6];
			d5 = d3 * ::cos(d4);
			d6 = d3 * ::sin(d4);
			i.c[6] = d5;
			r.c[6] = d6;
		}
		if (mask.v.c[7]) {
			d1 = ::log(i.c[7] * i.c[7] + r.c[7] * r.c[7]) / 2;
			d2 = ::atan2(r.c[7], i.c[7]);
			d3 = ::exp(d1 * n.i.c[7] - d2 * n.r.c[7]);
			d4 = d1 * n.r.c[7] + d2 * n.i.c[7];
			d5 = d3 * ::cos(d4);
			d6 = d3 * ::sin(d4);
			i.c[7] = d5;
			r.c[7] = d6;
		}
		return this;
	}


	AML_FUNCTION AML_PREFIX(Array8Complex64) *pow(const AML_PREFIX(Complex64) n, const AML_PREFIX(VectorU8_8D) &mask) {
		double d1;
		double d2;
		double d3;
		double d4;
		double d5;
		double d6;
		if (mask.v.c[0]) {
			d1 = ::log(i.c[0] * i.c[0] + r.c[0] * r.c[0]) / 2;
			d2 = ::atan2(r.c[0], i.c[0]);
			d3 = ::exp(d1 * n.c.c[0] - d2 * n.c.c[1]);
			d4 = d1 * n.c.c[1] + d2 * n.c.c[0];
			d5 = d3 * ::cos(d4);
			d6 = d3 * ::sin(d4);
			i.c[0] = d5;
			r.c[0] = d6;
		}
		if (mask.v.c[1]) {
			d1 = ::log(i.c[1] * i.c[1] + r.c[1] * r.c[1]) / 2;
			d2 = ::atan2(r.c[1], i.c[1]);
			d3 = ::exp(d1 * n.c.c[0] - d2 * n.c.c[1]);
			d4 = d1 * n.c.c[1] + d2 * n.c.c[0];
			d5 = d3 * ::cos(d4);
			d6 = d3 * ::sin(d4);
			i.c[1] = d5;
			r.c[1] = d6;
		}
		if (mask.v.c[2]) {
			d1 = ::log(i.c[2] * i.c[2] + r.c[2] * r.c[2]) / 2;
			d2 = ::atan2(r.c[2], i.c[2]);
			d3 = ::exp(d1 * n.c.c[0] - d2 * n.c.c[1]);
			d4 = d1 * n.c.c[1] + d2 * n.c.c[0];
			d5 = d3 * ::cos(d4);
			d6 = d3 * ::sin(d4);
			i.c[2] = d5;
			r.c[2] = d6;
		}
		if (mask.v.c[3]) {
			d1 = ::log(i.c[3] * i.c[3] + r.c[3] * r.c[3]) / 2;
			d2 = ::atan2(r.c[3], i.c[3]);
			d3 = ::exp(d1 * n.c.c[0] - d2 * n.c.c[1]);
			d4 = d1 * n.c.c[1] + d2 * n.c.c[0];
			d5 = d3 * ::cos(d4);
			d6 = d3 * ::sin(d4);
			i.c[3] = d5;
			r.c[3] = d6;
		}
		if (mask.v.c[4]) {
			d1 = ::log(i.c[4] * i.c[4] + r.c[4] * r.c[4]) / 2;
			d2 = ::atan2(r.c[4], i.c[4]);
			d3 = ::exp(d1 * n.c.c[0] - d2 * n.c.c[1]);
			d4 = d1 * n.c.c[1] + d2 * n.c.c[0];
			d5 = d3 * ::cos(d4);
			d6 = d3 * ::sin(d4);
			i.c[4] = d5;
			r.c[4] = d6;
		}
		if (mask.v.c[5]) {
			d1 = ::log(i.c[5] * i.c[5] + r.c[5] * r.c[5]) / 2;
			d2 = ::atan2(r.c[5], i.c[5]);
			d3 = ::exp(d1 * n.c.c[0] - d2 * n.c.c[1]);
			d4 = d1 * n.c.c[1] + d2 * n.c.c[0];
			d5 = d3 * ::cos(d4);
			d6 = d3 * ::sin(d4);
			i.c[5] = d5;
			r.c[5] = d6;
		}
		if (mask.v.c[6]) {
			d1 = ::log(i.c[6] * i.c[6] + r.c[6] * r.c[6]) / 2;
			d2 = ::atan2(r.c[6], i.c[6]);
			d3 = ::exp(d1 * n.c.c[0] - d2 * n.c.c[1]);
			d4 = d1 * n.c.c[1] + d2 * n.c.c[0];
			d5 = d3 * ::cos(d4);
			d6 = d3 * ::sin(d4);
			i.c[6] = d5;
			r.c[6] = d6;
		}
		if (mask.v.c[7]) {
			d1 = ::log(i.c[7] * i.c[7] + r.c[7] * r.c[7]) / 2;
			d2 = ::atan2(r.c[7], i.c[7]);
			d3 = ::exp(d1 * n.c.c[0] - d2 * n.c.c[1]);
			d4 = d1 * n.c.c[1] + d2 * n.c.c[0];
			d5 = d3 * ::cos(d4);
			d6 = d3 * ::sin(d4);
			i.c[7] = d5;
			r.c[7] = d6;
		}
		return this;
	}

	AML_FUNCTION AML_PREFIX(Array8Complex64) *exp(const AML_PREFIX(VectorU8_8D) &mask) {
		double d1;
		double d2;
		if (mask.v.c[0]) {
			d1 = ::exp(r.c[0]) * ::cos(i.c[0]);
			d2 = ::exp(r.c[0]) * ::sin(i.c[0]);
			r.c[0] = d1;
			i.c[0] = d2;
		}
		if (mask.v.c[1]) {
			d1 = ::exp(r.c[1]) * ::cos(i.c[1]);
			d2 = ::exp(r.c[1]) * ::sin(i.c[1]);
			r.c[1] = d1;
			i.c[1] = d2;
		}
		if (mask.v.c[2]) {
			d1 = ::exp(r.c[2]) * ::cos(i.c[2]);
			d2 = ::exp(r.c[2]) * ::sin(i.c[2]);
			r.c[2] = d1;
			i.c[2] = d2;
		}
		if (mask.v.c[3]) {
			d1 = ::exp(r.c[3]) * ::cos(i.c[3]);
			d2 = ::exp(r.c[3]) * ::sin(i.c[3]);
			r.c[3] = d1;
			i.c[3] = d2;
		}
		if (mask.v.c[4]) {
			d1 = ::exp(r.c[4]) * ::cos(i.c[4]);
			d2 = ::exp(r.c[4]) * ::sin(i.c[4]);
			r.c[4] = d1;
			i.c[4] = d2;
		}
		if (mask.v.c[5]) {
			d1 = ::exp(r.c[5]) * ::cos(i.c[5]);
			d2 = ::exp(r.c[5]) * ::sin(i.c[5]);
			r.c[5] = d1;
			i.c[5] = d2;
		}
		if (mask.v.c[6]) {
			d1 = ::exp(r.c[6]) * ::cos(i.c[6]);
			d2 = ::exp(r.c[6]) * ::sin(i.c[6]);
			r.c[6] = d1;
			i.c[6] = d2;
		}
		if (mask.v.c[7]) {
			d1 = ::exp(r.c[7]) * ::cos(i.c[7]);
			d2 = ::exp(r.c[7]) * ::sin(i.c[7]);
			r.c[7] = d1;
			i.c[7] = d2;
		}
		return this;
	}

	AML_FUNCTION AML_PREFIX(Array8Complex64) *exp(double n, const AML_PREFIX(VectorU8_8D) &mask) {
		double d1;
		double d2;
		if (mask.v.c[0]) {
			d1 = ::pow(n, r.c[0]) * ::cos(i.c[0] * ::log(n));
			d2 = ::pow(n, r.c[0]) * ::sin(i.c[0] * ::log(n));
			r.c[0] = d1;
			i.c[0] = d2;
		}
		if (mask.v.c[1]) {
			d1 = ::pow(n, r.c[1]) * ::cos(i.c[1] * ::log(n));
			d2 = ::pow(n, r.c[1]) * ::sin(i.c[1] * ::log(n));
			r.c[1] = d1;
			i.c[1] = d2;
		}
		if (mask.v.c[2]) {
			d1 = ::pow(n, r.c[2]) * ::cos(i.c[2] * ::log(n));
			d2 = ::pow(n, r.c[2]) * ::sin(i.c[2] * ::log(n));
			r.c[2] = d1;
			i.c[2] = d2;
		}
		if (mask.v.c[3]) {
			d1 = ::pow(n, r.c[3]) * ::cos(i.c[3] * ::log(n));
			d2 = ::pow(n, r.c[3]) * ::sin(i.c[3] * ::log(n));
			r.c[3] = d1;
			i.c[3] = d2;
		}
		if (mask.v.c[4]) {
			d1 = ::pow(n, r.c[4]) * ::cos(i.c[4] * ::log(n));
			d2 = ::pow(n, r.c[4]) * ::sin(i.c[4] * ::log(n));
			r.c[4] = d1;
			i.c[4] = d2;
		}
		if (mask.v.c[5]) {
			d1 = ::pow(n, r.c[5]) * ::cos(i.c[5] * ::log(n));
			d2 = ::pow(n, r.c[5]) * ::sin(i.c[5] * ::log(n));
			r.c[5] = d1;
			i.c[5] = d2;
		}
		if (mask.v.c[6]) {
			d1 = ::pow(n, r.c[6]) * ::cos(i.c[6] * ::log(n));
			d2 = ::pow(n, r.c[6]) * ::sin(i.c[6] * ::log(n));
			r.c[6] = d1;
			i.c[6] = d2;
		}
		if (mask.v.c[7]) {
			d1 = ::pow(n, r.c[7]) * ::cos(i.c[7] * ::log(n));
			d2 = ::pow(n, r.c[7]) * ::sin(i.c[7] * ::log(n));
			r.c[7] = d1;
			i.c[7] = d2;
		}
		return this;
	}

	AML_FUNCTION AML_PREFIX(Array8Complex64) *pow(double n) {
		double d1;
		double d2;
		d1 = ::pow(r.c[0] * r.c[0] + i.c[0] * i.c[0], n / 2) * ::cos(n * atan2(i.c[0], r.c[0]));
		d2 = ::pow(r.c[0] * r.c[0] + i.c[0] * i.c[0], n / 2) * ::sin(n * atan2(i.c[0], r.c[0]));
		r.c[0] = d1;
		i.c[0] = d2;
		d1 = ::pow(r.c[1] * r.c[1] + i.c[1] * i.c[1], n / 2) * ::cos(n * atan2(i.c[1], r.c[1]));
		d2 = ::pow(r.c[1] * r.c[1] + i.c[1] * i.c[1], n / 2) * ::sin(n * atan2(i.c[1], r.c[1]));
		r.c[1] = d1;
		i.c[1] = d2;
		d1 = ::pow(r.c[2] * r.c[2] + i.c[2] * i.c[2], n / 2) * ::cos(n * atan2(i.c[2], r.c[2]));
		d2 = ::pow(r.c[2] * r.c[2] + i.c[2] * i.c[2], n / 2) * ::sin(n * atan2(i.c[2], r.c[2]));
		r.c[2] = d1;
		i.c[2] = d2;
		d1 = ::pow(r.c[3] * r.c[3] + i.c[3] * i.c[3], n / 2) * ::cos(n * atan2(i.c[3], r.c[3]));
		d2 = ::pow(r.c[3] * r.c[3] + i.c[3] * i.c[3], n / 2) * ::sin(n * atan2(i.c[3], r.c[3]));
		r.c[3] = d1;
		i.c[3] = d2;
		d1 = ::pow(r.c[4] * r.c[4] + i.c[4] * i.c[4], n / 2) * ::cos(n * atan2(i.c[4], r.c[4]));
		d2 = ::pow(r.c[4] * r.c[4] + i.c[4] * i.c[4], n / 2) * ::sin(n * atan2(i.c[4], r.c[4]));
		r.c[4] = d1;
		i.c[4] = d2;
		d1 = ::pow(r.c[5] * r.c[5] + i.c[5] * i.c[5], n / 2) * ::cos(n * atan2(i.c[5], r.c[5]));
		d2 = ::pow(r.c[5] * r.c[5] + i.c[5] * i.c[5], n / 2) * ::sin(n * atan2(i.c[5], r.c[5]));
		r.c[5] = d1;
		i.c[5] = d2;
		d1 = ::pow(r.c[6] * r.c[6] + i.c[6] * i.c[6], n / 2) * ::cos(n * atan2(i.c[6], r.c[6]));
		d2 = ::pow(r.c[6] * r.c[6] + i.c[6] * i.c[6], n / 2) * ::sin(n * atan2(i.c[6], r.c[6]));
		r.c[6] = d1;
		i.c[6] = d2;
		d1 = ::pow(r.c[7] * r.c[7] + i.c[7] * i.c[7], n / 2) * ::cos(n * atan2(i.c[7], r.c[7]));
		d2 = ::pow(r.c[7] * r.c[7] + i.c[7] * i.c[7], n / 2) * ::sin(n * atan2(i.c[7], r.c[7]));
		r.c[7] = d1;
		i.c[7] = d2;

		return this;
	}

	AML_FUNCTION AML_PREFIX(Array8Complex64) *pow(double n, const AML_PREFIX(VectorU8_8D) &mask) {
		double d1;
		double d2;
		if (mask.v.c[0]) {
			d1 = ::pow(r.c[0] * r.c[0] + i.c[0] * i.c[0], n / 2) * ::cos(n * atan2(i.c[0], r.c[0]));
			d2 = ::pow(r.c[0] * r.c[0] + i.c[0] * i.c[0], n / 2) * ::sin(n * atan2(i.c[0], r.c[0]));
			r.c[0] = d1;
			i.c[0] = d2;
		}
		if (mask.v.c[1]) {
			d1 = ::pow(r.c[1] * r.c[1] + i.c[1] * i.c[1], n / 2) * ::cos(n * atan2(i.c[1], r.c[1]));
			d2 = ::pow(r.c[1] * r.c[1] + i.c[1] * i.c[1], n / 2) * ::sin(n * atan2(i.c[1], r.c[1]));
			r.c[1] = d1;
			i.c[1] = d2;
		}
		if (mask.v.c[2]) {
			d1 = ::pow(r.c[2] * r.c[2] + i.c[2] * i.c[2], n / 2) * ::cos(n * atan2(i.c[2], r.c[2]));
			d2 = ::pow(r.c[2] * r.c[2] + i.c[2] * i.c[2], n / 2) * ::sin(n * atan2(i.c[2], r.c[2]));
			r.c[2] = d1;
			i.c[2] = d2;
		}
		if (mask.v.c[3]) {
			d1 = ::pow(r.c[3] * r.c[3] + i.c[3] * i.c[3], n / 2) * ::cos(n * atan2(i.c[3], r.c[3]));
			d2 = ::pow(r.c[3] * r.c[3] + i.c[3] * i.c[3], n / 2) * ::sin(n * atan2(i.c[3], r.c[3]));
			r.c[3] = d1;
			i.c[3] = d2;
		}
		if (mask.v.c[4]) {
			d1 = ::pow(r.c[4] * r.c[4] + i.c[4] * i.c[4], n / 2) * ::cos(n * atan2(i.c[4], r.c[4]));
			d2 = ::pow(r.c[4] * r.c[4] + i.c[4] * i.c[4], n / 2) * ::sin(n * atan2(i.c[4], r.c[4]));
			r.c[4] = d1;
			i.c[4] = d2;
		}
		if (mask.v.c[5]) {
			d1 = ::pow(r.c[5] * r.c[5] + i.c[5] * i.c[5], n / 2) * ::cos(n * atan2(i.c[5], r.c[5]));
			d2 = ::pow(r.c[5] * r.c[5] + i.c[5] * i.c[5], n / 2) * ::sin(n * atan2(i.c[5], r.c[5]));
			r.c[5] = d1;
			i.c[5] = d2;
		}
		if (mask.v.c[6]) {
			d1 = ::pow(r.c[6] * r.c[6] + i.c[6] * i.c[6], n / 2) * ::cos(n * atan2(i.c[6], r.c[6]));
			d2 = ::pow(r.c[6] * r.c[6] + i.c[6] * i.c[6], n / 2) * ::sin(n * atan2(i.c[6], r.c[6]));
			r.c[6] = d1;
			i.c[6] = d2;
		}
		if (mask.v.c[7]) {
			d1 = ::pow(r.c[7] * r.c[7] + i.c[7] * i.c[7], n / 2) * ::cos(n * atan2(i.c[7], r.c[7]));
			d2 = ::pow(r.c[7] * r.c[7] + i.c[7] * i.c[7], n / 2) * ::sin(n * atan2(i.c[7], r.c[7]));
			r.c[7] = d1;
			i.c[7] = d2;
		}
		return this;
	}

	AML_FUNCTION AML_PREFIX(Vector8D_64) abs() {
		AML_PREFIX(Vector8D_64) ret;
		ret.v.c[0] = ::sqrt(r.c[0] * r.c[0] + i.c[0] * i.c[0]);
		ret.v.c[1] = ::sqrt(r.c[1] * r.c[1] + i.c[1] * i.c[1]);
		ret.v.c[2] = ::sqrt(r.c[2] * r.c[2] + i.c[2] * i.c[2]);
		ret.v.c[3] = ::sqrt(r.c[3] * r.c[3] + i.c[3] * i.c[3]);
		ret.v.c[4] = ::sqrt(r.c[4] * r.c[4] + i.c[4] * i.c[4]);
		ret.v.c[5] = ::sqrt(r.c[5] * r.c[5] + i.c[5] * i.c[5]);
		ret.v.c[6] = ::sqrt(r.c[6] * r.c[6] + i.c[6] * i.c[6]);
		ret.v.c[7] = ::sqrt(r.c[7] * r.c[7] + i.c[7] * i.c[7]);
		return ret;
	}

	AML_FUNCTION AML_PREFIX(VectorU8_8D) abs_gt(double a) {
		AML_PREFIX(VectorU8_8D) ret;
		ret.v.c[0] = a * a < r.c[0] * r.c[0] + i.c[0] * i.c[0];
		ret.v.c[1] = a * a < r.c[1] * r.c[1] + i.c[1] * i.c[1];
		ret.v.c[2] = a * a < r.c[2] * r.c[2] + i.c[2] * i.c[2];
		ret.v.c[3] = a * a < r.c[3] * r.c[3] + i.c[3] * i.c[3];
		ret.v.c[4] = a * a < r.c[4] * r.c[4] + i.c[4] * i.c[4];
		ret.v.c[5] = a * a < r.c[5] * r.c[5] + i.c[5] * i.c[5];
		ret.v.c[6] = a * a < r.c[6] * r.c[6] + i.c[6] * i.c[6];
		ret.v.c[7] = a * a < r.c[7] * r.c[7] + i.c[7] * i.c[7];
		return ret;
	}

	AML_FUNCTION AML_PREFIX(VectorU8_8D) abs_lt(double a) {
		AML_PREFIX(VectorU8_8D) ret;
		ret.v.c[0] = a * a > r.c[0] * r.c[0] + i.c[0] * i.c[0];
		ret.v.c[1] = a * a > r.c[1] * r.c[1] + i.c[1] * i.c[1];
		ret.v.c[2] = a * a > r.c[2] * r.c[2] + i.c[2] * i.c[2];
		ret.v.c[3] = a * a > r.c[3] * r.c[3] + i.c[3] * i.c[3];
		ret.v.c[4] = a * a > r.c[4] * r.c[4] + i.c[4] * i.c[4];
		ret.v.c[5] = a * a > r.c[5] * r.c[5] + i.c[5] * i.c[5];
		ret.v.c[6] = a * a > r.c[6] * r.c[6] + i.c[6] * i.c[6];
		ret.v.c[7] = a * a > r.c[7] * r.c[7] + i.c[7] * i.c[7];
		return ret;
	}

	AML_FUNCTION AML_PREFIX(VectorU8_8D) abs_eq(double a) {
		AML_PREFIX(VectorU8_8D) ret;
		ret.v.c[0] = a * a == r.c[0] * r.c[0] + i.c[0] * i.c[0];
		ret.v.c[1] = a * a == r.c[1] * r.c[1] + i.c[1] * i.c[1];
		ret.v.c[2] = a * a == r.c[2] * r.c[2] + i.c[2] * i.c[2];
		ret.v.c[3] = a * a == r.c[3] * r.c[3] + i.c[3] * i.c[3];
		ret.v.c[4] = a * a == r.c[4] * r.c[4] + i.c[4] * i.c[4];
		ret.v.c[5] = a * a == r.c[5] * r.c[5] + i.c[5] * i.c[5];
		ret.v.c[6] = a * a == r.c[6] * r.c[6] + i.c[6] * i.c[6];
		ret.v.c[7] = a * a == r.c[7] * r.c[7] + i.c[7] * i.c[7];
		return ret;
	}

	AML_FUNCTION AML_PREFIX(Array8Complex64) *ln(const AML_PREFIX(VectorU8_8D) &mask) {
		double d1;
		double d2;
		if (mask.v.c[0]) {
			d1 = ::log(i.c[0] * i.c[0] + r.c[0] * r.c[0]) / 2;
			d2 = ::atan2(r.c[0], i.c[0]);
			i.c[0] = d1;
			r.c[0] = d2;
		}
		if (mask.v.c[1]) {
			d1 = ::log(i.c[1] * i.c[1] + r.c[1] * r.c[1]) / 2;
			d2 = ::atan2(r.c[1], i.c[1]);
			i.c[1] = d1;
			r.c[1] = d2;
		}
		if (mask.v.c[2]) {
			d1 = ::log(i.c[2] * i.c[2] + r.c[2] * r.c[2]) / 2;
			d2 = ::atan2(r.c[2], i.c[2]);
			i.c[2] = d1;
			r.c[2] = d2;
		}
		if (mask.v.c[3]) {
			d1 = ::log(i.c[3] * i.c[3] + r.c[3] * r.c[3]) / 2;
			d2 = ::atan2(r.c[3], i.c[3]);
			i.c[3] = d1;
			r.c[3] = d2;
		}
		if (mask.v.c[4]) {
			d1 = ::log(i.c[4] * i.c[4] + r.c[4] * r.c[4]) / 2;
			d2 = ::atan2(r.c[4], i.c[4]);
			i.c[4] = d1;
			r.c[4] = d2;
		}
		if (mask.v.c[5]) {
			d1 = ::log(i.c[5] * i.c[5] + r.c[5] * r.c[5]) / 2;
			d2 = ::atan2(r.c[5], i.c[5]);
			i.c[5] = d1;
			r.c[5] = d2;
		}
		if (mask.v.c[6]) {
			d1 = ::log(i.c[6] * i.c[6] + r.c[6] * r.c[6]) / 2;
			d2 = ::atan2(r.c[6], i.c[6]);
			i.c[6] = d1;
			r.c[6] = d2;
		}
		if (mask.v.c[7]) {
			d1 = ::log(i.c[7] * i.c[7] + r.c[7] * r.c[7]) / 2;
			d2 = ::atan2(r.c[7], i.c[7]);
			i.c[7] = d1;
			r.c[7] = d2;
		}
		return this;
	}

	AML_FUNCTION AML_PREFIX(Array8Complex64) *log(const AML_PREFIX(VectorU8_8D) &mask) {
		double d1;
		double d2;
		if (mask.v.c[0]) {
			d1 = ::log(i.c[0] * i.c[0] + r.c[0] * r.c[0]) / 2;
			d2 = ::atan2(r.c[0], i.c[0]);
			i.c[0] = d1;
			r.c[0] = d2;
		}
		if (mask.v.c[1]) {
			d1 = ::log(i.c[1] * i.c[1] + r.c[1] * r.c[1]) / 2;
			d2 = ::atan2(r.c[1], i.c[1]);
			i.c[1] = d1;
			r.c[1] = d2;
		}
		if (mask.v.c[2]) {
			d1 = ::log(i.c[2] * i.c[2] + r.c[2] * r.c[2]) / 2;
			d2 = ::atan2(r.c[2], i.c[2]);
			i.c[2] = d1;
			r.c[2] = d2;
		}
		if (mask.v.c[3]) {
			d1 = ::log(i.c[3] * i.c[3] + r.c[3] * r.c[3]) / 2;
			d2 = ::atan2(r.c[3], i.c[3]);
			i.c[3] = d1;
			r.c[3] = d2;
		}
		if (mask.v.c[4]) {
			d1 = ::log(i.c[4] * i.c[4] + r.c[4] * r.c[4]) / 2;
			d2 = ::atan2(r.c[4], i.c[4]);
			i.c[4] = d1;
			r.c[4] = d2;
		}
		if (mask.v.c[5]) {
			d1 = ::log(i.c[5] * i.c[5] + r.c[5] * r.c[5]) / 2;
			d2 = ::atan2(r.c[5], i.c[5]);
			i.c[5] = d1;
			r.c[5] = d2;
		}
		if (mask.v.c[6]) {
			d1 = ::log(i.c[6] * i.c[6] + r.c[6] * r.c[6]) / 2;
			d2 = ::atan2(r.c[6], i.c[6]);
			i.c[6] = d1;
			r.c[6] = d2;
		}
		if (mask.v.c[7]) {
			d1 = ::log(i.c[7] * i.c[7] + r.c[7] * r.c[7]) / 2;
			d2 = ::atan2(r.c[7], i.c[7]);
			i.c[7] = d1;
			r.c[7] = d2;
		}
		return this;
	}

	AML_FUNCTION AML_PREFIX(Array8Complex64) *log10(const AML_PREFIX(VectorU8_8D) &mask) {
		double d1;
		double d2;
		if (mask.v.c[0]) {
			d1 = ::log(i.c[0] * i.c[0] + r.c[0] * r.c[0]) / (2 * AML_LN10);
			d2 = ::atan2(r.c[0], i.c[0]) / AML_LN10;
			i.c[0] = d1;
			r.c[0] = d2;
		}
		if (mask.v.c[1]) {
			d1 = ::log(i.c[1] * i.c[1] + r.c[1] * r.c[1]) / (2 * AML_LN10);
			d2 = ::atan2(r.c[1], i.c[1]) / AML_LN10;
			i.c[1] = d1;
			r.c[1] = d2;
		}
		if (mask.v.c[2]) {
			d1 = ::log(i.c[2] * i.c[2] + r.c[2] * r.c[2]) / (2 * AML_LN10);
			d2 = ::atan2(r.c[2], i.c[2]) / AML_LN10;
			i.c[2] = d1;
			r.c[2] = d2;
		}
		if (mask.v.c[3]) {
			d1 = ::log(i.c[3] * i.c[3] + r.c[3] * r.c[3]) / (2 * AML_LN10);
			d2 = ::atan2(r.c[3], i.c[3]) / AML_LN10;
			i.c[3] = d1;
			r.c[3] = d2;
		}
		if (mask.v.c[4]) {
			d1 = ::log(i.c[4] * i.c[4] + r.c[4] * r.c[4]) / (2 * AML_LN10);
			d2 = ::atan2(r.c[4], i.c[4]) / AML_LN10;
			i.c[4] = d1;
			r.c[4] = d2;
		}
		if (mask.v.c[5]) {
			d1 = ::log(i.c[5] * i.c[5] + r.c[5] * r.c[5]) / (2 * AML_LN10);
			d2 = ::atan2(r.c[5], i.c[5]) / AML_LN10;
			i.c[5] = d1;
			r.c[5] = d2;
		}
		if (mask.v.c[6]) {
			d1 = ::log(i.c[6] * i.c[6] + r.c[6] * r.c[6]) / (2 * AML_LN10);
			d2 = ::atan2(r.c[6], i.c[6]) / AML_LN10;
			i.c[6] = d1;
			r.c[6] = d2;
		}
		if (mask.v.c[7]) {
			d1 = ::log(i.c[7] * i.c[7] + r.c[7] * r.c[7]) / (2 * AML_LN10);
			d2 = ::atan2(r.c[7], i.c[7]) / AML_LN10;
			i.c[7] = d1;
			r.c[7] = d2;
		}
		return this;
	}

	AML_FUNCTION AML_PREFIX(Array8Complex64) *ln() {
		double d1;
		double d2;
		d1 = ::log(i.c[0] * i.c[0] + r.c[0] * r.c[0]) / 2;
		d2 = ::atan2(r.c[0], i.c[0]);
		i.c[0] = d1;
		r.c[0] = d2;
		d1 = ::log(i.c[1] * i.c[1] + r.c[1] * r.c[1]) / 2;
		d2 = ::atan2(r.c[1], i.c[1]);
		i.c[1] = d1;
		r.c[1] = d2;
		d1 = ::log(i.c[2] * i.c[2] + r.c[2] * r.c[2]) / 2;
		d2 = ::atan2(r.c[2], i.c[2]);
		i.c[2] = d1;
		r.c[2] = d2;
		d1 = ::log(i.c[3] * i.c[3] + r.c[3] * r.c[3]) / 2;
		d2 = ::atan2(r.c[3], i.c[3]);
		i.c[3] = d1;
		r.c[3] = d2;
		d1 = ::log(i.c[4] * i.c[4] + r.c[4] * r.c[4]) / 2;
		d2 = ::atan2(r.c[4], i.c[4]);
		i.c[4] = d1;
		r.c[4] = d2;
		d1 = ::log(i.c[5] * i.c[5] + r.c[5] * r.c[5]) / 2;
		d2 = ::atan2(r.c[5], i.c[5]);
		i.c[5] = d1;
		r.c[5] = d2;
		d1 = ::log(i.c[6] * i.c[6] + r.c[6] * r.c[6]) / 2;
		d2 = ::atan2(r.c[6], i.c[6]);
		i.c[6] = d1;
		r.c[6] = d2;
		d1 = ::log(i.c[7] * i.c[7] + r.c[7] * r.c[7]) / 2;
		d2 = ::atan2(r.c[7], i.c[7]);
		i.c[7] = d1;
		r.c[7] = d2;
		return this;
	}

	AML_FUNCTION AML_PREFIX(Array8Complex64) *log() {
		double d1;
		double d2;
		d1 = ::log(i.c[0] * i.c[0] + r.c[0] * r.c[0]) / 2;
		d2 = ::atan2(r.c[0], i.c[0]);
		i.c[0] = d1;
		r.c[0] = d2;
		d1 = ::log(i.c[1] * i.c[1] + r.c[1] * r.c[1]) / 2;
		d2 = ::atan2(r.c[1], i.c[1]);
		i.c[1] = d1;
		r.c[1] = d2;
		d1 = ::log(i.c[2] * i.c[2] + r.c[2] * r.c[2]) / 2;
		d2 = ::atan2(r.c[2], i.c[2]);
		i.c[2] = d1;
		r.c[2] = d2;
		d1 = ::log(i.c[3] * i.c[3] + r.c[3] * r.c[3]) / 2;
		d2 = ::atan2(r.c[3], i.c[3]);
		i.c[3] = d1;
		r.c[3] = d2;
		d1 = ::log(i.c[4] * i.c[4] + r.c[4] * r.c[4]) / 2;
		d2 = ::atan2(r.c[4], i.c[4]);
		i.c[4] = d1;
		r.c[4] = d2;
		d1 = ::log(i.c[5] * i.c[5] + r.c[5] * r.c[5]) / 2;
		d2 = ::atan2(r.c[5], i.c[5]);
		i.c[5] = d1;
		r.c[5] = d2;
		d1 = ::log(i.c[6] * i.c[6] + r.c[6] * r.c[6]) / 2;
		d2 = ::atan2(r.c[6], i.c[6]);
		i.c[6] = d1;
		r.c[6] = d2;
		d1 = ::log(i.c[7] * i.c[7] + r.c[7] * r.c[7]) / 2;
		d2 = ::atan2(r.c[7], i.c[7]);
		i.c[7] = d1;
		r.c[7] = d2;
		return this;
	}

	AML_FUNCTION AML_PREFIX(Array8Complex64) *log10() {
		double d1;
		double d2;
		d1 = ::log(i.c[0] * i.c[0] + r.c[0] * r.c[0]) / (2 * AML_LN10);
		d2 = ::atan2(r.c[0], i.c[0]) / AML_LN10;
		i.c[0] = d1;
		r.c[0] = d2;
		d1 = ::log(i.c[1] * i.c[1] + r.c[1] * r.c[1]) / (2 * AML_LN10);
		d2 = ::atan2(r.c[1], i.c[1]) / AML_LN10;
		i.c[1] = d1;
		r.c[1] = d2;
		d1 = ::log(i.c[2] * i.c[2] + r.c[2] * r.c[2]) / (2 * AML_LN10);
		d2 = ::atan2(r.c[2], i.c[2]) / AML_LN10;
		i.c[2] = d1;
		r.c[2] = d2;
		d1 = ::log(i.c[3] * i.c[3] + r.c[3] * r.c[3]) / (2 * AML_LN10);
		d2 = ::atan2(r.c[3], i.c[3]) / AML_LN10;
		i.c[3] = d1;
		r.c[3] = d2;
		d1 = ::log(i.c[4] * i.c[4] + r.c[4] * r.c[4]) / (2 * AML_LN10);
		d2 = ::atan2(r.c[4], i.c[4]) / AML_LN10;
		i.c[4] = d1;
		r.c[4] = d2;
		d1 = ::log(i.c[5] * i.c[5] + r.c[5] * r.c[5]) / (2 * AML_LN10);
		d2 = ::atan2(r.c[5], i.c[5]) / AML_LN10;
		i.c[5] = d1;
		r.c[5] = d2;
		d1 = ::log(i.c[6] * i.c[6] + r.c[6] * r.c[6]) / (2 * AML_LN10);
		d2 = ::atan2(r.c[6], i.c[6]) / AML_LN10;
		i.c[6] = d1;
		r.c[6] = d2;
		d1 = ::log(i.c[7] * i.c[7] + r.c[7] * r.c[7]) / (2 * AML_LN10);
		d2 = ::atan2(r.c[7], i.c[7]) / AML_LN10;
		i.c[7] = d1;
		r.c[7] = d2;
		return this;
	}

#if !defined(USE_OPENCL) && !defined(USE_CUDA)

	class AML_PREFIX(Complex64_8_Itr) : public std::iterator<
			std::input_iterator_tag,   // iterator_category
			AML_PREFIX(Complex64Ptr),                      // value_type
			long,                      // difference_type
			const AML_PREFIX(Complex64Ptr) *,               // pointer
			AML_PREFIX(Complex64Ptr)                       // reference
	> {

		AML_PREFIX(Array8Complex64) *a;
		int position;

	public:
		AML_FUNCTION explicit AML_PREFIX(Complex64_8_Itr)(AML_PREFIX(Array8Complex64) *array, int length) : a(array),
																											position(
																													length) {

		}

		AML_FUNCTION AML_PREFIX(Complex64_8_Itr) &operator++() {
			position++;
			return *this;
		}

		AML_FUNCTION bool operator==(const AML_PREFIX(Complex64_8_Itr) other) const {
			return position == other.position;
		}

		AML_FUNCTION bool operator!=(const AML_PREFIX(Complex64_8_Itr) other) const { return !(*this == other); }

		AML_FUNCTION reference operator*() const {
			return AML_PREFIX(Complex64Ptr)(&a->r.c[position], &a->i.c[position], position);
		}


	};

	AML_FUNCTION AML_PREFIX(Complex64_8_Itr) begin() {
		return AML_PREFIX(Complex64_8_Itr)(this, 0);
	}

	AML_FUNCTION AML_PREFIX(Complex64_8_Itr) end() {
		return AML_PREFIX(Complex64_8_Itr)(this, 8);
	}

#endif
};


#if !defined(AML_NO_STRING)


AML_FUNCTION std::string operator<<(std::string &lhs, const AML_PREFIX(Array8Complex64) &rhs) {
	std::ostringstream string;
	string << lhs << "{ " << rhs.r.c[0] << " + " << rhs.i.c[0] << "i ,  " << rhs.r.c[1] << " + " << rhs.i.c[1]
		   << "i ,  " << rhs.r.c[2] << " + " << rhs.i.c[2] << "i ,  " << rhs.r.c[3] << " + " << rhs.i.c[3] << "i ,  "
		   << rhs.r.c[4] << " + " << rhs.i.c[4] << "i ,  " << rhs.r.c[5] << " + " << rhs.i.c[5] << "i ,  " << rhs.r.c[6]
		   << " + " << rhs.i.c[6] << "i ,  " << rhs.r.c[7] << " + " << rhs.i.c[7] << "i }";
	return string.str();
}

AML_FUNCTION std::string operator<<(const char *lhs, const AML_PREFIX(Array8Complex64) &rhs) {
	std::ostringstream string;
	string << lhs << "{ " << rhs.r.c[0] << " + " << rhs.i.c[0] << "i ,  " << rhs.r.c[1] << " + " << rhs.i.c[1]
		   << "i ,  " << rhs.r.c[2] << " + " << rhs.i.c[2] << "i ,  " << rhs.r.c[3] << " + " << rhs.i.c[3] << "i ,  "
		   << rhs.r.c[4] << " + " << rhs.i.c[4] << "i ,  " << rhs.r.c[5] << " + " << rhs.i.c[5] << "i ,  " << rhs.r.c[6]
		   << " + " << rhs.i.c[6] << "i ,  " << rhs.r.c[7] << " + " << rhs.i.c[7] << "i }";
	return string.str();
}

template<class charT, class traits>
std::basic_ostream<charT, traits> &
operator<<(std::basic_ostream<charT, traits> &o, const AML_PREFIX(Array8Complex64) &rhs) {
	std::basic_ostringstream<charT, traits> s;
	s.flags(o.flags());
	s.imbue(o.getloc());
	s.precision(o.precision());
	s << "{ " << rhs.r.c[0] << " + " << rhs.i.c[0] << "i ,  " << rhs.r.c[1] << " + " << rhs.i.c[1]
	  << "i ,  " << rhs.r.c[2] << " + " << rhs.i.c[2] << "i ,  " << rhs.r.c[3] << " + " << rhs.i.c[3] << "i ,  "
	  << rhs.r.c[4] << " + " << rhs.i.c[4] << "i ,  " << rhs.r.c[5] << " + " << rhs.i.c[5] << "i ,  " << rhs.r.c[6]
	  << " + " << rhs.i.c[6] << "i ,  " << rhs.r.c[7] << " + " << rhs.i.c[7] << "i }";
	return o << s.str();
}

#endif

AML_FUNCTION AML_PREFIX(Array8Complex64)
operator+(const AML_PREFIX(Complex64) &lhs, const AML_PREFIX(Array8Complex64) &rhs) {
	return rhs + lhs;
}

AML_FUNCTION AML_PREFIX(Array8Complex64)
operator-(const AML_PREFIX(Complex64) &lhs, const AML_PREFIX(Array8Complex64) &rhs) {
	AML_PREFIX(Array8Complex64) ret;
	ret.i.c[0] = lhs.c.c[1] - rhs.i.c[0];
	ret.i.c[1] = lhs.c.c[1] - rhs.i.c[1];
	ret.i.c[2] = lhs.c.c[1] - rhs.i.c[2];
	ret.i.c[3] = lhs.c.c[1] - rhs.i.c[3];
	ret.i.c[4] = lhs.c.c[1] - rhs.i.c[4];
	ret.i.c[5] = lhs.c.c[1] - rhs.i.c[5];
	ret.i.c[6] = lhs.c.c[1] - rhs.i.c[6];
	ret.i.c[7] = lhs.c.c[1] - rhs.i.c[7];
	ret.r.c[0] = lhs.c.c[0] - rhs.r.c[0];
	ret.r.c[1] = lhs.c.c[0] - rhs.r.c[1];
	ret.r.c[2] = lhs.c.c[0] - rhs.r.c[2];
	ret.r.c[3] = lhs.c.c[0] - rhs.r.c[3];
	ret.r.c[4] = lhs.c.c[0] - rhs.r.c[4];
	ret.r.c[5] = lhs.c.c[0] - rhs.r.c[5];
	ret.r.c[6] = lhs.c.c[0] - rhs.r.c[6];
	ret.r.c[7] = lhs.c.c[0] - rhs.r.c[7];
	return ret;
}

AML_FUNCTION AML_PREFIX(Array8Complex64)
operator*(const AML_PREFIX(Complex64) &lhs, const AML_PREFIX(Array8Complex64) &rhs) {
	return rhs * lhs;
}

AML_FUNCTION AML_PREFIX(Array8Complex64)
operator/(const AML_PREFIX(Complex64) &lhs, const AML_PREFIX(Array8Complex64) &rhs) {
	AML_PREFIX(Array8Complex64) ret;
	double d1 =
			(lhs.c.c[0] * rhs.r.c[0] + lhs.c.c[1] * rhs.i.c[0]) / (rhs.r.c[0] * rhs.r.c[0] + rhs.i.c[0] * rhs.i.c[0]);
	double d2 =
			(lhs.c.c[1] * rhs.r.c[0] - lhs.c.c[0] * rhs.i.c[0]) / (rhs.r.c[0] * rhs.r.c[0] + rhs.i.c[0] * rhs.i.c[0]);
	ret.r.c[0] = d1;
	ret.i.c[0] = d2;
	d1 = (lhs.c.c[0] * rhs.r.c[1] + lhs.c.c[1] * rhs.i.c[1]) / (rhs.r.c[1] * rhs.r.c[1] + rhs.i.c[1] * rhs.i.c[1]);
	d2 = (lhs.c.c[1] * rhs.r.c[1] - lhs.c.c[0] * rhs.i.c[1]) / (rhs.r.c[1] * rhs.r.c[1] + rhs.i.c[1] * rhs.i.c[1]);
	ret.r.c[1] = d1;
	ret.i.c[1] = d2;
	d1 = (lhs.c.c[0] * rhs.r.c[2] + lhs.c.c[1] * rhs.i.c[2]) / (rhs.r.c[2] * rhs.r.c[2] + rhs.i.c[2] * rhs.i.c[2]);
	d2 = (lhs.c.c[1] * rhs.r.c[2] - lhs.c.c[0] * rhs.i.c[2]) / (rhs.r.c[2] * rhs.r.c[2] + rhs.i.c[2] * rhs.i.c[2]);
	ret.r.c[2] = d1;
	ret.i.c[2] = d2;
	d1 = (lhs.c.c[0] * rhs.r.c[3] + lhs.c.c[1] * rhs.i.c[3]) / (rhs.r.c[3] * rhs.r.c[3] + rhs.i.c[3] * rhs.i.c[3]);
	d2 = (lhs.c.c[1] * rhs.r.c[3] - lhs.c.c[0] * rhs.i.c[3]) / (rhs.r.c[3] * rhs.r.c[3] + rhs.i.c[3] * rhs.i.c[3]);
	ret.r.c[3] = d1;
	ret.i.c[3] = d2;
	d1 = (lhs.c.c[0] * rhs.r.c[4] + lhs.c.c[1] * rhs.i.c[4]) / (rhs.r.c[4] * rhs.r.c[4] + rhs.i.c[4] * rhs.i.c[4]);
	d2 = (lhs.c.c[1] * rhs.r.c[4] - lhs.c.c[0] * rhs.i.c[4]) / (rhs.r.c[4] * rhs.r.c[4] + rhs.i.c[4] * rhs.i.c[4]);
	ret.r.c[4] = d1;
	ret.i.c[4] = d2;
	d1 = (lhs.c.c[0] * rhs.r.c[5] + lhs.c.c[1] * rhs.i.c[5]) / (rhs.r.c[5] * rhs.r.c[5] + rhs.i.c[5] * rhs.i.c[5]);
	d2 = (lhs.c.c[1] * rhs.r.c[5] - lhs.c.c[0] * rhs.i.c[5]) / (rhs.r.c[5] * rhs.r.c[5] + rhs.i.c[5] * rhs.i.c[5]);
	ret.r.c[5] = d1;
	ret.i.c[5] = d2;
	d1 = (lhs.c.c[0] * rhs.r.c[6] + lhs.c.c[1] * rhs.i.c[6]) / (rhs.r.c[6] * rhs.r.c[6] + rhs.i.c[6] * rhs.i.c[6]);
	d2 = (lhs.c.c[1] * rhs.r.c[6] - lhs.c.c[0] * rhs.i.c[6]) / (rhs.r.c[6] * rhs.r.c[6] + rhs.i.c[6] * rhs.i.c[6]);
	ret.r.c[6] = d1;
	ret.i.c[6] = d2;
	d1 = (lhs.c.c[0] * rhs.r.c[7] + lhs.c.c[1] * rhs.i.c[7]) / (rhs.r.c[7] * rhs.r.c[7] + rhs.i.c[7] * rhs.i.c[7]);
	d2 = (lhs.c.c[1] * rhs.r.c[7] - lhs.c.c[0] * rhs.i.c[7]) / (rhs.r.c[7] * rhs.r.c[7] + rhs.i.c[7] * rhs.i.c[7]);
	ret.r.c[7] = d1;
	ret.i.c[7] = d2;
	return ret;
}

class AML_PREFIX(Array2Complex32) {
public:
	AML_PREFIX(floatvec2) r{};
	AML_PREFIX(floatvec2) i{};

	AML_FUNCTION AML_PREFIX(Array2Complex32)() {}

	AML_FUNCTION AML_PREFIX(Array2Complex32)(const AML_PREFIX(Complex32) value) {
		r.c[0] = value.c.c[0];
		i.c[0] = value.c.c[1];
		r.c[1] = value.c.c[0];
		i.c[1] = value.c.c[1];
	}


	AML_FUNCTION AML_PREFIX(Vector2D_32) real() {
		return AML_PREFIX(Vector2D_32)(r.c);
	}

	AML_FUNCTION AML_PREFIX(Vector2D_32) complex() {
		return AML_PREFIX(Vector2D_32)(i.c);
	}

	AML_FUNCTION AML_PREFIX(Complex32) operator[](uint64_t location) {
		return AML_PREFIX(Complex32)(r.c[location], i.c[location]);
	}

	AML_FUNCTION void set(uint64_t location, AML_PREFIX(Complex32) value) {
		r.c[location] = value.c.c[0];
		i.c[location] = value.c.c[1];
	}

	AML_FUNCTION AML_PREFIX(Array2Complex32) *add(const AML_PREFIX(Array2Complex32) a) {
		i.c[0] += a.i.c[0];
		i.c[1] += a.i.c[1];
		r.c[0] += a.r.c[0];
		r.c[1] += a.r.c[1];
		return this;
	}

	AML_FUNCTION AML_PREFIX(Array2Complex32) *add(const AML_PREFIX(Complex32) a) {
		i.c[0] += a.c.c[1];
		i.c[1] += a.c.c[1];
		r.c[0] += a.c.c[0];
		r.c[1] += a.c.c[0];
		return this;
	}

	AML_FUNCTION void operator+=(const AML_PREFIX(Array2Complex32) a) {
		i.c[0] += a.i.c[0];
		i.c[1] += a.i.c[1];
		r.c[0] += a.r.c[0];
		r.c[1] += a.r.c[1];
	}

	AML_FUNCTION void operator+=(const AML_PREFIX(Complex32) a) {
		i.c[0] += a.c.c[1];
		i.c[1] += a.c.c[1];
		r.c[0] += a.c.c[0];
		r.c[1] += a.c.c[0];
	}


	AML_FUNCTION AML_PREFIX(Array2Complex32) operator+(const AML_PREFIX(Array2Complex32) a) const {
		AML_PREFIX(Array2Complex32) ret;
		ret.i.c[0] = i.c[0] + a.i.c[0];
		ret.i.c[1] = i.c[1] + a.i.c[1];
		ret.r.c[0] = r.c[0] + a.r.c[0];
		ret.r.c[1] = r.c[1] + a.r.c[1];
		return ret;
	}

	AML_FUNCTION AML_PREFIX(Array2Complex32) operator+(const AML_PREFIX(Complex32) a) const {
		AML_PREFIX(Array2Complex32) ret;
		ret.i.c[0] = i.c[0] + a.c.c[1];
		ret.i.c[1] = i.c[1] + a.c.c[1];
		ret.r.c[0] = r.c[0] + a.c.c[0];
		ret.r.c[1] = r.c[1] + a.c.c[0];
		return ret;
	}

	AML_FUNCTION AML_PREFIX(Array2Complex32) *add(const AML_PREFIX(Array2Complex32) a, AML_PREFIX(VectorU8_2D) mask) {
		if (mask.v.c[0]) {
			i.c[0] += a.i.c[0];
			r.c[0] += a.r.c[0];
		}
		if (mask.v.c[1]) {
			i.c[1] += a.i.c[1];
			r.c[1] += a.r.c[1];
		}
		return this;
	}

	AML_FUNCTION AML_PREFIX(Array2Complex32) *add(const AML_PREFIX(Complex32) a, AML_PREFIX(VectorU8_2D) mask) {
		if (mask.v.c[0]) {
			i.c[0] += a.c.c[1];
			r.c[0] += a.c.c[0];
		}
		if (mask.v.c[1]) {
			i.c[1] += a.c.c[1];
			r.c[1] += a.c.c[0];
		}
		return this;
	}


	AML_FUNCTION AML_PREFIX(Array2Complex32) *subtract(const AML_PREFIX(Array2Complex32) a) {
		i.c[0] -= a.i.c[0];
		i.c[1] -= a.i.c[1];
		r.c[0] -= a.r.c[0];
		r.c[1] -= a.r.c[1];
		return this;
	}

	AML_FUNCTION AML_PREFIX(Array2Complex32) *subtract(const AML_PREFIX(Complex32) a) {
		i.c[0] -= a.c.c[1];
		i.c[1] -= a.c.c[1];
		r.c[0] -= a.c.c[0];
		r.c[1] -= a.c.c[0];
		return this;
	}

	AML_FUNCTION void operator-=(const AML_PREFIX(Array2Complex32) a) {
		i.c[0] -= a.i.c[0];
		i.c[1] -= a.i.c[1];
		r.c[0] -= a.r.c[0];
		r.c[1] -= a.r.c[1];
	}

	AML_FUNCTION void operator-=(const AML_PREFIX(Complex32) a) {
		i.c[0] -= a.c.c[1];
		i.c[1] -= a.c.c[1];
		r.c[0] -= a.c.c[0];
		r.c[1] -= a.c.c[0];
	}

	AML_FUNCTION AML_PREFIX(Array2Complex32) operator-(const AML_PREFIX(Array2Complex32) a) const {
		AML_PREFIX(Array2Complex32) ret;
		ret.i.c[0] = i.c[0] - a.i.c[0];
		ret.i.c[1] = i.c[1] - a.i.c[1];
		ret.r.c[0] = r.c[0] - a.r.c[0];
		ret.r.c[1] = r.c[1] - a.r.c[1];
		return ret;
	}

	AML_FUNCTION AML_PREFIX(Array2Complex32) operator-(const AML_PREFIX(Complex32) a) const {
		AML_PREFIX(Array2Complex32) ret;
		ret.i.c[0] = i.c[0] - a.c.c[1];
		ret.i.c[1] = i.c[1] - a.c.c[1];
		ret.r.c[0] = r.c[0] - a.c.c[0];
		ret.r.c[1] = r.c[1] - a.c.c[0];
		return ret;
	}

	AML_FUNCTION AML_PREFIX(Array2Complex32) *
	subtract(const AML_PREFIX(Array2Complex32) a, AML_PREFIX(VectorU8_2D) mask) {
		if (mask.v.c[0]) {
			i.c[0] -= a.i.c[0];
			r.c[0] -= a.r.c[0];
		}
		if (mask.v.c[1]) {
			i.c[1] -= a.i.c[1];
			r.c[1] -= a.r.c[1];
		}
		return this;
	}

	AML_FUNCTION AML_PREFIX(Array2Complex32) *subtract(const AML_PREFIX(Complex32) a, AML_PREFIX(VectorU8_2D) mask) {
		if (mask.v.c[0]) {
			i.c[0] -= a.c.c[1];
			r.c[0] -= a.c.c[0];
		}
		if (mask.v.c[1]) {
			i.c[1] -= a.c.c[1];
			r.c[1] -= a.c.c[0];
		}
		return this;
	}


	AML_FUNCTION AML_PREFIX(Array2Complex32) operator*(const AML_PREFIX(Array2Complex32) &a) const {
		AML_PREFIX(Array2Complex32) ret;
		ret.r.c[0] = r.c[0] * a.r.c[0] - i.c[0] * a.i.c[0];
		ret.i.c[0] = r.c[0] * a.i.c[0] + i.c[0] * a.r.c[0];
		ret.r.c[1] = r.c[1] * a.r.c[1] - i.c[1] * a.i.c[1];
		ret.i.c[1] = r.c[1] * a.i.c[1] + i.c[1] * a.r.c[1];


		return ret;
	}

	AML_FUNCTION AML_PREFIX(Array2Complex32) *multiply(const AML_PREFIX(Array2Complex32) &a) {
		float d1;
		float d2;
		d1 = r.c[0] * a.r.c[0] - i.c[0] * a.i.c[0];
		d2 = r.c[0] * a.i.c[0] + i.c[0] * a.r.c[0];
		r.c[0] = d1;
		i.c[0] = d2;

		d1 = r.c[1] * a.r.c[1] - i.c[1] * a.i.c[1];
		d2 = r.c[1] * a.i.c[1] + i.c[1] * a.r.c[1];
		r.c[1] = d1;
		i.c[1] = d2;
		return this;
	}

	AML_FUNCTION AML_PREFIX(Array2Complex32) operator*(const AML_PREFIX(Complex32) &a) const {
		AML_PREFIX(Array2Complex32) ret;
		ret.r.c[0] = r.c[0] * a.c.c[0] - i.c[0] * a.c.c[1];
		ret.i.c[0] = r.c[0] * a.c.c[1] + i.c[0] * a.c.c[0];
		ret.r.c[1] = r.c[1] * a.c.c[0] - i.c[1] * a.c.c[1];
		ret.i.c[1] = r.c[1] * a.c.c[1] + i.c[1] * a.c.c[0];

		return ret;
	}

	AML_FUNCTION void operator*=(const AML_PREFIX(Array2Complex32) &a) {
		float d1;
		float d2;
		d1 = r.c[0] * a.r.c[0] - i.c[0] * a.i.c[0];
		d2 = r.c[0] * a.i.c[0] + i.c[0] * a.r.c[0];
		r.c[0] = d1;
		i.c[0] = d2;

		d1 = r.c[1] * a.r.c[1] - i.c[1] * a.i.c[1];
		d2 = r.c[1] * a.i.c[1] + i.c[1] * a.r.c[1];
	}

	AML_FUNCTION void operator*=(const AML_PREFIX(Complex32) &a) {
		float d1;
		float d2;
		d1 = r.c[0] * a.c.c[0] - i.c[0] * a.c.c[1];
		d2 = r.c[0] * a.c.c[1] + i.c[0] * a.c.c[0];
		r.c[0] = d1;
		i.c[0] = d2;
		d1 = r.c[1] * a.c.c[0] - i.c[1] * a.c.c[1];
		d2 = r.c[1] * a.c.c[1] + i.c[1] * a.c.c[0];
		r.c[1] = d1;
		i.c[1] = d2;
	}

	AML_FUNCTION AML_PREFIX(Array2Complex32) *multiply(const AML_PREFIX(Complex32) &a) {
		float d1;
		float d2;
		d1 = r.c[0] * a.c.c[0] - i.c[0] * a.c.c[1];
		d2 = r.c[0] * a.c.c[1] + i.c[0] * a.c.c[0];
		r.c[0] = d1;
		i.c[0] = d2;
		d1 = r.c[1] * a.c.c[0] - i.c[1] * a.c.c[1];
		d2 = r.c[1] * a.c.c[1] + i.c[1] * a.c.c[0];
		r.c[1] = d1;
		i.c[1] = d2;
		return this;
	}

	AML_FUNCTION AML_PREFIX(Array2Complex32) *
	multiply(const AML_PREFIX(Complex32) &a, const AML_PREFIX(VectorU8_2D) &mask) {
		float d1;
		float d2;
		if (mask.v.c[0]) {
			d1 = r.c[0] * a.c.c[0] - i.c[0] * a.c.c[1];
			d2 = r.c[0] * a.c.c[1] + i.c[0] * a.c.c[0];
			r.c[0] = d1;
			i.c[0] = d2;
		}
		if (mask.v.c[1]) {
			d1 = r.c[1] * a.c.c[0] - i.c[1] * a.c.c[1];
			d2 = r.c[1] * a.c.c[1] + i.c[1] * a.c.c[0];
			r.c[1] = d1;
			i.c[1] = d2;
		}
		return this;


	}

	AML_FUNCTION AML_PREFIX(Array2Complex32) *
	multiply(const AML_PREFIX(Array2Complex32) &a, const AML_PREFIX(VectorU8_2D) &mask) {
		float d1;
		float d2;
		if (mask.v.c[0]) {
			d1 = r.c[0] * a.r.c[0] - i.c[0] * a.i.c[0];
			d2 = r.c[0] * a.i.c[0] + i.c[0] * a.r.c[0];
			r.c[0] = d1;
			i.c[0] = d2;
		}
		if (mask.v.c[1]) {
			d1 = r.c[1] * a.r.c[1] - i.c[1] * a.i.c[1];
			d2 = r.c[1] * a.i.c[1] + i.c[1] * a.r.c[1];
			r.c[1] = d1;
			i.c[1] = d2;
		}
		return this;
	}

	AML_FUNCTION AML_PREFIX(Array2Complex32) *square() {
		float d1;
		float d2;
		d1 = r.c[0] * r.c[0] - i.c[0] * i.c[0];
		d2 = r.c[0] * i.c[0] + i.c[0] * r.c[0];
		r.c[0] = d1;
		i.c[0] = d2;
		d1 = r.c[1] * r.c[1] - i.c[1] * i.c[1];
		d2 = r.c[1] * i.c[1] + i.c[1] * r.c[1];
		r.c[1] = d1;
		i.c[1] = d2;
		return this;
	}

	AML_FUNCTION AML_PREFIX(Array2Complex32) *square(const AML_PREFIX(VectorU8_2D) &mask) {
		float d1;
		float d2;
		if (mask.v.c[0]) {
			d1 = r.c[0] * r.c[0] - i.c[0] * i.c[0];
			d2 = r.c[0] * i.c[0] + i.c[0] * r.c[0];
			r.c[0] = d1;
			i.c[0] = d2;
		}
		if (mask.v.c[1]) {
			d1 = r.c[1] * r.c[1] - i.c[1] * i.c[1];
			d2 = r.c[1] * i.c[1] + i.c[1] * r.c[1];
			r.c[1] = d1;
			i.c[1] = d2;
		}
		return this;
	}

	AML_FUNCTION AML_PREFIX(Array2Complex32) *divide(const AML_PREFIX(Complex32) a) {
		float d1 = (r.c[0] * a.c.c[0] + i.c[0] * a.c.c[1]) / (a.c.c[0] * a.c.c[0] + a.c.c[1] * a.c.c[1]);
		float d2 = (i.c[0] * a.c.c[0] - r.c[0] * a.c.c[1]) / (a.c.c[0] * a.c.c[0] + a.c.c[1] * a.c.c[1]);
		r.c[0] = d1;
		i.c[0] = d2;
		d1 = (r.c[1] * a.c.c[0] + i.c[1] * a.c.c[1]) / (a.c.c[0] * a.c.c[0] + a.c.c[1] * a.c.c[1]);
		d2 = (i.c[1] * a.c.c[0] - r.c[1] * a.c.c[1]) / (a.c.c[0] * a.c.c[0] + a.c.c[1] * a.c.c[1]);
		r.c[1] = d1;
		i.c[1] = d2;
		return this;
	}

	AML_FUNCTION AML_PREFIX(Array2Complex32) *
	divide(const AML_PREFIX(Complex32) a, const AML_PREFIX(VectorU8_2D) &mask) {
		float d1;
		float d2;
		if (mask.v.c[0]) {
			d1 = (r.c[0] * a.c.c[0] + i.c[0] * a.c.c[1]) / (a.c.c[0] * a.c.c[0] + a.c.c[1] * a.c.c[1]);
			d2 = (i.c[0] * a.c.c[0] - r.c[0] * a.c.c[1]) / (a.c.c[0] * a.c.c[0] + a.c.c[1] * a.c.c[1]);
			r.c[0] = d1;
			i.c[0] = d2;
		}
		if (mask.v.c[1]) {
			d1 = (r.c[1] * a.c.c[0] + i.c[1] * a.c.c[1]) / (a.c.c[0] * a.c.c[0] + a.c.c[1] * a.c.c[1]);
			d2 = (i.c[1] * a.c.c[0] - r.c[1] * a.c.c[1]) / (a.c.c[0] * a.c.c[0] + a.c.c[1] * a.c.c[1]);
			r.c[1] = d1;
			i.c[1] = d2;
		}
		return this;
	}

	AML_FUNCTION AML_PREFIX(Array2Complex32) *divide(const AML_PREFIX(Array2Complex32) &a) {
		float d1 = (r.c[0] * a.r.c[0] + i.c[0] * a.i.c[0]) / (a.r.c[0] * a.r.c[0] + a.i.c[0] * a.i.c[0]);
		float d2 = (i.c[0] * a.r.c[0] - r.c[0] * a.i.c[0]) / (a.r.c[0] * a.r.c[0] + a.i.c[0] * a.i.c[0]);
		r.c[0] = d1;
		i.c[0] = d2;
		d1 = (r.c[1] * a.r.c[1] + i.c[1] * a.i.c[1]) / (a.r.c[1] * a.r.c[1] + a.i.c[1] * a.i.c[1]);
		d2 = (i.c[1] * a.r.c[1] - r.c[1] * a.i.c[1]) / (a.r.c[1] * a.r.c[1] + a.i.c[1] * a.i.c[1]);
		r.c[1] = d1;
		i.c[1] = d2;
		return this;
	}

	AML_FUNCTION AML_PREFIX(Array2Complex32) *
	divide(const AML_PREFIX(Array2Complex32) &a, const AML_PREFIX(VectorU8_2D) &mask) {
		float d1;
		float d2;
		if (mask.v.c[0]) {
			d1 = (r.c[0] * a.i.c[0] + i.c[0] * a.i.c[1]) / (a.i.c[0] * a.i.c[0] + a.i.c[1] * a.i.c[1]);
			d2 = (i.c[0] * a.i.c[0] - r.c[0] * a.i.c[1]) / (a.i.c[0] * a.i.c[0] + a.i.c[1] * a.i.c[1]);
			r.c[0] = d1;
			i.c[0] = d2;
		}
		if (mask.v.c[1]) {
			d1 = (r.c[1] * a.r.c[1] + i.c[1] * a.i.c[1]) / (a.r.c[1] * a.r.c[1] + a.i.c[1] * a.i.c[1]);
			d2 = (i.c[1] * a.r.c[1] - r.c[1] * a.i.c[1]) / (a.r.c[1] * a.r.c[1] + a.i.c[1] * a.i.c[1]);
			r.c[1] = d1;
			i.c[1] = d2;
		}
		return this;
	}

	AML_FUNCTION AML_PREFIX(Array2Complex32) operator/(const AML_PREFIX(Complex32) &a) const {
		AML_PREFIX(Array2Complex32) ret;
		float d1 = (r.c[0] * a.c.c[0] + i.c[0] * a.c.c[1]) / (a.c.c[0] * a.c.c[0] + a.c.c[1] * a.c.c[1]);
		float d2 = (i.c[0] * a.c.c[0] - r.c[0] * a.c.c[1]) / (a.c.c[0] * a.c.c[0] + a.c.c[1] * a.c.c[1]);
		ret.r.c[0] = d1;
		ret.i.c[0] = d2;
		d1 = (r.c[1] * a.c.c[0] + i.c[1] * a.c.c[1]) / (a.c.c[0] * a.c.c[0] + a.c.c[1] * a.c.c[1]);
		d2 = (i.c[1] * a.c.c[0] - r.c[1] * a.c.c[1]) / (a.c.c[0] * a.c.c[0] + a.c.c[1] * a.c.c[1]);
		ret.r.c[1] = d1;
		ret.i.c[1] = d2;
		return ret;
	}

	AML_FUNCTION AML_PREFIX(Array2Complex32) operator/(const AML_PREFIX(Array2Complex32) &a) const {
		AML_PREFIX(Array2Complex32) ret;
		float d1 = (r.c[0] * a.r.c[0] + i.c[0] * a.i.c[0]) / (a.r.c[0] * a.r.c[0] + a.i.c[0] * a.i.c[0]);
		float d2 = (i.c[0] * a.r.c[0] - r.c[0] * a.i.c[0]) / (a.r.c[0] * a.r.c[0] + a.i.c[0] * a.i.c[0]);
		ret.r.c[0] = d1;
		ret.i.c[0] = d2;
		d1 = (r.c[1] * a.r.c[1] + i.c[1] * a.i.c[1]) / (a.r.c[1] * a.r.c[1] + a.i.c[1] * a.i.c[1]);
		d2 = (i.c[1] * a.r.c[1] - r.c[1] * a.i.c[1]) / (a.r.c[1] * a.r.c[1] + a.i.c[1] * a.i.c[1]);
		ret.r.c[1] = d1;
		ret.i.c[1] = d2;
		return ret;
	}

	AML_FUNCTION void operator/=(const AML_PREFIX(Complex32) &a) {
		float d1 = (r.c[0] * a.c.c[0] + i.c[0] * a.c.c[1]) / (a.c.c[0] * a.c.c[0] + a.c.c[1] * a.c.c[1]);
		float d2 = (i.c[0] * a.c.c[0] - r.c[0] * a.c.c[1]) / (a.c.c[0] * a.c.c[0] + a.c.c[1] * a.c.c[1]);
		r.c[0] = d1;
		i.c[0] = d2;
		d1 = (r.c[1] * a.c.c[0] + i.c[1] * a.c.c[1]) / (a.c.c[0] * a.c.c[0] + a.c.c[1] * a.c.c[1]);
		d2 = (i.c[1] * a.c.c[0] - r.c[1] * a.c.c[1]) / (a.c.c[0] * a.c.c[0] + a.c.c[1] * a.c.c[1]);
		r.c[1] = d1;
		i.c[1] = d2;
	}

	AML_FUNCTION void operator/=(const AML_PREFIX(Array2Complex32) &a) {
		float d1 = (r.c[0] * a.r.c[0] + i.c[0] * a.i.c[0]) / (a.r.c[0] * a.r.c[0] + a.i.c[0] * a.i.c[0]);
		float d2 = (i.c[0] * a.r.c[0] - r.c[0] * a.i.c[0]) / (a.r.c[0] * a.r.c[0] + a.i.c[0] * a.i.c[0]);
		r.c[0] = d1;
		i.c[0] = d2;
		d1 = (r.c[1] * a.r.c[1] + i.c[1] * a.i.c[1]) / (a.r.c[1] * a.r.c[1] + a.i.c[1] * a.i.c[1]);
		d2 = (i.c[1] * a.r.c[1] - r.c[1] * a.i.c[1]) / (a.r.c[1] * a.r.c[1] + a.i.c[1] * a.i.c[1]);
		r.c[1] = d1;
		i.c[1] = d2;
	}

	AML_FUNCTION AML_PREFIX(Array2Complex32) *sqrt() {
		float d1;
		float d2;
		d2 = ::sqrt((-r.c[0] + ::sqrt(r.c[0] * r.c[0] + i.c[0] * i.c[0])) / (2));
		if (d2 == 0) UNLIKELY {
			d1 = ::sqrt(r.c[0]);
		} else LIKELY {
			d1 = i.c[0] / (2 * d2);
		}
		r.c[0] = d1;
		i.c[0] = d2;
		d2 = ::sqrt((-r.c[1] + ::sqrt(r.c[1] * r.c[1] + i.c[1] * i.c[1])) / (2));
		if (d2 == 0) UNLIKELY {
			d1 = ::sqrt(r.c[1]);
		} else LIKELY {
			d1 = i.c[1] / (2 * d2);
		}
		r.c[1] = d1;
		i.c[1] = d2;
		return this;
	}

	AML_FUNCTION AML_PREFIX(Array2Complex32) *sqrt(const AML_PREFIX(VectorU8_2D) mask) {
		float d1;
		float d2;
		if (mask.v.c[0]) {
			d2 = ::sqrt((-r.c[0] + ::sqrt(r.c[0] * r.c[0] + i.c[0] * i.c[0])) / (2));
			if (d2 == 0) UNLIKELY {
				d1 = ::sqrt(r.c[0]);
			} else LIKELY {
				d1 = i.c[0] / (2 * d2);
			}
			r.c[0] = d1;
			i.c[0] = d2;
		}
		if (mask.v.c[1]) {
			d2 = ::sqrt((-r.c[1] + ::sqrt(r.c[1] * r.c[1] + i.c[1] * i.c[1])) / (2));
			if (d2 == 0) UNLIKELY {
				d1 = ::sqrt(r.c[1]);
			} else LIKELY {
				d1 = i.c[1] / (2 * d2);
			}
			r.c[1] = d1;
			i.c[1] = d2;
		}
		return this;
	}

	AML_FUNCTION AML_PREFIX(Array2Complex32) *sin() {
		float d1;
		float d2;
		d1 = ::sin(r.c[0]) * ::cosh(i.c[0]);
		d2 = ::cos(i.c[0]) * ::sinh(r.c[0]);
		r.c[0] = d1;
		i.c[0] = d2;
		d1 = ::sin(r.c[1]) * ::cosh(i.c[1]);
		d2 = ::cos(i.c[1]) * ::sinh(r.c[1]);
		r.c[1] = d1;
		i.c[1] = d2;
		return this;
	}

	AML_FUNCTION AML_PREFIX(Array2Complex32) *cos() {
		float d1;
		float d2;
		d1 = ::cos(r.c[0]) * ::cosh(i.c[0]);
		d2 = -::sin(i.c[0]) * ::sinh(r.c[0]);
		r.c[0] = d1;
		i.c[0] = d2;
		d1 = ::cos(r.c[1]) * ::cosh(i.c[1]);
		d2 = -::sin(i.c[1]) * ::sinh(r.c[1]);
		r.c[1] = d1;
		i.c[1] = d2;
		return this;
	}

	AML_FUNCTION AML_PREFIX(Array2Complex32) *tan() {
		float d1;
		float d2;
		d1 = ::sin(r.c[0] + r.c[0]) / (::cos(r.c[0] + r.c[0]) * ::cosh(i.c[0] + i.c[0]));
		d2 = ::sinh(i.c[0] + i.c[0]) / (::cos(r.c[0] + r.c[0]) * ::cosh(i.c[0] + i.c[0]));
		r.c[0] = d1;
		i.c[0] = d2;
		d1 = ::sin(r.c[1] + r.c[1]) / (::cos(r.c[1] + r.c[1]) * ::cosh(i.c[1] + i.c[1]));
		d2 = ::sinh(i.c[1] + i.c[1]) / (::cos(r.c[1] + r.c[1]) * ::cosh(i.c[1] + i.c[1]));
		r.c[1] = d1;
		i.c[1] = d2;
		return this;
	}

	AML_FUNCTION AML_PREFIX(Array2Complex32) *sin(const AML_PREFIX(VectorU8_2D) mask) {
		float d1;
		float d2;
		if (mask.v.c[0]) {
			d1 = ::sin(r.c[0]) * ::cosh(i.c[0]);
			d2 = ::cos(i.c[0]) * ::sinh(r.c[0]);
			r.c[0] = d1;
			i.c[0] = d2;
		}
		if (mask.v.c[1]) {
			d1 = ::sin(r.c[1]) * ::cosh(i.c[1]);
			d2 = ::cos(i.c[1]) * ::sinh(r.c[1]);
			r.c[1] = d1;
			i.c[1] = d2;
		}
		return this;
	}

	AML_FUNCTION AML_PREFIX(Array2Complex32) *cos(const AML_PREFIX(VectorU8_2D) mask) {
		float d1;
		float d2;
		if (mask.v.c[0]) {
			d1 = ::cos(r.c[0]) * ::cosh(i.c[0]);
			d2 = -::sin(i.c[0]) * ::sinh(r.c[0]);
			r.c[0] = d1;
			i.c[0] = d2;
		}
		if (mask.v.c[1]) {
			d1 = ::cos(r.c[1]) * ::cosh(i.c[1]);
			d2 = -::sin(i.c[1]) * ::sinh(r.c[1]);
			r.c[1] = d1;
			i.c[1] = d2;
		}
		return this;
	}

	AML_FUNCTION AML_PREFIX(Array2Complex32) *tan(const AML_PREFIX(VectorU8_2D) mask) {
		float d1;
		float d2;
		if (mask.v.c[0]) {
			d1 = ::sin(r.c[0] + r.c[0]) / (::cos(r.c[0] + r.c[0]) * ::cosh(i.c[0] + i.c[0]));
			d2 = ::sinh(i.c[0] + i.c[0]) / (::cos(r.c[0] + r.c[0]) * ::cosh(i.c[0] + i.c[0]));
			r.c[0] = d1;
			i.c[0] = d2;
		}
		if (mask.v.c[1]) {
			d1 = ::sin(r.c[1] + r.c[1]) / (::cos(r.c[1] + r.c[1]) * ::cosh(i.c[1] + i.c[1]));
			d2 = ::sinh(i.c[1] + i.c[1]) / (::cos(r.c[1] + r.c[1]) * ::cosh(i.c[1] + i.c[1]));
			r.c[1] = d1;
			i.c[1] = d2;
		}
		return this;
	}

	AML_FUNCTION AML_PREFIX(Array2Complex32) *exp() {
		float d1 = ::exp(r.c[0]) * ::cos(i.c[0]);
		float d2 = ::exp(r.c[0]) * ::sin(i.c[0]);
		r.c[0] = d1;
		i.c[0] = d2;
		d1 = ::exp(r.c[1]) * ::cos(i.c[1]);
		d2 = ::exp(r.c[1]) * ::sin(i.c[1]);
		r.c[1] = d1;
		i.c[1] = d2;
		return this;
	}

	AML_FUNCTION AML_PREFIX(Array2Complex32) *exp(float n) {
		float d1 = ::pow(n, r.c[0]) * ::cos(i.c[0] * ::log(n));
		float d2 = ::pow(n, r.c[0]) * ::sin(i.c[0] * ::log(n));
		r.c[0] = d1;
		i.c[0] = d2;
		d1 = ::pow(n, r.c[1]) * ::cos(i.c[1] * ::log(n));
		d2 = ::pow(n, r.c[1]) * ::sin(i.c[1] * ::log(n));
		r.c[1] = d1;
		i.c[1] = d2;
		return this;
	}

	AML_FUNCTION AML_PREFIX(Array2Complex32) *exp(const AML_PREFIX(VectorU8_2D) &mask) {
		float d1;
		float d2;
		if (mask.v.c[0]) {
			d1 = ::exp(r.c[0]) * ::cos(i.c[0]);
			d2 = ::exp(r.c[0]) * ::sin(i.c[0]);
			r.c[0] = d1;
			i.c[0] = d2;
		}
		if (mask.v.c[1]) {
			d1 = ::exp(r.c[1]) * ::cos(i.c[1]);
			d2 = ::exp(r.c[1]) * ::sin(i.c[1]);
			r.c[1] = d1;
			i.c[1] = d2;
		}
		return this;
	}

	AML_FUNCTION AML_PREFIX(Array2Complex32) *exp(float n, const AML_PREFIX(VectorU8_2D) &mask) {
		float d1;
		float d2;
		if (mask.v.c[0]) {
			d1 = ::pow(n, r.c[0]) * ::cos(i.c[0] * ::log(n));
			d2 = ::pow(n, r.c[0]) * ::sin(i.c[0] * ::log(n));
			r.c[0] = d1;
			i.c[0] = d2;
		}
		if (mask.v.c[1]) {
			d1 = ::pow(n, r.c[1]) * ::cos(i.c[1] * ::log(n));
			d2 = ::pow(n, r.c[1]) * ::sin(i.c[1] * ::log(n));
			r.c[1] = d1;
			i.c[1] = d2;
		}
		return this;
	}

	AML_FUNCTION AML_PREFIX(Array2Complex32) *pow(const AML_PREFIX(Array2Complex32) n) {
		float d1 = ::log(i.c[0] * i.c[0] + r.c[0] * r.c[0]) / 2;
		float d2 = ::atan2(r.c[0], i.c[0]);
		float d3 = ::exp(d1 * n.i.c[0] - d2 * n.r.c[0]);
		float d4 = d1 * n.r.c[0] + d2 * n.i.c[0];
		float d5 = d3 * ::cos(d4);
		float d6 = d3 * ::sin(d4);
		i.c[0] = d5;
		r.c[0] = d6;
		d1 = ::log(i.c[1] * i.c[1] + r.c[1] * r.c[1]) / 2;
		d2 = ::atan2(r.c[1], i.c[1]);
		d3 = ::exp(d1 * n.i.c[1] - d2 * n.r.c[1]);
		d4 = d1 * n.r.c[1] + d2 * n.i.c[1];
		d5 = d3 * ::cos(d4);
		d6 = d3 * ::sin(d4);
		i.c[1] = d5;
		r.c[1] = d6;
		return this;
	}


	AML_FUNCTION AML_PREFIX(Array2Complex32) *pow(const AML_PREFIX(Complex32) n) {
		float d1 = ::log(i.c[0] * i.c[0] + r.c[0] * r.c[0]) / 2;
		float d2 = ::atan2(r.c[0], i.c[0]);
		float d3 = ::exp(d1 * n.c.c[0] - d2 * n.c.c[1]);
		float d4 = d1 * n.c.c[1] + d2 * n.c.c[0];
		float d5 = d3 * ::cos(d4);
		float d6 = d3 * ::sin(d4);
		i.c[0] = d5;
		r.c[0] = d6;
		d1 = ::log(i.c[1] * i.c[1] + r.c[1] * r.c[1]) / 2;
		d2 = ::atan2(r.c[1], i.c[1]);
		d3 = ::exp(d1 * n.c.c[0] - d2 * n.c.c[1]);
		d4 = d1 * n.c.c[1] + d2 * n.c.c[0];
		d5 = d3 * ::cos(d4);
		d6 = d3 * ::sin(d4);
		i.c[1] = d5;
		r.c[1] = d6;
		return this;
	}

	AML_FUNCTION AML_PREFIX(Array2Complex32) *
	pow(const AML_PREFIX(Array2Complex32) n, const AML_PREFIX(VectorU8_2D) &mask) {
		float d1;
		float d2;
		float d3;
		float d4;
		float d5;
		float d6;
		if (mask.v.c[0]) {
			d1 = ::log(i.c[0] * i.c[0] + r.c[0] * r.c[0]) / 2;
			d2 = ::atan2(r.c[0], i.c[0]);
			d3 = ::exp(d1 * n.i.c[0] - d2 * n.r.c[0]);
			d4 = d1 * n.r.c[0] + d2 * n.i.c[0];
			d5 = d3 * ::cos(d4);
			d6 = d3 * ::sin(d4);
			i.c[0] = d5;
			r.c[0] = d6;
		}
		if (mask.v.c[1]) {
			d1 = ::log(i.c[1] * i.c[1] + r.c[1] * r.c[1]) / 2;
			d2 = ::atan2(r.c[1], i.c[1]);
			d3 = ::exp(d1 * n.i.c[1] - d2 * n.r.c[1]);
			d4 = d1 * n.r.c[1] + d2 * n.i.c[1];
			d5 = d3 * ::cos(d4);
			d6 = d3 * ::sin(d4);
			i.c[1] = d5;
			r.c[1] = d6;
		}
		return this;
	}


	AML_FUNCTION AML_PREFIX(Array2Complex32) *pow(const AML_PREFIX(Complex32) n, const AML_PREFIX(VectorU8_2D) &mask) {
		float d1;
		float d2;
		float d3;
		float d4;
		float d5;
		float d6;
		if (mask.v.c[0]) {
			d1 = ::log(i.c[0] * i.c[0] + r.c[0] * r.c[0]) / 2;
			d2 = ::atan2(r.c[0], i.c[0]);
			d3 = ::exp(d1 * n.c.c[0] - d2 * n.c.c[1]);
			d4 = d1 * n.c.c[1] + d2 * n.c.c[0];
			d5 = d3 * ::cos(d4);
			d6 = d3 * ::sin(d4);
			i.c[0] = d5;
			r.c[0] = d6;
		}
		if (mask.v.c[1]) {
			d1 = ::log(i.c[1] * i.c[1] + r.c[1] * r.c[1]) / 2;
			d2 = ::atan2(r.c[1], i.c[1]);
			d3 = ::exp(d1 * n.c.c[0] - d2 * n.c.c[1]);
			d4 = d1 * n.c.c[1] + d2 * n.c.c[0];
			d5 = d3 * ::cos(d4);
			d6 = d3 * ::sin(d4);
			i.c[1] = d5;
			r.c[1] = d6;
		}
		return this;
	}


	AML_FUNCTION AML_PREFIX(Array2Complex32) *pow(float n) {
		float d1;
		float d2;
		d1 = ::pow(r.c[0] * r.c[0] + i.c[0] * i.c[0], n / 2) * ::cos(n * atan2(i.c[0], r.c[0]));
		d2 = ::pow(r.c[0] * r.c[0] + i.c[0] * i.c[0], n / 2) * ::sin(n * atan2(i.c[0], r.c[0]));
		r.c[0] = d1;
		i.c[0] = d2;
		d1 = ::pow(r.c[1] * r.c[1] + i.c[1] * i.c[1], n / 2) * ::cos(n * atan2(i.c[1], r.c[1]));
		d2 = ::pow(r.c[1] * r.c[1] + i.c[1] * i.c[1], n / 2) * ::sin(n * atan2(i.c[1], r.c[1]));
		r.c[1] = d1;
		i.c[1] = d2;
		return this;
	}

	AML_FUNCTION AML_PREFIX(Array2Complex32) *pow(float n, const AML_PREFIX(VectorU8_2D) &mask) {
		float d1;
		float d2;
		if (mask.v.c[0]) {
			d1 = ::pow(r.c[0] * r.c[0] + i.c[0] * i.c[0], n / 2) * ::cos(n * atan2(i.c[0], r.c[0]));
			d2 = ::pow(r.c[0] * r.c[0] + i.c[0] * i.c[0], n / 2) * ::sin(n * atan2(i.c[0], r.c[0]));
			r.c[0] = d1;
			i.c[0] = d2;
		}
		if (mask.v.c[1]) {
			d1 = ::pow(r.c[1] * r.c[1] + i.c[1] * i.c[1], n / 2) * ::cos(n * atan2(i.c[1], r.c[1]));
			d2 = ::pow(r.c[1] * r.c[1] + i.c[1] * i.c[1], n / 2) * ::sin(n * atan2(i.c[1], r.c[1]));
			r.c[1] = d1;
			i.c[1] = d2;
		}
		return this;
	}

	AML_FUNCTION AML_PREFIX(Vector2D_32) abs() {
		AML_PREFIX(Vector2D_32) ret;
		ret.v.c[0] = ::sqrt(r.c[0] * r.c[0] + i.c[0] * i.c[0]);
		ret.v.c[1] = ::sqrt(r.c[1] * r.c[1] + i.c[1] * i.c[1]);
		return ret;
	}

	AML_FUNCTION AML_PREFIX(VectorU8_2D) abs_gt(float a) {
		AML_PREFIX(VectorU8_2D) ret;
		ret.v.c[0] = a * a < r.c[0] * r.c[0] + i.c[0] * i.c[0];
		ret.v.c[1] = a * a < r.c[1] * r.c[1] + i.c[1] * i.c[1];
		return ret;
	}

	AML_FUNCTION AML_PREFIX(VectorU8_2D) abs_lt(float a) {
		AML_PREFIX(VectorU8_2D) ret;
		ret.v.c[0] = a * a > r.c[0] * r.c[0] + i.c[0] * i.c[0];
		ret.v.c[1] = a * a > r.c[1] * r.c[1] + i.c[1] * i.c[1];
		return ret;
	}

	AML_FUNCTION AML_PREFIX(VectorU8_2D) abs_eq(float a) {
		AML_PREFIX(VectorU8_2D) ret;
		ret.v.c[0] = a * a == r.c[0] * r.c[0] + i.c[0] * i.c[0];
		ret.v.c[1] = a * a == r.c[1] * r.c[1] + i.c[1] * i.c[1];
		return ret;
	}

	AML_FUNCTION AML_PREFIX(Array2Complex32) *ln(const AML_PREFIX(VectorU8_2D) &mask) {
		float d1;
		float d2;
		if (mask.v.c[0]) {
			d1 = ::log(i.c[0] * i.c[0] + r.c[0] * r.c[0]) / 2;
			d2 = ::atan2(r.c[0], i.c[0]);
			i.c[0] = d1;
			r.c[0] = d2;
		}
		if (mask.v.c[1]) {
			d1 = ::log(i.c[1] * i.c[1] + r.c[1] * r.c[1]) / 2;
			d2 = ::atan2(r.c[1], i.c[1]);
			i.c[1] = d1;
			r.c[1] = d2;
		}
		return this;
	}

	AML_FUNCTION AML_PREFIX(Array2Complex32) *log(const AML_PREFIX(VectorU8_2D) &mask) {
		float d1;
		float d2;
		if (mask.v.c[0]) {
			d1 = ::log(i.c[0] * i.c[0] + r.c[0] * r.c[0]) / 2;
			d2 = ::atan2(r.c[0], i.c[0]);
			i.c[0] = d1;
			r.c[0] = d2;
		}
		if (mask.v.c[1]) {
			d1 = ::log(i.c[1] * i.c[1] + r.c[1] * r.c[1]) / 2;
			d2 = ::atan2(r.c[1], i.c[1]);
			i.c[1] = d1;
			r.c[1] = d2;
		}
		return this;
	}

	AML_FUNCTION AML_PREFIX(Array2Complex32) *log10(const AML_PREFIX(VectorU8_2D) &mask) {
		float d1;
		float d2;
		if (mask.v.c[0]) {
			d1 = ::log(i.c[0] * i.c[0] + r.c[0] * r.c[0]) / (2 * AML_LN10);
			d2 = ::atan2(r.c[0], i.c[0]) / AML_LN10;
			i.c[0] = d1;
			r.c[0] = d2;
		}
		if (mask.v.c[1]) {
			d1 = ::log(i.c[1] * i.c[1] + r.c[1] * r.c[1]) / (2 * AML_LN10);
			d2 = ::atan2(r.c[1], i.c[1]) / AML_LN10;
			i.c[1] = d1;
			r.c[1] = d2;
		}
		return this;
	}

	AML_FUNCTION AML_PREFIX(Array2Complex32) *ln() {
		float d1;
		float d2;
		d1 = ::log(i.c[0] * i.c[0] + r.c[0] * r.c[0]) / 2;
		d2 = ::atan2(r.c[0], i.c[0]);
		i.c[0] = d1;
		r.c[0] = d2;
		d1 = ::log(i.c[1] * i.c[1] + r.c[1] * r.c[1]) / 2;
		d2 = ::atan2(r.c[1], i.c[1]);
		i.c[1] = d1;
		r.c[1] = d2;
		return this;
	}

	AML_FUNCTION AML_PREFIX(Array2Complex32) *log() {
		float d1;
		float d2;
		d1 = ::log(i.c[0] * i.c[0] + r.c[0] * r.c[0]) / 2;
		d2 = ::atan2(r.c[0], i.c[0]);
		i.c[0] = d1;
		r.c[0] = d2;
		d1 = ::log(i.c[1] * i.c[1] + r.c[1] * r.c[1]) / 2;
		d2 = ::atan2(r.c[1], i.c[1]);
		i.c[1] = d1;
		r.c[1] = d2;
		return this;
	}

	AML_FUNCTION AML_PREFIX(Array2Complex32) *log10() {
		float d1;
		float d2;
		d1 = ::log(i.c[0] * i.c[0] + r.c[0] * r.c[0]) / (2 * AML_LN10);
		d2 = ::atan2(r.c[0], i.c[0]) / AML_LN10;
		i.c[0] = d1;
		r.c[0] = d2;
		d1 = ::log(i.c[1] * i.c[1] + r.c[1] * r.c[1]) / (2 * AML_LN10);
		d2 = ::atan2(r.c[1], i.c[1]) / AML_LN10;
		i.c[1] = d1;
		r.c[1] = d2;
		return this;
	}
};


#if !defined(AML_NO_STRING)

AML_FUNCTION std::string operator<<(std::string &lhs, const AML_PREFIX(Array2Complex32) &rhs) {
	std::ostringstream string;
	string << lhs << "{ " << rhs.r.c[0] << " + " << rhs.i.c[0] << "i ,  " << rhs.r.c[1] << " + " << rhs.i.c[1] << "i }";
	return string.str();
}

AML_FUNCTION std::string operator<<(const char *lhs, const AML_PREFIX(Array2Complex32) &rhs) {
	std::ostringstream string;
	string << lhs << "{ " << rhs.r.c[0] << " + " << rhs.i.c[0] << "i ,  " << rhs.r.c[1] << " + " << rhs.i.c[1] << "i }";
	return string.str();
}

template<class charT, class traits>
std::basic_ostream<charT, traits> &
operator<<(std::basic_ostream<charT, traits> &o, const AML_PREFIX(Array2Complex32) &rhs) {
	std::basic_ostringstream<charT, traits> s;
	s.flags(o.flags());
	s.imbue(o.getloc());
	s.precision(o.precision());
	s << "{ " << rhs.r.c[0] << " + " << rhs.i.c[0] << "i ,  " << rhs.r.c[1] << " + " << rhs.i.c[1] << "i }";
	return o << s.str();
}

#endif

AML_FUNCTION AML_PREFIX(Array2Complex32)
operator+(const AML_PREFIX(Complex32) &lhs, const AML_PREFIX(Array2Complex32) &rhs) {
	return rhs + lhs;
}

AML_FUNCTION AML_PREFIX(Array2Complex32)
operator-(const AML_PREFIX(Complex32) &lhs, const AML_PREFIX(Array2Complex32) &rhs) {
	AML_PREFIX(Array2Complex32) ret;
	ret.i.c[0] = lhs.c.c[1] - rhs.i.c[0];
	ret.i.c[1] = lhs.c.c[1] - rhs.i.c[1];
	ret.r.c[0] = lhs.c.c[0] - rhs.r.c[0];
	ret.r.c[1] = lhs.c.c[0] - rhs.r.c[1];
	return ret;
}

AML_FUNCTION AML_PREFIX(Array2Complex32)
operator*(const AML_PREFIX(Complex32) &lhs, const AML_PREFIX(Array2Complex32) &rhs) {
	return rhs * lhs;
}

AML_FUNCTION AML_PREFIX(Array2Complex32)
operator/(const AML_PREFIX(Complex32) &lhs, const AML_PREFIX(Array2Complex32) &rhs) {
	AML_PREFIX(Array2Complex32) ret;
	float d1 =
			(lhs.c.c[0] * rhs.r.c[0] + lhs.c.c[1] * rhs.i.c[0]) / (rhs.r.c[0] * rhs.r.c[0] + rhs.i.c[0] * rhs.i.c[0]);
	float d2 =
			(lhs.c.c[1] * rhs.r.c[0] - lhs.c.c[0] * rhs.i.c[0]) / (rhs.r.c[0] * rhs.r.c[0] + rhs.i.c[0] * rhs.i.c[0]);
	ret.r.c[0] = d1;
	ret.i.c[0] = d2;
	d1 = (lhs.c.c[0] * rhs.r.c[1] + lhs.c.c[1] * rhs.i.c[1]) / (rhs.r.c[1] * rhs.r.c[1] + rhs.i.c[1] * rhs.i.c[1]);
	d2 = (lhs.c.c[1] * rhs.r.c[1] - lhs.c.c[0] * rhs.i.c[1]) / (rhs.r.c[1] * rhs.r.c[1] + rhs.i.c[1] * rhs.i.c[1]);
	ret.r.c[1] = d1;
	ret.i.c[1] = d2;
	return ret;
}

class AML_PREFIX(Array4Complex32) {
public:
	AML_PREFIX(floatvec4) r{};
	AML_PREFIX(floatvec4) i{};

	AML_FUNCTION AML_PREFIX(Array4Complex32)() {}

	AML_FUNCTION AML_PREFIX(Array4Complex32)(AML_PREFIX(Complex32) value) {
		r.c[0] = value.c.c[0];
		i.c[0] = value.c.c[1];
		r.c[1] = value.c.c[0];
		i.c[1] = value.c.c[1];
		r.c[2] = value.c.c[0];
		i.c[2] = value.c.c[1];
		r.c[3] = value.c.c[0];
		i.c[3] = value.c.c[1];
	}


	AML_FUNCTION AML_PREFIX(Vector4D_32) real() {
		return AML_PREFIX(Vector4D_32)(r.c);
	}

	AML_FUNCTION AML_PREFIX(Vector4D_32) complex() {
		return AML_PREFIX(Vector4D_32)(i.c);
	}

	AML_FUNCTION AML_PREFIX(Complex32) operator[](uint64_t location) {
		return AML_PREFIX(Complex32)(r.c[location], i.c[location]);
	}

	AML_FUNCTION void set(uint64_t location, AML_PREFIX(Complex32) value) {
		r.c[location] = value.c.c[0];
		i.c[location] = value.c.c[1];
	}

	AML_FUNCTION AML_PREFIX(Array4Complex32) *add(const AML_PREFIX(Array4Complex32) a) {
		i.c[0] += a.i.c[0];
		i.c[1] += a.i.c[1];
		i.c[2] += a.i.c[2];
		i.c[3] += a.i.c[3];
		r.c[0] += a.r.c[0];
		r.c[1] += a.r.c[1];
		r.c[2] += a.r.c[2];
		r.c[3] += a.r.c[3];
		return this;
	}

	AML_FUNCTION AML_PREFIX(Array4Complex32) *add(const AML_PREFIX(Complex32) a) {
		i.c[0] += a.c.c[1];
		i.c[1] += a.c.c[1];
		i.c[2] += a.c.c[1];
		i.c[3] += a.c.c[1];
		r.c[0] += a.c.c[0];
		r.c[1] += a.c.c[0];
		r.c[2] += a.c.c[0];
		r.c[3] += a.c.c[0];
		return this;
	}

	AML_FUNCTION void operator+=(const AML_PREFIX(Array4Complex32) a) {
		i.c[0] += a.i.c[0];
		i.c[1] += a.i.c[1];
		i.c[2] += a.i.c[2];
		i.c[3] += a.i.c[3];
		r.c[0] += a.r.c[0];
		r.c[1] += a.r.c[1];
		r.c[2] += a.r.c[2];
		r.c[3] += a.r.c[3];
	}

	AML_FUNCTION void operator+=(const AML_PREFIX(Complex32) a) {
		i.c[0] += a.c.c[1];
		i.c[1] += a.c.c[1];
		i.c[2] += a.c.c[1];
		i.c[3] += a.c.c[1];
		r.c[0] += a.c.c[0];
		r.c[1] += a.c.c[0];
		r.c[2] += a.c.c[0];
		r.c[3] += a.c.c[0];
	}


	AML_FUNCTION AML_PREFIX(Array4Complex32) operator+(const AML_PREFIX(Array4Complex32) a) const {
		AML_PREFIX(Array4Complex32) ret{};
		ret.i.c[0] = i.c[0] + a.i.c[0];
		ret.i.c[1] = i.c[1] + a.i.c[1];
		ret.i.c[2] = i.c[2] + a.i.c[2];
		ret.i.c[3] = i.c[3] + a.i.c[3];
		ret.r.c[0] = r.c[0] + a.r.c[0];
		ret.r.c[1] = r.c[1] + a.r.c[1];
		ret.r.c[2] = r.c[2] + a.r.c[2];
		ret.r.c[3] = r.c[3] + a.r.c[3];
		return ret;
	}

	AML_FUNCTION AML_PREFIX(Array4Complex32) operator+(const AML_PREFIX(Complex32) a) const {
		AML_PREFIX(Array4Complex32) ret{};
		ret.i.c[0] = i.c[0] + a.c.c[1];
		ret.i.c[1] = i.c[1] + a.c.c[1];
		ret.i.c[2] = i.c[2] + a.c.c[1];
		ret.i.c[3] = i.c[3] + a.c.c[1];
		ret.r.c[0] = r.c[0] + a.c.c[0];
		ret.r.c[1] = r.c[1] + a.c.c[0];
		ret.r.c[2] = r.c[2] + a.c.c[0];
		ret.r.c[3] = r.c[3] + a.c.c[0];
		return ret;
	}

	AML_FUNCTION AML_PREFIX(Array4Complex32) *add(const AML_PREFIX(Array4Complex32) a, AML_PREFIX(VectorU8_4D) mask) {
		if (mask.v.c[0]) {
			i.c[0] += a.i.c[0];
			r.c[0] += a.r.c[0];
		}
		if (mask.v.c[1]) {
			i.c[1] += a.i.c[1];
			r.c[1] += a.r.c[1];
		}
		if (mask.v.c[2]) {
			i.c[2] += a.i.c[2];
			r.c[2] += a.r.c[2];
		}
		if (mask.v.c[3]) {
			i.c[3] += a.i.c[3];
			r.c[3] += a.r.c[3];
		}
		return this;
	}

	AML_FUNCTION AML_PREFIX(Array4Complex32) *add(const AML_PREFIX(Complex32) a, AML_PREFIX(VectorU8_4D) mask) {
		if (mask.v.c[0]) {
			i.c[0] += a.c.c[1];
			r.c[0] += a.c.c[0];
		}
		if (mask.v.c[1]) {
			i.c[1] += a.c.c[1];
			r.c[1] += a.c.c[0];
		}
		if (mask.v.c[2]) {
			i.c[2] += a.c.c[1];
			r.c[2] += a.c.c[0];
		}
		if (mask.v.c[3]) {
			i.c[3] += a.c.c[1];
			r.c[3] += a.c.c[0];
		}
		return this;
	}


	AML_FUNCTION AML_PREFIX(Array4Complex32) *subtract(const AML_PREFIX(Array4Complex32) a) {
		i.c[0] -= a.i.c[0];
		i.c[1] -= a.i.c[1];
		i.c[2] -= a.i.c[2];
		i.c[3] -= a.i.c[3];
		r.c[0] -= a.r.c[0];
		r.c[1] -= a.r.c[1];
		r.c[2] -= a.r.c[2];
		r.c[3] -= a.r.c[3];
		return this;
	}

	AML_FUNCTION AML_PREFIX(Array4Complex32) *subtract(const AML_PREFIX(Complex32) a) {
		i.c[0] -= a.c.c[1];
		i.c[1] -= a.c.c[1];
		i.c[2] -= a.c.c[1];
		i.c[3] -= a.c.c[1];
		r.c[0] -= a.c.c[0];
		r.c[1] -= a.c.c[0];
		r.c[2] -= a.c.c[0];
		r.c[3] -= a.c.c[0];
		return this;
	}

	AML_FUNCTION void operator-=(const AML_PREFIX(Array4Complex32) a) {
		i.c[0] -= a.i.c[0];
		i.c[1] -= a.i.c[1];
		i.c[2] -= a.i.c[2];
		i.c[3] -= a.i.c[3];
		r.c[0] -= a.r.c[0];
		r.c[1] -= a.r.c[1];
		r.c[2] -= a.r.c[2];
		r.c[3] -= a.r.c[3];
	}

	AML_FUNCTION void operator-=(const AML_PREFIX(Complex32) a) {
		i.c[0] -= a.c.c[1];
		i.c[1] -= a.c.c[1];
		i.c[2] -= a.c.c[1];
		i.c[3] -= a.c.c[1];
		r.c[0] -= a.c.c[0];
		r.c[1] -= a.c.c[0];
		r.c[2] -= a.c.c[0];
		r.c[3] -= a.c.c[0];
	}

	AML_FUNCTION AML_PREFIX(Array4Complex32) operator-(const AML_PREFIX(Array4Complex32) a) const {
		AML_PREFIX(Array4Complex32) ret;
		ret.i.c[0] = i.c[0] - a.i.c[0];
		ret.i.c[1] = i.c[1] - a.i.c[1];
		ret.i.c[2] = i.c[2] - a.i.c[2];
		ret.i.c[3] = i.c[3] - a.i.c[3];
		ret.r.c[0] = r.c[0] - a.r.c[0];
		ret.r.c[1] = r.c[1] - a.r.c[1];
		ret.r.c[2] = r.c[2] - a.r.c[2];
		ret.r.c[3] = r.c[3] - a.r.c[3];
		return ret;
	}

	AML_FUNCTION AML_PREFIX(Array4Complex32) operator-(const AML_PREFIX(Complex32) a) const {
		AML_PREFIX(Array4Complex32) ret;
		ret.i.c[0] = i.c[0] - a.c.c[1];
		ret.i.c[1] = i.c[1] - a.c.c[1];
		ret.i.c[2] = i.c[2] - a.c.c[1];
		ret.i.c[3] = i.c[3] - a.c.c[1];
		ret.r.c[0] = r.c[0] - a.c.c[0];
		ret.r.c[1] = r.c[1] - a.c.c[0];
		ret.r.c[2] = r.c[2] - a.c.c[0];
		ret.r.c[3] = r.c[3] - a.c.c[0];
		return ret;
	}

	AML_FUNCTION AML_PREFIX(Array4Complex32) *
	subtract(const AML_PREFIX(Array4Complex32) a, AML_PREFIX(VectorU8_4D) mask) {
		if (mask.v.c[0]) {
			i.c[0] -= a.i.c[0];
			r.c[0] -= a.r.c[0];
		}
		if (mask.v.c[1]) {
			i.c[1] -= a.i.c[1];
			r.c[1] -= a.r.c[1];
		}
		if (mask.v.c[2]) {
			i.c[2] -= a.i.c[2];
			r.c[2] -= a.r.c[2];
		}
		if (mask.v.c[3]) {
			i.c[3] -= a.i.c[3];
			r.c[3] -= a.r.c[3];
		}
		return this;
	}

	AML_FUNCTION AML_PREFIX(Array4Complex32) *subtract(const AML_PREFIX(Complex32) a, AML_PREFIX(VectorU8_4D) mask) {
		if (mask.v.c[0]) {
			i.c[0] -= a.c.c[1];
			r.c[0] -= a.c.c[0];
		}
		if (mask.v.c[1]) {
			i.c[1] -= a.c.c[1];
			r.c[1] -= a.c.c[0];
		}
		if (mask.v.c[2]) {
			i.c[2] -= a.c.c[1];
			r.c[2] -= a.c.c[0];
		}
		if (mask.v.c[3]) {
			i.c[3] -= a.c.c[1];
			r.c[3] -= a.c.c[0];
		}
		return this;
	}


	AML_FUNCTION AML_PREFIX(Array4Complex32) operator*(const AML_PREFIX(Array4Complex32) &a) const {
		AML_PREFIX(Array4Complex32) ret;
		ret.r.c[0] = r.c[0] * a.r.c[0] - i.c[0] * a.i.c[0];
		ret.i.c[0] = r.c[0] * a.i.c[0] + i.c[0] * a.r.c[0];
		ret.r.c[1] = r.c[1] * a.r.c[1] - i.c[1] * a.i.c[1];
		ret.i.c[1] = r.c[1] * a.i.c[1] + i.c[1] * a.r.c[1];
		ret.r.c[2] = r.c[2] * a.r.c[2] - i.c[2] * a.i.c[2];
		ret.i.c[2] = r.c[2] * a.i.c[2] + i.c[2] * a.r.c[2];
		ret.r.c[3] = r.c[3] * a.r.c[3] - i.c[3] * a.i.c[3];
		ret.i.c[3] = r.c[3] * a.i.c[3] + i.c[3] * a.r.c[3];


		return ret;
	}

	AML_FUNCTION AML_PREFIX(Array4Complex32) *multiply(const AML_PREFIX(Array4Complex32) &a) {
		float d1;
		float d2;
		d1 = r.c[0] * a.r.c[0] - i.c[0] * a.i.c[0];
		d2 = r.c[0] * a.i.c[0] + i.c[0] * a.r.c[0];
		r.c[0] = d1;
		i.c[0] = d2;

		d1 = r.c[1] * a.r.c[1] - i.c[1] * a.i.c[1];
		d2 = r.c[1] * a.i.c[1] + i.c[1] * a.r.c[1];
		r.c[1] = d1;
		i.c[1] = d2;
		d1 = r.c[2] * a.r.c[2] - i.c[2] * a.i.c[2];
		d2 = r.c[2] * a.i.c[2] + i.c[2] * a.r.c[2];
		r.c[2] = d1;
		i.c[2] = d2;
		d1 = r.c[3] * a.r.c[3] - i.c[3] * a.i.c[3];
		d2 = r.c[3] * a.i.c[3] + i.c[3] * a.r.c[3];
		r.c[3] = d1;
		i.c[3] = d2;
		return this;
	}

	AML_FUNCTION AML_PREFIX(Array4Complex32) operator*(const AML_PREFIX(Complex32) &a) const {
		AML_PREFIX(Array4Complex32) ret;
		ret.r.c[0] = r.c[0] * a.c.c[0] - i.c[0] * a.c.c[1];
		ret.i.c[0] = r.c[0] * a.c.c[1] + i.c[0] * a.c.c[0];
		ret.r.c[1] = r.c[1] * a.c.c[0] - i.c[1] * a.c.c[1];
		ret.i.c[1] = r.c[1] * a.c.c[1] + i.c[1] * a.c.c[0];
		ret.r.c[2] = r.c[2] * a.c.c[0] - i.c[2] * a.c.c[1];
		ret.i.c[2] = r.c[2] * a.c.c[1] + i.c[2] * a.c.c[0];
		ret.r.c[3] = r.c[3] * a.c.c[0] - i.c[3] * a.c.c[1];
		ret.i.c[3] = r.c[3] * a.c.c[1] + i.c[3] * a.c.c[0];
		return ret;
	}

	AML_FUNCTION void operator*=(const AML_PREFIX(Array4Complex32) &a) {
		float d1;
		float d2;
		d1 = r.c[0] * a.r.c[0] - i.c[0] * a.i.c[0];
		d2 = r.c[0] * a.i.c[0] + i.c[0] * a.r.c[0];
		r.c[0] = d1;
		i.c[0] = d2;

		d1 = r.c[1] * a.r.c[1] - i.c[1] * a.i.c[1];
		d2 = r.c[1] * a.i.c[1] + i.c[1] * a.r.c[1];
		r.c[1] = d1;
		i.c[1] = d2;
		d1 = r.c[2] * a.r.c[2] - i.c[2] * a.i.c[2];
		d2 = r.c[2] * a.i.c[2] + i.c[2] * a.r.c[2];
		r.c[2] = d1;
		i.c[2] = d2;
		d1 = r.c[3] * a.r.c[3] - i.c[3] * a.i.c[3];
		d2 = r.c[3] * a.i.c[3] + i.c[3] * a.r.c[3];
		r.c[3] = d1;
		i.c[3] = d2;
	}

	AML_FUNCTION void operator*=(const AML_PREFIX(Complex32) &a) {
		float d1;
		float d2;
		d1 = r.c[0] * a.c.c[0] - i.c[0] * a.c.c[1];
		d2 = r.c[0] * a.c.c[1] + i.c[0] * a.c.c[0];
		r.c[0] = d1;
		i.c[0] = d2;
		d1 = r.c[1] * a.c.c[0] - i.c[1] * a.c.c[1];
		d2 = r.c[1] * a.c.c[1] + i.c[1] * a.c.c[0];
		r.c[1] = d1;
		i.c[1] = d2;
		d1 = r.c[2] * a.c.c[0] - i.c[2] * a.c.c[1];
		d2 = r.c[2] * a.c.c[1] + i.c[2] * a.c.c[0];
		r.c[2] = d1;
		i.c[2] = d2;
		d1 = r.c[3] * a.c.c[0] - i.c[3] * a.c.c[1];
		d2 = r.c[3] * a.c.c[1] + i.c[3] * a.c.c[0];
		r.c[3] = d1;
		i.c[3] = d2;
	}

	AML_FUNCTION AML_PREFIX(Array4Complex32) *multiply(const AML_PREFIX(Complex32) &a) {
		float d1;
		float d2;
		d1 = r.c[0] * a.c.c[0] - i.c[0] * a.c.c[1];
		d2 = r.c[0] * a.c.c[1] + i.c[0] * a.c.c[0];
		r.c[0] = d1;
		i.c[0] = d2;
		d1 = r.c[1] * a.c.c[0] - i.c[1] * a.c.c[1];
		d2 = r.c[1] * a.c.c[1] + i.c[1] * a.c.c[0];
		r.c[1] = d1;
		i.c[1] = d2;
		d1 = r.c[2] * a.c.c[0] - i.c[2] * a.c.c[1];
		d2 = r.c[2] * a.c.c[1] + i.c[2] * a.c.c[0];
		r.c[2] = d1;
		i.c[2] = d2;
		d1 = r.c[3] * a.c.c[0] - i.c[3] * a.c.c[1];
		d2 = r.c[3] * a.c.c[1] + i.c[3] * a.c.c[0];
		r.c[3] = d1;
		i.c[3] = d2;
		return this;
	}

	AML_FUNCTION AML_PREFIX(Array4Complex32) *
	multiply(const AML_PREFIX(Complex32) &a, const AML_PREFIX(VectorU8_4D) &mask) {
		float d1;
		float d2;
		if (mask.v.c[0]) {
			d1 = r.c[0] * a.c.c[0] - i.c[0] * a.c.c[1];
			d2 = r.c[0] * a.c.c[1] + i.c[0] * a.c.c[0];
			r.c[0] = d1;
			i.c[0] = d2;
		}
		if (mask.v.c[1]) {
			d1 = r.c[1] * a.c.c[0] - i.c[1] * a.c.c[1];
			d2 = r.c[1] * a.c.c[1] + i.c[1] * a.c.c[0];
			r.c[1] = d1;
			i.c[1] = d2;
		}
		if (mask.v.c[2]) {
			d1 = r.c[2] * a.c.c[0] - i.c[2] * a.c.c[1];
			d2 = r.c[2] * a.c.c[1] + i.c[2] * a.c.c[0];
			r.c[2] = d1;
			i.c[2] = d2;
		}
		if (mask.v.c[3]) {
			d1 = r.c[3] * a.c.c[0] - i.c[3] * a.c.c[1];
			d2 = r.c[3] * a.c.c[1] + i.c[3] * a.c.c[0];
			r.c[3] = d1;
			i.c[3] = d2;
		}
		return this;


	}

	AML_FUNCTION AML_PREFIX(Array4Complex32) *
	multiply(const AML_PREFIX(Array4Complex32) &a, const AML_PREFIX(VectorU8_4D) &mask) {
		float d1;
		float d2;
		if (mask.v.c[0]) {
			d1 = r.c[0] * a.r.c[0] - i.c[0] * a.i.c[0];
			d2 = r.c[0] * a.i.c[0] + i.c[0] * a.r.c[0];
			r.c[0] = d1;
			i.c[0] = d2;
		}
		if (mask.v.c[1]) {
			d1 = r.c[1] * a.r.c[1] - i.c[1] * a.i.c[1];
			d2 = r.c[1] * a.i.c[1] + i.c[1] * a.r.c[1];
			r.c[1] = d1;
			i.c[1] = d2;
		}
		if (mask.v.c[2]) {
			d1 = r.c[2] * a.r.c[2] - i.c[2] * a.i.c[2];
			d2 = r.c[2] * a.i.c[2] + i.c[2] * a.r.c[2];
			r.c[2] = d1;
			i.c[2] = d2;
		}
		if (mask.v.c[3]) {
			d1 = r.c[3] * a.r.c[3] - i.c[3] * a.i.c[3];
			d2 = r.c[3] * a.i.c[3] + i.c[3] * a.r.c[3];
			r.c[3] = d1;
			i.c[3] = d2;
		}
		return this;
	}

	AML_FUNCTION AML_PREFIX(Array4Complex32) *square() {
		float d1;
		float d2;
		d1 = r.c[0] * r.c[0] - i.c[0] * i.c[0];
		d2 = r.c[0] * i.c[0] + i.c[0] * r.c[0];
		r.c[0] = d1;
		i.c[0] = d2;
		d1 = r.c[1] * r.c[1] - i.c[1] * i.c[1];
		d2 = r.c[1] * i.c[1] + i.c[1] * r.c[1];
		r.c[1] = d1;
		i.c[1] = d2;
		d1 = r.c[2] * r.c[2] - i.c[2] * i.c[2];
		d2 = r.c[2] * i.c[2] + i.c[2] * r.c[2];
		r.c[2] = d1;
		i.c[2] = d2;
		d1 = r.c[3] * r.c[3] - i.c[3] * i.c[3];
		d2 = r.c[3] * i.c[3] + i.c[3] * r.c[3];
		r.c[3] = d1;
		i.c[3] = d2;
		return this;
	}

	AML_FUNCTION AML_PREFIX(Array4Complex32) *square(const AML_PREFIX(VectorU8_4D) &mask) {
		float d1;
		float d2;
		if (mask.v.c[0]) {
			d1 = r.c[0] * r.c[0] - i.c[0] * i.c[0];
			d2 = r.c[0] * i.c[0] + i.c[0] * r.c[0];
			r.c[0] = d1;
			i.c[0] = d2;
		}
		if (mask.v.c[1]) {
			d1 = r.c[1] * r.c[1] - i.c[1] * i.c[1];
			d2 = r.c[1] * i.c[1] + i.c[1] * r.c[1];
			r.c[1] = d1;
			i.c[1] = d2;
		}
		if (mask.v.c[2]) {
			d1 = r.c[2] * r.c[2] - i.c[2] * i.c[2];
			d2 = r.c[2] * i.c[2] + i.c[2] * r.c[2];
			r.c[2] = d1;
			i.c[2] = d2;
		}
		if (mask.v.c[3]) {
			d1 = r.c[3] * r.c[3] - i.c[3] * i.c[3];
			d2 = r.c[3] * i.c[3] + i.c[3] * r.c[3];
			r.c[3] = d1;
			i.c[3] = d2;
		}
		return this;
	}

	AML_FUNCTION AML_PREFIX(Array4Complex32) *divide(const AML_PREFIX(Complex32) a) {
		float d1 = (r.c[0] * a.c.c[0] + i.c[0] * a.c.c[1]) / (a.c.c[0] * a.c.c[0] + a.c.c[1] * a.c.c[1]);
		float d2 = (i.c[0] * a.c.c[0] - r.c[0] * a.c.c[1]) / (a.c.c[0] * a.c.c[0] + a.c.c[1] * a.c.c[1]);
		r.c[0] = d1;
		i.c[0] = d2;
		d1 = (r.c[1] * a.c.c[0] + i.c[1] * a.c.c[1]) / (a.c.c[0] * a.c.c[0] + a.c.c[1] * a.c.c[1]);
		d2 = (i.c[1] * a.c.c[0] - r.c[1] * a.c.c[1]) / (a.c.c[0] * a.c.c[0] + a.c.c[1] * a.c.c[1]);
		r.c[1] = d1;
		i.c[1] = d2;
		d1 = (r.c[2] * a.c.c[0] + i.c[2] * a.c.c[1]) / (a.c.c[0] * a.c.c[0] + a.c.c[1] * a.c.c[1]);
		d2 = (i.c[2] * a.c.c[0] - r.c[2] * a.c.c[1]) / (a.c.c[0] * a.c.c[0] + a.c.c[1] * a.c.c[1]);
		r.c[2] = d1;
		i.c[2] = d2;
		d1 = (r.c[3] * a.c.c[0] + i.c[3] * a.c.c[1]) / (a.c.c[0] * a.c.c[0] + a.c.c[1] * a.c.c[1]);
		d2 = (i.c[3] * a.c.c[0] - r.c[3] * a.c.c[1]) / (a.c.c[0] * a.c.c[0] + a.c.c[1] * a.c.c[1]);
		r.c[3] = d1;
		i.c[3] = d2;
		return this;
	}

	AML_FUNCTION AML_PREFIX(Array4Complex32) *
	divide(const AML_PREFIX(Complex32) a, const AML_PREFIX(VectorU8_4D) &mask) {
		float d1;
		float d2;
		if (mask.v.c[0]) {
			d1 = (r.c[0] * a.c.c[0] + i.c[0] * a.c.c[1]) / (a.c.c[0] * a.c.c[0] + a.c.c[1] * a.c.c[1]);
			d2 = (i.c[0] * a.c.c[0] - r.c[0] * a.c.c[1]) / (a.c.c[0] * a.c.c[0] + a.c.c[1] * a.c.c[1]);
			r.c[0] = d1;
			i.c[0] = d2;
		}
		if (mask.v.c[1]) {
			d1 = (r.c[1] * a.c.c[0] + i.c[1] * a.c.c[1]) / (a.c.c[0] * a.c.c[0] + a.c.c[1] * a.c.c[1]);
			d2 = (i.c[1] * a.c.c[0] - r.c[1] * a.c.c[1]) / (a.c.c[0] * a.c.c[0] + a.c.c[1] * a.c.c[1]);
			r.c[1] = d1;
			i.c[1] = d2;
		}
		if (mask.v.c[2]) {
			d1 = (r.c[2] * a.c.c[0] + i.c[2] * a.c.c[1]) / (a.c.c[0] * a.c.c[0] + a.c.c[1] * a.c.c[1]);
			d2 = (i.c[2] * a.c.c[0] - r.c[2] * a.c.c[1]) / (a.c.c[0] * a.c.c[0] + a.c.c[1] * a.c.c[1]);
			r.c[2] = d1;
			i.c[2] = d2;
		}
		if (mask.v.c[3]) {
			d1 = (r.c[3] * a.c.c[0] + i.c[3] * a.c.c[1]) / (a.c.c[0] * a.c.c[0] + a.c.c[1] * a.c.c[1]);
			d2 = (i.c[3] * a.c.c[0] - r.c[3] * a.c.c[1]) / (a.c.c[0] * a.c.c[0] + a.c.c[1] * a.c.c[1]);
			r.c[3] = d1;
			i.c[3] = d2;
		}
		return this;
	}

	AML_FUNCTION AML_PREFIX(Array4Complex32) *divide(const AML_PREFIX(Array4Complex32) &a) {
		float d1 = (r.c[0] * a.r.c[0] + i.c[0] * a.i.c[0]) / (a.r.c[0] * a.r.c[0] + a.i.c[0] * a.i.c[0]);
		float d2 = (i.c[0] * a.r.c[0] - r.c[0] * a.i.c[0]) / (a.r.c[0] * a.r.c[0] + a.i.c[0] * a.i.c[0]);
		r.c[0] = d1;
		i.c[0] = d2;
		d1 = (r.c[1] * a.r.c[1] + i.c[1] * a.i.c[1]) / (a.r.c[1] * a.r.c[1] + a.i.c[1] * a.i.c[1]);
		d2 = (i.c[1] * a.r.c[1] - r.c[1] * a.i.c[1]) / (a.r.c[1] * a.r.c[1] + a.i.c[1] * a.i.c[1]);
		r.c[1] = d1;
		i.c[1] = d2;
		d1 = (r.c[2] * a.r.c[2] + i.c[2] * a.i.c[2]) / (a.r.c[2] * a.r.c[2] + a.i.c[2] * a.i.c[2]);
		d2 = (i.c[2] * a.r.c[2] - r.c[2] * a.i.c[2]) / (a.r.c[2] * a.r.c[2] + a.i.c[2] * a.i.c[2]);
		r.c[2] = d1;
		i.c[2] = d2;
		d1 = (r.c[3] * a.r.c[3] + i.c[3] * a.i.c[3]) / (a.r.c[3] * a.r.c[3] + a.i.c[3] * a.i.c[3]);
		d2 = (i.c[3] * a.r.c[3] - r.c[3] * a.i.c[3]) / (a.r.c[3] * a.r.c[3] + a.i.c[3] * a.i.c[3]);
		r.c[3] = d1;
		i.c[3] = d2;
		return this;
	}

	AML_FUNCTION AML_PREFIX(Array4Complex32) *
	divide(const AML_PREFIX(Array4Complex32) &a, const AML_PREFIX(VectorU8_4D) &mask) {
		float d1;
		float d2;
		if (mask.v.c[0]) {
			d1 = (r.c[0] * a.i.c[0] + i.c[0] * a.i.c[1]) / (a.i.c[0] * a.i.c[0] + a.i.c[1] * a.i.c[1]);
			d2 = (i.c[0] * a.i.c[0] - r.c[0] * a.i.c[1]) / (a.i.c[0] * a.i.c[0] + a.i.c[1] * a.i.c[1]);
			r.c[0] = d1;
			i.c[0] = d2;
		}
		if (mask.v.c[1]) {
			d1 = (r.c[1] * a.r.c[1] + i.c[1] * a.i.c[1]) / (a.r.c[1] * a.r.c[1] + a.i.c[1] * a.i.c[1]);
			d2 = (i.c[1] * a.r.c[1] - r.c[1] * a.i.c[1]) / (a.r.c[1] * a.r.c[1] + a.i.c[1] * a.i.c[1]);
			r.c[1] = d1;
			i.c[1] = d2;
		}
		if (mask.v.c[2]) {
			d1 = (r.c[2] * a.r.c[2] + i.c[2] * a.i.c[2]) / (a.r.c[2] * a.r.c[2] + a.i.c[2] * a.i.c[2]);
			d2 = (i.c[2] * a.r.c[2] - r.c[2] * a.i.c[2]) / (a.r.c[2] * a.r.c[2] + a.i.c[2] * a.i.c[2]);
			r.c[2] = d1;
			i.c[2] = d2;
		}
		if (mask.v.c[3]) {
			d1 = (r.c[3] * a.r.c[3] + i.c[3] * a.i.c[3]) / (a.r.c[3] * a.r.c[3] + a.i.c[3] * a.i.c[3]);
			d2 = (i.c[3] * a.r.c[3] - r.c[3] * a.i.c[3]) / (a.r.c[3] * a.r.c[3] + a.i.c[3] * a.i.c[3]);
			r.c[3] = d1;
			i.c[3] = d2;
		}
		return this;
	}

	AML_FUNCTION AML_PREFIX(Array4Complex32) operator/(const AML_PREFIX(Complex32) &a) const {
		AML_PREFIX(Array4Complex32) ret;
		float d1 = (r.c[0] * a.c.c[0] + i.c[0] * a.c.c[1]) / (a.c.c[0] * a.c.c[0] + a.c.c[1] * a.c.c[1]);
		float d2 = (i.c[0] * a.c.c[0] - r.c[0] * a.c.c[1]) / (a.c.c[0] * a.c.c[0] + a.c.c[1] * a.c.c[1]);
		ret.r.c[0] = d1;
		ret.i.c[0] = d2;
		d1 = (r.c[1] * a.c.c[0] + i.c[1] * a.c.c[1]) / (a.c.c[0] * a.c.c[0] + a.c.c[1] * a.c.c[1]);
		d2 = (i.c[1] * a.c.c[0] - r.c[1] * a.c.c[1]) / (a.c.c[0] * a.c.c[0] + a.c.c[1] * a.c.c[1]);
		ret.r.c[1] = d1;
		ret.i.c[1] = d2;
		d1 = (r.c[2] * a.c.c[0] + i.c[2] * a.c.c[1]) / (a.c.c[0] * a.c.c[0] + a.c.c[1] * a.c.c[1]);
		d2 = (i.c[2] * a.c.c[0] - r.c[2] * a.c.c[1]) / (a.c.c[0] * a.c.c[0] + a.c.c[1] * a.c.c[1]);
		ret.r.c[2] = d1;
		ret.i.c[2] = d2;
		d1 = (r.c[3] * a.c.c[0] + i.c[3] * a.c.c[1]) / (a.c.c[0] * a.c.c[0] + a.c.c[1] * a.c.c[1]);
		d2 = (i.c[3] * a.c.c[0] - r.c[3] * a.c.c[1]) / (a.c.c[0] * a.c.c[0] + a.c.c[1] * a.c.c[1]);
		ret.r.c[3] = d1;
		ret.i.c[3] = d2;
		return ret;
	}

	AML_FUNCTION AML_PREFIX(Array4Complex32) operator/(const AML_PREFIX(Array4Complex32) &a) const {
		AML_PREFIX(Array4Complex32) ret;
		float d1 = (r.c[0] * a.r.c[0] + i.c[0] * a.i.c[0]) / (a.r.c[0] * a.r.c[0] + a.i.c[0] * a.i.c[0]);
		float d2 = (i.c[0] * a.r.c[0] - r.c[0] * a.i.c[0]) / (a.r.c[0] * a.r.c[0] + a.i.c[0] * a.i.c[0]);
		ret.r.c[0] = d1;
		ret.i.c[0] = d2;
		d1 = (r.c[1] * a.r.c[1] + i.c[1] * a.i.c[1]) / (a.r.c[1] * a.r.c[1] + a.i.c[1] * a.i.c[1]);
		d2 = (i.c[1] * a.r.c[1] - r.c[1] * a.i.c[1]) / (a.r.c[1] * a.r.c[1] + a.i.c[1] * a.i.c[1]);
		ret.r.c[1] = d1;
		ret.i.c[1] = d2;
		d1 = (r.c[2] * a.r.c[2] + i.c[2] * a.i.c[2]) / (a.r.c[2] * a.r.c[2] + a.i.c[2] * a.i.c[2]);
		d2 = (i.c[2] * a.r.c[2] - r.c[2] * a.i.c[2]) / (a.r.c[2] * a.r.c[2] + a.i.c[2] * a.i.c[2]);
		ret.r.c[2] = d1;
		ret.i.c[2] = d2;
		d1 = (r.c[3] * a.r.c[3] + i.c[3] * a.i.c[3]) / (a.r.c[3] * a.r.c[3] + a.i.c[3] * a.i.c[3]);
		d2 = (i.c[3] * a.r.c[3] - r.c[3] * a.i.c[3]) / (a.r.c[3] * a.r.c[3] + a.i.c[3] * a.i.c[3]);
		ret.r.c[3] = d1;
		ret.i.c[3] = d2;
		return ret;
	}

	AML_FUNCTION void operator/=(const AML_PREFIX(Complex32) &a) {
		float d1 = (r.c[0] * a.c.c[0] + i.c[0] * a.c.c[1]) / (a.c.c[0] * a.c.c[0] + a.c.c[1] * a.c.c[1]);
		float d2 = (i.c[0] * a.c.c[0] - r.c[0] * a.c.c[1]) / (a.c.c[0] * a.c.c[0] + a.c.c[1] * a.c.c[1]);
		r.c[0] = d1;
		i.c[0] = d2;
		d1 = (r.c[1] * a.c.c[0] + i.c[1] * a.c.c[1]) / (a.c.c[0] * a.c.c[0] + a.c.c[1] * a.c.c[1]);
		d2 = (i.c[1] * a.c.c[0] - r.c[1] * a.c.c[1]) / (a.c.c[0] * a.c.c[0] + a.c.c[1] * a.c.c[1]);
		r.c[1] = d1;
		i.c[1] = d2;
		d1 = (r.c[2] * a.c.c[0] + i.c[2] * a.c.c[1]) / (a.c.c[0] * a.c.c[0] + a.c.c[1] * a.c.c[1]);
		d2 = (i.c[2] * a.c.c[0] - r.c[2] * a.c.c[1]) / (a.c.c[0] * a.c.c[0] + a.c.c[1] * a.c.c[1]);
		r.c[2] = d1;
		i.c[2] = d2;
		d1 = (r.c[3] * a.c.c[0] + i.c[3] * a.c.c[1]) / (a.c.c[0] * a.c.c[0] + a.c.c[1] * a.c.c[1]);
		d2 = (i.c[3] * a.c.c[0] - r.c[3] * a.c.c[1]) / (a.c.c[0] * a.c.c[0] + a.c.c[1] * a.c.c[1]);
		r.c[3] = d1;
		i.c[3] = d2;
	}

	AML_FUNCTION void operator/=(const AML_PREFIX(Array4Complex32) &a) {
		float d1 = (r.c[0] * a.r.c[0] + i.c[0] * a.i.c[0]) / (a.r.c[0] * a.r.c[0] + a.i.c[0] * a.i.c[0]);
		float d2 = (i.c[0] * a.r.c[0] - r.c[0] * a.i.c[0]) / (a.r.c[0] * a.r.c[0] + a.i.c[0] * a.i.c[0]);
		r.c[0] = d1;
		i.c[0] = d2;
		d1 = (r.c[1] * a.r.c[1] + i.c[1] * a.i.c[1]) / (a.r.c[1] * a.r.c[1] + a.i.c[1] * a.i.c[1]);
		d2 = (i.c[1] * a.r.c[1] - r.c[1] * a.i.c[1]) / (a.r.c[1] * a.r.c[1] + a.i.c[1] * a.i.c[1]);
		r.c[1] = d1;
		i.c[1] = d2;
		d1 = (r.c[2] * a.r.c[2] + i.c[2] * a.i.c[2]) / (a.r.c[2] * a.r.c[2] + a.i.c[2] * a.i.c[2]);
		d2 = (i.c[2] * a.r.c[2] - r.c[2] * a.i.c[2]) / (a.r.c[2] * a.r.c[2] + a.i.c[2] * a.i.c[2]);
		r.c[2] = d1;
		i.c[2] = d2;
		d1 = (r.c[3] * a.r.c[3] + i.c[3] * a.i.c[3]) / (a.r.c[3] * a.r.c[3] + a.i.c[3] * a.i.c[3]);
		d2 = (i.c[3] * a.r.c[3] - r.c[3] * a.i.c[3]) / (a.r.c[3] * a.r.c[3] + a.i.c[3] * a.i.c[3]);
		r.c[3] = d1;
		i.c[3] = d2;
	}

	AML_FUNCTION AML_PREFIX(Array4Complex32) *sqrt() {
		float d1;
		float d2;
		d2 = ::sqrt((-r.c[0] + ::sqrt(r.c[0] * r.c[0] + i.c[0] * i.c[0])) / (2));
		if (d2 == 0) UNLIKELY {
			d1 = ::sqrt(r.c[0]);
		} else LIKELY {
			d1 = i.c[0] / (2 * d2);
		}
		r.c[0] = d1;
		i.c[0] = d2;
		d2 = ::sqrt((-r.c[1] + ::sqrt(r.c[1] * r.c[1] + i.c[1] * i.c[1])) / (2));
		if (d2 == 0) UNLIKELY {
			d1 = ::sqrt(r.c[1]);
		} else LIKELY {
			d1 = i.c[1] / (2 * d2);
		}
		r.c[1] = d1;
		i.c[1] = d2;
		d2 = ::sqrt((-r.c[2] + ::sqrt(r.c[2] * r.c[2] + i.c[2] * i.c[2])) / (2));
		if (d2 == 0) UNLIKELY {
			d1 = ::sqrt(r.c[2]);
		} else LIKELY {
			d1 = i.c[2] / (2 * d2);
		}
		r.c[2] = d1;
		i.c[2] = d2;
		d2 = ::sqrt((-r.c[3] + ::sqrt(r.c[3] * r.c[3] + i.c[3] * i.c[3])) / (2));
		if (d2 == 0) UNLIKELY {
			d1 = ::sqrt(r.c[3]);
		} else LIKELY {
			d1 = i.c[3] / (2 * d2);
		}
		return this;
	}

	AML_FUNCTION AML_PREFIX(Array4Complex32) *sqrt(const AML_PREFIX(VectorU8_4D) mask) {
		float d1;
		float d2;
		if (mask.v.c[0]) {
			d2 = ::sqrt((-r.c[0] + ::sqrt(r.c[0] * r.c[0] + i.c[0] * i.c[0])) / (2));
			if (d2 == 0) UNLIKELY {
				d1 = ::sqrt(r.c[0]);
			} else LIKELY {
				d1 = i.c[0] / (2 * d2);
			}
			r.c[0] = d1;
			i.c[0] = d2;
		}
		if (mask.v.c[1]) {
			d2 = ::sqrt((-r.c[1] + ::sqrt(r.c[1] * r.c[1] + i.c[1] * i.c[1])) / (2));
			if (d2 == 0) UNLIKELY {
				d1 = ::sqrt(r.c[1]);
			} else LIKELY {
				d1 = i.c[1] / (2 * d2);
			}
			r.c[1] = d1;
			i.c[1] = d2;
		}
		if (mask.v.c[2]) {
			d2 = ::sqrt((-r.c[2] + ::sqrt(r.c[2] * r.c[2] + i.c[2] * i.c[2])) / (2));
			if (d2 == 0) UNLIKELY {
				d1 = ::sqrt(r.c[2]);
			} else LIKELY {
				d1 = i.c[2] / (2 * d2);
			}
			r.c[2] = d1;
			i.c[2] = d2;
		}
		if (mask.v.c[3]) {
			d2 = ::sqrt((-r.c[3] + ::sqrt(r.c[3] * r.c[3] + i.c[3] * i.c[3])) / (2));
			if (d2 == 0) UNLIKELY {
				d1 = ::sqrt(r.c[3]);
			} else LIKELY {
				d1 = i.c[3] / (2 * d2);
			}
			r.c[3] = d1;
			i.c[3] = d2;
		}
		return this;
	}

	AML_FUNCTION AML_PREFIX(Array4Complex32) *sin() {
		float d1;
		float d2;
		d1 = ::sin(r.c[0]) * ::cosh(i.c[0]);
		d2 = ::cos(i.c[0]) * ::sinh(r.c[0]);
		r.c[0] = d1;
		i.c[0] = d2;
		d1 = ::sin(r.c[1]) * ::cosh(i.c[1]);
		d2 = ::cos(i.c[1]) * ::sinh(r.c[1]);
		r.c[1] = d1;
		i.c[1] = d2;
		d1 = ::sin(r.c[2]) * ::cosh(i.c[2]);
		d2 = ::cos(i.c[2]) * ::sinh(r.c[2]);
		r.c[2] = d1;
		i.c[2] = d2;
		d1 = ::sin(r.c[3]) * ::cosh(i.c[3]);
		d2 = ::cos(i.c[3]) * ::sinh(r.c[3]);
		r.c[3] = d1;
		i.c[3] = d2;
		return this;
	}

	AML_FUNCTION AML_PREFIX(Array4Complex32) *cos() {
		float d1;
		float d2;
		d1 = ::cos(r.c[0]) * ::cosh(i.c[0]);
		d2 = -::sin(i.c[0]) * ::sinh(r.c[0]);
		r.c[0] = d1;
		i.c[0] = d2;
		d1 = ::cos(r.c[1]) * ::cosh(i.c[1]);
		d2 = -::sin(i.c[1]) * ::sinh(r.c[1]);
		r.c[1] = d1;
		i.c[1] = d2;
		d1 = ::cos(r.c[2]) * ::cosh(i.c[2]);
		d2 = -::sin(i.c[2]) * ::sinh(r.c[2]);
		r.c[2] = d1;
		i.c[2] = d2;
		d1 = ::cos(r.c[3]) * ::cosh(i.c[3]);
		d2 = -::sin(i.c[3]) * ::sinh(r.c[3]);
		r.c[3] = d1;
		i.c[3] = d2;
		return this;
	}

	AML_FUNCTION AML_PREFIX(Array4Complex32) *tan() {
		float d1;
		float d2;
		d1 = ::sin(r.c[0] + r.c[0]) / (::cos(r.c[0] + r.c[0]) * ::cosh(i.c[0] + i.c[0]));
		d2 = ::sinh(i.c[0] + i.c[0]) / (::cos(r.c[0] + r.c[0]) * ::cosh(i.c[0] + i.c[0]));
		r.c[0] = d1;
		i.c[0] = d2;
		d1 = ::sin(r.c[1] + r.c[1]) / (::cos(r.c[1] + r.c[1]) * ::cosh(i.c[1] + i.c[1]));
		d2 = ::sinh(i.c[1] + i.c[1]) / (::cos(r.c[1] + r.c[1]) * ::cosh(i.c[1] + i.c[1]));
		r.c[1] = d1;
		i.c[1] = d2;
		d1 = ::sin(r.c[2] + r.c[2]) / (::cos(r.c[2] + r.c[2]) * ::cosh(i.c[2] + i.c[2]));
		d2 = ::sinh(i.c[2] + i.c[2]) / (::cos(r.c[2] + r.c[2]) * ::cosh(i.c[2] + i.c[2]));
		r.c[2] = d1;
		i.c[2] = d2;
		d1 = ::sin(r.c[3] + r.c[3]) / (::cos(r.c[3] + r.c[3]) * ::cosh(i.c[3] + i.c[3]));
		d2 = ::sinh(i.c[3] + i.c[3]) / (::cos(r.c[3] + r.c[3]) * ::cosh(i.c[3] + i.c[3]));
		r.c[3] = d1;
		i.c[3] = d2;
		return this;
	}

	AML_FUNCTION AML_PREFIX(Array4Complex32) *sin(const AML_PREFIX(VectorU8_4D) mask) {
		float d1;
		float d2;
		if (mask.v.c[0]) {
			d1 = ::sin(r.c[0]) * ::cosh(i.c[0]);
			d2 = ::cos(i.c[0]) * ::sinh(r.c[0]);
			r.c[0] = d1;
			i.c[0] = d2;
		}
		if (mask.v.c[1]) {
			d1 = ::sin(r.c[1]) * ::cosh(i.c[1]);
			d2 = ::cos(i.c[1]) * ::sinh(r.c[1]);
			r.c[1] = d1;
			i.c[1] = d2;
		}
		if (mask.v.c[2]) {
			d1 = ::sin(r.c[2]) * ::cosh(i.c[2]);
			d2 = ::cos(i.c[2]) * ::sinh(r.c[2]);
			r.c[2] = d1;
			i.c[2] = d2;
		}
		if (mask.v.c[3]) {
			d1 = ::sin(r.c[3]) * ::cosh(i.c[3]);
			d2 = ::cos(i.c[3]) * ::sinh(r.c[3]);
			r.c[3] = d1;
			i.c[3] = d2;
		}
		return this;
	}

	AML_FUNCTION AML_PREFIX(Array4Complex32) *cos(const AML_PREFIX(VectorU8_4D) mask) {
		float d1;
		float d2;
		if (mask.v.c[0]) {
			d1 = ::cos(r.c[0]) * ::cosh(i.c[0]);
			d2 = -::sin(i.c[0]) * ::sinh(r.c[0]);
			r.c[0] = d1;
			i.c[0] = d2;
		}
		if (mask.v.c[1]) {
			d1 = ::cos(r.c[1]) * ::cosh(i.c[1]);
			d2 = -::sin(i.c[1]) * ::sinh(r.c[1]);
			r.c[1] = d1;
			i.c[1] = d2;
		}
		if (mask.v.c[2]) {
			d1 = ::cos(r.c[2]) * ::cosh(i.c[2]);
			d2 = -::sin(i.c[2]) * ::sinh(r.c[2]);
			r.c[2] = d1;
			i.c[2] = d2;
		}
		if (mask.v.c[3]) {
			d1 = ::cos(r.c[3]) * ::cosh(i.c[3]);
			d2 = -::sin(i.c[3]) * ::sinh(r.c[3]);
			r.c[3] = d1;
			i.c[3] = d2;
		}
		return this;
	}

	AML_FUNCTION AML_PREFIX(Array4Complex32) *tan(const AML_PREFIX(VectorU8_4D) mask) {
		float d1;
		float d2;
		if (mask.v.c[0]) {
			d1 = ::sin(r.c[0] + r.c[0]) / (::cos(r.c[0] + r.c[0]) * ::cosh(i.c[0] + i.c[0]));
			d2 = ::sinh(i.c[0] + i.c[0]) / (::cos(r.c[0] + r.c[0]) * ::cosh(i.c[0] + i.c[0]));
			r.c[0] = d1;
			i.c[0] = d2;
		}
		if (mask.v.c[1]) {
			d1 = ::sin(r.c[1] + r.c[1]) / (::cos(r.c[1] + r.c[1]) * ::cosh(i.c[1] + i.c[1]));
			d2 = ::sinh(i.c[1] + i.c[1]) / (::cos(r.c[1] + r.c[1]) * ::cosh(i.c[1] + i.c[1]));
			r.c[1] = d1;
			i.c[1] = d2;
		}
		if (mask.v.c[2]) {
			d1 = ::sin(r.c[2] + r.c[2]) / (::cos(r.c[2] + r.c[2]) * ::cosh(i.c[2] + i.c[2]));
			d2 = ::sinh(i.c[2] + i.c[2]) / (::cos(r.c[2] + r.c[2]) * ::cosh(i.c[2] + i.c[2]));
			r.c[2] = d1;
			i.c[2] = d2;
		}
		if (mask.v.c[3]) {
			d1 = ::sin(r.c[3] + r.c[3]) / (::cos(r.c[3] + r.c[3]) * ::cosh(i.c[3] + i.c[3]));
			d2 = ::sinh(i.c[3] + i.c[3]) / (::cos(r.c[3] + r.c[3]) * ::cosh(i.c[3] + i.c[3]));
			r.c[3] = d1;
			i.c[3] = d2;
		}
		return this;
	}


	AML_FUNCTION AML_PREFIX(Array4Complex32) *exp() {
		float d1 = ::exp(r.c[0]) * ::cos(i.c[0]);
		float d2 = ::exp(r.c[0]) * ::sin(i.c[0]);
		r.c[0] = d1;
		i.c[0] = d2;
		d1 = ::exp(r.c[1]) * ::cos(i.c[1]);
		d2 = ::exp(r.c[1]) * ::sin(i.c[1]);
		r.c[1] = d1;
		i.c[1] = d2;
		d1 = ::exp(r.c[2]) * ::cos(i.c[2]);
		d2 = ::exp(r.c[2]) * ::sin(i.c[2]);
		r.c[2] = d1;
		i.c[2] = d2;
		d1 = ::exp(r.c[3]) * ::cos(i.c[3]);
		d2 = ::exp(r.c[3]) * ::sin(i.c[3]);
		r.c[3] = d1;
		i.c[3] = d2;
		return this;
	}

	AML_FUNCTION AML_PREFIX(Array4Complex32) *exp(float n) {
		float d1 = ::pow(n, r.c[0]) * ::cos(i.c[0] * ::log(n));
		float d2 = ::pow(n, r.c[0]) * ::sin(i.c[0] * ::log(n));
		r.c[0] = d1;
		i.c[0] = d2;
		d1 = ::pow(n, r.c[1]) * ::cos(i.c[1] * ::log(n));
		d2 = ::pow(n, r.c[1]) * ::sin(i.c[1] * ::log(n));
		r.c[1] = d1;
		i.c[1] = d2;
		d1 = ::pow(n, r.c[2]) * ::cos(i.c[2] * ::log(n));
		d2 = ::pow(n, r.c[2]) * ::sin(i.c[2] * ::log(n));
		r.c[2] = d1;
		i.c[2] = d2;
		d1 = ::pow(n, r.c[3]) * ::cos(i.c[3] * ::log(n));
		d2 = ::pow(n, r.c[3]) * ::sin(i.c[3] * ::log(n));
		r.c[3] = d1;
		i.c[3] = d2;
		return this;
	}

	AML_FUNCTION AML_PREFIX(Array4Complex32) *exp(const AML_PREFIX(VectorU8_4D) &mask) {
		float d1;
		float d2;
		if (mask.v.c[0]) {
			d1 = ::exp(r.c[0]) * ::cos(i.c[0]);
			d2 = ::exp(r.c[0]) * ::sin(i.c[0]);
			r.c[0] = d1;
			i.c[0] = d2;
		}
		if (mask.v.c[1]) {
			d1 = ::exp(r.c[1]) * ::cos(i.c[1]);
			d2 = ::exp(r.c[1]) * ::sin(i.c[1]);
			r.c[1] = d1;
			i.c[1] = d2;
		}
		if (mask.v.c[2]) {
			d1 = ::exp(r.c[2]) * ::cos(i.c[2]);
			d2 = ::exp(r.c[2]) * ::sin(i.c[2]);
			r.c[2] = d1;
			i.c[2] = d2;
		}
		if (mask.v.c[3]) {
			d1 = ::exp(r.c[3]) * ::cos(i.c[3]);
			d2 = ::exp(r.c[3]) * ::sin(i.c[3]);
			r.c[3] = d1;
			i.c[3] = d2;
		}
		return this;
	}

	AML_FUNCTION AML_PREFIX(Array4Complex32) *pow(const AML_PREFIX(Array4Complex32) n) {
		float d1 = ::log(i.c[0] * i.c[0] + r.c[0] * r.c[0]) / 2;
		float d2 = ::atan2(r.c[0], i.c[0]);
		float d3 = ::exp(d1 * n.i.c[0] - d2 * n.r.c[0]);
		float d4 = d1 * n.r.c[0] + d2 * n.i.c[0];
		float d5 = d3 * ::cos(d4);
		float d6 = d3 * ::sin(d4);
		i.c[0] = d5;
		r.c[0] = d6;
		d1 = ::log(i.c[1] * i.c[1] + r.c[1] * r.c[1]) / 2;
		d2 = ::atan2(r.c[1], i.c[1]);
		d3 = ::exp(d1 * n.i.c[1] - d2 * n.r.c[1]);
		d4 = d1 * n.r.c[1] + d2 * n.i.c[1];
		d5 = d3 * ::cos(d4);
		d6 = d3 * ::sin(d4);
		i.c[1] = d5;
		r.c[1] = d6;
		d1 = ::log(i.c[2] * i.c[2] + r.c[2] * r.c[2]) / 2;
		d2 = ::atan2(r.c[2], i.c[2]);
		d3 = ::exp(d1 * n.i.c[2] - d2 * n.r.c[2]);
		d4 = d1 * n.r.c[2] + d2 * n.i.c[2];
		d5 = d3 * ::cos(d4);
		d6 = d3 * ::sin(d4);
		i.c[2] = d5;
		r.c[2] = d6;
		d1 = ::log(i.c[3] * i.c[3] + r.c[3] * r.c[3]) / 2;
		d2 = ::atan2(r.c[3], i.c[3]);
		d3 = ::exp(d1 * n.i.c[3] - d2 * n.r.c[3]);
		d4 = d1 * n.r.c[3] + d2 * n.i.c[3];
		d5 = d3 * ::cos(d4);
		d6 = d3 * ::sin(d4);
		i.c[3] = d5;
		r.c[3] = d6;
		return this;
	}


	AML_FUNCTION AML_PREFIX(Array4Complex32) *pow(const AML_PREFIX(Complex32) n) {
		float d1 = ::log(i.c[0] * i.c[0] + r.c[0] * r.c[0]) / 2;
		float d2 = ::atan2(r.c[0], i.c[0]);
		float d3 = ::exp(d1 * n.c.c[0] - d2 * n.c.c[1]);
		float d4 = d1 * n.c.c[1] + d2 * n.c.c[0];
		float d5 = d3 * ::cos(d4);
		float d6 = d3 * ::sin(d4);
		i.c[0] = d5;
		r.c[0] = d6;
		d1 = ::log(i.c[1] * i.c[1] + r.c[1] * r.c[1]) / 2;
		d2 = ::atan2(r.c[1], i.c[1]);
		d3 = ::exp(d1 * n.c.c[0] - d2 * n.c.c[1]);
		d4 = d1 * n.c.c[1] + d2 * n.c.c[0];
		d5 = d3 * ::cos(d4);
		d6 = d3 * ::sin(d4);
		i.c[1] = d5;
		r.c[1] = d6;
		d1 = ::log(i.c[2] * i.c[2] + r.c[2] * r.c[2]) / 2;
		d2 = ::atan2(r.c[2], i.c[2]);
		d3 = ::exp(d1 * n.c.c[0] - d2 * n.c.c[1]);
		d4 = d1 * n.c.c[1] + d2 * n.c.c[0];
		d5 = d3 * ::cos(d4);
		d6 = d3 * ::sin(d4);
		i.c[2] = d5;
		r.c[2] = d6;
		d1 = ::log(i.c[3] * i.c[3] + r.c[3] * r.c[3]) / 2;
		d2 = ::atan2(r.c[3], i.c[3]);
		d3 = ::exp(d1 * n.c.c[0] - d2 * n.c.c[1]);
		d4 = d1 * n.c.c[1] + d2 * n.c.c[0];
		d5 = d3 * ::cos(d4);
		d6 = d3 * ::sin(d4);
		i.c[3] = d5;
		r.c[3] = d6;
		return this;
	}

	AML_FUNCTION AML_PREFIX(Array4Complex32) *
	pow(const AML_PREFIX(Array4Complex32) n, const AML_PREFIX(VectorU8_4D) &mask) {
		float d1;
		float d2;
		float d3;
		float d4;
		float d5;
		float d6;
		if (mask.v.c[0]) {
			d1 = ::log(i.c[0] * i.c[0] + r.c[0] * r.c[0]) / 2;
			d2 = ::atan2(r.c[0], i.c[0]);
			d3 = ::exp(d1 * n.i.c[0] - d2 * n.r.c[0]);
			d4 = d1 * n.r.c[0] + d2 * n.i.c[0];
			d5 = d3 * ::cos(d4);
			d6 = d3 * ::sin(d4);
			i.c[0] = d5;
			r.c[0] = d6;
		}
		if (mask.v.c[1]) {
			d1 = ::log(i.c[1] * i.c[1] + r.c[1] * r.c[1]) / 2;
			d2 = ::atan2(r.c[1], i.c[1]);
			d3 = ::exp(d1 * n.i.c[1] - d2 * n.r.c[1]);
			d4 = d1 * n.r.c[1] + d2 * n.i.c[1];
			d5 = d3 * ::cos(d4);
			d6 = d3 * ::sin(d4);
			i.c[1] = d5;
			r.c[1] = d6;
		}
		if (mask.v.c[2]) {
			d1 = ::log(i.c[2] * i.c[2] + r.c[2] * r.c[2]) / 2;
			d2 = ::atan2(r.c[2], i.c[2]);
			d3 = ::exp(d1 * n.i.c[2] - d2 * n.r.c[2]);
			d4 = d1 * n.r.c[2] + d2 * n.i.c[2];
			d5 = d3 * ::cos(d4);
			d6 = d3 * ::sin(d4);
			i.c[2] = d5;
			r.c[2] = d6;
		}
		if (mask.v.c[3]) {
			d1 = ::log(i.c[3] * i.c[3] + r.c[3] * r.c[3]) / 2;
			d2 = ::atan2(r.c[3], i.c[3]);
			d3 = ::exp(d1 * n.i.c[3] - d2 * n.r.c[3]);
			d4 = d1 * n.r.c[3] + d2 * n.i.c[3];
			d5 = d3 * ::cos(d4);
			d6 = d3 * ::sin(d4);
			i.c[3] = d5;
			r.c[3] = d6;
		}
		return this;
	}


	AML_FUNCTION AML_PREFIX(Array4Complex32) *pow(AML_PREFIX(Complex32) n, const AML_PREFIX(VectorU8_4D) &mask) {
		float d1;
		float d2;
		float d3;
		float d4;
		float d5;
		float d6;
		if (mask.v.c[0]) {
			d1 = ::log(i.c[0] * i.c[0] + r.c[0] * r.c[0]) / 2;
			d2 = ::atan2(r.c[0], i.c[0]);
			d3 = ::exp(d1 * n.c.c[0] - d2 * n.c.c[1]);
			d4 = d1 * n.c.c[1] + d2 * n.c.c[0];
			d5 = d3 * ::cos(d4);
			d6 = d3 * ::sin(d4);
			i.c[0] = d5;
			r.c[0] = d6;
		}
		if (mask.v.c[1]) {
			d1 = ::log(i.c[1] * i.c[1] + r.c[1] * r.c[1]) / 2;
			d2 = ::atan2(r.c[1], i.c[1]);
			d3 = ::exp(d1 * n.c.c[0] - d2 * n.c.c[1]);
			d4 = d1 * n.c.c[1] + d2 * n.c.c[0];
			d5 = d3 * ::cos(d4);
			d6 = d3 * ::sin(d4);
			i.c[1] = d5;
			r.c[1] = d6;
		}
		if (mask.v.c[2]) {
			d1 = ::log(i.c[2] * i.c[2] + r.c[2] * r.c[2]) / 2;
			d2 = ::atan2(r.c[2], i.c[2]);
			d3 = ::exp(d1 * n.c.c[0] - d2 * n.c.c[1]);
			d4 = d1 * n.c.c[1] + d2 * n.c.c[0];
			d5 = d3 * ::cos(d4);
			d6 = d3 * ::sin(d4);
			i.c[2] = d5;
			r.c[2] = d6;
		}
		if (mask.v.c[3]) {
			d1 = ::log(i.c[3] * i.c[3] + r.c[3] * r.c[3]) / 2;
			d2 = ::atan2(r.c[3], i.c[3]);
			d3 = ::exp(d1 * n.c.c[0] - d2 * n.c.c[1]);
			d4 = d1 * n.c.c[1] + d2 * n.c.c[0];
			d5 = d3 * ::cos(d4);
			d6 = d3 * ::sin(d4);
			i.c[3] = d5;
			r.c[3] = d6;
		}
		return this;
	}

	AML_FUNCTION AML_PREFIX(Array4Complex32) *exp(float n, const AML_PREFIX(VectorU8_4D) &mask) {
		float d1;
		float d2;
		if (mask.v.c[0]) {
			d1 = ::pow(n, r.c[0]) * ::cos(i.c[0] * ::log(n));
			d2 = ::pow(n, r.c[0]) * ::sin(i.c[0] * ::log(n));
			r.c[0] = d1;
			i.c[0] = d2;
		}
		if (mask.v.c[1]) {
			d1 = ::pow(n, r.c[1]) * ::cos(i.c[1] * ::log(n));
			d2 = ::pow(n, r.c[1]) * ::sin(i.c[1] * ::log(n));
			r.c[1] = d1;
			i.c[1] = d2;
		}
		if (mask.v.c[2]) {
			d1 = ::pow(n, r.c[2]) * ::cos(i.c[2] * ::log(n));
			d2 = ::pow(n, r.c[2]) * ::sin(i.c[2] * ::log(n));
			r.c[2] = d1;
			i.c[2] = d2;
		}
		if (mask.v.c[3]) {
			d1 = ::pow(n, r.c[3]) * ::cos(i.c[3] * ::log(n));
			d2 = ::pow(n, r.c[3]) * ::sin(i.c[3] * ::log(n));
			r.c[3] = d1;
			i.c[3] = d2;
		}
		return this;
	}

	AML_FUNCTION AML_PREFIX(Array4Complex32) *pow(float n) {
		float d1;
		float d2;
		d1 = ::pow(r.c[0] * r.c[0] + i.c[0] * i.c[0], n / 2) * ::cos(n * atan2(i.c[0], r.c[0]));
		d2 = ::pow(r.c[0] * r.c[0] + i.c[0] * i.c[0], n / 2) * ::sin(n * atan2(i.c[0], r.c[0]));
		r.c[0] = d1;
		i.c[0] = d2;
		d1 = ::pow(r.c[1] * r.c[1] + i.c[1] * i.c[1], n / 2) * ::cos(n * atan2(i.c[1], r.c[1]));
		d2 = ::pow(r.c[1] * r.c[1] + i.c[1] * i.c[1], n / 2) * ::sin(n * atan2(i.c[1], r.c[1]));
		r.c[1] = d1;
		i.c[1] = d2;
		d1 = ::pow(r.c[2] * r.c[2] + i.c[2] * i.c[2], n / 2) * ::cos(n * atan2(i.c[2], r.c[2]));
		d2 = ::pow(r.c[2] * r.c[2] + i.c[2] * i.c[2], n / 2) * ::sin(n * atan2(i.c[2], r.c[2]));
		r.c[2] = d1;
		i.c[2] = d2;
		d1 = ::pow(r.c[3] * r.c[3] + i.c[3] * i.c[3], n / 2) * ::cos(n * atan2(i.c[3], r.c[3]));
		d2 = ::pow(r.c[3] * r.c[3] + i.c[3] * i.c[3], n / 2) * ::sin(n * atan2(i.c[3], r.c[3]));
		r.c[3] = d1;
		i.c[3] = d2;

		return this;
	}

	AML_FUNCTION AML_PREFIX(Array4Complex32) *pow(float n, const AML_PREFIX(VectorU8_4D) &mask) {
		float d1;
		float d2;
		if (mask.v.c[0]) {
			d1 = ::pow(r.c[0] * r.c[0] + i.c[0] * i.c[0], n / 2) * ::cos(n * atan2(i.c[0], r.c[0]));
			d2 = ::pow(r.c[0] * r.c[0] + i.c[0] * i.c[0], n / 2) * ::sin(n * atan2(i.c[0], r.c[0]));
			r.c[0] = d1;
			i.c[0] = d2;
		}
		if (mask.v.c[1]) {
			d1 = ::pow(r.c[1] * r.c[1] + i.c[1] * i.c[1], n / 2) * ::cos(n * atan2(i.c[1], r.c[1]));
			d2 = ::pow(r.c[1] * r.c[1] + i.c[1] * i.c[1], n / 2) * ::sin(n * atan2(i.c[1], r.c[1]));
			r.c[1] = d1;
			i.c[1] = d2;
		}
		if (mask.v.c[2]) {
			d1 = ::pow(r.c[2] * r.c[2] + i.c[2] * i.c[2], n / 2) * ::cos(n * atan2(i.c[2], r.c[2]));
			d2 = ::pow(r.c[2] * r.c[2] + i.c[2] * i.c[2], n / 2) * ::sin(n * atan2(i.c[2], r.c[2]));
			r.c[2] = d1;
			i.c[2] = d2;
		}
		if (mask.v.c[3]) {
			d1 = ::pow(r.c[3] * r.c[3] + i.c[3] * i.c[3], n / 2) * ::cos(n * atan2(i.c[3], r.c[3]));
			d2 = ::pow(r.c[3] * r.c[3] + i.c[3] * i.c[3], n / 2) * ::sin(n * atan2(i.c[3], r.c[3]));
			r.c[3] = d1;
			i.c[3] = d2;
		}
		return this;
	}

	AML_FUNCTION AML_PREFIX(Vector4D_32) abs() {
		AML_PREFIX(Vector4D_32) ret;
		ret.v.c[0] = ::sqrt(r.c[0] * r.c[0] + i.c[0] * i.c[0]);
		ret.v.c[1] = ::sqrt(r.c[1] * r.c[1] + i.c[1] * i.c[1]);
		ret.v.c[2] = ::sqrt(r.c[2] * r.c[2] + i.c[2] * i.c[2]);
		ret.v.c[3] = ::sqrt(r.c[3] * r.c[3] + i.c[3] * i.c[3]);
		return ret;
	}

	AML_FUNCTION AML_PREFIX(VectorU8_4D) abs_gt(float a) {
		AML_PREFIX(VectorU8_4D) ret;
		ret.v.c[0] = a * a < r.c[0] * r.c[0] + i.c[0] * i.c[0];
		ret.v.c[1] = a * a < r.c[1] * r.c[1] + i.c[1] * i.c[1];
		ret.v.c[2] = a * a < r.c[2] * r.c[2] + i.c[2] * i.c[2];
		ret.v.c[3] = a * a < r.c[3] * r.c[3] + i.c[3] * i.c[3];
		return ret;
	}

	AML_FUNCTION AML_PREFIX(VectorU8_4D) abs_lt(float a) {
		AML_PREFIX(VectorU8_4D) ret;
		ret.v.c[0] = a * a > r.c[0] * r.c[0] + i.c[0] * i.c[0];
		ret.v.c[1] = a * a > r.c[1] * r.c[1] + i.c[1] * i.c[1];
		ret.v.c[2] = a * a > r.c[2] * r.c[2] + i.c[2] * i.c[2];
		ret.v.c[3] = a * a > r.c[3] * r.c[3] + i.c[3] * i.c[3];
		return ret;
	}

	AML_FUNCTION AML_PREFIX(VectorU8_4D) abs_eq(float a) {
		AML_PREFIX(VectorU8_4D) ret;
		ret.v.c[0] = a * a == r.c[0] * r.c[0] + i.c[0] * i.c[0];
		ret.v.c[1] = a * a == r.c[1] * r.c[1] + i.c[1] * i.c[1];
		ret.v.c[2] = a * a == r.c[2] * r.c[2] + i.c[2] * i.c[2];
		ret.v.c[3] = a * a == r.c[3] * r.c[3] + i.c[3] * i.c[3];
		return ret;
	}

	AML_FUNCTION AML_PREFIX(Array4Complex32) *ln(const AML_PREFIX(VectorU8_4D) &mask) {
		float d1;
		float d2;
		if (mask.v.c[0]) {
			d1 = ::log(i.c[0] * i.c[0] + r.c[0] * r.c[0]) / 2;
			d2 = ::atan2(r.c[0], i.c[0]);
			i.c[0] = d1;
			r.c[0] = d2;
		}
		if (mask.v.c[1]) {
			d1 = ::log(i.c[1] * i.c[1] + r.c[1] * r.c[1]) / 2;
			d2 = ::atan2(r.c[1], i.c[1]);
			i.c[1] = d1;
			r.c[1] = d2;
		}
		if (mask.v.c[2]) {
			d1 = ::log(i.c[2] * i.c[2] + r.c[2] * r.c[2]) / 2;
			d2 = ::atan2(r.c[2], i.c[2]);
			i.c[2] = d1;
			r.c[2] = d2;
		}
		if (mask.v.c[3]) {
			d1 = ::log(i.c[3] * i.c[3] + r.c[3] * r.c[3]) / 2;
			d2 = ::atan2(r.c[3], i.c[3]);
			i.c[3] = d1;
			r.c[3] = d2;
		}
		return this;
	}

	AML_FUNCTION AML_PREFIX(Array4Complex32) *log(const AML_PREFIX(VectorU8_4D) &mask) {
		float d1;
		float d2;
		if (mask.v.c[0]) {
			d1 = ::log(i.c[0] * i.c[0] + r.c[0] * r.c[0]) / 2;
			d2 = ::atan2(r.c[0], i.c[0]);
			i.c[0] = d1;
			r.c[0] = d2;
		}
		if (mask.v.c[1]) {
			d1 = ::log(i.c[1] * i.c[1] + r.c[1] * r.c[1]) / 2;
			d2 = ::atan2(r.c[1], i.c[1]);
			i.c[1] = d1;
			r.c[1] = d2;
		}
		if (mask.v.c[2]) {
			d1 = ::log(i.c[2] * i.c[2] + r.c[2] * r.c[2]) / 2;
			d2 = ::atan2(r.c[2], i.c[2]);
			i.c[2] = d1;
			r.c[2] = d2;
		}
		if (mask.v.c[3]) {
			d1 = ::log(i.c[3] * i.c[3] + r.c[3] * r.c[3]) / 2;
			d2 = ::atan2(r.c[3], i.c[3]);
			i.c[3] = d1;
			r.c[3] = d2;
		}
		return this;
	}

	AML_FUNCTION AML_PREFIX(Array4Complex32) *log10(const AML_PREFIX(VectorU8_4D) &mask) {
		float d1;
		float d2;
		if (mask.v.c[0]) {
			d1 = ::log(i.c[0] * i.c[0] + r.c[0] * r.c[0]) / (2 * AML_LN10);
			d2 = ::atan2(r.c[0], i.c[0]) / AML_LN10;
			i.c[0] = d1;
			r.c[0] = d2;
		}
		if (mask.v.c[1]) {
			d1 = ::log(i.c[1] * i.c[1] + r.c[1] * r.c[1]) / (2 * AML_LN10);
			d2 = ::atan2(r.c[1], i.c[1]) / AML_LN10;
			i.c[1] = d1;
			r.c[1] = d2;
		}
		if (mask.v.c[2]) {
			d1 = ::log(i.c[2] * i.c[2] + r.c[2] * r.c[2]) / (2 * AML_LN10);
			d2 = ::atan2(r.c[2], i.c[2]) / AML_LN10;
			i.c[2] = d1;
			r.c[2] = d2;
		}
		if (mask.v.c[3]) {
			d1 = ::log(i.c[3] * i.c[3] + r.c[3] * r.c[3]) / (2 * AML_LN10);
			d2 = ::atan2(r.c[3], i.c[3]) / AML_LN10;
			i.c[3] = d1;
			r.c[3] = d2;
		}
		return this;
	}

	AML_FUNCTION AML_PREFIX(Array4Complex32) *ln() {
		float d1;
		float d2;
		d1 = ::log(i.c[0] * i.c[0] + r.c[0] * r.c[0]) / 2;
		d2 = ::atan2(r.c[0], i.c[0]);
		i.c[0] = d1;
		r.c[0] = d2;
		d1 = ::log(i.c[1] * i.c[1] + r.c[1] * r.c[1]) / 2;
		d2 = ::atan2(r.c[1], i.c[1]);
		i.c[1] = d1;
		r.c[1] = d2;
		d1 = ::log(i.c[2] * i.c[2] + r.c[2] * r.c[2]) / 2;
		d2 = ::atan2(r.c[2], i.c[2]);
		i.c[2] = d1;
		r.c[2] = d2;
		d1 = ::log(i.c[3] * i.c[3] + r.c[3] * r.c[3]) / 2;
		d2 = ::atan2(r.c[3], i.c[3]);
		i.c[3] = d1;
		r.c[3] = d2;
		return this;
	}

	AML_FUNCTION AML_PREFIX(Array4Complex32) *log() {
		float d1;
		float d2;
		d1 = ::log(i.c[0] * i.c[0] + r.c[0] * r.c[0]) / 2;
		d2 = ::atan2(r.c[0], i.c[0]);
		i.c[0] = d1;
		r.c[0] = d2;
		d1 = ::log(i.c[1] * i.c[1] + r.c[1] * r.c[1]) / 2;
		d2 = ::atan2(r.c[1], i.c[1]);
		i.c[1] = d1;
		r.c[1] = d2;
		d1 = ::log(i.c[2] * i.c[2] + r.c[2] * r.c[2]) / 2;
		d2 = ::atan2(r.c[2], i.c[2]);
		i.c[2] = d1;
		r.c[2] = d2;
		d1 = ::log(i.c[3] * i.c[3] + r.c[3] * r.c[3]) / 2;
		d2 = ::atan2(r.c[3], i.c[3]);
		i.c[3] = d1;
		r.c[3] = d2;
		return this;
	}

	AML_FUNCTION AML_PREFIX(Array4Complex32) *log10() {
		float d1;
		float d2;
		d1 = ::log(i.c[0] * i.c[0] + r.c[0] * r.c[0]) / (2 * AML_LN10);
		d2 = ::atan2(r.c[0], i.c[0]) / AML_LN10;
		i.c[0] = d1;
		r.c[0] = d2;
		d1 = ::log(i.c[1] * i.c[1] + r.c[1] * r.c[1]) / (2 * AML_LN10);
		d2 = ::atan2(r.c[1], i.c[1]) / AML_LN10;
		i.c[1] = d1;
		r.c[1] = d2;
		d1 = ::log(i.c[2] * i.c[2] + r.c[2] * r.c[2]) / (2 * AML_LN10);
		d2 = ::atan2(r.c[2], i.c[2]) / AML_LN10;
		i.c[2] = d1;
		r.c[2] = d2;
		d1 = ::log(i.c[3] * i.c[3] + r.c[3] * r.c[3]) / (2 * AML_LN10);
		d2 = ::atan2(r.c[3], i.c[3]) / AML_LN10;
		i.c[3] = d1;
		r.c[3] = d2;
		return this;
	}
};


#if !defined(AML_NO_STRING)

AML_FUNCTION std::string operator<<(std::string &lhs, const AML_PREFIX(Array4Complex32) &rhs) {
	std::ostringstream string;
	string << lhs << "{ " << rhs.r.c[0] << " + " << rhs.i.c[0] << "i ,  " << rhs.r.c[1] << " + " << rhs.i.c[1]
		   << "i ,  " << rhs.r.c[2] << " + " << rhs.i.c[2] << "i ,  " << rhs.r.c[3] << " + " << rhs.i.c[3] << "i }";
	return string.str();
}

AML_FUNCTION std::string operator<<(const char *lhs, const AML_PREFIX(Array4Complex32) &rhs) {
	std::ostringstream string;
	string << lhs << "{ " << rhs.r.c[0] << " + " << rhs.i.c[0] << "i ,  " << rhs.r.c[1] << " + " << rhs.i.c[1]
		   << "i ,  " << rhs.r.c[2] << " + " << rhs.i.c[2] << "i ,  " << rhs.r.c[3] << " + " << rhs.i.c[3] << "i }";
	return string.str();
}

template<class charT, class traits>
std::basic_ostream<charT, traits> &
operator<<(std::basic_ostream<charT, traits> &o, const AML_PREFIX(Array4Complex32) &rhs) {
	std::basic_ostringstream<charT, traits> s;
	s.flags(o.flags());
	s.imbue(o.getloc());
	s.precision(o.precision());
	s << "{ " << rhs.r.c[0] << " + " << rhs.i.c[0] << "i ,  " << rhs.r.c[1] << " + " << rhs.i.c[1]
	  << "i ,  " << rhs.r.c[2] << " + " << rhs.i.c[2] << "i ,  " << rhs.r.c[3] << " + " << rhs.i.c[3] << "i }";
	return o << s.str();
}

#endif

AML_FUNCTION AML_PREFIX(Array4Complex32)
operator+(const AML_PREFIX(Complex32) &lhs, const AML_PREFIX(Array4Complex32) &rhs) {
	return rhs + lhs;
}


AML_FUNCTION AML_PREFIX(Array4Complex32)
operator-(const AML_PREFIX(Complex32) &lhs, const AML_PREFIX(Array4Complex32) &rhs) {
	AML_PREFIX(Array4Complex32) ret;
	ret.i.c[0] = lhs.c.c[1] - rhs.i.c[0];
	ret.i.c[1] = lhs.c.c[1] - rhs.i.c[1];
	ret.i.c[2] = lhs.c.c[1] - rhs.i.c[2];
	ret.i.c[3] = lhs.c.c[1] - rhs.i.c[3];
	ret.r.c[0] = lhs.c.c[0] - rhs.r.c[0];
	ret.r.c[1] = lhs.c.c[0] - rhs.r.c[1];
	ret.r.c[2] = lhs.c.c[0] - rhs.r.c[2];
	ret.r.c[3] = lhs.c.c[0] - rhs.r.c[3];
	return ret;
}

AML_FUNCTION AML_PREFIX(Array4Complex32)
operator*(const AML_PREFIX(Complex32) &lhs, const AML_PREFIX(Array4Complex32) &rhs) {
	return rhs * lhs;
}

AML_FUNCTION AML_PREFIX(Array4Complex32)
operator/(const AML_PREFIX(Complex32) &lhs, const AML_PREFIX(Array4Complex32) &rhs) {
	AML_PREFIX(Array4Complex32) ret;
	float d1 =
			(lhs.c.c[0] * rhs.r.c[0] + lhs.c.c[1] * rhs.i.c[0]) / (rhs.r.c[0] * rhs.r.c[0] + rhs.i.c[0] * rhs.i.c[0]);
	float d2 =
			(lhs.c.c[1] * rhs.r.c[0] - lhs.c.c[0] * rhs.i.c[0]) / (rhs.r.c[0] * rhs.r.c[0] + rhs.i.c[0] * rhs.i.c[0]);
	ret.r.c[0] = d1;
	ret.i.c[0] = d2;
	d1 = (lhs.c.c[0] * rhs.r.c[1] + lhs.c.c[1] * rhs.i.c[1]) / (rhs.r.c[1] * rhs.r.c[1] + rhs.i.c[1] * rhs.i.c[1]);
	d2 = (lhs.c.c[1] * rhs.r.c[1] - lhs.c.c[0] * rhs.i.c[1]) / (rhs.r.c[1] * rhs.r.c[1] + rhs.i.c[1] * rhs.i.c[1]);
	ret.r.c[1] = d1;
	ret.i.c[1] = d2;
	d1 = (lhs.c.c[0] * rhs.r.c[2] + lhs.c.c[1] * rhs.i.c[2]) / (rhs.r.c[2] * rhs.r.c[2] + rhs.i.c[2] * rhs.i.c[2]);
	d2 = (lhs.c.c[1] * rhs.r.c[2] - lhs.c.c[0] * rhs.i.c[2]) / (rhs.r.c[2] * rhs.r.c[2] + rhs.i.c[2] * rhs.i.c[2]);
	ret.r.c[2] = d1;
	ret.i.c[2] = d2;
	d1 = (lhs.c.c[0] * rhs.r.c[3] + lhs.c.c[1] * rhs.i.c[3]) / (rhs.r.c[3] * rhs.r.c[3] + rhs.i.c[3] * rhs.i.c[3]);
	d2 = (lhs.c.c[1] * rhs.r.c[3] - lhs.c.c[0] * rhs.i.c[3]) / (rhs.r.c[3] * rhs.r.c[3] + rhs.i.c[3] * rhs.i.c[3]);
	ret.r.c[3] = d1;
	ret.i.c[3] = d2;
	return ret;
}


class AML_PREFIX(Array8Complex32) {
public:
	AML_PREFIX(floatvec8) r{};
	AML_PREFIX(floatvec8) i{};

	AML_FUNCTION AML_PREFIX(Array8Complex32)() {}

	AML_FUNCTION AML_PREFIX(Array8Complex32)(const AML_PREFIX(Complex32) value) {
		r.c[0] = value.c.c[0];
		i.c[0] = value.c.c[1];
		r.c[1] = value.c.c[0];
		i.c[1] = value.c.c[1];
		r.c[2] = value.c.c[0];
		i.c[2] = value.c.c[1];
		r.c[3] = value.c.c[0];
		i.c[3] = value.c.c[1];
		r.c[4] = value.c.c[0];
		i.c[4] = value.c.c[1];
		r.c[5] = value.c.c[0];
		i.c[5] = value.c.c[1];
		r.c[6] = value.c.c[0];
		i.c[6] = value.c.c[1];
		r.c[7] = value.c.c[0];
		i.c[7] = value.c.c[1];
	}

	AML_FUNCTION AML_PREFIX(Vector8D_32) real() {
		return AML_PREFIX(Vector8D_32)(r.c);
	}

	AML_FUNCTION AML_PREFIX(Vector8D_32) complex() {
		return AML_PREFIX(Vector8D_32)(i.c);
	}

	AML_FUNCTION AML_PREFIX(Complex32) operator[](uint64_t location) {
		return AML_PREFIX(Complex32)(r.c[location], i.c[location]);
	}

	AML_FUNCTION void set(uint64_t location, AML_PREFIX(Complex32) value) {
		r.c[location] = value.c.c[0];
		i.c[location] = value.c.c[1];
	}

	AML_FUNCTION AML_PREFIX(Array8Complex32) *add(const AML_PREFIX(Array8Complex32) &a) {
		i.c[0] += a.i.c[0];
		i.c[1] += a.i.c[1];
		i.c[2] += a.i.c[2];
		i.c[3] += a.i.c[3];
		i.c[4] += a.i.c[4];
		i.c[5] += a.i.c[5];
		i.c[6] += a.i.c[6];
		i.c[7] += a.i.c[7];
		r.c[0] += a.r.c[0];
		r.c[1] += a.r.c[1];
		r.c[2] += a.r.c[2];
		r.c[3] += a.r.c[3];
		r.c[4] += a.r.c[4];
		r.c[5] += a.r.c[5];
		r.c[6] += a.r.c[6];
		r.c[7] += a.r.c[7];
		return this;
	}

	AML_FUNCTION AML_PREFIX(Array8Complex32) *add(const AML_PREFIX(Complex32) a) {
		i.c[0] += a.c.c[1];
		i.c[1] += a.c.c[1];
		i.c[2] += a.c.c[1];
		i.c[3] += a.c.c[1];
		i.c[4] += a.c.c[1];
		i.c[5] += a.c.c[1];
		i.c[6] += a.c.c[1];
		i.c[7] += a.c.c[1];
		r.c[0] += a.c.c[0];
		r.c[1] += a.c.c[0];
		r.c[2] += a.c.c[0];
		r.c[3] += a.c.c[0];
		r.c[4] += a.c.c[0];
		r.c[5] += a.c.c[0];
		r.c[6] += a.c.c[0];
		r.c[7] += a.c.c[0];
		return this;
	}


	AML_FUNCTION void operator+=(const AML_PREFIX(Array8Complex32) &a) {
		i.c[0] += a.i.c[0];
		i.c[1] += a.i.c[1];
		i.c[2] += a.i.c[2];
		i.c[3] += a.i.c[3];
		i.c[4] += a.i.c[4];
		i.c[5] += a.i.c[5];
		i.c[6] += a.i.c[6];
		i.c[7] += a.i.c[7];
		r.c[0] += a.r.c[0];
		r.c[1] += a.r.c[1];
		r.c[2] += a.r.c[2];
		r.c[3] += a.r.c[3];
		r.c[4] += a.r.c[4];
		r.c[5] += a.r.c[5];
		r.c[6] += a.r.c[6];
		r.c[7] += a.r.c[7];
	}

	AML_FUNCTION void operator+=(const AML_PREFIX(Complex32) a) {
		i.c[0] += a.c.c[1];
		i.c[1] += a.c.c[1];
		i.c[2] += a.c.c[1];
		i.c[3] += a.c.c[1];
		i.c[4] += a.c.c[1];
		i.c[5] += a.c.c[1];
		i.c[6] += a.c.c[1];
		i.c[7] += a.c.c[1];
		r.c[0] += a.c.c[0];
		r.c[1] += a.c.c[0];
		r.c[2] += a.c.c[0];
		r.c[3] += a.c.c[0];
		r.c[4] += a.c.c[0];
		r.c[5] += a.c.c[0];
		r.c[6] += a.c.c[0];
		r.c[7] += a.c.c[0];
	}

	AML_FUNCTION AML_PREFIX(Array8Complex32) operator+(const AML_PREFIX(Array8Complex32) a) const {
		AML_PREFIX(Array8Complex32) ret;
		ret.i.c[0] = i.c[0] + a.i.c[0];
		ret.i.c[1] = i.c[1] + a.i.c[1];
		ret.i.c[2] = i.c[2] + a.i.c[2];
		ret.i.c[3] = i.c[3] + a.i.c[3];
		ret.i.c[4] = i.c[4] + a.i.c[4];
		ret.i.c[5] = i.c[5] + a.i.c[5];
		ret.i.c[6] = i.c[6] + a.i.c[6];
		ret.i.c[7] = i.c[7] + a.i.c[7];
		ret.r.c[0] = r.c[0] + a.r.c[0];
		ret.r.c[1] = r.c[1] + a.r.c[1];
		ret.r.c[2] = r.c[2] + a.r.c[2];
		ret.r.c[3] = r.c[3] + a.r.c[3];
		ret.r.c[4] = r.c[4] + a.r.c[4];
		ret.r.c[5] = r.c[5] + a.r.c[5];
		ret.r.c[6] = r.c[6] + a.r.c[6];
		ret.r.c[7] = r.c[7] + a.r.c[7];
		return ret;
	}

	AML_FUNCTION AML_PREFIX(Array8Complex32) operator+(AML_PREFIX(Complex32) a) const {
		AML_PREFIX(Array8Complex32) ret;
		ret.i.c[0] = i.c[0] + a.c.c[1];
		ret.i.c[1] = i.c[1] + a.c.c[1];
		ret.i.c[2] = i.c[2] + a.c.c[1];
		ret.i.c[3] = i.c[3] + a.c.c[1];
		ret.i.c[4] = i.c[4] + a.c.c[1];
		ret.i.c[5] = i.c[5] + a.c.c[1];
		ret.i.c[6] = i.c[6] + a.c.c[1];
		ret.i.c[7] = i.c[7] + a.c.c[1];
		ret.r.c[0] = r.c[0] + a.c.c[0];
		ret.r.c[1] = r.c[1] + a.c.c[0];
		ret.r.c[2] = r.c[2] + a.c.c[0];
		ret.r.c[3] = r.c[3] + a.c.c[0];
		ret.r.c[4] = r.c[4] + a.c.c[0];
		ret.r.c[5] = r.c[5] + a.c.c[0];
		ret.r.c[6] = r.c[6] + a.c.c[0];
		ret.r.c[7] = r.c[7] + a.c.c[0];
		return ret;
	}

	AML_FUNCTION AML_PREFIX(Array8Complex32) *add(const AML_PREFIX(Array8Complex32) &a, AML_PREFIX(VectorU8_8D) mask) {
		if (mask.v.c[0]) {
			i.c[0] += a.i.c[0];
			r.c[0] += a.r.c[0];
		}
		if (mask.v.c[1]) {
			i.c[1] += a.i.c[1];
			r.c[1] += a.r.c[1];
		}
		if (mask.v.c[2]) {
			i.c[2] += a.i.c[2];
			r.c[2] += a.r.c[2];
		}
		if (mask.v.c[3]) {
			i.c[3] += a.i.c[3];
			r.c[3] += a.r.c[3];
		}
		if (mask.v.c[4]) {
			i.c[4] += a.i.c[4];
			r.c[4] += a.r.c[4];
		}
		if (mask.v.c[5]) {
			i.c[5] += a.i.c[5];
			r.c[5] += a.r.c[5];
		}
		if (mask.v.c[6]) {
			i.c[6] += a.i.c[6];
			r.c[6] += a.r.c[6];
		}
		if (mask.v.c[7]) {
			i.c[7] += a.i.c[7];
			r.c[7] += a.r.c[7];
		}
		return this;
	}

	AML_FUNCTION AML_PREFIX(Array8Complex32) *add(AML_PREFIX(Complex32) a, AML_PREFIX(VectorU8_8D) mask) {
		if (mask.v.c[0]) {
			i.c[0] += a.c.c[1];
			r.c[0] += a.c.c[0];
		}
		if (mask.v.c[1]) {
			i.c[1] += a.c.c[1];
			r.c[1] += a.c.c[0];
		}
		if (mask.v.c[2]) {
			i.c[2] += a.c.c[1];
			r.c[2] += a.c.c[0];
		}
		if (mask.v.c[3]) {
			i.c[3] += a.c.c[1];
			r.c[3] += a.c.c[0];
		}
		if (mask.v.c[4]) {
			i.c[4] += a.c.c[1];
			r.c[4] += a.c.c[0];
		}
		if (mask.v.c[5]) {
			i.c[5] += a.c.c[1];
			r.c[5] += a.c.c[0];
		}
		if (mask.v.c[6]) {
			i.c[6] += a.c.c[1];
			r.c[6] += a.c.c[0];
		}
		if (mask.v.c[7]) {
			i.c[7] += a.c.c[1];
			r.c[7] += a.c.c[0];
		}
		return this;
	}

	AML_FUNCTION AML_PREFIX(Array8Complex32) *subtract(const AML_PREFIX(Array8Complex32) &a) {
		i.c[0] -= a.i.c[0];
		i.c[1] -= a.i.c[1];
		i.c[2] -= a.i.c[2];
		i.c[3] -= a.i.c[3];
		i.c[4] -= a.i.c[4];
		i.c[5] -= a.i.c[5];
		i.c[6] -= a.i.c[6];
		i.c[7] -= a.i.c[7];
		r.c[0] -= a.r.c[0];
		r.c[1] -= a.r.c[1];
		r.c[2] -= a.r.c[2];
		r.c[3] -= a.r.c[3];
		r.c[4] -= a.r.c[4];
		r.c[5] -= a.r.c[5];
		r.c[6] -= a.r.c[6];
		r.c[7] -= a.r.c[7];
		return this;
	}

	AML_FUNCTION AML_PREFIX(Array8Complex32) *subtract(const AML_PREFIX(Complex32) a) {
		i.c[0] -= a.c.c[1];
		i.c[1] -= a.c.c[1];
		i.c[2] -= a.c.c[1];
		i.c[3] -= a.c.c[1];
		i.c[4] -= a.c.c[1];
		i.c[5] -= a.c.c[1];
		i.c[6] -= a.c.c[1];
		i.c[7] -= a.c.c[1];
		r.c[0] -= a.c.c[0];
		r.c[1] -= a.c.c[0];
		r.c[2] -= a.c.c[0];
		r.c[3] -= a.c.c[0];
		r.c[4] -= a.c.c[0];
		r.c[5] -= a.c.c[0];
		r.c[6] -= a.c.c[0];
		r.c[7] -= a.c.c[0];
		return this;
	}

	AML_FUNCTION void operator-=(const AML_PREFIX(Array8Complex32) &a) {
		i.c[0] -= a.i.c[0];
		i.c[1] -= a.i.c[1];
		i.c[2] -= a.i.c[2];
		i.c[3] -= a.i.c[3];
		i.c[4] -= a.i.c[4];
		i.c[5] -= a.i.c[5];
		i.c[6] -= a.i.c[6];
		i.c[7] -= a.i.c[7];
		r.c[0] -= a.r.c[0];
		r.c[1] -= a.r.c[1];
		r.c[2] -= a.r.c[2];
		r.c[3] -= a.r.c[3];
		r.c[4] -= a.r.c[4];
		r.c[5] -= a.r.c[5];
		r.c[6] -= a.r.c[6];
		r.c[7] -= a.r.c[7];
	}

	AML_FUNCTION void operator-=(const AML_PREFIX(Complex32) a) {
		i.c[0] -= a.c.c[1];
		i.c[1] -= a.c.c[1];
		i.c[2] -= a.c.c[1];
		i.c[3] -= a.c.c[1];
		i.c[4] -= a.c.c[1];
		i.c[5] -= a.c.c[1];
		i.c[6] -= a.c.c[1];
		i.c[7] -= a.c.c[1];
		r.c[0] -= a.c.c[0];
		r.c[1] -= a.c.c[0];
		r.c[2] -= a.c.c[0];
		r.c[3] -= a.c.c[0];
		r.c[4] -= a.c.c[0];
		r.c[5] -= a.c.c[0];
		r.c[6] -= a.c.c[0];
		r.c[7] -= a.c.c[0];
	}

	AML_FUNCTION AML_PREFIX(Array8Complex32) operator-(const AML_PREFIX(Array8Complex32) a) const {
		AML_PREFIX(Array8Complex32) ret;
		ret.i.c[0] = i.c[0] - a.i.c[0];
		ret.i.c[1] = i.c[1] - a.i.c[1];
		ret.i.c[2] = i.c[2] - a.i.c[2];
		ret.i.c[3] = i.c[3] - a.i.c[3];
		ret.i.c[4] = i.c[4] - a.i.c[4];
		ret.i.c[5] = i.c[5] - a.i.c[5];
		ret.i.c[6] = i.c[6] - a.i.c[6];
		ret.i.c[7] = i.c[7] - a.i.c[7];
		ret.r.c[0] = r.c[0] - a.r.c[0];
		ret.r.c[1] = r.c[1] - a.r.c[1];
		ret.r.c[2] = r.c[2] - a.r.c[2];
		ret.r.c[3] = r.c[3] - a.r.c[3];
		ret.r.c[4] = r.c[4] - a.r.c[4];
		ret.r.c[5] = r.c[5] - a.r.c[5];
		ret.r.c[6] = r.c[6] - a.r.c[6];
		ret.r.c[7] = r.c[7] - a.r.c[7];
		return ret;
	}

	AML_FUNCTION AML_PREFIX(Array8Complex32) operator-(const AML_PREFIX(Complex32) a) const {
		AML_PREFIX(Array8Complex32) ret;
		ret.i.c[0] = i.c[0] - a.c.c[1];
		ret.i.c[1] = i.c[1] - a.c.c[1];
		ret.i.c[2] = i.c[2] - a.c.c[1];
		ret.i.c[3] = i.c[3] - a.c.c[1];
		ret.i.c[4] = i.c[4] - a.c.c[1];
		ret.i.c[5] = i.c[5] - a.c.c[1];
		ret.i.c[6] = i.c[6] - a.c.c[1];
		ret.i.c[7] = i.c[7] - a.c.c[1];
		ret.r.c[0] = r.c[0] - a.c.c[0];
		ret.r.c[1] = r.c[1] - a.c.c[0];
		ret.r.c[2] = r.c[2] - a.c.c[0];
		ret.r.c[3] = r.c[3] - a.c.c[0];
		ret.r.c[4] = r.c[4] - a.c.c[0];
		ret.r.c[5] = r.c[5] - a.c.c[0];
		ret.r.c[6] = r.c[6] - a.c.c[0];
		ret.r.c[7] = r.c[7] - a.c.c[0];
		return ret;
	}

	AML_FUNCTION AML_PREFIX(Array8Complex32) *
	subtract(const AML_PREFIX(Array8Complex32) &a, AML_PREFIX(VectorU8_8D) mask) {
		if (mask.v.c[0]) {
			i.c[0] -= a.i.c[0];
			r.c[0] -= a.r.c[0];
		}
		if (mask.v.c[1]) {
			i.c[1] -= a.i.c[1];
			r.c[1] -= a.r.c[1];
		}
		if (mask.v.c[2]) {
			i.c[2] -= a.i.c[2];
			r.c[2] -= a.r.c[2];
		}
		if (mask.v.c[3]) {
			i.c[3] -= a.i.c[3];
			r.c[3] -= a.r.c[3];
		}
		if (mask.v.c[4]) {
			i.c[4] -= a.i.c[4];
			r.c[4] -= a.r.c[4];
		}
		if (mask.v.c[5]) {
			i.c[5] -= a.i.c[5];
			r.c[5] -= a.r.c[5];
		}
		if (mask.v.c[6]) {
			i.c[6] -= a.i.c[6];
			r.c[6] -= a.r.c[6];
		}
		if (mask.v.c[7]) {
			i.c[7] -= a.i.c[7];
			r.c[7] -= a.r.c[7];
		}
		return this;
	}

	AML_FUNCTION AML_PREFIX(Array8Complex32) *subtract(const AML_PREFIX(Complex32) a, AML_PREFIX(VectorU8_8D) mask) {
		if (mask.v.c[0]) {
			i.c[0] -= a.c.c[1];
			r.c[0] -= a.c.c[0];
		}
		if (mask.v.c[1]) {
			i.c[1] -= a.c.c[1];
			r.c[1] -= a.c.c[0];
		}
		if (mask.v.c[2]) {
			i.c[2] -= a.c.c[1];
			r.c[2] -= a.c.c[0];
		}
		if (mask.v.c[3]) {
			i.c[3] -= a.c.c[1];
			r.c[3] -= a.c.c[0];
		}
		if (mask.v.c[4]) {
			i.c[4] -= a.c.c[1];
			r.c[4] -= a.c.c[0];
		}
		if (mask.v.c[5]) {
			i.c[5] -= a.c.c[1];
			r.c[5] -= a.c.c[0];
		}
		if (mask.v.c[6]) {
			i.c[6] -= a.c.c[1];
			r.c[6] -= a.c.c[0];
		}
		if (mask.v.c[7]) {
			i.c[7] -= a.c.c[1];
			r.c[7] -= a.c.c[0];
		}
		return this;
	}


	AML_FUNCTION AML_PREFIX(Array8Complex32) operator*(const AML_PREFIX(Array8Complex32) &a) const {
		AML_PREFIX(Array8Complex32) ret;
		ret.r.c[0] = r.c[0] * a.r.c[0] - i.c[0] * a.i.c[0];
		ret.i.c[0] = r.c[0] * a.i.c[0] + i.c[0] * a.r.c[0];
		ret.r.c[1] = r.c[1] * a.r.c[1] - i.c[1] * a.i.c[1];
		ret.i.c[1] = r.c[1] * a.i.c[1] + i.c[1] * a.r.c[1];
		ret.r.c[2] = r.c[2] * a.r.c[2] - i.c[2] * a.i.c[2];
		ret.i.c[2] = r.c[2] * a.i.c[2] + i.c[2] * a.r.c[2];
		ret.r.c[3] = r.c[3] * a.r.c[3] - i.c[3] * a.i.c[3];
		ret.i.c[3] = r.c[3] * a.i.c[3] + i.c[3] * a.r.c[3];
		ret.r.c[4] = r.c[4] * a.r.c[4] - i.c[4] * a.i.c[4];
		ret.i.c[4] = r.c[4] * a.i.c[4] + i.c[4] * a.r.c[4];
		ret.r.c[5] = r.c[5] * a.r.c[5] - i.c[5] * a.i.c[5];
		ret.i.c[5] = r.c[5] * a.i.c[5] + i.c[5] * a.r.c[5];
		ret.r.c[6] = r.c[6] * a.r.c[6] - i.c[6] * a.i.c[6];
		ret.i.c[6] = r.c[6] * a.i.c[6] + i.c[6] * a.r.c[6];
		ret.r.c[7] = r.c[7] * a.r.c[7] - i.c[7] * a.i.c[7];
		ret.i.c[7] = r.c[7] * a.i.c[7] + i.c[7] * a.r.c[7];


		return ret;
	}

	AML_FUNCTION AML_PREFIX(Array8Complex32) *multiply(const AML_PREFIX(Array8Complex32) &a) {
		float d1;
		float d2;
		d1 = r.c[0] * a.r.c[0] - i.c[0] * a.i.c[0];
		d2 = r.c[0] * a.i.c[0] + i.c[0] * a.r.c[0];
		r.c[0] = d1;
		i.c[0] = d2;

		d1 = r.c[1] * a.r.c[1] - i.c[1] * a.i.c[1];
		d2 = r.c[1] * a.i.c[1] + i.c[1] * a.r.c[1];
		r.c[1] = d1;
		i.c[1] = d2;
		d1 = r.c[2] * a.r.c[2] - i.c[2] * a.i.c[2];
		d2 = r.c[2] * a.i.c[2] + i.c[2] * a.r.c[2];
		r.c[2] = d1;
		i.c[2] = d2;
		d1 = r.c[3] * a.r.c[3] - i.c[3] * a.i.c[3];
		d2 = r.c[3] * a.i.c[3] + i.c[3] * a.r.c[3];
		r.c[3] = d1;
		i.c[3] = d2;
		d1 = r.c[4] * a.r.c[4] - i.c[4] * a.i.c[4];
		d2 = r.c[4] * a.i.c[4] + i.c[4] * a.r.c[4];
		r.c[4] = d1;
		i.c[4] = d2;
		d1 = r.c[5] * a.r.c[5] - i.c[5] * a.i.c[5];
		d2 = r.c[5] * a.i.c[5] + i.c[5] * a.r.c[5];
		r.c[5] = d1;
		i.c[5] = d2;
		d1 = r.c[6] * a.r.c[6] - i.c[6] * a.i.c[6];
		d2 = r.c[6] * a.i.c[6] + i.c[6] * a.r.c[6];
		r.c[6] = d1;
		i.c[6] = d2;
		d1 = r.c[7] * a.r.c[7] - i.c[7] * a.i.c[7];
		d2 = r.c[7] * a.i.c[7] + i.c[7] * a.r.c[7];
		r.c[7] = d1;
		i.c[7] = d2;
		return this;
	}

	AML_FUNCTION void operator*=(const AML_PREFIX(Array8Complex32) &a) {
		float d1;
		float d2;
		d1 = r.c[0] * a.r.c[0] - i.c[0] * a.i.c[0];
		d2 = r.c[0] * a.i.c[0] + i.c[0] * a.r.c[0];
		r.c[0] = d1;
		i.c[0] = d2;

		d1 = r.c[1] * a.r.c[1] - i.c[1] * a.i.c[1];
		d2 = r.c[1] * a.i.c[1] + i.c[1] * a.r.c[1];
		r.c[1] = d1;
		i.c[1] = d2;
		d1 = r.c[2] * a.r.c[2] - i.c[2] * a.i.c[2];
		d2 = r.c[2] * a.i.c[2] + i.c[2] * a.r.c[2];
		r.c[2] = d1;
		i.c[2] = d2;
		d1 = r.c[3] * a.r.c[3] - i.c[3] * a.i.c[3];
		d2 = r.c[3] * a.i.c[3] + i.c[3] * a.r.c[3];
		r.c[3] = d1;
		i.c[3] = d2;
		d1 = r.c[4] * a.r.c[4] - i.c[4] * a.i.c[4];
		d2 = r.c[4] * a.i.c[4] + i.c[4] * a.r.c[4];
		r.c[4] = d1;
		i.c[4] = d2;
		d1 = r.c[5] * a.r.c[5] - i.c[5] * a.i.c[5];
		d2 = r.c[5] * a.i.c[5] + i.c[5] * a.r.c[5];
		r.c[5] = d1;
		i.c[5] = d2;
		d1 = r.c[6] * a.r.c[6] - i.c[6] * a.i.c[6];
		d2 = r.c[6] * a.i.c[6] + i.c[6] * a.r.c[6];
		r.c[6] = d1;
		i.c[6] = d2;
		d1 = r.c[7] * a.r.c[7] - i.c[7] * a.i.c[7];
		d2 = r.c[7] * a.i.c[7] + i.c[7] * a.r.c[7];
		r.c[7] = d1;
		i.c[7] = d2;
	}

	AML_FUNCTION void operator*=(const AML_PREFIX(Complex32) &a) {
		float d1;
		float d2;
		d1 = r.c[0] * a.c.c[0] - i.c[0] * a.c.c[1];
		d2 = r.c[0] * a.c.c[1] + i.c[0] * a.c.c[0];
		r.c[0] = d1;
		i.c[0] = d2;
		d1 = r.c[1] * a.c.c[0] - i.c[1] * a.c.c[1];
		d2 = r.c[1] * a.c.c[1] + i.c[1] * a.c.c[0];
		r.c[1] = d1;
		i.c[1] = d2;
		d1 = r.c[2] * a.c.c[0] - i.c[2] * a.c.c[1];
		d2 = r.c[2] * a.c.c[1] + i.c[2] * a.c.c[0];
		r.c[2] = d1;
		i.c[2] = d2;
		d1 = r.c[3] * a.c.c[0] - i.c[3] * a.c.c[1];
		d2 = r.c[3] * a.c.c[1] + i.c[3] * a.c.c[0];
		r.c[3] = d1;
		i.c[3] = d2;
		d1 = r.c[4] * a.c.c[0] - i.c[4] * a.c.c[1];
		d2 = r.c[4] * a.c.c[1] + i.c[4] * a.c.c[0];
		r.c[4] = d1;
		i.c[4] = d2;
		d1 = r.c[5] * a.c.c[0] - i.c[5] * a.c.c[1];
		d2 = r.c[5] * a.c.c[1] + i.c[5] * a.c.c[0];
		r.c[5] = d1;
		i.c[5] = d2;
		d1 = r.c[6] * a.c.c[0] - i.c[6] * a.c.c[1];
		d2 = r.c[6] * a.c.c[1] + i.c[6] * a.c.c[0];
		r.c[6] = d1;
		i.c[6] = d2;
		d1 = r.c[7] * a.c.c[0] - i.c[7] * a.c.c[1];
		d2 = r.c[7] * a.c.c[1] + i.c[7] * a.c.c[0];
		r.c[7] = d1;
		i.c[7] = d2;
	}

	AML_FUNCTION AML_PREFIX(Array8Complex32) operator*(const AML_PREFIX(Complex32) &a) const {
		AML_PREFIX(Array8Complex32) ret;
		ret.r.c[0] = r.c[0] * a.c.c[0] - i.c[0] * a.c.c[1];
		ret.i.c[0] = r.c[0] * a.c.c[1] + i.c[0] * a.c.c[0];
		ret.r.c[1] = r.c[1] * a.c.c[0] - i.c[1] * a.c.c[1];
		ret.i.c[1] = r.c[1] * a.c.c[1] + i.c[1] * a.c.c[0];
		ret.r.c[2] = r.c[2] * a.c.c[0] - i.c[2] * a.c.c[1];
		ret.i.c[2] = r.c[2] * a.c.c[1] + i.c[2] * a.c.c[0];
		ret.r.c[3] = r.c[3] * a.c.c[0] - i.c[3] * a.c.c[1];
		ret.i.c[3] = r.c[3] * a.c.c[1] + i.c[3] * a.c.c[0];
		ret.r.c[4] = r.c[4] * a.c.c[0] - i.c[4] * a.c.c[1];
		ret.i.c[4] = r.c[4] * a.c.c[1] + i.c[4] * a.c.c[0];
		ret.r.c[5] = r.c[5] * a.c.c[0] - i.c[5] * a.c.c[1];
		ret.i.c[5] = r.c[5] * a.c.c[1] + i.c[5] * a.c.c[0];
		ret.r.c[6] = r.c[6] * a.c.c[0] - i.c[6] * a.c.c[1];
		ret.i.c[6] = r.c[6] * a.c.c[1] + i.c[6] * a.c.c[0];
		ret.r.c[7] = r.c[7] * a.c.c[0] - i.c[7] * a.c.c[1];
		ret.i.c[7] = r.c[7] * a.c.c[1] + i.c[7] * a.c.c[0];


		return ret;
	}

	AML_FUNCTION AML_PREFIX(Array8Complex32) *multiply(const AML_PREFIX(Complex32) &a) {
		float d1;
		float d2;
		d1 = r.c[0] * a.c.c[0] - i.c[0] * a.c.c[1];
		d2 = r.c[0] * a.c.c[1] + i.c[0] * a.c.c[0];
		r.c[0] = d1;
		i.c[0] = d2;
		d1 = r.c[1] * a.c.c[0] - i.c[1] * a.c.c[1];
		d2 = r.c[1] * a.c.c[1] + i.c[1] * a.c.c[0];
		r.c[1] = d1;
		i.c[1] = d2;
		d1 = r.c[2] * a.c.c[0] - i.c[2] * a.c.c[1];
		d2 = r.c[2] * a.c.c[1] + i.c[2] * a.c.c[0];
		r.c[2] = d1;
		i.c[2] = d2;
		d1 = r.c[3] * a.c.c[0] - i.c[3] * a.c.c[1];
		d2 = r.c[3] * a.c.c[1] + i.c[3] * a.c.c[0];
		r.c[3] = d1;
		i.c[3] = d2;
		d1 = r.c[4] * a.c.c[0] - i.c[4] * a.c.c[1];
		d2 = r.c[4] * a.c.c[1] + i.c[4] * a.c.c[0];
		r.c[4] = d1;
		i.c[4] = d2;
		d1 = r.c[5] * a.c.c[0] - i.c[5] * a.c.c[1];
		d2 = r.c[5] * a.c.c[1] + i.c[5] * a.c.c[0];
		r.c[5] = d1;
		i.c[5] = d2;
		d1 = r.c[6] * a.c.c[0] - i.c[6] * a.c.c[1];
		d2 = r.c[6] * a.c.c[1] + i.c[6] * a.c.c[0];
		r.c[6] = d1;
		i.c[6] = d2;
		d1 = r.c[7] * a.c.c[0] - i.c[7] * a.c.c[1];
		d2 = r.c[7] * a.c.c[1] + i.c[7] * a.c.c[0];
		r.c[7] = d1;
		i.c[7] = d2;
		return this;
	}

	AML_FUNCTION AML_PREFIX(Array8Complex32) *
	multiply(const AML_PREFIX(Complex32) &a, const AML_PREFIX(VectorU8_8D) &mask) {
		float d1;
		float d2;
		if (mask.v.c[0]) {
			d1 = r.c[0] * a.c.c[0] - i.c[0] * a.c.c[1];
			d2 = r.c[0] * a.c.c[1] + i.c[0] * a.c.c[0];
			r.c[0] = d1;
			i.c[0] = d2;
		}
		if (mask.v.c[1]) {
			d1 = r.c[1] * a.c.c[0] - i.c[1] * a.c.c[1];
			d2 = r.c[1] * a.c.c[1] + i.c[1] * a.c.c[0];
			r.c[1] = d1;
			i.c[1] = d2;
		}
		if (mask.v.c[2]) {
			d1 = r.c[2] * a.c.c[0] - i.c[2] * a.c.c[1];
			d2 = r.c[2] * a.c.c[1] + i.c[2] * a.c.c[0];
			r.c[2] = d1;
			i.c[2] = d2;
		}
		if (mask.v.c[3]) {
			d1 = r.c[3] * a.c.c[0] - i.c[3] * a.c.c[1];
			d2 = r.c[3] * a.c.c[1] + i.c[3] * a.c.c[0];
			r.c[3] = d1;
			i.c[3] = d2;
		}
		if (mask.v.c[4]) {
			d1 = r.c[4] * a.c.c[0] - i.c[4] * a.c.c[1];
			d2 = r.c[4] * a.c.c[1] + i.c[4] * a.c.c[0];
			r.c[4] = d1;
			i.c[4] = d2;
		}
		if (mask.v.c[5]) {
			d1 = r.c[5] * a.c.c[0] - i.c[5] * a.c.c[1];
			d2 = r.c[5] * a.c.c[1] + i.c[5] * a.c.c[0];
			r.c[5] = d1;
			i.c[5] = d2;
		}
		if (mask.v.c[6]) {
			d1 = r.c[6] * a.c.c[0] - i.c[6] * a.c.c[1];
			d2 = r.c[6] * a.c.c[1] + i.c[6] * a.c.c[0];
			r.c[6] = d1;
			i.c[6] = d2;
		}
		if (mask.v.c[7]) {
			d1 = r.c[7] * a.c.c[0] - i.c[7] * a.c.c[1];
			d2 = r.c[7] * a.c.c[1] + i.c[7] * a.c.c[0];
			r.c[7] = d1;
			i.c[7] = d2;
		}
		return this;


	}

	AML_FUNCTION AML_PREFIX(Array8Complex32) *
	multiply(const AML_PREFIX(Array8Complex32) &a, const AML_PREFIX(VectorU8_8D) &mask) {
		float d1;
		float d2;
		if (mask.v.c[0]) {
			d1 = r.c[0] * a.r.c[0] - i.c[0] * a.i.c[0];
			d2 = r.c[0] * a.i.c[0] + i.c[0] * a.r.c[0];
			r.c[0] = d1;
			i.c[0] = d2;
		}
		if (mask.v.c[1]) {
			d1 = r.c[1] * a.r.c[1] - i.c[1] * a.i.c[1];
			d2 = r.c[1] * a.i.c[1] + i.c[1] * a.r.c[1];
			r.c[1] = d1;
			i.c[1] = d2;
		}
		if (mask.v.c[2]) {
			d1 = r.c[2] * a.r.c[2] - i.c[2] * a.i.c[2];
			d2 = r.c[2] * a.i.c[2] + i.c[2] * a.r.c[2];
			r.c[2] = d1;
			i.c[2] = d2;
		}
		if (mask.v.c[3]) {
			d1 = r.c[3] * a.r.c[3] - i.c[3] * a.i.c[3];
			d2 = r.c[3] * a.i.c[3] + i.c[3] * a.r.c[3];
			r.c[3] = d1;
			i.c[3] = d2;
		}
		if (mask.v.c[4]) {
			d1 = r.c[4] * a.r.c[4] - i.c[4] * a.i.c[4];
			d2 = r.c[4] * a.i.c[4] + i.c[4] * a.r.c[4];
			r.c[4] = d1;
			i.c[4] = d2;
		}
		if (mask.v.c[5]) {
			d1 = r.c[5] * a.r.c[5] - i.c[5] * a.i.c[5];
			d2 = r.c[5] * a.i.c[5] + i.c[5] * a.r.c[5];
			r.c[5] = d1;
			i.c[5] = d2;
		}
		if (mask.v.c[6]) {
			d1 = r.c[6] * a.r.c[6] - i.c[6] * a.i.c[6];
			d2 = r.c[6] * a.i.c[6] + i.c[6] * a.r.c[6];
			r.c[6] = d1;
			i.c[6] = d2;
		}
		if (mask.v.c[7]) {
			d1 = r.c[7] * a.r.c[7] - i.c[7] * a.i.c[7];
			d2 = r.c[7] * a.i.c[7] + i.c[7] * a.r.c[7];
			r.c[7] = d1;
			i.c[7] = d2;
		}
		return this;
	}

	AML_FUNCTION AML_PREFIX(Array8Complex32) *square() {
		float d1;
		float d2;
		d1 = r.c[0] * r.c[0] - i.c[0] * i.c[0];
		d2 = r.c[0] * i.c[0] + i.c[0] * r.c[0];
		r.c[0] = d1;
		i.c[0] = d2;
		d1 = r.c[1] * r.c[1] - i.c[1] * i.c[1];
		d2 = r.c[1] * i.c[1] + i.c[1] * r.c[1];
		r.c[1] = d1;
		i.c[1] = d2;
		d1 = r.c[2] * r.c[2] - i.c[2] * i.c[2];
		d2 = r.c[2] * i.c[2] + i.c[2] * r.c[2];
		r.c[2] = d1;
		i.c[2] = d2;
		d1 = r.c[3] * r.c[3] - i.c[3] * i.c[3];
		d2 = r.c[3] * i.c[3] + i.c[3] * r.c[3];
		r.c[3] = d1;
		i.c[3] = d2;
		d1 = r.c[4] * r.c[4] - i.c[4] * i.c[4];
		d2 = r.c[4] * i.c[4] + i.c[4] * r.c[4];
		r.c[4] = d1;
		i.c[4] = d2;
		d1 = r.c[5] * r.c[5] - i.c[5] * i.c[5];
		d2 = r.c[5] * i.c[5] + i.c[5] * r.c[5];
		r.c[5] = d1;
		i.c[5] = d2;
		d1 = r.c[6] * r.c[6] - i.c[6] * i.c[6];
		d2 = r.c[6] * i.c[6] + i.c[6] * r.c[6];
		r.c[6] = d1;
		i.c[6] = d2;
		d1 = r.c[7] * r.c[7] - i.c[7] * i.c[7];
		d2 = r.c[7] * i.c[7] + i.c[7] * r.c[7];
		r.c[7] = d1;
		i.c[7] =
				d2;
		return this;
	}

	AML_FUNCTION AML_PREFIX(Array8Complex32) *square(const AML_PREFIX(VectorU8_8D) &mask) {
		float d1;
		float d2;
		if (mask.v.c[0]) {
			d1 = r.c[0] * r.c[0] - i.c[0] * i.c[0];
			d2 = r.c[0] * i.c[0] + i.c[0] * r.c[0];
			r.c[0] = d1;
			i.c[0] = d2;
		}
		if (mask.v.c[1]) {
			d1 = r.c[1] * r.c[1] - i.c[1] * i.c[1];
			d2 = r.c[1] * i.c[1] + i.c[1] * r.c[1];
			r.c[1] = d1;
			i.c[1] = d2;
		}
		if (mask.v.c[2]) {
			d1 = r.c[2] * r.c[2] - i.c[2] * i.c[2];
			d2 = r.c[2] * i.c[2] + i.c[2] * r.c[2];
			r.c[2] = d1;
			i.c[2] = d2;
		}
		if (mask.v.c[3]) {
			d1 = r.c[3] * r.c[3] - i.c[3] * i.c[3];
			d2 = r.c[3] * i.c[3] + i.c[3] * r.c[3];
			r.c[3] = d1;
			i.c[3] = d2;
		}
		if (mask.v.c[4]) {
			d1 = r.c[4] * r.c[4] - i.c[4] * i.c[4];
			d2 = r.c[4] * i.c[4] + i.c[4] * r.c[4];
			r.c[4] = d1;
			i.c[4] = d2;
		}
		if (mask.v.c[5]) {
			d1 = r.c[5] * r.c[5] - i.c[5] * i.c[5];
			d2 = r.c[5] * i.c[5] + i.c[5] * r.c[5];
			r.c[5] = d1;
			i.c[5] = d2;
		}
		if (mask.v.c[6]) {
			d1 = r.c[6] * r.c[6] - i.c[6] * i.c[6];
			d2 = r.c[6] * i.c[6] + i.c[6] * r.c[6];
			r.c[6] = d1;
			i.c[6] = d2;
		}
		if (mask.v.c[7]) {
			d1 = r.c[7] * r.c[7] - i.c[7] * i.c[7];
			d2 = r.c[7] * i.c[7] + i.c[7] * r.c[7];
			r.c[7] = d1;
			i.c[7] = d2;
		}
		return this;
	}

	AML_FUNCTION AML_PREFIX(Array8Complex32) *divide(const AML_PREFIX(Complex32) a) {
		float d1 = (r.c[0] * a.c.c[0] + i.c[0] * a.c.c[1]) / (a.c.c[0] * a.c.c[0] + a.c.c[1] * a.c.c[1]);
		float d2 = (i.c[0] * a.c.c[0] - r.c[0] * a.c.c[1]) / (a.c.c[0] * a.c.c[0] + a.c.c[1] * a.c.c[1]);
		r.c[0] = d1;
		i.c[0] = d2;
		d1 = (r.c[1] * a.c.c[0] + i.c[1] * a.c.c[1]) / (a.c.c[0] * a.c.c[0] + a.c.c[1] * a.c.c[1]);
		d2 = (i.c[1] * a.c.c[0] - r.c[1] * a.c.c[1]) / (a.c.c[0] * a.c.c[0] + a.c.c[1] * a.c.c[1]);
		r.c[1] = d1;
		i.c[1] = d2;
		d1 = (r.c[2] * a.c.c[0] + i.c[2] * a.c.c[1]) / (a.c.c[0] * a.c.c[0] + a.c.c[1] * a.c.c[1]);
		d2 = (i.c[2] * a.c.c[0] - r.c[2] * a.c.c[1]) / (a.c.c[0] * a.c.c[0] + a.c.c[1] * a.c.c[1]);
		r.c[2] = d1;
		i.c[2] = d2;
		d1 = (r.c[3] * a.c.c[0] + i.c[3] * a.c.c[1]) / (a.c.c[0] * a.c.c[0] + a.c.c[1] * a.c.c[1]);
		d2 = (i.c[3] * a.c.c[0] - r.c[3] * a.c.c[1]) / (a.c.c[0] * a.c.c[0] + a.c.c[1] * a.c.c[1]);
		r.c[3] = d1;
		i.c[3] = d2;
		d1 = (r.c[4] * a.c.c[0] + i.c[4] * a.c.c[1]) / (a.c.c[0] * a.c.c[0] + a.c.c[1] * a.c.c[1]);
		d2 = (i.c[4] * a.c.c[0] - r.c[4] * a.c.c[1]) / (a.c.c[0] * a.c.c[0] + a.c.c[1] * a.c.c[1]);
		r.c[4] = d1;
		i.c[4] = d2;
		d1 = (r.c[5] * a.c.c[0] + i.c[5] * a.c.c[1]) / (a.c.c[0] * a.c.c[0] + a.c.c[1] * a.c.c[1]);
		d2 = (i.c[5] * a.c.c[0] - r.c[5] * a.c.c[1]) / (a.c.c[0] * a.c.c[0] + a.c.c[1] * a.c.c[1]);
		r.c[5] = d1;
		i.c[5] = d2;
		d1 = (r.c[6] * a.c.c[0] + i.c[6] * a.c.c[1]) / (a.c.c[0] * a.c.c[0] + a.c.c[1] * a.c.c[1]);
		d2 = (i.c[6] * a.c.c[0] - r.c[6] * a.c.c[1]) / (a.c.c[0] * a.c.c[0] + a.c.c[1] * a.c.c[1]);
		r.c[6] = d1;
		i.c[6] = d2;
		d1 = (r.c[7] * a.c.c[0] + i.c[7] * a.c.c[1]) / (a.c.c[0] * a.c.c[0] + a.c.c[1] * a.c.c[1]);
		d2 = (i.c[7] * a.c.c[0] - r.c[7] * a.c.c[1]) / (a.c.c[0] * a.c.c[0] + a.c.c[1] * a.c.c[1]);
		r.c[7] = d1;
		i.c[7] = d2;
		return this;
	}

	AML_FUNCTION AML_PREFIX(Array8Complex32) *
	divide(const AML_PREFIX(Complex32) a, const AML_PREFIX(VectorU8_8D) &mask) {
		float d1;
		float d2;
		if (mask.v.c[0]) {
			d1 = (r.c[0] * a.c.c[0] + i.c[0] * a.c.c[1]) / (a.c.c[0] * a.c.c[0] + a.c.c[1] * a.c.c[1]);
			d2 = (i.c[0] * a.c.c[0] - r.c[0] * a.c.c[1]) / (a.c.c[0] * a.c.c[0] + a.c.c[1] * a.c.c[1]);
			r.c[0] = d1;
			i.c[0] = d2;
		}
		if (mask.v.c[1]) {
			d1 = (r.c[1] * a.c.c[0] + i.c[1] * a.c.c[1]) / (a.c.c[0] * a.c.c[0] + a.c.c[1] * a.c.c[1]);
			d2 = (i.c[1] * a.c.c[0] - r.c[1] * a.c.c[1]) / (a.c.c[0] * a.c.c[0] + a.c.c[1] * a.c.c[1]);
			r.c[1] = d1;
			i.c[1] = d2;
		}
		if (mask.v.c[2]) {
			d1 = (r.c[2] * a.c.c[0] + i.c[2] * a.c.c[1]) / (a.c.c[0] * a.c.c[0] + a.c.c[1] * a.c.c[1]);
			d2 = (i.c[2] * a.c.c[0] - r.c[2] * a.c.c[1]) / (a.c.c[0] * a.c.c[0] + a.c.c[1] * a.c.c[1]);
			r.c[2] = d1;
			i.c[2] = d2;
		}
		if (mask.v.c[3]) {
			d1 = (r.c[3] * a.c.c[0] + i.c[3] * a.c.c[1]) / (a.c.c[0] * a.c.c[0] + a.c.c[1] * a.c.c[1]);
			d2 = (i.c[3] * a.c.c[0] - r.c[3] * a.c.c[1]) / (a.c.c[0] * a.c.c[0] + a.c.c[1] * a.c.c[1]);
			r.c[3] = d1;
			i.c[3] = d2;
		}
		if (mask.v.c[4]) {
			d1 = (r.c[4] * a.c.c[0] + i.c[4] * a.c.c[1]) / (a.c.c[0] * a.c.c[0] + a.c.c[1] * a.c.c[1]);
			d2 = (i.c[4] * a.c.c[0] - r.c[4] * a.c.c[1]) / (a.c.c[0] * a.c.c[0] + a.c.c[1] * a.c.c[1]);
			r.c[4] = d1;
			i.c[4] = d2;
		}
		if (mask.v.c[5]) {
			d1 = (r.c[5] * a.c.c[0] + i.c[5] * a.c.c[1]) / (a.c.c[0] * a.c.c[0] + a.c.c[1] * a.c.c[1]);
			d2 = (i.c[5] * a.c.c[0] - r.c[5] * a.c.c[1]) / (a.c.c[0] * a.c.c[0] + a.c.c[1] * a.c.c[1]);
			r.c[5] = d1;
			i.c[5] = d2;
		}
		if (mask.v.c[6]) {
			d1 = (r.c[6] * a.c.c[0] + i.c[6] * a.c.c[1]) / (a.c.c[0] * a.c.c[0] + a.c.c[1] * a.c.c[1]);
			d2 = (i.c[6] * a.c.c[0] - r.c[6] * a.c.c[1]) / (a.c.c[0] * a.c.c[0] + a.c.c[1] * a.c.c[1]);
			r.c[6] = d1;
			i.c[6] = d2;
		}
		if (mask.v.c[7]) {
			d1 = (r.c[7] * a.c.c[0] + i.c[7] * a.c.c[1]) / (a.c.c[0] * a.c.c[0] + a.c.c[1] * a.c.c[1]);
			d2 = (i.c[7] * a.c.c[0] - r.c[7] * a.c.c[1]) / (a.c.c[0] * a.c.c[0] + a.c.c[1] * a.c.c[1]);
			r.c[7] = d1;
			i.c[7] = d2;
		}
		return this;
	}

	AML_FUNCTION AML_PREFIX(Array8Complex32) *divide(const AML_PREFIX(Array8Complex32) &a) {
		float d1 = (r.c[0] * a.r.c[0] + i.c[0] * a.i.c[0]) / (a.r.c[0] * a.r.c[0] + a.i.c[0] * a.i.c[0]);
		float d2 = (i.c[0] * a.r.c[0] - r.c[0] * a.i.c[0]) / (a.r.c[0] * a.r.c[0] + a.i.c[0] * a.i.c[0]);
		r.c[0] = d1;
		i.c[0] = d2;
		d1 = (r.c[1] * a.r.c[1] + i.c[1] * a.i.c[1]) / (a.r.c[1] * a.r.c[1] + a.i.c[1] * a.i.c[1]);
		d2 = (i.c[1] * a.r.c[1] - r.c[1] * a.i.c[1]) / (a.r.c[1] * a.r.c[1] + a.i.c[1] * a.i.c[1]);
		r.c[1] = d1;
		i.c[1] = d2;
		d1 = (r.c[2] * a.r.c[2] + i.c[2] * a.i.c[2]) / (a.r.c[2] * a.r.c[2] + a.i.c[2] * a.i.c[2]);
		d2 = (i.c[2] * a.r.c[2] - r.c[2] * a.i.c[2]) / (a.r.c[2] * a.r.c[2] + a.i.c[2] * a.i.c[2]);
		r.c[2] = d1;
		i.c[2] = d2;
		d1 = (r.c[3] * a.r.c[3] + i.c[3] * a.i.c[3]) / (a.r.c[3] * a.r.c[3] + a.i.c[3] * a.i.c[3]);
		d2 = (i.c[3] * a.r.c[3] - r.c[3] * a.i.c[3]) / (a.r.c[3] * a.r.c[3] + a.i.c[3] * a.i.c[3]);
		r.c[3] = d1;
		i.c[3] = d2;
		d1 = (r.c[4] * a.r.c[4] + i.c[4] * a.i.c[4]) / (a.r.c[4] * a.r.c[4] + a.i.c[4] * a.i.c[4]);
		d2 = (i.c[4] * a.r.c[4] - r.c[4] * a.i.c[4]) / (a.r.c[4] * a.r.c[4] + a.i.c[4] * a.i.c[4]);
		r.c[4] = d1;
		i.c[4] = d2;
		d1 = (r.c[5] * a.r.c[5] + i.c[5] * a.i.c[5]) / (a.r.c[5] * a.r.c[5] + a.i.c[5] * a.i.c[5]);
		d2 = (i.c[5] * a.r.c[5] - r.c[5] * a.i.c[5]) / (a.r.c[5] * a.r.c[5] + a.i.c[5] * a.i.c[5]);
		r.c[5] = d1;
		i.c[5] = d2;
		d1 = (r.c[6] * a.r.c[6] + i.c[6] * a.i.c[6]) / (a.r.c[6] * a.r.c[6] + a.i.c[6] * a.i.c[6]);
		d2 = (i.c[6] * a.r.c[6] - r.c[6] * a.i.c[6]) / (a.r.c[6] * a.r.c[6] + a.i.c[6] * a.i.c[6]);
		r.c[6] = d1;
		i.c[6] = d2;
		d1 = (r.c[7] * a.r.c[7] + i.c[7] * a.i.c[7]) / (a.r.c[7] * a.r.c[7] + a.i.c[7] * a.i.c[7]);
		d2 = (i.c[7] * a.r.c[7] - r.c[7] * a.i.c[7]) / (a.r.c[7] * a.r.c[7] + a.i.c[7] * a.i.c[7]);
		r.c[7] = d1;
		i.c[7] = d2;
		return this;
	}

	AML_FUNCTION AML_PREFIX(Array8Complex32) *
	divide(const AML_PREFIX(Array8Complex32) &a, const AML_PREFIX(VectorU8_8D) &mask) {
		float d1;
		float d2;
		if (mask.v.c[0]) {
			d1 = (r.c[0] * a.i.c[0] + i.c[0] * a.i.c[1]) / (a.i.c[0] * a.i.c[0] + a.i.c[1] * a.i.c[1]);
			d2 = (i.c[0] * a.i.c[0] - r.c[0] * a.i.c[1]) / (a.i.c[0] * a.i.c[0] + a.i.c[1] * a.i.c[1]);
			r.c[0] = d1;
			i.c[0] = d2;
		}
		if (mask.v.c[1]) {
			d1 = (r.c[1] * a.r.c[1] + i.c[1] * a.i.c[1]) / (a.r.c[1] * a.r.c[1] + a.i.c[1] * a.i.c[1]);
			d2 = (i.c[1] * a.r.c[1] - r.c[1] * a.i.c[1]) / (a.r.c[1] * a.r.c[1] + a.i.c[1] * a.i.c[1]);
			r.c[1] = d1;
			i.c[1] = d2;
		}
		if (mask.v.c[2]) {
			d1 = (r.c[2] * a.r.c[2] + i.c[2] * a.i.c[2]) / (a.r.c[2] * a.r.c[2] + a.i.c[2] * a.i.c[2]);
			d2 = (i.c[2] * a.r.c[2] - r.c[2] * a.i.c[2]) / (a.r.c[2] * a.r.c[2] + a.i.c[2] * a.i.c[2]);
			r.c[2] = d1;
			i.c[2] = d2;
		}
		if (mask.v.c[3]) {
			d1 = (r.c[3] * a.r.c[3] + i.c[3] * a.i.c[3]) / (a.r.c[3] * a.r.c[3] + a.i.c[3] * a.i.c[3]);
			d2 = (i.c[3] * a.r.c[3] - r.c[3] * a.i.c[3]) / (a.r.c[3] * a.r.c[3] + a.i.c[3] * a.i.c[3]);
			r.c[3] = d1;
			i.c[3] = d2;
		}
		if (mask.v.c[4]) {
			d1 = (r.c[4] * a.r.c[4] + i.c[4] * a.i.c[4]) / (a.r.c[4] * a.r.c[4] + a.i.c[4] * a.i.c[4]);
			d2 = (i.c[4] * a.r.c[4] - r.c[4] * a.i.c[4]) / (a.r.c[4] * a.r.c[4] + a.i.c[4] * a.i.c[4]);
			r.c[4] = d1;
			i.c[4] = d2;
		}
		if (mask.v.c[5]) {
			d1 = (r.c[5] * a.r.c[5] + i.c[5] * a.i.c[5]) / (a.r.c[5] * a.r.c[5] + a.i.c[5] * a.i.c[5]);
			d2 = (i.c[5] * a.r.c[5] - r.c[5] * a.i.c[5]) / (a.r.c[5] * a.r.c[5] + a.i.c[5] * a.i.c[5]);
			r.c[5] = d1;
			i.c[5] = d2;
		}
		if (mask.v.c[6]) {
			d1 = (r.c[6] * a.r.c[6] + i.c[6] * a.i.c[6]) / (a.r.c[6] * a.r.c[6] + a.i.c[6] * a.i.c[6]);
			d2 = (i.c[6] * a.r.c[6] - r.c[6] * a.i.c[6]) / (a.r.c[6] * a.r.c[6] + a.i.c[6] * a.i.c[6]);
			r.c[6] = d1;
			i.c[6] = d2;
		}
		if (mask.v.c[7]) {
			d1 = (r.c[7] * a.r.c[7] + i.c[7] * a.i.c[7]) / (a.r.c[7] * a.r.c[7] + a.i.c[7] * a.i.c[7]);
			d2 = (i.c[7] * a.r.c[7] - r.c[7] * a.i.c[7]) / (a.r.c[7] * a.r.c[7] + a.i.c[7] * a.i.c[7]);
			r.c[7] = d1;
			i.c[7] = d2;
		}
		return this;
	}

	AML_FUNCTION AML_PREFIX(Array8Complex32) operator/(const AML_PREFIX(Complex32) &a) const {
		AML_PREFIX(Array8Complex32) ret;
		float d1 = (r.c[0] * a.c.c[0] + i.c[0] * a.c.c[1]) / (a.c.c[0] * a.c.c[0] + a.c.c[1] * a.c.c[1]);
		float d2 = (i.c[0] * a.c.c[0] - r.c[0] * a.c.c[1]) / (a.c.c[0] * a.c.c[0] + a.c.c[1] * a.c.c[1]);
		ret.r.c[0] = d1;
		ret.i.c[0] = d2;
		d1 = (r.c[1] * a.c.c[0] + i.c[1] * a.c.c[1]) / (a.c.c[0] * a.c.c[0] + a.c.c[1] * a.c.c[1]);
		d2 = (i.c[1] * a.c.c[0] - r.c[1] * a.c.c[1]) / (a.c.c[0] * a.c.c[0] + a.c.c[1] * a.c.c[1]);
		ret.r.c[1] = d1;
		ret.i.c[1] = d2;
		d1 = (r.c[2] * a.c.c[0] + i.c[2] * a.c.c[1]) / (a.c.c[0] * a.c.c[0] + a.c.c[1] * a.c.c[1]);
		d2 = (i.c[2] * a.c.c[0] - r.c[2] * a.c.c[1]) / (a.c.c[0] * a.c.c[0] + a.c.c[1] * a.c.c[1]);
		ret.r.c[2] = d1;
		ret.i.c[2] = d2;
		d1 = (r.c[3] * a.c.c[0] + i.c[3] * a.c.c[1]) / (a.c.c[0] * a.c.c[0] + a.c.c[1] * a.c.c[1]);
		d2 = (i.c[3] * a.c.c[0] - r.c[3] * a.c.c[1]) / (a.c.c[0] * a.c.c[0] + a.c.c[1] * a.c.c[1]);
		ret.r.c[3] = d1;
		ret.i.c[3] = d2;
		d1 = (r.c[4] * a.c.c[0] + i.c[4] * a.c.c[1]) / (a.c.c[0] * a.c.c[0] + a.c.c[1] * a.c.c[1]);
		d2 = (i.c[4] * a.c.c[0] - r.c[4] * a.c.c[1]) / (a.c.c[0] * a.c.c[0] + a.c.c[1] * a.c.c[1]);
		ret.r.c[4] = d1;
		ret.i.c[4] = d2;
		d1 = (r.c[5] * a.c.c[0] + i.c[5] * a.c.c[1]) / (a.c.c[0] * a.c.c[0] + a.c.c[1] * a.c.c[1]);
		d2 = (i.c[5] * a.c.c[0] - r.c[5] * a.c.c[1]) / (a.c.c[0] * a.c.c[0] + a.c.c[1] * a.c.c[1]);
		ret.r.c[5] = d1;
		ret.i.c[5] = d2;
		d1 = (r.c[6] * a.c.c[0] + i.c[6] * a.c.c[1]) / (a.c.c[0] * a.c.c[0] + a.c.c[1] * a.c.c[1]);
		d2 = (i.c[6] * a.c.c[0] - r.c[6] * a.c.c[1]) / (a.c.c[0] * a.c.c[0] + a.c.c[1] * a.c.c[1]);
		ret.r.c[6] = d1;
		ret.i.c[6] = d2;
		d1 = (r.c[7] * a.c.c[0] + i.c[7] * a.c.c[1]) / (a.c.c[0] * a.c.c[0] + a.c.c[1] * a.c.c[1]);
		d2 = (i.c[7] * a.c.c[0] - r.c[7] * a.c.c[1]) / (a.c.c[0] * a.c.c[0] + a.c.c[1] * a.c.c[1]);
		ret.r.c[7] = d1;
		ret.i.c[7] = d2;
		return ret;
	}

	AML_FUNCTION AML_PREFIX(Array8Complex32) operator/(const AML_PREFIX(Array8Complex32) &a) const {
		AML_PREFIX(Array8Complex32) ret;
		float d1 = (r.c[0] * a.r.c[0] + i.c[0] * a.i.c[0]) / (a.r.c[0] * a.r.c[0] + a.i.c[0] * a.i.c[0]);
		float d2 = (i.c[0] * a.r.c[0] - r.c[0] * a.i.c[0]) / (a.r.c[0] * a.r.c[0] + a.i.c[0] * a.i.c[0]);
		ret.r.c[0] = d1;
		ret.i.c[0] = d2;
		d1 = (r.c[1] * a.r.c[1] + i.c[1] * a.i.c[1]) / (a.r.c[1] * a.r.c[1] + a.i.c[1] * a.i.c[1]);
		d2 = (i.c[1] * a.r.c[1] - r.c[1] * a.i.c[1]) / (a.r.c[1] * a.r.c[1] + a.i.c[1] * a.i.c[1]);
		ret.r.c[1] = d1;
		ret.i.c[1] = d2;
		d1 = (r.c[2] * a.r.c[2] + i.c[2] * a.i.c[2]) / (a.r.c[2] * a.r.c[2] + a.i.c[2] * a.i.c[2]);
		d2 = (i.c[2] * a.r.c[2] - r.c[2] * a.i.c[2]) / (a.r.c[2] * a.r.c[2] + a.i.c[2] * a.i.c[2]);
		ret.r.c[2] = d1;
		ret.i.c[2] = d2;
		d1 = (r.c[3] * a.r.c[3] + i.c[3] * a.i.c[3]) / (a.r.c[3] * a.r.c[3] + a.i.c[3] * a.i.c[3]);
		d2 = (i.c[3] * a.r.c[3] - r.c[3] * a.i.c[3]) / (a.r.c[3] * a.r.c[3] + a.i.c[3] * a.i.c[3]);
		ret.r.c[3] = d1;
		ret.i.c[3] = d2;
		d1 = (r.c[4] * a.r.c[4] + i.c[4] * a.i.c[4]) / (a.r.c[4] * a.r.c[4] + a.i.c[4] * a.i.c[4]);
		d2 = (i.c[4] * a.r.c[4] - r.c[4] * a.i.c[4]) / (a.r.c[4] * a.r.c[4] + a.i.c[4] * a.i.c[4]);
		ret.r.c[4] = d1;
		ret.i.c[4] = d2;
		d1 = (r.c[5] * a.r.c[5] + i.c[5] * a.i.c[5]) / (a.r.c[5] * a.r.c[5] + a.i.c[5] * a.i.c[5]);
		d2 = (i.c[5] * a.r.c[5] - r.c[5] * a.i.c[5]) / (a.r.c[5] * a.r.c[5] + a.i.c[5] * a.i.c[5]);
		ret.r.c[5] = d1;
		ret.i.c[5] = d2;
		d1 = (r.c[6] * a.r.c[6] + i.c[6] * a.i.c[6]) / (a.r.c[6] * a.r.c[6] + a.i.c[6] * a.i.c[6]);
		d2 = (i.c[6] * a.r.c[6] - r.c[6] * a.i.c[6]) / (a.r.c[6] * a.r.c[6] + a.i.c[6] * a.i.c[6]);
		ret.r.c[6] = d1;
		ret.i.c[6] = d2;
		d1 = (r.c[7] * a.r.c[7] + i.c[7] * a.i.c[7]) / (a.r.c[7] * a.r.c[7] + a.i.c[7] * a.i.c[7]);
		d2 = (i.c[7] * a.r.c[7] - r.c[7] * a.i.c[7]) / (a.r.c[7] * a.r.c[7] + a.i.c[7] * a.i.c[7]);
		ret.r.c[7] = d1;
		ret.i.c[7] = d2;
		return ret;
	}

	AML_FUNCTION void operator/=(const AML_PREFIX(Complex32) &a) {
		float d1 = (r.c[0] * a.c.c[0] + i.c[0] * a.c.c[1]) / (a.c.c[0] * a.c.c[0] + a.c.c[1] * a.c.c[1]);
		float d2 = (i.c[0] * a.c.c[0] - r.c[0] * a.c.c[1]) / (a.c.c[0] * a.c.c[0] + a.c.c[1] * a.c.c[1]);
		r.c[0] = d1;
		i.c[0] = d2;
		d1 = (r.c[1] * a.c.c[0] + i.c[1] * a.c.c[1]) / (a.c.c[0] * a.c.c[0] + a.c.c[1] * a.c.c[1]);
		d2 = (i.c[1] * a.c.c[0] - r.c[1] * a.c.c[1]) / (a.c.c[0] * a.c.c[0] + a.c.c[1] * a.c.c[1]);
		r.c[1] = d1;
		i.c[1] = d2;
		d1 = (r.c[2] * a.c.c[0] + i.c[2] * a.c.c[1]) / (a.c.c[0] * a.c.c[0] + a.c.c[1] * a.c.c[1]);
		d2 = (i.c[2] * a.c.c[0] - r.c[2] * a.c.c[1]) / (a.c.c[0] * a.c.c[0] + a.c.c[1] * a.c.c[1]);
		r.c[2] = d1;
		i.c[2] = d2;
		d1 = (r.c[3] * a.c.c[0] + i.c[3] * a.c.c[1]) / (a.c.c[0] * a.c.c[0] + a.c.c[1] * a.c.c[1]);
		d2 = (i.c[3] * a.c.c[0] - r.c[3] * a.c.c[1]) / (a.c.c[0] * a.c.c[0] + a.c.c[1] * a.c.c[1]);
		r.c[3] = d1;
		i.c[3] = d2;
		d1 = (r.c[4] * a.c.c[0] + i.c[4] * a.c.c[1]) / (a.c.c[0] * a.c.c[0] + a.c.c[1] * a.c.c[1]);
		d2 = (i.c[4] * a.c.c[0] - r.c[4] * a.c.c[1]) / (a.c.c[0] * a.c.c[0] + a.c.c[1] * a.c.c[1]);
		r.c[4] = d1;
		i.c[4] = d2;
		d1 = (r.c[5] * a.c.c[0] + i.c[5] * a.c.c[1]) / (a.c.c[0] * a.c.c[0] + a.c.c[1] * a.c.c[1]);
		d2 = (i.c[5] * a.c.c[0] - r.c[5] * a.c.c[1]) / (a.c.c[0] * a.c.c[0] + a.c.c[1] * a.c.c[1]);
		r.c[5] = d1;
		i.c[5] = d2;
		d1 = (r.c[6] * a.c.c[0] + i.c[6] * a.c.c[1]) / (a.c.c[0] * a.c.c[0] + a.c.c[1] * a.c.c[1]);
		d2 = (i.c[6] * a.c.c[0] - r.c[6] * a.c.c[1]) / (a.c.c[0] * a.c.c[0] + a.c.c[1] * a.c.c[1]);
		r.c[6] = d1;
		i.c[6] = d2;
		d1 = (r.c[7] * a.c.c[0] + i.c[7] * a.c.c[1]) / (a.c.c[0] * a.c.c[0] + a.c.c[1] * a.c.c[1]);
		d2 = (i.c[7] * a.c.c[0] - r.c[7] * a.c.c[1]) / (a.c.c[0] * a.c.c[0] + a.c.c[1] * a.c.c[1]);
		r.c[7] = d1;
		i.c[7] = d2;
	}

	AML_FUNCTION void operator/=(const AML_PREFIX(Array8Complex32) &a) {
		float d1 = (r.c[0] * a.r.c[0] + i.c[0] * a.i.c[0]) / (a.r.c[0] * a.r.c[0] + a.i.c[0] * a.i.c[0]);
		float d2 = (i.c[0] * a.r.c[0] - r.c[0] * a.i.c[0]) / (a.r.c[0] * a.r.c[0] + a.i.c[0] * a.i.c[0]);
		r.c[0] = d1;
		i.c[0] = d2;
		d1 = (r.c[1] * a.r.c[1] + i.c[1] * a.i.c[1]) / (a.r.c[1] * a.r.c[1] + a.i.c[1] * a.i.c[1]);
		d2 = (i.c[1] * a.r.c[1] - r.c[1] * a.i.c[1]) / (a.r.c[1] * a.r.c[1] + a.i.c[1] * a.i.c[1]);
		r.c[1] = d1;
		i.c[1] = d2;
		d1 = (r.c[2] * a.r.c[2] + i.c[2] * a.i.c[2]) / (a.r.c[2] * a.r.c[2] + a.i.c[2] * a.i.c[2]);
		d2 = (i.c[2] * a.r.c[2] - r.c[2] * a.i.c[2]) / (a.r.c[2] * a.r.c[2] + a.i.c[2] * a.i.c[2]);
		r.c[2] = d1;
		i.c[2] = d2;
		d1 = (r.c[3] * a.r.c[3] + i.c[3] * a.i.c[3]) / (a.r.c[3] * a.r.c[3] + a.i.c[3] * a.i.c[3]);
		d2 = (i.c[3] * a.r.c[3] - r.c[3] * a.i.c[3]) / (a.r.c[3] * a.r.c[3] + a.i.c[3] * a.i.c[3]);
		r.c[3] = d1;
		i.c[3] = d2;
		d1 = (r.c[4] * a.r.c[4] + i.c[4] * a.i.c[4]) / (a.r.c[4] * a.r.c[4] + a.i.c[4] * a.i.c[4]);
		d2 = (i.c[4] * a.r.c[4] - r.c[4] * a.i.c[4]) / (a.r.c[4] * a.r.c[4] + a.i.c[4] * a.i.c[4]);
		r.c[4] = d1;
		i.c[4] = d2;
		d1 = (r.c[5] * a.r.c[5] + i.c[5] * a.i.c[5]) / (a.r.c[5] * a.r.c[5] + a.i.c[5] * a.i.c[5]);
		d2 = (i.c[5] * a.r.c[5] - r.c[5] * a.i.c[5]) / (a.r.c[5] * a.r.c[5] + a.i.c[5] * a.i.c[5]);
		r.c[5] = d1;
		i.c[5] = d2;
		d1 = (r.c[6] * a.r.c[6] + i.c[6] * a.i.c[6]) / (a.r.c[6] * a.r.c[6] + a.i.c[6] * a.i.c[6]);
		d2 = (i.c[6] * a.r.c[6] - r.c[6] * a.i.c[6]) / (a.r.c[6] * a.r.c[6] + a.i.c[6] * a.i.c[6]);
		r.c[6] = d1;
		i.c[6] = d2;
		d1 = (r.c[7] * a.r.c[7] + i.c[7] * a.i.c[7]) / (a.r.c[7] * a.r.c[7] + a.i.c[7] * a.i.c[7]);
		d2 = (i.c[7] * a.r.c[7] - r.c[7] * a.i.c[7]) / (a.r.c[7] * a.r.c[7] + a.i.c[7] * a.i.c[7]);
		r.c[7] = d1;
		i.c[7] = d2;
	}

	AML_FUNCTION AML_PREFIX(Array8Complex32) *sqrt() {
		float d1;
		float d2;
		d2 = ::sqrt((-r.c[0] + ::sqrt(r.c[0] * r.c[0] + i.c[0] * i.c[0])) / (2));
		if (d2 == 0) UNLIKELY {
			d1 = ::sqrt(r.c[0]);
		} else LIKELY {
			d1 = i.c[0] / (2 * d2);
		}
		r.c[0] = d1;
		i.c[0] = d2;
		d2 = ::sqrt((-r.c[1] + ::sqrt(r.c[1] * r.c[1] + i.c[1] * i.c[1])) / (2));
		if (d2 == 0) UNLIKELY {
			d1 = ::sqrt(r.c[1]);
		} else LIKELY {
			d1 = i.c[1] / (2 * d2);
		}
		r.c[1] = d1;
		i.c[1] = d2;
		d2 = ::sqrt((-r.c[2] + ::sqrt(r.c[2] * r.c[2] + i.c[2] * i.c[2])) / (2));
		if (d2 == 0) UNLIKELY {
			d1 = ::sqrt(r.c[2]);
		} else LIKELY {
			d1 = i.c[2] / (2 * d2);
		}
		r.c[2] = d1;
		i.c[2] = d2;
		d2 = ::sqrt((-r.c[3] + ::sqrt(r.c[3] * r.c[3] + i.c[3] * i.c[3])) / (2));
		if (d2 == 0) UNLIKELY {
			d1 = ::sqrt(r.c[3]);
		} else LIKELY {
			d1 = i.c[3] / (2 * d2);
		}
		r.c[3] = d1;
		i.c[3] = d2;
		d2 = ::sqrt((-r.c[4] + ::sqrt(r.c[4] * r.c[4] + i.c[4] * i.c[4])) / (2));
		if (d2 == 0) UNLIKELY {
			d1 = ::sqrt(r.c[4]);
		} else LIKELY {
			d1 = i.c[4] / (2 * d2);
		}
		r.c[4] = d1;
		i.c[4] = d2;
		d2 = ::sqrt((-r.c[5] + ::sqrt(r.c[5] * r.c[5] + i.c[5] * i.c[5])) / (2));
		if (d2 == 0) UNLIKELY {
			d1 = ::sqrt(r.c[5]);
		} else LIKELY {
			d1 = i.c[5] / (2 * d2);
		}
		r.c[5] = d1;
		i.c[5] = d2;
		d2 = ::sqrt((-r.c[6] + ::sqrt(r.c[6] * r.c[6] + i.c[6] * i.c[6])) / (2));
		if (d2 == 0) UNLIKELY {
			d1 = ::sqrt(r.c[6]);
		} else LIKELY {
			d1 = i.c[6] / (2 * d2);
		}
		r.c[6] = d1;
		i.c[6] = d2;
		d2 = ::sqrt((-r.c[7] + ::sqrt(r.c[7] * r.c[7] + i.c[7] * i.c[7])) / (2));
		if (d2 == 0) UNLIKELY {
			d1 = ::sqrt(r.c[7]);
		} else LIKELY {
			d1 = i.c[7] / (2 * d2);
		}
		r.c[7] = d1;
		i.c[7] = d2;
		return this;
	}

	AML_FUNCTION AML_PREFIX(Array8Complex32) *sqrt(const AML_PREFIX(VectorU8_8D) mask) {
		float d1;
		float d2;
		if (mask.v.c[0]) {
			d2 = ::sqrt((-r.c[0] + ::sqrt(r.c[0] * r.c[0] + i.c[0] * i.c[0])) / (2));
			if (d2 == 0) UNLIKELY {
				d1 = ::sqrt(r.c[0]);
			} else LIKELY {
				d1 = i.c[0] / (2 * d2);
			}
			r.c[0] = d1;
			i.c[0] = d2;
		}
		if (mask.v.c[1]) {
			d2 = ::sqrt((-r.c[1] + ::sqrt(r.c[1] * r.c[1] + i.c[1] * i.c[1])) / (2));
			if (d2 == 0) UNLIKELY {
				d1 = ::sqrt(r.c[1]);
			} else LIKELY {
				d1 = i.c[1] / (2 * d2);
			}
			r.c[1] = d1;
			i.c[1] = d2;
		}
		if (mask.v.c[2]) {
			d2 = ::sqrt((-r.c[2] + ::sqrt(r.c[2] * r.c[2] + i.c[2] * i.c[2])) / (2));
			if (d2 == 0) UNLIKELY {
				d1 = ::sqrt(r.c[2]);
			} else LIKELY {
				d1 = i.c[2] / (2 * d2);
			}
			r.c[2] = d1;
			i.c[2] = d2;
		}
		if (mask.v.c[3]) {
			d2 = ::sqrt((-r.c[3] + ::sqrt(r.c[3] * r.c[3] + i.c[3] * i.c[3])) / (2));
			if (d2 == 0) UNLIKELY {
				d1 = ::sqrt(r.c[3]);
			} else LIKELY {
				d1 = i.c[3] / (2 * d2);
			}
			r.c[3] = d1;
			i.c[3] = d2;
		}
		if (mask.v.c[4]) {
			d2 = ::sqrt((-r.c[4] + ::sqrt(r.c[4] * r.c[4] + i.c[4] * i.c[4])) / (2));
			if (d2 == 0) UNLIKELY {
				d1 = ::sqrt(r.c[4]);
			} else LIKELY {
				d1 = i.c[4] / (2 * d2);
			}
			r.c[4] = d1;
			i.c[4] = d2;
		}
		if (mask.v.c[5]) {
			d2 = ::sqrt((-r.c[5] + ::sqrt(r.c[5] * r.c[5] + i.c[5] * i.c[5])) / (2));
			if (d2 == 0) UNLIKELY {
				d1 = ::sqrt(r.c[5]);
			} else LIKELY {
				d1 = i.c[5] / (2 * d2);
			}
			r.c[5] = d1;
			i.c[5] = d2;
		}
		if (mask.v.c[6]) {
			d2 = ::sqrt((-r.c[6] + ::sqrt(r.c[6] * r.c[6] + i.c[6] * i.c[6])) / (2));
			if (d2 == 0) UNLIKELY {
				d1 = ::sqrt(r.c[6]);
			} else LIKELY {
				d1 = i.c[6] / (2 * d2);
			}
			r.c[6] = d1;
			i.c[6] = d2;
		}
		if (mask.v.c[7]) {
			d2 = ::sqrt((-r.c[7] + ::sqrt(r.c[7] * r.c[7] + i.c[7] * i.c[7])) / (2));
			if (d2 == 0) UNLIKELY {
				d1 = ::sqrt(r.c[7]);
			} else LIKELY {
				d1 = i.c[7] / (2 * d2);
			}
			r.c[7] = d1;
			i.c[7] = d2;
		}
		return this;
	}

	AML_FUNCTION AML_PREFIX(Array8Complex32) *sin() {
		float d1;
		float d2;
		d1 = ::sin(r.c[0]) * ::cosh(i.c[0]);
		d2 = ::cos(i.c[0]) * ::sinh(r.c[0]);
		r.c[0] = d1;
		i.c[0] = d2;
		d1 = ::sin(r.c[1]) * ::cosh(i.c[1]);
		d2 = ::cos(i.c[1]) * ::sinh(r.c[1]);
		r.c[1] = d1;
		i.c[1] = d2;
		d1 = ::sin(r.c[2]) * ::cosh(i.c[2]);
		d2 = ::cos(i.c[2]) * ::sinh(r.c[2]);
		r.c[2] = d1;
		i.c[2] = d2;
		d1 = ::sin(r.c[3]) * ::cosh(i.c[3]);
		d2 = ::cos(i.c[3]) * ::sinh(r.c[3]);
		r.c[3] = d1;
		i.c[3] = d2;
		d1 = ::sin(r.c[4]) * ::cosh(i.c[4]);
		d2 = ::cos(i.c[4]) * ::sinh(r.c[4]);
		r.c[4] = d1;
		i.c[4] = d2;
		d1 = ::sin(r.c[5]) * ::cosh(i.c[5]);
		d2 = ::cos(i.c[5]) * ::sinh(r.c[5]);
		r.c[5] = d1;
		i.c[5] = d2;
		d1 = ::sin(r.c[6]) * ::cosh(i.c[6]);
		d2 = ::cos(i.c[6]) * ::sinh(r.c[6]);
		r.c[6] = d1;
		i.c[6] = d2;
		d1 = ::sin(r.c[7]) * ::cosh(i.c[7]);
		d2 = ::cos(i.c[7]) * ::sinh(r.c[7]);
		r.c[7] = d1;
		i.c[7] = d2;
		return this;
	}

	AML_FUNCTION AML_PREFIX(Array8Complex32) *cos() {
		float d1;
		float d2;
		d1 = ::cos(r.c[0]) * ::cosh(i.c[0]);
		d2 = -::sin(i.c[0]) * ::sinh(r.c[0]);
		r.c[0] = d1;
		i.c[0] = d2;
		d1 = ::cos(r.c[1]) * ::cosh(i.c[1]);
		d2 = -::sin(i.c[1]) * ::sinh(r.c[1]);
		r.c[1] = d1;
		i.c[1] = d2;
		d1 = ::cos(r.c[2]) * ::cosh(i.c[2]);
		d2 = -::sin(i.c[2]) * ::sinh(r.c[2]);
		r.c[2] = d1;
		i.c[2] = d2;
		d1 = ::cos(r.c[3]) * ::cosh(i.c[3]);
		d2 = -::sin(i.c[3]) * ::sinh(r.c[3]);
		r.c[3] = d1;
		i.c[3] = d2;
		d1 = ::cos(r.c[4]) * ::cosh(i.c[4]);
		d2 = -::sin(i.c[4]) * ::sinh(r.c[4]);
		r.c[4] = d1;
		i.c[4] = d2;
		d1 = ::cos(r.c[5]) * ::cosh(i.c[5]);
		d2 = -::sin(i.c[5]) * ::sinh(r.c[5]);
		r.c[5] = d1;
		i.c[5] = d2;
		d1 = ::cos(r.c[6]) * ::cosh(i.c[6]);
		d2 = -::sin(i.c[6]) * ::sinh(r.c[6]);
		r.c[6] = d1;
		i.c[6] = d2;
		d1 = ::cos(r.c[7]) * ::cosh(i.c[7]);
		d2 = -::sin(i.c[7]) * ::sinh(r.c[7]);
		r.c[7] = d1;
		i.c[7] = d2;
		return this;
	}

	AML_FUNCTION AML_PREFIX(Array8Complex32) *tan() {
		float d1;
		float d2;
		d1 = ::sin(r.c[0] + r.c[0]) / (::cos(r.c[0] + r.c[0]) * ::cosh(i.c[0] + i.c[0]));
		d2 = ::sinh(i.c[0] + i.c[0]) / (::cos(r.c[0] + r.c[0]) * ::cosh(i.c[0] + i.c[0]));
		r.c[0] = d1;
		i.c[0] = d2;
		d1 = ::sin(r.c[1] + r.c[1]) / (::cos(r.c[1] + r.c[1]) * ::cosh(i.c[1] + i.c[1]));
		d2 = ::sinh(i.c[1] + i.c[1]) / (::cos(r.c[1] + r.c[1]) * ::cosh(i.c[1] + i.c[1]));
		r.c[1] = d1;
		i.c[1] = d2;
		d1 = ::sin(r.c[2] + r.c[2]) / (::cos(r.c[2] + r.c[2]) * ::cosh(i.c[2] + i.c[2]));
		d2 = ::sinh(i.c[2] + i.c[2]) / (::cos(r.c[2] + r.c[2]) * ::cosh(i.c[2] + i.c[2]));
		r.c[2] = d1;
		i.c[2] = d2;
		d1 = ::sin(r.c[3] + r.c[3]) / (::cos(r.c[3] + r.c[3]) * ::cosh(i.c[3] + i.c[3]));
		d2 = ::sinh(i.c[3] + i.c[3]) / (::cos(r.c[3] + r.c[3]) * ::cosh(i.c[3] + i.c[3]));
		r.c[3] = d1;
		i.c[3] = d2;
		d1 = ::sin(r.c[4] + r.c[4]) / (::cos(r.c[4] + r.c[4]) * ::cosh(i.c[4] + i.c[4]));
		d2 = ::sinh(i.c[4] + i.c[4]) / (::cos(r.c[4] + r.c[4]) * ::cosh(i.c[4] + i.c[4]));
		r.c[4] = d1;
		i.c[4] = d2;
		d1 = ::sin(r.c[5] + r.c[5]) / (::cos(r.c[5] + r.c[5]) * ::cosh(i.c[5] + i.c[5]));
		d2 = ::sinh(i.c[5] + i.c[5]) / (::cos(r.c[5] + r.c[5]) * ::cosh(i.c[5] + i.c[5]));
		r.c[5] = d1;
		i.c[5] = d2;
		d1 = ::sin(r.c[6] + r.c[6]) / (::cos(r.c[6] + r.c[6]) * ::cosh(i.c[6] + i.c[6]));
		d2 = ::sinh(i.c[6] + i.c[6]) / (::cos(r.c[6] + r.c[6]) * ::cosh(i.c[6] + i.c[6]));
		r.c[6] = d1;
		i.c[6] = d2;
		d1 = ::sin(r.c[7] + r.c[7]) / (::cos(r.c[7] + r.c[7]) * ::cosh(i.c[7] + i.c[7]));
		d2 = ::sinh(i.c[7] + i.c[7]) / (::cos(r.c[7] + r.c[7]) * ::cosh(i.c[7] + i.c[7]));
		r.c[7] = d1;
		i.c[7] = d2;
		return this;
	}

	AML_FUNCTION AML_PREFIX(Array8Complex32) *sin(const AML_PREFIX(VectorU8_8D) mask) {
		float d1;
		float d2;
		if (mask.v.c[0]) {
			d1 = ::sin(r.c[0]) * ::cosh(i.c[0]);
			d2 = ::cos(i.c[0]) * ::sinh(r.c[0]);
			r.c[0] = d1;
			i.c[0] = d2;
		}
		if (mask.v.c[1]) {
			d1 = ::sin(r.c[1]) * ::cosh(i.c[1]);
			d2 = ::cos(i.c[1]) * ::sinh(r.c[1]);
			r.c[1] = d1;
			i.c[1] = d2;
		}
		if (mask.v.c[2]) {
			d1 = ::sin(r.c[2]) * ::cosh(i.c[2]);
			d2 = ::cos(i.c[2]) * ::sinh(r.c[2]);
			r.c[2] = d1;
			i.c[2] = d2;
		}
		if (mask.v.c[3]) {
			d1 = ::sin(r.c[3]) * ::cosh(i.c[3]);
			d2 = ::cos(i.c[3]) * ::sinh(r.c[3]);
			r.c[3] = d1;
			i.c[3] = d2;
		}
		if (mask.v.c[4]) {
			d1 = ::sin(r.c[4]) * ::cosh(i.c[4]);
			d2 = ::cos(i.c[4]) * ::sinh(r.c[4]);
			r.c[4] = d1;
			i.c[4] = d2;
		}
		if (mask.v.c[5]) {
			d1 = ::sin(r.c[5]) * ::cosh(i.c[5]);
			d2 = ::cos(i.c[5]) * ::sinh(r.c[5]);
			r.c[5] = d1;
			i.c[5] = d2;
		}
		if (mask.v.c[6]) {
			d1 = ::sin(r.c[6]) * ::cosh(i.c[6]);
			d2 = ::cos(i.c[6]) * ::sinh(r.c[6]);
			r.c[6] = d1;
			i.c[6] = d2;
		}
		if (mask.v.c[7]) {
			d1 = ::sin(r.c[7]) * ::cosh(i.c[7]);
			d2 = ::cos(i.c[7]) * ::sinh(r.c[7]);
			r.c[7] = d1;
			i.c[7] = d2;
		}
		return this;
	}

	AML_FUNCTION AML_PREFIX(Array8Complex32) *cos(const AML_PREFIX(VectorU8_8D) mask) {
		float d1;
		float d2;
		if (mask.v.c[0]) {
			d1 = ::cos(r.c[0]) * ::cosh(i.c[0]);
			d2 = -::sin(i.c[0]) * ::sinh(r.c[0]);
			r.c[0] = d1;
			i.c[0] = d2;
		}
		if (mask.v.c[1]) {
			d1 = ::cos(r.c[1]) * ::cosh(i.c[1]);
			d2 = -::sin(i.c[1]) * ::sinh(r.c[1]);
			r.c[1] = d1;
			i.c[1] = d2;
		}
		if (mask.v.c[2]) {
			d1 = ::cos(r.c[2]) * ::cosh(i.c[2]);
			d2 = -::sin(i.c[2]) * ::sinh(r.c[2]);
			r.c[2] = d1;
			i.c[2] = d2;
		}
		if (mask.v.c[3]) {
			d1 = ::cos(r.c[3]) * ::cosh(i.c[3]);
			d2 = -::sin(i.c[3]) * ::sinh(r.c[3]);
			r.c[3] = d1;
			i.c[3] = d2;
		}
		if (mask.v.c[4]) {
			d1 = ::cos(r.c[4]) * ::cosh(i.c[4]);
			d2 = -::sin(i.c[4]) * ::sinh(r.c[4]);
			r.c[4] = d1;
			i.c[4] = d2;
		}
		if (mask.v.c[5]) {
			d1 = ::cos(r.c[5]) * ::cosh(i.c[5]);
			d2 = -::sin(i.c[5]) * ::sinh(r.c[5]);
			r.c[5] = d1;
			i.c[5] = d2;
		}
		if (mask.v.c[6]) {
			d1 = ::cos(r.c[6]) * ::cosh(i.c[6]);
			d2 = -::sin(i.c[6]) * ::sinh(r.c[6]);
			r.c[6] = d1;
			i.c[6] = d2;
		}
		if (mask.v.c[7]) {
			d1 = ::cos(r.c[7]) * ::cosh(i.c[7]);
			d2 = -::sin(i.c[7]) * ::sinh(r.c[7]);
			r.c[7] = d1;
			i.c[7] = d2;
		}
		return this;
	}

	AML_FUNCTION AML_PREFIX(Array8Complex32) *tan(const AML_PREFIX(VectorU8_8D) mask) {
		float d1;
		float d2;
		if (mask.v.c[0]) {
			d1 = ::sin(r.c[0] + r.c[0]) / (::cos(r.c[0] + r.c[0]) * ::cosh(i.c[0] + i.c[0]));
			d2 = ::sinh(i.c[0] + i.c[0]) / (::cos(r.c[0] + r.c[0]) * ::cosh(i.c[0] + i.c[0]));
			r.c[0] = d1;
			i.c[0] = d2;
		}
		if (mask.v.c[1]) {
			d1 = ::sin(r.c[1] + r.c[1]) / (::cos(r.c[1] + r.c[1]) * ::cosh(i.c[1] + i.c[1]));
			d2 = ::sinh(i.c[1] + i.c[1]) / (::cos(r.c[1] + r.c[1]) * ::cosh(i.c[1] + i.c[1]));
			r.c[1] = d1;
			i.c[1] = d2;
		}
		if (mask.v.c[2]) {
			d1 = ::sin(r.c[2] + r.c[2]) / (::cos(r.c[2] + r.c[2]) * ::cosh(i.c[2] + i.c[2]));
			d2 = ::sinh(i.c[2] + i.c[2]) / (::cos(r.c[2] + r.c[2]) * ::cosh(i.c[2] + i.c[2]));
			r.c[2] = d1;
			i.c[2] = d2;
		}
		if (mask.v.c[3]) {
			d1 = ::sin(r.c[3] + r.c[3]) / (::cos(r.c[3] + r.c[3]) * ::cosh(i.c[3] + i.c[3]));
			d2 = ::sinh(i.c[3] + i.c[3]) / (::cos(r.c[3] + r.c[3]) * ::cosh(i.c[3] + i.c[3]));
			r.c[3] = d1;
			i.c[3] = d2;
		}
		if (mask.v.c[4]) {
			d1 = ::sin(r.c[4] + r.c[4]) / (::cos(r.c[4] + r.c[4]) * ::cosh(i.c[4] + i.c[4]));
			d2 = ::sinh(i.c[4] + i.c[4]) / (::cos(r.c[4] + r.c[4]) * ::cosh(i.c[4] + i.c[4]));
			r.c[4] = d1;
			i.c[4] = d2;
		}
		if (mask.v.c[5]) {
			d1 = ::sin(r.c[5] + r.c[5]) / (::cos(r.c[5] + r.c[5]) * ::cosh(i.c[5] + i.c[5]));
			d2 = ::sinh(i.c[5] + i.c[5]) / (::cos(r.c[5] + r.c[5]) * ::cosh(i.c[5] + i.c[5]));
			r.c[5] = d1;
			i.c[5] = d2;
		}
		if (mask.v.c[6]) {
			d1 = ::sin(r.c[6] + r.c[6]) / (::cos(r.c[6] + r.c[6]) * ::cosh(i.c[6] + i.c[6]));
			d2 = ::sinh(i.c[6] + i.c[6]) / (::cos(r.c[6] + r.c[6]) * ::cosh(i.c[6] + i.c[6]));
			r.c[6] = d1;
			i.c[6] = d2;
		}
		if (mask.v.c[7]) {
			d1 = ::sin(r.c[7] + r.c[7]) / (::cos(r.c[7] + r.c[7]) * ::cosh(i.c[7] + i.c[7]));
			d2 = ::sinh(i.c[7] + i.c[7]) / (::cos(r.c[7] + r.c[7]) * ::cosh(i.c[7] + i.c[7]));
			r.c[7] = d1;
			i.c[7] = d2;
		}
		return this;
	}


	AML_FUNCTION AML_PREFIX(Array8Complex32) *exp() {
		float d1 = ::exp(r.c[0]) * ::cos(i.c[0]);
		float d2 = ::exp(r.c[0]) * ::sin(i.c[0]);
		r.c[0] = d1;
		i.c[0] = d2;
		d1 = ::exp(r.c[1]) * ::cos(i.c[1]);
		d2 = ::exp(r.c[1]) * ::sin(i.c[1]);
		r.c[1] = d1;
		i.c[1] = d2;
		d1 = ::exp(r.c[2]) * ::cos(i.c[2]);
		d2 = ::exp(r.c[2]) * ::sin(i.c[2]);
		r.c[2] = d1;
		i.c[2] = d2;
		d1 = ::exp(r.c[3]) * ::cos(i.c[3]);
		d2 = ::exp(r.c[3]) * ::sin(i.c[3]);
		r.c[3] = d1;
		i.c[3] = d2;
		d1 = ::exp(r.c[4]) * ::cos(i.c[4]);
		d2 = ::exp(r.c[4]) * ::sin(i.c[4]);
		r.c[4] = d1;
		i.c[4] = d2;
		d1 = ::exp(r.c[5]) * ::cos(i.c[5]);
		d2 = ::exp(r.c[5]) * ::sin(i.c[5]);
		r.c[5] = d1;
		i.c[5] = d2;
		d1 = ::exp(r.c[6]) * ::cos(i.c[6]);
		d2 = ::exp(r.c[6]) * ::sin(i.c[6]);
		r.c[6] = d1;
		i.c[6] = d2;
		d1 = ::exp(r.c[7]) * ::cos(i.c[7]);
		d2 = ::exp(r.c[7]) * ::sin(i.c[7]);
		r.c[7] = d1;
		i.c[7] = d2;
		return this;
	}

	AML_FUNCTION AML_PREFIX(Array8Complex32) *exp(float n) {
		float d1 = ::pow(n, r.c[0]) * ::cos(i.c[0] * ::log(n));
		float d2 = ::pow(n, r.c[0]) * ::sin(i.c[0] * ::log(n));
		r.c[0] = d1;
		i.c[0] = d2;
		d1 = ::pow(n, r.c[1]) * ::cos(i.c[1] * ::log(n));
		d2 = ::pow(n, r.c[1]) * ::sin(i.c[1] * ::log(n));
		r.c[1] = d1;
		i.c[1] = d2;
		d1 = ::pow(n, r.c[2]) * ::cos(i.c[2] * ::log(n));
		d2 = ::pow(n, r.c[2]) * ::sin(i.c[2] * ::log(n));
		r.c[2] = d1;
		i.c[2] = d2;
		d1 = ::pow(n, r.c[3]) * ::cos(i.c[3] * ::log(n));
		d2 = ::pow(n, r.c[3]) * ::sin(i.c[3] * ::log(n));
		r.c[3] = d1;
		i.c[3] = d2;
		d1 = ::pow(n, r.c[4]) * ::cos(i.c[4] * ::log(n));
		d2 = ::pow(n, r.c[4]) * ::sin(i.c[4] * ::log(n));
		r.c[4] = d1;
		i.c[4] = d2;
		d1 = ::pow(n, r.c[5]) * ::cos(i.c[5] * ::log(n));
		d2 = ::pow(n, r.c[5]) * ::sin(i.c[5] * ::log(n));
		r.c[5] = d1;
		i.c[5] = d2;
		d1 = ::pow(n, r.c[6]) * ::cos(i.c[6] * ::log(n));
		d2 = ::pow(n, r.c[6]) * ::sin(i.c[6] * ::log(n));
		r.c[6] = d1;
		i.c[6] = d2;
		d1 = ::pow(n, r.c[7]) * ::cos(i.c[7] * ::log(n));
		d2 = ::pow(n, r.c[7]) * ::sin(i.c[7] * ::log(n));
		r.c[7] = d1;
		i.c[7] = d2;
		return this;
	}

	AML_FUNCTION AML_PREFIX(Array8Complex32) *pow(const AML_PREFIX(Array8Complex32) &n) {
		float d1 = ::log(i.c[0] * i.c[0] + r.c[0] * r.c[0]) / 2;
		float d2 = ::atan2(r.c[0], i.c[0]);
		float d3 = ::exp(d1 * n.i.c[0] - d2 * n.r.c[0]);
		float d4 = d1 * n.r.c[0] + d2 * n.i.c[0];
		float d5 = d3 * ::cos(d4);
		float d6 = d3 * ::sin(d4);
		i.c[0] = d5;
		r.c[0] = d6;
		d1 = ::log(i.c[1] * i.c[1] + r.c[1] * r.c[1]) / 2;
		d2 = ::atan2(r.c[1], i.c[1]);
		d3 = ::exp(d1 * n.i.c[1] - d2 * n.r.c[1]);
		d4 = d1 * n.r.c[1] + d2 * n.i.c[1];
		d5 = d3 * ::cos(d4);
		d6 = d3 * ::sin(d4);
		i.c[1] = d5;
		r.c[1] = d6;
		d1 = ::log(i.c[2] * i.c[2] + r.c[2] * r.c[2]) / 2;
		d2 = ::atan2(r.c[2], i.c[2]);
		d3 = ::exp(d1 * n.i.c[2] - d2 * n.r.c[2]);
		d4 = d1 * n.r.c[2] + d2 * n.i.c[2];
		d5 = d3 * ::cos(d4);
		d6 = d3 * ::sin(d4);
		i.c[2] = d5;
		r.c[2] = d6;
		d1 = ::log(i.c[3] * i.c[3] + r.c[3] * r.c[3]) / 2;
		d2 = ::atan2(r.c[3], i.c[3]);
		d3 = ::exp(d1 * n.i.c[3] - d2 * n.r.c[3]);
		d4 = d1 * n.r.c[3] + d2 * n.i.c[3];
		d5 = d3 * ::cos(d4);
		d6 = d3 * ::sin(d4);
		i.c[3] = d5;
		r.c[3] = d6;
		d1 = ::log(i.c[4] * i.c[4] + r.c[4] * r.c[4]) / 2;
		d2 = ::atan2(r.c[4], i.c[4]);
		d3 = ::exp(d1 * n.i.c[4] - d2 * n.r.c[4]);
		d4 = d1 * n.r.c[4] + d2 * n.i.c[4];
		d5 = d3 * ::cos(d4);
		d6 = d3 * ::sin(d4);
		i.c[4] = d5;
		r.c[4] = d6;
		d1 = ::log(i.c[5] * i.c[5] + r.c[5] * r.c[5]) / 2;
		d2 = ::atan2(r.c[5], i.c[5]);
		d3 = ::exp(d1 * n.i.c[5] - d2 * n.r.c[5]);
		d4 = d1 * n.r.c[5] + d2 * n.i.c[5];
		d5 = d3 * ::cos(d4);
		d6 = d3 * ::sin(d4);
		i.c[5] = d5;
		r.c[5] = d6;
		d1 = ::log(i.c[6] * i.c[6] + r.c[6] * r.c[6]) / 2;
		d2 = ::atan2(r.c[6], i.c[6]);
		d3 = ::exp(d1 * n.i.c[6] - d2 * n.r.c[6]);
		d4 = d1 * n.r.c[6] + d2 * n.i.c[6];
		d5 = d3 * ::cos(d4);
		d6 = d3 * ::sin(d4);
		i.c[6] = d5;
		r.c[6] = d6;
		d1 = ::log(i.c[7] * i.c[7] + r.c[7] * r.c[7]) / 2;
		d2 = ::atan2(r.c[7], i.c[7]);
		d3 = ::exp(d1 * n.i.c[7] - d2 * n.r.c[7]);
		d4 = d1 * n.r.c[7] + d2 * n.i.c[7];
		d5 = d3 * ::cos(d4);
		d6 = d3 * ::sin(d4);
		i.c[7] = d5;
		r.c[7] = d6;
		return this;
	}


	AML_FUNCTION AML_PREFIX(Array8Complex32) *pow(const AML_PREFIX(Complex32) n) {
		float d1 = ::log(i.c[0] * i.c[0] + r.c[0] * r.c[0]) / 2;
		float d2 = ::atan2(r.c[0], i.c[0]);
		float d3 = ::exp(d1 * n.c.c[0] - d2 * n.c.c[1]);
		float d4 = d1 * n.c.c[1] + d2 * n.c.c[0];
		float d5 = d3 * ::cos(d4);
		float d6 = d3 * ::sin(d4);
		i.c[0] = d5;
		r.c[0] = d6;
		d1 = ::log(i.c[1] * i.c[1] + r.c[1] * r.c[1]) / 2;
		d2 = ::atan2(r.c[1], i.c[1]);
		d3 = ::exp(d1 * n.c.c[0] - d2 * n.c.c[1]);
		d4 = d1 * n.c.c[1] + d2 * n.c.c[0];
		d5 = d3 * ::cos(d4);
		d6 = d3 * ::sin(d4);
		i.c[1] = d5;
		r.c[1] = d6;
		d1 = ::log(i.c[2] * i.c[2] + r.c[2] * r.c[2]) / 2;
		d2 = ::atan2(r.c[2], i.c[2]);
		d3 = ::exp(d1 * n.c.c[0] - d2 * n.c.c[1]);
		d4 = d1 * n.c.c[1] + d2 * n.c.c[0];
		d5 = d3 * ::cos(d4);
		d6 = d3 * ::sin(d4);
		i.c[2] = d5;
		r.c[2] = d6;
		d1 = ::log(i.c[3] * i.c[3] + r.c[3] * r.c[3]) / 2;
		d2 = ::atan2(r.c[3], i.c[3]);
		d3 = ::exp(d1 * n.c.c[0] - d2 * n.c.c[1]);
		d4 = d1 * n.c.c[1] + d2 * n.c.c[0];
		d5 = d3 * ::cos(d4);
		d6 = d3 * ::sin(d4);
		i.c[3] = d5;
		r.c[3] = d6;
		d1 = ::log(i.c[4] * i.c[4] + r.c[4] * r.c[4]) / 2;
		d2 = ::atan2(r.c[4], i.c[4]);
		d3 = ::exp(d1 * n.c.c[0] - d2 * n.c.c[1]);
		d4 = d1 * n.c.c[1] + d2 * n.c.c[0];
		d5 = d3 * ::cos(d4);
		d6 = d3 * ::sin(d4);
		i.c[4] = d5;
		r.c[4] = d6;
		d1 = ::log(i.c[5] * i.c[5] + r.c[5] * r.c[5]) / 2;
		d2 = ::atan2(r.c[5], i.c[5]);
		d3 = ::exp(d1 * n.c.c[0] - d2 * n.c.c[1]);
		d4 = d1 * n.c.c[1] + d2 * n.c.c[0];
		d5 = d3 * ::cos(d4);
		d6 = d3 * ::sin(d4);
		i.c[5] = d5;
		r.c[5] = d6;
		d1 = ::log(i.c[6] * i.c[6] + r.c[6] * r.c[6]) / 2;
		d2 = ::atan2(r.c[6], i.c[6]);
		d3 = ::exp(d1 * n.c.c[0] - d2 * n.c.c[1]);
		d4 = d1 * n.c.c[1] + d2 * n.c.c[0];
		d5 = d3 * ::cos(d4);
		d6 = d3 * ::sin(d4);
		i.c[6] = d5;
		r.c[6] = d6;
		d1 = ::log(i.c[7] * i.c[7] + r.c[7] * r.c[7]) / 2;
		d2 = ::atan2(r.c[7], i.c[7]);
		d3 = ::exp(d1 * n.c.c[0] - d2 * n.c.c[1]);
		d4 = d1 * n.c.c[1] + d2 * n.c.c[0];
		d5 = d3 * ::cos(d4);
		d6 = d3 * ::sin(d4);
		i.c[7] = d5;
		r.c[7] = d6;
		return this;
	}

	AML_FUNCTION AML_PREFIX(Array8Complex32) *
	pow(const AML_PREFIX(Array8Complex32) &n, const AML_PREFIX(VectorU8_8D) &mask) {
		float d1;
		float d2;
		float d3;
		float d4;
		float d5;
		float d6;
		if (mask.v.c[0]) {
			d1 = ::log(i.c[0] * i.c[0] + r.c[0] * r.c[0]) / 2;
			d2 = ::atan2(r.c[0], i.c[0]);
			d3 = ::exp(d1 * n.i.c[0] - d2 * n.r.c[0]);
			d4 = d1 * n.r.c[0] + d2 * n.i.c[0];
			d5 = d3 * ::cos(d4);
			d6 = d3 * ::sin(d4);
			i.c[0] = d5;
			r.c[0] = d6;
		}
		if (mask.v.c[1]) {
			d1 = ::log(i.c[1] * i.c[1] + r.c[1] * r.c[1]) / 2;
			d2 = ::atan2(r.c[1], i.c[1]);
			d3 = ::exp(d1 * n.i.c[1] - d2 * n.r.c[1]);
			d4 = d1 * n.r.c[1] + d2 * n.i.c[1];
			d5 = d3 * ::cos(d4);
			d6 = d3 * ::sin(d4);
			i.c[1] = d5;
			r.c[1] = d6;
		}
		if (mask.v.c[2]) {
			d1 = ::log(i.c[2] * i.c[2] + r.c[2] * r.c[2]) / 2;
			d2 = ::atan2(r.c[2], i.c[2]);
			d3 = ::exp(d1 * n.i.c[2] - d2 * n.r.c[2]);
			d4 = d1 * n.r.c[2] + d2 * n.i.c[2];
			d5 = d3 * ::cos(d4);
			d6 = d3 * ::sin(d4);
			i.c[2] = d5;
			r.c[2] = d6;
		}
		if (mask.v.c[3]) {
			d1 = ::log(i.c[3] * i.c[3] + r.c[3] * r.c[3]) / 2;
			d2 = ::atan2(r.c[3], i.c[3]);
			d3 = ::exp(d1 * n.i.c[3] - d2 * n.r.c[3]);
			d4 = d1 * n.r.c[3] + d2 * n.i.c[3];
			d5 = d3 * ::cos(d4);
			d6 = d3 * ::sin(d4);
			i.c[3] = d5;
			r.c[3] = d6;
		}
		if (mask.v.c[4]) {
			d1 = ::log(i.c[4] * i.c[4] + r.c[4] * r.c[4]) / 2;
			d2 = ::atan2(r.c[4], i.c[4]);
			d3 = ::exp(d1 * n.i.c[4] - d2 * n.r.c[4]);
			d4 = d1 * n.r.c[4] + d2 * n.i.c[4];
			d5 = d3 * ::cos(d4);
			d6 = d3 * ::sin(d4);
			i.c[4] = d5;
			r.c[4] = d6;
		}
		if (mask.v.c[5]) {
			d1 = ::log(i.c[5] * i.c[5] + r.c[5] * r.c[5]) / 2;
			d2 = ::atan2(r.c[5], i.c[5]);
			d3 = ::exp(d1 * n.i.c[5] - d2 * n.r.c[5]);
			d4 = d1 * n.r.c[5] + d2 * n.i.c[5];
			d5 = d3 * ::cos(d4);
			d6 = d3 * ::sin(d4);
			i.c[5] = d5;
			r.c[5] = d6;
		}
		if (mask.v.c[6]) {
			d1 = ::log(i.c[6] * i.c[6] + r.c[6] * r.c[6]) / 2;
			d2 = ::atan2(r.c[6], i.c[6]);
			d3 = ::exp(d1 * n.i.c[6] - d2 * n.r.c[6]);
			d4 = d1 * n.r.c[6] + d2 * n.i.c[6];
			d5 = d3 * ::cos(d4);
			d6 = d3 * ::sin(d4);
			i.c[6] = d5;
			r.c[6] = d6;
		}
		if (mask.v.c[7]) {
			d1 = ::log(i.c[7] * i.c[7] + r.c[7] * r.c[7]) / 2;
			d2 = ::atan2(r.c[7], i.c[7]);
			d3 = ::exp(d1 * n.i.c[7] - d2 * n.r.c[7]);
			d4 = d1 * n.r.c[7] + d2 * n.i.c[7];
			d5 = d3 * ::cos(d4);
			d6 = d3 * ::sin(d4);
			i.c[7] = d5;
			r.c[7] = d6;
		}
		return this;
	}


	AML_FUNCTION AML_PREFIX(Array8Complex32) *pow(const AML_PREFIX(Complex32) n, const AML_PREFIX(VectorU8_8D) &mask) {
		float d1;
		float d2;
		float d3;
		float d4;
		float d5;
		float d6;
		if (mask.v.c[0]) {
			d1 = ::log(i.c[0] * i.c[0] + r.c[0] * r.c[0]) / 2;
			d2 = ::atan2(r.c[0], i.c[0]);
			d3 = ::exp(d1 * n.c.c[0] - d2 * n.c.c[1]);
			d4 = d1 * n.c.c[1] + d2 * n.c.c[0];
			d5 = d3 * ::cos(d4);
			d6 = d3 * ::sin(d4);
			i.c[0] = d5;
			r.c[0] = d6;
		}
		if (mask.v.c[1]) {
			d1 = ::log(i.c[1] * i.c[1] + r.c[1] * r.c[1]) / 2;
			d2 = ::atan2(r.c[1], i.c[1]);
			d3 = ::exp(d1 * n.c.c[0] - d2 * n.c.c[1]);
			d4 = d1 * n.c.c[1] + d2 * n.c.c[0];
			d5 = d3 * ::cos(d4);
			d6 = d3 * ::sin(d4);
			i.c[1] = d5;
			r.c[1] = d6;
		}
		if (mask.v.c[2]) {
			d1 = ::log(i.c[2] * i.c[2] + r.c[2] * r.c[2]) / 2;
			d2 = ::atan2(r.c[2], i.c[2]);
			d3 = ::exp(d1 * n.c.c[0] - d2 * n.c.c[1]);
			d4 = d1 * n.c.c[1] + d2 * n.c.c[0];
			d5 = d3 * ::cos(d4);
			d6 = d3 * ::sin(d4);
			i.c[2] = d5;
			r.c[2] = d6;
		}
		if (mask.v.c[3]) {
			d1 = ::log(i.c[3] * i.c[3] + r.c[3] * r.c[3]) / 2;
			d2 = ::atan2(r.c[3], i.c[3]);
			d3 = ::exp(d1 * n.c.c[0] - d2 * n.c.c[1]);
			d4 = d1 * n.c.c[1] + d2 * n.c.c[0];
			d5 = d3 * ::cos(d4);
			d6 = d3 * ::sin(d4);
			i.c[3] = d5;
			r.c[3] = d6;
		}
		if (mask.v.c[4]) {
			d1 = ::log(i.c[4] * i.c[4] + r.c[4] * r.c[4]) / 2;
			d2 = ::atan2(r.c[4], i.c[4]);
			d3 = ::exp(d1 * n.c.c[0] - d2 * n.c.c[1]);
			d4 = d1 * n.c.c[1] + d2 * n.c.c[0];
			d5 = d3 * ::cos(d4);
			d6 = d3 * ::sin(d4);
			i.c[4] = d5;
			r.c[4] = d6;
		}
		if (mask.v.c[5]) {
			d1 = ::log(i.c[5] * i.c[5] + r.c[5] * r.c[5]) / 2;
			d2 = ::atan2(r.c[5], i.c[5]);
			d3 = ::exp(d1 * n.c.c[0] - d2 * n.c.c[1]);
			d4 = d1 * n.c.c[1] + d2 * n.c.c[0];
			d5 = d3 * ::cos(d4);
			d6 = d3 * ::sin(d4);
			i.c[5] = d5;
			r.c[5] = d6;
		}
		if (mask.v.c[6]) {
			d1 = ::log(i.c[6] * i.c[6] + r.c[6] * r.c[6]) / 2;
			d2 = ::atan2(r.c[6], i.c[6]);
			d3 = ::exp(d1 * n.c.c[0] - d2 * n.c.c[1]);
			d4 = d1 * n.c.c[1] + d2 * n.c.c[0];
			d5 = d3 * ::cos(d4);
			d6 = d3 * ::sin(d4);
			i.c[6] = d5;
			r.c[6] = d6;
		}
		if (mask.v.c[7]) {
			d1 = ::log(i.c[7] * i.c[7] + r.c[7] * r.c[7]) / 2;
			d2 = ::atan2(r.c[7], i.c[7]);
			d3 = ::exp(d1 * n.c.c[0] - d2 * n.c.c[1]);
			d4 = d1 * n.c.c[1] + d2 * n.c.c[0];
			d5 = d3 * ::cos(d4);
			d6 = d3 * ::sin(d4);
			i.c[7] = d5;
			r.c[7] = d6;
		}
		return this;
	}

	AML_FUNCTION AML_PREFIX(Array8Complex32) *exp(const AML_PREFIX(VectorU8_8D) &mask) {
		float d1;
		float d2;
		if (mask.v.c[0]) {
			d1 = ::exp(r.c[0]) * ::cos(i.c[0]);
			d2 = ::exp(r.c[0]) * ::sin(i.c[0]);
			r.c[0] = d1;
			i.c[0] = d2;
		}
		if (mask.v.c[1]) {
			d1 = ::exp(r.c[1]) * ::cos(i.c[1]);
			d2 = ::exp(r.c[1]) * ::sin(i.c[1]);
			r.c[1] = d1;
			i.c[1] = d2;
		}
		if (mask.v.c[2]) {
			d1 = ::exp(r.c[2]) * ::cos(i.c[2]);
			d2 = ::exp(r.c[2]) * ::sin(i.c[2]);
			r.c[2] = d1;
			i.c[2] = d2;
		}
		if (mask.v.c[3]) {
			d1 = ::exp(r.c[3]) * ::cos(i.c[3]);
			d2 = ::exp(r.c[3]) * ::sin(i.c[3]);
			r.c[3] = d1;
			i.c[3] = d2;
		}
		if (mask.v.c[4]) {
			d1 = ::exp(r.c[4]) * ::cos(i.c[4]);
			d2 = ::exp(r.c[4]) * ::sin(i.c[4]);
			r.c[4] = d1;
			i.c[4] = d2;
		}
		if (mask.v.c[5]) {
			d1 = ::exp(r.c[5]) * ::cos(i.c[5]);
			d2 = ::exp(r.c[5]) * ::sin(i.c[5]);
			r.c[5] = d1;
			i.c[5] = d2;
		}
		if (mask.v.c[6]) {
			d1 = ::exp(r.c[6]) * ::cos(i.c[6]);
			d2 = ::exp(r.c[6]) * ::sin(i.c[6]);
			r.c[6] = d1;
			i.c[6] = d2;
		}
		if (mask.v.c[7]) {
			d1 = ::exp(r.c[7]) * ::cos(i.c[7]);
			d2 = ::exp(r.c[7]) * ::sin(i.c[7]);
			r.c[7] = d1;
			i.c[7] = d2;
		}
		return this;
	}

	AML_FUNCTION AML_PREFIX(Array8Complex32) *exp(float n, const AML_PREFIX(VectorU8_8D) &mask) {
		float d1;
		float d2;
		if (mask.v.c[0]) {
			d1 = ::pow(n, r.c[0]) * ::cos(i.c[0] * ::log(n));
			d2 = ::pow(n, r.c[0]) * ::sin(i.c[0] * ::log(n));
			r.c[0] = d1;
			i.c[0] = d2;
		}
		if (mask.v.c[1]) {
			d1 = ::pow(n, r.c[1]) * ::cos(i.c[1] * ::log(n));
			d2 = ::pow(n, r.c[1]) * ::sin(i.c[1] * ::log(n));
			r.c[1] = d1;
			i.c[1] = d2;
		}
		if (mask.v.c[2]) {
			d1 = ::pow(n, r.c[2]) * ::cos(i.c[2] * ::log(n));
			d2 = ::pow(n, r.c[2]) * ::sin(i.c[2] * ::log(n));
			r.c[2] = d1;
			i.c[2] = d2;
		}
		if (mask.v.c[3]) {
			d1 = ::pow(n, r.c[3]) * ::cos(i.c[3] * ::log(n));
			d2 = ::pow(n, r.c[3]) * ::sin(i.c[3] * ::log(n));
			r.c[3] = d1;
			i.c[3] = d2;
		}
		if (mask.v.c[4]) {
			d1 = ::pow(n, r.c[4]) * ::cos(i.c[4] * ::log(n));
			d2 = ::pow(n, r.c[4]) * ::sin(i.c[4] * ::log(n));
			r.c[4] = d1;
			i.c[4] = d2;
		}
		if (mask.v.c[5]) {
			d1 = ::pow(n, r.c[5]) * ::cos(i.c[5] * ::log(n));
			d2 = ::pow(n, r.c[5]) * ::sin(i.c[5] * ::log(n));
			r.c[5] = d1;
			i.c[5] = d2;
		}
		if (mask.v.c[6]) {
			d1 = ::pow(n, r.c[6]) * ::cos(i.c[6] * ::log(n));
			d2 = ::pow(n, r.c[6]) * ::sin(i.c[6] * ::log(n));
			r.c[6] = d1;
			i.c[6] = d2;
		}
		if (mask.v.c[7]) {
			d1 = ::pow(n, r.c[7]) * ::cos(i.c[7] * ::log(n));
			d2 = ::pow(n, r.c[7]) * ::sin(i.c[7] * ::log(n));
			r.c[7] = d1;
			i.c[7] = d2;
		}
		return this;
	}

	AML_FUNCTION AML_PREFIX(Array8Complex32) *pow(float n) {
		float d1;
		float d2;
		d1 = ::pow(r.c[0] * r.c[0] + i.c[0] * i.c[0], n / 2) * ::cos(n * atan2(i.c[0], r.c[0]));
		d2 = ::pow(r.c[0] * r.c[0] + i.c[0] * i.c[0], n / 2) * ::sin(n * atan2(i.c[0], r.c[0]));
		r.c[0] = d1;
		i.c[0] = d2;
		d1 = ::pow(r.c[1] * r.c[1] + i.c[1] * i.c[1], n / 2) * ::cos(n * atan2(i.c[1], r.c[1]));
		d2 = ::pow(r.c[1] * r.c[1] + i.c[1] * i.c[1], n / 2) * ::sin(n * atan2(i.c[1], r.c[1]));
		r.c[1] = d1;
		i.c[1] = d2;
		d1 = ::pow(r.c[2] * r.c[2] + i.c[2] * i.c[2], n / 2) * ::cos(n * atan2(i.c[2], r.c[2]));
		d2 = ::pow(r.c[2] * r.c[2] + i.c[2] * i.c[2], n / 2) * ::sin(n * atan2(i.c[2], r.c[2]));
		r.c[2] = d1;
		i.c[2] = d2;
		d1 = ::pow(r.c[3] * r.c[3] + i.c[3] * i.c[3], n / 2) * ::cos(n * atan2(i.c[3], r.c[3]));
		d2 = ::pow(r.c[3] * r.c[3] + i.c[3] * i.c[3], n / 2) * ::sin(n * atan2(i.c[3], r.c[3]));
		r.c[3] = d1;
		i.c[3] = d2;
		d1 = ::pow(r.c[4] * r.c[4] + i.c[4] * i.c[4], n / 2) * ::cos(n * atan2(i.c[4], r.c[4]));
		d2 = ::pow(r.c[4] * r.c[4] + i.c[4] * i.c[4], n / 2) * ::sin(n * atan2(i.c[4], r.c[4]));
		r.c[4] = d1;
		i.c[4] = d2;
		d1 = ::pow(r.c[5] * r.c[5] + i.c[5] * i.c[5], n / 2) * ::cos(n * atan2(i.c[5], r.c[5]));
		d2 = ::pow(r.c[5] * r.c[5] + i.c[5] * i.c[5], n / 2) * ::sin(n * atan2(i.c[5], r.c[5]));
		r.c[5] = d1;
		i.c[5] = d2;
		d1 = ::pow(r.c[6] * r.c[6] + i.c[6] * i.c[6], n / 2) * ::cos(n * atan2(i.c[6], r.c[6]));
		d2 = ::pow(r.c[6] * r.c[6] + i.c[6] * i.c[6], n / 2) * ::sin(n * atan2(i.c[6], r.c[6]));
		r.c[6] = d1;
		i.c[6] = d2;
		d1 = ::pow(r.c[7] * r.c[7] + i.c[7] * i.c[7], n / 2) * ::cos(n * atan2(i.c[7], r.c[7]));
		d2 = ::pow(r.c[7] * r.c[7] + i.c[7] * i.c[7], n / 2) * ::sin(n * atan2(i.c[7], r.c[7]));
		r.c[7] = d1;
		i.c[7] = d2;

		return this;
	}

	AML_FUNCTION AML_PREFIX(Array8Complex32) *pow(float n, const AML_PREFIX(VectorU8_8D) &mask) {
		float d1;
		float d2;
		if (mask.v.c[0]) {
			d1 = ::pow(r.c[0] * r.c[0] + i.c[0] * i.c[0], n / 2) * ::cos(n * atan2(i.c[0], r.c[0]));
			d2 = ::pow(r.c[0] * r.c[0] + i.c[0] * i.c[0], n / 2) * ::sin(n * atan2(i.c[0], r.c[0]));
			r.c[0] = d1;
			i.c[0] = d2;
		}
		if (mask.v.c[1]) {
			d1 = ::pow(r.c[1] * r.c[1] + i.c[1] * i.c[1], n / 2) * ::cos(n * atan2(i.c[1], r.c[1]));
			d2 = ::pow(r.c[1] * r.c[1] + i.c[1] * i.c[1], n / 2) * ::sin(n * atan2(i.c[1], r.c[1]));
			r.c[1] = d1;
			i.c[1] = d2;
		}
		if (mask.v.c[2]) {
			d1 = ::pow(r.c[2] * r.c[2] + i.c[2] * i.c[2], n / 2) * ::cos(n * atan2(i.c[2], r.c[2]));
			d2 = ::pow(r.c[2] * r.c[2] + i.c[2] * i.c[2], n / 2) * ::sin(n * atan2(i.c[2], r.c[2]));
			r.c[2] = d1;
			i.c[2] = d2;
		}
		if (mask.v.c[3]) {
			d1 = ::pow(r.c[3] * r.c[3] + i.c[3] * i.c[3], n / 2) * ::cos(n * atan2(i.c[3], r.c[3]));
			d2 = ::pow(r.c[3] * r.c[3] + i.c[3] * i.c[3], n / 2) * ::sin(n * atan2(i.c[3], r.c[3]));
			r.c[3] = d1;
			i.c[3] = d2;
		}
		if (mask.v.c[4]) {
			d1 = ::pow(r.c[4] * r.c[4] + i.c[4] * i.c[4], n / 2) * ::cos(n * atan2(i.c[4], r.c[4]));
			d2 = ::pow(r.c[4] * r.c[4] + i.c[4] * i.c[4], n / 2) * ::sin(n * atan2(i.c[4], r.c[4]));
			r.c[4] = d1;
			i.c[4] = d2;
		}
		if (mask.v.c[5]) {
			d1 = ::pow(r.c[5] * r.c[5] + i.c[5] * i.c[5], n / 2) * ::cos(n * atan2(i.c[5], r.c[5]));
			d2 = ::pow(r.c[5] * r.c[5] + i.c[5] * i.c[5], n / 2) * ::sin(n * atan2(i.c[5], r.c[5]));
			r.c[5] = d1;
			i.c[5] = d2;
		}
		if (mask.v.c[6]) {
			d1 = ::pow(r.c[6] * r.c[6] + i.c[6] * i.c[6], n / 2) * ::cos(n * atan2(i.c[6], r.c[6]));
			d2 = ::pow(r.c[6] * r.c[6] + i.c[6] * i.c[6], n / 2) * ::sin(n * atan2(i.c[6], r.c[6]));
			r.c[6] = d1;
			i.c[6] = d2;
		}
		if (mask.v.c[7]) {
			d1 = ::pow(r.c[7] * r.c[7] + i.c[7] * i.c[7], n / 2) * ::cos(n * atan2(i.c[7], r.c[7]));
			d2 = ::pow(r.c[7] * r.c[7] + i.c[7] * i.c[7], n / 2) * ::sin(n * atan2(i.c[7], r.c[7]));
			r.c[7] = d1;
			i.c[7] = d2;
		}
		return this;
	}

	AML_FUNCTION AML_PREFIX(Vector8D_32) abs() {
		AML_PREFIX(Vector8D_32) ret;
		ret.v.c[0] = ::sqrt(r.c[0] * r.c[0] + i.c[0] * i.c[0]);
		ret.v.c[1] = ::sqrt(r.c[1] * r.c[1] + i.c[1] * i.c[1]);
		ret.v.c[2] = ::sqrt(r.c[2] * r.c[2] + i.c[2] * i.c[2]);
		ret.v.c[3] = ::sqrt(r.c[3] * r.c[3] + i.c[3] * i.c[3]);
		ret.v.c[4] = ::sqrt(r.c[4] * r.c[4] + i.c[4] * i.c[4]);
		ret.v.c[5] = ::sqrt(r.c[5] * r.c[5] + i.c[5] * i.c[5]);
		ret.v.c[6] = ::sqrt(r.c[6] * r.c[6] + i.c[6] * i.c[6]);
		ret.v.c[7] = ::sqrt(r.c[7] * r.c[7] + i.c[7] * i.c[7]);
		return ret;
	}

	AML_FUNCTION AML_PREFIX(VectorU8_8D) abs_gt(float a) {
		AML_PREFIX(VectorU8_8D) ret;
		ret.v.c[0] = a * a < r.c[0] * r.c[0] + i.c[0] * i.c[0];
		ret.v.c[1] = a * a < r.c[1] * r.c[1] + i.c[1] * i.c[1];
		ret.v.c[2] = a * a < r.c[2] * r.c[2] + i.c[2] * i.c[2];
		ret.v.c[3] = a * a < r.c[3] * r.c[3] + i.c[3] * i.c[3];
		ret.v.c[4] = a * a < r.c[4] * r.c[4] + i.c[4] * i.c[4];
		ret.v.c[5] = a * a < r.c[5] * r.c[5] + i.c[5] * i.c[5];
		ret.v.c[6] = a * a < r.c[6] * r.c[6] + i.c[6] * i.c[6];
		ret.v.c[7] = a * a < r.c[7] * r.c[7] + i.c[7] * i.c[7];
		return ret;
	}

	AML_FUNCTION AML_PREFIX(VectorU8_8D) abs_lt(float a) {
		AML_PREFIX(VectorU8_8D) ret;
		ret.v.c[0] = a * a > r.c[0] * r.c[0] + i.c[0] * i.c[0];
		ret.v.c[1] = a * a > r.c[1] * r.c[1] + i.c[1] * i.c[1];
		ret.v.c[2] = a * a > r.c[2] * r.c[2] + i.c[2] * i.c[2];
		ret.v.c[3] = a * a > r.c[3] * r.c[3] + i.c[3] * i.c[3];
		ret.v.c[4] = a * a > r.c[4] * r.c[4] + i.c[4] * i.c[4];
		ret.v.c[5] = a * a > r.c[5] * r.c[5] + i.c[5] * i.c[5];
		ret.v.c[6] = a * a > r.c[6] * r.c[6] + i.c[6] * i.c[6];
		ret.v.c[7] = a * a > r.c[7] * r.c[7] + i.c[7] * i.c[7];
		return ret;
	}

	AML_FUNCTION AML_PREFIX(VectorU8_8D) abs_eq(float a) {
		AML_PREFIX(VectorU8_8D) ret;
		ret.v.c[0] = a * a == r.c[0] * r.c[0] + i.c[0] * i.c[0];
		ret.v.c[1] = a * a == r.c[1] * r.c[1] + i.c[1] * i.c[1];
		ret.v.c[2] = a * a == r.c[2] * r.c[2] + i.c[2] * i.c[2];
		ret.v.c[3] = a * a == r.c[3] * r.c[3] + i.c[3] * i.c[3];
		ret.v.c[4] = a * a == r.c[4] * r.c[4] + i.c[4] * i.c[4];
		ret.v.c[5] = a * a == r.c[5] * r.c[5] + i.c[5] * i.c[5];
		ret.v.c[6] = a * a == r.c[6] * r.c[6] + i.c[6] * i.c[6];
		ret.v.c[7] = a * a == r.c[7] * r.c[7] + i.c[7] * i.c[7];
		return ret;
	}

	AML_FUNCTION AML_PREFIX(Array8Complex32) *ln(const AML_PREFIX(VectorU8_8D) &mask) {
		float d1;
		float d2;
		if (mask.v.c[0]) {
			d1 = ::log(i.c[0] * i.c[0] + r.c[0] * r.c[0]) / 2;
			d2 = ::atan2(r.c[0], i.c[0]);
			i.c[0] = d1;
			r.c[0] = d2;
		}
		if (mask.v.c[1]) {
			d1 = ::log(i.c[1] * i.c[1] + r.c[1] * r.c[1]) / 2;
			d2 = ::atan2(r.c[1], i.c[1]);
			i.c[1] = d1;
			r.c[1] = d2;
		}
		if (mask.v.c[2]) {
			d1 = ::log(i.c[2] * i.c[2] + r.c[2] * r.c[2]) / 2;
			d2 = ::atan2(r.c[2], i.c[2]);
			i.c[2] = d1;
			r.c[2] = d2;
		}
		if (mask.v.c[3]) {
			d1 = ::log(i.c[3] * i.c[3] + r.c[3] * r.c[3]) / 2;
			d2 = ::atan2(r.c[3], i.c[3]);
			i.c[3] = d1;
			r.c[3] = d2;
		}
		if (mask.v.c[4]) {
			d1 = ::log(i.c[4] * i.c[4] + r.c[4] * r.c[4]) / 2;
			d2 = ::atan2(r.c[4], i.c[4]);
			i.c[4] = d1;
			r.c[4] = d2;
		}
		if (mask.v.c[5]) {
			d1 = ::log(i.c[5] * i.c[5] + r.c[5] * r.c[5]) / 2;
			d2 = ::atan2(r.c[5], i.c[5]);
			i.c[5] = d1;
			r.c[5] = d2;
		}
		if (mask.v.c[6]) {
			d1 = ::log(i.c[6] * i.c[6] + r.c[6] * r.c[6]) / 2;
			d2 = ::atan2(r.c[6], i.c[6]);
			i.c[6] = d1;
			r.c[6] = d2;
		}
		if (mask.v.c[7]) {
			d1 = ::log(i.c[7] * i.c[7] + r.c[7] * r.c[7]) / 2;
			d2 = ::atan2(r.c[7], i.c[7]);
			i.c[7] = d1;
			r.c[7] = d2;
		}
		return this;
	}

	AML_FUNCTION AML_PREFIX(Array8Complex32) *log(const AML_PREFIX(VectorU8_8D) &mask) {
		float d1;
		float d2;
		if (mask.v.c[0]) {
			d1 = ::log(i.c[0] * i.c[0] + r.c[0] * r.c[0]) / 2;
			d2 = ::atan2(r.c[0], i.c[0]);
			i.c[0] = d1;
			r.c[0] = d2;
		}
		if (mask.v.c[1]) {
			d1 = ::log(i.c[1] * i.c[1] + r.c[1] * r.c[1]) / 2;
			d2 = ::atan2(r.c[1], i.c[1]);
			i.c[1] = d1;
			r.c[1] = d2;
		}
		if (mask.v.c[2]) {
			d1 = ::log(i.c[2] * i.c[2] + r.c[2] * r.c[2]) / 2;
			d2 = ::atan2(r.c[2], i.c[2]);
			i.c[2] = d1;
			r.c[2] = d2;
		}
		if (mask.v.c[3]) {
			d1 = ::log(i.c[3] * i.c[3] + r.c[3] * r.c[3]) / 2;
			d2 = ::atan2(r.c[3], i.c[3]);
			i.c[3] = d1;
			r.c[3] = d2;
		}
		if (mask.v.c[4]) {
			d1 = ::log(i.c[4] * i.c[4] + r.c[4] * r.c[4]) / 2;
			d2 = ::atan2(r.c[4], i.c[4]);
			i.c[4] = d1;
			r.c[4] = d2;
		}
		if (mask.v.c[5]) {
			d1 = ::log(i.c[5] * i.c[5] + r.c[5] * r.c[5]) / 2;
			d2 = ::atan2(r.c[5], i.c[5]);
			i.c[5] = d1;
			r.c[5] = d2;
		}
		if (mask.v.c[6]) {
			d1 = ::log(i.c[6] * i.c[6] + r.c[6] * r.c[6]) / 2;
			d2 = ::atan2(r.c[6], i.c[6]);
			i.c[6] = d1;
			r.c[6] = d2;
		}
		if (mask.v.c[7]) {
			d1 = ::log(i.c[7] * i.c[7] + r.c[7] * r.c[7]) / 2;
			d2 = ::atan2(r.c[7], i.c[7]);
			i.c[7] = d1;
			r.c[7] = d2;
		}
		return this;
	}

	AML_FUNCTION AML_PREFIX(Array8Complex32) *log10(const AML_PREFIX(VectorU8_8D) &mask) {
		float d1;
		float d2;
		if (mask.v.c[0]) {
			d1 = ::log(i.c[0] * i.c[0] + r.c[0] * r.c[0]) / (2 * AML_LN10);
			d2 = ::atan2(r.c[0], i.c[0]) / AML_LN10;
			i.c[0] = d1;
			r.c[0] = d2;
		}
		if (mask.v.c[1]) {
			d1 = ::log(i.c[1] * i.c[1] + r.c[1] * r.c[1]) / (2 * AML_LN10);
			d2 = ::atan2(r.c[1], i.c[1]) / AML_LN10;
			i.c[1] = d1;
			r.c[1] = d2;
		}
		if (mask.v.c[2]) {
			d1 = ::log(i.c[2] * i.c[2] + r.c[2] * r.c[2]) / (2 * AML_LN10);
			d2 = ::atan2(r.c[2], i.c[2]) / AML_LN10;
			i.c[2] = d1;
			r.c[2] = d2;
		}
		if (mask.v.c[3]) {
			d1 = ::log(i.c[3] * i.c[3] + r.c[3] * r.c[3]) / (2 * AML_LN10);
			d2 = ::atan2(r.c[3], i.c[3]) / AML_LN10;
			i.c[3] = d1;
			r.c[3] = d2;
		}
		if (mask.v.c[4]) {
			d1 = ::log(i.c[4] * i.c[4] + r.c[4] * r.c[4]) / (2 * AML_LN10);
			d2 = ::atan2(r.c[4], i.c[4]) / AML_LN10;
			i.c[4] = d1;
			r.c[4] = d2;
		}
		if (mask.v.c[5]) {
			d1 = ::log(i.c[5] * i.c[5] + r.c[5] * r.c[5]) / (2 * AML_LN10);
			d2 = ::atan2(r.c[5], i.c[5]) / AML_LN10;
			i.c[5] = d1;
			r.c[5] = d2;
		}
		if (mask.v.c[6]) {
			d1 = ::log(i.c[6] * i.c[6] + r.c[6] * r.c[6]) / (2 * AML_LN10);
			d2 = ::atan2(r.c[6], i.c[6]) / AML_LN10;
			i.c[6] = d1;
			r.c[6] = d2;
		}
		if (mask.v.c[7]) {
			d1 = ::log(i.c[7] * i.c[7] + r.c[7] * r.c[7]) / (2 * AML_LN10);
			d2 = ::atan2(r.c[7], i.c[7]) / AML_LN10;
			i.c[7] = d1;
			r.c[7] = d2;
		}
		return this;
	}

	AML_FUNCTION AML_PREFIX(Array8Complex32) *ln() {
		float d1;
		float d2;
		d1 = ::log(i.c[0] * i.c[0] + r.c[0] * r.c[0]) / 2;
		d2 = ::atan2(r.c[0], i.c[0]);
		i.c[0] = d1;
		r.c[0] = d2;
		d1 = ::log(i.c[1] * i.c[1] + r.c[1] * r.c[1]) / 2;
		d2 = ::atan2(r.c[1], i.c[1]);
		i.c[1] = d1;
		r.c[1] = d2;
		d1 = ::log(i.c[2] * i.c[2] + r.c[2] * r.c[2]) / 2;
		d2 = ::atan2(r.c[2], i.c[2]);
		i.c[2] = d1;
		r.c[2] = d2;
		d1 = ::log(i.c[3] * i.c[3] + r.c[3] * r.c[3]) / 2;
		d2 = ::atan2(r.c[3], i.c[3]);
		i.c[3] = d1;
		r.c[3] = d2;
		d1 = ::log(i.c[4] * i.c[4] + r.c[4] * r.c[4]) / 2;
		d2 = ::atan2(r.c[4], i.c[4]);
		i.c[4] = d1;
		r.c[4] = d2;
		d1 = ::log(i.c[5] * i.c[5] + r.c[5] * r.c[5]) / 2;
		d2 = ::atan2(r.c[5], i.c[5]);
		i.c[5] = d1;
		r.c[5] = d2;
		d1 = ::log(i.c[6] * i.c[6] + r.c[6] * r.c[6]) / 2;
		d2 = ::atan2(r.c[6], i.c[6]);
		i.c[6] = d1;
		r.c[6] = d2;
		d1 = ::log(i.c[7] * i.c[7] + r.c[7] * r.c[7]) / 2;
		d2 = ::atan2(r.c[7], i.c[7]);
		i.c[7] = d1;
		r.c[7] = d2;
		return this;
	}

	AML_FUNCTION AML_PREFIX(Array8Complex32) *log() {
		float d1;
		float d2;
		d1 = ::log(i.c[0] * i.c[0] + r.c[0] * r.c[0]) / 2;
		d2 = ::atan2(r.c[0], i.c[0]);
		i.c[0] = d1;
		r.c[0] = d2;
		d1 = ::log(i.c[1] * i.c[1] + r.c[1] * r.c[1]) / 2;
		d2 = ::atan2(r.c[1], i.c[1]);
		i.c[1] = d1;
		r.c[1] = d2;
		d1 = ::log(i.c[2] * i.c[2] + r.c[2] * r.c[2]) / 2;
		d2 = ::atan2(r.c[2], i.c[2]);
		i.c[2] = d1;
		r.c[2] = d2;
		d1 = ::log(i.c[3] * i.c[3] + r.c[3] * r.c[3]) / 2;
		d2 = ::atan2(r.c[3], i.c[3]);
		i.c[3] = d1;
		r.c[3] = d2;
		d1 = ::log(i.c[4] * i.c[4] + r.c[4] * r.c[4]) / 2;
		d2 = ::atan2(r.c[4], i.c[4]);
		i.c[4] = d1;
		r.c[4] = d2;
		d1 = ::log(i.c[5] * i.c[5] + r.c[5] * r.c[5]) / 2;
		d2 = ::atan2(r.c[5], i.c[5]);
		i.c[5] = d1;
		r.c[5] = d2;
		d1 = ::log(i.c[6] * i.c[6] + r.c[6] * r.c[6]) / 2;
		d2 = ::atan2(r.c[6], i.c[6]);
		i.c[6] = d1;
		r.c[6] = d2;
		d1 = ::log(i.c[7] * i.c[7] + r.c[7] * r.c[7]) / 2;
		d2 = ::atan2(r.c[7], i.c[7]);
		i.c[7] = d1;
		r.c[7] = d2;
		return this;
	}

	AML_FUNCTION AML_PREFIX(Array8Complex32) *log10() {
		float d1;
		float d2;
		d1 = ::log(i.c[0] * i.c[0] + r.c[0] * r.c[0]) / (2 * AML_LN10);
		d2 = ::atan2(r.c[0], i.c[0]) / AML_LN10;
		i.c[0] = d1;
		r.c[0] = d2;
		d1 = ::log(i.c[1] * i.c[1] + r.c[1] * r.c[1]) / (2 * AML_LN10);
		d2 = ::atan2(r.c[1], i.c[1]) / AML_LN10;
		i.c[1] = d1;
		r.c[1] = d2;
		d1 = ::log(i.c[2] * i.c[2] + r.c[2] * r.c[2]) / (2 * AML_LN10);
		d2 = ::atan2(r.c[2], i.c[2]) / AML_LN10;
		i.c[2] = d1;
		r.c[2] = d2;
		d1 = ::log(i.c[3] * i.c[3] + r.c[3] * r.c[3]) / (2 * AML_LN10);
		d2 = ::atan2(r.c[3], i.c[3]) / AML_LN10;
		i.c[3] = d1;
		r.c[3] = d2;
		d1 = ::log(i.c[4] * i.c[4] + r.c[4] * r.c[4]) / (2 * AML_LN10);
		d2 = ::atan2(r.c[4], i.c[4]) / AML_LN10;
		i.c[4] = d1;
		r.c[4] = d2;
		d1 = ::log(i.c[5] * i.c[5] + r.c[5] * r.c[5]) / (2 * AML_LN10);
		d2 = ::atan2(r.c[5], i.c[5]) / AML_LN10;
		i.c[5] = d1;
		r.c[5] = d2;
		d1 = ::log(i.c[6] * i.c[6] + r.c[6] * r.c[6]) / (2 * AML_LN10);
		d2 = ::atan2(r.c[6], i.c[6]) / AML_LN10;
		i.c[6] = d1;
		r.c[6] = d2;
		d1 = ::log(i.c[7] * i.c[7] + r.c[7] * r.c[7]) / (2 * AML_LN10);
		d2 = ::atan2(r.c[7], i.c[7]) / AML_LN10;
		i.c[7] = d1;
		r.c[7] = d2;
		return this;
	}

};


#if !defined(AML_NO_STRING)

AML_FUNCTION std::string operator<<(std::string &lhs, const AML_PREFIX(Array8Complex32) &rhs) {
	std::ostringstream string;
	string << lhs << "{ " << rhs.r.c[0] << " + " << rhs.i.c[0] << "i ,  " << rhs.r.c[1] << " + " << rhs.i.c[1]
		   << "i ,  " << rhs.r.c[2] << " + " << rhs.i.c[2] << "i ,  " << rhs.r.c[3] << " + " << rhs.i.c[3] << "i ,  "
		   << rhs.r.c[4] << " + " << rhs.i.c[4] << "i ,  " << rhs.r.c[5] << " + " << rhs.i.c[5] << "i ,  " << rhs.r.c[6]
		   << " + " << rhs.i.c[6] << "i ,  " << rhs.r.c[7] << " + " << rhs.i.c[7] << "i }";
	return string.str();
}

AML_FUNCTION std::string operator<<(const char *lhs, const AML_PREFIX(Array8Complex32) &rhs) {
	std::ostringstream string;
	string << lhs << "{ " << rhs.r.c[0] << " + " << rhs.i.c[0] << "i ,  " << rhs.r.c[1] << " + " << rhs.i.c[1]
		   << "i ,  " << rhs.r.c[2] << " + " << rhs.i.c[2] << "i ,  " << rhs.r.c[3] << " + " << rhs.i.c[3] << "i ,  "
		   << rhs.r.c[4] << " + " << rhs.i.c[4] << "i ,  " << rhs.r.c[5] << " + " << rhs.i.c[5] << "i ,  " << rhs.r.c[6]
		   << " + " << rhs.i.c[6] << "i ,  " << rhs.r.c[7] << " + " << rhs.i.c[7] << "i }";
	return string.str();
}

template<class charT, class traits>
std::basic_ostream<charT, traits> &
operator<<(std::basic_ostream<charT, traits> &o, const AML_PREFIX(Array8Complex32) &rhs) {
	std::basic_ostringstream<charT, traits> s;
	s.flags(o.flags());
	s.imbue(o.getloc());
	s.precision(o.precision());
	s << "{ " << rhs.r.c[0] << " + " << rhs.i.c[0] << "i ,  " << rhs.r.c[1] << " + " << rhs.i.c[1]
	  << "i ,  " << rhs.r.c[2] << " + " << rhs.i.c[2] << "i ,  " << rhs.r.c[3] << " + " << rhs.i.c[3] << "i ,  "
	  << rhs.r.c[4] << " + " << rhs.i.c[4] << "i ,  " << rhs.r.c[5] << " + " << rhs.i.c[5] << "i ,  " << rhs.r.c[6]
	  << " + " << rhs.i.c[6] << "i ,  " << rhs.r.c[7] << " + " << rhs.i.c[7] << "i }";
	return o << s.str();
}

#endif

AML_FUNCTION AML_PREFIX(Array8Complex32)
operator+(const AML_PREFIX(Complex32) &lhs, const AML_PREFIX(Array8Complex32) &rhs) {
	return rhs + lhs;
}


AML_FUNCTION AML_PREFIX(Array8Complex32)
operator-(const AML_PREFIX(Complex32) &lhs, const AML_PREFIX(Array8Complex32) &rhs) {
	AML_PREFIX(Array8Complex32) ret;
	ret.i.c[0] = lhs.c.c[1] - rhs.i.c[0];
	ret.i.c[1] = lhs.c.c[1] - rhs.i.c[1];
	ret.i.c[2] = lhs.c.c[1] - rhs.i.c[2];
	ret.i.c[3] = lhs.c.c[1] - rhs.i.c[3];
	ret.i.c[4] = lhs.c.c[1] - rhs.i.c[4];
	ret.i.c[5] = lhs.c.c[1] - rhs.i.c[5];
	ret.i.c[6] = lhs.c.c[1] - rhs.i.c[6];
	ret.i.c[7] = lhs.c.c[1] - rhs.i.c[7];
	ret.r.c[0] = lhs.c.c[0] - rhs.r.c[0];
	ret.r.c[1] = lhs.c.c[0] - rhs.r.c[1];
	ret.r.c[2] = lhs.c.c[0] - rhs.r.c[2];
	ret.r.c[3] = lhs.c.c[0] - rhs.r.c[3];
	ret.r.c[4] = lhs.c.c[0] - rhs.r.c[4];
	ret.r.c[5] = lhs.c.c[0] - rhs.r.c[5];
	ret.r.c[6] = lhs.c.c[0] - rhs.r.c[6];
	ret.r.c[7] = lhs.c.c[0] - rhs.r.c[7];
	return ret;
}

AML_FUNCTION AML_PREFIX(Array8Complex32)
operator*(const AML_PREFIX(Complex32) &lhs, const AML_PREFIX(Array8Complex32) &rhs) {
	return rhs * lhs;
}

AML_FUNCTION AML_PREFIX(Array8Complex32)
operator/(const AML_PREFIX(Complex32) &lhs, const AML_PREFIX(Array8Complex32) &rhs) {
	AML_PREFIX(Array8Complex32) ret;
	float d1 =
			(lhs.c.c[0] * rhs.r.c[0] + lhs.c.c[1] * rhs.i.c[0]) / (rhs.r.c[0] * rhs.r.c[0] + rhs.i.c[0] * rhs.i.c[0]);
	float d2 =
			(lhs.c.c[1] * rhs.r.c[0] - lhs.c.c[0] * rhs.i.c[0]) / (rhs.r.c[0] * rhs.r.c[0] + rhs.i.c[0] * rhs.i.c[0]);
	ret.r.c[0] = d1;
	ret.i.c[0] = d2;
	d1 = (lhs.c.c[0] * rhs.r.c[1] + lhs.c.c[1] * rhs.i.c[1]) / (rhs.r.c[1] * rhs.r.c[1] + rhs.i.c[1] * rhs.i.c[1]);
	d2 = (lhs.c.c[1] * rhs.r.c[1] - lhs.c.c[0] * rhs.i.c[1]) / (rhs.r.c[1] * rhs.r.c[1] + rhs.i.c[1] * rhs.i.c[1]);
	ret.r.c[1] = d1;
	ret.i.c[1] = d2;
	d1 = (lhs.c.c[0] * rhs.r.c[2] + lhs.c.c[1] * rhs.i.c[2]) / (rhs.r.c[2] * rhs.r.c[2] + rhs.i.c[2] * rhs.i.c[2]);
	d2 = (lhs.c.c[1] * rhs.r.c[2] - lhs.c.c[0] * rhs.i.c[2]) / (rhs.r.c[2] * rhs.r.c[2] + rhs.i.c[2] * rhs.i.c[2]);
	ret.r.c[2] = d1;
	ret.i.c[2] = d2;
	d1 = (lhs.c.c[0] * rhs.r.c[3] + lhs.c.c[1] * rhs.i.c[3]) / (rhs.r.c[3] * rhs.r.c[3] + rhs.i.c[3] * rhs.i.c[3]);
	d2 = (lhs.c.c[1] * rhs.r.c[3] - lhs.c.c[0] * rhs.i.c[3]) / (rhs.r.c[3] * rhs.r.c[3] + rhs.i.c[3] * rhs.i.c[3]);
	ret.r.c[3] = d1;
	ret.i.c[3] = d2;
	d1 = (lhs.c.c[0] * rhs.r.c[4] + lhs.c.c[1] * rhs.i.c[4]) / (rhs.r.c[4] * rhs.r.c[4] + rhs.i.c[4] * rhs.i.c[4]);
	d2 = (lhs.c.c[1] * rhs.r.c[4] - lhs.c.c[0] * rhs.i.c[4]) / (rhs.r.c[4] * rhs.r.c[4] + rhs.i.c[4] * rhs.i.c[4]);
	ret.r.c[4] = d1;
	ret.i.c[4] = d2;
	d1 = (lhs.c.c[0] * rhs.r.c[5] + lhs.c.c[1] * rhs.i.c[5]) / (rhs.r.c[5] * rhs.r.c[5] + rhs.i.c[5] * rhs.i.c[5]);
	d2 = (lhs.c.c[1] * rhs.r.c[5] - lhs.c.c[0] * rhs.i.c[5]) / (rhs.r.c[5] * rhs.r.c[5] + rhs.i.c[5] * rhs.i.c[5]);
	ret.r.c[5] = d1;
	ret.i.c[5] = d2;
	d1 = (lhs.c.c[0] * rhs.r.c[6] + lhs.c.c[1] * rhs.i.c[6]) / (rhs.r.c[6] * rhs.r.c[6] + rhs.i.c[6] * rhs.i.c[6]);
	d2 = (lhs.c.c[1] * rhs.r.c[6] - lhs.c.c[0] * rhs.i.c[6]) / (rhs.r.c[6] * rhs.r.c[6] + rhs.i.c[6] * rhs.i.c[6]);
	ret.r.c[6] = d1;
	ret.i.c[6] = d2;
	d1 = (lhs.c.c[0] * rhs.r.c[7] + lhs.c.c[1] * rhs.i.c[7]) / (rhs.r.c[7] * rhs.r.c[7] + rhs.i.c[7] * rhs.i.c[7]);
	d2 = (lhs.c.c[1] * rhs.r.c[7] - lhs.c.c[0] * rhs.i.c[7]) / (rhs.r.c[7] * rhs.r.c[7] + rhs.i.c[7] * rhs.i.c[7]);
	ret.r.c[7] = d1;
	ret.i.c[7] = d2;
	return ret;
}

#if defined(AML_USE_STD_COMPLEX)

#if defined(USE_CONCEPTS)
template<class T>
concept ComplexNumber = requires(T a, T b){
	a + a;
	a * a;
	a / b;
	a.ln();
	a.sin();
};
#endif


#if defined(USE_CONCEPTS)

template<ComplexNumber C>
#else
template<class C>
#endif
AML_FUNCTION auto log(C c) { return *c.ln(); }

#if defined(USE_CONCEPTS)

template<ComplexNumber C>
#else
template<class C>
#endif
AML_FUNCTION auto sin(C c) { return *c.sin(); }

#if defined(USE_CONCEPTS)

template<ComplexNumber C>
#else
template<class C>
#endif
AML_FUNCTION auto log10(C c) { return *c.log10(); }

#if defined(USE_CONCEPTS)

template<ComplexNumber C>
#else
template<class C>
#endif
AML_FUNCTION auto tan(C c) { return *c.tan(); }

#if defined(USE_CONCEPTS)

template<ComplexNumber C>
#else
template<class C>
#endif
AML_FUNCTION auto cos(C c) { return *c.cos(); }


#endif //std::complex compatibility

#if defined(AML_USE_AML_NUMBER) && !defined(USE_CUDA)

class AML_PREFIX(ComplexN) {
public:
	AML_PREFIX(AmlNumber) c[2];

	AML_FUNCTION AML_PREFIX(ComplexN)(const AmlNumber real, const AmlNumber img = 0.0) {
		c[0] = real;
		c[1] = img;
	}

	AML_FUNCTION explicit AML_PREFIX(ComplexN)(AmlNumber *values) {
		c[0] = values[0];
		c[1] = values[1];
	}

	AML_FUNCTION AML_PREFIX(ComplexN)() = default;

	AML_FUNCTION void set([[maybe_unused]]uint64_t location, AML_PREFIX(ComplexN) value) {
		c[0] = value.c[0];
		c[1] = value.c[1];
	}

//add sub
	AML_FUNCTION AML_PREFIX(ComplexN) *add(const AML_PREFIX(ComplexN) a) {
		c[0] += a.c[0];
		c[1] += a.c[1];
		return this;
	}

	AML_FUNCTION AML_PREFIX(ComplexN) operator+(const AML_PREFIX(ComplexN) a) const {
		AML_PREFIX(ComplexN) ret(c[0] + a.c[0], c[1] + a.c[1]);
		return ret;
	}

	AML_FUNCTION AML_PREFIX(ComplexN) operator-(const AML_PREFIX(ComplexN) a) const {
		AML_PREFIX(ComplexN) ret(c[0] - a.c[0], c[1] - a.c[1]);
		return ret;
	}


	AML_FUNCTION void operator+=(const AML_PREFIX(ComplexN) a) {
		c[0] += a.c[0];
		c[1] += a.c[1];
	}

	AML_FUNCTION void operator-=(const AML_PREFIX(ComplexN) a) {
		c[0] -= a.c[0];
		c[1] -= a.c[1];
	}

	AML_FUNCTION AML_PREFIX(ComplexN) *subtract(const AML_PREFIX(ComplexN) a) {
		c[0] -= a.c[0];
		c[1] -= a.c[1];
		return this;
	}

	AML_FUNCTION AML_PREFIX(ComplexN) *conjugate() {
		c[1].neg();
		return this;
	}

//mul
	AML_FUNCTION AML_PREFIX(ComplexN) *multiply(const AML_PREFIX(ComplexN) a) {
		AmlNumber d1 = c[0] * a.c[0] - c[1] * a.c[1];
		AmlNumber d2 = c[0] * a.c[1] + c[1] * a.c[0];
		c[0] = d1;
		c[1] = d2;
		return this;
	}


	AML_FUNCTION AML_PREFIX(ComplexN) operator*(const AML_PREFIX(ComplexN) a) const {
		AML_PREFIX(ComplexN) ret(c[0] * a.c[0] - c[1] * a.c[1], c[0] * a.c[1] + c[1] * a.c[0]);
		return ret;
	}

	AML_FUNCTION void operator*=(const AML_PREFIX(ComplexN) a) {
		AmlNumber d1 = c[0] * a.c[0] - c[1] * a.c[1];
		AmlNumber d2 = c[0] * a.c[1] + c[1] * a.c[0];
		c[0] = d1;
		c[1] = d2;
	}

	AML_FUNCTION void operator*=(AmlNumber a) {
		c[0] *= a;
		c[1] *= a;
	}


	AML_FUNCTION AML_PREFIX(ComplexN) *square() {
		AmlNumber d1 = c[0] * c[0] - c[1] * c[1];
		AmlNumber d2 = c[0] * c[1] + c[1] * c[0];
		c[0] = d1;
		c[1] = d2;
		return this;
	}


//division
	AML_FUNCTION AML_PREFIX(ComplexN) operator/(const AML_PREFIX(ComplexN) a) const {
		AML_PREFIX(ComplexN) ret;
		ret.c[0] = (c[0] * a.c[0] + c[1] * a.c[1]) / (a.c[0] * a.c[0] + a.c[1] * a.c[1]);
		ret.c[1] = (c[1] * a.c[0] - c[0] * a.c[1]) / (a.c[0] * a.c[0] + a.c[1] * a.c[1]);
		return ret;
	}

	AML_FUNCTION void operator/=(const AML_PREFIX(ComplexN) a) {
		AmlNumber d1 = (c[0] * a.c[0] + c[1] * a.c[1]) / (a.c[0] * a.c[0] + a.c[1] * a.c[1]);
		AmlNumber d2 = (c[1] * a.c[0] - c[0] * a.c[1]) / (a.c[0] * a.c[0] + a.c[1] * a.c[1]);
		c[0] = d1;
		c[1] = d2;
	}

	AML_FUNCTION void operator/=(const AmlNumber a) {
		AmlNumber d1 = c[0] / a;
		AmlNumber d2 = c[1] / a;
		c[0] = d1;
		c[1] = d2;
	}

	AML_FUNCTION AML_PREFIX(ComplexN) *divide(const AML_PREFIX(ComplexN) a) {
		AmlNumber d1 = (c[0] * a.c[0] + c[1] * a.c[1]) / (a.c[0] * a.c[0] + a.c[1] * a.c[1]);
		AmlNumber d2 = (c[1] * a.c[0] - c[0] * a.c[1]) / (a.c[0] * a.c[0] + a.c[1] * a.c[1]);
		c[0] = d1;
		c[1] = d2;
		return this;
	}

	AML_FUNCTION AML_PREFIX(ComplexN) operator/(AmlNumber a) {
		AML_PREFIX(ComplexN) ret;
		ret.c[0] = c[0] / a;
		ret.c[1] = c[1] / a;
		return ret;
	}

	AML_FUNCTION AML_PREFIX(ComplexN) *divide(AmlNumber a) {
		AmlNumber d1 = c[0] / a;
		AmlNumber d2 = c[1] / a;
		c[0] = d1;
		c[1] = d2;
		return this;
	}




//sqrt
	AML_FUNCTION AML_PREFIX(ComplexN) *sqrt() {
		//double d2 = ::sqrt((-c.c[0] + ::sqrt(c.c[0] * c.c[0] + c.c[1] * c.c[1])) / (2));
		AmlNumber d2 = c[0] * c[0] + c[1] * c[1];
		d2.sqrt();
		d2 -= c[0];
		d2.sqrt();
		d2 *= 0.5;
		AmlNumber d1;
		if ((double) d2 == 0.0) UNLIKELY {// TODO correct
			d1 = c[0];
			d1.sqrt();
		} else LIKELY {
			d1 = c[1] / (d2 + d2);
		}
		c[0] = d1;
		c[1] = d2;
		return this;
	}


	AML_FUNCTION AmlNumber abs() {
		AmlNumber d = c[0] * c[0] + c[1] * c[1];
		d.sqrt();
		return d;
	}

	AML_FUNCTION bool abs_gt(AmlNumber a) {
		return a * a < c[0] * c[0] + c[1] * c[1];
	}

	AML_FUNCTION bool abs_lt(AmlNumber a) {
		return a * a > c[0] * c[0] + c[1] * c[1];
	}

	AML_FUNCTION bool abs_eq(AmlNumber a) {
		return a * a == c[0] * c[0] + c[1] * c[1];
	}

	AML_FUNCTION bool abs_gt(const AML_PREFIX(ComplexN) a) {
		return a.c[0] * a.c[0] + a.c[1] * a.c[1] < c[0] * c[0] + c[1] * c[1];
	}

	AML_FUNCTION bool abs_lt(const AML_PREFIX(ComplexN) a) {
		return a.c[0] * a.c[0] + a.c[1] * a.c[1] > c[0] * c[0] + c[1] * c[1];
	}

	AML_FUNCTION bool abs_eq(const AML_PREFIX(ComplexN) a) {
		return a.c[0] * a.c[0] + a.c[1] * a.c[1] == c[0] * c[0] + c[1] * c[1];
	}


	AML_FUNCTION AmlNumber imaginary() {
		return c[1];
	}

	AML_FUNCTION AmlNumber real() {
		return c[0];
	}


	AML_FUNCTION AmlNumber length() {
		AmlNumber d = c[0] * c[0] + c[1] * c[1];
		d.sqrt();
		return d;
	}

	AML_FUNCTION AML_PREFIX(ComplexN) *polar(AmlNumber length, AmlNumber angle) {
		AmlNumber d = angle;
		d.cos();
		c[0] = length * d;
		d = angle;
		d.sin();
		c[1] = length * d;
		return this;
	}

	AML_FUNCTION AML_PREFIX(ComplexN) operator[]([[maybe_unused]]uint64_t location) {
		return *this;
	}


};

AML_FUNCTION AML_PREFIX(ComplexN) operator+(const AmlNumber &lhs, const AML_PREFIX(ComplexN) &rhs) {
	AML_PREFIX(ComplexN) ret(lhs + rhs.c[0], rhs.c[1]);
	return ret;
}

AML_FUNCTION AML_PREFIX(ComplexN) operator-(const AmlNumber &lhs, const AML_PREFIX(ComplexN) &rhs) {
	AmlNumber d = rhs.c[1];
	d.neg();
	AML_PREFIX(ComplexN) ret(lhs - rhs.c[0], d);
	return ret;
}

AML_FUNCTION AML_PREFIX(ComplexN) operator*(const AmlNumber &lhs, const AML_PREFIX(ComplexN) &rhs) {
	AML_PREFIX(ComplexN) ret(lhs * rhs.c[0], lhs * rhs.c[1]);
	return ret;
}

AML_FUNCTION AML_PREFIX(ComplexN) operator/(const AmlNumber &lhs, const AML_PREFIX(ComplexN) &rhs) {
	AmlNumber d = lhs;
	d.neg();

	AML_PREFIX(ComplexN) ret;
	ret.c[0] = (lhs * rhs.c[0]) / (rhs.c[0] * rhs.c[0] + rhs.c[1] * rhs.c[1]);
	ret.c[1] = (d * rhs.c[1]) / (rhs.c[0] * rhs.c[0] + rhs.c[1] * rhs.c[1]);
	return ret;
}

#endif

#endif //MATH_LIB_A_MATH_LIB_H


#if defined(USE_AVX512) && !defined(COMPLEX_DEFINITIONS) && !defined(USE_CUDA)
#define COMPLEX_DEFINITIONS

#define MAX_COMPLEX_64_SIZE 8
#define MAX_COMPLEX_64_TYPE Array8Complex64
#define MAX_COMPLEX_64_MASK_TYPE VectorU8_8D
#define MAX_COMPLEX_64_VECTOR_TYPE Vector8D_64
#define IDEAL_COMPLEX_64_SIZE 8
#define IDEAL_COMPLEX_64_TYPE Array8Complex64
#define IDEAL_COMPLEX_64_MASK_TYPE VectorU8_8D
#define IDEAL_COMPLEX_64_VECTOR_TYPE Vector8D_64
#define MIN_COMPLEX_64_SIZE 4
#define MIN_COMPLEX_64_TYPE Array4Complex64
#define MIN_COMPLEX_64_MASK_TYPE VectorU8_4D
#define MIN_COMPLEX_64_VECTOR_TYPE Vector4D_64

#define MAX_COMPLEX_32_SIZE 8
#define MAX_COMPLEX_32_TYPE Array8Complex32
#define MAX_COMPLEX_32_MASK_TYPE VectorU8_8D
#define MAX_COMPLEX_32_VECTOR_TYPE Vector8D_32
#define IDEAL_COMPLEX_32_SIZE 8
#define IDEAL_COMPLEX_32_TYPE Array8Complex32
#define IDEAL_COMPLEX_32_MASK_TYPE VectorU8_8D
#define IDEAL_COMPLEX_32_VECTOR_TYPE Vector8D_32
#define MIN_COMPLEX_32_SIZE 4
#define MIN_COMPLEX_32_TYPE Array4Complex32
#define MIN_COMPLEX_32_MASK_TYPE VectorU8_4D
#define MIN_COMPLEX_32_VECTOR_TYPE Vector4D_64


#elif defined(USE_AVX) && !defined(COMPLEX_DEFINITIONS) && !defined(USE_CUDA)
#define COMPLEX_DEFINITIONS

#define MAX_COMPLEX_64_SIZE 8
#define MAX_COMPLEX_64_TYPE Array8Complex64
#define MAX_COMPLEX_64_MASK_TYPE VectorU8_8D
#define MAX_COMPLEX_64_VECTOR_TYPE Vector8D_64
#define IDEAL_COMPLEX_64_SIZE 4
typedef Array4Complex64 IDEAL_COMPLEX_64_TYPE;
typedef VectorU8_4D IDEAL_COMPLEX_64_MASK_TYPE;
typedef Vector4D_64 IDEAL_COMPLEX_64_VECTOR_TYPE;
#define MIN_COMPLEX_64_SIZE 2
#define MIN_COMPLEX_64_TYPE Array2Complex64
#define MIN_COMPLEX_64_MASK_TYPE VectorU8_2D
#define MIN_COMPLEX_64_VECTOR_TYPE Vector2D_64

#define MAX_COMPLEX_32_SIZE 8
#define MAX_COMPLEX_32_TYPE Array8Complex32
#define MAX_COMPLEX_32_MASK_TYPE VectorU8_8D
#define MAX_COMPLEX_32_VECTOR_TYPE Vector8D_32
#define IDEAL_COMPLEX_32_SIZE 8
#define IDEAL_COMPLEX_32_TYPE Array8Complex32
#define IDEAL_COMPLEX_32_MASK_TYPE VectorU8_8D
#define IDEAL_COMPLEX_32_VECTOR_TYPE Vector8D_32
#define MIN_COMPLEX_32_SIZE 4
#define MIN_COMPLEX_32_TYPE Array4Complex32
#define MIN_COMPLEX_32_MASK_TYPE VectorU8_4D
#define MIN_COMPLEX_32_VECTOR_TYPE Vector4D_32


#elif defined(USE_SSE) || defined(USE_NEON) || defined(USE_WASM_SIMD) && !defined(COMPLEX_DEFINITIONS) && !defined(USE_CUDA)
#define COMPLEX_DEFINITIONS

#define MAX_COMPLEX_64_SIZE 4
#define MAX_COMPLEX_64_TYPE Array4Complex64
#define MAX_COMPLEX_64_MASK_TYPE VectorU8_4D
#define MAX_COMPLEX_64_VECTOR_TYPE Vector4D_64
#define IDEAL_COMPLEX_64_SIZE 2
#define IDEAL_COMPLEX_64_TYPE Array2Complex64
#define IDEAL_COMPLEX_64_MASK_TYPE VectorU8_2D
#define IDEAL_COMPLEX_64_VECTOR_TYPE Vector2D_64
#define MIN_COMPLEX_64_SIZE 1
#define MIN_COMPLEX_64_TYPE Complex64
#define MIN_COMPLEX_64_MASK_TYPE VectorU8_1D
#define MIN_COMPLEX_64_VECTOR_TYPE Vecto1D_64


#define MAX_COMPLEX_32_SIZE 8
#define MAX_COMPLEX_32_TYPE Array8Complex32
#define MAX_COMPLEX_32_MASK_TYPE VectorU8_8D
#define MAX_COMPLEX_32_VECTOR_TYPE Vector8D_32
#define IDEAL_COMPLEX_32_SIZE 4
#define IDEAL_COMPLEX_32_TYPE Array4Complex32
#define IDEAL_COMPLEX_32_MASK_TYPE VectorU8_4D
#define IDEAL_COMPLEX_32_VECTOR_TYPE Vector4D_32
#define MIN_COMPLEX_32_SIZE 2
#define MIN_COMPLEX_32_TYPE Array2Complex32
#define MIN_COMPLEX_32_MASK_TYPE VectorU8_2D
#define MIN_COMPLEX_32_VECTOR_TYPE Vector2D_32

#elif defined(AML_USE_ARRAY_STRICT)

#define MAX_COMPLEX_64_SIZE 2
#define MAX_COMPLEX_64_TYPE Array2Complex64
#define MAX_COMPLEX_64_MASK_TYPE VectorU8_2D
#define MAX_COMPLEX_64_VECTOR_TYPE Vector2D_64
#define IDEAL_COMPLEX_64_SIZE 2
#define IDEAL_COMPLEX_64_TYPE Array2Complex64
#define IDEAL_COMPLEX_64_MASK_TYPE VectorU8_2D
#define IDEAL_COMPLEX_64_VECTOR_TYPE Vector2D_64
#define MIN_COMPLEX_64_SIZE 2
#define MIN_COMPLEX_64_TYPE Array2Complex64
#define MIN_COMPLEX_64_MASK_TYPE VectorU8_2D
#define MIN_COMPLEX_64_VECTOR_TYPE Vector2D_64


#define MAX_COMPLEX_32_SIZE 2
#define MAX_COMPLEX_32_TYPE Array2Complex32
#define MAX_COMPLEX_32_MASK_TYPE VectorU8_2D
#define MAX_COMPLEX_32_VECTOR_TYPE Vector2D_32
#define IDEAL_COMPLEX_32_SIZE 2
#define IDEAL_COMPLEX_32_TYPE Array2Complex32
#define IDEAL_COMPLEX_32_MASK_TYPE VectorU8_2D
#define IDEAL_COMPLEX_32_VECTOR_TYPE Vector2D_32
#define MIN_COMPLEX_32_SIZE 2
#define MIN_COMPLEX_32_TYPE Array2Complex32
#define MIN_COMPLEX_32_MASK_TYPE VectorU8_2D
#define MIN_COMPLEX_32_VECTOR_TYPE Vector2D_32


#elif !defined(COMPLEX_DEFINITIONS) && !defined(USE_CUDA)
#define COMPLEX_DEFINITIONS


#define MAX_COMPLEX_64_SIZE 1
#define MAX_COMPLEX_64_TYPE Complex64
#define MAX_COMPLEX_64_MASK_TYPE VectorU8_1D
#define MAX_COMPLEX_64_VECTOR_TYPE Vecto1D_64
#define IDEAL_COMPLEX_64_SIZE 1
#define IDEAL_COMPLEX_64_TYPE Complex64
#define IDEAL_COMPLEX_64_MASK_TYPE VectorU8_1D
#define IDEAL_COMPLEX_64_VECTOR_TYPE Vecto1D_64
#define MIN_COMPLEX_64_SIZE 1
#define MIN_COMPLEX_64_TYPE Complex64
#define MIN_COMPLEX_64_MASK_TYPE VectorU8_1D
#define MIN_COMPLEX_64_VECTOR_TYPE Vecto1D_64

#define MAX_COMPLEX_32_SIZE 1
#define MAX_COMPLEX_32_TYPE Complex32
#define MAX_COMPLEX_32_MASK_TYPE VectorU8_1D
#define MAX_COMPLEX_32_VECTOR_TYPE Vecto1D_32
#define IDEAL_COMPLEX_32_SIZE 1
#define IDEAL_COMPLEX_32_TYPE Complex32
#define IDEAL_COMPLEX_32_MASK_TYPE VectorU8_1D
#define IDEAL_COMPLEX_32_VECTOR_TYPE Vecto1D_32
#define MIN_COMPLEX_32_SIZE 1
#define MIN_COMPLEX_32_TYPE Complex32
#define MIN_COMPLEX_32_MASK_TYPE VectorU8_1D
#define MIN_COMPLEX_32_VECTOR_TYPE Vecto1D_32


#endif