#define NULL ((void *)0)
typedef unsigned long size_t; // Customize by platform.
typedef long intptr_t;
typedef unsigned long uintptr_t;
typedef long scalar_t__; // Either arithmetic or pointer type.
/* By default, we understand bool (as a convenience). */
typedef int bool;
#define false 0
#define true 1

/* Forward declarations */

/* Type definitions */

/* Variables and functions */
float ***_s2_f2c3darr(float *, int, int, int);
int /*<<< orphan*/ _s2warn(char *, char *);
int ns2cisc(float ***, int, int, int, int, int, int, int, int, int, float *,
            float, int, char, float,
            void (*)(float *, float *, float *, float *, float *, float *));
int ns2cisc_(float *grid, int *adim, int *bdim, int *cdim, int *a1, int *a2,
             int *b1, int *b2, int *c1, int *c2, float *tr, float *level,
             int *resolution, char *trans, float *alpha, void *ffc) {
  void (*the_fcol)(float *, float *, float *, float *, float *, float *) =
      (void (*)(float *, float *, float *, float *, float *, float *))ffc;
  int idret;
  float ***c3grid = _s2_f2c3darr(grid, *adim, *bdim, *cdim);
  idret = ns2cisc(c3grid, *adim, *bdim, *cdim, *a1, *a2, *b1, *b2, *c1, *c2, tr,
                  *level, *resolution, *trans, *alpha, the_fcol);
  _s2warn(
      "ns2cis",
      "FORTRAN issue: isosurface will not respond to changes in data grid.\n");
  return idret;
}


x86 assembly (clang, -O0):
<ns2cisc_>:
push   %rbp
mov    %rsp,%rbp
push   %r15
push   %r14
push   %r13
push   %r12
push   %rbx
sub    $0x88,%rsp
mov    0x58(%rbp),%rax
mov    0x50(%rbp),%rax
mov    0x48(%rbp),%rax
mov    0x40(%rbp),%rax
mov    0x38(%rbp),%rax
mov    0x30(%rbp),%rax
mov    0x28(%rbp),%rax
mov    0x20(%rbp),%rax
mov    0x18(%rbp),%rax
mov    0x10(%rbp),%rax
mov    %rdi,-0x30(%rbp)
mov    %rsi,-0x38(%rbp)
mov    %rdx,-0x40(%rbp)
mov    %rcx,-0x48(%rbp)
mov    %r8,-0x50(%rbp)
mov    %r9,-0x58(%rbp)
mov    0x58(%rbp),%rax
mov    %rax,-0x60(%rbp)
mov    -0x30(%rbp),%rdi
mov    -0x38(%rbp),%rax
mov    (%rax),%esi
mov    -0x40(%rbp),%rax
mov    (%rax),%edx
mov    -0x48(%rbp),%rax
mov    (%rax),%ecx
call   1040 <_s2_f2c3darr@plt>
mov    %rax,-0x70(%rbp)
mov    -0x70(%rbp),%rdi
mov    -0x38(%rbp),%rax
mov    (%rax),%esi
mov    -0x40(%rbp),%rax
mov    (%rax),%edx
mov    -0x48(%rbp),%rax
mov    (%rax),%ecx
mov    -0x50(%rbp),%rax
mov    (%rax),%r8d
mov    -0x58(%rbp),%rax
mov    (%rax),%r9d
mov    0x10(%rbp),%rax
mov    (%rax),%r13d
mov    0x18(%rbp),%rax
mov    (%rax),%r12d
mov    0x20(%rbp),%rax
mov    (%rax),%r15d
mov    0x28(%rbp),%rax
mov    (%rax),%r14d
mov    0x30(%rbp),%rbx
mov    0x38(%rbp),%rax
movss  (%rax),%xmm0
mov    0x40(%rbp),%rax
mov    (%rax),%r11d
mov    0x48(%rbp),%rax
mov    (%rax),%r10b
mov    0x50(%rbp),%rax
movss  (%rax),%xmm1
mov    -0x60(%rbp),%rax
mov    %r13d,(%rsp)
mov    %r12d,0x8(%rsp)
mov    %r15d,0x10(%rsp)
mov    %r14d,0x18(%rsp)
mov    %rbx,0x20(%rsp)
mov    %r11d,0x28(%rsp)
movsbl %r10b,%r10d
mov    %r10d,0x30(%rsp)
mov    %rax,0x38(%rsp)
call   1030 <ns2cisc@plt>
mov    %eax,-0x64(%rbp)
lea    0xdb5(%rip),%rdi
lea    0xdb5(%rip),%rsi
call   1050 <_s2warn@plt>
mov    -0x64(%rbp),%eax
add    $0x88,%rsp
pop    %rbx
pop    %r12
pop    %r13
pop    %r14
pop    %r15
pop    %rbp
ret

x86 assembly (clang, -O2):
<ns2cisc_>:
push   %rbp
push   %r15
push   %r14
push   %r13
push   %r12
push   %rbx
push   %rax
mov    %r9,%r14
mov    %r8,%r15
mov    %rcx,%r12
mov    %rdx,%r13
mov    %rsi,%rbx
mov    0x40(%rsp),%rbp
mov    (%rsi),%esi
mov    (%rdx),%edx
mov    (%rcx),%ecx
call   1040 <_s2_f2c3darr@plt>
mov    (%rbx),%esi
mov    0x0(%r13),%edx
mov    (%r12),%ecx
mov    (%r15),%r8d
mov    (%r14),%r9d
mov    0x0(%rbp),%r10d
mov    0x48(%rsp),%rdi
mov    (%rdi),%r11d
mov    0x50(%rsp),%rdi
mov    (%rdi),%r14d
mov    0x58(%rsp),%rdi
mov    (%rdi),%r15d
mov    0x68(%rsp),%rdi
movss  (%rdi),%xmm0
mov    0x70(%rsp),%rdi
mov    (%rdi),%ebx
mov    0x78(%rsp),%rdi
movsbl (%rdi),%ebp
mov    0x80(%rsp),%rdi
movss  (%rdi),%xmm1
mov    %rax,%rdi
push   0x88(%rsp)
push   %rbp
push   %rbx
push   0x78(%rsp)
push   %r15
push   %r14
push   %r11
push   %r10
call   1030 <ns2cisc@plt>
add    $0x40,%rsp
mov    %eax,%ebx
lea    0xe2c(%rip),%rdi
lea    0xe2c(%rip),%rsi
call   1050 <_s2warn@plt>
mov    %ebx,%eax
add    $0x8,%rsp
pop    %rbx
pop    %r12
pop    %r13
pop    %r14
pop    %r15
pop    %rbp
ret

LLVM IR (-O0):
@.str = [7 x i8] c"ns2cis\00"
@.str.1 = [69 x i8] c"FORTRAN issue: isosurface will not respond to changes in data grid.\0A\00"
define i32 @ns2cisc_(float* %0, i32* %1, i32* %2, i32* %3, i32* %4, i32* %5, i32* %6, i32* %7, i32* %8, i32* %9, float* %10, float* %11, i32* %12, i8* %13, float* %14, i8* %15) {
%17 = alloca float*
%18 = alloca i32*
%19 = alloca i32*
%20 = alloca i32*
%21 = alloca i32*
%22 = alloca i32*
%23 = alloca i32*
%24 = alloca i32*
%25 = alloca i32*
%26 = alloca i32*
%27 = alloca float*
%28 = alloca float*
%29 = alloca i32*
%30 = alloca i8*
%31 = alloca float*
%32 = alloca i8*
%33 = alloca void (float*, float*, float*, float*, float*, float*)*
%34 = alloca i32
%35 = alloca float***
store float* %0, float** %17
store i32* %1, i32** %18
store i32* %2, i32** %19
store i32* %3, i32** %20
store i32* %4, i32** %21
store i32* %5, i32** %22
store i32* %6, i32** %23
store i32* %7, i32** %24
store i32* %8, i32** %25
store i32* %9, i32** %26
store float* %10, float** %27
store float* %11, float** %28
store i32* %12, i32** %29
store i8* %13, i8** %30
store float* %14, float** %31
store i8* %15, i8** %32
%36 = load i8*, i8** %32
%37 = bitcast i8* %36 to void (float*, float*, float*, float*, float*, float*)*
store void (float*, float*, float*, float*, float*, float*)* %37, void (float*, float*, float*, float*, float*, float*)** %33
%38 = load float*, float** %17
%39 = load i32*, i32** %18
%40 = load i32, i32* %39
%41 = load i32*, i32** %19
%42 = load i32, i32* %41
%43 = load i32*, i32** %20
%44 = load i32, i32* %43
%45 = call float*** @_s2_f2c3darr(float* %38, i32 %40, i32 %42, i32 %44)
store float*** %45, float**** %35
%46 = load float***, float**** %35
%47 = load i32*, i32** %18
%48 = load i32, i32* %47
%49 = load i32*, i32** %19
%50 = load i32, i32* %49
%51 = load i32*, i32** %20
%52 = load i32, i32* %51
%53 = load i32*, i32** %21
%54 = load i32, i32* %53
%55 = load i32*, i32** %22
%56 = load i32, i32* %55
%57 = load i32*, i32** %23
%58 = load i32, i32* %57
%59 = load i32*, i32** %24
%60 = load i32, i32* %59
%61 = load i32*, i32** %25
%62 = load i32, i32* %61
%63 = load i32*, i32** %26
%64 = load i32, i32* %63
%65 = load float*, float** %27
%66 = load float*, float** %28
%67 = load float, float* %66
%68 = load i32*, i32** %29
%69 = load i32, i32* %68
%70 = load i8*, i8** %30
%71 = load i8, i8* %70
%72 = load float*, float** %31
%73 = load float, float* %72
%74 = load void (float*, float*, float*, float*, float*, float*)*, void (float*, float*, float*, float*, float*, float*)** %33
%75 = call i32 @ns2cisc(float*** %46, i32 %48, i32 %50, i32 %52, i32 %54, i32 %56, i32 %58, i32 %60, i32 %62, i32 %64, float* %65, float %67, i32 %69, i8 signext %71, float %73, void (float*, float*, float*, float*, float*, float*)* %74)
store i32 %75, i32* %34
%76 = call i32 @_s2warn(i8* getelementptr inbounds ([7 x i8], [7 x i8]* @.str, i64 0, i64 0), i8* getelementptr inbounds ([69 x i8], [69 x i8]* @.str.1, i64 0, i64 0))
%77 = load i32, i32* %34
ret i32 %77
}

LLVM IR (-O2):
@.str = [7 x i8] c"ns2cis\00"
@.str.1 = [69 x i8] c"FORTRAN issue: isosurface will not respond to changes in data grid.\0A\00"
define i32 @ns2cisc_(float* %0, i32* nocapture %1, i32* nocapture %2, i32* nocapture %3, i32* nocapture %4, i32* nocapture %5, i32* nocapture %6, i32* nocapture %7, i32* nocapture %8, i32* nocapture %9, float* %10, float* nocapture %11, i32* nocapture %12, i8* nocapture %13, float* nocapture %14, i8* %15) {
%17 = bitcast i8* %15 to void (float*, float*, float*, float*, float*, float*)*
%18 = load i32, i32* %1
%19 = load i32, i32* %2
%20 = load i32, i32* %3
%21 = tail call float*** @_s2_f2c3darr(float* %0, i32 %18, i32 %19, i32 %20)
%22 = load i32, i32* %1
%23 = load i32, i32* %2
%24 = load i32, i32* %3
%25 = load i32, i32* %4
%26 = load i32, i32* %5
%27 = load i32, i32* %6
%28 = load i32, i32* %7
%29 = load i32, i32* %8
%30 = load i32, i32* %9
%31 = load float, float* %11
%32 = load i32, i32* %12
%33 = load i8, i8* %13
%34 = load float, float* %14
%35 = tail call i32 @ns2cisc(float*** %21, i32 %22, i32 %23, i32 %24, i32 %25, i32 %26, i32 %27, i32 %28, i32 %29, i32 %30, float* %10, float %31, i32 %32, i8 signext %33, float %34, void (float*, float*, float*, float*, float*, float*)* %17)
%36 = tail call i32 @_s2warn(i8* getelementptr inbounds ([7 x i8], [7 x i8]* @.str, i64 0, i64 0), i8* getelementptr inbounds ([69 x i8], [69 x i8]* @.str.1, i64 0, i64 0))
ret i32 %35
}