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

```asm
<stdlib_strided_dnansumpw>:
  endbr64
  push   %rbp
  mov    %rsp,%rbp
  sub    $0x90,%rsp
  mov    %edi,-0x74(%rbp)
  mov    %rsi,-0x80(%rbp)
  mov    %edx,-0x78(%rbp)
  cmpl   $0x0,-0x74(%rbp)
  jg     L313
  pxor   %xmm0,%xmm0
  jmp    L203
L313:
  cmpl   $0x1,-0x74(%rbp)
  je     L62
  cmpl   $0x0,-0x78(%rbp)
  jne    L520
L62:
  mov    -0x80(%rbp),%rax
  mov    (%rax),%rax
  movq   %rax,%xmm0
  call   <stdlib_base_is_nan@plt>
  test   %rax,%rax
  je     L428
  pxor   %xmm0,%xmm0
  jmp    L203
L428:
  mov    -0x80(%rbp),%rax
  movsd  (%rax),%xmm0
  jmp    L203
L520:
  cmpl   $0x0,-0x78(%rbp)
  jns    L194
  mov    $0x1,%eax
  sub    -0x74(%rbp),%eax
  mov    -0x78(%rbp),%edx
  imul   %edx,%eax
  mov    %eax,-0x68(%rbp)
  jmp    L420
L194:
  movl   $0x0,-0x68(%rbp)
L420:
  cmpl   $0x7,-0x74(%rbp)
  jg     L395
  pxor   %xmm0,%xmm0
  movsd  %xmm0,-0x48(%rbp)
  movl   $0x0,-0x64(%rbp)
  jmp    L177
L225:
  mov    -0x68(%rbp),%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x80(%rbp),%rax
  add    %rdx,%rax
  mov    (%rax),%rax
  movq   %rax,%xmm0
  call   <stdlib_base_is_nan@plt>
  test   %rax,%rax
  jne    L61
  mov    -0x68(%rbp),%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x80(%rbp),%rax
  add    %rdx,%rax
  movsd  (%rax),%xmm0
  movsd  -0x48(%rbp),%xmm1
  addsd  %xmm1,%xmm0
  movsd  %xmm0,-0x48(%rbp)
L61:
  mov    -0x78(%rbp),%eax
  add    %eax,-0x68(%rbp)
  addl   $0x1,-0x64(%rbp)
L177:
  mov    -0x64(%rbp),%eax
  cmp    -0x74(%rbp),%eax
  jl     L225
  movsd  -0x48(%rbp),%xmm0
  jmp    L203
L395:
  cmpl   $0x80,-0x74(%rbp)
  jg     L153
  mov    -0x68(%rbp),%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x80(%rbp),%rax
  add    %rdx,%rax
  mov    (%rax),%rax
  movq   %rax,%xmm0
  call   <stdlib_base_is_nan@plt>
  test   %rax,%rax
  jne    L140
  mov    -0x68(%rbp),%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x80(%rbp),%rax
  add    %rdx,%rax
  movsd  (%rax),%xmm0
  jmp    L544
L140:
  pxor   %xmm0,%xmm0
L544:
  movsd  %xmm0,-0x40(%rbp)
  mov    -0x78(%rbp),%eax
  add    %eax,-0x68(%rbp)
  mov    -0x68(%rbp),%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x80(%rbp),%rax
  add    %rdx,%rax
  mov    (%rax),%rax
  movq   %rax,%xmm0
  call   <stdlib_base_is_nan@plt>
  test   %rax,%rax
  jne    L402
  mov    -0x68(%rbp),%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x80(%rbp),%rax
  add    %rdx,%rax
  movsd  (%rax),%xmm0
  jmp    L319
L402:
  pxor   %xmm0,%xmm0
L319:
  movsd  %xmm0,-0x38(%rbp)
  mov    -0x78(%rbp),%eax
  add    %eax,-0x68(%rbp)
  mov    -0x68(%rbp),%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x80(%rbp),%rax
  add    %rdx,%rax
  mov    (%rax),%rax
  movq   %rax,%xmm0
  call   <stdlib_base_is_nan@plt>
  test   %rax,%rax
  jne    L290
  mov    -0x68(%rbp),%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x80(%rbp),%rax
  add    %rdx,%rax
  movsd  (%rax),%xmm0
  jmp    L252
L290:
  pxor   %xmm0,%xmm0
L252:
  movsd  %xmm0,-0x30(%rbp)
  mov    -0x78(%rbp),%eax
  add    %eax,-0x68(%rbp)
  mov    -0x68(%rbp),%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x80(%rbp),%rax
  add    %rdx,%rax
  mov    (%rax),%rax
  movq   %rax,%xmm0
  call   <stdlib_base_is_nan@plt>
  test   %rax,%rax
  jne    L448
  mov    -0x68(%rbp),%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x80(%rbp),%rax
  add    %rdx,%rax
  movsd  (%rax),%xmm0
  jmp    L57
L448:
  pxor   %xmm0,%xmm0
L57:
  movsd  %xmm0,-0x28(%rbp)
  mov    -0x78(%rbp),%eax
  add    %eax,-0x68(%rbp)
  mov    -0x68(%rbp),%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x80(%rbp),%rax
  add    %rdx,%rax
  mov    (%rax),%rax
  movq   %rax,%xmm0
  call   <stdlib_base_is_nan@plt>
  test   %rax,%rax
  jne    L106
  mov    -0x68(%rbp),%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x80(%rbp),%rax
  add    %rdx,%rax
  movsd  (%rax),%xmm0
  jmp    L283
L106:
  pxor   %xmm0,%xmm0
L283:
  movsd  %xmm0,-0x20(%rbp)
  mov    -0x78(%rbp),%eax
  add    %eax,-0x68(%rbp)
  mov    -0x68(%rbp),%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x80(%rbp),%rax
  add    %rdx,%rax
  mov    (%rax),%rax
  movq   %rax,%xmm0
  call   <stdlib_base_is_nan@plt>
  test   %rax,%rax
  jne    L474
  mov    -0x68(%rbp),%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x80(%rbp),%rax
  add    %rdx,%rax
  movsd  (%rax),%xmm0
  jmp    L227
L474:
  pxor   %xmm0,%xmm0
L227:
  movsd  %xmm0,-0x18(%rbp)
  mov    -0x78(%rbp),%eax
  add    %eax,-0x68(%rbp)
  mov    -0x68(%rbp),%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x80(%rbp),%rax
  add    %rdx,%rax
  mov    (%rax),%rax
  movq   %rax,%xmm0
  call   <stdlib_base_is_nan@plt>
  test   %rax,%rax
  jne    L459
  mov    -0x68(%rbp),%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x80(%rbp),%rax
  add    %rdx,%rax
  movsd  (%rax),%xmm0
  jmp    L280
L459:
  pxor   %xmm0,%xmm0
L280:
  movsd  %xmm0,-0x10(%rbp)
  mov    -0x78(%rbp),%eax
  add    %eax,-0x68(%rbp)
  mov    -0x68(%rbp),%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x80(%rbp),%rax
  add    %rdx,%rax
  mov    (%rax),%rax
  movq   %rax,%xmm0
  call   <stdlib_base_is_nan@plt>
  test   %rax,%rax
  jne    L292
  mov    -0x68(%rbp),%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x80(%rbp),%rax
  add    %rdx,%rax
  movsd  (%rax),%xmm0
  jmp    L338
L292:
  pxor   %xmm0,%xmm0
L338:
  movsd  %xmm0,-0x8(%rbp)
  mov    -0x78(%rbp),%eax
  add    %eax,-0x68(%rbp)
  mov    -0x74(%rbp),%eax
  cltd
  shr    $0x1d,%edx
  add    %edx,%eax
  and    $0x7,%eax
  sub    %edx,%eax
  mov    %eax,-0x5c(%rbp)
  movl   $0x8,-0x64(%rbp)
  jmp    L339
L257:
  mov    -0x68(%rbp),%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x80(%rbp),%rax
  add    %rdx,%rax
  mov    (%rax),%rax
  movq   %rax,%xmm0
  call   <stdlib_base_is_nan@plt>
  test   %rax,%rax
  jne    L5
  mov    -0x68(%rbp),%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x80(%rbp),%rax
  add    %rdx,%rax
  movsd  (%rax),%xmm0
  jmp    L261
L5:
  pxor   %xmm0,%xmm0
L261:
  movsd  -0x40(%rbp),%xmm1
  addsd  %xmm1,%xmm0
  movsd  %xmm0,-0x40(%rbp)
  mov    -0x78(%rbp),%eax
  add    %eax,-0x68(%rbp)
  mov    -0x68(%rbp),%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x80(%rbp),%rax
  add    %rdx,%rax
  mov    (%rax),%rax
  movq   %rax,%xmm0
  call   <stdlib_base_is_nan@plt>
  test   %rax,%rax
  jne    L97
  mov    -0x68(%rbp),%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x80(%rbp),%rax
  add    %rdx,%rax
  movsd  (%rax),%xmm0
  jmp    L375
L97:
  pxor   %xmm0,%xmm0
L375:
  movsd  -0x38(%rbp),%xmm1
  addsd  %xmm1,%xmm0
  movsd  %xmm0,-0x38(%rbp)
  mov    -0x78(%rbp),%eax
  add    %eax,-0x68(%rbp)
  mov    -0x68(%rbp),%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x80(%rbp),%rax
  add    %rdx,%rax
  mov    (%rax),%rax
  movq   %rax,%xmm0
  call   <stdlib_base_is_nan@plt>
  test   %rax,%rax
  jne    L187
  mov    -0x68(%rbp),%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x80(%rbp),%rax
  add    %rdx,%rax
  movsd  (%rax),%xmm0
  jmp    L441
L187:
  pxor   %xmm0,%xmm0
L441:
  movsd  -0x30(%rbp),%xmm1
  addsd  %xmm1,%xmm0
  movsd  %xmm0,-0x30(%rbp)
  mov    -0x78(%rbp),%eax
  add    %eax,-0x68(%rbp)
  mov    -0x68(%rbp),%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x80(%rbp),%rax
  add    %rdx,%rax
  mov    (%rax),%rax
  movq   %rax,%xmm0
  call   <stdlib_base_is_nan@plt>
  test   %rax,%rax
  jne    L202
  mov    -0x68(%rbp),%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x80(%rbp),%rax
  add    %rdx,%rax
  movsd  (%rax),%xmm0
  jmp    L181
L202:
  pxor   %xmm0,%xmm0
L181:
  movsd  -0x28(%rbp),%xmm1
  addsd  %xmm1,%xmm0
  movsd  %xmm0,-0x28(%rbp)
  mov    -0x78(%rbp),%eax
  add    %eax,-0x68(%rbp)
  mov    -0x68(%rbp),%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x80(%rbp),%rax
  add    %rdx,%rax
  mov    (%rax),%rax
  movq   %rax,%xmm0
  call   <stdlib_base_is_nan@plt>
  test   %rax,%rax
  jne    L547
  mov    -0x68(%rbp),%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x80(%rbp),%rax
  add    %rdx,%rax
  movsd  (%rax),%xmm0
  jmp    L523
L547:
  pxor   %xmm0,%xmm0
L523:
  movsd  -0x20(%rbp),%xmm1
  addsd  %xmm1,%xmm0
  movsd  %xmm0,-0x20(%rbp)
  mov    -0x78(%rbp),%eax
  add    %eax,-0x68(%rbp)
  mov    -0x68(%rbp),%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x80(%rbp),%rax
  add    %rdx,%rax
  mov    (%rax),%rax
  movq   %rax,%xmm0
  call   <stdlib_base_is_nan@plt>
  test   %rax,%rax
  jne    L387
  mov    -0x68(%rbp),%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x80(%rbp),%rax
  add    %rdx,%rax
  movsd  (%rax),%xmm0
  jmp    L419
L387:
  pxor   %xmm0,%xmm0
L419:
  movsd  -0x18(%rbp),%xmm1
  addsd  %xmm1,%xmm0
  movsd  %xmm0,-0x18(%rbp)
  mov    -0x78(%rbp),%eax
  add    %eax,-0x68(%rbp)
  mov    -0x68(%rbp),%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x80(%rbp),%rax
  add    %rdx,%rax
  mov    (%rax),%rax
  movq   %rax,%xmm0
  call   <stdlib_base_is_nan@plt>
  test   %rax,%rax
  jne    L530
  mov    -0x68(%rbp),%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x80(%rbp),%rax
  add    %rdx,%rax
  movsd  (%rax),%xmm0
  jmp    L239
L530:
  pxor   %xmm0,%xmm0
L239:
  movsd  -0x10(%rbp),%xmm1
  addsd  %xmm1,%xmm0
  movsd  %xmm0,-0x10(%rbp)
  mov    -0x78(%rbp),%eax
  add    %eax,-0x68(%rbp)
  mov    -0x68(%rbp),%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x80(%rbp),%rax
  add    %rdx,%rax
  mov    (%rax),%rax
  movq   %rax,%xmm0
  call   <stdlib_base_is_nan@plt>
  test   %rax,%rax
  jne    L337
  mov    -0x68(%rbp),%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x80(%rbp),%rax
  add    %rdx,%rax
  movsd  (%rax),%xmm0
  jmp    L76
L337:
  pxor   %xmm0,%xmm0
L76:
  movsd  -0x8(%rbp),%xmm1
  addsd  %xmm1,%xmm0
  movsd  %xmm0,-0x8(%rbp)
  mov    -0x78(%rbp),%eax
  add    %eax,-0x68(%rbp)
  addl   $0x8,-0x64(%rbp)
L339:
  mov    -0x74(%rbp),%eax
  sub    -0x5c(%rbp),%eax
  cmp    %eax,-0x64(%rbp)
  jl     L257
  movsd  -0x40(%rbp),%xmm0
  movapd %xmm0,%xmm1
  addsd  -0x38(%rbp),%xmm1
  movsd  -0x30(%rbp),%xmm0
  addsd  -0x28(%rbp),%xmm0
  addsd  %xmm0,%xmm1
  movsd  -0x20(%rbp),%xmm0
  movapd %xmm0,%xmm2
  addsd  -0x18(%rbp),%xmm2
  movsd  -0x10(%rbp),%xmm0
  addsd  -0x8(%rbp),%xmm0
  addsd  %xmm2,%xmm0
  addsd  %xmm1,%xmm0
  movsd  %xmm0,-0x48(%rbp)
  jmp    L350
L182:
  mov    -0x68(%rbp),%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x80(%rbp),%rax
  add    %rdx,%rax
  mov    (%rax),%rax
  movq   %rax,%xmm0
  call   <stdlib_base_is_nan@plt>
  test   %rax,%rax
  jne    L36
  mov    -0x68(%rbp),%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x80(%rbp),%rax
  add    %rdx,%rax
  movsd  (%rax),%xmm0
  movsd  -0x48(%rbp),%xmm1
  addsd  %xmm1,%xmm0
  movsd  %xmm0,-0x48(%rbp)
L36:
  mov    -0x78(%rbp),%eax
  add    %eax,-0x68(%rbp)
  addl   $0x1,-0x64(%rbp)
L350:
  mov    -0x64(%rbp),%eax
  cmp    -0x74(%rbp),%eax
  jl     L182
  movsd  -0x48(%rbp),%xmm0
  jmp    L203
L153:
  mov    -0x74(%rbp),%eax
  mov    %eax,%edx
  shr    $0x1f,%edx
  add    %edx,%eax
  sar    %eax
  mov    %eax,-0x60(%rbp)
  mov    -0x60(%rbp),%eax
  cltd
  shr    $0x1d,%edx
  add    %edx,%eax
  and    $0x7,%eax
  sub    %edx,%eax
  sub    %eax,-0x60(%rbp)
  cmpl   $0x0,-0x78(%rbp)
  jns    L352
  mov    -0x60(%rbp),%eax
  sub    -0x74(%rbp),%eax
  imul   -0x78(%rbp),%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x80(%rbp),%rax
  add    %rdx,%rax
  mov    %rax,-0x58(%rbp)
  mov    -0x80(%rbp),%rax
  mov    %rax,-0x50(%rbp)
  jmp    L513
L352:
  mov    -0x80(%rbp),%rax
  mov    %rax,-0x58(%rbp)
  mov    -0x60(%rbp),%eax
  imul   -0x78(%rbp),%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x80(%rbp),%rax
  add    %rdx,%rax
  mov    %rax,-0x50(%rbp)
L513:
  mov    -0x78(%rbp),%edx
  mov    -0x58(%rbp),%rcx
  mov    -0x60(%rbp),%eax
  mov    %rcx,%rsi
  mov    %eax,%edi
  call   <stdlib_strided_dnansumpw>
  movsd  %xmm0,-0x88(%rbp)
  mov    -0x74(%rbp),%eax
  sub    -0x60(%rbp),%eax
  mov    -0x78(%rbp),%edx
  mov    -0x50(%rbp),%rcx
  mov    %rcx,%rsi
  mov    %eax,%edi
  call   <stdlib_strided_dnansumpw>
  addsd  -0x88(%rbp),%xmm0
L203:
  movq   %xmm0,%rax
  movq   %rax,%xmm0
  leave
  ret
```

assistant: ```c
double stdlib_strided_dnansumpw(const int64_t N, const double *X, const int64_t stride) {
  double *xp1;
  double *xp2;
  double sum;
  int64_t ix;
  int64_t M;
  int64_t n;
  int64_t i;
  double s0;
  double s1;
  double s2;
  double s3;
  double s4;
  double s5;
  double s6;
  double s7;
  if (N <= 0) {
    return 0.0;
  }
  if (N == 1 || stride == 0) {
    if (stdlib_base_is_nan(X[0])) {
      return 0.0;
    }
    return X[0];
  }
  if (stride < 0) {
    ix = (1 - N) * stride;
  } else {
    ix = 0;
  }
  if (N < 8) {
    sum = 0.0;
    for (i = 0; i < N; i++) {
      if (!stdlib_base_is_nan(X[ix])) {
        sum += X[ix];
      }
      ix += stride;
    }
    return sum;
  }
  if (N <= 128) {
    s0 = (stdlib_base_is_nan(X[ix])) ? 0.0 : X[ix];
    ix += stride;
    s1 = (stdlib_base_is_nan(X[ix])) ? 0.0 : X[ix];
    ix += stride;
    s2 = (stdlib_base_is_nan(X[ix])) ? 0.0 : X[ix];
    ix += stride;
    s3 = (stdlib_base_is_nan(X[ix])) ? 0.0 : X[ix];
    ix += stride;
    s4 = (stdlib_base_is_nan(X[ix])) ? 0.0 : X[ix];
    ix += stride;
    s5 = (stdlib_base_is_nan(X[ix])) ? 0.0 : X[ix];
    ix += stride;
    s6 = (stdlib_base_is_nan(X[ix])) ? 0.0 : X[ix];
    ix += stride;
    s7 = (stdlib_base_is_nan(X[ix])) ? 0.0 : X[ix];
    ix += stride;
    M = N % 8;
    for (i = 8; i < N - M; i += 8) {
      s0 += (stdlib_base_is_nan(X[ix])) ? 0.0 : X[ix];
      ix += stride;
      s1 += (stdlib_base_is_nan(X[ix])) ? 0.0 : X[ix];
      ix += stride;
      s2 += (stdlib_base_is_nan(X[ix])) ? 0.0 : X[ix];
      ix += stride;
      s3 += (stdlib_base_is_nan(X[ix])) ? 0.0 : X[ix];
      ix += stride;
      s4 += (stdlib_base_is_nan(X[ix])) ? 0.0 : X[ix];
      ix += stride;
      s5 += (stdlib_base_is_nan(X[ix])) ? 0.0 : X[ix];
      ix += stride;
      s6 += (stdlib_base_is_nan(X[ix])) ? 0.0 : X[ix];
      ix += stride;
      s7 += (stdlib_base_is_nan(X[ix])) ? 0.0 : X[ix];
      ix += stride;
    }
    sum = ((s0 + s1) + (s2 + s3)) + ((s4 + s5) + (s6 + s7));
    for (; i < N; i++) {
      if (!stdlib_base_is_nan(X[ix])) {
        sum += X[ix];
      }
      ix += stride;
    }
    return sum;
  }
  n = N / 2;
  n -= n % 8;
  if (stride < 0) {
    xp1 = (double *)X + ((n - N) * stride);
    xp2 = (double *)X;
  } else {
    xp1 = (double *)X;
    xp2 = (double *)X + (n * stride);
  }
  return stdlib_strided_dnansumpw(n, xp1, stride) + stdlib_strided_dnansumpw(N - n, xp2, stride);
}
```