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

```asm
<pbchkvect>:
  endbr64
  push   %r15
  mov    %edi,%r11d
  mov    %ecx,%r10d
  mov    $0x2710,%eax
  push   %r14
  push   %r13
  push   %r12
  mov    %esi,%r12d
  mov    %edx,%esi
  push   %rbp
  push   %rbx
  sub    $0x18,%rsp
  mov    0x98(%rsp),%rbx
  mov    (%rbx),%edx
  test   %edx,%edx
  js     L263
L31:
  mov    0x50(%rsp),%edi
  mov    %eax,(%rbx)
  lea    -0x2(%rdi),%edx
  imul   $0x64,%edx,%edx
  cmpl   $0x1,(%r8)
  lea    0x64(%rdx),%edi
  lea    0xc9(%rdx),%ebp
  je     L413
  cmp    %ebp,%eax
  cmovg  %ebp,%eax
  mov    %eax,(%rbx)
L413:
  test   %r11d,%r11d
  js     L67
  test   %esi,%esi
  jle    L419
  test   %r10d,%r10d
  jle    L374
  mov    0x10(%r8),%r14d
  test   %r14d,%r14d
  jle    L560
  mov    0x14(%r8),%r13d
  test   %r13d,%r13d
  jle    L275
  mov    0x18(%r8),%ecx
  test   %ecx,%ecx
  js     L216
  cmp    0x78(%rsp),%ecx
  jge    L216
  mov    0x1c(%r8),%ecx
  test   %ecx,%ecx
  js     L366
  cmp    0x80(%rsp),%ecx
  jge    L366
  cmp    $0x1,%r9d
  je     L473
  cmp    %r9d,0x8(%r8)
  je     L473
  lea    0x12c(%rdx),%ecx
  cmp    %ecx,%eax
  cmovg  %ecx,%eax
  mov    %eax,(%rbx)
  jmp    L373
  nopl   0x0(%rax,%rax,1)
L419:
  cmp    %edx,%eax
  cmovg  %edx,%eax
  mov    %eax,(%rbx)
L373:
  mov    0x8(%r8),%ecx
  test   %r11d,%r11d
  jne    L210
  test   %ecx,%ecx
  jns    L202
  lea    0xca(%rdx),%edi
  lea    0xcb(%rdx),%ecx
  cmp    %eax,%edi
  cmovl  %ecx,%eax
  mov    %eax,(%rbx)
L202:
  mov    0xc(%r8),%ecx
  test   %ecx,%ecx
  js     L508
L8:
  cmp    $0x2710,%eax
  je     L304
L57:
  imul   $0xc28f5c29,%eax,%edx
  mov    %eax,%ecx
  neg    %ecx
  add    $0x51eb850,%edx
  ror    $0x2,%edx
  cmp    $0x28f5c28,%edx
  ja     L164
  movslq %eax,%rdx
  sar    $0x1f,%eax
  imul   $0x51eb851f,%rdx,%rdx
  sar    $0x25,%rdx
  sub    %edx,%eax
  mov    %eax,%ecx
L164:
  mov    %ecx,(%rbx)
  add    $0x18,%rsp
  pop    %rbx
  pop    %rbp
  pop    %r12
  pop    %r13
  pop    %r14
  pop    %r15
  ret
  nopl   0x0(%rax,%rax,1)
L67:
  imul   $0x64,%r12d,%r12d
  cmp    %r12d,%eax
  cmovg  %r12d,%eax
  mov    %eax,(%rbx)
  mov    0x8(%r8),%ecx
L210:
  test   %ecx,%ecx
  jle    L15
  mov    0xc(%r8),%r12d
  test   %r12d,%r12d
  jle    L508
  cmp    %r9d,%ecx
  je     L387
L268:
  cmp    $0x1,%r9d
  jne    L500
  cmp    $0x1,%ecx
  jne    L157
L500:
  cmp    %esi,%ecx
  jl     L246
  cmp    %r10d,%r12d
  jge    L8
L139:
  cmp    %edi,%eax
  cmovg  %edi,%eax
  mov    %eax,(%rbx)
  jmp    L8
  nop
L508:
  lea    0xcb(%rdx),%ecx
  add    $0xcc,%edx
  cmp    %eax,%ecx
  cmovl  %edx,%eax
  mov    %eax,(%rbx)
  cmp    $0x2710,%eax
  jne    L57
L304:
  mov    0x78(%rsp),%eax
  mov    0x14(%r8),%r11d
  sub    $0x1,%esi
  sub    $0x1,%r10d
  add    0x88(%rsp),%eax
  sub    0x18(%r8),%eax
  cltd
  mov    0x80(%rsp),%r9d
  mov    0x90(%rsp),%r15d
  idivl  0x78(%rsp)
  mov    0x10(%r8),%r12d
  lea    (%r15,%r9,1),%eax
  sub    0x1c(%r8),%eax
  mov    %edx,%r14d
  cltd
  idiv   %r9d
  mov    0xc(%r8),%eax
  mov    %edx,%r13d
  cltd
  idiv   %r11d
  mov    %eax,%ecx
  mov    0x8(%r8),%eax
  cltd
  idiv   %r12d
  cltd
  idivl  0x78(%rsp)
  imul   %r12d,%eax
  mov    %edx,0x8(%rsp)
  mov    %eax,%edi
  mov    %ecx,%eax
  cltd
  idiv   %r9d
  mov    %eax,%ecx
  mov    %esi,%eax
  mov    %edx,0xc(%rsp)
  cltd
  imul   %r11d,%ecx
  idiv   %r12d
  mov    %eax,%r12d
  mov    %r10d,%eax
  cltd
  idiv   %r11d
  mov    %eax,%r11d
  mov    0x18(%r8),%eax
  add    %r12d,%eax
  cltd
  idivl  0x78(%rsp)
  mov    0x68(%rsp),%rax
  mov    %edx,(%rax)
  mov    0x1c(%r8),%eax
  add    %r11d,%eax
  cltd
  idiv   %r9d
  mov    0x70(%rsp),%rax
  mov    %edx,(%rax)
  mov    %r12d,%eax
  cltd
  idivl  0x78(%rsp)
  add    $0x1,%eax
  imul   0x10(%r8),%eax
  mov    %edx,%r12d
  mov    0x58(%rsp),%rdx
  add    $0x1,%eax
  mov    %eax,(%rdx)
  mov    %r11d,%eax
  cltd
  idiv   %r9d
  add    $0x1,%eax
  imul   0x14(%r8),%eax
  mov    %edx,%r11d
  mov    0x60(%rsp),%rdx
  add    $0x1,%eax
  mov    %eax,(%rdx)
  cmp    %r14d,%r12d
  jg     L462
  mov    0x58(%rsp),%rax
  mov    0x88(%rsp),%edx
  mov    (%rax),%r9d
  mov    0x68(%rsp),%rax
  cmp    %edx,(%rax)
  jne    L256
  mov    %esi,%eax
  cltd
  idivl  0x10(%r8)
  mov    0x58(%rsp),%rax
  add    %edx,%r9d
  mov    %r9d,(%rax)
L256:
  mov    0x58(%rsp),%rax
  sub    0x10(%r8),%r9d
  mov    %r9d,(%rax)
L462:
  cmp    0x8(%rsp),%r14d
  jl     L299
  jne    L23
  mov    0x8(%r8),%eax
  cltd
  idivl  0x10(%r8)
  add    %edx,%edi
  nopl   0x0(%rax,%rax,1)
L23:
  test   %edi,%edi
  mov    $0x1,%esi
  cmovg  %edi,%esi
  cmp    %r13d,%r11d
  jg     L161
  mov    0x60(%rsp),%rax
  mov    (%rax),%edi
  mov    0x70(%rsp),%rax
  cmp    (%rax),%r15d
  jne    L244
  mov    %r10d,%eax
  cltd
  idivl  0x14(%r8)
  mov    0x60(%rsp),%rax
  add    %edx,%edi
  mov    %edi,(%rax)
L244:
  mov    0x60(%rsp),%rax
  sub    0x14(%r8),%edi
  mov    %edi,(%rax)
L161:
  cmp    0xc(%rsp),%r13d
  jge    L365
  add    0x14(%r8),%ecx
L88:
  mov    0x58(%rsp),%rax
  mov    0x58(%rsp),%rdi
  mov    (%rax),%eax
  cmp    %esi,%eax
  cmovg  %esi,%eax
  test   %ecx,%ecx
  mov    %eax,(%rdi)
  mov    $0x1,%eax
  cmovle %eax,%ecx
  mov    0x60(%rsp),%rax
  mov    (%rax),%eax
  cmp    %eax,%ecx
  cmovg  %eax,%ecx
  mov    0x60(%rsp),%rax
  mov    %ecx,(%rax)
  cmp    %esi,0x20(%r8)
  jl     L151
L337:
  xor    %ecx,%ecx
  jmp    L164
  nopl   0x0(%rax,%rax,1)
L263:
  cmp    $0xffffff9c,%edx
  jge    L372
  mov    %edx,%eax
  neg    %eax
  jmp    L31
  xchg   %ax,%ax
L15:
  lea    0xca(%rdx),%ecx
  add    $0xcb,%edx
  cmp    %eax,%ecx
  cmovl  %edx,%eax
  mov    %eax,(%rbx)
  jmp    L8
  nopl   0x0(%rax,%rax,1)
L372:
  imul   $0xffffff9c,%edx,%eax
  jmp    L31
  nopl   0x0(%rax,%rax,1)
L299:
  add    0x10(%r8),%edi
  jmp    L23
  nopl   0x0(%rax)
L151:
  lea    0x1c(%r8),%rcx
  lea    0x14(%r8),%rsi
  xor    %eax,%eax
  lea    0xc(%r8),%rdi
  lea    0x90(%rsp),%rdx
  lea    0x80(%rsp),%r8
  call   <numroc_@plt>
  test   %eax,%eax
  je     L337
  mov    $0xfffffff8,%ecx
  sub    %ebp,%ecx
  jmp    L164
  nopw   0x0(%rax,%rax,1)
L560:
  lea    0xcc(%rdx),%r12d
  lea    0xcd(%rdx),%ecx
  cmp    %eax,%r12d
  cmovl  %ecx,%eax
  mov    %eax,(%rbx)
  jmp    L373
  nopw   0x0(%rax,%rax,1)
L216:
  lea    0xce(%rdx),%r12d
  lea    0xcf(%rdx),%ecx
  cmp    %eax,%r12d
  cmovl  %ecx,%eax
  mov    %eax,(%rbx)
  jmp    L373
  nopw   0x0(%rax,%rax,1)
L365:
  jne    L88
  mov    0xc(%r8),%eax
  cltd
  idivl  0x14(%r8)
  add    %edx,%ecx
  jmp    L88
  cs nopw 0x0(%rax,%rax,1)
L374:
  cmp    %edi,%eax
  cmovg  %edi,%eax
  mov    %eax,(%rbx)
  jmp    L373
  nopl   0x0(%rax)
L157:
  lea    -0x1(%r11,%rsi,1),%r9d
  cmp    %r9d,%ecx
  jge    L500
L246:
  cmp    %edx,%eax
  cmovg  %edx,%eax
  mov    %eax,(%rbx)
  jmp    L8
  nopw   0x0(%rax,%rax,1)
L387:
  lea    -0x1(%r11,%r10,1),%r13d
  cmp    %r13d,%r12d
  jge    L268
  jmp    L139
  nopl   0x0(%rax,%rax,1)
L275:
  lea    0xcd(%rdx),%r12d
  lea    0xce(%rdx),%ecx
  cmp    %eax,%r12d
  cmovl  %ecx,%eax
  mov    %eax,(%rbx)
  jmp    L373
  nopw   0x0(%rax,%rax,1)
L366:
  lea    0xcf(%rdx),%r12d
  lea    0xd0(%rdx),%ecx
  cmp    %eax,%r12d
  cmovl  %ecx,%eax
  mov    %eax,(%rbx)
  jmp    L373
L473:
  mov    0x20(%r8),%r12d
  test   %r12d,%r12d
  jg     L373
  lea    0xd0(%rdx),%r12d
  lea    0xd1(%rdx),%ecx
  cmp    %eax,%r12d
  cmovl  %ecx,%eax
  mov    %eax,(%rbx)
  jmp    L373
```

assistant: ```c
void pbchkvect(n, npos0, ix, jx, desc_X, incx, dpos0, iix, jjx, ixrow, ixcol, nprow, npcol, myrow, mycol, info) int dpos0, *iix, incx, *info, ix, *ixcol, *ixrow, *jjx, jx, myrow, mycol, npcol, nprow, n, npos0;
int desc_X[];
{
  int descpos, ExtraColBlock, ExtraRowBlock, icpos, ixpos, jxpos, MyColBlock, MyColDist, MyRowBlock, MyRowDist, NColBlock, np, npos, nq, NRowBlock;
  int numroc_();
  if (*info >= 0)
    *info = 10000;
  else if (*info < -100)
    *info = -(*info);
  else
    *info = -(*info) * 100;
  npos = npos0 * 100;
  ixpos = (dpos0 - 2) * 100;
  jxpos = (dpos0 - 1) * 100;
  icpos = (dpos0 + 1) * 100;
  descpos = dpos0 * 100 + 1;
  if (desc_X[0] != 1)
    *info = (((*info) < (descpos + 0)) ? (*info) : (descpos + 0));
  if (n < 0)
    *info = (((*info) < (npos)) ? (*info) : (npos));
  else if (ix < 1)
    *info = (((*info) < (ixpos)) ? (*info) : (ixpos));
  else if (jx < 1)
    *info = (((*info) < (jxpos)) ? (*info) : (jxpos));
  else if (desc_X[4] < 1)
    *info = (((*info) < (descpos + 4)) ? (*info) : (descpos + 4));
  else if (desc_X[5] < 1)
    *info = (((*info) < (descpos + 5)) ? (*info) : (descpos + 5));
  else if ((desc_X[6] < 0) || (desc_X[6] >= nprow))
    *info = (((*info) < (descpos + 6)) ? (*info) : (descpos + 6));
  else if ((desc_X[7] < 0) || (desc_X[7] >= npcol))
    *info = (((*info) < (descpos + 7)) ? (*info) : (descpos + 7));
  else if (incx != 1 && incx != desc_X[2])
    *info = (((*info) < (icpos)) ? (*info) : (icpos));
  else if (desc_X[8] < 1)
    *info = (((*info) < (descpos + 8)) ? (*info) : (descpos + 8));
  if (n == 0) {
    if (desc_X[2] < 0)
      *info = (((*info) < (descpos + 2)) ? (*info) : (descpos + 2));
    if (desc_X[3] < 0)
      *info = (((*info) < (descpos + 3)) ? (*info) : (descpos + 3));
  } else {
    if (desc_X[2] < 1)
      *info = (((*info) < (descpos + 2)) ? (*info) : (descpos + 2));
    else if (desc_X[3] < 1)
      *info = (((*info) < (descpos + 3)) ? (*info) : (descpos + 3));
    else if ((incx == desc_X[2]) && (jx + n - 1 > desc_X[3]))
      *info = (((*info) < (jxpos)) ? (*info) : (jxpos));
    else if ((incx == 1) && (incx != desc_X[2]) && (ix + n - 1 > desc_X[2]))
      *info = (((*info) < (ixpos)) ? (*info) : (ixpos));
    else {
      if (ix > desc_X[2])
        *info = (((*info) < (ixpos)) ? (*info) : (ixpos));
      else if (jx > desc_X[3])
        *info = (((*info) < (jxpos)) ? (*info) : (jxpos));
    }
  }
  if (*info == 10000) {
    MyRowDist = (myrow + nprow - desc_X[6]) % nprow;
    MyColDist = (mycol + npcol - desc_X[7]) % npcol;
    NRowBlock = desc_X[2] / desc_X[4];
    NColBlock = desc_X[3] / desc_X[5];
    np = (NRowBlock / nprow) * desc_X[4];
    nq = (NColBlock / npcol) * desc_X[5];
    ExtraRowBlock = NRowBlock % nprow;
    ExtraColBlock = NColBlock % npcol;
    ix--;
    jx--;
    MyRowBlock = ix / desc_X[4];
    MyColBlock = jx / desc_X[5];
    *ixrow = (MyRowBlock + desc_X[6]) % nprow;
    *ixcol = (MyColBlock + desc_X[7]) % npcol;
    *iix = (MyRowBlock / nprow + 1) * desc_X[4] + 1;
    *jjx = (MyColBlock / npcol + 1) * desc_X[5] + 1;
    if (MyRowDist >= (MyRowBlock % nprow)) {
      if (myrow == *ixrow)
        *iix += ix % desc_X[4];
      *iix -= desc_X[4];
    }
    if (MyRowDist < ExtraRowBlock)
      np += desc_X[4];
    else if (MyRowDist == ExtraRowBlock)
      np += (desc_X[2] % desc_X[4]);
    np = (((1) > (np)) ? (1) : (np));
    if (MyColDist >= (MyColBlock % npcol)) {
      if (mycol == *ixcol)
        *jjx += jx % desc_X[5];
      *jjx -= desc_X[5];
    }
    if (MyColDist < ExtraColBlock)
      nq += desc_X[5];
    else if (MyColDist == ExtraColBlock)
      nq += (desc_X[3] % desc_X[5]);
    nq = (((1) > (nq)) ? (1) : (nq));
    *iix = (((*iix) < (np)) ? (*iix) : (np));
    *jjx = (((*jjx) < (nq)) ? (*jjx) : (nq));
    if (desc_X[8] < np) {
      if (numroc_(&desc_X[3], &desc_X[5], &mycol, &desc_X[7], &npcol))
        *info = -(descpos + 8);
      else
        *info = 0;
    } else
      *info = 0;
  } else if (*info % 100 == 0) {
    *info = -(*info) / 100;
  } else {
    *info = -(*info);
  }
}
```