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

```asm
<s_cvt_mat2pmat>:
  endbr64
  push   %r15
  neg    %edx
  mov    %edi,%eax
  mov    %r8,%r15
  push   %r14
  and    $0x3,%edx
  push   %r13
  push   %r12
  push   %rbp
  push   %rbx
  sub    $0x40,%rsp
  cmp    %edi,%edx
  cmovg  %edi,%edx
  mov    %esi,-0x60(%rsp)
  mov    0x78(%rsp),%r14
  mov    %r9d,-0x5c(%rsp)
  sub    %edx,%eax
  mov    %eax,0x14(%rsp)
  test   %edx,%edx
  jle    L11
  test   %esi,%esi
  jle    L359
  movslq %r9d,%r9
  mov    %r14,%rdi
  mov    $0x2,%eax
  mov    $0x2,%ecx
  mov    %r9,%r11
  lea    0x2(,%rsi,4),%r10d
  shl    $0x2,%r9
L218:
  movss  (%r8),%xmm0
  movss  %xmm0,(%rdi)
  cmp    $0x1,%edx
  je     L213
  lea    -0x1(%rcx),%esi
  movslq %esi,%rsi
  movss  (%r15,%rsi,4),%xmm0
  lea    -0x1(%rax),%esi
  movss  %xmm0,(%r14,%rsi,4)
  cmp    $0x3,%edx
  jne    L213
  movslq %ecx,%rsi
  movss  (%r15,%rsi,4),%xmm0
  mov    %eax,%esi
  movss  %xmm0,(%r14,%rsi,4)
L213:
  add    $0x4,%eax
  add    %r9,%r8
  add    $0x10,%rdi
  add    %r11d,%ecx
  cmp    %eax,%r10d
  jne    L218
L359:
  movslq %edx,%rax
  lea    (%r15,%rax,4),%r15
  mov    0x80(%rsp),%eax
  lea    -0x4(%rdx,%rax,4),%eax
  cltq
  lea    (%r14,%rax,4),%r14
L11:
  mov    0x14(%rsp),%eax
  sub    $0x3,%eax
  mov    %eax,-0x30(%rsp)
  test   %eax,%eax
  jle    L85
  mov    -0x5c(%rsp),%ebx
  mov    -0x60(%rsp),%esi
  mov    $0xc,%edi
  mov    %r15,-0x58(%rsp)
  mov    0x80(%rsp),%eax
  movl   $0x0,-0x38(%rsp)
  movslq %ebx,%r10
  lea    0x0(,%r10,4),%rcx
  shl    $0x2,%eax
  mov    %r10,(%rsp)
  mov    %eax,-0x28(%rsp)
  lea    (%r15,%rcx,1),%rax
  mov    %rax,-0x70(%rsp)
  add    %rcx,%rax
  mov    %rcx,0x8(%rsp)
  mov    %rax,-0x50(%rsp)
  add    %rcx,%rax
  lea    -0x4(%rsi),%ecx
  shr    $0x2,%ecx
  mov    %rax,-0x48(%rsp)
  lea    0x0(,%r10,8),%rax
  lea    0x1(%rcx),%esi
  sub    %r15,%rax
  mov    %rsi,%r11
  mov    %rax,-0x20(%rsp)
  lea    0x0(,%rbx,4),%eax
  mov    %esi,0x10(%rsp)
  sub    $0x1,%rsi
  cltq
  mov    %rsi,%rdx
  lea    0x0(,%rax,4),%r13
  imul   %rax,%rdx
  test   %ebx,%ebx
  mov    %r13,-0x40(%rsp)
  lea    0xc(,%rdx,4),%rdx
  cmovns %rdx,%rdi
  shl    $0x4,%rsi
  sub    $0xc,%rdx
  mov    %rsi,-0x18(%rsp)
  xor    %esi,%esi
  test   %ebx,%ebx
  cmovs  %rdx,%rsi
  lea    (%rbx,%rbx,1),%edx
  shl    $0x4,%rcx
  mov    %rdi,-0x10(%rsp)
  movslq %edx,%rax
  add    %ebx,%edx
  mov    %rcx,0x18(%rsp)
  sub    %r10,%rax
  movslq %edx,%rdx
  mov    %rsi,-0x68(%rsp)
  lea    0x4(,%rax,4),%rax
  sub    %r10,%rdx
  mov    %rax,0x28(%rsp)
  lea    0x40(%r14),%rax
  lea    0x0(,%rdx,4),%rsi
  mov    %rax,0x30(%rsp)
  mov    %rsi,0x20(%rsp)
  lea    0x0(,%r11,4),%esi
  mov    %esi,-0x24(%rsp)
  xor    %esi,%esi
  nopl   0x0(%rax)
L293:
  xor    %ecx,%ecx
  cmpl   $0x3,-0x60(%rsp)
  mov    %esi,-0x34(%rsp)
  mov    %esi,-0x2c(%rsp)
  jle    L309
  mov    -0x20(%rsp),%rdi
  movslq -0x38(%rsp),%rbx
  lea    0x0(,%rsi,4),%r11
  mov    -0x18(%rsp),%rdx
  mov    -0x70(%rsp),%r9
  mov    -0x68(%rsp),%r12
  mov    -0x58(%rsp),%r8
  lea    0x20(,%rbx,4),%rax
  add    %rdi,%r9
  lea    0xb(%rdx,%rbx,1),%r10
  mov    -0x10(%rsp),%r13
  lea    (%r14,%rax,1),%rcx
  shl    $0x2,%r10
  lea    (%r12,%r9,1),%rbp
  lea    0x10(%r14,%rax,1),%rdx
  add    %rdi,%r8
  add    %r15,%rbp
  lea    0x10(%r14,%r10,1),%r12
  lea    -0x10(%r14,%rax,1),%rdi
  cmp    %r12,%rbp
  mov    -0x68(%rsp),%r12
  lea    -0x20(%r14,%rax,1),%rax
  seta   %bpl
  add    %r13,%r9
  add    %r15,%r9
  cmp    %r9,%rdx
  seta   %r9b
  or     %ebp,%r9d
  lea    (%r12,%r8,1),%rbp
  lea    (%r14,%r10,1),%r12
  add    %r15,%rbp
  cmp    %r12,%rbp
  mov    -0x68(%rsp),%r12
  seta   %bpl
  add    %r13,%r8
  add    %r15,%r8
  cmp    %r8,%rcx
  seta   %r8b
  or     %r8d,%ebp
  mov    %r9d,%r8d
  and    %ebp,%r8d
  mov    -0x70(%rsp),%rbp
  mov    %rbp,%r9
  add    %r12,%rbp
  lea    -0x10(%r14,%r10,1),%r12
  sub    %r15,%r9
  cmp    %r12,%rbp
  seta   %bpl
  add    %r13,%r9
  add    %r15,%r9
  cmp    %r9,%rdi
  seta   %r9b
  or     %r9d,%ebp
  test   %bpl,%r8b
  je     L79
  mov    -0x68(%rsp),%r12
  lea    -0x20(%r14,%r10,1),%r9
  lea    (%r12,%r11,1),%r8
  add    %r15,%r8
  cmp    %r9,%r8
  seta   %r8b
  add    %r13,%r11
  add    %r15,%r11
  cmp    %r11,%rax
  seta   %r9b
  or     %r8b,%r9b
  je     L79
  mov    -0x48(%rsp),%rbx
  mov    -0x50(%rsp),%r11
  xor    %r8d,%r8d
  mov    -0x70(%rsp),%r10
  mov    -0x58(%rsp),%r9
  mov    0x10(%rsp),%ebp
  mov    -0x40(%rsp),%r13
  nopl   0x0(%rax,%rax,1)
L40:
  movups (%r9),%xmm1
  add    $0x1,%r8d
  add    %r13,%r9
  add    $0x40,%rax
  add    $0x40,%rdi
  add    $0x40,%rcx
  add    $0x40,%rdx
  movups %xmm1,-0x40(%rax)
  movups (%r10),%xmm2
  add    %r13,%r10
  movups %xmm2,-0x40(%rdi)
  movups (%r11),%xmm3
  add    %r13,%r11
  movups %xmm3,-0x40(%rcx)
  movups (%rbx),%xmm4
  add    %r13,%rbx
  movups %xmm4,-0x40(%rdx)
  cmp    %ebp,%r8d
  jb     L40
L184:
  mov    %r13,-0x40(%rsp)
  mov    -0x24(%rsp),%ecx
L309:
  cmp    %ecx,-0x60(%rsp)
  jle    L71
  mov    -0x5c(%rsp),%r13d
  mov    -0x60(%rsp),%r11d
  movslq %ecx,%r8
  mov    -0x34(%rsp),%eax
  movslq -0x38(%rsp),%rbp
  mov    %r13d,%r9d
  sub    %ecx,%r11d
  lea    0x1(%rax),%ebx
  lea    0x2(%rax),%edi
  mov    %r11d,%r12d
  add    $0x3,%eax
  imul   %ecx,%r9d
  mov    %eax,-0x4(%rsp)
  lea    -0x1(%r12),%rax
  imul   (%rsp),%rax
  mov    %edi,-0x8(%rsp)
  mov    %ebx,-0x34(%rsp)
  lea    0x0(%rbp,%r8,4),%rbx
  lea    -0x1(%r8,%r12,1),%r8
  movslq %r9d,%r10
  lea    0x3(%rbp,%r8,4),%r8
  lea    (%r14,%rbx,4),%rbx
  add    %rsi,%r10
  lea    0xc(,%rax,4),%rdi
  shl    $0x2,%rax
  test   %r13d,%r13d
  mov    $0x0,%r13d
  lea    0x0(,%r10,4),%rdx
  lea    (%r14,%r8,4),%r8
  cmovns %r13,%rax
  add    %rdx,%rax
  add    %r15,%rax
  cmp    %r8,%rax
  ja     L129
  mov    -0x5c(%rsp),%eax
  test   %eax,%eax
  mov    $0xc,%eax
  cmovns %rdi,%rax
  add    %rdx,%rax
  add    %r15,%rax
  cmp    %rax,%rbx
  jbe    L74
L129:
  add    %r15,%rdx
  mov    0x8(%rsp),%rax
  movups (%rdx),%xmm5
  add    %rax,%rdx
  movups %xmm5,(%rbx)
  cmp    $0x1,%r11d
  jbe    L71
  movups (%rdx),%xmm6
  add    %rax,%rdx
  movups %xmm6,0x10(%rbx)
  cmp    $0x2,%r11d
  je     L71
  movups (%rdx),%xmm7
  add    %rax,%rdx
  movups %xmm7,0x20(%rbx)
  cmp    $0x3,%r11d
  je     L71
  movups (%rdx),%xmm6
  movups %xmm6,0x30(%rbx)
L71:
  mov    -0x28(%rsp),%ebx
  addq   $0x10,-0x58(%rsp)
  add    $0x4,%rsi
  add    %ebx,-0x38(%rsp)
  addq   $0x10,-0x70(%rsp)
  addq   $0x10,-0x50(%rsp)
  addq   $0x10,-0x48(%rsp)
  cmp    %esi,-0x30(%rsp)
  jg     L293
  mov    0x14(%rsp),%eax
  sub    $0x4,%eax
  shr    $0x2,%eax
  lea    0x4(,%rax,4),%eax
L272:
  mov    0x14(%rsp),%esi
  cmp    %eax,%esi
  jle    L217
  sub    %eax,%esi
  mov    $0x4,%ecx
  mov    -0x60(%rsp),%ebx
  cmp    %ecx,%esi
  mov    %esi,-0x50(%rsp)
  cmovle %esi,%ecx
  test   %ebx,%ebx
  jle    L217
  movslq -0x5c(%rsp),%rbp
  lea    0x3(%rax),%r9d
  lea    -0x1(%rcx),%r13d
  mov    %ecx,%r11d
  mov    0x80(%rsp),%r10d
  and    $0xfffffffc,%r11d
  mov    $0xfffffffd,%r8d
  sub    %eax,%r8d
  lea    0x2(%r11),%r12d
  shl    $0x2,%rbp
  imul   %eax,%r10d
  mov    %r8d,-0x68(%rsp)
  movslq %r10d,%rdx
  lea    (%r10,%rbx,4),%ebx
  mov    %ebx,-0x70(%rsp)
  lea    (%r14,%rdx,4),%rdi
  lea    (%rax,%r11,1),%ebx
  lea    0x1(%rax),%edx
  mov    %ebx,-0x60(%rsp)
  lea    0x1(%r11),%ebx
  movslq %edx,%rdx
  lea    (%r15,%rdx,4),%rsi
  lea    (%rbx,%rax,1),%edx
  mov    %edx,-0x38(%rsp)
  lea    (%rax,%r12,1),%edx
  mov    %edx,-0x58(%rsp)
  mov    %r10d,%edx
  nopw   0x0(%rax,%rax,1)
L341:
  mov    -0x68(%rsp),%eax
  mov    %rdi,%r8
  sub    %rsi,%r8
  lea    (%rax,%r9,1),%ecx
  mov    %edx,%eax
  sub    %r10d,%eax
  cmp    $0x8,%r8
  jbe    L119
  cmp    $0x2,%r13d
  jbe    L119
  movups -0x4(%rsi),%xmm7
  movups %xmm7,(%rdi)
  cmp    $0x4,%r11d
  je     L200
  mov    -0x60(%rsp),%r8d
  add    %ecx,%r8d
  movslq %r8d,%r8
  movss  (%r15,%r8,4),%xmm0
  lea    (%rax,%r11,1),%r8d
  add    %r10d,%r8d
  movslq %r8d,%r8
  movss  %xmm0,(%r14,%r8,4)
  cmp    $0x3,%ebx
  ja     L200
  mov    -0x38(%rsp),%r8d
  add    %ecx,%r8d
  movslq %r8d,%r8
  movss  (%r15,%r8,4),%xmm0
  lea    (%rbx,%rax,1),%r8d
  add    %r10d,%r8d
  movslq %r8d,%r8
  movss  %xmm0,(%r14,%r8,4)
  cmp    $0x3,%r12d
  ja     L200
  add    -0x58(%rsp),%ecx
  add    %r12d,%eax
  movslq %ecx,%rcx
  add    %r10d,%eax
  movss  (%r15,%rcx,4),%xmm0
  cltq
  movss  %xmm0,(%r14,%rax,4)
L200:
  add    $0x10,%rdi
  add    %rbp,%rsi
  add    -0x5c(%rsp),%r9d
  add    $0x4,%edx
  cmp    %edx,-0x70(%rsp)
  jne    L341
L217:
  add    $0x40,%rsp
  pop    %rbx
  pop    %rbp
  pop    %r12
  pop    %r13
  pop    %r14
  pop    %r15
  ret
  nopl   0x0(%rax)
L79:
  mov    0x30(%rsp),%rdx
  mov    -0x70(%rsp),%rcx
  mov    0x28(%rsp),%r8
  mov    0x20(%rsp),%rdi
  add    0x18(%rsp),%rbx
  mov    -0x40(%rsp),%r13
  lea    (%rdx,%rbx,4),%r9
  mov    -0x58(%rsp),%rdx
  add    %rcx,%r8
  add    %rcx,%rdi
  nopl   (%rax)
L70:
  movss  (%rdx),%xmm0
  add    $0x40,%rax
  movss  %xmm0,-0x40(%rax)
  movss  0x4(%rdx),%xmm0
  movss  %xmm0,-0x3c(%rax)
  movss  0x8(%rdx),%xmm0
  movss  %xmm0,-0x38(%rax)
  movss  0xc(%rdx),%xmm0
  add    %r13,%rdx
  movss  %xmm0,-0x34(%rax)
  movss  (%rcx),%xmm0
  movss  %xmm0,-0x30(%rax)
  movss  0x4(%rcx),%xmm0
  movss  %xmm0,-0x2c(%rax)
  movss  0x8(%rcx),%xmm0
  movss  %xmm0,-0x28(%rax)
  movss  0xc(%rcx),%xmm0
  add    %r13,%rcx
  movss  %xmm0,-0x24(%rax)
  movss  -0x4(%r8),%xmm0
  movss  %xmm0,-0x20(%rax)
  movss  (%r8),%xmm0
  movss  %xmm0,-0x1c(%rax)
  movss  0x4(%r8),%xmm0
  movss  %xmm0,-0x18(%rax)
  movss  0x8(%r8),%xmm0
  add    %r13,%r8
  movss  %xmm0,-0x14(%rax)
  movss  (%rdi),%xmm0
  movss  %xmm0,-0x10(%rax)
  movss  0x4(%rdi),%xmm0
  movss  %xmm0,-0xc(%rax)
  movss  0x8(%rdi),%xmm0
  movss  %xmm0,-0x8(%rax)
  movss  0xc(%rdi),%xmm0
  add    %r13,%rdi
  movss  %xmm0,-0x4(%rax)
  cmp    %rax,%r9
  jne    L70
  jmp    L184
  xchg   %ax,%ax
L74:
  mov    -0x38(%rsp),%ebx
  lea    0x0(,%rcx,4),%eax
  movss  (%r15,%r10,4),%xmm0
  mov    -0x34(%rsp),%edi
  mov    -0x8(%rsp),%r11d
  lea    (%rax,%rbx,1),%edx
  mov    -0x4(%rsp),%r10d
  mov    -0x60(%rsp),%r8d
  movslq %edx,%rdx
  movss  %xmm0,(%r14,%rdx,4)
  lea    (%rdi,%r9,1),%edx
  movslq %edx,%rdx
  movss  (%r15,%rdx,4),%xmm0
  lea    0x1(%rax,%rbx,1),%edx
  movslq %edx,%rdx
  movss  %xmm0,(%r14,%rdx,4)
  lea    (%r11,%r9,1),%edx
  movslq %edx,%rdx
  movss  (%r15,%rdx,4),%xmm0
  lea    0x2(%rax,%rbx,1),%edx
  movslq %edx,%rdx
  movss  %xmm0,(%r14,%rdx,4)
  lea    (%r10,%r9,1),%edx
  movslq %edx,%rdx
  movss  (%r15,%rdx,4),%xmm0
  lea    0x3(%rax,%rbx,1),%edx
  movslq %edx,%rdx
  movss  %xmm0,(%r14,%rdx,4)
  lea    0x1(%rcx),%edx
  cmp    %r8d,%edx
  jge    L71
  mov    -0x5c(%rsp),%r12d
  mov    -0x2c(%rsp),%ebp
  add    %r12d,%r9d
  lea    (%r9,%rbp,1),%edx
  movslq %edx,%rdx
  movss  (%r15,%rdx,4),%xmm0
  lea    0x4(%rax,%rbx,1),%edx
  movslq %edx,%rdx
  movss  %xmm0,(%r14,%rdx,4)
  lea    (%r9,%rdi,1),%edx
  movslq %edx,%rdx
  movss  (%r15,%rdx,4),%xmm0
  lea    0x5(%rax,%rbx,1),%edx
  movslq %edx,%rdx
  movss  %xmm0,(%r14,%rdx,4)
  lea    (%r9,%r11,1),%edx
  movslq %edx,%rdx
  movss  (%r15,%rdx,4),%xmm0
  lea    0x6(%rax,%rbx,1),%edx
  movslq %edx,%rdx
  movss  %xmm0,(%r14,%rdx,4)
  lea    (%r9,%r10,1),%edx
  movslq %edx,%rdx
  movss  (%r15,%rdx,4),%xmm0
  lea    0x7(%rax,%rbx,1),%edx
  movslq %edx,%rdx
  movss  %xmm0,(%r14,%rdx,4)
  lea    0x2(%rcx),%edx
  cmp    %r8d,%edx
  jge    L71
  add    %r12d,%r9d
  add    $0x3,%ecx
  lea    (%r9,%rbp,1),%edx
  movslq %edx,%rdx
  movss  (%r15,%rdx,4),%xmm0
  lea    0x8(%rax,%rbx,1),%edx
  movslq %edx,%rdx
  movss  %xmm0,(%r14,%rdx,4)
  lea    (%r9,%rdi,1),%edx
  movslq %edx,%rdx
  movss  (%r15,%rdx,4),%xmm0
  lea    0x9(%rax,%rbx,1),%edx
  movslq %edx,%rdx
  movss  %xmm0,(%r14,%rdx,4)
  lea    (%r9,%r11,1),%edx
  movslq %edx,%rdx
  movss  (%r15,%rdx,4),%xmm0
  lea    0xa(%rax,%rbx,1),%edx
  movslq %edx,%rdx
  movss  %xmm0,(%r14,%rdx,4)
  lea    (%r9,%r10,1),%edx
  movslq %edx,%rdx
  movss  (%r15,%rdx,4),%xmm0
  lea    0xb(%rax,%rbx,1),%edx
  movslq %edx,%rdx
  movss  %xmm0,(%r14,%rdx,4)
  cmp    %r8d,%ecx
  jge    L71
  add    %r12d,%r9d
  add    %r9d,%ebp
  add    %r9d,%edi
  add    %r9d,%r11d
  add    %r9d,%r10d
  movslq %ebp,%rdx
  movss  (%r15,%rdx,4),%xmm0
  lea    0xc(%rax,%rbx,1),%edx
  movslq %edx,%rdx
  movss  %xmm0,(%r14,%rdx,4)
  movslq %edi,%rdx
  movss  (%r15,%rdx,4),%xmm0
  lea    0xd(%rax,%rbx,1),%edx
  movslq %edx,%rdx
  movss  %xmm0,(%r14,%rdx,4)
  movslq %r11d,%rdx
  movss  (%r15,%rdx,4),%xmm0
  lea    0xe(%rax,%rbx,1),%edx
  lea    0xf(%rax,%rbx,1),%eax
  movslq %edx,%rdx
  cltq
  movss  %xmm0,(%r14,%rdx,4)
  movslq %r10d,%rdx
  movss  (%r15,%rdx,4),%xmm0
  movss  %xmm0,(%r14,%rax,4)
  jmp    L71
  nopl   0x0(%rax)
L119:
  movss  -0x4(%rsi),%xmm0
  mov    -0x50(%rsp),%ecx
  movslq %edx,%rax
  movss  %xmm0,(%r14,%rax,4)
  cmp    $0x1,%ecx
  je     L200
  lea    -0x2(%r9),%eax
  cltq
  movss  (%r15,%rax,4),%xmm0
  lea    0x1(%rdx),%eax
  cltq
  movss  %xmm0,(%r14,%rax,4)
  cmp    $0x2,%ecx
  je     L200
  lea    -0x1(%r9),%eax
  cltq
  movss  (%r15,%rax,4),%xmm0
  lea    0x2(%rdx),%eax
  cltq
  movss  %xmm0,(%r14,%rax,4)
  cmp    $0x3,%ecx
  jle    L200
  movslq %r9d,%rax
  movss  (%r15,%rax,4),%xmm0
  lea    0x3(%rdx),%eax
  cltq
  movss  %xmm0,(%r14,%rax,4)
  jmp    L200
L85:
  xor    %eax,%eax
  jmp    L272
```

assistant: ```c
void s_cvt_mat2pmat(int row, int col, int offset, int bs_dummy, float *A, int lda, float *pA, int sda) {
  const int bs = 4;
  int i, ii, j, row0, row1, row2;
  row0 = (bs - offset % bs) % bs;
  if (row0 > row)
    row0 = row;
  row1 = row - row0;
  ii = 0;
  if (row0 > 0) {
    for (j = 0; j < col; j++) {
      for (i = 0; i < row0; i++) {
        pA[i + j * bs + ii * sda] = A[i + ii + j * lda];
      }
    }
    A += row0;
    pA += row0 + bs * (sda - 1);
  }
  ii = 0;
  for (; ii < row1 - 3; ii += bs) {
    j = 0;
    for (; j < col - 3; j += 4) {
      pA[0 + (j + 0) * bs + ii * sda] = A[ii + 0 + (j + 0) * lda];
      pA[1 + (j + 0) * bs + ii * sda] = A[ii + 1 + (j + 0) * lda];
      pA[2 + (j + 0) * bs + ii * sda] = A[ii + 2 + (j + 0) * lda];
      pA[3 + (j + 0) * bs + ii * sda] = A[ii + 3 + (j + 0) * lda];
      pA[0 + (j + 1) * bs + ii * sda] = A[ii + 0 + (j + 1) * lda];
      pA[1 + (j + 1) * bs + ii * sda] = A[ii + 1 + (j + 1) * lda];
      pA[2 + (j + 1) * bs + ii * sda] = A[ii + 2 + (j + 1) * lda];
      pA[3 + (j + 1) * bs + ii * sda] = A[ii + 3 + (j + 1) * lda];
      pA[0 + (j + 2) * bs + ii * sda] = A[ii + 0 + (j + 2) * lda];
      pA[1 + (j + 2) * bs + ii * sda] = A[ii + 1 + (j + 2) * lda];
      pA[2 + (j + 2) * bs + ii * sda] = A[ii + 2 + (j + 2) * lda];
      pA[3 + (j + 2) * bs + ii * sda] = A[ii + 3 + (j + 2) * lda];
      pA[0 + (j + 3) * bs + ii * sda] = A[ii + 0 + (j + 3) * lda];
      pA[1 + (j + 3) * bs + ii * sda] = A[ii + 1 + (j + 3) * lda];
      pA[2 + (j + 3) * bs + ii * sda] = A[ii + 2 + (j + 3) * lda];
      pA[3 + (j + 3) * bs + ii * sda] = A[ii + 3 + (j + 3) * lda];
    }
    for (; j < col; j++) {
      pA[0 + (j + 0) * bs + ii * sda] = A[ii + 0 + (j + 0) * lda];
      pA[1 + (j + 0) * bs + ii * sda] = A[ii + 1 + (j + 0) * lda];
      pA[2 + (j + 0) * bs + ii * sda] = A[ii + 2 + (j + 0) * lda];
      pA[3 + (j + 0) * bs + ii * sda] = A[ii + 3 + (j + 0) * lda];
    }
  }
  if (ii < row1) {
    row2 = row1 - ii;
    if (bs < row2)
      row2 = bs;
    for (j = 0; j < col; j++) {
      for (i = 0; i < row2; i++) {
        pA[i + j * bs + ii * sda] = A[i + ii + j * lda];
      }
    }
  }
}
```