void dsC2env(int *pnrows, double *Ax, int *Ai, int *Ap, double *diagvec,
             double *env, int *xenv) {
  int n = *pnrows;
  int i, j, k;
  int diff = 0;
  int pos = 0;
  int nenv;
  for (i = 0; i < n; i++) {
    diagvec[i] = Ax[Ap[i + 1] - 1];
    nenv = xenv[i + 1] - xenv[i];
    k = 0;
    for (j = 0; j < nenv; j++) {
      if ((Ai[Ap[i]] + j) == Ai[Ap[i] + k]) {
        env[pos + j] = Ax[Ap[i] + k];
        k += 1;
      }
    }
    pos += nenv;
  }
  return;
}


x86 assembly (clang, -O0):
<dsC2env>:
push   %rbp
mov    %rsp,%rbp
mov    0x10(%rbp),%rax
mov    %rdi,-0x8(%rbp)
mov    %rsi,-0x10(%rbp)
mov    %rdx,-0x18(%rbp)
mov    %rcx,-0x20(%rbp)
mov    %r8,-0x28(%rbp)
mov    %r9,-0x30(%rbp)
mov    -0x8(%rbp),%rax
mov    (%rax),%eax
mov    %eax,-0x34(%rbp)
movl   $0x0,-0x44(%rbp)
movl   $0x0,-0x48(%rbp)
movl   $0x0,-0x38(%rbp)
mov    -0x38(%rbp),%eax
cmp    -0x34(%rbp),%eax
jge    1241 <dsC2env+0x141>
mov    -0x10(%rbp),%rax
mov    -0x20(%rbp),%rcx
mov    -0x38(%rbp),%edx
add    $0x1,%edx
movslq %edx,%rdx
mov    (%rcx,%rdx,4),%ecx
sub    $0x1,%ecx
movslq %ecx,%rcx
movsd  (%rax,%rcx,8),%xmm0
mov    -0x28(%rbp),%rax
movslq -0x38(%rbp),%rcx
movsd  %xmm0,(%rax,%rcx,8)
mov    0x10(%rbp),%rax
mov    -0x38(%rbp),%ecx
add    $0x1,%ecx
movslq %ecx,%rcx
mov    (%rax,%rcx,4),%eax
mov    0x10(%rbp),%rcx
movslq -0x38(%rbp),%rdx
sub    (%rcx,%rdx,4),%eax
mov    %eax,-0x4c(%rbp)
movl   $0x0,-0x40(%rbp)
movl   $0x0,-0x3c(%rbp)
mov    -0x3c(%rbp),%eax
cmp    -0x4c(%rbp),%eax
jge    122a <dsC2env+0x12a>
mov    -0x18(%rbp),%rax
mov    -0x20(%rbp),%rcx
movslq -0x38(%rbp),%rdx
movslq (%rcx,%rdx,4),%rcx
mov    (%rax,%rcx,4),%eax
add    -0x3c(%rbp),%eax
mov    -0x18(%rbp),%rcx
mov    -0x20(%rbp),%rdx
movslq -0x38(%rbp),%rsi
mov    (%rdx,%rsi,4),%edx
add    -0x40(%rbp),%edx
movslq %edx,%rdx
cmp    (%rcx,%rdx,4),%eax
jne    1217 <dsC2env+0x117>
mov    -0x10(%rbp),%rax
mov    -0x20(%rbp),%rcx
movslq -0x38(%rbp),%rdx
mov    (%rcx,%rdx,4),%ecx
add    -0x40(%rbp),%ecx
movslq %ecx,%rcx
movsd  (%rax,%rcx,8),%xmm0
mov    -0x30(%rbp),%rax
mov    -0x48(%rbp),%ecx
add    -0x3c(%rbp),%ecx
movslq %ecx,%rcx
movsd  %xmm0,(%rax,%rcx,8)
mov    -0x40(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x40(%rbp)
jmp    121c <dsC2env+0x11c>
mov    -0x3c(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x3c(%rbp)
jmp    11a2 <dsC2env+0xa2>
mov    -0x4c(%rbp),%eax
add    -0x48(%rbp),%eax
mov    %eax,-0x48(%rbp)
mov    -0x38(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x38(%rbp)
jmp    113e <dsC2env+0x3e>
pop    %rbp
ret

x86 assembly (clang, -O2):
<dsC2env>:
push   %rbp
push   %r15
push   %r14
push   %r13
push   %r12
push   %rbx
mov    %r9,-0x38(%rsp)
mov    %r8,-0x10(%rsp)
mov    (%rdi),%eax
mov    %rax,-0x18(%rsp)
test   %eax,%eax
jle    126d <dsC2env+0x16d>
mov    %rcx,%r8
mov    0x38(%rsp),%rax
mov    (%rax),%r12d
mov    -0x38(%rsp),%rcx
add    $0x8,%rcx
mov    %rcx,-0x30(%rsp)
xor    %r13d,%r13d
xor    %ebp,%ebp
mov    %r8,-0x28(%rsp)
jmp    115d <dsC2env+0x5d>
nopl   0x0(%rax,%rax,1)
add    %ebx,%ebp
cmp    -0x18(%rsp),%r13
je     126d <dsC2env+0x16d>
mov    %r13,%rdi
mov    %r12d,%ecx
add    $0x1,%r13
movslq 0x4(%r8,%rdi,4),%rax
movsd  -0x8(%rsi,%rax,8),%xmm0
mov    -0x10(%rsp),%rax
movsd  %xmm0,(%rax,%rdi,8)
mov    0x38(%rsp),%rax
mov    0x4(%rax,%rdi,4),%r12d
mov    %r12d,%ebx
sub    %ecx,%ebx
test   %ebx,%ebx
jle    1150 <dsC2env+0x50>
movslq (%r8,%rdi,4),%rdi
mov    (%rdx,%rdi,4),%r11d
movslq %ebp,%rax
mov    %ebx,%r9d
cmp    $0x1,%ebx
mov    %rax,-0x20(%rsp)
mov    %r11d,-0x3c(%rsp)
mov    %r9,-0x8(%rsp)
jne    1200 <dsC2env+0x100>
xor    %r10d,%r10d
xor    %r11d,%r11d
testb  $0x1,-0x8(%rsp)
mov    -0x28(%rsp),%r8
je     1150 <dsC2env+0x50>
add    %edi,%r11d
movslq %r11d,%rdi
mov    -0x3c(%rsp),%eax
add    %r10d,%eax
cmp    (%rdx,%rdi,4),%eax
jne    1150 <dsC2env+0x50>
movsd  (%rsi,%rdi,8),%xmm0
add    -0x20(%rsp),%r10
mov    -0x38(%rsp),%rcx
movsd  %xmm0,(%rcx,%r10,8)
jmp    1150 <dsC2env+0x50>
cs nopw 0x0(%rax,%rax,1)
nopl   (%rax)
and    $0xfffffffe,%r9d
mov    -0x30(%rsp),%rcx
lea    (%rcx,%rax,8),%r8
xor    %r10d,%r10d
mov    %r11d,%r15d
xor    %r11d,%r11d
jmp    122d <dsC2env+0x12d>
nopl   0x0(%rax,%rax,1)
add    $0x2,%r10
add    $0x2,%r15d
cmp    %r10,%r9
je     11b7 <dsC2env+0xb7>
lea    (%rdi,%r11,1),%ecx
movslq %ecx,%rcx
cmp    (%rdx,%rcx,4),%r15d
jne    124a <dsC2env+0x14a>
movsd  (%rsi,%rcx,8),%xmm0
movsd  %xmm0,-0x8(%r8,%r10,8)
add    $0x1,%r11d
lea    (%rdi,%r11,1),%ecx
movslq %ecx,%r14
lea    0x1(%r15),%ecx
cmp    (%rdx,%r14,4),%ecx
jne    1220 <dsC2env+0x120>
movsd  (%rsi,%r14,8),%xmm0
movsd  %xmm0,(%r8,%r10,8)
add    $0x1,%r11d
jmp    1220 <dsC2env+0x120>
pop    %rbx
pop    %r12
pop    %r13
pop    %r14
pop    %r15
pop    %rbp
ret

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

LLVM IR (-O2):
define void @dsC2env(i32* nocapture %0, double* nocapture %1, i32* nocapture %2, i32* nocapture %3, double* nocapture writeonly %4, double* nocapture writeonly %5, i32* nocapture %6) {
%8 = load i32, i32* %0
%9 = icmp sgt i32 %8, 0
br i1 %9, label %10, label %99
10: ; preds = %7
%11 = zext i32 %8 to i64
%12 = load i32, i32* %6
br label %13
13: ; preds = %10, %96
%14 = phi i32 [ %12, %10 ], [ %26, %96 ]
%15 = phi i64 [ 0, %10 ], [ %17, %96 ]
%16 = phi i32 [ 0, %10 ], [ %97, %96 ]
%17 = add nuw nsw i64 %15, 1
%18 = getelementptr inbounds i32, i32* %3, i64 %17
%19 = load i32, i32* %18
%20 = add nsw i32 %19, -1
%21 = sext i32 %20 to i64
%22 = getelementptr inbounds double, double* %1, i64 %21
%23 = load double, double* %22
%24 = getelementptr inbounds double, double* %4, i64 %15
store double %23, double* %24
%25 = getelementptr inbounds i32, i32* %6, i64 %17
%26 = load i32, i32* %25
%27 = sub i32 %26, %14
%28 = icmp sgt i32 %27, 0
br i1 %28, label %29, label %96
29: ; preds = %13
%30 = getelementptr inbounds i32, i32* %3, i64 %15
%31 = load i32, i32* %30
%32 = sext i32 %31 to i64
%33 = getelementptr inbounds i32, i32* %2, i64 %32
%34 = load i32, i32* %33
%35 = sext i32 %16 to i64
%36 = zext i32 %27 to i64
%37 = and i64 %36, 1
%38 = icmp eq i32 %27, 1
br i1 %38, label %79, label %39
39: ; preds = %29
%40 = and i64 %36, 4294967294
br label %41
41: ; preds = %74, %39
%42 = phi i64 [ 0, %39 ], [ %76, %74 ]
%43 = phi i32 [ 0, %39 ], [ %75, %74 ]
%44 = phi i64 [ 0, %39 ], [ %77, %74 ]
%45 = add nsw i32 %31, %43
%46 = sext i32 %45 to i64
%47 = getelementptr inbounds i32, i32* %2, i64 %46
%48 = load i32, i32* %47
%49 = trunc i64 %42 to i32
%50 = add i32 %34, %49
%51 = icmp eq i32 %50, %48
br i1 %51, label %52, label %58
52: ; preds = %41
%53 = getelementptr inbounds double, double* %1, i64 %46
%54 = load double, double* %53
%55 = add nsw i64 %42, %35
%56 = getelementptr inbounds double, double* %5, i64 %55
store double %54, double* %56
%57 = add nsw i32 %43, 1
br label %58
58: ; preds = %41, %52
%59 = phi i32 [ %57, %52 ], [ %43, %41 ]
%60 = or i64 %42, 1
%61 = add nsw i32 %31, %59
%62 = sext i32 %61 to i64
%63 = getelementptr inbounds i32, i32* %2, i64 %62
%64 = load i32, i32* %63
%65 = trunc i64 %60 to i32
%66 = add i32 %34, %65
%67 = icmp eq i32 %66, %64
br i1 %67, label %68, label %74
68: ; preds = %58
%69 = getelementptr inbounds double, double* %1, i64 %62
%70 = load double, double* %69
%71 = add nsw i64 %60, %35
%72 = getelementptr inbounds double, double* %5, i64 %71
store double %70, double* %72
%73 = add nsw i32 %59, 1
br label %74
74: ; preds = %68, %58
%75 = phi i32 [ %73, %68 ], [ %59, %58 ]
%76 = add nuw nsw i64 %42, 2
%77 = add i64 %44, 2
%78 = icmp eq i64 %77, %40
br i1 %78, label %79, label %41
79: ; preds = %74, %29
%80 = phi i64 [ 0, %29 ], [ %76, %74 ]
%81 = phi i32 [ 0, %29 ], [ %75, %74 ]
%82 = icmp eq i64 %37, 0
br i1 %82, label %96, label %83
83: ; preds = %79
%84 = add nsw i32 %31, %81
%85 = sext i32 %84 to i64
%86 = getelementptr inbounds i32, i32* %2, i64 %85
%87 = load i32, i32* %86
%88 = trunc i64 %80 to i32
%89 = add i32 %34, %88
%90 = icmp eq i32 %89, %87
br i1 %90, label %91, label %96
91: ; preds = %83
%92 = getelementptr inbounds double, double* %1, i64 %85
%93 = load double, double* %92
%94 = add nsw i64 %80, %35
%95 = getelementptr inbounds double, double* %5, i64 %94
store double %93, double* %95
br label %96
96: ; preds = %79, %91, %83, %13
%97 = add nsw i32 %27, %16
%98 = icmp eq i64 %17, %11
br i1 %98, label %99, label %13
99: ; preds = %96, %7
ret void
}