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

```asm
<checkEnvGPUBLAS>:
  endbr64
  push   %r14
  lea    D75(%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     L7
  mov    %r14,%rdi
  call   <getenv@plt>
  mov    %rax,%rdi
  call   <atoi@plt>
  test   %eax,%eax
  jne    L43
  lea    D0(%rip),%rdi
  call   <fatalError@plt>
L7:
  lea    D78(%rip),%r13
  mov    %r13,%rdi
  call   <getenv@plt>
  test   %rax,%rax
  je     L83
  mov    %r13,%rdi
  call   <getenv@plt>
  mov    %rax,%rdi
  call   <atoi@plt>
  test   %eax,%eax
  jne    L95
  lea    D18(%rip),%rdi
  call   <fatalError@plt>
L83:
  lea    D27(%rip),%r12
  mov    %r12,%rdi
  call   <getenv@plt>
  test   %rax,%rax
  je     L30
  mov    %r12,%rdi
  call   <getenv@plt>
  mov    %rax,%rdi
  call   <atoi@plt>
  test   %eax,%eax
  jne    L91
  lea    D62(%rip),%rdi
  call   <fatalError@plt>
L30:
  lea    D34(%rip),%rbp
  mov    %rbp,%rdi
  call   <getenv@plt>
  test   %rax,%rax
  je     L11
  mov    %rbp,%rdi
  call   <getenv@plt>
  mov    %rax,%rdi
  call   <atoi@plt>
  test   %eax,%eax
  jne    L4
  lea    D49(%rip),%rdi
  call   <fatalError@plt>
L11:
  pop    %rbx
  xor    %eax,%eax
  pop    %rbp
  pop    %r12
  pop    %r13
  pop    %r14
  ret
  nopl   0x0(%rax,%rax,1)
L4:
  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)
L91:
  mov    %r12,%rdi
  call   <getenv@plt>
  mov    %rax,%rdi
  call   <atoi@plt>
  mov    %eax,0x0(%rbp)
  jmp    L30
  nopl   (%rax)
L95:
  mov    %r13,%rdi
  call   <getenv@plt>
  mov    %rax,%rdi
  call   <atoi@plt>
  mov    %eax,(%r12)
  jmp    L83
  nopl   0x0(%rax)
L43:
  mov    %r14,%rdi
  call   <getenv@plt>
  mov    %rax,%rdi
  call   <atoi@plt>
  mov    %eax,0x0(%r13)
  jmp    L7
```

tool_calls: name: disassemble_data
arguments: label: D75
type: string
name: disassemble_data
arguments: label: D0
type: string
name: disassemble_data
arguments: label: D78
type: string
name: disassemble_data
arguments: label: D18
type: string
name: disassemble_data
arguments: label: D27
type: string
name: disassemble_data
arguments: label: D62
type: string
name: disassemble_data
arguments: label: D34
type: string
name: disassemble_data
arguments: label: D49
type: string

tool: D75: NLOOP_MAX

tool: D0: NLOOP_MAX must be a positive integer

tool: D78: MIN_GPU_BLAS_SIZE

tool: D18: MIN_GPU_BLAS_SIZE must be a positive integer

tool: D27: MED_GPU_BLAS_SIZE

tool: D62: MED_GPU_BLAS_SIZE must be a positive integer

tool: D34: MAX_GPU_BLAS_SIZE

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