user: 请显示与下面列出的汇编代码相匹配的C语言实现：

```asm
<checkEnvGPUBLAS>:
  endbr64
  push   %r14
  lea    D72(%rip),%r14
  push   %r13
  mov    %rdi,%r13
  mov    %r14,%rdi
  push   %r12
  mov    %rsi,%r12
  push   %rbp
  mov    %rdx,%rbp
  push   %rbx
  mov    %rcx,%rbx
  call   <getenv@plt>
  test   %rax,%rax
  je     L69
  mov    %r14,%rdi
  call   <getenv@plt>
  mov    %rax,%rdi
  call   <atoi@plt>
  test   %eax,%eax
  jne    L99
  lea    D2(%rip),%rdi
  call   <fatalError@plt>
L69:
  lea    D45(%rip),%r13
  mov    %r13,%rdi
  call   <getenv@plt>
  test   %rax,%rax
  je     L103
  mov    %r13,%rdi
  call   <getenv@plt>
  mov    %rax,%rdi
  call   <atoi@plt>
  test   %eax,%eax
  jne    L50
  lea    D24(%rip),%rdi
  call   <fatalError@plt>
L103:
  lea    D49(%rip),%r12
  mov    %r12,%rdi
  call   <getenv@plt>
  test   %rax,%rax
  je     L78
  mov    %r12,%rdi
  call   <getenv@plt>
  mov    %rax,%rdi
  call   <atoi@plt>
  test   %eax,%eax
  jne    L30
  lea    D25(%rip),%rdi
  call   <fatalError@plt>
L78:
  lea    D70(%rip),%rbp
  mov    %rbp,%rdi
  call   <getenv@plt>
  test   %rax,%rax
  je     L10
  mov    %rbp,%rdi
  call   <getenv@plt>
  mov    %rax,%rdi
  call   <atoi@plt>
  test   %eax,%eax
  jne    L34
  lea    D47(%rip),%rdi
  call   <fatalError@plt>
L10:
  pop    %rbx
  xor    %eax,%eax
  pop    %rbp
  pop    %r12
  pop    %r13
  pop    %r14
  ret
  nopl   0x0(%rax,%rax,1)
L34:
  mov    %rbp,%rdi
  call   <getenv@plt>
  mov    %rax,%rdi
  call   <atoi@plt>
  mov    %eax,(%rbx)
  pop    %rbx
  xor    %eax,%eax
  pop    %rbp
  pop    %r12
  pop    %r13
  pop    %r14
  ret
  nopl   (%rax)
L30:
  mov    %r12,%rdi
  call   <getenv@plt>
  mov    %rax,%rdi
  call   <atoi@plt>
  mov    %eax,0x0(%rbp)
  jmp    L78
  nopl   (%rax)
L50:
  mov    %r13,%rdi
  call   <getenv@plt>
  mov    %rax,%rdi
  call   <atoi@plt>
  mov    %eax,(%r12)
  jmp    L103
  nopl   0x0(%rax)
L99:
  mov    %r14,%rdi
  call   <getenv@plt>
  mov    %rax,%rdi
  call   <atoi@plt>
  mov    %eax,0x0(%r13)
  jmp    L69
```

tool_calls: name: disassemble_data
arguments: data_tag: D72
data_type: string
name: disassemble_data
arguments: data_tag: D2
data_type: string
name: disassemble_data
arguments: data_tag: D45
data_type: string
name: disassemble_data
arguments: data_tag: D24
data_type: string
name: disassemble_data
arguments: data_tag: D49
data_type: string
name: disassemble_data
arguments: data_tag: D25
data_type: string
name: disassemble_data
arguments: data_tag: D70
data_type: string
name: disassemble_data
arguments: data_tag: D47
data_type: string

tool: D72: NLOOP_MAX

tool: D2: NLOOP_MAX must be a positive integer

tool: D45: MIN_GPU_BLAS_SIZE

tool: D24: MIN_GPU_BLAS_SIZE must be a positive integer

tool: D49: MED_GPU_BLAS_SIZE

tool: D25: MED_GPU_BLAS_SIZE must be a positive integer

tool: D70: MAX_GPU_BLAS_SIZE

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