double ln_get_lunar_long_perigee(double JD) {
  double T = (JD - 2451545.0) / 36525.0;
  double per = 83.3532465;
  double T2 = T * T;
  double T3 = T2 * T;
  double T4 = T3 * T;
  per += 4069.0137287 * T - 0.0103200 * T2 - T3 / 80053.0 + T4 / 18999000.0;
  return per;
}


x86 assembly (clang, -O0):
<ln_get_lunar_long_perigee>:
push   %rbp
mov    %rsp,%rbp
movsd  %xmm0,-0x8(%rbp)
movsd  -0x8(%rbp),%xmm0
movsd  0xf1a(%rip),%xmm1
subsd  %xmm1,%xmm0
movsd  0xf06(%rip),%xmm1
divsd  %xmm1,%xmm0
movsd  %xmm0,-0x10(%rbp)
movsd  0xeed(%rip),%xmm0
movsd  %xmm0,-0x18(%rbp)
movsd  -0x10(%rbp),%xmm0
mulsd  -0x10(%rbp),%xmm0
movsd  %xmm0,-0x20(%rbp)
movsd  -0x20(%rbp),%xmm0
mulsd  -0x10(%rbp),%xmm0
movsd  %xmm0,-0x28(%rbp)
movsd  -0x28(%rbp),%xmm0
mulsd  -0x10(%rbp),%xmm0
movsd  %xmm0,-0x30(%rbp)
movsd  -0x10(%rbp),%xmm0
movsd  0xea6(%rip),%xmm1
mulsd  -0x20(%rbp),%xmm1
movq   %xmm1,%rax
movabs $0x8000000000000000,%rcx
xor    %rcx,%rax
movq   %rax,%xmm1
movsd  0xe7a(%rip),%xmm2
mulsd  %xmm2,%xmm0
addsd  %xmm1,%xmm0
movsd  -0x28(%rbp),%xmm1
movsd  0xe5d(%rip),%xmm2
divsd  %xmm2,%xmm1
subsd  %xmm1,%xmm0
movsd  -0x30(%rbp),%xmm1
movsd  0xe40(%rip),%xmm2
divsd  %xmm2,%xmm1
addsd  %xmm1,%xmm0
addsd  -0x18(%rbp),%xmm0
movsd  %xmm0,-0x18(%rbp)
movsd  -0x18(%rbp),%xmm0
pop    %rbp
ret

x86 assembly (clang, -O2):
<ln_get_lunar_long_perigee>:
addsd  0xef8(%rip),%xmm0
divsd  0xef8(%rip),%xmm0
movapd %xmm0,%xmm1
mulsd  %xmm0,%xmm1
movapd %xmm0,%xmm2
mulsd  %xmm1,%xmm2
movapd %xmm0,%xmm3
mulsd  0xee4(%rip),%xmm1
mulsd  %xmm2,%xmm3
mulsd  0xee0(%rip),%xmm0
addsd  %xmm1,%xmm0
unpcklpd %xmm3,%xmm2
divpd  0xee8(%rip),%xmm2
subsd  %xmm2,%xmm0
unpckhpd %xmm2,%xmm2
addsd  %xmm2,%xmm0
addsd  0xec4(%rip),%xmm0
ret

LLVM IR (-O0):
define double @ln_get_lunar_long_perigee(double %0) {
%2 = alloca double
%3 = alloca double
%4 = alloca double
%5 = alloca double
%6 = alloca double
%7 = alloca double
store double %0, double* %2
%8 = load double, double* %2
%9 = fsub double %8, 0x4142B42C80000000
%10 = fdiv double %9, 3.652500e+04
store double %10, double* %3
store double 0x4054D69B97353B4B, double* %4
%11 = load double, double* %3
%12 = load double, double* %3
%13 = fmul double %11, %12
store double %13, double* %5
%14 = load double, double* %5
%15 = load double, double* %3
%16 = fmul double %14, %15
store double %16, double* %6
%17 = load double, double* %6
%18 = load double, double* %3
%19 = fmul double %17, %18
store double %19, double* %7
%20 = load double, double* %3
%21 = load double, double* %5
%22 = fmul double 1.032000e-02, %21
%23 = fneg double %22
%24 = call double @llvm.fmuladd.f64(double 0x40AFCA070772BB08, double %20, double %23)
%25 = load double, double* %6
%26 = fdiv double %25, 8.005300e+04
%27 = fsub double %24, %26
%28 = load double, double* %7
%29 = fdiv double %28, 1.899900e+07
%30 = fadd double %27, %29
%31 = load double, double* %4
%32 = fadd double %31, %30
store double %32, double* %4
%33 = load double, double* %4
ret double %33
}

LLVM IR (-O2):
define double @ln_get_lunar_long_perigee(double %0) {
%2 = fadd double %0, 0xC142B42C80000000
%3 = fdiv double %2, 3.652500e+04
%4 = fmul double %3, %3
%5 = fmul double %3, %4
%6 = fmul double %3, %5
%7 = fmul double %4, -1.032000e-02
%8 = tail call double @llvm.fmuladd.f64(double %3, double 0x40AFCA070772BB08, double %7)
%9 = insertelement <2 x double> poison, double %5, i64 0
%10 = insertelement <2 x double> %9, double %6, i64 1
%11 = fdiv <2 x double> %10, <double 8.005300e+04, double 1.899900e+07>
%12 = extractelement <2 x double> %11, i64 0
%13 = fsub double %8, %12
%14 = extractelement <2 x double> %11, i64 1
%15 = fadd double %13, %14
%16 = fadd double %15, 0x4054D69B97353B4B
ret double %16
}