user: 请将以下的汇编代码转换成C语言代码:

```asm
<sensitivity_out>:
  endbr64
  push   %r15
  pxor   %xmm0,%xmm0
  push   %r14
  push   %r13
  push   %r12
  push   %rbp
  mov    %rdx,%rbp
  push   %rbx
  mov    %rcx,%rbx
  sub    $0x148,%rsp
  mov    %r8,0x18(%rsp)
  lea    0x20(%rsp),%r12
  mov    %rdi,0x10(%rsp)
  mov    %rsi,(%rsp)
  mov    %rdi,%rsi
  mov    %r12,%rdi
  mov    %fs:0x28,%rax
  mov    %rax,0x138(%rsp)
  xor    %eax,%eax
  movaps %xmm0,0x20(%rsp)
  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,0xb0(%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)
  movl   $0x0,0xa0(%rsp)
  movl   $0x0,0x130(%rsp)
  call   <strcpy@plt>
  lea    D9(%rip),%rsi
  mov    %r12,%rdi
  call   <strcat@plt>
  lea    D63(%rip),%rsi
  mov    %r12,%rdi
  call   <fopen@plt>
  mov    %rax,%r13
  test   %rax,%rax
  je     L81
L86:
  mov    %r13,%rcx
  mov    $0x24,%edx
  mov    $0x1,%esi
  lea    D124(%rip),%rdi
  lea    D44(%rip),%r15
  call   <fwrite@plt>
  mov    %r13,%rcx
  mov    $0xb,%edx
  mov    $0x1,%esi
  lea    D29(%rip),%rdi
  lea    D95(%rip),%r14
  call   <fwrite@plt>
  mov    %r13,%rcx
  mov    $0x24,%edx
  mov    $0x1,%esi
  lea    D124(%rip),%rdi
  call   <fwrite@plt>
  mov    0x4(%rbp),%ecx
  movl   $0x0,0xc(%rsp)
  test   %ecx,%ecx
  jle    L21
  nopw   0x0(%rax,%rax,1)
L33:
  mov    (%rbx),%edx
  test   %edx,%edx
  jle    L69
  mov    0xc(%rsp),%eax
  xor    %r12d,%r12d
  lea    0x3(%rax,%rax,4),%eax
  mov    %eax,0x8(%rsp)
  mov    %rbx,%rax
  mov    %r12d,%ebx
  mov    %rbp,%r12
  mov    %rax,%rbp
  nopl   0x0(%rax)
L99:
  mov    0x4(%r12),%eax
  mov    (%rsp),%rdx
  mov    %r15,%rsi
  mov    %r13,%rdi
  lea    0x2(%rax,%rax,4),%eax
  imul   %ebx,%eax
  add    0x8(%rsp),%eax
  add    $0x1,%ebx
  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    %ebx,0x0(%rbp)
  jg     L99
  mov    %rbp,%rbx
  mov    %r12,%rbp
L69:
  mov    %r13,%rsi
  mov    $0xa,%edi
  call   <fputc@plt>
  addl   $0x1,0xc(%rsp)
  mov    0xc(%rsp),%eax
  cmp    %eax,0x4(%rbp)
  jg     L33
L21:
  mov    %r13,%rdi
  lea    0xb0(%rsp),%rbp
  call   <fclose@plt>
  mov    0x10(%rsp),%rsi
  mov    %rbp,%rdi
  call   <strcpy@plt>
  lea    D84(%rip),%rsi
  mov    %rbp,%rdi
  call   <strcat@plt>
  lea    D63(%rip),%rsi
  mov    %rbp,%rdi
  call   <fopen@plt>
  mov    %rax,%r12
  test   %rax,%rax
  je     L13
L55:
  mov    %r12,%rcx
  mov    $0x24,%edx
  mov    $0x1,%esi
  lea    D124(%rip),%rdi
  call   <fwrite@plt>
  mov    %r12,%rcx
  mov    $0xb,%edx
  mov    $0x1,%esi
  lea    D29(%rip),%rdi
  call   <fwrite@plt>
  mov    %r12,%rcx
  mov    $0x24,%edx
  mov    $0x1,%esi
  lea    D124(%rip),%rdi
  call   <fwrite@plt>
  mov    (%rbx),%eax
  test   %eax,%eax
  jle    L64
  mov    0x18(%rsp),%r15
  xor    %ebp,%ebp
  lea    D44(%rip),%r14
  lea    D95(%rip),%r13
  nopw   0x0(%rax,%rax,1)
L29:
  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     L29
L64:
  mov    $0xa,%edi
  mov    %r12,%rsi
  call   <fputc@plt>
  mov    %r12,%rdi
  call   <fclose@plt>
  mov    0x138(%rsp),%rax
  sub    %fs:0x28,%rax
  jne    L102
  add    $0x148,%rsp
  pop    %rbx
  pop    %rbp
  pop    %r12
  pop    %r13
  pop    %r14
  pop    %r15
  ret
L81:
  lea    D21(%rip),%rdi
  call   <printf@plt>
  xor    %edi,%edi
  call   <exit@plt>
  jmp    L86
L13:
  lea    D21(%rip),%rdi
  call   <printf@plt>
  xor    %edi,%edi
  call   <exit@plt>
  jmp    L55
L102:
  call   <__stack_chk_fail@plt>
```

tool_calls: name: read_data
arguments: data_label: D9
data_type: string
name: read_data
arguments: data_label: D63
data_type: string
name: read_data
arguments: data_label: D124
data_type: string
name: read_data
arguments: data_label: D44
data_type: string
name: read_data
arguments: data_label: D29
data_type: string
name: read_data
arguments: data_label: D95
data_type: string
name: read_data
arguments: data_label: D84
data_type: string
name: read_data
arguments: data_label: D21
data_type: string

tool: D9: .sen

tool: D63: w

tool: D124: ---------------------------------- 


tool: D44: %12.5E

tool: D29: Objective 


tool: D95: ;  

tool: D84: .nom

tool: D21: *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;
}
```