#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 */
int gridInqSize(int /*<<< orphan*/);
int /*<<< orphan*/ pstreamDefRecord(int, int, int /*<<< orphan*/);
int /*<<< orphan*/ pstreamWriteRecord(int, double *, int);
int /*<<< orphan*/ vlistInqVarGrid(int, int);
double vlistInqVarMissval(int, int);
void write_data(int streamID, int vlistID, int nvars, double *data[]) {
  int i;
  int varID;
  int nmiss;
  int gridsize;
  double missval;
  for (varID = 0; varID < nvars; ++varID) {
    gridsize = gridInqSize(vlistInqVarGrid(vlistID, varID));
    missval = vlistInqVarMissval(vlistID, varID);
    pstreamDefRecord(streamID, varID, 0);
    nmiss = 0;
    for (i = 0; i < gridsize; ++i)
      if ((((data[varID][i]) != (data[varID][i])) || ((missval) != (missval))
               ? (((data[varID][i]) != (data[varID][i])) &&
                          ((missval) != (missval))
                      ? 1
                      : 0)
               : !(data[varID][i] < missval || missval < data[varID][i])))
        nmiss++;
    pstreamWriteRecord(streamID, data[varID], nmiss);
  }
}


x86 assembly (clang, -O0):
<write_data>:
push   %rbp
mov    %rsp,%rbp
sub    $0x30,%rsp
mov    %edi,-0x4(%rbp)
mov    %esi,-0x8(%rbp)
mov    %edx,-0xc(%rbp)
mov    %rcx,-0x18(%rbp)
movl   $0x0,-0x20(%rbp)
mov    -0x20(%rbp),%eax
cmp    -0xc(%rbp),%eax
jge    1312 <write_data+0x1c2>
mov    -0x8(%rbp),%edi
mov    -0x20(%rbp),%esi
call   1030 <vlistInqVarGrid@plt>
mov    %eax,%edi
call   1060 <gridInqSize@plt>
mov    %eax,-0x28(%rbp)
mov    -0x8(%rbp),%edi
mov    -0x20(%rbp),%esi
call   1050 <vlistInqVarMissval@plt>
movsd  %xmm0,-0x30(%rbp)
mov    -0x4(%rbp),%edi
mov    -0x20(%rbp),%esi
xor    %edx,%edx
call   1040 <pstreamDefRecord@plt>
movl   $0x0,-0x24(%rbp)
movl   $0x0,-0x1c(%rbp)
mov    -0x1c(%rbp),%eax
cmp    -0x28(%rbp),%eax
jge    12ed <write_data+0x19d>
mov    -0x18(%rbp),%rax
movslq -0x20(%rbp),%rcx
mov    (%rax,%rcx,8),%rax
movslq -0x1c(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
mov    -0x18(%rbp),%rax
movslq -0x20(%rbp),%rcx
mov    (%rax,%rcx,8),%rax
movslq -0x1c(%rbp),%rcx
ucomisd (%rax,%rcx,8),%xmm0
jne    1215 <write_data+0xc5>
jp     1215 <write_data+0xc5>
movsd  -0x30(%rbp),%xmm0
ucomisd -0x30(%rbp),%xmm0
jne    1215 <write_data+0xc5>
jp     1215 <write_data+0xc5>
jmp    1289 <write_data+0x139>
mov    -0x18(%rbp),%rax
movslq -0x20(%rbp),%rcx
mov    (%rax,%rcx,8),%rax
movslq -0x1c(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
mov    -0x18(%rbp),%rax
movslq -0x20(%rbp),%rcx
mov    (%rax,%rcx,8),%rax
movslq -0x1c(%rbp),%rcx
ucomisd (%rax,%rcx,8),%xmm0
jne    1250 <write_data+0x100>
jp     1250 <write_data+0x100>
jmp    127a <write_data+0x12a>
movsd  -0x30(%rbp),%xmm0
ucomisd -0x30(%rbp),%xmm0
jne    126b <write_data+0x11b>
jp     126b <write_data+0x11b>
jmp    127a <write_data+0x12a>
mov    $0x1,%al
test   $0x1,%al
jne    12d1 <write_data+0x181>
jmp    12da <write_data+0x18a>
xor    %eax,%eax
test   $0x1,%al
jne    12d1 <write_data+0x181>
jmp    12da <write_data+0x18a>
mov    -0x18(%rbp),%rax
movslq -0x20(%rbp),%rcx
mov    (%rax,%rcx,8),%rax
movslq -0x1c(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm1
movsd  -0x30(%rbp),%xmm0
ucomisd %xmm1,%xmm0
ja     12da <write_data+0x18a>
movsd  -0x30(%rbp),%xmm1
mov    -0x18(%rbp),%rax
movslq -0x20(%rbp),%rcx
mov    (%rax,%rcx,8),%rax
movslq -0x1c(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
ucomisd %xmm1,%xmm0
ja     12da <write_data+0x18a>
mov    -0x24(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x24(%rbp)
jmp    12df <write_data+0x18f>
mov    -0x1c(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x1c(%rbp)
jmp    11b8 <write_data+0x68>
mov    -0x4(%rbp),%edi
mov    -0x18(%rbp),%rax
movslq -0x20(%rbp),%rcx
mov    (%rax,%rcx,8),%rsi
mov    -0x24(%rbp),%edx
call   1070 <pstreamWriteRecord@plt>
mov    -0x20(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x20(%rbp)
jmp    116c <write_data+0x1c>
add    $0x30,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<write_data>:
push   %rbp
push   %r15
push   %r14
push   %r13
push   %r12
push   %rbx
push   %rax
test   %edx,%edx
jle    12a7 <write_data+0x157>
mov    %rcx,%r14
mov    %esi,%r15d
mov    %edi,%r12d
mov    %edx,%r13d
xor    %ebp,%ebp
jmp    1195 <write_data+0x45>
add    $0x1,%edx
cs nopw 0x0(%rax,%rax,1)
mov    %r12d,%edi
call   1070 <pstreamWriteRecord@plt>
add    $0x1,%rbp
cmp    %r13,%rbp
je     12a7 <write_data+0x157>
mov    %r15d,%edi
mov    %ebp,%esi
call   1030 <vlistInqVarGrid@plt>
mov    %eax,%edi
call   1060 <gridInqSize@plt>
mov    %eax,%ebx
mov    %r15d,%edi
mov    %ebp,%esi
call   1050 <vlistInqVarMissval@plt>
movsd  %xmm0,(%rsp)
mov    %r12d,%edi
mov    %ebp,%esi
xor    %edx,%edx
call   1040 <pstreamDefRecord@plt>
mov    (%r14,%rbp,8),%rsi
mov    $0x0,%edx
test   %ebx,%ebx
jle    1180 <write_data+0x30>
mov    %ebx,%eax
cmp    $0x1,%ebx
jne    1210 <write_data+0xc0>
xor    %ecx,%ecx
xor    %edx,%edx
test   $0x1,%al
je     1180 <write_data+0x30>
movsd  (%rsi,%rcx,8),%xmm0
ucomisd %xmm0,%xmm0
movsd  (%rsp),%xmm1
jp     128e <write_data+0x13e>
ucomisd %xmm1,%xmm1
jp     128e <write_data+0x13e>
ucomisd %xmm1,%xmm0
jne    1180 <write_data+0x30>
jmp    1173 <write_data+0x23>
nopl   0x0(%rax)
mov    %eax,%edi
and    $0xfffffffe,%edi
xor    %ecx,%ecx
xor    %edx,%edx
movsd  (%rsp),%xmm1
jmp    122c <write_data+0xdc>
add    $0x1,%edx
add    $0x2,%rcx
cmp    %rcx,%rdi
je     11db <write_data+0x8b>
movsd  (%rsi,%rcx,8),%xmm0
ucomisd %xmm0,%xmm0
jp     1250 <write_data+0x100>
ucomisd %xmm1,%xmm1
jp     1250 <write_data+0x100>
ucomisd %xmm1,%xmm0
jne    125f <write_data+0x10f>
jmp    125c <write_data+0x10c>
cs nopw 0x0(%rax,%rax,1)
nop
ucomisd %xmm0,%xmm0
jnp    125f <write_data+0x10f>
ucomisd %xmm1,%xmm1
jnp    125f <write_data+0x10f>
add    $0x1,%edx
movsd  0x8(%rsi,%rcx,8),%xmm0
ucomisd %xmm0,%xmm0
jp     1280 <write_data+0x130>
ucomisd %xmm1,%xmm1
jp     1280 <write_data+0x130>
ucomisd %xmm1,%xmm0
jne    1223 <write_data+0xd3>
jmp    1220 <write_data+0xd0>
nopl   0x0(%rax)
ucomisd %xmm0,%xmm0
jnp    1223 <write_data+0xd3>
ucomisd %xmm1,%xmm1
jp     1220 <write_data+0xd0>
jmp    1223 <write_data+0xd3>
ucomisd %xmm0,%xmm0
jnp    1180 <write_data+0x30>
ucomisd %xmm1,%xmm1
jp     1173 <write_data+0x23>
jmp    1180 <write_data+0x30>
add    $0x8,%rsp
pop    %rbx
pop    %r12
pop    %r13
pop    %r14
pop    %r15
pop    %rbp
ret

LLVM IR (-O0):
define void @write_data(i32 %0, i32 %1, i32 %2, double** %3) {
%5 = alloca i32
%6 = alloca i32
%7 = alloca i32
%8 = alloca double**
%9 = alloca i32
%10 = alloca i32
%11 = alloca i32
%12 = alloca i32
%13 = alloca double
store i32 %0, i32* %5
store i32 %1, i32* %6
store i32 %2, i32* %7
store double** %3, double*** %8
store i32 0, i32* %10
br label %14
14: ; preds = %123, %4
%15 = load i32, i32* %10
%16 = load i32, i32* %7
%17 = icmp slt i32 %15, %16
br i1 %17, label %18, label %126
18: ; preds = %14
%19 = load i32, i32* %6
%20 = load i32, i32* %10
%21 = call i32 @vlistInqVarGrid(i32 %19, i32 %20)
%22 = call i32 @gridInqSize(i32 %21)
store i32 %22, i32* %12
%23 = load i32, i32* %6
%24 = load i32, i32* %10
%25 = call double @vlistInqVarMissval(i32 %23, i32 %24)
store double %25, double* %13
%26 = load i32, i32* %5
%27 = load i32, i32* %10
%28 = call i32 @pstreamDefRecord(i32 %26, i32 %27, i32 0)
store i32 0, i32* %11
store i32 0, i32* %9
br label %29
29: ; preds = %111, %18
%30 = load i32, i32* %9
%31 = load i32, i32* %12
%32 = icmp slt i32 %30, %31
br i1 %32, label %33, label %114
33: ; preds = %29
%34 = load double**, double*** %8
%35 = load i32, i32* %10
%36 = sext i32 %35 to i64
%37 = getelementptr inbounds double*, double** %34, i64 %36
%38 = load double*, double** %37
%39 = load i32, i32* %9
%40 = sext i32 %39 to i64
%41 = getelementptr inbounds double, double* %38, i64 %40
%42 = load double, double* %41
%43 = load double**, double*** %8
%44 = load i32, i32* %10
%45 = sext i32 %44 to i64
%46 = getelementptr inbounds double*, double** %43, i64 %45
%47 = load double*, double** %46
%48 = load i32, i32* %9
%49 = sext i32 %48 to i64
%50 = getelementptr inbounds double, double* %47, i64 %49
%51 = load double, double* %50
%52 = fcmp une double %42, %51
br i1 %52, label %57, label %53
53: ; preds = %33
%54 = load double, double* %13
%55 = load double, double* %13
%56 = fcmp une double %54, %55
br i1 %56, label %57, label %83
57: ; preds = %53, %33
%58 = load double**, double*** %8
%59 = load i32, i32* %10
%60 = sext i32 %59 to i64
%61 = getelementptr inbounds double*, double** %58, i64 %60
%62 = load double*, double** %61
%63 = load i32, i32* %9
%64 = sext i32 %63 to i64
%65 = getelementptr inbounds double, double* %62, i64 %64
%66 = load double, double* %65
%67 = load double**, double*** %8
%68 = load i32, i32* %10
%69 = sext i32 %68 to i64
%70 = getelementptr inbounds double*, double** %67, i64 %69
%71 = load double*, double** %70
%72 = load i32, i32* %9
%73 = sext i32 %72 to i64
%74 = getelementptr inbounds double, double* %71, i64 %73
%75 = load double, double* %74
%76 = fcmp une double %66, %75
br i1 %76, label %77, label %82
77: ; preds = %57
%78 = load double, double* %13
%79 = load double, double* %13
%80 = fcmp une double %78, %79
br i1 %80, label %81, label %82
81: ; preds = %77
br i1 true, label %107, label %110
82: ; preds = %77, %57
br i1 false, label %107, label %110
83: ; preds = %53
%84 = load double**, double*** %8
%85 = load i32, i32* %10
%86 = sext i32 %85 to i64
%87 = getelementptr inbounds double*, double** %84, i64 %86
%88 = load double*, double** %87
%89 = load i32, i32* %9
%90 = sext i32 %89 to i64
%91 = getelementptr inbounds double, double* %88, i64 %90
%92 = load double, double* %91
%93 = load double, double* %13
%94 = fcmp olt double %92, %93
br i1 %94, label %110, label %95
95: ; preds = %83
%96 = load double, double* %13
%97 = load double**, double*** %8
%98 = load i32, i32* %10
%99 = sext i32 %98 to i64
%100 = getelementptr inbounds double*, double** %97, i64 %99
%101 = load double*, double** %100
%102 = load i32, i32* %9
%103 = sext i32 %102 to i64
%104 = getelementptr inbounds double, double* %101, i64 %103
%105 = load double, double* %104
%106 = fcmp olt double %96, %105
br i1 %106, label %110, label %107
107: ; preds = %95, %82, %81
%108 = load i32, i32* %11
%109 = add nsw i32 %108, 1
store i32 %109, i32* %11
br label %110
110: ; preds = %107, %95, %83, %82, %81
br label %111
111: ; preds = %110
%112 = load i32, i32* %9
%113 = add nsw i32 %112, 1
store i32 %113, i32* %9
br label %29
114: ; preds = %29
%115 = load i32, i32* %5
%116 = load double**, double*** %8
%117 = load i32, i32* %10
%118 = sext i32 %117 to i64
%119 = getelementptr inbounds double*, double** %116, i64 %118
%120 = load double*, double** %119
%121 = load i32, i32* %11
%122 = call i32 @pstreamWriteRecord(i32 %115, double* %120, i32 %121)
br label %123
123: ; preds = %114
%124 = load i32, i32* %10
%125 = add nsw i32 %124, 1
store i32 %125, i32* %10
br label %14
126: ; preds = %14
ret void
}

LLVM IR (-O2):
define void @write_data(i32 %0, i32 %1, i32 %2, double** nocapture %3) {
%5 = icmp sgt i32 %2, 0
br i1 %5, label %6, label %78
6: ; preds = %4
%7 = zext i32 %2 to i64
br label %8
8: ; preds = %6, %73
%9 = phi i64 [ 0, %6 ], [ %76, %73 ]
%10 = trunc i64 %9 to i32
%11 = tail call i32 @vlistInqVarGrid(i32 %1, i32 %10)
%12 = tail call i32 @gridInqSize(i32 %11)
%13 = tail call double @vlistInqVarMissval(i32 %1, i32 %10)
%14 = tail call i32 @pstreamDefRecord(i32 %0, i32 %10, i32 0)
%15 = icmp sgt i32 %12, 0
%16 = getelementptr inbounds double*, double** %3, i64 %9
%17 = load double*, double** %16
br i1 %15, label %18, label %73
18: ; preds = %8
%19 = fcmp uno double %13, 0.000000e+00
%20 = zext i32 %12 to i64
%21 = and i64 %20, 1
%22 = icmp eq i32 %12, 1
br i1 %22, label %57, label %23
23: ; preds = %18
%24 = and i64 %20, 4294967294
br label %25
25: ; preds = %52, %23
%26 = phi i64 [ 0, %23 ], [ %54, %52 ]
%27 = phi i32 [ 0, %23 ], [ %53, %52 ]
%28 = phi i64 [ 0, %23 ], [ %55, %52 ]
%29 = getelementptr inbounds double, double* %17, i64 %26
%30 = load double, double* %29
%31 = fcmp uno double %30, 0.000000e+00
%32 = select i1 %31, i1 true, i1 %19
br i1 %32, label %33, label %35
33: ; preds = %25
%34 = select i1 %31, i1 %19, i1 false
br i1 %34, label %37, label %39
35: ; preds = %25
%36 = fcmp ueq double %30, %13
br i1 %36, label %37, label %39
37: ; preds = %35, %33
%38 = add nsw i32 %27, 1
br label %39
39: ; preds = %35, %37, %33
%40 = phi i32 [ %38, %37 ], [ %27, %33 ], [ %27, %35 ]
%41 = or i64 %26, 1
%42 = getelementptr inbounds double, double* %17, i64 %41
%43 = load double, double* %42
%44 = fcmp uno double %43, 0.000000e+00
%45 = select i1 %44, i1 true, i1 %19
br i1 %45, label %48, label %46
46: ; preds = %39
%47 = fcmp ueq double %43, %13
br i1 %47, label %50, label %52
48: ; preds = %39
%49 = select i1 %44, i1 %19, i1 false
br i1 %49, label %50, label %52
50: ; preds = %48, %46
%51 = add nsw i32 %40, 1
br label %52
52: ; preds = %50, %48, %46
%53 = phi i32 [ %51, %50 ], [ %40, %48 ], [ %40, %46 ]
%54 = add nuw nsw i64 %26, 2
%55 = add i64 %28, 2
%56 = icmp eq i64 %55, %24
br i1 %56, label %57, label %25
57: ; preds = %52, %18
%58 = phi i32 [ undef, %18 ], [ %53, %52 ]
%59 = phi i64 [ 0, %18 ], [ %54, %52 ]
%60 = phi i32 [ 0, %18 ], [ %53, %52 ]
%61 = icmp eq i64 %21, 0
br i1 %61, label %73, label %62
62: ; preds = %57
%63 = getelementptr inbounds double, double* %17, i64 %59
%64 = load double, double* %63
%65 = fcmp uno double %64, 0.000000e+00
%66 = select i1 %65, i1 true, i1 %19
br i1 %66, label %69, label %67
67: ; preds = %62
%68 = fcmp ueq double %64, %13
br i1 %68, label %71, label %73
69: ; preds = %62
%70 = select i1 %65, i1 %19, i1 false
br i1 %70, label %71, label %73
71: ; preds = %69, %67
%72 = add nsw i32 %60, 1
br label %73
73: ; preds = %57, %71, %69, %67, %8
%74 = phi i32 [ 0, %8 ], [ %58, %57 ], [ %72, %71 ], [ %60, %69 ], [ %60, %67 ]
%75 = tail call i32 @pstreamWriteRecord(i32 %0, double* %17, i32 %74)
%76 = add nuw nsw i64 %9, 1
%77 = icmp eq i64 %76, %7
br i1 %77, label %78, label %8
78: ; preds = %73, %4
ret void
}