#define NULL ((void *)0)
typedef unsigned long size_t; // Customize by platform.
typedef long intptr_t;
typedef unsigned long uintptr_t;
typedef long scalar_t__; // Either arithmetic or pointer type.
/* By default, we understand bool (as a convenience). */
typedef int bool;
#define false 0
#define true 1

/* Forward declarations */

/* Type definitions */

/* Variables and functions */
int /*<<< orphan*/ cartsph(double, double, double, double *, double *,
                           double *);
double cos(double);
int /*<<< orphan*/ nutation(double, double *, double *);
int /*<<< orphan*/ obliquity(double, double *);
double sin(double);
int /*<<< orphan*/ sphcart(double, double, double, double *, double *,
                           double *);
void nut_eq(double mj, double *ra, double *dec) {
  static double lastmj = -10000;
  static double a[3][3];
  double xold, yold, zold, x, y, z;
  if (mj != lastmj) {
    double epsilon, dpsi, deps;
    double se, ce, sp, cp, sede, cede;
    obliquity(mj, &epsilon);
    nutation(mj, &deps, &dpsi);
    se = sin(epsilon);
    ce = cos(epsilon);
    sp = sin(dpsi);
    cp = cos(dpsi);
    sede = sin(epsilon + deps);
    cede = cos(epsilon + deps);
    a[0][0] = cp;
    a[0][1] = -sp * ce;
    a[0][2] = -sp * se;
    a[1][0] = cede * sp;
    a[1][1] = cede * cp * ce + sede * se;
    a[1][2] = cede * cp * se - sede * ce;
    a[2][0] = sede * sp;
    a[2][1] = sede * cp * ce - cede * se;
    a[2][2] = sede * cp * se + cede * ce;
    lastmj = mj;
  }
  sphcart(*ra, *dec, 1.0, &xold, &yold, &zold);
  x = a[0][0] * xold + a[0][1] * yold + a[0][2] * zold;
  y = a[1][0] * xold + a[1][1] * yold + a[1][2] * zold;
  z = a[2][0] * xold + a[2][1] * yold + a[2][2] * zold;
  cartsph(x, y, z, ra, dec, &zold);
  if (*ra < 0.)
    *ra += 2. * 3.141592653589793;
}


x86 assembly (clang, -O0):
<nut_eq>:
push   %rbp
mov    %rsp,%rbp
sub    $0x90,%rsp
movsd  %xmm0,-0x8(%rbp)
mov    %rdi,-0x10(%rbp)
mov    %rsi,-0x18(%rbp)
movsd  -0x8(%rbp),%xmm0
ucomisd 0x2ecb(%rip),%xmm0
jne    1196 <nut_eq+0x36>
jp     1196 <nut_eq+0x36>
jmp    13a0 <nut_eq+0x240>
movsd  -0x8(%rbp),%xmm0
lea    -0x50(%rbp),%rdi
call   1060 <obliquity@plt>
movsd  -0x8(%rbp),%xmm0
lea    -0x60(%rbp),%rdi
lea    -0x58(%rbp),%rsi
call   1070 <nutation@plt>
movsd  -0x50(%rbp),%xmm0
call   1050 <sin@plt>
movsd  %xmm0,-0x68(%rbp)
movsd  -0x50(%rbp),%xmm0
call   1080 <cos@plt>
movsd  %xmm0,-0x70(%rbp)
movsd  -0x58(%rbp),%xmm0
call   1050 <sin@plt>
movsd  %xmm0,-0x78(%rbp)
movsd  -0x58(%rbp),%xmm0
call   1080 <cos@plt>
movsd  %xmm0,-0x80(%rbp)
movsd  -0x50(%rbp),%xmm0
addsd  -0x60(%rbp),%xmm0
call   1050 <sin@plt>
movsd  %xmm0,-0x88(%rbp)
ff
movsd  -0x50(%rbp),%xmm0
addsd  -0x60(%rbp),%xmm0
call   1080 <cos@plt>
movsd  %xmm0,-0x90(%rbp)
ff
movsd  -0x80(%rbp),%xmm0
movsd  %xmm0,0x2e43(%rip)
movsd  -0x78(%rbp),%xmm0
movq   %xmm0,%rax
movabs $0x8000000000000000,%rcx
xor    %rcx,%rax
movq   %rax,%xmm0
mulsd  -0x70(%rbp),%xmm0
movsd  %xmm0,0x2e22(%rip)
movsd  -0x78(%rbp),%xmm0
movq   %xmm0,%rax
movabs $0x8000000000000000,%rcx
xor    %rcx,%rax
movq   %rax,%xmm0
mulsd  -0x68(%rbp),%xmm0
movsd  %xmm0,0x2e01(%rip)
movsd  -0x90(%rbp),%xmm0
ff
mulsd  -0x78(%rbp),%xmm0
movsd  %xmm0,0x2df4(%rip)
movsd  -0x90(%rbp),%xmm0
ff
mulsd  -0x80(%rbp),%xmm0
movsd  -0x70(%rbp),%xmm2
movsd  -0x88(%rbp),%xmm1
ff
mulsd  -0x68(%rbp),%xmm1
mulsd  %xmm2,%xmm0
addsd  %xmm1,%xmm0
movsd  %xmm0,0x2dcd(%rip)
movsd  -0x90(%rbp),%xmm0
ff
mulsd  -0x80(%rbp),%xmm0
movsd  -0x68(%rbp),%xmm2
movsd  -0x88(%rbp),%xmm1
ff
mulsd  -0x70(%rbp),%xmm1
movq   %xmm1,%rax
movabs $0x8000000000000000,%rcx
xor    %rcx,%rax
movq   %rax,%xmm1
mulsd  %xmm2,%xmm0
addsd  %xmm1,%xmm0
movsd  %xmm0,0x2d8f(%rip)
movsd  -0x88(%rbp),%xmm0
ff
mulsd  -0x78(%rbp),%xmm0
movsd  %xmm0,0x2d82(%rip)
movsd  -0x88(%rbp),%xmm0
ff
mulsd  -0x80(%rbp),%xmm0
movsd  -0x70(%rbp),%xmm2
movsd  -0x90(%rbp),%xmm1
ff
mulsd  -0x68(%rbp),%xmm1
movq   %xmm1,%rax
movabs $0x8000000000000000,%rcx
xor    %rcx,%rax
movq   %rax,%xmm1
mulsd  %xmm2,%xmm0
addsd  %xmm1,%xmm0
movsd  %xmm0,0x2d44(%rip)
movsd  -0x88(%rbp),%xmm0
ff
mulsd  -0x80(%rbp),%xmm0
movsd  -0x68(%rbp),%xmm2
movsd  -0x90(%rbp),%xmm1
ff
mulsd  -0x70(%rbp),%xmm1
mulsd  %xmm2,%xmm0
addsd  %xmm1,%xmm0
movsd  %xmm0,0x2d1d(%rip)
movsd  -0x8(%rbp),%xmm0
movsd  %xmm0,0x2cb0(%rip)
mov    -0x10(%rbp),%rax
movsd  (%rax),%xmm0
mov    -0x18(%rbp),%rax
movsd  (%rax),%xmm1
movsd  0xc48(%rip),%xmm2
lea    -0x20(%rbp),%rdi
lea    -0x28(%rbp),%rsi
lea    -0x30(%rbp),%rdx
call   1040 <sphcart@plt>
movsd  0x2c9f(%rip),%xmm1
movsd  -0x20(%rbp),%xmm2
movsd  0x2c9a(%rip),%xmm0
mulsd  -0x28(%rbp),%xmm0
mulsd  %xmm2,%xmm1
addsd  %xmm0,%xmm1
movsd  0x2c8d(%rip),%xmm0
movsd  -0x30(%rbp),%xmm2
mulsd  %xmm2,%xmm0
addsd  %xmm1,%xmm0
movsd  %xmm0,-0x38(%rbp)
movsd  0x2c7b(%rip),%xmm1
movsd  -0x20(%rbp),%xmm2
movsd  0x2c76(%rip),%xmm0
mulsd  -0x28(%rbp),%xmm0
mulsd  %xmm2,%xmm1
addsd  %xmm0,%xmm1
movsd  0x2c69(%rip),%xmm0
movsd  -0x30(%rbp),%xmm2
mulsd  %xmm2,%xmm0
addsd  %xmm1,%xmm0
movsd  %xmm0,-0x40(%rbp)
movsd  0x2c57(%rip),%xmm1
movsd  -0x20(%rbp),%xmm2
movsd  0x2c52(%rip),%xmm0
mulsd  -0x28(%rbp),%xmm0
mulsd  %xmm2,%xmm1
addsd  %xmm0,%xmm1
movsd  0x2c45(%rip),%xmm0
movsd  -0x30(%rbp),%xmm2
mulsd  %xmm2,%xmm0
addsd  %xmm1,%xmm0
movsd  %xmm0,-0x48(%rbp)
movsd  -0x38(%rbp),%xmm0
movsd  -0x40(%rbp),%xmm1
movsd  -0x48(%rbp),%xmm2
mov    -0x10(%rbp),%rdi
mov    -0x18(%rbp),%rsi
lea    -0x30(%rbp),%rdx
call   1030 <cartsph@plt>
mov    -0x10(%rbp),%rax
xorps  %xmm0,%xmm0
ucomisd (%rax),%xmm0
jbe    14c2 <nut_eq+0x362>
mov    -0x10(%rbp),%rax
movsd  0xb4e(%rip),%xmm0
addsd  (%rax),%xmm0
movsd  %xmm0,(%rax)
add    $0x90,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<nut_eq>:
push   %r15
push   %r14
push   %rbx
sub    $0x50,%rsp
mov    %rsi,%r14
mov    %rdi,%rbx
movsd  0x2ed9(%rip),%xmm1
ucomisd %xmm0,%xmm1
jne    1183 <nut_eq+0x23>
jnp    1307 <nut_eq+0x1a7>
mov    %rsp,%rdi
movsd  %xmm0,0x18(%rsp)
call   1060 <obliquity@plt>
lea    0x8(%rsp),%rdi
lea    0x10(%rsp),%rsi
movsd  0x18(%rsp),%xmm0
call   1070 <nutation@plt>
movsd  (%rsp),%xmm0
call   1050 <sin@plt>
movsd  %xmm0,0x38(%rsp)
movsd  (%rsp),%xmm0
call   1080 <cos@plt>
movsd  %xmm0,0x30(%rsp)
movsd  0x10(%rsp),%xmm0
call   1050 <sin@plt>
movaps %xmm0,0x40(%rsp)
movsd  0x10(%rsp),%xmm0
call   1080 <cos@plt>
movsd  %xmm0,0x20(%rsp)
movsd  (%rsp),%xmm0
addsd  0x8(%rsp),%xmm0
call   1050 <sin@plt>
movsd  %xmm0,0x28(%rsp)
movsd  (%rsp),%xmm0
addsd  0x8(%rsp),%xmm0
call   1080 <cos@plt>
movsd  0x20(%rsp),%xmm7
movsd  %xmm7,0x2e55(%rip)
movapd 0xddd(%rip),%xmm1
movapd 0x40(%rsp),%xmm4
xorpd  %xmm4,%xmm1
movsd  0x30(%rsp),%xmm5
movapd %xmm5,%xmm2
mulsd  %xmm1,%xmm2
movsd  %xmm2,0x2e3d(%rip)
movsd  0x38(%rsp),%xmm3
mulsd  %xmm3,%xmm1
movsd  %xmm1,0x2e3b(%rip)
movapd %xmm4,%xmm1
movapd %xmm4,%xmm6
mulsd  %xmm0,%xmm1
movsd  %xmm1,0x2e37(%rip)
movapd %xmm7,%xmm1
movapd %xmm7,%xmm8
mulsd  %xmm0,%xmm1
movapd %xmm3,%xmm2
movapd %xmm3,%xmm4
movsd  0x28(%rsp),%xmm7
mulsd  %xmm7,%xmm2
movapd %xmm1,%xmm3
mulsd  %xmm5,%xmm3
addsd  %xmm2,%xmm3
movsd  %xmm3,0x2e14(%rip)
movapd %xmm5,%xmm2
mulsd  %xmm7,%xmm2
mulsd  %xmm4,%xmm1
subsd  %xmm2,%xmm1
movsd  %xmm1,0x2e0c(%rip)
mulsd  %xmm7,%xmm6
movsd  %xmm6,0x2e10(%rip)
movapd %xmm8,%xmm3
mulsd  %xmm7,%xmm3
movapd %xmm4,%xmm1
mulsd  %xmm0,%xmm1
movapd %xmm3,%xmm2
mulsd  %xmm5,%xmm2
subsd  %xmm1,%xmm2
movsd  %xmm2,0x2dfb(%rip)
mulsd  %xmm0,%xmm5
mulsd  %xmm4,%xmm3
addsd  %xmm5,%xmm3
movsd  %xmm3,0x2df7(%rip)
movsd  0x18(%rsp),%xmm0
movsd  %xmm0,0x2d49(%rip)
movsd  (%rbx),%xmm0
movsd  (%r14),%xmm1
movsd  0xcf8(%rip),%xmm2
mov    %rsp,%rdi
lea    0x10(%rsp),%rsi
lea    0x8(%rsp),%r15
mov    %r15,%rdx
call   1040 <sphcart@plt>
movsd  (%rsp),%xmm3
movsd  0x10(%rsp),%xmm4
movsd  0x2d40(%rip),%xmm0
mulsd  %xmm4,%xmm0
movsd  0x2d24(%rip),%xmm1
mulsd  %xmm3,%xmm1
addsd  %xmm0,%xmm1
movsd  0x8(%rsp),%xmm2
movsd  0x2d2e(%rip),%xmm0
mulsd  %xmm2,%xmm0
addsd  %xmm1,%xmm0
movsd  0x2d3e(%rip),%xmm1
mulsd  %xmm4,%xmm1
movsd  0x2d22(%rip),%xmm5
mulsd  %xmm3,%xmm5
addsd  %xmm1,%xmm5
movsd  0x2d32(%rip),%xmm1
mulsd  %xmm2,%xmm1
addsd  %xmm5,%xmm1
mulsd  0x2d42(%rip),%xmm4
mulsd  0x2d2a(%rip),%xmm3
addsd  %xmm4,%xmm3
mulsd  0x2d3e(%rip),%xmm2
addsd  %xmm3,%xmm2
mov    %rbx,%rdi
mov    %r14,%rsi
mov    %r15,%rdx
call   1030 <cartsph@plt>
movsd  (%rbx),%xmm0
xorpd  %xmm1,%xmm1
ucomisd %xmm0,%xmm1
jbe    13de <nut_eq+0x27e>
addsd  0xc3e(%rip),%xmm0
movsd  %xmm0,(%rbx)
add    $0x50,%rsp
pop    %rbx
pop    %r14
pop    %r15
ret

LLVM IR (-O0):
@nut_eq.lastmj = internal global double -1.000000e+04
@nut_eq.a = internal global [3 x [3 x double]] zeroinitializer
define void @nut_eq(double %0, double* %1, double* %2) {
%4 = alloca double
%5 = alloca double*
%6 = alloca double*
%7 = alloca double
%8 = alloca double
%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
store double %0, double* %4
store double* %1, double** %5
store double* %2, double** %6
%22 = load double, double* %4
%23 = load double, double* @nut_eq.lastmj
%24 = fcmp une double %22, %23
br i1 %24, label %25, label %96
25: ; preds = %3
%26 = load double, double* %4
%27 = call i32 @obliquity(double %26, double* %13)
%28 = load double, double* %4
%29 = call i32 @nutation(double %28, double* %15, double* %14)
%30 = load double, double* %13
%31 = call double @sin(double %30)
store double %31, double* %16
%32 = load double, double* %13
%33 = call double @cos(double %32)
store double %33, double* %17
%34 = load double, double* %14
%35 = call double @sin(double %34)
store double %35, double* %18
%36 = load double, double* %14
%37 = call double @cos(double %36)
store double %37, double* %19
%38 = load double, double* %13
%39 = load double, double* %15
%40 = fadd double %38, %39
%41 = call double @sin(double %40)
store double %41, double* %20
%42 = load double, double* %13
%43 = load double, double* %15
%44 = fadd double %42, %43
%45 = call double @cos(double %44)
store double %45, double* %21
%46 = load double, double* %19
store double %46, double* getelementptr inbounds ([3 x [3 x double]], [3 x [3 x double]]* @nut_eq.a, i64 0, i64 0, i64 0)
%47 = load double, double* %18
%48 = fneg double %47
%49 = load double, double* %17
%50 = fmul double %48, %49
store double %50, double* getelementptr inbounds ([3 x [3 x double]], [3 x [3 x double]]* @nut_eq.a, i64 0, i64 0, i64 1)
%51 = load double, double* %18
%52 = fneg double %51
%53 = load double, double* %16
%54 = fmul double %52, %53
store double %54, double* getelementptr inbounds ([3 x [3 x double]], [3 x [3 x double]]* @nut_eq.a, i64 0, i64 0, i64 2)
%55 = load double, double* %21
%56 = load double, double* %18
%57 = fmul double %55, %56
store double %57, double* getelementptr inbounds ([3 x [3 x double]], [3 x [3 x double]]* @nut_eq.a, i64 0, i64 1, i64 0)
%58 = load double, double* %21
%59 = load double, double* %19
%60 = fmul double %58, %59
%61 = load double, double* %17
%62 = load double, double* %20
%63 = load double, double* %16
%64 = fmul double %62, %63
%65 = call double @llvm.fmuladd.f64(double %60, double %61, double %64)
store double %65, double* getelementptr inbounds ([3 x [3 x double]], [3 x [3 x double]]* @nut_eq.a, i64 0, i64 1, i64 1)
%66 = load double, double* %21
%67 = load double, double* %19
%68 = fmul double %66, %67
%69 = load double, double* %16
%70 = load double, double* %20
%71 = load double, double* %17
%72 = fmul double %70, %71
%73 = fneg double %72
%74 = call double @llvm.fmuladd.f64(double %68, double %69, double %73)
store double %74, double* getelementptr inbounds ([3 x [3 x double]], [3 x [3 x double]]* @nut_eq.a, i64 0, i64 1, i64 2)
%75 = load double, double* %20
%76 = load double, double* %18
%77 = fmul double %75, %76
store double %77, double* getelementptr inbounds ([3 x [3 x double]], [3 x [3 x double]]* @nut_eq.a, i64 0, i64 2, i64 0)
%78 = load double, double* %20
%79 = load double, double* %19
%80 = fmul double %78, %79
%81 = load double, double* %17
%82 = load double, double* %21
%83 = load double, double* %16
%84 = fmul double %82, %83
%85 = fneg double %84
%86 = call double @llvm.fmuladd.f64(double %80, double %81, double %85)
store double %86, double* getelementptr inbounds ([3 x [3 x double]], [3 x [3 x double]]* @nut_eq.a, i64 0, i64 2, i64 1)
%87 = load double, double* %20
%88 = load double, double* %19
%89 = fmul double %87, %88
%90 = load double, double* %16
%91 = load double, double* %21
%92 = load double, double* %17
%93 = fmul double %91, %92
%94 = call double @llvm.fmuladd.f64(double %89, double %90, double %93)
store double %94, double* getelementptr inbounds ([3 x [3 x double]], [3 x [3 x double]]* @nut_eq.a, i64 0, i64 2, i64 2)
%95 = load double, double* %4
store double %95, double* @nut_eq.lastmj
br label %96
96: ; preds = %25, %3
%97 = load double*, double** %5
%98 = load double, double* %97
%99 = load double*, double** %6
%100 = load double, double* %99
%101 = call i32 @sphcart(double %98, double %100, double 1.000000e+00, double* %7, double* %8, double* %9)
%102 = load double, double* getelementptr inbounds ([3 x [3 x double]], [3 x [3 x double]]* @nut_eq.a, i64 0, i64 0, i64 0)
%103 = load double, double* %7
%104 = load double, double* getelementptr inbounds ([3 x [3 x double]], [3 x [3 x double]]* @nut_eq.a, i64 0, i64 0, i64 1)
%105 = load double, double* %8
%106 = fmul double %104, %105
%107 = call double @llvm.fmuladd.f64(double %102, double %103, double %106)
%108 = load double, double* getelementptr inbounds ([3 x [3 x double]], [3 x [3 x double]]* @nut_eq.a, i64 0, i64 0, i64 2)
%109 = load double, double* %9
%110 = call double @llvm.fmuladd.f64(double %108, double %109, double %107)
store double %110, double* %10
%111 = load double, double* getelementptr inbounds ([3 x [3 x double]], [3 x [3 x double]]* @nut_eq.a, i64 0, i64 1, i64 0)
%112 = load double, double* %7
%113 = load double, double* getelementptr inbounds ([3 x [3 x double]], [3 x [3 x double]]* @nut_eq.a, i64 0, i64 1, i64 1)
%114 = load double, double* %8
%115 = fmul double %113, %114
%116 = call double @llvm.fmuladd.f64(double %111, double %112, double %115)
%117 = load double, double* getelementptr inbounds ([3 x [3 x double]], [3 x [3 x double]]* @nut_eq.a, i64 0, i64 1, i64 2)
%118 = load double, double* %9
%119 = call double @llvm.fmuladd.f64(double %117, double %118, double %116)
store double %119, double* %11
%120 = load double, double* getelementptr inbounds ([3 x [3 x double]], [3 x [3 x double]]* @nut_eq.a, i64 0, i64 2, i64 0)
%121 = load double, double* %7
%122 = load double, double* getelementptr inbounds ([3 x [3 x double]], [3 x [3 x double]]* @nut_eq.a, i64 0, i64 2, i64 1)
%123 = load double, double* %8
%124 = fmul double %122, %123
%125 = call double @llvm.fmuladd.f64(double %120, double %121, double %124)
%126 = load double, double* getelementptr inbounds ([3 x [3 x double]], [3 x [3 x double]]* @nut_eq.a, i64 0, i64 2, i64 2)
%127 = load double, double* %9
%128 = call double @llvm.fmuladd.f64(double %126, double %127, double %125)
store double %128, double* %12
%129 = load double, double* %10
%130 = load double, double* %11
%131 = load double, double* %12
%132 = load double*, double** %5
%133 = load double*, double** %6
%134 = call i32 @cartsph(double %129, double %130, double %131, double* %132, double* %133, double* %9)
%135 = load double*, double** %5
%136 = load double, double* %135
%137 = fcmp olt double %136, 0.000000e+00
br i1 %137, label %138, label %142
138: ; preds = %96
%139 = load double*, double** %5
%140 = load double, double* %139
%141 = fadd double %140, 0x401921FB54442D18
store double %141, double* %139
br label %142
142: ; preds = %138, %96
ret void
}

LLVM IR (-O2):
@nut_eq.lastmj = internal unnamed_addr global double -1.000000e+04
@nut_eq.a.0 = internal unnamed_addr global double 0.000000e+00
@nut_eq.a.1 = internal unnamed_addr global double 0.000000e+00
@nut_eq.a.2 = internal unnamed_addr global double 0.000000e+00
@nut_eq.a.3 = internal unnamed_addr global double 0.000000e+00
@nut_eq.a.4 = internal unnamed_addr global double 0.000000e+00
@nut_eq.a.5 = internal unnamed_addr global double 0.000000e+00
@nut_eq.a.6 = internal unnamed_addr global double 0.000000e+00
@nut_eq.a.7 = internal unnamed_addr global double 0.000000e+00
@nut_eq.a.8 = internal unnamed_addr global double 0.000000e+00
define void @nut_eq(double %0, double* %1, double* %2) {
%4 = alloca double
%5 = alloca double
%6 = alloca double
%7 = alloca double
%8 = alloca double
%9 = alloca double
%10 = bitcast double* %4 to i8*
%11 = bitcast double* %5 to i8*
%12 = bitcast double* %6 to i8*
%13 = load double, double* @nut_eq.lastmj
%14 = fcmp une double %13, %0
br i1 %14, label %15, label %54
15: ; preds = %3
%16 = bitcast double* %7 to i8*
%17 = bitcast double* %8 to i8*
%18 = bitcast double* %9 to i8*
%19 = call i32 @obliquity(double %0, double* %7)
%20 = call i32 @nutation(double %0, double* %9, double* %8)
%21 = load double, double* %7
%22 = call double @sin(double %21)
%23 = load double, double* %7
%24 = call double @cos(double %23)
%25 = load double, double* %8
%26 = call double @sin(double %25)
%27 = load double, double* %8
%28 = call double @cos(double %27)
%29 = load double, double* %7
%30 = load double, double* %9
%31 = fadd double %29, %30
%32 = call double @sin(double %31)
%33 = load double, double* %7
%34 = load double, double* %9
%35 = fadd double %33, %34
%36 = call double @cos(double %35)
store double %28, double* @nut_eq.a.0
%37 = fneg double %26
%38 = fmul double %24, %37
store double %38, double* @nut_eq.a.1
%39 = fmul double %22, %37
store double %39, double* @nut_eq.a.2
%40 = fmul double %26, %36
store double %40, double* @nut_eq.a.3
%41 = fmul double %28, %36
%42 = fmul double %22, %32
%43 = call double @llvm.fmuladd.f64(double %41, double %24, double %42)
store double %43, double* @nut_eq.a.4
%44 = fneg double %32
%45 = fmul double %24, %44
%46 = call double @llvm.fmuladd.f64(double %41, double %22, double %45)
store double %46, double* @nut_eq.a.5
%47 = fmul double %26, %32
store double %47, double* @nut_eq.a.6
%48 = fmul double %28, %32
%49 = fneg double %36
%50 = fmul double %22, %49
%51 = call double @llvm.fmuladd.f64(double %48, double %24, double %50)
store double %51, double* @nut_eq.a.7
%52 = fmul double %24, %36
%53 = call double @llvm.fmuladd.f64(double %48, double %22, double %52)
store double %53, double* @nut_eq.a.8
store double %0, double* @nut_eq.lastmj
br label %54
54: ; preds = %15, %3
%55 = load double, double* %1
%56 = load double, double* %2
%57 = call i32 @sphcart(double %55, double %56, double 1.000000e+00, double* %4, double* %5, double* %6)
%58 = load double, double* @nut_eq.a.0
%59 = load double, double* %4
%60 = load double, double* @nut_eq.a.1
%61 = load double, double* %5
%62 = fmul double %60, %61
%63 = call double @llvm.fmuladd.f64(double %58, double %59, double %62)
%64 = load double, double* @nut_eq.a.2
%65 = load double, double* %6
%66 = call double @llvm.fmuladd.f64(double %64, double %65, double %63)
%67 = load double, double* @nut_eq.a.3
%68 = load double, double* @nut_eq.a.4
%69 = fmul double %61, %68
%70 = call double @llvm.fmuladd.f64(double %67, double %59, double %69)
%71 = load double, double* @nut_eq.a.5
%72 = call double @llvm.fmuladd.f64(double %71, double %65, double %70)
%73 = load double, double* @nut_eq.a.6
%74 = load double, double* @nut_eq.a.7
%75 = fmul double %61, %74
%76 = call double @llvm.fmuladd.f64(double %73, double %59, double %75)
%77 = load double, double* @nut_eq.a.8
%78 = call double @llvm.fmuladd.f64(double %77, double %65, double %76)
%79 = call i32 @cartsph(double %66, double %72, double %78, double* %1, double* %2, double* %6)
%80 = load double, double* %1
%81 = fcmp olt double %80, 0.000000e+00
br i1 %81, label %82, label %84
82: ; preds = %54
%83 = fadd double %80, 0x401921FB54442D18
store double %83, double* %1
br label %84
84: ; preds = %82, %54
ret void
}