int imcomp_nullscale(int *idata, long tilelen, int nullflagval, int nullval,
                     double scale, double zero, int *status) {
  long ii;
  double dvalue;
  for (ii = 0; ii < tilelen; ii++) {
    if (idata[ii] == nullflagval)
      idata[ii] = nullval;
    else {
      dvalue = (idata[ii] - zero) / scale;
      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_nullscale>:
push   %rbp
mov    %rsp,%rbp
mov    %rdi,-0x8(%rbp)
mov    %rsi,-0x10(%rbp)
mov    %edx,-0x14(%rbp)
mov    %ecx,-0x18(%rbp)
movsd  %xmm0,-0x20(%rbp)
movsd  %xmm1,-0x28(%rbp)
mov    %r8,-0x30(%rbp)
movq   $0x0,-0x38(%rbp)
mov    -0x38(%rbp),%rax
cmp    -0x10(%rbp),%rax
jge    1257 <imcomp_nullscale+0x157>
mov    -0x8(%rbp),%rax
mov    -0x38(%rbp),%rcx
mov    (%rax,%rcx,4),%eax
cmp    -0x14(%rbp),%eax
jne    115d <imcomp_nullscale+0x5d>
mov    -0x18(%rbp),%edx
mov    -0x8(%rbp),%rax
mov    -0x38(%rbp),%rcx
mov    %edx,(%rax,%rcx,4)
jmp    1241 <imcomp_nullscale+0x141>
mov    -0x8(%rbp),%rax
mov    -0x38(%rbp),%rcx
cvtsi2sdl (%rax,%rcx,4),%xmm0
subsd  -0x28(%rbp),%xmm0
divsd  -0x20(%rbp),%xmm0
movsd  %xmm0,-0x40(%rbp)
movsd  0xe7f(%rip),%xmm0
ucomisd -0x40(%rbp),%xmm0
jbe    11aa <imcomp_nullscale+0xaa>
mov    -0x30(%rbp),%rax
movl   $0xfffffff5,(%rax)
mov    -0x8(%rbp),%rax
mov    -0x38(%rbp),%rcx
movl   $0x80000000,(%rax,%rcx,4)
jmp    123c <imcomp_nullscale+0x13c>
movsd  -0x40(%rbp),%xmm0
movsd  0xe51(%rip),%xmm1
ucomisd %xmm1,%xmm0
jbe    11df <imcomp_nullscale+0xdf>
mov    -0x30(%rbp),%rax
movl   $0xfffffff5,(%rax)
mov    -0x8(%rbp),%rax
mov    -0x38(%rbp),%rcx
movl   $0x7fffffff,(%rax,%rcx,4)
jmp    1237 <imcomp_nullscale+0x137>
movsd  -0x40(%rbp),%xmm0
xorps  %xmm1,%xmm1
ucomisd %xmm1,%xmm0
jb     1212 <imcomp_nullscale+0x112>
movsd  0xe17(%rip),%xmm0
addsd  -0x40(%rbp),%xmm0
cvttsd2si %xmm0,%edx
mov    -0x8(%rbp),%rax
mov    -0x38(%rbp),%rcx
mov    %edx,(%rax,%rcx,4)
jmp    1232 <imcomp_nullscale+0x132>
movsd  -0x40(%rbp),%xmm0
movsd  0xdf1(%rip),%xmm1
subsd  %xmm1,%xmm0
cvttsd2si %xmm0,%edx
mov    -0x8(%rbp),%rax
mov    -0x38(%rbp),%rcx
mov    %edx,(%rax,%rcx,4)
jmp    1237 <imcomp_nullscale+0x137>
jmp    123c <imcomp_nullscale+0x13c>
jmp    1241 <imcomp_nullscale+0x141>
jmp    1246 <imcomp_nullscale+0x146>
mov    -0x38(%rbp),%rax
add    $0x1,%rax
mov    %rax,-0x38(%rbp)
jmp    1128 <imcomp_nullscale+0x28>
mov    -0x30(%rbp),%rax
mov    (%rax),%eax
pop    %rbp
ret

x86 assembly (clang, -O2):
<imcomp_nullscale>:
test   %rsi,%rsi
jle    11a8 <imcomp_nullscale+0xa8>
xor    %eax,%eax
movsd  0xeed(%rip),%xmm2
movsd  0xeed(%rip),%xmm3
xorpd  %xmm4,%xmm4
movsd  0xef1(%rip),%xmm5
movsd  0xee1(%rip),%xmm6
jmp    115a <imcomp_nullscale+0x5a>
cs nopw 0x0(%rax,%rax,1)
nopl   0x0(%rax,%rax,1)
movl   $0xfffffff5,(%r8)
mov    $0x80000000,%r9d
mov    %r9d,(%rdi,%rax,4)
add    $0x1,%rax
cmp    %rax,%rsi
je     11a8 <imcomp_nullscale+0xa8>
mov    (%rdi,%rax,4),%r10d
mov    %ecx,%r9d
cmp    %edx,%r10d
je     114d <imcomp_nullscale+0x4d>
xorps  %xmm7,%xmm7
cvtsi2sd %r10d,%xmm7
subsd  %xmm1,%xmm7
divsd  %xmm0,%xmm7
ucomisd %xmm7,%xmm2
ja     1140 <imcomp_nullscale+0x40>
ucomisd %xmm3,%xmm7
jbe    1191 <imcomp_nullscale+0x91>
movl   $0xfffffff5,(%r8)
mov    $0x7fffffff,%r9d
jmp    114d <imcomp_nullscale+0x4d>
ucomisd %xmm4,%xmm7
jae    119d <imcomp_nullscale+0x9d>
addsd  %xmm5,%xmm7
jmp    11a1 <imcomp_nullscale+0xa1>
addsd  %xmm6,%xmm7
cvttsd2si %xmm7,%r9d
jmp    114d <imcomp_nullscale+0x4d>
mov    (%r8),%eax
ret

LLVM IR (-O0):
define i32 @imcomp_nullscale(i32* %0, i64 %1, i32 %2, i32 %3, double %4, double %5, i32* %6) {
%8 = alloca i32*
%9 = alloca i64
%10 = alloca i32
%11 = alloca i32
%12 = alloca double
%13 = alloca double
%14 = alloca i32*
%15 = alloca i64
%16 = alloca double
store i32* %0, i32** %8
store i64 %1, i64* %9
store i32 %2, i32* %10
store i32 %3, i32* %11
store double %4, double* %12
store double %5, double* %13
store i32* %6, i32** %14
store i64 0, i64* %15
br label %17
17: ; preds = %79, %7
%18 = load i64, i64* %15
%19 = load i64, i64* %9
%20 = icmp slt i64 %18, %19
br i1 %20, label %21, label %82
21: ; preds = %17
%22 = load i32*, i32** %8
%23 = load i64, i64* %15
%24 = getelementptr inbounds i32, i32* %22, i64 %23
%25 = load i32, i32* %24
%26 = load i32, i32* %10
%27 = icmp eq i32 %25, %26
br i1 %27, label %28, label %33
28: ; preds = %21
%29 = load i32, i32* %11
%30 = load i32*, i32** %8
%31 = load i64, i64* %15
%32 = getelementptr inbounds i32, i32* %30, i64 %31
store i32 %29, i32* %32
br label %78
33: ; preds = %21
%34 = load i32*, i32** %8
%35 = load i64, i64* %15
%36 = getelementptr inbounds i32, i32* %34, i64 %35
%37 = load i32, i32* %36
%38 = sitofp i32 %37 to double
%39 = load double, double* %13
%40 = fsub double %38, %39
%41 = load double, double* %12
%42 = fdiv double %40, %41
store double %42, double* %16
%43 = load double, double* %16
%44 = fcmp olt double %43, 0xC1E00000000FAE14
br i1 %44, label %45, label %50
45: ; preds = %33
%46 = load i32*, i32** %14
store i32 -11, i32* %46
%47 = load i32*, i32** %8
%48 = load i64, i64* %15
%49 = getelementptr inbounds i32, i32* %47, i64 %48
store i32 -2147483648, i32* %49
br label %77
50: ; preds = %33
%51 = load double, double* %16
%52 = fcmp ogt double %51, 0x41DFFFFFFFDF5C29
br i1 %52, label %53, label %58
53: ; preds = %50
%54 = load i32*, i32** %14
store i32 -11, i32* %54
%55 = load i32*, i32** %8
%56 = load i64, i64* %15
%57 = getelementptr inbounds i32, i32* %55, i64 %56
store i32 2147483647, i32* %57
br label %76
58: ; preds = %50
%59 = load double, double* %16
%60 = fcmp oge double %59, 0.000000e+00
br i1 %60, label %61, label %68
61: ; preds = %58
%62 = load double, double* %16
%63 = fadd double %62, 5.000000e-01
%64 = fptosi double %63 to i32
%65 = load i32*, i32** %8
%66 = load i64, i64* %15
%67 = getelementptr inbounds i32, i32* %65, i64 %66
store i32 %64, i32* %67
br label %75
68: ; preds = %58
%69 = load double, double* %16
%70 = fsub double %69, 5.000000e-01
%71 = fptosi double %70 to i32
%72 = load i32*, i32** %8
%73 = load i64, i64* %15
%74 = getelementptr inbounds i32, i32* %72, i64 %73
store i32 %71, i32* %74
br label %75
75: ; preds = %68, %61
br label %76
76: ; preds = %75, %53
br label %77
77: ; preds = %76, %45
br label %78
78: ; preds = %77, %28
br label %79
79: ; preds = %78
%80 = load i64, i64* %15
%81 = add nsw i64 %80, 1
store i64 %81, i64* %15
br label %17
82: ; preds = %17
%83 = load i32*, i32** %14
%84 = load i32, i32* %83
ret i32 %84
}

LLVM IR (-O2):
define i32 @imcomp_nullscale(i32* nocapture %0, i64 %1, i32 %2, i32 %3, double %4, double %5, i32* nocapture %6) {
%8 = icmp sgt i64 %1, 0
br i1 %8, label %9, label %35
9: ; preds = %7, %31
%10 = phi i64 [ %33, %31 ], [ 0, %7 ]
%11 = getelementptr inbounds i32, i32* %0, i64 %10
%12 = load i32, i32* %11
%13 = icmp eq i32 %12, %2
br i1 %13, label %31, label %14
14: ; preds = %9
%15 = sitofp i32 %12 to double
%16 = fsub double %15, %5
%17 = fdiv double %16, %4
%18 = fcmp olt double %17, 0xC1E00000000FAE14
br i1 %18, label %19, label %20
19: ; preds = %14
store i32 -11, i32* %6
br label %31
20: ; preds = %14
%21 = fcmp ogt double %17, 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 %17, 0.000000e+00
br i1 %24, label %28, label %25
25: ; preds = %23
%26 = fadd double %17, 5.000000e-01
%27 = fptosi double %26 to i32
br label %31
28: ; preds = %23
%29 = fadd double %17, -5.000000e-01
%30 = fptosi double %29 to i32
br label %31
31: ; preds = %9, %22, %28, %25, %19
%32 = phi i32 [ 2147483647, %22 ], [ %30, %28 ], [ %27, %25 ], [ -2147483648, %19 ], [ %3, %9 ]
store i32 %32, i32* %11
%33 = add nuw nsw i64 %10, 1
%34 = icmp eq i64 %33, %1
br i1 %34, label %35, label %9
35: ; preds = %31, %7
%36 = load i32, i32* %6
ret i32 %36
}