int RealSparseMatrixVectorProductPlusx(a_p, ipbra_p, ipera_p, ira_p, q_p, aq_p,
                                       nrow_p, ncol_p)
double *a_p, *q_p, *aq_p;
int *ipbra_p, *ipera_p, *ira_p;
int *ncol_p, *nrow_p;
{
  int *ira_ps;
  int jbeg, jend, irow;
  double *q_ps, *aq_ps, *a_ps;
  double qval;
  aq_ps = aq_p - 1;
  a_ps = a_p - 1;
  ira_ps = ira_p - 1;
  q_ps = q_p + *ncol_p;
  for (; q_p < q_ps; q_p++) {
    qval = *q_p;
    jbeg = *ipbra_p++;
    jend = *ipera_p++;
    for (; jbeg <= jend; jbeg++) {
      irow = *(ira_ps + jbeg);
      *(aq_ps + irow) += *(a_ps + jbeg) * qval;
    }
  }
  return 0;
}


x86 assembly (clang, -O0):
<RealSparseMatrixVectorProductPlusx>:
push   %rbp
mov    %rsp,%rbp
mov    0x18(%rbp),%rax
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    -0x30(%rbp),%rax
add    $0xfffffffffffffff8,%rax
mov    %rax,-0x58(%rbp)
mov    -0x8(%rbp),%rax
add    $0xfffffffffffffff8,%rax
mov    %rax,-0x60(%rbp)
mov    -0x20(%rbp),%rax
add    $0xfffffffffffffffc,%rax
mov    %rax,-0x38(%rbp)
mov    -0x28(%rbp),%rax
mov    0x18(%rbp),%rcx
movslq (%rcx),%rcx
shl    $0x3,%rcx
add    %rcx,%rax
mov    %rax,-0x50(%rbp)
mov    -0x28(%rbp),%rax
cmp    -0x50(%rbp),%rax
jae    120b <RealSparseMatrixVectorProductPlusx+0x10b>
mov    -0x28(%rbp),%rax
movsd  (%rax),%xmm0
movsd  %xmm0,-0x68(%rbp)
mov    -0x10(%rbp),%rax
mov    %rax,%rcx
add    $0x4,%rcx
mov    %rcx,-0x10(%rbp)
mov    (%rax),%eax
mov    %eax,-0x3c(%rbp)
mov    -0x18(%rbp),%rax
mov    %rax,%rcx
add    $0x4,%rcx
mov    %rcx,-0x18(%rbp)
mov    (%rax),%eax
mov    %eax,-0x40(%rbp)
mov    -0x3c(%rbp),%eax
cmp    -0x40(%rbp),%eax
jg     11f5 <RealSparseMatrixVectorProductPlusx+0xf5>
mov    -0x38(%rbp),%rax
movslq -0x3c(%rbp),%rcx
mov    (%rax,%rcx,4),%eax
mov    %eax,-0x44(%rbp)
mov    -0x60(%rbp),%rax
movslq -0x3c(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
movsd  -0x68(%rbp),%xmm2
mov    -0x58(%rbp),%rax
movslq -0x44(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm1
mulsd  %xmm2,%xmm0
addsd  %xmm1,%xmm0
movsd  %xmm0,(%rax,%rcx,8)
mov    -0x3c(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x3c(%rbp)
jmp    11a1 <RealSparseMatrixVectorProductPlusx+0xa1>
jmp    11fa <RealSparseMatrixVectorProductPlusx+0xfa>
mov    -0x28(%rbp),%rax
add    $0x8,%rax
mov    %rax,-0x28(%rbp)
jmp    115e <RealSparseMatrixVectorProductPlusx+0x5e>
xor    %eax,%eax
pop    %rbp
ret

x86 assembly (clang, -O2):
<RealSparseMatrixVectorProductPlusx>:
push   %rbp
push   %r14
push   %rbx
mov    0x28(%rsp),%rax
movslq (%rax),%rax
test   %rax,%rax
jle    11d5 <RealSparseMatrixVectorProductPlusx+0xd5>
lea    (%r8,%rax,8),%r10
jmp    1135 <RealSparseMatrixVectorProductPlusx+0x35>
nopl   0x0(%rax,%rax,1)
add    $0x4,%rsi
add    $0x4,%rdx
add    $0x8,%r8
cmp    %r10,%r8
jae    11d5 <RealSparseMatrixVectorProductPlusx+0xd5>
movslq (%rsi),%r11
mov    (%rdx),%ebx
cmp    %r11d,%ebx
jl     1120 <RealSparseMatrixVectorProductPlusx+0x20>
movsd  (%r8),%xmm0
lea    0x1(%rbx),%r14d
mov    %r14d,%ebp
sub    %r11d,%ebp
mov    %r11,%rax
test   $0x1,%bpl
je     1179 <RealSparseMatrixVectorProductPlusx+0x79>
movslq -0x4(%rcx,%r11,4),%rax
movsd  -0x8(%rdi,%r11,8),%xmm1
mulsd  %xmm0,%xmm1
addsd  -0x8(%r9,%rax,8),%xmm1
movsd  %xmm1,-0x8(%r9,%rax,8)
lea    0x1(%r11),%rax
cmp    %r11d,%ebx
je     1120 <RealSparseMatrixVectorProductPlusx+0x20>
mov    %r14d,%ebx
cs nopw 0x0(%rax,%rax,1)
nopl   0x0(%rax,%rax,1)
movslq -0x4(%rcx,%rax,4),%rbp
movsd  -0x8(%rdi,%rax,8),%xmm1
mulsd  %xmm0,%xmm1
addsd  -0x8(%r9,%rbp,8),%xmm1
movsd  %xmm1,-0x8(%r9,%rbp,8)
movslq (%rcx,%rax,4),%rbp
movsd  (%rdi,%rax,8),%xmm1
mulsd  %xmm0,%xmm1
addsd  -0x8(%r9,%rbp,8),%xmm1
movsd  %xmm1,-0x8(%r9,%rbp,8)
add    $0x2,%rax
cmp    %eax,%ebx
jne    1190 <RealSparseMatrixVectorProductPlusx+0x90>
jmp    1120 <RealSparseMatrixVectorProductPlusx+0x20>
xor    %eax,%eax
pop    %rbx
pop    %r14
pop    %rbp
ret

LLVM IR (-O0):
define i32 @RealSparseMatrixVectorProductPlusx(double* %0, i32* %1, i32* %2, i32* %3, double* %4, double* %5, i32* %6, i32* %7) {
%9 = alloca double*
%10 = alloca i32*
%11 = alloca i32*
%12 = alloca i32*
%13 = alloca double*
%14 = alloca double*
%15 = alloca i32*
%16 = alloca i32*
%17 = alloca i32*
%18 = alloca i32
%19 = alloca i32
%20 = alloca i32
%21 = alloca double*
%22 = alloca double*
%23 = alloca double*
%24 = alloca double
store double* %0, double** %9
store i32* %1, i32** %10
store i32* %2, i32** %11
store i32* %3, i32** %12
store double* %4, double** %13
store double* %5, double** %14
store i32* %6, i32** %15
store i32* %7, i32** %16
%25 = load double*, double** %14
%26 = getelementptr inbounds double, double* %25, i64 -1
store double* %26, double** %22
%27 = load double*, double** %9
%28 = getelementptr inbounds double, double* %27, i64 -1
store double* %28, double** %23
%29 = load i32*, i32** %12
%30 = getelementptr inbounds i32, i32* %29, i64 -1
store i32* %30, i32** %17
%31 = load double*, double** %13
%32 = load i32*, i32** %16
%33 = load i32, i32* %32
%34 = sext i32 %33 to i64
%35 = getelementptr inbounds double, double* %31, i64 %34
store double* %35, double** %21
br label %36
36: ; preds = %75, %8
%37 = load double*, double** %13
%38 = load double*, double** %21
%39 = icmp ult double* %37, %38
br i1 %39, label %40, label %78
40: ; preds = %36
%41 = load double*, double** %13
%42 = load double, double* %41
store double %42, double* %24
%43 = load i32*, i32** %10
%44 = getelementptr inbounds i32, i32* %43, i32 1
store i32* %44, i32** %10
%45 = load i32, i32* %43
store i32 %45, i32* %18
%46 = load i32*, i32** %11
%47 = getelementptr inbounds i32, i32* %46, i32 1
store i32* %47, i32** %11
%48 = load i32, i32* %46
store i32 %48, i32* %19
br label %49
49: ; preds = %71, %40
%50 = load i32, i32* %18
%51 = load i32, i32* %19
%52 = icmp sle i32 %50, %51
br i1 %52, label %53, label %74
53: ; preds = %49
%54 = load i32*, i32** %17
%55 = load i32, i32* %18
%56 = sext i32 %55 to i64
%57 = getelementptr inbounds i32, i32* %54, i64 %56
%58 = load i32, i32* %57
store i32 %58, i32* %20
%59 = load double*, double** %23
%60 = load i32, i32* %18
%61 = sext i32 %60 to i64
%62 = getelementptr inbounds double, double* %59, i64 %61
%63 = load double, double* %62
%64 = load double, double* %24
%65 = load double*, double** %22
%66 = load i32, i32* %20
%67 = sext i32 %66 to i64
%68 = getelementptr inbounds double, double* %65, i64 %67
%69 = load double, double* %68
%70 = call double @llvm.fmuladd.f64(double %63, double %64, double %69)
store double %70, double* %68
br label %71
71: ; preds = %53
%72 = load i32, i32* %18
%73 = add nsw i32 %72, 1
store i32 %73, i32* %18
br label %49
74: ; preds = %49
br label %75
75: ; preds = %74
%76 = load double*, double** %13
%77 = getelementptr inbounds double, double* %76, i32 1
store double* %77, double** %13
br label %36
78: ; preds = %36
ret i32 0
}

LLVM IR (-O2):
define i32 @RealSparseMatrixVectorProductPlusx(double* nocapture %0, i32* nocapture %1, i32* nocapture %2, i32* nocapture %3, double* %4, double* nocapture %5, i32* nocapture readnone %6, i32* nocapture %7) {
%9 = getelementptr inbounds double, double* %5, i64 -1
%10 = getelementptr inbounds double, double* %0, i64 -1
%11 = getelementptr inbounds i32, i32* %3, i64 -1
%12 = load i32, i32* %7
%13 = sext i32 %12 to i64
%14 = getelementptr inbounds double, double* %4, i64 %13
%15 = icmp sgt i32 %12, 0
br i1 %15, label %16, label %69
16: ; preds = %8, %66
%17 = phi i32* [ %21, %66 ], [ %1, %8 ]
%18 = phi i32* [ %23, %66 ], [ %2, %8 ]
%19 = phi double* [ %67, %66 ], [ %4, %8 ]
%20 = load double, double* %19
%21 = getelementptr inbounds i32, i32* %17, i64 1
%22 = load i32, i32* %17
%23 = getelementptr inbounds i32, i32* %18, i64 1
%24 = load i32, i32* %18
%25 = icmp slt i32 %24, %22
br i1 %25, label %66, label %26
26: ; preds = %16
%27 = sext i32 %22 to i64
%28 = add i32 %24, 1
%29 = sub i32 %28, %22
%30 = and i32 %29, 1
%31 = icmp eq i32 %30, 0
br i1 %31, label %42, label %32
32: ; preds = %26
%33 = getelementptr inbounds i32, i32* %11, i64 %27
%34 = load i32, i32* %33
%35 = getelementptr inbounds double, double* %10, i64 %27
%36 = load double, double* %35
%37 = sext i32 %34 to i64
%38 = getelementptr inbounds double, double* %9, i64 %37
%39 = load double, double* %38
%40 = tail call double @llvm.fmuladd.f64(double %36, double %20, double %39)
store double %40, double* %38
%41 = add nsw i64 %27, 1
br label %42
42: ; preds = %32, %26
%43 = phi i64 [ %27, %26 ], [ %41, %32 ]
%44 = icmp eq i32 %24, %22
br i1 %44, label %66, label %45
45: ; preds = %42, %45
%46 = phi i64 [ %63, %45 ], [ %43, %42 ]
%47 = getelementptr inbounds i32, i32* %11, i64 %46
%48 = load i32, i32* %47
%49 = getelementptr inbounds double, double* %10, i64 %46
%50 = load double, double* %49
%51 = sext i32 %48 to i64
%52 = getelementptr inbounds double, double* %9, i64 %51
%53 = load double, double* %52
%54 = tail call double @llvm.fmuladd.f64(double %50, double %20, double %53)
store double %54, double* %52
%55 = getelementptr inbounds i32, i32* %3, i64 %46
%56 = load i32, i32* %55
%57 = getelementptr inbounds double, double* %0, i64 %46
%58 = load double, double* %57
%59 = sext i32 %56 to i64
%60 = getelementptr inbounds double, double* %9, i64 %59
%61 = load double, double* %60
%62 = tail call double @llvm.fmuladd.f64(double %58, double %20, double %61)
store double %62, double* %60
%63 = add nsw i64 %46, 2
%64 = trunc i64 %63 to i32
%65 = icmp eq i32 %28, %64
br i1 %65, label %66, label %45
66: ; preds = %42, %45, %16
%67 = getelementptr inbounds double, double* %19, i64 1
%68 = icmp ult double* %67, %14
br i1 %68, label %16, label %69
69: ; preds = %66, %8
ret i32 0
}