Select Code to Download

  my @r = (0) x scalar(@p) ;

  for my $i (0..$#row_index) {
    $r[$row_index[$i]-1] += $realval[$i] * $p[$col_index[$i]-1] ;
  } ;