user: 这段汇编代码用C语言表示是什么样的:

```asm
<delnod_>:
  endbr64
  push   %r15
  push   %r14
  push   %r13
  push   %r12
  push   %rbp
  push   %rbx
  sub    $0x48,%rsp
  mov    %rsi,0x10(%rsp)
  mov    %rdx,0x20(%rsp)
  mov    %rcx,0x28(%rsp)
  mov    %r8,0x30(%rsp)
  mov    %r9,0x8(%rsp)
  mov    (%rdi),%edx
  mov    %edx,D1675(%rip)
  mov    (%rsi),%ecx
  mov    %ecx,D1570(%rip)
  cmp    %ecx,%edx
  setg   %al
  test   %edx,%edx
  setle  %sil
  or     %esi,%eax
  cmp    $0x3,%ecx
  setle  %cl
  mov    $0x1,%esi
  or     %cl,%al
  mov    %al,0x3b(%rsp)
  je     L486
L189:
  mov    0xa8(%rsp),%rax
  mov    %esi,(%rax)
  mov    $0x0,%eax
  add    $0x48,%rsp
  pop    %rbx
  pop    %rbp
  pop    %r12
  pop    %r13
  pop    %r14
  pop    %r15
  ret
L486:
  mov    0x98(%rsp),%rax
  cmpl   $0x0,(%rax)
  js     L189
  mov    0x88(%rsp),%rax
  lea    -0x4(%rax),%r12
  mov    0x80(%rsp),%rax
  lea    -0x4(%rax),%rbp
  lea    -0x4(%r9),%rbx
  movslq %edx,%rdx
  mov    (%r12,%rdx,4),%eax
  mov    %eax,D1363(%rip)
  cltq
  mov    0x0(%rbp,%rax,4),%eax
  mov    %eax,D1256(%rip)
  mov    0x80(%rsp),%rsi
  lea    D1363(%rip),%rdi
  call   <nbcnt_@plt>
  movslq D1363(%rip),%rdx
  mov    (%rbx,%rdx,4),%ecx
  mov    %ecx,%edx
  shr    $0x1f,%edx
  mov    %edx,D1033(%rip)
  lea    0x1(%rax),%edx
  test   %ecx,%ecx
  cmovs  %edx,%eax
  mov    %eax,D1638(%rip)
  cmp    $0x2,%eax
  jle    L183
  mov    0x98(%rsp),%rdi
  mov    (%rdi),%ecx
  lea    -0x3(%rax),%edx
  mov    %edx,(%rdi)
  mov    $0x2,%esi
  cmp    %edx,%ecx
  jl     L189
  mov    0x30(%rsp),%rdi
  lea    -0x8(%rdi),%r13
  mov    0x28(%rsp),%rdi
  lea    -0x8(%rdi),%r14
  mov    0x20(%rsp),%rdi
  lea    -0x8(%rdi),%r15
  movl   $0x0,D638(%rip)
  cmp    $0x3,%eax
  je     L267
  mov    0xa0(%rsp),%rax
  sub    $0xc,%rax
  mov    %rax,0x18(%rsp)
  movslq D1675(%rip),%rax
  movsd  (%r15,%rax,8),%xmm0
  movsd  %xmm0,D1204(%rip)
  movsd  (%r14,%rax,8),%xmm0
  movsd  %xmm0,D1299(%rip)
  movsd  0x0(%r13,%rax,8),%xmm0
  movsd  %xmm0,D36(%rip)
  movslq D1256(%rip),%rdx
  mov    (%rbx,%rdx,4),%eax
  mov    %eax,D15(%rip)
  mov    %eax,D1059(%rip)
  cltq
  movsd  (%r15,%rax,8),%xmm0
  movsd  %xmm0,D439(%rip)
  movsd  (%r14,%rax,8),%xmm0
  movsd  %xmm0,D104(%rip)
  movsd  0x0(%r13,%rax,8),%xmm0
  movsd  %xmm0,D144(%rip)
  movslq 0x0(%rbp,%rdx,4),%rdx
  mov    (%rbx,%rdx,4),%eax
  mov    %eax,D1848(%rip)
  cltq
  movsd  (%r15,%rax,8),%xmm0
  movsd  %xmm0,D1576(%rip)
  movsd  (%r14,%rax,8),%xmm0
  movsd  %xmm0,D1471(%rip)
  movsd  0x0(%r13,%rax,8),%xmm0
  movsd  %xmm0,D369(%rip)
  mov    0x0(%rbp,%rdx,4),%eax
  mov    %eax,D183(%rip)
  jmp    L68
L215:
  cmpl   $0x0,D1033(%rip)
  je     L633
  jmp    L402
L361:
  sub    $0x8,%rsp
  lea    D36(%rip),%rax
  push   %rax
  lea    D1299(%rip),%rax
  push   %rax
  lea    D1204(%rip),%rax
  push   %rax
  lea    D1756(%rip),%r9
  lea    D1383(%rip),%r8
  lea    D1748(%rip),%rcx
  lea    D144(%rip),%rdx
  lea    D104(%rip),%rsi
  lea    D439(%rip),%rdi
  call   <left_@plt>
  add    $0x20,%rsp
  test   %eax,%eax
  jne    L177
L278:
  mov    D1848(%rip),%eax
  mov    %eax,D267(%rip)
  movsd  D1576(%rip),%xmm0
  movsd  %xmm0,D267(%rip)
  movsd  D1471(%rip),%xmm0
  movsd  %xmm0,D267(%rip)
  movsd  D369(%rip),%xmm0
  movsd  %xmm0,D267(%rip)
L230:
  mov    D15(%rip),%eax
  cmp    %eax,D267(%rip)
  je     L607
  mov    D267(%rip),%eax
  mov    %eax,D1253(%rip)
  movsd  D1748(%rip),%xmm0
  movsd  %xmm0,D1253(%rip)
  movsd  D1383(%rip),%xmm0
  movsd  %xmm0,D1253(%rip)
  movsd  D1756(%rip),%xmm0
  movsd  %xmm0,D1253(%rip)
  movslq D183(%rip),%rax
  mov    0x0(%rbp,%rax,4),%eax
  mov    %eax,D1253(%rip)
L68:
  movslq D1253(%rip),%rax
  mov    (%rbx,%rax,4),%edx
  mov    %edx,%eax
  neg    %eax
  cmovs  %edx,%eax
  mov    %eax,D1253(%rip)
  cmp    D15(%rip),%eax
  je     L215
L633:
  cltq
  movsd  (%r15,%rax,8),%xmm0
  movsd  %xmm0,D1253(%rip)
  movsd  (%r14,%rax,8),%xmm0
  movsd  %xmm0,D1253(%rip)
  movsd  0x0(%r13,%rax,8),%xmm0
  movsd  %xmm0,D1253(%rip)
  movslq D1253(%rip),%rax
  mov    (%r12,%rax,4),%eax
  mov    %eax,D1253(%rip)
  cmpl   $0x0,D1033(%rip)
  je     L361
L177:
  movslq D1253(%rip),%rax
  cmpl   $0x0,(%rbx,%rax,4)
  js     L489
  sub    $0x8,%rsp
  lea    D1253(%rip),%rax
  push   %rax
  lea    D1253(%rip),%rax
  push   %rax
  lea    D1253(%rip),%rax
  push   %rax
  lea    D267(%rip),%r9
  lea    D267(%rip),%r8
  lea    D267(%rip),%rcx
  lea    D1253(%rip),%rdx
  lea    D1253(%rip),%rsi
  lea    D1253(%rip),%rdi
  call   <left_@plt>
  add    $0x20,%rsp
  test   %eax,%eax
  je     L278
L489:
  lea    D1861(%rip),%rax
  push   %rax
  push   0x90(%rsp)
  mov    0x90(%rsp),%r9
  mov    0x18(%rsp),%r8
  lea    D1253(%rip),%rcx
  lea    D1675(%rip),%rdx
  lea    D267(%rip),%rsi
  lea    D1253(%rip),%rdi
  call   <swap_@plt>
  add    $0x10,%rsp
  cmpl   $0x0,D1861(%rip)
  je     L662
  mov    D638(%rip),%eax
  add    $0x1,%eax
  mov    %eax,D361(%rip)
  mov    D1253(%rip),%edx
  cmp    D1675(%rip),%edx
  jg     L294
  add    %eax,%eax
  cltq
  mov    0x18(%rsp),%rdi
  mov    %edx,0x4(%rdi,%rax,4)
L672:
  mov    D267(%rip),%eax
  cmp    D1675(%rip),%eax
  jg     L341
  mov    D361(%rip),%edi
  lea    (%rdi,%rdi,1),%edx
  movslq %edx,%rdx
  mov    0x18(%rsp),%rdi
  mov    %eax,0x8(%rdi,%rdx,4)
L521:
  movslq D1675(%rip),%rax
  mov    (%r12,%rax,4),%edx
  mov    %edx,D361(%rip)
  mov    D1638(%rip),%eax
  sub    $0x1,%eax
  mov    %eax,D361(%rip)
  cmp    $0x3,%eax
  je     L267
  movslq %edx,%rdx
  mov    0x0(%rbp,%rdx,4),%eax
  mov    %eax,D361(%rip)
  cltq
  mov    (%rbx,%rax,4),%eax
  mov    %eax,D361(%rip)
  mov    0x80(%rsp),%rcx
  mov    0x8(%rsp),%rdx
  lea    D1253(%rip),%rsi
  lea    D361(%rip),%rdi
  call   <lstptr_@plt>
  mov    %eax,D361(%rip)
  mov    D267(%rip),%eax
  cmp    D361(%rip),%eax
  je     L230
  mov    %eax,D361(%rip)
  movsd  D267(%rip),%xmm0
  movsd  %xmm0,D361(%rip)
  movsd  D267(%rip),%xmm0
  movsd  %xmm0,D361(%rip)
  movsd  D267(%rip),%xmm0
  movsd  %xmm0,D361(%rip)
  movslq D1861(%rip),%rax
  mov    0x0(%rbp,%rax,4),%eax
  mov    %eax,D361(%rip)
  cltq
  mov    0x0(%rbp,%rax,4),%eax
  mov    %eax,D361(%rip)
  cltq
  mov    (%rbx,%rax,4),%edx
  mov    %edx,%eax
  neg    %eax
  cmovs  %edx,%eax
  mov    %eax,D361(%rip)
  cltq
  movsd  (%r15,%rax,8),%xmm0
  movsd  %xmm0,D361(%rip)
  movsd  (%r14,%rax,8),%xmm0
  movsd  %xmm0,D361(%rip)
  movsd  0x0(%r13,%rax,8),%xmm0
  movsd  %xmm0,D361(%rip)
  jmp    L68
L662:
  mov    D361(%rip),%eax
  mov    %eax,D361(%rip)
  movsd  D361(%rip),%xmm0
  movsd  %xmm0,D361(%rip)
  movsd  D361(%rip),%xmm0
  movsd  %xmm0,D361(%rip)
  movsd  D361(%rip),%xmm0
  movsd  %xmm0,D361(%rip)
  jmp    L230
L294:
  add    %eax,%eax
  cltq
  sub    $0x1,%edx
  mov    0x18(%rsp),%rdi
  mov    %edx,0x4(%rdi,%rax,4)
  jmp    L672
L341:
  mov    D361(%rip),%edi
  lea    (%rdi,%rdi,1),%edx
  movslq %edx,%rdx
  sub    $0x1,%eax
  mov    0x18(%rsp),%rdi
  mov    %eax,0x8(%rdi,%rdx,4)
  jmp    L521
L607:
  cmpl   $0x0,D1033(%rip)
  jne    L402
  cmpl   $0x3,D361(%rip)
  jle    L426
  movl   $0x1,D1033(%rip)
L384:
  mov    D1570(%rip),%ecx
  movl   $0x1,D361(%rip)
  test   %ecx,%ecx
  jle    L152
  mov    $0x2,%eax
  mov    $0x1,%esi
  movzbl 0x3b(%rsp),%r8d
  mov    0x88(%rsp),%rdi
L650:
  movslq -0x8(%rdi,%rax,4),%rdx
  cmpl   $0x0,(%rbx,%rdx,4)
  js     L670
  mov    %eax,0x3c(%rsp)
  add    $0x1,%rax
  mov    %esi,%r8d
  lea    -0x1(%rax),%edx
  cmp    %edx,%ecx
  jge    L650
  mov    0x3c(%rsp),%eax
  mov    %eax,D142(%rip)
L152:
  movslq D361(%rip),%rax
  negl   (%rbx,%rax,4)
  addl   $0x1,D361(%rip)
  jmp    L402
L670:
  test   %r8b,%r8b
  je     L639
  mov    0x3c(%rsp),%eax
  mov    %eax,D142(%rip)
L639:
  movl   $0x0,D1033(%rip)
  jmp    L102
L251:
  mov    %edx,D142(%rip)
  jmp    L110
L599:
  mov    D142(%rip),%eax
  cmp    %eax,D142(%rip)
  je     L548
L508:
  movslq D142(%rip),%rax
  mov    0x0(%rbp,%rax,4),%eax
  mov    %eax,D142(%rip)
  cltq
  mov    (%rbx,%rax,4),%edx
  mov    %edx,%eax
  neg    %eax
  cmovs  %edx,%eax
  mov    %eax,D142(%rip)
  push   %r15
  push   %r14
  mov    0x98(%rsp),%r9
  mov    0x90(%rsp),%r8
  mov    0x18(%rsp),%rcx
  mov    0x20(%rsp),%rdx
  mov    %r13,%rsi
  mov    %r12,%rdi
  call   <delnb_@plt>
  mov    D142(%rip),%edx
  add    $0x10,%rsp
  test   %edx,%edx
  js     L183
  mov    D1716(%rip),%eax
  cmp    %eax,D852(%rip)
  je     L251
L110:
  cmp    D142(%rip),%eax
  jne    L599
  mov    %edx,D852(%rip)
  jmp    L599
L548:
  mov    D1570(%rip),%ecx
  lea    -0x1(%rcx),%r10d
  mov    %r10d,D852(%rip)
  mov    D1675(%rip),%eax
  cmp    %eax,%r10d
  jl     L283
  cltq
  mov    0x20(%rsp),%rdx
  mov    0x28(%rsp),%rsi
  mov    0x30(%rsp),%rdi
  mov    0x88(%rsp),%r8
L625:
  movsd  (%rdx,%rax,8),%xmm0
  movsd  %xmm0,-0x8(%rdx,%rax,8)
  movsd  (%rsi,%rax,8),%xmm0
  movsd  %xmm0,-0x8(%rsi,%rax,8)
  movsd  (%rdi,%rax,8),%xmm0
  movsd  %xmm0,-0x8(%rdi,%rax,8)
  mov    (%r8,%rax,4),%r9d
  mov    %r9d,-0x4(%r8,%rax,4)
  add    $0x1,%rax
  cmp    %eax,%r10d
  jge    L625
  mov    D1716(%rip),%r9d
  movl   $0x1,D142(%rip)
  cmp    $0x1,%r9d
  jle    L283
  mov    0x8(%rsp),%rdi
  mov    %rdi,%rax
  lea    -0x1(%r9),%edx
  lea    (%rdi,%rdx,4),%r8
  jmp    L556
L281:
  add    $0x4,%rax
  cmp    %r8,%rax
  je     L35
L556:
  mov    %rax,%rdi
  mov    (%rax),%edx
  cmp    D1675(%rip),%edx
  jle    L238
  sub    $0x1,%edx
  mov    %edx,(%rax)
L238:
  mov    (%rdi),%esi
  mov    D1675(%rip),%edx
  neg    %edx
  cmp    %edx,%esi
  jge    L281
  add    $0x1,%esi
  mov    %esi,(%rdi)
  jmp    L281
L35:
  mov    %r9d,D852(%rip)
L283:
  cmpl   $0x0,D1033(%rip)
  je     L683
  subl   $0x1,D361(%rip)
L683:
  mov    D852(%rip),%edi
  mov    %edi,D852(%rip)
  mov    D361(%rip),%r11d
  movl   $0x1,D339(%rip)
  test   %r11d,%r11d
  jle    L660
  lea    -0x1(%rcx),%eax
  cltq
  mov    0x88(%rsp),%rsi
  lea    -0x4(%rsi,%rax,4),%r12
  movslq %ecx,%rax
  lea    -0xc(,%rax,4),%rsi
  lea    -0x2(%rcx),%eax
  shl    $0x2,%rax
  sub    %rax,%rsi
  add    0x88(%rsp),%rsi
  mov    $0x0,%r9d
  mov    $0x0,%r13d
  mov    0x80(%rsp),%rdx
  jmp    L308
L540:
  mov    %edi,(%rax)
  jmp    L80
L22:
  mov    %edi,(%rax)
L136:
  mov    D1716(%rip),%eax
  sub    $0x1,%eax
  test   %eax,%eax
  jle    L26
  cltq
  jmp    L82
L25:
  sub    $0x1,%rax
  test   %eax,%eax
  jle    L103
L82:
  mov    D1716(%rip),%ecx
  cmp    %ecx,-0x4(%rdx,%rax,4)
  jne    L25
  mov    %edi,-0x4(%rdx,%rax,4)
  jmp    L25
L103:
  mov    %r13d,%eax
L26:
  lea    0x1(%r9),%ecx
  cmp    %r11d,%ecx
  je     L474
  mov    %ecx,%r9d
  mov    %r8d,%edi
L308:
  mov    D1716(%rip),%eax
  sub    $0x1,%eax
  mov    %eax,D929(%rip)
  movslq %edi,%r14
  lea    0x0(%rbp,%r14,4),%rcx
  mov    (%rcx),%r8d
  cltq
  mov    (%rbx,%rax,4),%eax
  mov    %eax,(%rbx,%r14,4)
  movslq D929(%rip),%rax
  mov    0x0(%rbp,%rax,4),%eax
  mov    %eax,(%rcx)
  movslq %r8d,%rax
  lea    0x0(%rbp,%rax,4),%rax
  mov    D929(%rip),%ecx
  cmp    %ecx,(%rax)
  je     L540
L80:
  mov    D929(%rip),%ecx
  cmp    %ecx,%r8d
  cmove  %edi,%r8d
  test   %r10d,%r10d
  jle    L136
  mov    %r12,%rax
L686:
  cmp    (%rax),%ecx
  je     L22
  sub    $0x4,%rax
  cmp    %rax,%rsi
  jne    L686
  jmp    L136
L474:
  mov    %eax,D929(%rip)
  add    $0x2,%r9d
  mov    %r9d,D929(%rip)
  mov    %edi,D929(%rip)
  mov    %r8d,D929(%rip)
L660:
  mov    0x10(%rsp),%rax
  mov    %r10d,(%rax)
  mov    D929(%rip),%eax
  mov    0x90(%rsp),%rbx
  mov    %eax,(%rbx)
  mov    D361(%rip),%eax
  test   %eax,%eax
  jg     L675
L499:
  mov    $0x0,%esi
  jmp    L189
L675:
  shl    $0x2,%eax
  mov    %eax,D929(%rip)
  lea    D1637(%rip),%rax
  push   %rax
  push   0xa8(%rsp)
  lea    D929(%rip),%rax
  push   %rax
  push   0xa0(%rsp)
  mov    0xa0(%rsp),%r9
  mov    0x28(%rsp),%r8
  lea    D361(%rip),%rcx
  mov    0x50(%rsp),%rdx
  mov    0x48(%rsp),%rsi
  mov    0x40(%rsp),%rdi
  call   <optim_@plt>
  mov    D1637(%rip),%eax
  add    $0x20,%rsp
  mov    $0x5,%esi
  cmp    $0x1,%eax
  ja     L189
  mov    $0x6,%esi
  jne    L499
  jmp    L189
L183:
  mov    $0x3,%esi
  jmp    L189
L267:
  cmpl   $0x0,D1033(%rip)
  jne    L402
L426:
  movslq D852(%rip),%rdx
  mov    0x0(%rbp,%rdx,4),%eax
  mov    %eax,D721(%rip)
  cltq
  mov    (%rbx,%rax,4),%ecx
  mov    %ecx,D721(%rip)
  mov    0x0(%rbp,%rax,4),%eax
  mov    %eax,D721(%rip)
  cltq
  mov    (%rbx,%rax,4),%eax
  mov    %eax,D721(%rip)
  mov    (%rbx,%rdx,4),%edx
  mov    %edx,D721(%rip)
  cltq
  shl    $0x3,%rax
  movslq %edx,%rdx
  shl    $0x3,%rdx
  movslq %ecx,%rcx
  shl    $0x3,%rcx
  lea    (%r15,%rdx,1),%r11
  lea    0x0(%r13,%rcx,1),%r10
  lea    (%r14,%rcx,1),%rsi
  lea    (%r15,%rcx,1),%rdi
  sub    $0x8,%rsp
  lea    0x0(%r13,%rax,1),%rcx
  push   %rcx
  lea    (%r14,%rax,1),%rcx
  push   %rcx
  add    %r15,%rax
  push   %rax
  lea    0x0(%r13,%rdx,1),%r9
  lea    (%r14,%rdx,1),%r8
  mov    %r11,%rcx
  mov    %r10,%rdx
  call   <left_@plt>
  mov    %eax,D721(%rip)
  add    $0x20,%rsp
  test   %eax,%eax
  jne    L384
L102:
  mov    $0x4,%esi
  cmpl   $0x3,D361(%rip)
  jg     L189
L402:
  mov    D852(%rip),%eax
  mov    %eax,D721(%rip)
  mov    0x90(%rsp),%rax
  mov    (%rax),%eax
  mov    %eax,D721(%rip)
  lea    D142(%rip),%r15
  lea    D721(%rip),%r14
  lea    D1675(%rip),%r13
  lea    D721(%rip),%r12
  jmp    L508
```

assistant: ```c
int delnod_(int *k, int *n, double *x, double *y, double *z__, int *list, int *lptr, int *lend, int *lnew, int *lwk, int *iwk, int *ier) {
  int i__1;
  static int i__, j, n1, n2;
  static double x1, x2, y11, y2, z1, z2;
  static int nl, lp, nn, nr;
  static double xl, yl, zl, xr, yr, zr;
  static int nnb, lp21, lpf, lph, lpl, lpn, iwl, nit, lnw, lpl2;
  static int bdry;
  static int ierr, lwkl;
  static int nfrst;
  iwk -= 3;
  --lend;
  --lptr;
  --list;
  --z__;
  --y;
  --x;
  n1 = *k;
  nn = *n;
  if (n1 < 1 || n1 > nn || nn < 4 || *lwk < 0) {
    goto L21;
  }
  lpl = lend[n1];
  lpf = lptr[lpl];
  nnb = nbcnt_(&lpl, &lptr[1]);
  bdry = list[lpl] < 0;
  if (bdry) {
    ++nnb;
  }
  if (nnb < 3) {
    goto L23;
  }
  lwkl = *lwk;
  *lwk = nnb - 3;
  if (lwkl < *lwk) {
    goto L22;
  }
  iwl = 0;
  if (nnb == 3) {
    goto L3;
  }
  x1 = x[n1];
  y11 = y[n1];
  z1 = z__[n1];
  nfrst = list[lpf];
  nr = nfrst;
  xr = x[nr];
  yr = y[nr];
  zr = z__[nr];
  lp = lptr[lpf];
  n2 = list[lp];
  x2 = x[n2];
  y2 = y[n2];
  z2 = z__[n2];
  lp = lptr[lp];
L1:
  nl = (i__1 = list[lp], ((i__1) >= 0 ? (i__1) : -(i__1)));
  if (nl == nfrst && bdry) {
    goto L3;
  }
  xl = x[nl];
  yl = y[nl];
  zl = z__[nl];
  lpl2 = lend[n2];
  if (!((bdry || left_(&xr, &yr, &zr, &xl, &yl, &zl, &x1, &y11, &z1)) && (list[lpl2] < 0 || left_(&xl, &yl, &zl, &xr, &yr, &zr, &x2, &y2, &z2)))) {
    nr = n2;
    xr = x2;
    yr = y2;
    zr = z2;
    goto L2;
  }
  swap_(&nl, &nr, &n1, &n2, &list[1], &lptr[1], &lend[1], &lp21);
  if (lp21 == 0) {
    nr = n2;
    xr = x2;
    yr = y2;
    zr = z2;
    goto L2;
  }
  ++iwl;
  if (nl <= n1) {
    iwk[(iwl << 1) + 1] = nl;
  } else {
    iwk[(iwl << 1) + 1] = nl - 1;
  }
  if (nr <= n1) {
    iwk[(iwl << 1) + 2] = nr;
  } else {
    iwk[(iwl << 1) + 2] = nr - 1;
  }
  lpl = lend[n1];
  --nnb;
  if (nnb == 3) {
    goto L3;
  }
  lpf = lptr[lpl];
  nfrst = list[lpf];
  lp = lstptr_(&lpl, &nl, &list[1], &lptr[1]);
  if (nr == nfrst) {
    goto L2;
  }
  n2 = nr;
  x2 = xr;
  y2 = yr;
  z2 = zr;
  lp21 = lptr[lp21];
  lp21 = lptr[lp21];
  nr = (i__1 = list[lp21], ((i__1) >= 0 ? (i__1) : -(i__1)));
  xr = x[nr];
  yr = y[nr];
  zr = z__[nr];
  goto L1;
L2:
  if (n2 == nfrst) {
    goto L3;
  }
  n2 = nl;
  x2 = xl;
  y2 = yl;
  z2 = zl;
  lp = lptr[lp];
  goto L1;
L3:
  if (!bdry) {
    if (nnb > 3) {
      bdry = (1);
    } else {
      lpf = lptr[lpl];
      nr = list[lpf];
      lp = lptr[lpf];
      n2 = list[lp];
      nl = list[lpl];
      bdry = left_(&x[nr], &y[nr], &z__[nr], &x[nl], &y[nl], &z__[nl], &x[n2], &y[n2], &z__[n2]);
    }
    if (bdry) {
      i__1 = nn;
      for (i__ = 1; i__ <= i__1; ++i__) {
        if (list[lend[i__]] < 0) {
          bdry = (0);
          goto L5;
        }
      }
      list[lpl] = -list[lpl];
      ++nnb;
    }
  }
L5:
  if (!bdry && nnb > 3) {
    goto L24;
  }
  lp = lpl;
  lnw = *lnew;
L6:
  lp = lptr[lp];
  n2 = (i__1 = list[lp], ((i__1) >= 0 ? (i__1) : -(i__1)));
  delnb_(&n2, &n1, n, &list[1], &lptr[1], &lend[1], &lnw, &lph);
  if (lph < 0) {
    goto L23;
  }
  if (lpl == lnw) {
    lpl = lph;
  }
  if (lp == lnw) {
    lp = lph;
  }
  if (lp != lpl) {
    goto L6;
  }
  --nn;
  if (n1 > nn) {
    goto L9;
  }
  i__1 = nn;
  for (i__ = n1; i__ <= i__1; ++i__) {
    x[i__] = x[i__ + 1];
    y[i__] = y[i__ + 1];
    z__[i__] = z__[i__ + 1];
    lend[i__] = lend[i__ + 1];
  }
  i__1 = lnw - 1;
  for (i__ = 1; i__ <= i__1; ++i__) {
    if (list[i__] > n1) {
      --list[i__];
    }
    if (list[i__] < -n1) {
      ++list[i__];
    }
  }
L9:
  if (bdry) {
    --nnb;
  }
  lpn = lpl;
  i__1 = nnb;
  for (j = 1; j <= i__1; ++j) {
    --lnw;
    lp = lpn;
    lpn = lptr[lp];
    list[lp] = list[lnw];
    lptr[lp] = lptr[lnw];
    if (lptr[lpn] == lnw) {
      lptr[lpn] = lp;
    }
    if (lpn == lnw) {
      lpn = lp;
    }
    for (i__ = nn; i__ >= 1; --i__) {
      if (lend[i__] == lnw) {
        lend[i__] = lp;
        goto L11;
      }
    }
  L11:
    for (i__ = lnw - 1; i__ >= 1; --i__) {
      if (lptr[i__] == lnw) {
        lptr[i__] = lp;
      }
    }
  }
  *n = nn;
  *lnew = lnw;
  if (iwl > 0) {
    nit = iwl << 2;
    optim_(&x[1], &y[1], &z__[1], &iwl, &list[1], &lptr[1], &lend[1], &nit, &iwk[3], &ierr);
    if (ierr != 0 && ierr != 1) {
      goto L25;
    }
    if (ierr == 1) {
      goto L26;
    }
  }
  *ier = 0;
  return 0;
L21:
  *ier = 1;
  return 0;
L22:
  *ier = 2;
  return 0;
L23:
  *ier = 3;
  return 0;
L24:
  *ier = 4;
  return 0;
L25:
  *ier = 5;
  return 0;
L26:
  *ier = 6;
  return 0;
}
```