void deflect(double mjd1, double lpd, double psi, double rsn, double lsn,
             double rho, double *ra, double *dec) {
  double hra, hdec;
  double el;
  double g1, g2;
  double u[3];
  double q[3];
  double e[3];
  double qe, uq, eu;
  int i;
  elongation(lpd, psi, lsn - 3.141592653589793, &el);
  el = fabs(el);
  if (el < ((170) * 3.141592653589793 / 180.) ||
      el > ((179.75) * 3.141592653589793 / 180.) || rho < rsn)
    return;
  sphcart(*ra, *dec, rho, u, u + 1, u + 2);
  ecl_eq(mjd1, psi, lpd, &hra, &hdec);
  sphcart(hra, hdec, 1.0, q, q + 1, q + 2);
  ecl_eq(mjd1, 0.0, lsn - 3.141592653589793, &hra, &hdec);
  sphcart(hra, hdec, 1.0, e, e + 1, e + 2);
  qe = uq = eu = 0.0;
  for (i = 0; i <= 2; ++i) {
    qe += q[i] * e[i];
    uq += u[i] * q[i];
    eu += e[i] * u[i];
  }
  g1 = 2 * 1.32712438e20 / (299792458.0 * 299792458.0 * (1.4959787e11)) / rsn;
  g2 = 1 + qe;
  g1 /= g2;
  for (i = 0; i <= 2; ++i)
    u[i] += g1 * (uq * e[i] - eu * q[i]);
  cartsph(u[0], u[1], u[2], ra, dec, &rho);
}


x86 assembly (clang, -O0):
<deflect>:
push   %rbp
mov    %rsp,%rbp
sub    $0xe0,%rsp
movsd  %xmm0,-0x8(%rbp)
movsd  %xmm1,-0x10(%rbp)
movsd  %xmm2,-0x18(%rbp)
movsd  %xmm3,-0x20(%rbp)
movsd  %xmm4,-0x28(%rbp)
movsd  %xmm5,-0x30(%rbp)
mov    %rdi,-0x38(%rbp)
mov    %rsi,-0x40(%rbp)
movsd  -0x10(%rbp),%xmm0
movsd  -0x18(%rbp),%xmm1
movsd  -0x28(%rbp),%xmm2
movsd  0xe80(%rip),%xmm3
subsd  %xmm3,%xmm2
lea    -0x58(%rbp),%rdi
mov    $0x3,%al
call   1050 <elongation@plt>
movsd  -0x58(%rbp),%xmm0
movaps 0xe8d(%rip),%xmm1
pand   %xmm1,%xmm0
movsd  %xmm0,-0x58(%rbp)
movsd  0xe4c(%rip),%xmm0
ucomisd -0x58(%rbp),%xmm0
ja     11ea <deflect+0xaa>
movsd  -0x58(%rbp),%xmm0
movsd  0xe44(%rip),%xmm1
ucomisd %xmm1,%xmm0
ja     11ea <deflect+0xaa>
movsd  -0x30(%rbp),%xmm1
movsd  -0x20(%rbp),%xmm0
ucomisd %xmm1,%xmm0
jbe    11ef <deflect+0xaf>
jmp    14b5 <deflect+0x375>
mov    -0x38(%rbp),%rax
movsd  (%rax),%xmm0
mov    -0x40(%rbp),%rax
movsd  (%rax),%xmm1
movsd  -0x30(%rbp),%xmm2
lea    -0x80(%rbp),%rdi
lea    -0x80(%rbp),%rsi
add    $0x8,%rsi
lea    -0x80(%rbp),%rdx
add    $0x10,%rdx
mov    $0x3,%al
call   1040 <sphcart@plt>
movsd  -0x8(%rbp),%xmm0
movsd  -0x18(%rbp),%xmm1
movsd  -0x10(%rbp),%xmm2
lea    -0x48(%rbp),%rdi
lea    -0x50(%rbp),%rsi
mov    $0x3,%al
call   1060 <ecl_eq@plt>
movsd  -0x48(%rbp),%xmm0
movsd  -0x50(%rbp),%xmm1
lea    -0xa0(%rbp),%rdi
lea    -0xa0(%rbp),%rsi
add    $0x8,%rsi
lea    -0xa0(%rbp),%rdx
add    $0x10,%rdx
movsd  0xdac(%rip),%xmm2
mov    $0x3,%al
call   1040 <sphcart@plt>
movsd  -0x8(%rbp),%xmm0
movsd  -0x28(%rbp),%xmm2
movsd  0xd83(%rip),%xmm1
subsd  %xmm1,%xmm2
xorps  %xmm1,%xmm1
lea    -0x48(%rbp),%rdi
lea    -0x50(%rbp),%rsi
mov    $0x3,%al
call   1060 <ecl_eq@plt>
movsd  -0x48(%rbp),%xmm0
movsd  -0x50(%rbp),%xmm1
lea    -0xc0(%rbp),%rdi
lea    -0xc0(%rbp),%rsi
add    $0x8,%rsi
lea    -0xc0(%rbp),%rdx
add    $0x10,%rdx
movsd  0xd4e(%rip),%xmm2
mov    $0x3,%al
call   1040 <sphcart@plt>
xorps  %xmm0,%xmm0
movsd  %xmm0,-0xd8(%rbp)
ff
xorps  %xmm0,%xmm0
movsd  %xmm0,-0xd0(%rbp)
ff
xorps  %xmm0,%xmm0
movsd  %xmm0,-0xc8(%rbp)
ff
movl   $0x0,-0xdc(%rbp)
cmpl   $0x2,-0xdc(%rbp)
jg     13bf <deflect+0x27f>
movslq -0xdc(%rbp),%rax
movsd  -0xa0(%rbp,%rax,8),%xmm0
ff ff
movslq -0xdc(%rbp),%rax
movsd  -0xc0(%rbp,%rax,8),%xmm2
ff ff
movsd  -0xc8(%rbp),%xmm1
ff
mulsd  %xmm2,%xmm0
addsd  %xmm1,%xmm0
movsd  %xmm0,-0xc8(%rbp)
ff
movslq -0xdc(%rbp),%rax
movsd  -0x80(%rbp,%rax,8),%xmm0
movslq -0xdc(%rbp),%rax
movsd  -0xa0(%rbp,%rax,8),%xmm2
ff ff
movsd  -0xd0(%rbp),%xmm1
ff
mulsd  %xmm2,%xmm0
addsd  %xmm1,%xmm0
movsd  %xmm0,-0xd0(%rbp)
ff
movslq -0xdc(%rbp),%rax
movsd  -0xc0(%rbp,%rax,8),%xmm0
ff ff
movslq -0xdc(%rbp),%rax
movsd  -0x80(%rbp,%rax,8),%xmm2
movsd  -0xd8(%rbp),%xmm1
ff
mulsd  %xmm2,%xmm0
addsd  %xmm1,%xmm0
movsd  %xmm0,-0xd8(%rbp)
ff
mov    -0xdc(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0xdc(%rbp)
jmp    12fc <deflect+0x1bc>
movsd  0xc59(%rip),%xmm0
divsd  -0x20(%rbp),%xmm0
movsd  %xmm0,-0x60(%rbp)
movsd  0xc3f(%rip),%xmm0
addsd  -0xc8(%rbp),%xmm0
ff
movsd  %xmm0,-0x68(%rbp)
movsd  -0x68(%rbp),%xmm1
movsd  -0x60(%rbp),%xmm0
divsd  %xmm1,%xmm0
movsd  %xmm0,-0x60(%rbp)
movl   $0x0,-0xdc(%rbp)
cmpl   $0x2,-0xdc(%rbp)
jg     1493 <deflect+0x353>
movsd  -0x60(%rbp),%xmm0
movsd  -0xd0(%rbp),%xmm2
ff
movslq -0xdc(%rbp),%rax
movsd  -0xc0(%rbp,%rax,8),%xmm3
ff ff
movsd  -0xd8(%rbp),%xmm1
ff
movslq -0xdc(%rbp),%rax
mulsd  -0xa0(%rbp,%rax,8),%xmm1
ff ff
movq   %xmm1,%rax
movabs $0x8000000000000000,%rcx
xor    %rcx,%rax
movq   %rax,%xmm1
mulsd  %xmm3,%xmm2
addsd  %xmm1,%xmm2
movslq -0xdc(%rbp),%rax
movsd  -0x80(%rbp,%rax,8),%xmm1
mulsd  %xmm2,%xmm0
addsd  %xmm1,%xmm0
movsd  %xmm0,-0x80(%rbp,%rax,8)
mov    -0xdc(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0xdc(%rbp)
jmp    1403 <deflect+0x2c3>
movsd  -0x80(%rbp),%xmm0
movsd  -0x78(%rbp),%xmm1
movsd  -0x70(%rbp),%xmm2
mov    -0x38(%rbp),%rdi
mov    -0x40(%rbp),%rsi
lea    -0x30(%rbp),%rdx
mov    $0x3,%al
call   1030 <cartsph@plt>
add    $0xe0,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<deflect>:
push   %r15
push   %r14
push   %r12
push   %rbx
sub    $0xa8,%rsp
mov    %rsi,%r14
mov    %rdi,%r15
movsd  %xmm5,0x60(%rsp)
movsd  %xmm3,0x10(%rsp)
movsd  %xmm0,0x8(%rsp)
movsd  %xmm5,0x68(%rsp)
addsd  0xe8c(%rip),%xmm4
lea    0x18(%rsp),%rdi
movsd  %xmm1,0x50(%rsp)
movaps %xmm1,%xmm0
movsd  %xmm2,0x48(%rsp)
movaps %xmm2,%xmm1
movsd  %xmm4,0x58(%rsp)
movapd %xmm4,%xmm2
mov    $0x3,%al
call   1050 <elongation@plt>
movsd  0x60(%rsp),%xmm2
movsd  0x18(%rsp),%xmm0
andpd  0xe80(%rip),%xmm0
movlpd %xmm0,0x18(%rsp)
movsd  0xe4a(%rip),%xmm1
ucomisd %xmm0,%xmm1
ja     13e6 <deflect+0x2a6>
ucomisd 0xe40(%rip),%xmm0
ja     13e6 <deflect+0x2a6>
movsd  0x10(%rsp),%xmm0
ucomisd %xmm2,%xmm0
ja     13e6 <deflect+0x2a6>
movsd  (%r15),%xmm0
movsd  (%r14),%xmm1
lea    0x38(%rsp),%rsi
lea    0x40(%rsp),%rdx
lea    0x30(%rsp),%rdi
mov    $0x3,%al
call   1040 <sphcart@plt>
lea    0x28(%rsp),%rbx
lea    0x20(%rsp),%r12
movsd  0x8(%rsp),%xmm0
movsd  0x48(%rsp),%xmm1
movsd  0x50(%rsp),%xmm2
mov    %rbx,%rdi
mov    %r12,%rsi
mov    $0x3,%al
call   1060 <ecl_eq@plt>
movsd  0x28(%rsp),%xmm0
movsd  0x20(%rsp),%xmm1
lea    0x98(%rsp),%rsi
lea    0xa0(%rsp),%rdx
movsd  0xdc5(%rip),%xmm2
lea    0x90(%rsp),%rdi
mov    $0x3,%al
call   1040 <sphcart@plt>
xorps  %xmm1,%xmm1
movsd  0x8(%rsp),%xmm0
movsd  0x58(%rsp),%xmm2
mov    %rbx,%rdi
mov    %r12,%rsi
mov    $0x3,%al
call   1060 <ecl_eq@plt>
movsd  0x28(%rsp),%xmm0
movsd  0x20(%rsp),%xmm1
lea    0x78(%rsp),%rsi
lea    0x80(%rsp),%rdx
lea    0x70(%rsp),%rdi
movsd  0xd74(%rip),%xmm2
mov    $0x3,%al
call   1040 <sphcart@plt>
movapd 0x90(%rsp),%xmm10
movapd 0x70(%rsp),%xmm9
movapd 0x30(%rsp),%xmm8
movapd %xmm8,%xmm0
mulsd  %xmm10,%xmm0
xorpd  %xmm2,%xmm2
addsd  %xmm2,%xmm0
movapd %xmm9,%xmm1
mulsd  %xmm8,%xmm1
addsd  %xmm2,%xmm1
xorpd  %xmm12,%xmm12
movapd %xmm9,%xmm11
unpckhpd %xmm9,%xmm11
movapd %xmm10,%xmm5
unpckhpd %xmm10,%xmm5
movapd %xmm5,%xmm4
movapd %xmm8,%xmm6
unpckhpd %xmm8,%xmm6
mulsd  %xmm6,%xmm5
addsd  %xmm0,%xmm5
mulsd  %xmm11,%xmm6
addsd  %xmm1,%xmm6
movsd  0xa0(%rsp),%xmm0
movsd  0x80(%rsp),%xmm3
movapd %xmm0,%xmm7
mulsd  %xmm3,%xmm7
movsd  0x40(%rsp),%xmm1
movapd %xmm1,%xmm2
mulsd  %xmm0,%xmm2
addsd  %xmm5,%xmm2
movapd %xmm2,%xmm5
mulsd  %xmm3,%xmm2
mulsd  %xmm1,%xmm3
addsd  %xmm6,%xmm3
mulsd  %xmm3,%xmm0
unpcklpd %xmm3,%xmm3
mulpd  %xmm10,%xmm3
mulsd  %xmm9,%xmm10
addsd  %xmm12,%xmm10
mulsd  %xmm11,%xmm4
addsd  %xmm10,%xmm4
addsd  %xmm4,%xmm7
movsd  0xc9c(%rip),%xmm4
divsd  0x10(%rsp),%xmm4
addsd  0xc86(%rip),%xmm7
divsd  %xmm7,%xmm4
unpcklpd %xmm5,%xmm5
mulpd  %xmm9,%xmm5
subpd  %xmm3,%xmm5
subsd  %xmm0,%xmm2
mulsd  %xmm4,%xmm2
movapd %xmm4,%xmm0
unpcklpd %xmm4,%xmm0
mulpd  %xmm5,%xmm0
addpd  %xmm8,%xmm0
movapd %xmm0,0x30(%rsp)
addsd  %xmm1,%xmm2
movsd  %xmm2,0x40(%rsp)
movapd %xmm0,%xmm1
unpckhpd %xmm0,%xmm1
lea    0x68(%rsp),%rdx
mov    %r15,%rdi
mov    %r14,%rsi
mov    $0x3,%al
call   1030 <cartsph@plt>
add    $0xa8,%rsp
pop    %rbx
pop    %r12
pop    %r14
pop    %r15
ret

LLVM IR (-O0):
define void @deflect(double %0, double %1, double %2, double %3, double %4, double %5, double* %6, double* %7) {
%9 = alloca double
%10 = alloca double
%11 = alloca double
%12 = alloca double
%13 = alloca double
%14 = alloca double
%15 = alloca double*
%16 = alloca double*
%17 = alloca double
%18 = alloca double
%19 = alloca double
%20 = alloca double
%21 = alloca double
%22 = alloca [3 x double]
%23 = alloca [3 x double]
%24 = alloca [3 x double]
%25 = alloca double
%26 = alloca double
%27 = alloca double
%28 = alloca i32
store double %0, double* %9
store double %1, double* %10
store double %2, double* %11
store double %3, double* %12
store double %4, double* %13
store double %5, double* %14
store double* %6, double** %15
store double* %7, double** %16
%29 = load double, double* %10
%30 = load double, double* %11
%31 = load double, double* %13
%32 = fsub double %31, 0x400921FB54442D18
%33 = call i32 (double, double, double, double*, ...) bitcast (i32 (...)* @elongation to i32 (double, double, double, double*, ...)*)(double %29, double %30, double %32, double* %19)
%34 = load double, double* %19
%35 = call double @llvm.fabs.f64(double %34)
store double %35, double* %19
%36 = load double, double* %19
%37 = fcmp olt double %36, 0x4007BC89CF95B8D0
br i1 %37, label %45, label %38
38: ; preds = %8
%39 = load double, double* %19
%40 = fcmp ogt double %39, 0x4009190BB0F303CA
br i1 %40, label %45, label %41
41: ; preds = %38
%42 = load double, double* %14
%43 = load double, double* %12
%44 = fcmp olt double %42, %43
br i1 %44, label %45, label %46
45: ; preds = %41, %38, %8
br label %163
46: ; preds = %41
%47 = load double*, double** %15
%48 = load double, double* %47
%49 = load double*, double** %16
%50 = load double, double* %49
%51 = load double, double* %14
%52 = getelementptr inbounds [3 x double], [3 x double]* %22, i64 0, i64 0
%53 = getelementptr inbounds [3 x double], [3 x double]* %22, i64 0, i64 0
%54 = getelementptr inbounds double, double* %53, i64 1
%55 = getelementptr inbounds [3 x double], [3 x double]* %22, i64 0, i64 0
%56 = getelementptr inbounds double, double* %55, i64 2
%57 = call i32 (double, double, double, double*, double*, double*, ...) bitcast (i32 (...)* @sphcart to i32 (double, double, double, double*, double*, double*, ...)*)(double %48, double %50, double %51, double* %52, double* %54, double* %56)
%58 = load double, double* %9
%59 = load double, double* %11
%60 = load double, double* %10
%61 = call i32 (double, double, double, double*, double*, ...) bitcast (i32 (...)* @ecl_eq to i32 (double, double, double, double*, double*, ...)*)(double %58, double %59, double %60, double* %17, double* %18)
%62 = load double, double* %17
%63 = load double, double* %18
%64 = getelementptr inbounds [3 x double], [3 x double]* %23, i64 0, i64 0
%65 = getelementptr inbounds [3 x double], [3 x double]* %23, i64 0, i64 0
%66 = getelementptr inbounds double, double* %65, i64 1
%67 = getelementptr inbounds [3 x double], [3 x double]* %23, i64 0, i64 0
%68 = getelementptr inbounds double, double* %67, i64 2
%69 = call i32 (double, double, double, double*, double*, double*, ...) bitcast (i32 (...)* @sphcart to i32 (double, double, double, double*, double*, double*, ...)*)(double %62, double %63, double 1.000000e+00, double* %64, double* %66, double* %68)
%70 = load double, double* %9
%71 = load double, double* %13
%72 = fsub double %71, 0x400921FB54442D18
%73 = call i32 (double, double, double, double*, double*, ...) bitcast (i32 (...)* @ecl_eq to i32 (double, double, double, double*, double*, ...)*)(double %70, double 0.000000e+00, double %72, double* %17, double* %18)
%74 = load double, double* %17
%75 = load double, double* %18
%76 = getelementptr inbounds [3 x double], [3 x double]* %24, i64 0, i64 0
%77 = getelementptr inbounds [3 x double], [3 x double]* %24, i64 0, i64 0
%78 = getelementptr inbounds double, double* %77, i64 1
%79 = getelementptr inbounds [3 x double], [3 x double]* %24, i64 0, i64 0
%80 = getelementptr inbounds double, double* %79, i64 2
%81 = call i32 (double, double, double, double*, double*, double*, ...) bitcast (i32 (...)* @sphcart to i32 (double, double, double, double*, double*, double*, ...)*)(double %74, double %75, double 1.000000e+00, double* %76, double* %78, double* %80)
store double 0.000000e+00, double* %27
store double 0.000000e+00, double* %26
store double 0.000000e+00, double* %25
store i32 0, i32* %28
br label %82
82: ; preds = %116, %46
%83 = load i32, i32* %28
%84 = icmp sle i32 %83, 2
br i1 %84, label %85, label %119
85: ; preds = %82
%86 = load i32, i32* %28
%87 = sext i32 %86 to i64
%88 = getelementptr inbounds [3 x double], [3 x double]* %23, i64 0, i64 %87
%89 = load double, double* %88
%90 = load i32, i32* %28
%91 = sext i32 %90 to i64
%92 = getelementptr inbounds [3 x double], [3 x double]* %24, i64 0, i64 %91
%93 = load double, double* %92
%94 = load double, double* %25
%95 = call double @llvm.fmuladd.f64(double %89, double %93, double %94)
store double %95, double* %25
%96 = load i32, i32* %28
%97 = sext i32 %96 to i64
%98 = getelementptr inbounds [3 x double], [3 x double]* %22, i64 0, i64 %97
%99 = load double, double* %98
%100 = load i32, i32* %28
%101 = sext i32 %100 to i64
%102 = getelementptr inbounds [3 x double], [3 x double]* %23, i64 0, i64 %101
%103 = load double, double* %102
%104 = load double, double* %26
%105 = call double @llvm.fmuladd.f64(double %99, double %103, double %104)
store double %105, double* %26
%106 = load i32, i32* %28
%107 = sext i32 %106 to i64
%108 = getelementptr inbounds [3 x double], [3 x double]* %24, i64 0, i64 %107
%109 = load double, double* %108
%110 = load i32, i32* %28
%111 = sext i32 %110 to i64
%112 = getelementptr inbounds [3 x double], [3 x double]* %22, i64 0, i64 %111
%113 = load double, double* %112
%114 = load double, double* %27
%115 = call double @llvm.fmuladd.f64(double %109, double %113, double %114)
store double %115, double* %27
br label %116
116: ; preds = %85
%117 = load i32, i32* %28
%118 = add nsw i32 %117, 1
store i32 %118, i32* %28
br label %82
119: ; preds = %82
%120 = load double, double* %12
%121 = fdiv double 0x3E55326F7AAEC121, %120
store double %121, double* %20
%122 = load double, double* %25
%123 = fadd double 1.000000e+00, %122
store double %123, double* %21
%124 = load double, double* %21
%125 = load double, double* %20
%126 = fdiv double %125, %124
store double %126, double* %20
store i32 0, i32* %28
br label %127
127: ; preds = %150, %119
%128 = load i32, i32* %28
%129 = icmp sle i32 %128, 2
br i1 %129, label %130, label %153
130: ; preds = %127
%131 = load double, double* %20
%132 = load double, double* %26
%133 = load i32, i32* %28
%134 = sext i32 %133 to i64
%135 = getelementptr inbounds [3 x double], [3 x double]* %24, i64 0, i64 %134
%136 = load double, double* %135
%137 = load double, double* %27
%138 = load i32, i32* %28
%139 = sext i32 %138 to i64
%140 = getelementptr inbounds [3 x double], [3 x double]* %23, i64 0, i64 %139
%141 = load double, double* %140
%142 = fmul double %137, %141
%143 = fneg double %142
%144 = call double @llvm.fmuladd.f64(double %132, double %136, double %143)
%145 = load i32, i32* %28
%146 = sext i32 %145 to i64
%147 = getelementptr inbounds [3 x double], [3 x double]* %22, i64 0, i64 %146
%148 = load double, double* %147
%149 = call double @llvm.fmuladd.f64(double %131, double %144, double %148)
store double %149, double* %147
br label %150
150: ; preds = %130
%151 = load i32, i32* %28
%152 = add nsw i32 %151, 1
store i32 %152, i32* %28
br label %127
153: ; preds = %127
%154 = getelementptr inbounds [3 x double], [3 x double]* %22, i64 0, i64 0
%155 = load double, double* %154
%156 = getelementptr inbounds [3 x double], [3 x double]* %22, i64 0, i64 1
%157 = load double, double* %156
%158 = getelementptr inbounds [3 x double], [3 x double]* %22, i64 0, i64 2
%159 = load double, double* %158
%160 = load double*, double** %15
%161 = load double*, double** %16
%162 = call i32 (double, double, double, double*, double*, double*, ...) bitcast (i32 (...)* @cartsph to i32 (double, double, double, double*, double*, double*, ...)*)(double %155, double %157, double %159, double* %160, double* %161, double* %14)
br label %163
163: ; preds = %153, %45
ret void
}

LLVM IR (-O2):
define void @deflect(double %0, double %1, double %2, double %3, double %4, double %5, double* %6, double* %7) {
%9 = alloca double
%10 = alloca double
%11 = alloca double
%12 = alloca double
%13 = alloca [3 x double]
%14 = alloca [3 x double]
%15 = alloca [3 x double]
store double %5, double* %9
%16 = bitcast double* %10 to i8*
%17 = bitcast double* %11 to i8*
%18 = bitcast double* %12 to i8*
%19 = bitcast [3 x double]* %13 to i8*
%20 = bitcast [3 x double]* %14 to i8*
%21 = bitcast [3 x double]* %15 to i8*
%22 = fadd double %4, 0xC00921FB54442D18
%23 = call i32 (double, double, double, double*, ...) bitcast (i32 (...)* @elongation to i32 (double, double, double, double*, ...)*)(double %1, double %2, double %22, double* %12)
%24 = load double, double* %12
%25 = call double @llvm.fabs.f64(double %24)
store double %25, double* %12
%26 = fcmp olt double %25, 0x4007BC89CF95B8D0
%27 = fcmp ogt double %25, 0x4009190BB0F303CA
%28 = or i1 %26, %27
%29 = fcmp olt double %5, %3
%30 = or i1 %28, %29
br i1 %30, label %96, label %31
31: ; preds = %8
%32 = load double, double* %6
%33 = load double, double* %7
%34 = getelementptr inbounds [3 x double], [3 x double]* %13, i64 0, i64 0
%35 = getelementptr inbounds [3 x double], [3 x double]* %13, i64 0, i64 1
%36 = getelementptr inbounds [3 x double], [3 x double]* %13, i64 0, i64 2
%37 = call i32 (double, double, double, double*, double*, double*, ...) bitcast (i32 (...)* @sphcart to i32 (double, double, double, double*, double*, double*, ...)*)(double %32, double %33, double %5, double* %34, double* %35, double* %36)
%38 = call i32 (double, double, double, double*, double*, ...) bitcast (i32 (...)* @ecl_eq to i32 (double, double, double, double*, double*, ...)*)(double %0, double %2, double %1, double* %10, double* %11)
%39 = load double, double* %10
%40 = load double, double* %11
%41 = getelementptr inbounds [3 x double], [3 x double]* %14, i64 0, i64 0
%42 = getelementptr inbounds [3 x double], [3 x double]* %14, i64 0, i64 1
%43 = getelementptr inbounds [3 x double], [3 x double]* %14, i64 0, i64 2
%44 = call i32 (double, double, double, double*, double*, double*, ...) bitcast (i32 (...)* @sphcart to i32 (double, double, double, double*, double*, double*, ...)*)(double %39, double %40, double 1.000000e+00, double* %41, double* %42, double* %43)
%45 = call i32 (double, double, double, double*, double*, ...) bitcast (i32 (...)* @ecl_eq to i32 (double, double, double, double*, double*, ...)*)(double %0, double 0.000000e+00, double %22, double* %10, double* %11)
%46 = load double, double* %10
%47 = load double, double* %11
%48 = getelementptr inbounds [3 x double], [3 x double]* %15, i64 0, i64 0
%49 = getelementptr inbounds [3 x double], [3 x double]* %15, i64 0, i64 1
%50 = getelementptr inbounds [3 x double], [3 x double]* %15, i64 0, i64 2
%51 = call i32 (double, double, double, double*, double*, double*, ...) bitcast (i32 (...)* @sphcart to i32 (double, double, double, double*, double*, double*, ...)*)(double %46, double %47, double 1.000000e+00, double* %48, double* %49, double* %50)
%52 = bitcast [3 x double]* %14 to <2 x double>*
%53 = load <2 x double>, <2 x double>* %52
%54 = bitcast [3 x double]* %15 to <2 x double>*
%55 = load <2 x double>, <2 x double>* %54
%56 = extractelement <2 x double> %55, i64 0
%57 = extractelement <2 x double> %53, i64 0
%58 = call double @llvm.fmuladd.f64(double %57, double %56, double 0.000000e+00)
%59 = bitcast [3 x double]* %13 to <2 x double>*
%60 = load <2 x double>, <2 x double>* %59
%61 = extractelement <2 x double> %60, i64 0
%62 = call double @llvm.fmuladd.f64(double %61, double %57, double 0.000000e+00)
%63 = call double @llvm.fmuladd.f64(double %56, double %61, double 0.000000e+00)
%64 = extractelement <2 x double> %55, i64 1
%65 = extractelement <2 x double> %53, i64 1
%66 = call double @llvm.fmuladd.f64(double %65, double %64, double %58)
%67 = extractelement <2 x double> %60, i64 1
%68 = call double @llvm.fmuladd.f64(double %67, double %65, double %62)
%69 = call double @llvm.fmuladd.f64(double %64, double %67, double %63)
%70 = load double, double* %43
%71 = load double, double* %50
%72 = call double @llvm.fmuladd.f64(double %70, double %71, double %66)
%73 = load double, double* %36
%74 = call double @llvm.fmuladd.f64(double %73, double %70, double %68)
%75 = call double @llvm.fmuladd.f64(double %71, double %73, double %69)
%76 = fdiv double 0x3E55326F7AAEC121, %3
%77 = fadd double %72, 1.000000e+00
%78 = fdiv double %76, %77
%79 = fneg double %75
%80 = insertelement <2 x double> poison, double %79, i64 0
%81 = shufflevector <2 x double> %80, <2 x double> poison, <2 x i32> zeroinitializer
%82 = fmul <2 x double> %53, %81
%83 = insertelement <2 x double> poison, double %74, i64 0
%84 = shufflevector <2 x double> %83, <2 x double> poison, <2 x i32> zeroinitializer
%85 = call <2 x double> @llvm.fmuladd.v2f64(<2 x double> %84, <2 x double> %55, <2 x double> %82)
%86 = insertelement <2 x double> poison, double %78, i64 0
%87 = shufflevector <2 x double> %86, <2 x double> poison, <2 x i32> zeroinitializer
%88 = call <2 x double> @llvm.fmuladd.v2f64(<2 x double> %87, <2 x double> %85, <2 x double> %60)
%89 = bitcast [3 x double]* %13 to <2 x double>*
store <2 x double> %88, <2 x double>* %89
%90 = fmul double %70, %79
%91 = call double @llvm.fmuladd.f64(double %74, double %71, double %90)
%92 = call double @llvm.fmuladd.f64(double %78, double %91, double %73)
store double %92, double* %36
%93 = extractelement <2 x double> %88, i64 0
%94 = extractelement <2 x double> %88, i64 1
%95 = call i32 (double, double, double, double*, double*, double*, ...) bitcast (i32 (...)* @cartsph to i32 (double, double, double, double*, double*, double*, ...)*)(double %93, double %94, double %92, double* %6, double* %7, double* %9)
br label %96
96: ; preds = %8, %31
ret void
}