user: What is the c source code of the assembly code below?

```asm
<mp_mulhf_use_in1fft>:
  endbr64
  push   %r15
  mov    %r8,%r10
  push   %r14
  push   %r13
  push   %r12
  push   %rbp
  mov    %edi,%ebp
  push   %rbx
  mov    %rcx,%rbx
  sub    $0x38,%rsp
  mov    0x70(%rsp),%r14d
  mov    0x78(%rsp),%r15
  mov    %esi,0x4(%rsp)
  mov    %rdx,0x8(%rsp)
  mov    0x80(%rsp),%r11
  mov    %r14d,%r12d
  mov    %r9,0x10(%rsp)
  mov    0x88(%rsp),%rax
  sar    %r12d
  add    $0x1,%r12d
  cmp    %edi,%r12d
  jge    L40
  movslq %r12d,%rdx
  jmp    L14
  cs nopw 0x0(%rax,%rax,1)
L25:
  lea    0x1(%rdx),%r12d
  add    $0x1,%rdx
  cmp    %edx,%ebp
  jle    L40
L14:
  mov    0x8(%rbx,%rdx,4),%ecx
  mov    %edx,%r12d
  test   %ecx,%ecx
  je     L25
L40:
  mov    %ebp,%r13d
  mov    %ebp,%edx
  mov    0x4(%rsp),%esi
  mov    %r15,%r9
  shr    $0x1f,%r13d
  sub    %r12d,%edx
  mov    %rbx,%r8
  mov    %ebp,%edi
  add    %ebp,%r13d
  mov    %rax,0x20(%rsp)
  sar    %r13d
  mov    %r11,0x18(%rsp)
  add    $0x1,%r13d
  mov    %r10,0x28(%rsp)
  cmp    %edx,%r13d
  cmovl  %edx,%r13d
  xor    %ecx,%ecx
  mov    %r14d,%edx
  call   <mp_mul_i2d@plt>
  mov    0x20(%rsp),%r8
  mov    %r15,%rdx
  mov    %r14d,%edi
  mov    0x18(%rsp),%rcx
  mov    0x8(%rsp),%rsi
  call   <mp_mul_cmul_nt_d1@plt>
  mov    0x10(%rsp),%r8
  mov    0x4(%rsp),%esi
  mov    %ebp,%edi
  mov    %r15,%rcx
  mov    %r14d,%edx
  call   <mp_mul_d2i@plt>
  mov    %rbx,%r8
  mov    0x4(%rsp),%ebx
  mov    %r15,%r9
  mov    %r12d,%ecx
  mov    %r14d,%edx
  mov    %ebp,%edi
  mov    %ebx,%esi
  call   <mp_mul_i2d@plt>
  mov    0x20(%rsp),%r8
  mov    %r15,%rdx
  mov    %r14d,%edi
  mov    0x18(%rsp),%rcx
  mov    0x8(%rsp),%rsi
  call   <mp_mul_cmul_nt_d1@plt>
  mov    0x28(%rsp),%r10
  mov    %r15,%rcx
  mov    %r14d,%edx
  mov    %ebx,%esi
  mov    %r13d,%edi
  mov    %r10,%r8
  mov    %r10,0x8(%rsp)
  call   <mp_mul_d2i@plt>
  mov    0x8(%rsp),%r10
  mov    (%r10),%eax
  test   %eax,%eax
  je     L3
  mov    0x10(%rsp),%rcx
  add    $0x38,%rsp
  mov    %ebx,%esi
  mov    %ebp,%edi
  pop    %rbx
  mov    %r10,%r8
  pop    %rbp
  mov    %r10,%rdx
  pop    %r12
  pop    %r13
  pop    %r14
  pop    %r15
  jmp    10c0 <mp_add@plt>
  nopw   0x0(%rax,%rax,1)
L3:
  mov    0x10(%rsp),%rdx
  mov    0x4(%rsp),%esi
  add    $0x38,%rsp
  mov    %ebp,%edi
  pop    %rbx
  mov    %r10,%rcx
  pop    %rbp
  pop    %r12
  pop    %r13
  pop    %r14
  pop    %r15
  jmp    10a0 <mp_copy@plt>
```

assistant: ```c
void mp_mulhf_use_in1fft(int n, int radix, double in1fft[], int in2[], int out[], int tmp[], int nfft, double tmpfft[], int ip[], double w[]) {
  void mp_copy(int n, int radix, int in[], int out[]);
  void mp_add(int n, int radix, int in1[], int in2[], int out[]);
  void mp_mul_i2d(int n, int radix, int nfft, int shift, int in[], double dout[]);
  void mp_mul_cmul_nt_d1(int nfft, double d1[], double d2[], int ip[], double w[]);
  void mp_mul_d2i(int n, int radix, int nfft, double din[], int out[]);
  int n_h, shift;
  shift = (nfft >> 1) + 1;
  while (n > shift) {
    if (in2[shift + 2] != 0) {
      break;
    }
    shift++;
  }
  n_h = n / 2 + 1;
  if (n_h < n - shift) {
    n_h = n - shift;
  }
  mp_mul_i2d(n, radix, nfft, 0, in2, tmpfft);
  mp_mul_cmul_nt_d1(nfft, in1fft, tmpfft, ip, w);
  mp_mul_d2i(n, radix, nfft, tmpfft, tmp);
  mp_mul_i2d(n, radix, nfft, shift, in2, tmpfft);
  mp_mul_cmul_nt_d1(nfft, in1fft, tmpfft, ip, w);
  mp_mul_d2i(n_h, radix, nfft, tmpfft, out);
  if (out[0] != 0) {
    mp_add(n, radix, out, tmp, out);
  } else {
    mp_copy(n, radix, tmp, out);
  }
}
```