user: Translate the below assembly code into C programming language:

```asm
<reb_drift_kepu>:
  endbr64
  push   %rbp
  mov    %rsp,%rbp
  push   %rbx
  sub    $0x88,%rsp
  movsd  %xmm0,-0x48(%rbp)
  movsd  %xmm1,-0x50(%rbp)
  movsd  %xmm2,-0x58(%rbp)
  movsd  %xmm3,-0x60(%rbp)
  movsd  %xmm4,-0x68(%rbp)
  mov    %rdi,-0x70(%rbp)
  mov    %rsi,-0x78(%rbp)
  mov    %rdx,-0x80(%rbp)
  mov    %rcx,-0x88(%rbp)
  mov    %r8,-0x90(%rbp)
  mov    %fs:0x28,%rax
  mov    %rax,-0x18(%rbp)
  xor    %eax,%eax
  lea    -0x38(%rbp),%rdx
  movsd  -0x68(%rbp),%xmm3
  movsd  -0x60(%rbp),%xmm2
  movsd  -0x58(%rbp),%xmm1
  movsd  -0x50(%rbp),%xmm0
  mov    -0x48(%rbp),%rax
  mov    %rdx,%rdi
  movapd %xmm3,%xmm4
  movapd %xmm2,%xmm3
  movapd %xmm1,%xmm2
  movapd %xmm0,%xmm1
  movq   %rax,%xmm0
  call   <reb_drift_kepu_guess@plt>
  movsd  -0x38(%rbp),%xmm0
  movsd  %xmm0,-0x20(%rbp)
  mov    -0x90(%rbp),%r9
  mov    -0x88(%rbp),%r8
  mov    -0x80(%rbp),%rcx
  mov    -0x78(%rbp),%rdx
  mov    -0x70(%rbp),%rsi
  movsd  -0x68(%rbp),%xmm3
  movsd  -0x60(%rbp),%xmm2
  movsd  -0x58(%rbp),%xmm1
  movsd  -0x50(%rbp),%xmm0
  mov    -0x48(%rbp),%rdi
  lea    -0x38(%rbp),%rax
  movapd %xmm3,%xmm4
  movapd %xmm2,%xmm3
  movapd %xmm1,%xmm2
  movapd %xmm0,%xmm1
  movq   %rdi,%xmm0
  mov    %rax,%rdi
  call   <reb_drift_kepu_new@plt>
  mov    -0x90(%rbp),%rax
  mov    (%rax),%eax
  test   %eax,%eax
  je     L29
  lea    -0x30(%rbp),%rdx
  movsd  -0x20(%rbp),%xmm4
  movsd  -0x68(%rbp),%xmm3
  movsd  -0x60(%rbp),%xmm2
  movsd  -0x58(%rbp),%xmm1
  movsd  -0x50(%rbp),%xmm0
  mov    -0x48(%rbp),%rax
  mov    %rdx,%rdi
  movapd %xmm4,%xmm5
  movapd %xmm3,%xmm4
  movapd %xmm2,%xmm3
  movapd %xmm1,%xmm2
  movapd %xmm0,%xmm1
  movq   %rax,%xmm0
  call   <reb_drift_kepu_fchk@plt>
  movsd  -0x38(%rbp),%xmm4
  lea    -0x28(%rbp),%rdx
  movsd  -0x68(%rbp),%xmm3
  movsd  -0x60(%rbp),%xmm2
  movsd  -0x58(%rbp),%xmm1
  movsd  -0x50(%rbp),%xmm0
  mov    -0x48(%rbp),%rax
  mov    %rdx,%rdi
  movapd %xmm4,%xmm5
  movapd %xmm3,%xmm4
  movapd %xmm2,%xmm3
  movapd %xmm1,%xmm2
  movapd %xmm0,%xmm1
  movq   %rax,%xmm0
  call   <reb_drift_kepu_fchk@plt>
  mov    -0x30(%rbp),%rax
  movq   %rax,%xmm0
  call   <fabs@plt>
  mov    %rax,%rbx
  mov    -0x28(%rbp),%rax
  movq   %rax,%xmm0
  call   <fabs@plt>
  cmp    %rax,%rbx
  jge    L21
  movsd  -0x20(%rbp),%xmm0
  movsd  %xmm0,-0x38(%rbp)
L21:
  mov    -0x90(%rbp),%r9
  mov    -0x88(%rbp),%r8
  mov    -0x80(%rbp),%rcx
  mov    -0x78(%rbp),%rdx
  mov    -0x70(%rbp),%rsi
  movsd  -0x68(%rbp),%xmm3
  movsd  -0x60(%rbp),%xmm2
  movsd  -0x58(%rbp),%xmm1
  movsd  -0x50(%rbp),%xmm0
  mov    -0x48(%rbp),%rdi
  lea    -0x38(%rbp),%rax
  movapd %xmm3,%xmm4
  movapd %xmm2,%xmm3
  movapd %xmm1,%xmm2
  movapd %xmm0,%xmm1
  movq   %rdi,%xmm0
  mov    %rax,%rdi
  call   <reb_drift_kepu_lag@plt>
L29:
  nop
  mov    -0x18(%rbp),%rax
  sub    %fs:0x28,%rax
  je     L6
  call   <__stack_chk_fail@plt>
L6:
  mov    -0x8(%rbp),%rbx
  leave
  ret
```

assistant: ```c
void reb_drift_kepu(double dt0, double r0, double mu, double alpha, double u, double *fp, double *c1, double *c2, double *c3, int *iflag) {
  double s, st;
  reb_drift_kepu_guess(dt0, r0, mu, alpha, u, &s);
  st = s;
  reb_drift_kepu_new(&s, dt0, r0, mu, alpha, u, fp, c1, c2, c3, iflag);
  if (*iflag != 0) {
    double fo, fn;
    reb_drift_kepu_fchk(dt0, r0, mu, alpha, u, st, &fo);
    reb_drift_kepu_fchk(dt0, r0, mu, alpha, u, s, &fn);
    if (fabs(fo) < fabs(fn)) {
      s = st;
    }
    reb_drift_kepu_lag(&s, dt0, r0, mu, alpha, u, fp, c1, c2, c3, iflag);
  }
}
```