int imcomp_nulldoubles(double *fdata, long tilelen, int *idata, int nullcheck,
                       double nullflagval, int nullval, int *status) {
  long ii;
  double dvalue;
  if (nullcheck == 1) {
    for (ii = 0; ii < tilelen; ii++) {
      if (fdata[ii] == nullflagval)
        idata[ii] = nullval;
      else {
        dvalue = fdata[ii];
        if (dvalue < -2147483648.49) {
          *status = -11;
          idata[ii] = (-2147483647 - 1);
        } else if (dvalue > 2147483647.49) {
          *status = -11;
          idata[ii] = 2147483647;
        } else {
          if (dvalue >= 0.)
            idata[ii] = (int)(dvalue + .5);
          else
            idata[ii] = (int)(dvalue - .5);
        }
      }
    }
  } else {
    for (ii = 0; ii < tilelen; ii++) {
      dvalue = fdata[ii];
      if (dvalue < -2147483648.49) {
        *status = -11;
        idata[ii] = (-2147483647 - 1);
      } else if (dvalue > 2147483647.49) {
        *status = -11;
        idata[ii] = 2147483647;
      } else {
        if (dvalue >= 0.)
          idata[ii] = (int)(dvalue + .5);
        else
          idata[ii] = (int)(dvalue - .5);
      }
    }
  }
  return (*status);
}


x86 assembly (clang, -O0):
<imcomp_nulldoubles>:
push   %rbp
mov    %rsp,%rbp
mov    %rdi,-0x8(%rbp)
mov    %rsi,-0x10(%rbp)
mov    %rdx,-0x18(%rbp)
mov    %ecx,-0x1c(%rbp)
movsd  %xmm0,-0x28(%rbp)
mov    %r8d,-0x2c(%rbp)
mov    %r9,-0x38(%rbp)
cmpl   $0x1,-0x1c(%rbp)
jne    1266 <imcomp_nulldoubles+0x166>
movq   $0x0,-0x40(%rbp)
mov    -0x40(%rbp),%rax
cmp    -0x10(%rbp),%rax
jge    1261 <imcomp_nulldoubles+0x161>
mov    -0x8(%rbp),%rax
mov    -0x40(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
ucomisd -0x28(%rbp),%xmm0
jne    1171 <imcomp_nulldoubles+0x71>
jp     1171 <imcomp_nulldoubles+0x71>
mov    -0x2c(%rbp),%edx
mov    -0x18(%rbp),%rax
mov    -0x40(%rbp),%rcx
mov    %edx,(%rax,%rcx,4)
jmp    124b <imcomp_nulldoubles+0x14b>
mov    -0x8(%rbp),%rax
mov    -0x40(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
movsd  %xmm0,-0x48(%rbp)
movsd  0xe75(%rip),%xmm0
ucomisd -0x48(%rbp),%xmm0
jbe    11b4 <imcomp_nulldoubles+0xb4>
mov    -0x38(%rbp),%rax
movl   $0xfffffff5,(%rax)
mov    -0x18(%rbp),%rax
mov    -0x40(%rbp),%rcx
movl   $0x80000000,(%rax,%rcx,4)
jmp    1246 <imcomp_nulldoubles+0x146>
movsd  -0x48(%rbp),%xmm0
movsd  0xe47(%rip),%xmm1
ucomisd %xmm1,%xmm0
jbe    11e9 <imcomp_nulldoubles+0xe9>
mov    -0x38(%rbp),%rax
movl   $0xfffffff5,(%rax)
mov    -0x18(%rbp),%rax
mov    -0x40(%rbp),%rcx
movl   $0x7fffffff,(%rax,%rcx,4)
jmp    1241 <imcomp_nulldoubles+0x141>
movsd  -0x48(%rbp),%xmm0
xorps  %xmm1,%xmm1
ucomisd %xmm1,%xmm0
jb     121c <imcomp_nulldoubles+0x11c>
movsd  0xe0d(%rip),%xmm0
addsd  -0x48(%rbp),%xmm0
cvttsd2si %xmm0,%edx
mov    -0x18(%rbp),%rax
mov    -0x40(%rbp),%rcx
mov    %edx,(%rax,%rcx,4)
jmp    123c <imcomp_nulldoubles+0x13c>
movsd  -0x48(%rbp),%xmm0
movsd  0xde7(%rip),%xmm1
subsd  %xmm1,%xmm0
cvttsd2si %xmm0,%edx
mov    -0x18(%rbp),%rax
mov    -0x40(%rbp),%rcx
mov    %edx,(%rax,%rcx,4)
jmp    1241 <imcomp_nulldoubles+0x141>
jmp    1246 <imcomp_nulldoubles+0x146>
jmp    124b <imcomp_nulldoubles+0x14b>
jmp    1250 <imcomp_nulldoubles+0x150>
mov    -0x40(%rbp),%rax
add    $0x1,%rax
mov    %rax,-0x40(%rbp)
jmp    1132 <imcomp_nulldoubles+0x32>
jmp    136c <imcomp_nulldoubles+0x26c>
movq   $0x0,-0x40(%rbp)
mov    -0x40(%rbp),%rax
cmp    -0x10(%rbp),%rax
jge    1367 <imcomp_nulldoubles+0x267>
mov    -0x8(%rbp),%rax
mov    -0x40(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
movsd  %xmm0,-0x48(%rbp)
movsd  0xd6a(%rip),%xmm0
ucomisd -0x48(%rbp),%xmm0
jbe    12bf <imcomp_nulldoubles+0x1bf>
mov    -0x38(%rbp),%rax
movl   $0xfffffff5,(%rax)
mov    -0x18(%rbp),%rax
mov    -0x40(%rbp),%rcx
movl   $0x80000000,(%rax,%rcx,4)
jmp    1351 <imcomp_nulldoubles+0x251>
movsd  -0x48(%rbp),%xmm0
movsd  0xd3c(%rip),%xmm1
ucomisd %xmm1,%xmm0
jbe    12f4 <imcomp_nulldoubles+0x1f4>
mov    -0x38(%rbp),%rax
movl   $0xfffffff5,(%rax)
mov    -0x18(%rbp),%rax
mov    -0x40(%rbp),%rcx
movl   $0x7fffffff,(%rax,%rcx,4)
jmp    134c <imcomp_nulldoubles+0x24c>
movsd  -0x48(%rbp),%xmm0
xorps  %xmm1,%xmm1
ucomisd %xmm1,%xmm0
jb     1327 <imcomp_nulldoubles+0x227>
movsd  0xd02(%rip),%xmm0
addsd  -0x48(%rbp),%xmm0
cvttsd2si %xmm0,%edx
mov    -0x18(%rbp),%rax
mov    -0x40(%rbp),%rcx
mov    %edx,(%rax,%rcx,4)
jmp    1347 <imcomp_nulldoubles+0x247>
movsd  -0x48(%rbp),%xmm0
movsd  0xcdc(%rip),%xmm1
subsd  %xmm1,%xmm0
cvttsd2si %xmm0,%edx
mov    -0x18(%rbp),%rax
mov    -0x40(%rbp),%rcx
mov    %edx,(%rax,%rcx,4)
jmp    134c <imcomp_nulldoubles+0x24c>
jmp    1351 <imcomp_nulldoubles+0x251>
jmp    1356 <imcomp_nulldoubles+0x256>
mov    -0x40(%rbp),%rax
add    $0x1,%rax
mov    %rax,-0x40(%rbp)
jmp    126e <imcomp_nulldoubles+0x16e>
jmp    136c <imcomp_nulldoubles+0x26c>
mov    -0x38(%rbp),%rax
mov    (%rax),%eax
pop    %rbp
ret

x86 assembly (clang, -O2):
<imcomp_nulldoubles>:
cmp    $0x1,%ecx
jne    11a0 <imcomp_nulldoubles+0xa0>
test   %rsi,%rsi
jle    1236 <imcomp_nulldoubles+0x136>
xor    %eax,%eax
movsd  0xee4(%rip),%xmm1
movsd  0xee4(%rip),%xmm2
xorpd  %xmm3,%xmm3
movsd  0xee8(%rip),%xmm4
movsd  0xed8(%rip),%xmm5
jmp    1160 <imcomp_nulldoubles+0x60>
movl   $0xfffffff5,(%r9)
mov    $0x80000000,%ecx
cs nopw 0x0(%rax,%rax,1)
mov    %ecx,(%rdx,%rax,4)
add    $0x1,%rax
cmp    %rax,%rsi
je     1236 <imcomp_nulldoubles+0x136>
movsd  (%rdi,%rax,8),%xmm6
ucomisd %xmm0,%xmm6
mov    %r8d,%ecx
jne    1170 <imcomp_nulldoubles+0x70>
jnp    1150 <imcomp_nulldoubles+0x50>
ucomisd %xmm6,%xmm1
ja     113a <imcomp_nulldoubles+0x3a>
ucomisd %xmm2,%xmm6
jbe    118a <imcomp_nulldoubles+0x8a>
movl   $0xfffffff5,(%r9)
mov    $0x7fffffff,%ecx
jmp    1150 <imcomp_nulldoubles+0x50>
ucomisd %xmm3,%xmm6
jae    1196 <imcomp_nulldoubles+0x96>
addsd  %xmm4,%xmm6
jmp    119a <imcomp_nulldoubles+0x9a>
addsd  %xmm5,%xmm6
cvttsd2si %xmm6,%ecx
jmp    1150 <imcomp_nulldoubles+0x50>
test   %rsi,%rsi
jle    1236 <imcomp_nulldoubles+0x136>
xor    %eax,%eax
movsd  0xe4d(%rip),%xmm0
movsd  0xe4d(%rip),%xmm1
xorpd  %xmm2,%xmm2
movsd  0xe51(%rip),%xmm3
movsd  0xe41(%rip),%xmm4
jmp    11f8 <imcomp_nulldoubles+0xf8>
cs nopw 0x0(%rax,%rax,1)
nopl   0x0(%rax,%rax,1)
movl   $0xfffffff5,(%r9)
mov    $0x80000000,%ecx
mov    %ecx,(%rdx,%rax,4)
add    $0x1,%rax
cmp    %rax,%rsi
je     1236 <imcomp_nulldoubles+0x136>
movsd  (%rdi,%rax,8),%xmm5
ucomisd %xmm5,%xmm0
ja     11e0 <imcomp_nulldoubles+0xe0>
ucomisd %xmm1,%xmm5
jbe    1220 <imcomp_nulldoubles+0x120>
movl   $0xfffffff5,(%r9)
mov    $0x7fffffff,%ecx
jmp    11ec <imcomp_nulldoubles+0xec>
nopw   0x0(%rax,%rax,1)
ucomisd %xmm2,%xmm5
jae    122c <imcomp_nulldoubles+0x12c>
addsd  %xmm3,%xmm5
jmp    1230 <imcomp_nulldoubles+0x130>
addsd  %xmm4,%xmm5
cvttsd2si %xmm5,%ecx
jmp    11ec <imcomp_nulldoubles+0xec>
mov    (%r9),%eax
ret

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

LLVM IR (-O2):
define i32 @imcomp_nulldoubles(double* nocapture %0, i64 %1, i32* nocapture writeonly %2, i32 %3, double %4, i32 %5, i32* nocapture %6) {
%8 = icmp eq i32 %3, 1
%9 = icmp sgt i64 %1, 0
br i1 %8, label %11, label %10
10: ; preds = %7
br i1 %9, label %36, label %58
11: ; preds = %7
br i1 %9, label %12, label %58
12: ; preds = %11, %31
%13 = phi i64 [ %34, %31 ], [ 0, %11 ]
%14 = getelementptr inbounds double, double* %0, i64 %13
%15 = load double, double* %14
%16 = fcmp oeq double %15, %4
br i1 %16, label %31, label %17
17: ; preds = %12
%18 = fcmp olt double %15, 0xC1E00000000FAE14
br i1 %18, label %19, label %20
19: ; preds = %17
store i32 -11, i32* %6
br label %31
20: ; preds = %17
%21 = fcmp ogt double %15, 0x41DFFFFFFFDF5C29
br i1 %21, label %22, label %23
22: ; preds = %20
store i32 -11, i32* %6
br label %31
23: ; preds = %20
%24 = fcmp ult double %15, 0.000000e+00
br i1 %24, label %28, label %25
25: ; preds = %23
%26 = fadd double %15, 5.000000e-01
%27 = fptosi double %26 to i32
br label %31
28: ; preds = %23
%29 = fadd double %15, -5.000000e-01
%30 = fptosi double %29 to i32
br label %31
31: ; preds = %12, %22, %28, %25, %19
%32 = phi i32 [ 2147483647, %22 ], [ %30, %28 ], [ %27, %25 ], [ -2147483648, %19 ], [ %5, %12 ]
%33 = getelementptr inbounds i32, i32* %2, i64 %13
store i32 %32, i32* %33
%34 = add nuw nsw i64 %13, 1
%35 = icmp eq i64 %34, %1
br i1 %35, label %58, label %12
36: ; preds = %10, %53
%37 = phi i64 [ %56, %53 ], [ 0, %10 ]
%38 = getelementptr inbounds double, double* %0, i64 %37
%39 = load double, double* %38
%40 = fcmp olt double %39, 0xC1E00000000FAE14
br i1 %40, label %41, label %42
41: ; preds = %36
store i32 -11, i32* %6
br label %53
42: ; preds = %36
%43 = fcmp ogt double %39, 0x41DFFFFFFFDF5C29
br i1 %43, label %44, label %45
44: ; preds = %42
store i32 -11, i32* %6
br label %53
45: ; preds = %42
%46 = fcmp ult double %39, 0.000000e+00
br i1 %46, label %50, label %47
47: ; preds = %45
%48 = fadd double %39, 5.000000e-01
%49 = fptosi double %48 to i32
br label %53
50: ; preds = %45
%51 = fadd double %39, -5.000000e-01
%52 = fptosi double %51 to i32
br label %53
53: ; preds = %41, %47, %50, %44
%54 = phi i32 [ -2147483648, %41 ], [ %49, %47 ], [ %52, %50 ], [ 2147483647, %44 ]
%55 = getelementptr inbounds i32, i32* %2, i64 %37
store i32 %54, i32* %55
%56 = add nuw nsw i64 %37, 1
%57 = icmp eq i64 %56, %1
br i1 %57, label %58, label %36
58: ; preds = %53, %31, %10, %11
%59 = load i32, i32* %6
ret i32 %59
}