Lines Matching refs:in_matrix

433 PetscErrorCode spbas_transpose(spbas_matrix in_matrix, spbas_matrix *result)  in spbas_transpose()  argument
435 PetscInt col_idx_type = in_matrix.col_idx_type; in spbas_transpose()
436 PetscInt nnz = in_matrix.nnz; in spbas_transpose()
437 PetscInt ncols = in_matrix.nrows; in spbas_transpose()
438 PetscInt nrows = in_matrix.ncols; in spbas_transpose()
454 PetscCall(spbas_allocate_pattern(result, in_matrix.values ? PETSC_TRUE : PETSC_FALSE)); in spbas_transpose()
460 r_nnz = in_matrix.row_nnz[i]; in spbas_transpose()
461 irow = in_matrix.icols[i]; in spbas_transpose()
467 icol0 = in_matrix.icol0[i]; in spbas_transpose()
479 if (in_matrix.values) { in spbas_transpose()
481 r_nnz = in_matrix.row_nnz[i]; in spbas_transpose()
482 irow = in_matrix.icols[i]; in spbas_transpose()
483 val = in_matrix.values[i]; in spbas_transpose()
487 else if (col_idx_type == SPBAS_OFFSET_ARRAY) icol0 = in_matrix.icol0[i]; in spbas_transpose()
497 r_nnz = in_matrix.row_nnz[i]; in spbas_transpose()
498 irow = in_matrix.icols[i]; in spbas_transpose()
502 else if (col_idx_type == SPBAS_OFFSET_ARRAY) icol0 = in_matrix.icol0[i]; in spbas_transpose()
739 … spbas_matrix *in_matrix, /* matrix for which the power is being calculated */ in spbas_mark_row_power() argument
747 nnz = in_matrix->row_nnz[row]; in spbas_mark_row_power()
752 j = row + in_matrix->icols[row][i]; in spbas_mark_row_power()
754 …PetscCall(spbas_mark_row_power(iwork, row + in_matrix->icols[row][i], in_matrix, marker / 2, minmr… in spbas_mark_row_power()
761 j = row + in_matrix->icols[row][i]; in spbas_mark_row_power()
775 PetscErrorCode spbas_power(spbas_matrix in_matrix, PetscInt power, spbas_matrix *result) in spbas_power() argument
778 PetscInt nrows = in_matrix.nrows; in spbas_power()
779 PetscInt ncols = in_matrix.ncols; in spbas_power()
787 …PetscCheck(in_matrix.col_idx_type == SPBAS_DIAGONAL_OFFSETS, PETSC_COMM_SELF, PETSC_ERR_SUP_SYS, "… in spbas_power()
789 …PetscCheck(!in_matrix.values, PETSC_COMM_SELF, PETSC_ERR_ARG_INCOMP, "Input array must be sparsene… in spbas_power()
800 PetscCall(spbas_allocate_pattern(&retval, in_matrix.values ? PETSC_TRUE : PETSC_FALSE)); in spbas_power()
812 nnz = in_matrix.row_nnz[i]; in spbas_power()
813 kend = i + in_matrix.icols[i][nnz - 1]; in spbas_power()
815 PetscCall(spbas_mark_row_power(iwork, i, &in_matrix, marker, i, maxmrk)); in spbas_power()