int RealSparseMatrixTransposeVectorProduct(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;
  a_ps = a_p - 1;
  ira_ps = ira_p - 1;
  q_ps = q_p - 1;
  aq_ps = aq_p + *ncol_p;
  for (; aq_p < aq_ps; aq_p++) {
    jbeg = *ipbra_p++;
    jend = *ipera_p++;
    qval = 0.;
    for (; jbeg <= jend; jbeg++) {
      irow = *(ira_ps + jbeg);
      qval += *(a_ps + jbeg) * *(q_ps + irow);
    }
    *aq_p = qval;
  }
  return 0;
}


x86 assembly (clang, -O0):
<RealSparseMatrixTransposeVectorProduct>:
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    -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
add    $0xfffffffffffffff8,%rax
mov    %rax,-0x50(%rbp)
mov    -0x30(%rbp),%rax
mov    0x18(%rbp),%rcx
movslq (%rcx),%rcx
shl    $0x3,%rcx
add    %rcx,%rax
mov    %rax,-0x58(%rbp)
mov    -0x30(%rbp),%rax
cmp    -0x58(%rbp),%rax
jae    120e <RealSparseMatrixTransposeVectorProduct+0x10e>
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)
xorps  %xmm0,%xmm0
movsd  %xmm0,-0x68(%rbp)
mov    -0x3c(%rbp),%eax
cmp    -0x40(%rbp),%eax
jg     11f0 <RealSparseMatrixTransposeVectorProduct+0xf0>
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
mov    -0x50(%rbp),%rax
movslq -0x44(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm2
movsd  -0x68(%rbp),%xmm1
mulsd  %xmm2,%xmm0
addsd  %xmm1,%xmm0
movsd  %xmm0,-0x68(%rbp)
mov    -0x3c(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x3c(%rbp)
jmp    119c <RealSparseMatrixTransposeVectorProduct+0x9c>
movsd  -0x68(%rbp),%xmm0
mov    -0x30(%rbp),%rax
movsd  %xmm0,(%rax)
mov    -0x30(%rbp),%rax
add    $0x8,%rax
mov    %rax,-0x30(%rbp)
jmp    115e <RealSparseMatrixTransposeVectorProduct+0x5e>
xor    %eax,%eax
pop    %rbp
ret

x86 assembly (clang, -O2):
<RealSparseMatrixTransposeVectorProduct>:
push   %rbp
push   %r14
push   %rbx
mov    0x28(%rsp),%rax
movslq (%rax),%rax
test   %rax,%rax
jle    11f3 <RealSparseMatrixTransposeVectorProduct+0xf3>
lea    (%r9,%rax,8),%r10
jmp    113a <RealSparseMatrixTransposeVectorProduct+0x3a>
nopl   0x0(%rax,%rax,1)
add    $0x4,%rsi
add    $0x4,%rdx
movsd  %xmm0,(%r9)
add    $0x8,%r9
cmp    %r10,%r9
jae    11f3 <RealSparseMatrixTransposeVectorProduct+0xf3>
movslq (%rsi),%rax
mov    (%rdx),%r11d
xorpd  %xmm0,%xmm0
cmp    %eax,%r11d
jl     1120 <RealSparseMatrixTransposeVectorProduct+0x20>
lea    0x1(%r11),%r14d
mov    %r14d,%ebp
sub    %eax,%ebp
sub    %eax,%r11d
xorpd  %xmm0,%xmm0
and    $0x3,%ebp
je     117f <RealSparseMatrixTransposeVectorProduct+0x7f>
xchg   %ax,%ax
movslq -0x4(%rcx,%rax,4),%rbx
movsd  -0x8(%rdi,%rax,8),%xmm1
mulsd  -0x8(%r8,%rbx,8),%xmm1
addsd  %xmm1,%xmm0
add    $0x1,%rax
add    $0xffffffff,%ebp
jne    1160 <RealSparseMatrixTransposeVectorProduct+0x60>
cmp    $0x3,%r11d
jb     1120 <RealSparseMatrixTransposeVectorProduct+0x20>
mov    %r14d,%ebx
nopl   0x0(%rax,%rax,1)
movslq -0x4(%rcx,%rax,4),%rbp
movsd  -0x8(%rdi,%rax,8),%xmm1
movsd  (%rdi,%rax,8),%xmm2
mulsd  -0x8(%r8,%rbp,8),%xmm1
addsd  %xmm0,%xmm1
movslq (%rcx,%rax,4),%rbp
mulsd  -0x8(%r8,%rbp,8),%xmm2
addsd  %xmm1,%xmm2
movslq 0x4(%rcx,%rax,4),%rbp
movsd  0x8(%rdi,%rax,8),%xmm1
mulsd  -0x8(%r8,%rbp,8),%xmm1
movslq 0x8(%rcx,%rax,4),%rbp
movsd  0x10(%rdi,%rax,8),%xmm0
mulsd  -0x8(%r8,%rbp,8),%xmm0
addsd  %xmm2,%xmm1
addsd  %xmm1,%xmm0
add    $0x4,%rax
cmp    %eax,%ebx
jne    1190 <RealSparseMatrixTransposeVectorProduct+0x90>
jmp    1120 <RealSparseMatrixTransposeVectorProduct+0x20>
xor    %eax,%eax
pop    %rbx
pop    %r14
pop    %rbp
ret

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

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