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

```asm
<kernel_dgemm_nt_2x4_vs_lib4>:
  endbr64
  push   %r12
  mov    %esi,%r10d
  mov    %edx,%esi
  push   %rbp
  push   %rbx
  mov    0x20(%rsp),%r11
  mov    0x28(%rsp),%ebx
  cmp    $0x3,%edx
  jle    L65
  lea    -0x4(%rdx),%eax
  mov    %eax,%ebp
  shr    $0x2,%ebp
  cmp    $0x3,%eax
  jbe    L118
  pxor   %xmm11,%xmm11
  mov    %rcx,%rdx
  mov    %r8,%rax
  xor    %r12d,%r12d
  movapd %xmm11,%xmm15
  movapd %xmm11,%xmm7
  movapd %xmm11,%xmm13
  movsd  %xmm11,-0x68(%rsp)
  movapd %xmm11,%xmm10
  movapd %xmm11,%xmm14
  movapd %xmm11,%xmm12
  nopl   0x0(%rax,%rax,1)
L127:
  movupd (%rax),%xmm1
  movupd (%rdx),%xmm4
  add    $0x1,%r12d
  sub    $0xffffffffffffff80,%rdx
  movupd 0x40(%rax),%xmm5
  movupd -0x60(%rdx),%xmm3
  sub    $0xffffffffffffff80,%rax
  movhpd -0x60(%rax),%xmm1
  movhpd -0x60(%rdx),%xmm4
  movlpd -0x78(%rdx),%xmm3
  movupd -0x20(%rdx),%xmm0
  movapd %xmm1,%xmm6
  movlpd -0x38(%rdx),%xmm0
  movhpd -0x20(%rax),%xmm5
  movupd -0x40(%rdx),%xmm2
  mulpd  %xmm4,%xmm6
  movapd %xmm5,%xmm9
  mulpd  %xmm3,%xmm1
  movhpd -0x20(%rdx),%xmm2
  mulpd  %xmm0,%xmm5
  mulpd  %xmm2,%xmm9
  movapd %xmm6,%xmm8
  unpckhpd %xmm6,%xmm6
  addsd  %xmm14,%xmm8
  movlpd %xmm9,-0x8(%rsp)
  unpckhpd %xmm9,%xmm9
  movapd %xmm8,%xmm14
  addsd  %xmm6,%xmm14
  movapd %xmm5,%xmm6
  movapd %xmm1,%xmm5
  addsd  %xmm7,%xmm5
  unpckhpd %xmm1,%xmm1
  movaps %xmm6,-0x50(%rsp)
  movlpd %xmm6,-0x38(%rsp)
  addsd  %xmm1,%xmm5
  movupd -0x20(%rax),%xmm1
  movlpd -0x38(%rax),%xmm1
  movsd  %xmm5,-0x40(%rsp)
  movupd -0x60(%rax),%xmm5
  movlpd -0x78(%rax),%xmm5
  movapd %xmm5,%xmm8
  mulpd  %xmm4,%xmm8
  mulpd  %xmm3,%xmm5
  movapd %xmm8,%xmm6
  movapd %xmm1,%xmm8
  mulpd  %xmm2,%xmm8
  movapd %xmm6,%xmm7
  unpckhpd %xmm6,%xmm6
  addsd  %xmm10,%xmm7
  mulpd  %xmm0,%xmm1
  movapd %xmm7,%xmm10
  movupd -0x70(%rax),%xmm7
  addsd  %xmm6,%xmm10
  movapd %xmm5,%xmm6
  unpckhpd %xmm5,%xmm5
  movaps %xmm8,-0x30(%rsp)
  addsd  %xmm11,%xmm6
  movhpd -0x50(%rax),%xmm7
  movlpd %xmm8,-0x10(%rsp)
  movlpd %xmm1,-0x58(%rsp)
  unpckhpd %xmm1,%xmm1
  movsd  %xmm10,-0x18(%rsp)
  movsd  -0x68(%rsp),%xmm10
  movapd %xmm6,%xmm11
  movapd %xmm7,%xmm6
  mulpd  %xmm4,%xmm6
  addsd  %xmm5,%xmm11
  movupd -0x30(%rax),%xmm5
  mulpd  %xmm3,%xmm7
  movhpd -0x10(%rax),%xmm5
  movapd %xmm5,%xmm8
  movsd  %xmm11,-0x60(%rsp)
  mulpd  %xmm2,%xmm8
  addsd  %xmm6,%xmm10
  mulpd  %xmm0,%xmm5
  unpckhpd %xmm6,%xmm6
  addsd  %xmm6,%xmm10
  movapd %xmm7,%xmm6
  unpckhpd %xmm7,%xmm7
  addsd  %xmm15,%xmm6
  movlpd %xmm8,-0x20(%rsp)
  unpckhpd %xmm8,%xmm8
  movsd  %xmm10,-0x68(%rsp)
  addsd  %xmm7,%xmm6
  movupd -0x50(%rax),%xmm7
  movlpd -0x68(%rax),%xmm7
  movsd  -0x60(%rsp),%xmm11
  addsd  -0x58(%rsp),%xmm11
  movapd %xmm7,%xmm10
  movupd -0x10(%rax),%xmm7
  movlpd -0x28(%rax),%xmm7
  mulpd  %xmm10,%xmm4
  addsd  -0x8(%rsp),%xmm14
  addsd  %xmm5,%xmm6
  mulpd  %xmm3,%xmm10
  addsd  %xmm1,%xmm11
  movsd  -0x68(%rsp),%xmm1
  unpckhpd %xmm5,%xmm5
  mulpd  %xmm7,%xmm2
  addsd  -0x20(%rsp),%xmm1
  mulpd  %xmm7,%xmm0
  movsd  -0x40(%rsp),%xmm7
  addsd  -0x38(%rsp),%xmm7
  addsd  %xmm5,%xmm6
  addsd  %xmm9,%xmm14
  movsd  -0x48(%rsp),%xmm9
  addsd  %xmm4,%xmm13
  unpckhpd %xmm4,%xmm4
  addsd  %xmm8,%xmm1
  movapd %xmm10,%xmm3
  unpckhpd %xmm10,%xmm10
  addsd  %xmm9,%xmm7
  movsd  -0x28(%rsp),%xmm9
  addsd  %xmm12,%xmm3
  movapd %xmm6,%xmm15
  addsd  %xmm13,%xmm4
  movsd  %xmm1,-0x68(%rsp)
  addsd  %xmm10,%xmm3
  movsd  -0x18(%rsp),%xmm10
  addsd  -0x10(%rsp),%xmm10
  addsd  %xmm2,%xmm4
  unpckhpd %xmm2,%xmm2
  addsd  %xmm0,%xmm3
  unpckhpd %xmm0,%xmm0
  addsd  %xmm9,%xmm10
  addsd  %xmm2,%xmm4
  addsd  %xmm0,%xmm3
  movapd %xmm4,%xmm13
  movapd %xmm3,%xmm12
  cmp    %r12d,%ebp
  ja     L127
  mov    %ebp,%eax
  movapd %xmm11,%xmm9
  movapd %xmm10,%xmm2
  shl    $0x7,%rax
  movapd %xmm3,%xmm11
  lea    (%rcx,%rax,1),%rdx
  add    %r8,%rax
L85:
  movsd  0x8(%rdx),%xmm6
  movsd  (%rax),%xmm4
  movapd %xmm15,%xmm10
  movsd  0x8(%rax),%xmm8
  movsd  (%rdx),%xmm0
  movapd %xmm4,%xmm5
  movsd  0x10(%rax),%xmm3
  movsd  0x18(%rax),%xmm1
  mulsd  %xmm6,%xmm4
  movsd  0x28(%rax),%xmm12
  mulsd  %xmm0,%xmm5
  addsd  %xmm7,%xmm4
  movapd %xmm8,%xmm7
  mulsd  %xmm6,%xmm8
  addsd  %xmm14,%xmm5
  mulsd  %xmm0,%xmm7
  addsd  %xmm9,%xmm8
  movapd %xmm3,%xmm9
  mulsd  %xmm0,%xmm9
  addsd  %xmm2,%xmm7
  movapd %xmm13,%xmm2
  movsd  0x20(%rax),%xmm13
  mulsd  %xmm1,%xmm0
  addsd  -0x68(%rsp),%xmm9
  mulsd  %xmm6,%xmm1
  movapd %xmm13,%xmm14
  mulsd  %xmm6,%xmm3
  addsd  %xmm0,%xmm2
  movsd  0x28(%rdx),%xmm0
  addsd  %xmm11,%xmm1
  movsd  0x38(%rax),%xmm11
  mulsd  %xmm0,%xmm13
  addsd  %xmm3,%xmm10
  movsd  0x30(%rax),%xmm3
  movapd %xmm1,%xmm6
  movsd  0x20(%rdx),%xmm1
  mulsd  %xmm1,%xmm14
  addsd  %xmm13,%xmm4
  movapd %xmm1,%xmm13
  mulsd  %xmm12,%xmm13
  mulsd  %xmm0,%xmm12
  addsd  %xmm14,%xmm5
  addsd  %xmm13,%xmm7
  movsd  0x40(%rax),%xmm13
  addsd  %xmm12,%xmm8
  movapd %xmm1,%xmm12
  mulsd  %xmm3,%xmm12
  mulsd  %xmm0,%xmm3
  mulsd  %xmm11,%xmm1
  mulsd  %xmm11,%xmm0
  movsd  0x58(%rax),%xmm11
  addsd  %xmm12,%xmm9
  movsd  0x48(%rax),%xmm12
  addsd  %xmm3,%xmm10
  movsd  0x40(%rdx),%xmm3
  addsd  %xmm2,%xmm1
  movsd  0x48(%rdx),%xmm2
  movapd %xmm3,%xmm14
  addsd  %xmm6,%xmm0
  movsd  0x50(%rax),%xmm6
  mulsd  %xmm13,%xmm14
  mulsd  %xmm2,%xmm13
  addsd  %xmm14,%xmm5
  movsd  0x60(%rax),%xmm14
  addsd  %xmm13,%xmm4
  movapd %xmm3,%xmm13
  mulsd  %xmm12,%xmm13
  mulsd  %xmm2,%xmm12
  addsd  %xmm13,%xmm7
  movsd  0x68(%rax),%xmm13
  addsd  %xmm12,%xmm8
  movapd %xmm3,%xmm12
  mulsd  %xmm11,%xmm3
  mulsd  %xmm6,%xmm12
  mulsd  %xmm2,%xmm6
  mulsd  %xmm11,%xmm2
  movsd  0x78(%rax),%xmm11
  addsd  %xmm1,%xmm3
  movsd  0x60(%rdx),%xmm1
  addsd  %xmm12,%xmm9
  movsd  0x70(%rax),%xmm12
  addsd  %xmm10,%xmm6
  movapd %xmm1,%xmm10
  mulsd  %xmm14,%xmm10
  addsd  %xmm0,%xmm2
  movsd  0x68(%rdx),%xmm0
  lea    0x1(%rbp),%edx
  mov    %rdx,%rax
  shl    $0x7,%rdx
  add    %rdx,%rcx
  add    %rdx,%r8
  shl    $0x2,%eax
  addsd  %xmm5,%xmm10
  movapd %xmm14,%xmm5
  mulsd  %xmm0,%xmm5
  addsd  %xmm4,%xmm5
  movapd %xmm1,%xmm4
  mulsd  %xmm13,%xmm4
  addsd  %xmm4,%xmm7
  movapd %xmm13,%xmm4
  mulsd  %xmm0,%xmm4
  addsd  %xmm8,%xmm4
  movapd %xmm1,%xmm8
  mulsd  %xmm12,%xmm8
  mulsd  %xmm11,%xmm1
  mulsd  %xmm0,%xmm12
  mulsd  %xmm11,%xmm0
  addsd  %xmm9,%xmm8
  addsd  %xmm3,%xmm1
  addsd  %xmm6,%xmm12
  addsd  %xmm2,%xmm0
L143:
  cmp    %eax,%esi
  jle    L129
  sub    %eax,%esi
  cmp    $0x1,%esi
  je     L205
  movupd (%rcx),%xmm11
  movupd 0x10(%r8),%xmm3
  unpcklpd %xmm5,%xmm4
  lea    -0x1(%rsi),%eax
  movupd (%rcx),%xmm9
  movupd (%r8),%xmm2
  unpcklpd %xmm12,%xmm0
  unpcklpd %xmm8,%xmm1
  unpckhpd %xmm11,%xmm11
  shufpd $0x1,%xmm3,%xmm3
  movapd %xmm3,%xmm6
  unpcklpd %xmm10,%xmm7
  mulpd  %xmm11,%xmm6
  unpcklpd %xmm9,%xmm9
  shufpd $0x1,%xmm2,%xmm2
  mulpd  %xmm2,%xmm11
  mulpd  %xmm9,%xmm3
  mulpd  %xmm9,%xmm2
  addpd  %xmm0,%xmm6
  movapd %xmm11,%xmm5
  addpd  %xmm4,%xmm5
  addpd  %xmm1,%xmm3
  addpd  %xmm7,%xmm2
  cmp    $0x2,%esi
  je     L187
  movupd 0x20(%rcx),%xmm7
  movupd 0x20(%rcx),%xmm0
  movupd 0x30(%r8),%xmm1
  movupd 0x20(%r8),%xmm4
  unpckhpd %xmm7,%xmm7
  unpcklpd %xmm0,%xmm0
  shufpd $0x1,%xmm1,%xmm1
  movapd %xmm1,%xmm8
  shufpd $0x1,%xmm4,%xmm4
  mulpd  %xmm7,%xmm8
  mulpd  %xmm0,%xmm1
  mulpd  %xmm4,%xmm7
  mulpd  %xmm4,%xmm0
  addpd  %xmm8,%xmm6
  addpd  %xmm1,%xmm3
  addpd  %xmm7,%xmm5
  addpd  %xmm0,%xmm2
  cmp    $0x2,%eax
  je     L187
  movupd 0x40(%rcx),%xmm7
  movupd 0x40(%rcx),%xmm1
  movupd 0x50(%r8),%xmm4
  movupd 0x40(%r8),%xmm0
  unpckhpd %xmm7,%xmm7
  unpcklpd %xmm1,%xmm1
  shufpd $0x1,%xmm4,%xmm4
  movapd %xmm4,%xmm8
  shufpd $0x1,%xmm0,%xmm0
  mulpd  %xmm7,%xmm8
  mulpd  %xmm1,%xmm4
  mulpd  %xmm0,%xmm7
  mulpd  %xmm1,%xmm0
  addpd  %xmm8,%xmm6
  addpd  %xmm4,%xmm3
  addpd  %xmm7,%xmm5
  addpd  %xmm0,%xmm2
L187:
  movapd %xmm6,%xmm0
  shl    $0x5,%rax
  unpckhpd %xmm6,%xmm6
  movapd %xmm3,%xmm1
  movapd %xmm2,%xmm7
  unpckhpd %xmm3,%xmm3
  unpckhpd %xmm2,%xmm2
  add    %rax,%rcx
  movapd %xmm5,%xmm4
  movapd %xmm6,%xmm12
  unpckhpd %xmm5,%xmm5
  add    %rax,%r8
  movapd %xmm3,%xmm8
  movapd %xmm2,%xmm10
L205:
  movsd  0x8(%rcx),%xmm6
  movsd  (%r8),%xmm13
  movsd  0x8(%r8),%xmm11
  movsd  0x10(%r8),%xmm9
  movapd %xmm13,%xmm14
  movsd  (%rcx),%xmm2
  movsd  0x18(%r8),%xmm3
  mulsd  %xmm6,%xmm13
  mulsd  %xmm2,%xmm14
  addsd  %xmm13,%xmm5
  movapd %xmm11,%xmm13
  mulsd  %xmm6,%xmm11
  addsd  %xmm14,%xmm10
  mulsd  %xmm2,%xmm13
  addsd  %xmm11,%xmm4
  movapd %xmm9,%xmm11
  mulsd  %xmm2,%xmm11
  addsd  %xmm13,%xmm7
  mulsd  %xmm3,%xmm2
  mulsd  %xmm6,%xmm9
  mulsd  %xmm6,%xmm3
  addsd  %xmm11,%xmm8
  addsd  %xmm2,%xmm1
  addsd  %xmm9,%xmm12
  addsd  %xmm3,%xmm0
L129:
  test   %ebx,%ebx
  je     L101
  mov    0x30(%rsp),%edx
  movsd  (%r9),%xmm9
  movsd  0x8(%r9),%xmm3
  movsd  0x20(%r9),%xmm2
  movsd  0x28(%r9),%xmm6
  test   %edx,%edx
  je     L86
  movq   %xmm2,%rax
  movsd  0x10(%r9),%xmm15
  movapd %xmm3,%xmm2
  movsd  0x18(%r9),%xmm13
  movsd  0x30(%r9),%xmm14
  movsd  0x38(%r9),%xmm11
  movq   %rax,%xmm3
  cmp    $0x1,%ebx
  je     L175
L117:
  subsd  %xmm10,%xmm9
  subsd  %xmm5,%xmm3
  subsd  %xmm7,%xmm2
  subsd  %xmm4,%xmm6
  subsd  %xmm8,%xmm15
  subsd  %xmm12,%xmm14
  subsd  %xmm1,%xmm13
  subsd  %xmm0,%xmm11
  movapd %xmm9,%xmm10
  movapd %xmm3,%xmm5
  movapd %xmm2,%xmm7
  movapd %xmm6,%xmm4
  movapd %xmm15,%xmm8
  movapd %xmm14,%xmm12
  movapd %xmm13,%xmm1
  movapd %xmm11,%xmm0
L101:
  mov    0x38(%rsp),%eax
  movsd  %xmm10,(%r11)
  test   %eax,%eax
  jne    L139
  cmp    $0x1,%edi
  jle    L166
  movsd  %xmm5,0x8(%r11)
  movsd  %xmm7,0x20(%r11)
  movsd  %xmm4,0x28(%r11)
  movsd  %xmm8,0x40(%r11)
  movsd  %xmm12,0x48(%r11)
  cmp    $0x3,%r10d
  jle    L48
  movsd  %xmm1,0x60(%r11)
  movsd  %xmm0,0x68(%r11)
L48:
  pop    %rbx
  pop    %rbp
  pop    %r12
  ret
  xchg   %ax,%ax
L139:
  movsd  %xmm7,0x8(%r11)
  movsd  %xmm8,0x10(%r11)
  cmp    $0x3,%r10d
  jle    L106
  movsd  %xmm1,0x18(%r11)
  cmp    $0x1,%edi
  jle    L48
  movsd  %xmm5,0x20(%r11)
  movsd  %xmm4,0x28(%r11)
  movsd  %xmm12,0x30(%r11)
  movsd  %xmm0,0x38(%r11)
  pop    %rbx
  pop    %rbp
  pop    %r12
  ret
  nopw   0x0(%rax,%rax,1)
L86:
  movsd  0x40(%r9),%xmm15
  movsd  0x48(%r9),%xmm14
  movsd  0x60(%r9),%xmm13
  movsd  0x68(%r9),%xmm11
  cmp    $0x1,%ebx
  jne    L117
L175:
  addsd  %xmm9,%xmm10
  addsd  %xmm3,%xmm5
  addsd  %xmm2,%xmm7
  addsd  %xmm6,%xmm4
  addsd  %xmm15,%xmm8
  addsd  %xmm14,%xmm12
  addsd  %xmm13,%xmm1
  addsd  %xmm11,%xmm0
  jmp    L101
  nopl   0x0(%rax,%rax,1)
L106:
  cmp    $0x1,%edi
  jle    L48
  movsd  %xmm5,0x20(%r11)
  movsd  %xmm4,0x28(%r11)
  movsd  %xmm12,0x30(%r11)
  pop    %rbx
  pop    %rbp
  pop    %r12
  ret
L166:
  movsd  %xmm7,0x20(%r11)
  movsd  %xmm8,0x40(%r11)
  cmp    $0x3,%r10d
  jle    L48
  movsd  %xmm1,0x60(%r11)
  pop    %rbx
  pop    %rbp
  pop    %r12
  ret
  nopl   0x0(%rax)
L65:
  pxor   %xmm0,%xmm0
  xor    %eax,%eax
  movapd %xmm0,%xmm12
  movapd %xmm0,%xmm4
  movapd %xmm0,%xmm5
  movapd %xmm0,%xmm1
  movapd %xmm0,%xmm8
  movapd %xmm0,%xmm7
  movapd %xmm0,%xmm10
  jmp    L143
L118:
  pxor   %xmm11,%xmm11
  mov    %r8,%rax
  mov    %rcx,%rdx
  movapd %xmm11,%xmm15
  movapd %xmm11,%xmm9
  movapd %xmm11,%xmm7
  movsd  %xmm11,-0x68(%rsp)
  movapd %xmm11,%xmm13
  movapd %xmm11,%xmm2
  movapd %xmm11,%xmm14
  jmp    L85
```

assistant: ```c
void kernel_dgemm_nt_2x4_vs_lib4(int km, int kn, int kmax, double *A, double *B, double *C, double *D, int alg, int tc, int td) {
  const int bs = 4;
  int k;
  double a_0, a_1, b_0, b_1, b_2, b_3, c_00 = 0, c_01 = 0, c_02 = 0, c_03 = 0, c_10 = 0, c_11 = 0, c_12 = 0, c_13 = 0;
  for (k = 0; k < kmax - 3; k += 4) {
    a_0 = A[0 + bs * 0];
    a_1 = A[1 + bs * 0];
    b_0 = B[0 + bs * 0];
    b_1 = B[1 + bs * 0];
    b_2 = B[2 + bs * 0];
    b_3 = B[3 + bs * 0];
    c_00 += a_0 * b_0;
    c_10 += a_1 * b_0;
    c_01 += a_0 * b_1;
    c_11 += a_1 * b_1;
    c_02 += a_0 * b_2;
    c_12 += a_1 * b_2;
    c_03 += a_0 * b_3;
    c_13 += a_1 * b_3;
    a_0 = A[0 + bs * 1];
    a_1 = A[1 + bs * 1];
    b_0 = B[0 + bs * 1];
    b_1 = B[1 + bs * 1];
    b_2 = B[2 + bs * 1];
    b_3 = B[3 + bs * 1];
    c_00 += a_0 * b_0;
    c_10 += a_1 * b_0;
    c_01 += a_0 * b_1;
    c_11 += a_1 * b_1;
    c_02 += a_0 * b_2;
    c_12 += a_1 * b_2;
    c_03 += a_0 * b_3;
    c_13 += a_1 * b_3;
    a_0 = A[0 + bs * 2];
    a_1 = A[1 + bs * 2];
    b_0 = B[0 + bs * 2];
    b_1 = B[1 + bs * 2];
    b_2 = B[2 + bs * 2];
    b_3 = B[3 + bs * 2];
    c_00 += a_0 * b_0;
    c_10 += a_1 * b_0;
    c_01 += a_0 * b_1;
    c_11 += a_1 * b_1;
    c_02 += a_0 * b_2;
    c_12 += a_1 * b_2;
    c_03 += a_0 * b_3;
    c_13 += a_1 * b_3;
    a_0 = A[0 + bs * 3];
    a_1 = A[1 + bs * 3];
    b_0 = B[0 + bs * 3];
    b_1 = B[1 + bs * 3];
    b_2 = B[2 + bs * 3];
    b_3 = B[3 + bs * 3];
    c_00 += a_0 * b_0;
    c_10 += a_1 * b_0;
    c_01 += a_0 * b_1;
    c_11 += a_1 * b_1;
    c_02 += a_0 * b_2;
    c_12 += a_1 * b_2;
    c_03 += a_0 * b_3;
    c_13 += a_1 * b_3;
    A += 16;
    B += 16;
  }
  for (; k < kmax; k++) {
    a_0 = A[0 + bs * 0];
    a_1 = A[1 + bs * 0];
    b_0 = B[0 + bs * 0];
    b_1 = B[1 + bs * 0];
    b_2 = B[2 + bs * 0];
    b_3 = B[3 + bs * 0];
    c_00 += a_0 * b_0;
    c_10 += a_1 * b_0;
    c_01 += a_0 * b_1;
    c_11 += a_1 * b_1;
    c_02 += a_0 * b_2;
    c_12 += a_1 * b_2;
    c_03 += a_0 * b_3;
    c_13 += a_1 * b_3;
    A += 4;
    B += 4;
  }
  double d_00, d_01, d_02, d_03, d_10, d_11, d_12, d_13;
  if (alg == 0) {
    if (td == 0) {
      goto store_n;
    } else {
      goto store_t;
    }
  } else {
    if (tc == 0) {
      d_00 = C[0 + bs * 0];
      d_10 = C[1 + bs * 0];
      d_01 = C[0 + bs * 1];
      d_11 = C[1 + bs * 1];
      d_02 = C[0 + bs * 2];
      d_12 = C[1 + bs * 2];
      d_03 = C[0 + bs * 3];
      d_13 = C[1 + bs * 3];
    } else {
      d_00 = C[0 + bs * 0];
      d_01 = C[1 + bs * 0];
      d_02 = C[2 + bs * 0];
      d_03 = C[3 + bs * 0];
      d_10 = C[0 + bs * 1];
      d_11 = C[1 + bs * 1];
      d_12 = C[2 + bs * 1];
      d_13 = C[3 + bs * 1];
    }
    if (alg == 1) {
      c_00 = d_00 + c_00;
      c_10 = d_10 + c_10;
      c_01 = d_01 + c_01;
      c_11 = d_11 + c_11;
      c_02 = d_02 + c_02;
      c_12 = d_12 + c_12;
      c_03 = d_03 + c_03;
      c_13 = d_13 + c_13;
    } else {
      c_00 = d_00 - c_00;
      c_10 = d_10 - c_10;
      c_01 = d_01 - c_01;
      c_11 = d_11 - c_11;
      c_02 = d_02 - c_02;
      c_12 = d_12 - c_12;
      c_03 = d_03 - c_03;
      c_13 = d_13 - c_13;
    }
    if (td == 0) {
      goto store_n;
    } else {
      goto store_t;
    }
  }
store_n:
  if (km >= 2) {
    D[0 + bs * 0] = c_00;
    D[1 + bs * 0] = c_10;
    D[0 + bs * 1] = c_01;
    D[1 + bs * 1] = c_11;
    D[0 + bs * 2] = c_02;
    D[1 + bs * 2] = c_12;
    if (kn >= 4) {
      D[0 + bs * 3] = c_03;
      D[1 + bs * 3] = c_13;
    }
  } else {
    D[0 + bs * 0] = c_00;
    D[0 + bs * 1] = c_01;
    D[0 + bs * 2] = c_02;
    if (kn >= 4) {
      D[0 + bs * 3] = c_03;
    }
  }
  return;
store_t:
  if (kn >= 4) {
    D[0 + bs * 0] = c_00;
    D[1 + bs * 0] = c_01;
    D[2 + bs * 0] = c_02;
    D[3 + bs * 0] = c_03;
    if (km >= 2) {
      D[0 + bs * 1] = c_10;
      D[1 + bs * 1] = c_11;
      D[2 + bs * 1] = c_12;
      D[3 + bs * 1] = c_13;
    }
  } else {
    D[0 + bs * 0] = c_00;
    D[1 + bs * 0] = c_01;
    D[2 + bs * 0] = c_02;
    if (km >= 2) {
      D[0 + bs * 1] = c_10;
      D[1 + bs * 1] = c_11;
      D[2 + bs * 1] = c_12;
    }
  }
  return;
}
```