user: 请从给定的汇编指令推导出C源代码:

```asm
<checkEnvGPUBLAS>:
  endbr64
  push   %r13
  push   %r12
  push   %rbp
  push   %rbx
  sub    $0x8,%rsp
  mov    %rdi,%r13
  mov    %rsi,%r12
  mov    %rdx,%rbp
  mov    %rcx,%rbx
  lea    D12(%rip),%rdi
  call   <getenv@plt>
  test   %rax,%rax
  je     L68
  lea    D12(%rip),%rdi
  call   <getenv@plt>
  mov    %rax,%rdi
  call   <atoi@plt>
  test   %eax,%eax
  jne    L9
  lea    D159(%rip),%rdi
  call   <fatalError@plt>
L68:
  lea    D75(%rip),%rdi
  call   <getenv@plt>
  test   %rax,%rax
  je     L48
  lea    D75(%rip),%rdi
  call   <getenv@plt>
  mov    %rax,%rdi
  call   <atoi@plt>
  test   %eax,%eax
  jne    L25
  lea    D82(%rip),%rdi
  call   <fatalError@plt>
L48:
  lea    D148(%rip),%rdi
  call   <getenv@plt>
  test   %rax,%rax
  je     L17
  lea    D148(%rip),%rdi
  call   <getenv@plt>
  mov    %rax,%rdi
  call   <atoi@plt>
  test   %eax,%eax
  jne    L95
  lea    D130(%rip),%rdi
  call   <fatalError@plt>
L17:
  lea    D20(%rip),%rdi
  call   <getenv@plt>
  test   %rax,%rax
  je     L24
  lea    D20(%rip),%rdi
  call   <getenv@plt>
  mov    %rax,%rdi
  call   <atoi@plt>
  test   %eax,%eax
  jne    L58
  lea    D122(%rip),%rdi
  call   <fatalError@plt>
L24:
  mov    $0x0,%eax
  add    $0x8,%rsp
  pop    %rbx
  pop    %rbp
  pop    %r12
  pop    %r13
  ret
L9:
  lea    D12(%rip),%rdi
  call   <getenv@plt>
  mov    %rax,%rdi
  call   <atoi@plt>
  mov    %eax,0x0(%r13)
  jmp    L68
L25:
  lea    D75(%rip),%rdi
  call   <getenv@plt>
  mov    %rax,%rdi
  call   <atoi@plt>
  mov    %eax,(%r12)
  jmp    L48
L95:
  lea    D148(%rip),%rdi
  call   <getenv@plt>
  mov    %rax,%rdi
  call   <atoi@plt>
  mov    %eax,0x0(%rbp)
  jmp    L17
L58:
  lea    D20(%rip),%rdi
  call   <getenv@plt>
  mov    %rax,%rdi
  call   <atoi@plt>
  mov    %eax,(%rbx)
  jmp    L24
```

tool_calls: name: unpack_data
arguments: data_tag: D12
data_type: string
name: unpack_data
arguments: data_tag: D159
data_type: string
name: unpack_data
arguments: data_tag: D75
data_type: string
name: unpack_data
arguments: data_tag: D82
data_type: string
name: unpack_data
arguments: data_tag: D148
data_type: string
name: unpack_data
arguments: data_tag: D130
data_type: string
name: unpack_data
arguments: data_tag: D20
data_type: string
name: unpack_data
arguments: data_tag: D122
data_type: string

tool: D12: NLOOP_MAX

tool: D159: NLOOP_MAX must be a positive integer

tool: D75: MIN_GPU_BLAS_SIZE

tool: D82: MIN_GPU_BLAS_SIZE must be a positive integer

tool: D148: MED_GPU_BLAS_SIZE

tool: D130: MED_GPU_BLAS_SIZE must be a positive integer

tool: D20: MAX_GPU_BLAS_SIZE

tool: D122: MAX_GPU_BLAS_SIZE must be a positive integer

assistant: ```c
int checkEnvGPUBLAS(unsigned int *NLOOP, unsigned int *smin, unsigned int *smed, unsigned int *smax) {
  if (getenv("NLOOP_MAX") != NULL) {
    if (atoi(getenv("NLOOP_MAX")) <= 0)
      fatalError("NLOOP_MAX must be a positive integer");
    else
      *NLOOP = atoi(getenv("NLOOP_MAX"));
  }
  if (getenv("MIN_GPU_BLAS_SIZE") != NULL) {
    if (atoi(getenv("MIN_GPU_BLAS_SIZE")) <= 0)
      fatalError("MIN_GPU_BLAS_SIZE must be a positive integer");
    else
      *smin = atoi(getenv("MIN_GPU_BLAS_SIZE"));
  }
  if (getenv("MED_GPU_BLAS_SIZE") != NULL) {
    if (atoi(getenv("MED_GPU_BLAS_SIZE")) <= 0)
      fatalError("MED_GPU_BLAS_SIZE must be a positive integer");
    else
      *smed = atoi(getenv("MED_GPU_BLAS_SIZE"));
  }
  if (getenv("MAX_GPU_BLAS_SIZE") != NULL) {
    if (atoi(getenv("MAX_GPU_BLAS_SIZE")) <= 0)
      fatalError("MAX_GPU_BLAS_SIZE must be a positive integer");
    else
      *smax = atoi(getenv("MAX_GPU_BLAS_SIZE"));
  }
  return 0;
}
```