// File: /workspace/github_cpp_makefile_star2_O2/PeterDenton[P]Nu-Pert/src/Check.cpp
// Function: Check::Palphabeta(int, int, double, double, double, int)
double Palphabeta(int alpha, int beta, double a, double LE, double delta, int order)
{
	assert (alpha >= 0 && alpha <= 2); // alpha valid for 0, 1, 2
	assert (beta >= 0 && beta <= 2); // beta valid for 0, 1, 2
	assert (order >= 0 && order <= 2); // order valid for 0, 1, 2

	double L2E = km_per_GeV_to_per_eV2 * LE / 2; // in eV^-2 now

	double l1, l2, l3;
	if (order < 2) // first order is same as zeroth order
	{
		l1 = l10(a);
		l2 = l20(a);
		l3 = l30(a);
	}
	else
	{
		l1 = Check::l1(a);
		l2 = Check::l2(a);
		l3 = Check::l3(a);
	}

	// See eq. 4.0.1 or eq. 3.12 in arXiv:1505.01826
	std::complex<double> A(0, 0);
	A += Talphabetai(alpha, beta, 0, a, delta, order) * std::complex<double>(cos(l1 * L2E), -sin(l1 * L2E));
	A += Talphabetai(alpha, beta, 1, a, delta, order) * std::complex<double>(cos(l2 * L2E), -sin(l2 * L2E));
	A += Talphabetai(alpha, beta, 2, a, delta, order) * std::complex<double>(cos(l3 * L2E), -sin(l3 * L2E));

	double P = std::norm(A);
	ProbabilityWarning W(&P);
	return P;
}

// Assembly:
pushq %rbp
pushq %r15
pushq %r14
pushq %r12
pushq %rbx
subq $0xa0, %rsp
movsd %xmm2, 0x30(%rsp)
cmpl $0x3, %edi
jae 0x36bc
movl %esi, %ebp
cmpl $0x3, %esi
jae 0x36db
movl %edx, %ebx
cmpl $0x3, %edx
jae 0x36fa
movapd %xmm0, %xmm2
movl %edi, %r14d
movsd %xmm1, 0x18(%rsp)
leaq 0x8f06(%rip), %rax      # 0xc328
movsd (%rax), %xmm0
movsd %xmm0, 0x10(%rsp)
cmpl $0x2, %ebx
movsd %xmm2, 0x8(%rsp)
jne 0x3471
pushq $0x2
popq %r15
movapd %xmm2, %xmm0
movl %r15d, %edi
callq 0x250c
movsd %xmm0, 0x20(%rsp)
movsd 0x8(%rsp), %xmm0
movl %r15d, %edi
callq 0x26bf
movsd %xmm0, 0x28(%rsp)
movsd 0x8(%rsp), %xmm0
movl %r15d, %edi
callq 0x286e
jmp 0x349c
movapd %xmm2, %xmm0
callq 0x256e
movsd %xmm0, 0x20(%rsp)
movsd 0x8(%rsp), %xmm0
callq 0x2721
movsd %xmm0, 0x28(%rsp)
movsd 0x8(%rsp), %xmm0
callq 0x6214
movsd %xmm0, 0x38(%rsp)
movsd 0x10(%rsp), %xmm0
mulsd 0x18(%rsp), %xmm0
mulsd 0x8b52(%rip), %xmm0     # 0xc008
movsd %xmm0, 0x10(%rsp)
movl %r14d, %edi
movl %ebp, %esi
xorl %edx, %edx
movsd 0x8(%rsp), %xmm0
movsd 0x30(%rsp), %xmm1
movl %ebx, %ecx
callq 0x3292
leaq 0x58(%rsp), %r15
movsd %xmm0, (%r15)
movsd %xmm1, 0x8(%r15)
movsd 0x20(%rsp), %xmm0
mulsd 0x10(%rsp), %xmm0
movsd %xmm0, 0x20(%rsp)
callq 0x2290
movsd %xmm0, 0x18(%rsp)
movsd 0x20(%rsp), %xmm0
callq 0x2060
xorpd 0x8b0a(%rip), %xmm0     # 0xc020
leaq 0x48(%rsp), %r12
movsd 0x18(%rsp), %xmm1
movsd %xmm1, (%r12)
movlpd %xmm0, 0x8(%r12)
movq %r15, %rdi
movq %r12, %rsi
callq 0x3719
xorpd %xmm2, %xmm2
addsd %xmm2, %xmm0
movsd %xmm0, 0x18(%rsp)
addsd %xmm2, %xmm1
movsd %xmm1, 0x20(%rsp)
pushq $0x1
popq %rdx
movl %r14d, %edi
movl %ebp, %esi
movsd 0x8(%rsp), %xmm0
movsd 0x30(%rsp), %xmm1
movl %ebx, %ecx
callq 0x3292
movsd %xmm0, (%r15)
movsd %xmm1, 0x8(%r15)
movsd 0x28(%rsp), %xmm0
mulsd 0x10(%rsp), %xmm0
movsd %xmm0, 0x28(%rsp)
callq 0x2290
movsd %xmm0, 0x40(%rsp)
movsd 0x28(%rsp), %xmm0
callq 0x2060
xorpd 0x8a79(%rip), %xmm0     # 0xc020
movsd 0x40(%rsp), %xmm1
movsd %xmm1, (%r12)
movlpd %xmm0, 0x8(%r12)
leaq 0x58(%rsp), %r12
leaq 0x48(%rsp), %r15
movq %r12, %rdi
movq %r15, %rsi
callq 0x3719
addsd 0x18(%rsp), %xmm0
movsd %xmm0, 0x18(%rsp)
addsd 0x20(%rsp), %xmm1
movsd %xmm1, 0x28(%rsp)
pushq $0x2
popq %rdx
movl %r14d, %edi
movl %ebp, %esi
movsd 0x8(%rsp), %xmm0
movsd 0x30(%rsp), %xmm1
movl %ebx, %ecx
callq 0x3292
movsd %xmm0, (%r12)
movsd %xmm1, 0x8(%r12)
movsd 0x10(%rsp), %xmm0
mulsd 0x38(%rsp), %xmm0
movsd %xmm0, 0x10(%rsp)
callq 0x2290
movsd %xmm0, 0x8(%rsp)
movsd 0x10(%rsp), %xmm0
callq 0x2060
xorpd 0x89e1(%rip), %xmm0     # 0xc020
movsd 0x8(%rsp), %xmm1
movsd %xmm1, (%r15)
movlpd %xmm0, 0x8(%r15)
leaq 0x58(%rsp), %rdi
leaq 0x48(%rsp), %rbx
movq %rbx, %rsi
callq 0x3719
addsd 0x18(%rsp), %xmm0
addsd 0x28(%rsp), %xmm1
mulsd %xmm1, %xmm1
mulsd %xmm0, %xmm0
addsd %xmm1, %xmm0
movsd %xmm0, (%rbx)
leaq 0x58(%rsp), %rbx
leaq 0x48(%rsp), %r14
movq %rbx, %rdi
movq %r14, %rsi
callq 0xadac
movsd (%r14), %xmm0
movsd %xmm0, 0x10(%rsp)
movq %rbx, %rdi
callq 0xaa7a
movsd 0x10(%rsp), %xmm0
addq $0xa0, %rsp
popq %rbx
popq %r12
popq %r14
popq %r15
popq %rbp
retq
leaq 0x8abc(%rip), %rdi      # 0xc17f
leaq 0x897f(%rip), %rsi      # 0xc049
leaq 0x8b3b(%rip), %rcx      # 0xc20c
movl $0xb0, %edx
callq 0x2100
leaq 0x8b02(%rip), %rdi      # 0xc1e4
leaq 0x8960(%rip), %rsi      # 0xc049
leaq 0x8b1c(%rip), %rcx      # 0xc20c
movl $0xb1, %edx
callq 0x2100
leaq 0x892f(%rip), %rdi      # 0xc030
leaq 0x8941(%rip), %rsi      # 0xc049
leaq 0x8afd(%rip), %rcx      # 0xc20c
movl $0xb2, %edx
callq 0x2100