user: Please show me the C implementation that matches the assembly code listed below:

```asm
<RB_GS_OmpLoopV2err>:
  endbr64
  push   %r15
  push   %r14
  push   %r13
  push   %r12
  push   %rbp
  push   %rbx
  sub    $0x28,%rsp
  mov    %rdi,(%rsp)
  mov    %edx,0x10(%rsp)
  movsd  %xmm0,0x18(%rsp)
  mov    %r8d,0x14(%rsp)
  mov    0x60(%rsp),%rbx
  mov    (%rbx),%r12d
  movapd %xmm0,%xmm2
  mulsd  D7(%rip),%xmm2
  cmp    %r8d,%r12d
  jge    L23
  mov    %rsi,%r13
  mov    %ecx,%eax
  comisd %xmm0,%xmm2
  jb     L23
  mov    %ecx,%ebx
  shr    $0x1f,%ebx
  add    %ecx,%ebx
  sar    %ebx
  imul   %edx,%eax
  mov    %eax,0xc(%rsp)
  lea    -0x1(%rdx),%ebp
  jmp    L72
L3:
  mov    %r11d,%eax
  shr    $0x1f,%eax
  lea    (%r11,%rax,1),%edi
  and    $0x1,%edi
  sub    %eax,%edi
  mov    %r11d,%r15d
  add    $0x1,%r11d
  mov    %r11d,%eax
  shr    $0x1f,%eax
  lea    (%r11,%rax,1),%ecx
  and    $0x1,%ecx
  sub    %eax,%ecx
  mov    %ebx,%r8d
  sub    %ecx,%r8d
  cmp    %r8d,%edi
  jge    L63
  movslq %edi,%rsi
  lea    0x0(,%rsi,8),%rax
  sub    %edi,%r8d
  lea    -0x1(%r8),%edi
  lea    0x1(%rsi,%rdi,1),%rdi
  shl    $0x3,%rdi
  neg    %rsi
  shl    $0x3,%rsi
  movslq %ecx,%rcx
  shl    $0x3,%rcx
L78:
  mov    (%rdx),%r9
  mov    0x10(%rdx),%r8
  movsd  (%r9,%rax,1),%xmm0
  addsd  (%r8,%rax,1),%xmm0
  mov    %rax,%r8
  add    0x8(%rdx),%r8
  addsd  (%r8,%rsi,1),%xmm0
  addsd  (%r8,%rcx,1),%xmm0
  mulsd  D19(%rip),%xmm0
  mov    %rax,%r8
  add    (%r10),%r8
  movapd %xmm0,%xmm1
  subsd  (%r8),%xmm1
  mulsd  %xmm1,%xmm1
  addsd  %xmm1,%xmm2
  movsd  %xmm0,(%r8)
  add    $0x8,%rax
  cmp    %rdi,%rax
  jne    L78
L63:
  add    $0x8,%rdx
  add    $0x8,%r10
  cmp    %ebp,%r11d
  jne    L3
  mov    (%rsp),%rdx
  lea    0x8(%r13),%r10
  mov    $0x1,%r11d
L79:
  mov    %r11d,%r8d
  add    $0x1,%r11d
  mov    %r11d,%eax
  shr    $0x1f,%eax
  lea    (%r11,%rax,1),%edi
  and    $0x1,%edi
  sub    %eax,%edi
  mov    %r8d,%eax
  shr    $0x1f,%eax
  lea    (%r8,%rax,1),%ecx
  and    $0x1,%ecx
  sub    %eax,%ecx
  mov    %ebx,%r9d
  sub    %ecx,%r9d
  cmp    %r9d,%edi
  jge    L125
  movslq %edi,%rsi
  lea    0x0(,%rsi,8),%rax
  sub    $0x1,%r9d
  sub    %edi,%r9d
  lea    0x1(%rsi,%r9,1),%rdi
  shl    $0x3,%rdi
  neg    %rsi
  shl    $0x3,%rsi
  movslq %ecx,%rcx
  shl    $0x3,%rcx
L11:
  mov    (%rdx),%r14
  mov    0x10(%rdx),%r9
  movsd  (%r14,%rax,1),%xmm0
  addsd  (%r9,%rax,1),%xmm0
  mov    %rax,%r9
  add    0x8(%rdx),%r9
  addsd  (%r9,%rsi,1),%xmm0
  addsd  (%r9,%rcx,1),%xmm0
  mulsd  D19(%rip),%xmm0
  mov    %rax,%r9
  add    (%r10),%r9
  movapd %xmm0,%xmm1
  subsd  (%r9),%xmm1
  mulsd  %xmm1,%xmm1
  addsd  %xmm1,%xmm2
  movsd  %xmm0,(%r9)
  add    $0x8,%rax
  cmp    %rdi,%rax
  jne    L11
L125:
  add    $0x8,%rdx
  add    $0x8,%r10
  cmp    %r8d,%r15d
  jne    L79
L1:
  add    $0x1,%r12d
  movapd %xmm2,%xmm0
  call   <sqrt@plt>
  cltd
  idivl  0xc(%rsp)
  pxor   %xmm2,%xmm2
  cvtsi2sd %eax,%xmm2
  cmp    %r12d,0x14(%rsp)
  jle    L23
  comisd 0x18(%rsp),%xmm2
  jb     L23
L72:
  mov    %r13,%rdx
  mov    (%rsp),%rax
  lea    0x8(%rax),%r10
  mov    $0x1,%r11d
  cmpl   $0x2,0x10(%rsp)
  jg     L3
  jmp    L1
L23:
  mov    0x60(%rsp),%rax
  mov    %r12d,(%rax)
  movapd %xmm2,%xmm0
  add    $0x28,%rsp
  pop    %rbx
  pop    %rbp
  pop    %r12
  pop    %r13
  pop    %r14
  pop    %r15
  ret
```

tool_calls: name: disassemble_data
arguments: data_label: D7
type: f64
name: disassemble_data
arguments: data_label: D19
type: f64

tool: D7: 10

tool: D19: 0.25

assistant: ```c
double RB_GS_OmpLoopV2err(double **black, double **red, int m, int n, double eps, int maxit, int iterations_print, int *iterations) {
  int i, j;
  double v;
  int my_iterations = *iterations;
  double error = 10.0 * eps;
#pragma omp parallel private(j, v) firstprivate(my_iterations)
  {
    while (error >= eps && my_iterations < maxit) {
#pragma omp for schedule(OMP_SCHED) reduction(+ : error)
      for (i = 1; i < m - 1; i++)
        for (j = i % 2; j < n / 2 - (i + 1) % 2; j++) {
          v = 0.25 * (red[i - 1][j] + red[i + 1][j] + red[i][j - i % 2] + red[i][j + (i + 1) % 2]);
          error += (v - black[i][j]) * (v - black[i][j]);
          black[i][j] = v;
        }
#pragma omp for schedule(OMP_SCHED) reduction(+ : error)
      for (i = 1; i < m - 1; i++)
        for (j = (i + 1) % 2; j < n / 2 - i % 2; j++) {
          v = 0.25 * (black[i - 1][j] + black[i + 1][j] + black[i][j - (i + 1) % 2] + black[i][j + i % 2]);
          error += (v - red[i][j]) * (v - red[i][j]);
          red[i][j] = v;
        }
      my_iterations++;
#pragma omp single
      { error = sqrt(error) / (m * n); }
    }
#pragma omp master
    *iterations = my_iterations;
  }
  return error;
}
```