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

```asm
<sensitivity_out>:
  endbr64
  push   %r15
  pxor   %xmm0,%xmm0
  push   %r14
  push   %r13
  push   %r12
  push   %rbp
  push   %rbx
  mov    %rcx,%rbx
  sub    $0x158,%rsp
  mov    %rdx,0x8(%rsp)
  lea    0x30(%rsp),%rbp
  mov    %r8,0x28(%rsp)
  mov    %rdi,0x20(%rsp)
  mov    %rsi,0x10(%rsp)
  mov    %rdi,%rsi
  mov    %rbp,%rdi
  mov    %fs:0x28,%rax
  mov    %rax,0x148(%rsp)
  xor    %eax,%eax
  movaps %xmm0,0x30(%rsp)
  movaps %xmm0,0x40(%rsp)
  movaps %xmm0,0x50(%rsp)
  movaps %xmm0,0x60(%rsp)
  movaps %xmm0,0x70(%rsp)
  movaps %xmm0,0x80(%rsp)
  movaps %xmm0,0x90(%rsp)
  movaps %xmm0,0xa0(%rsp)
  movaps %xmm0,0xc0(%rsp)
  movaps %xmm0,0xd0(%rsp)
  movaps %xmm0,0xe0(%rsp)
  movaps %xmm0,0xf0(%rsp)
  movaps %xmm0,0x100(%rsp)
  movaps %xmm0,0x110(%rsp)
  movaps %xmm0,0x120(%rsp)
  movaps %xmm0,0x130(%rsp)
  movl   $0x0,0xb0(%rsp)
  movl   $0x0,0x140(%rsp)
  call   <strcpy@plt>
  lea    D135(%rip),%rsi
  mov    %rbp,%rdi
  call   <strcat@plt>
  lea    D44(%rip),%rsi
  mov    %rbp,%rdi
  call   <fopen@plt>
  mov    %rax,%r13
  test   %rax,%rax
  je     L79
L11:
  mov    %r13,%rcx
  mov    $0x24,%edx
  mov    $0x1,%esi
  lea    D98(%rip),%rdi
  lea    D152(%rip),%r15
  call   <fwrite@plt>
  mov    %r13,%rcx
  mov    $0xb,%edx
  mov    $0x1,%esi
  lea    D90(%rip),%rdi
  lea    D113(%rip),%r14
  call   <fwrite@plt>
  mov    %r13,%rcx
  mov    $0x24,%edx
  mov    $0x1,%esi
  lea    D98(%rip),%rdi
  call   <fwrite@plt>
  mov    0x8(%rsp),%rax
  movl   $0x0,0x1c(%rsp)
  mov    0x4(%rax),%eax
  test   %eax,%eax
  jle    L77
  nopl   (%rax)
L15:
  mov    (%rbx),%edx
  test   %edx,%edx
  jle    L43
  mov    0x1c(%rsp),%ecx
  xor    %r12d,%r12d
  lea    0x3(%rcx,%rcx,4),%ebp
  jmp    L48
  nopl   0x0(%rax,%rax,1)
L95:
  mov    0x8(%rsp),%rax
  mov    0x4(%rax),%eax
L48:
  lea    0x2(%rax,%rax,4),%eax
  mov    0x10(%rsp),%rdx
  mov    %r15,%rsi
  mov    %r13,%rdi
  imul   %r12d,%eax
  add    $0x1,%r12d
  add    %ebp,%eax
  cltq
  movsd  (%rdx,%rax,8),%xmm0
  mov    $0x1,%eax
  call   <fprintf@plt>
  mov    %r13,%rcx
  mov    $0x3,%edx
  mov    %r14,%rdi
  mov    $0x1,%esi
  call   <fwrite@plt>
  cmp    %r12d,(%rbx)
  jg     L95
L43:
  mov    %r13,%rsi
  mov    $0xa,%edi
  call   <fputc@plt>
  mov    0x8(%rsp),%rax
  addl   $0x1,0x1c(%rsp)
  mov    0x1c(%rsp),%ecx
  mov    0x4(%rax),%eax
  cmp    %ecx,%eax
  jg     L15
L77:
  mov    %r13,%rdi
  lea    0xc0(%rsp),%rbp
  call   <fclose@plt>
  mov    0x20(%rsp),%rsi
  mov    %rbp,%rdi
  call   <strcpy@plt>
  lea    D49(%rip),%rsi
  mov    %rbp,%rdi
  call   <strcat@plt>
  lea    D44(%rip),%rsi
  mov    %rbp,%rdi
  call   <fopen@plt>
  mov    %rax,%r12
  test   %rax,%rax
  je     L65
L117:
  mov    %r12,%rcx
  mov    $0x24,%edx
  mov    $0x1,%esi
  xor    %ebp,%ebp
  lea    D98(%rip),%rdi
  lea    D152(%rip),%r14
  call   <fwrite@plt>
  mov    %r12,%rcx
  mov    $0xb,%edx
  mov    $0x1,%esi
  lea    D90(%rip),%rdi
  lea    D113(%rip),%r13
  call   <fwrite@plt>
  mov    %r12,%rcx
  mov    $0x24,%edx
  mov    $0x1,%esi
  lea    D98(%rip),%rdi
  call   <fwrite@plt>
  mov    (%rbx),%eax
  mov    0x28(%rsp),%r15
  test   %eax,%eax
  jle    L25
  nop
L91:
  movsd  (%r15,%rbp,8),%xmm0
  mov    %r14,%rsi
  mov    %r12,%rdi
  mov    $0x1,%eax
  add    $0x1,%rbp
  call   <fprintf@plt>
  mov    %r12,%rcx
  mov    $0x3,%edx
  mov    %r13,%rdi
  mov    $0x1,%esi
  call   <fwrite@plt>
  cmp    %ebp,(%rbx)
  jg     L91
L25:
  mov    $0xa,%edi
  mov    %r12,%rsi
  call   <fputc@plt>
  mov    %r12,%rdi
  call   <fclose@plt>
  mov    0x148(%rsp),%rax
  sub    %fs:0x28,%rax
  jne    L81
  add    $0x158,%rsp
  pop    %rbx
  pop    %rbp
  pop    %r12
  pop    %r13
  pop    %r14
  pop    %r15
  ret
L79:
  lea    D60(%rip),%rdi
  call   <printf@plt>
  xor    %edi,%edi
  call   <exit@plt>
  jmp    L11
L65:
  lea    D60(%rip),%rdi
  call   <printf@plt>
  xor    %edi,%edi
  call   <exit@plt>
  jmp    L117
L81:
  call   <__stack_chk_fail@plt>
```

tool_calls: name: extract_symbolic_data
arguments: data_label: D135
type_guessed: string
name: extract_symbolic_data
arguments: data_label: D44
type_guessed: string
name: extract_symbolic_data
arguments: data_label: D98
type_guessed: string
name: extract_symbolic_data
arguments: data_label: D152
type_guessed: string
name: extract_symbolic_data
arguments: data_label: D90
type_guessed: string
name: extract_symbolic_data
arguments: data_label: D113
type_guessed: string
name: extract_symbolic_data
arguments: data_label: D49
type_guessed: string
name: extract_symbolic_data
arguments: data_label: D60
type_guessed: string

tool: D135: .sen

tool: D44: w

tool: D98: ---------------------------------- 


tool: D152: %12.5E

tool: D90: Objective 


tool: D113: ;  

tool: D49: .nom

tool: D60: *ERROR in sensitivity: cannot open sensitivity vector file for writing...

assistant: ```c
void sensitivity_out(char *jobnamec, double *dgdxglob, int *neq, int *nobject, double *g0) {
  char sensitivities[132] = "", nominal[132] = "";
  int i = 0, iobject = 0;
  FILE *f1;
  strcpy(sensitivities, jobnamec);
  strcat(sensitivities, ".sen");
  if ((f1 = fopen(sensitivities, "w")) == NULL) {
    printf("*ERROR in sensitivity: cannot open sensitivity vector file for writing...");
    exit(0);
  }
  fprintf(f1, "---------------------------------- \n");
  fprintf(f1, "Objective \n");
  fprintf(f1, "---------------------------------- \n");
  for (i = 0; i < neq[1]; i++) {
    for (iobject = 0; iobject < *nobject; iobject++) {
      fprintf(f1, "%12.5E", (double)dgdxglob[3 + 5 * i + (5 * neq[1] + 2) * iobject]);
      fprintf(f1, ";  ");
    }
    fprintf(f1, "\n");
  }
  fclose(f1);
  strcpy(nominal, jobnamec);
  strcat(nominal, ".nom");
  if ((f1 = fopen(nominal, "w")) == NULL) {
    printf("*ERROR in sensitivity: cannot open sensitivity vector file for writing...");
    exit(0);
  }
  fprintf(f1, "---------------------------------- \n");
  fprintf(f1, "Objective \n");
  fprintf(f1, "---------------------------------- \n");
  for (iobject = 0; iobject < *nobject; iobject++) {
    fprintf(f1, "%12.5E", (double)g0[iobject]);
    fprintf(f1, ";  ");
  }
  fprintf(f1, "\n");
  fclose(f1);
  return;
}
```