Select Code to Download

void
_do_matrix( char *in, long rows, long cols, char *out )
...
      out_matrix[i*rows+j]= val­ue;
    }
  }

sub do_matrix(\@) {
    my( $avMatrix )= @_;
    my( $rows )= 0+@$avMatrix;
...
    }
    return \@ret;
}