// File: ArashPartow[P]exprtk/./exprtk.hpp
// Function: exprtk::rtl::vecops::shift_right<double>::operator()(unsigned long const&, exprtk::type_store<double>::parameter_list)
inline T operator() (const std::size_t& ps_index, parameter_list_t parameters) exprtk_override
      {
         vector_t vec(parameters[0]);

         std::size_t n  = 0;
         std::size_t r0 = 0;
         std::size_t r1 = vec.size() - 1;

         if (!scalar_t(parameters[1]).to_uint(n))
            return T(0);

         if (
              (1 == ps_index) &&
              !helper::load_vector_range<T>::process(parameters, r0, r1, 2, 3, 0)
            )
            return T(0);

         const std::size_t dist = r1 - r0 + 1;

         if (n > dist)
            return T(0);

         const std::size_t shift = (dist - (n % dist)) % dist;

         std::rotate(
            vec.begin() + r0,
            vec.begin() + r0 + shift,
            vec.begin() + r1 + 1);

         for (std::size_t i = r0; i < r0 + n; ++i)
         {
            vec[i] = T(0);
         }

         return T(1);
      }

// Assembly:
subq $0xa8, %rsp
movq %rdx, 0x98(%rsp)
movq %rdi, 0x90(%rsp)
movq %rsi, 0x88(%rsp)
movq $0x0, 0x70(%rsp)
leaq 0x98(%rsp), %rdi
leaq 0x70(%rsp), %rsi
callq 0x572de0
movq %rax, %rsi
leaq 0x78(%rsp), %rdi
callq 0x572e40
movq $0x0, 0x68(%rsp)
movq $0x0, 0x60(%rsp)
leaq 0x78(%rsp), %rdi
callq 0x572e70
subq $0x1, %rax
movq %rax, 0x58(%rsp)
movq $0x1, 0x48(%rsp)
leaq 0x98(%rsp), %rdi
leaq 0x48(%rsp), %rsi
callq 0x572de0
movq %rax, %rsi
leaq 0x50(%rsp), %rdi
callq 0x572e10
leaq 0x50(%rsp), %rdi
leaq 0x68(%rsp), %rsi
callq 0x573000
xorb $-0x1, %al
testb $0x1, %al
jne 0x574c6b
jmp 0x574c7c
xorps %xmm0, %xmm0
movsd %xmm0, 0xa0(%rsp)
jmp 0x574e0c
movq 0x88(%rsp), %rdx
xorl %eax, %eax
movl $0x1, %ecx
cmpq (%rdx), %rcx
movb %al, 0x1f(%rsp)
jne 0x574cd2
movq $0x2, 0x40(%rsp)
movq $0x3, 0x38(%rsp)
leaq 0x98(%rsp), %rdi
leaq 0x60(%rsp), %rsi
leaq 0x58(%rsp), %rdx
leaq 0x40(%rsp), %rcx
leaq 0x38(%rsp), %r8
xorl %eax, %eax
movl %eax, %r9d
callq 0x572e90
xorb $-0x1, %al
movb %al, 0x1f(%rsp)
movb 0x1f(%rsp), %al
testb $0x1, %al
jne 0x574cdc
jmp 0x574ced
xorps %xmm0, %xmm0
movsd %xmm0, 0xa0(%rsp)
jmp 0x574e0c
movq 0x58(%rsp), %rax
subq 0x60(%rsp), %rax
addq $0x1, %rax
movq %rax, 0x30(%rsp)
movq 0x68(%rsp), %rax
cmpq 0x30(%rsp), %rax
jbe 0x574d1d
xorps %xmm0, %xmm0
movsd %xmm0, 0xa0(%rsp)
jmp 0x574e0c
movq 0x30(%rsp), %rax
movq %rax, (%rsp)
movq 0x68(%rsp), %rax
xorl %ecx, %ecx
movl %ecx, %edx
divq 0x30(%rsp)
movq (%rsp), %rax
subq %rdx, %rax
xorl %ecx, %ecx
movl %ecx, %edx
divq 0x30(%rsp)
movq %rdx, 0x28(%rsp)
leaq 0x78(%rsp), %rdi
callq 0x573ca0
movq 0x60(%rsp), %rcx
shlq $0x3, %rcx
addq %rcx, %rax
movq %rax, 0x8(%rsp)
leaq 0x78(%rsp), %rdi
callq 0x573ca0
movq 0x60(%rsp), %rcx
shlq $0x3, %rcx
addq %rcx, %rax
movq 0x28(%rsp), %rcx
shlq $0x3, %rcx
addq %rcx, %rax
movq %rax, 0x10(%rsp)
leaq 0x78(%rsp), %rdi
callq 0x573ca0
movq 0x8(%rsp), %rdi
movq 0x10(%rsp), %rsi
movq %rax, %rdx
movq 0x58(%rsp), %rax
shlq $0x3, %rax
addq %rax, %rdx
addq $0x8, %rdx
callq 0x574000
movq 0x60(%rsp), %rax
movq %rax, 0x20(%rsp)
movq 0x20(%rsp), %rax
movq 0x60(%rsp), %rcx
addq 0x68(%rsp), %rcx
cmpq %rcx, %rax
jae 0x574dfb
leaq 0x78(%rsp), %rdi
leaq 0x20(%rsp), %rsi
callq 0x574b60
xorps %xmm0, %xmm0
movsd %xmm0, (%rax)
movq 0x20(%rsp), %rax
addq $0x1, %rax
movq %rax, 0x20(%rsp)
jmp 0x574dc1
movsd 0x2623d(%rip), %xmm0    # 0x59b040
movsd %xmm0, 0xa0(%rsp)
movsd 0xa0(%rsp), %xmm0
addq $0xa8, %rsp
retq
nopl (%rax)