user: Demonstrate the C code that generates the assembly output below:

```asm
<frd_se>:
  endbr64
  push   %r15
  push   %r14
  push   %r13
  push   %r12
  push   %rbp
  push   %rbx
  sub    $0x188,%rsp
  mov    %rsi,%r12
  mov    %rcx,(%rsp)
  mov    %r8,0x8(%rsp)
  mov    %r9,0x28(%rsp)
  mov    0x1c0(%rsp),%rax
  mov    %rax,0x30(%rsp)
  mov    0x1d0(%rsp),%rax
  mov    %rax,0x38(%rsp)
  mov    0x1e0(%rsp),%rax
  mov    %rax,0x40(%rsp)
  mov    0x1e8(%rsp),%rax
  mov    %rax,0x48(%rsp)
  mov    0x1f0(%rsp),%rax
  mov    %rax,0x50(%rsp)
  mov    0x1f8(%rsp),%rax
  mov    %rax,0x58(%rsp)
  mov    0x200(%rsp),%rax
  mov    %rax,0x60(%rsp)
  mov    0x210(%rsp),%rbp
  mov    0x220(%rsp),%rax
  mov    %rax,0x68(%rsp)
  mov    0x228(%rsp),%rax
  mov    %rax,0x70(%rsp)
  mov    0x230(%rsp),%r15
  mov    0x238(%rsp),%rax
  mov    %rax,0x10(%rsp)
  mov    0x240(%rsp),%rax
  mov    %rax,0x18(%rsp)
  mov    0x248(%rsp),%rax
  mov    %rax,0x20(%rsp)
  mov    0x260(%rsp),%r14
  mov    0x268(%rsp),%rax
  mov    %rax,0x78(%rsp)
  mov    %fs:0x28,%rax
  mov    %rax,0x178(%rsp)
  xor    %eax,%eax
  movl   $0x312d20,0xe4(%rsp)
  movl   $0x322d20,0xe8(%rsp)
  movl   $0x332d20,0xec(%rsp)
  movq   $0x0,0xf0(%rsp)
  movq   $0x0,0xf8(%rsp)
  movq   $0x0,0x100(%rsp)
  movq   $0x0,0x108(%rsp)
  movq   $0x0,0x110(%rsp)
  movq   $0x0,0x118(%rsp)
  movq   $0x0,0x120(%rsp)
  movq   $0x0,0x128(%rsp)
  movq   $0x0,0x130(%rsp)
  movq   $0x0,0x138(%rsp)
  movq   $0x0,0x140(%rsp)
  movq   $0x0,0x148(%rsp)
  movq   $0x0,0x150(%rsp)
  movq   $0x0,0x158(%rsp)
  movq   $0x0,0x160(%rsp)
  movq   $0x0,0x168(%rsp)
  movl   $0x0,0x170(%rsp)
  movl   $0x4,0xa4(%rsp)
  movl   $0x1,0xc0(%rsp)
  movl   $0x1,0xc4(%rsp)
  movl   $0x1,0xc8(%rsp)
  movl   $0x1,0xcc(%rsp)
  movl   $0x0,0xd0(%rsp)
  movl   $0x1,0xd4(%rsp)
  movl   $0x2,0xd8(%rsp)
  movl   $0x4,0xdc(%rsp)
  movl   $0x4,0xb8(%rsp)
  movl   $0x0,0xbc(%rsp)
  lea    0xf0(%rsp),%rbx
  mov    0x258(%rsp),%rsi
  mov    %rbx,%rdi
  call   <strcpy@plt>
  lea    D52(%rip),%rsi
  mov    %rbx,%rdi
  call   <strcat@plt>
  lea    D86(%rip),%rsi
  mov    %rbx,%rdi
  call   <fopen@plt>
  mov    %rax,%rbx
  test   %rax,%rax
  je     L56
L55:
  mov    $0x1,%edi
  call   <atan@plt>
  pxor   %xmm0,%xmm0
  cvtsi2sd %eax,%xmm0
  mulsd  D100(%rip),%xmm0
  movsd  %xmm0,0xa8(%rsp)
  movl   $0x0,0x88(%rsp)
  mov    D119(%rip),%rax
  mov    %rax,0xb0(%rsp)
  mov    0x8(%rsp),%rax
  cmpl   $0x0,(%rax)
  je     L111
  movl   $0x0,0x98(%rsp)
  movl   $0x0,0x9c(%rsp)
  movl   $0x0,0xa0(%rsp)
  mov    (%r12),%edx
  test   %edx,%edx
  jle    L103
  mov    (%rsp),%rcx
  mov    %rcx,%rax
  lea    -0x1(%rdx),%edx
  lea    0x4(%rcx,%rdx,4),%rdi
  mov    $0x0,%r13d
  mov    $0x0,%r10d
  mov    $0x0,%r11d
  mov    $0x0,%r8d
  mov    $0x0,%r9d
  mov    $0x0,%ecx
  mov    $0x1,%esi
  jmp    L104
L56:
  lea    D8(%rip),%rdi
  call   <printf@plt>
  mov    $0x0,%edi
  call   <exit@plt>
  jmp    L55
L14:
  add    $0x1,%r10d
  mov    %esi,%r13d
  mov    %esi,%r9d
L38:
  add    $0x4,%rax
  cmp    %rdi,%rax
  je     L132
L104:
  mov    (%rax),%edx
  test   %edx,%edx
  je     L38
  add    $0x1,%ecx
  test   %edx,%edx
  jle    L14
  add    $0x1,%r8d
  mov    %esi,%r11d
  mov    %esi,%r9d
  jmp    L38
L132:
  test   %r13b,%r13b
  je     L53
  mov    %r10d,0xa0(%rsp)
L53:
  test   %r11b,%r11b
  je     L90
  mov    %r8d,0x9c(%rsp)
L90:
  test   %r9b,%r9b
  je     L103
  mov    %ecx,0x98(%rsp)
  jmp    L103
L111:
  mov    (%r12),%eax
  mov    %eax,0x98(%rsp)
L103:
  mov    (%r12),%eax
  mov    %eax,D104(%rip)
  movl   $0x1,0x94(%rsp)
  lea    0x90(%rsp),%r12
  push   %rbp
  lea    0x9c(%rsp),%r13
  push   %r13
  lea    0xac(%rsp),%rax
  push   %rax
  lea    0xb8(%rsp),%rax
  push   %rax
  push   %r15
  lea    0xc0(%rsp),%rax
  push   %rax
  lea    0xbc(%rsp),%r15
  push   %r15
  push   0x38(%rsp)
  mov    0x60(%rsp),%r9
  mov    0x58(%rsp),%r8
  mov    0x50(%rsp),%rcx
  mov    %r12,%rdx
  mov    0xb0(%rsp),%rsi
  mov    0x70(%rsp),%rdi
  call   <frdset@plt>
  add    $0x40,%rsp
  lea    0xa8(%rsp),%rcx
  lea    0xb0(%rsp),%rsi
  push   0x48(%rsp)
  push   0x48(%rsp)
  push   %r14
  push   %rbx
  push   0x28(%rsp)
  push   0x50(%rsp)
  push   0x90(%rsp)
  push   %r15
  push   0x90(%rsp)
  lea    0xd0(%rsp),%rax
  push   %rax
  mov    0xb8(%rsp),%r9
  mov    0xa8(%rsp),%r8
  mov    0x88(%rsp),%rdx
  lea    D112(%rip),%rdi
  call   <frdheader@plt>
  add    $0x50,%rsp
  lea    D65(%rip),%rsi
  mov    %rbx,%rdi
  call   <fprintf@plt>
  lea    D33(%rip),%rsi
  mov    %rbx,%rdi
  call   <fprintf@plt>
  lea    D124(%rip),%rsi
  mov    %rbx,%rdi
  call   <fprintf@plt>
  lea    D93(%rip),%rsi
  mov    %rbx,%rdi
  call   <fprintf@plt>
  lea    D85(%rip),%rsi
  mov    %rbx,%rdi
  call   <fprintf@plt>
  sub    $0x8,%rsp
  lea    0xf4(%rsp),%rax
  push   %rax
  push   %r14
  push   %rbx
  lea    0x108(%rsp),%rax
  push   %rax
  push   %r13
  lea    0xe8(%rsp),%rax
  push   %rax
  lea    0x108(%rsp),%rax
  push   %rax
  lea    0x100(%rsp),%rax
  push   %rax
  lea    0xec(%rsp),%rax
  push   %rax
  push   %rbp
  push   0x78(%rsp)
  push   0x78(%rsp)
  push   0x78(%rsp)
  lea    0x154(%rsp),%r9
  mov    0x70(%rsp),%r8
  lea    D104(%rip),%rcx
  mov    %r12,%rdx
  mov    0xe8(%rsp),%rdi
  mov    %rdi,%rsi
  call   <frdselect@plt>
  add    $0x70,%rsp
  mov    %rbx,%rdi
  call   <fclose@plt>
  mov    0x178(%rsp),%rax
  sub    %fs:0x28,%rax
  jne    L1
  add    $0x188,%rsp
  pop    %rbx
  pop    %rbp
  pop    %r12
  pop    %r13
  pop    %r14
  pop    %r15
  ret
L1:
  call   <__stack_chk_fail@plt>
```

tool_calls: name: extract_symbolic_data
arguments: data_tag: D52
data_type: string
name: extract_symbolic_data
arguments: data_tag: D86
data_type: string
name: extract_symbolic_data
arguments: data_tag: D100
data_type: f64
name: extract_symbolic_data
arguments: data_tag: D119
data_type: f64
name: extract_symbolic_data
arguments: data_tag: D8
data_type: string
name: extract_symbolic_data
arguments: data_tag: D65
data_type: string
name: extract_symbolic_data
arguments: data_tag: D33
data_type: string
name: extract_symbolic_data
arguments: data_tag: D124
data_type: string
name: extract_symbolic_data
arguments: data_tag: D93
data_type: string
name: extract_symbolic_data
arguments: data_tag: D85
data_type: string

tool: D52: .frd

tool: D86: ab

tool: D100: 4

tool: D119: 1

tool: D8: *ERROR in frd: cannot open frd file for writing...

tool: D65:  -4  SEN         4    1


tool: D33:  -5  SENDX       1    2    1    0


tool: D124:  -5  SENDY       1    2    2    0


tool: D93:  -5  SENDZ       1    2    3    0


tool: D85:  -5  SENNORM     1    2    4    0


assistant: ```c
void frd_se(double *co, int *nk, double *stn, int *inum, int *nmethod, int *kode, char *filab, double *fn, double *time, int *nstate_, int *istep, int *iinc, int *mode, int *noddiam, char *description, int *mi, int *ngraph, int *ne, double *cs, char *set, int *nset, int *istartset, int *iendset, int *ialset, double *thicke, char *jobnamec, char *output, double *dgdxtotglob, int *numobject) {
  FILE *f1;
  char c[2] = "C", m1[4] = " -1", m2[4] = " -2", m3[4] = " -3", p0[6] = "    0", p1[6] = "    1", p2[6] = "    2", p3[6] = "    3", p4[6] = "    4", p5[6] = "    5", p6[6] = "    6", p7[6] = "    7", p8[6] = "    8", p9[6] = "    9", p10[6] = "   10", p11[6] = "   11", p12[6] = "   12", fneig[132] = "", date[8], clock[10], newdate[21], newclock[9], material[59] = "                                                          ", text[2] = " ";
  static int icounter = 0, nkcoords, iaxial;
  int null, one, i, j, k, indexe, nemax, nlayer, noutloc, iset, iselect, ncomp, nope, nodes, ifield[7], nfield[2], icomp[7], ifieldstate[*nstate_], two, three, icompstate[*nstate_], ip0 = 0, ip1 = 1, ip2 = 2, ip3 = 3, ip4 = 4, ip5 = 5, ip6 = 6, ip7 = 7, ip8 = 8, ip9 = 9, ip10 = 10, ip11 = 11, ip12 = 12, imat, nelout, nterms, nout, noutplus, noutmin, mt = mi[1] + 1;
  int ncomptensor = 4, ifieldtensor[4] = {1, 1, 1, 1}, icomptensor[4] = {0, 1, 2, 4}, nfieldtensor[2] = {4, 0};
  int iw;
  float ifl;
  double pi, oner;
  strcpy(fneig, jobnamec);
  strcat(fneig, ".frd");
  if ((f1 = fopen(fneig, "ab")) == NULL) {
    printf("*ERROR in frd: cannot open frd file for writing...");
    exit(0);
  }
  pi = 4. * atan(1.);
  null = 0;
  one = 1;
  two = 2;
  three = 3;
  oner = 1.;
  if (*nmethod != 0) {
    nout = 0;
    noutplus = 0;
    noutmin = 0;
    for (i = 0; i < *nk; i++) {
      if (inum[i] == 0)
        continue;
      nout++;
      if (inum[i] > 0)
        noutplus++;
      if (inum[i] < 0)
        noutmin++;
    }
  } else {
    nout = *nk;
  }
  nkcoords = *nk;
  iselect = 1;
  frdset(filab, set, &iset, istartset, iendset, ialset, inum, &noutloc, &nout, nset, &noutmin, &noutplus, &iselect, ngraph);
  frdheader(&icounter, &oner, time, &pi, noddiam, cs, &null, mode, &noutloc, description, kode, nmethod, f1, output, istep, iinc);
  fprintf(f1, " -4  SEN         4    1\n");
  fprintf(f1, " -5  SENDX       1    2    1    0\n");
  fprintf(f1, " -5  SENDY       1    2    2    0\n");
  fprintf(f1, " -5  SENDZ       1    2    3    0\n");
  fprintf(f1, " -5  SENNORM     1    2    4    0\n");
  frdselect(dgdxtotglob, dgdxtotglob, &iset, &nkcoords, inum, m1, istartset, iendset, ialset, ngraph, &ncomptensor, ifieldtensor, icomptensor, nfieldtensor, &iselect, m2, f1, output, m3);
  fclose(f1);
  return;
}
```