// File: /workspace/github_c_makefile_star2_O1/xiongxu[P]bam2bedGraph2/samtools-0.1.19/bcftools/kfunc.c
// Function: kf_erfc
double kf_erfc(double x)
{
	const double p0 = 220.2068679123761;
	const double p1 = 221.2135961699311;
	const double p2 = 112.0792914978709;
	const double p3 = 33.912866078383;
	const double p4 = 6.37396220353165;
	const double p5 = .7003830644436881;
	const double p6 = .03526249659989109;
	const double q0 = 440.4137358247522;
	const double q1 = 793.8265125199484;
	const double q2 = 637.3336333788311;
	const double q3 = 296.5642487796737;
	const double q4 = 86.78073220294608;
	const double q5 = 16.06417757920695;
	const double q6 = 1.755667163182642;
	const double q7 = .08838834764831844;
	double expntl, z, p;
	z = fabs(x) * M_SQRT2;
	if (z > 37.) return x > 0.? 0. : 2.;
	expntl = exp(z * z * - .5);
	if (z < 10. / M_SQRT2) // for small z
	    p = expntl * ((((((p6 * z + p5) * z + p4) * z + p3) * z + p2) * z + p1) * z + p0)
			/ (((((((q7 * z + q6) * z + q5) * z + q4) * z + q3) * z + q2) * z + q1) * z + q0);
	else p = expntl / 2.506628274631001 / (z + 1. / (z + 2. / (z + 3. / (z + 4. / (z + .65)))));
	return x > 0.? 2. * p : 2. * (1. - p);
}

// Assembly:
movapd %xmm0, %xmm1
movapd 0x585f(%rip), %xmm2     # 0x1b6c0
andpd %xmm0, %xmm2
mulsd 0x58e3(%rip), %xmm2     # 0x1b750
ucomisd 0x58e3(%rip), %xmm2     # 0x1b758
jbe 0x15e8d
xorpd %xmm0, %xmm0
cmpltsd %xmm1, %xmm0
movsd 0x5598(%rip), %xmm1     # 0x1b420
andnpd %xmm1, %xmm0
retq
subq $0x28, %rsp
movapd %xmm1, 0x10(%rsp)
movapd %xmm2, %xmm0
mulsd %xmm2, %xmm0
mulsd 0x5899(%rip), %xmm0     # 0x1b740
movapd %xmm2, (%rsp)
callq 0x2570
movapd (%rsp), %xmm3
movsd 0x58a2(%rip), %xmm1     # 0x1b760
ucomisd %xmm3, %xmm1
jbe 0x15f7e
movsd 0x58a8(%rip), %xmm1     # 0x1b778
mulsd %xmm3, %xmm1
addsd 0x58a4(%rip), %xmm1     # 0x1b780
mulsd %xmm3, %xmm1
addsd 0x58a0(%rip), %xmm1     # 0x1b788
mulsd %xmm3, %xmm1
addsd 0x589c(%rip), %xmm1     # 0x1b790
mulsd %xmm3, %xmm1
addsd 0x5898(%rip), %xmm1     # 0x1b798
mulsd %xmm3, %xmm1
addsd 0x5894(%rip), %xmm1     # 0x1b7a0
mulsd %xmm3, %xmm1
addsd 0x5890(%rip), %xmm1     # 0x1b7a8
movsd 0x5890(%rip), %xmm2     # 0x1b7b0
mulsd %xmm3, %xmm2
addsd 0x588c(%rip), %xmm2     # 0x1b7b8
mulsd %xmm3, %xmm2
addsd 0x5888(%rip), %xmm2     # 0x1b7c0
mulsd %xmm3, %xmm2
addsd 0x5884(%rip), %xmm2     # 0x1b7c8
mulsd %xmm3, %xmm2
addsd 0x5880(%rip), %xmm2     # 0x1b7d0
mulsd %xmm3, %xmm2
addsd 0x587c(%rip), %xmm2     # 0x1b7d8
mulsd %xmm0, %xmm1
mulsd %xmm3, %xmm2
addsd 0x5874(%rip), %xmm2     # 0x1b7e0
mulsd %xmm3, %xmm2
addsd 0x5870(%rip), %xmm2     # 0x1b7e8
divsd %xmm2, %xmm1
jmp 0x15fda
divsd 0x57e2(%rip), %xmm0     # 0x1b768
movsd 0x57e2(%rip), %xmm1     # 0x1b770
addsd %xmm3, %xmm1
movsd 0x547e(%rip), %xmm2     # 0x1b418
divsd %xmm1, %xmm2
addsd %xmm3, %xmm2
movsd 0x575e(%rip), %xmm1     # 0x1b708
divsd %xmm2, %xmm1
addsd %xmm3, %xmm1
movsd 0x5466(%rip), %xmm2     # 0x1b420
divsd %xmm1, %xmm2
addsd %xmm3, %xmm2
movsd 0x3046(%rip), %xmm1     # 0x19010
divsd %xmm2, %xmm1
addsd %xmm3, %xmm1
divsd %xmm1, %xmm0
movapd %xmm0, %xmm1
movsd 0x302e(%rip), %xmm2     # 0x19010
subsd %xmm1, %xmm2
xorpd %xmm0, %xmm0
cmpltsd 0x10(%rsp), %xmm0
movapd %xmm0, %xmm3
andnpd %xmm2, %xmm3
andpd %xmm1, %xmm0
orpd %xmm3, %xmm0
addsd %xmm0, %xmm0
addq $0x28, %rsp
retq