Lines Matching refs:inout_matrix
845 PetscErrorCode spbas_keep_upper(spbas_matrix *inout_matrix) in spbas_keep_upper() argument
851 …PetscCheck(!inout_matrix->block_data, PETSC_COMM_SELF, PETSC_ERR_SUP_SYS, "Not yet for block data … in spbas_keep_upper()
852 for (i = 0; i < inout_matrix->nrows; i++) { in spbas_keep_upper()
853 …for (jstart = 0; (jstart < inout_matrix->row_nnz[i]) && (inout_matrix->icols[i][jstart] < 0); jsta… in spbas_keep_upper()
855 …for (j = 0; j < inout_matrix->row_nnz[i] - jstart; j++) inout_matrix->icols[i][j] = inout_matrix->… in spbas_keep_upper()
857 if (inout_matrix->values) { in spbas_keep_upper()
858 …for (j = 0; j < inout_matrix->row_nnz[i] - jstart; j++) inout_matrix->values[i][j] = inout_matrix-… in spbas_keep_upper()
861 inout_matrix->row_nnz[i] -= jstart; in spbas_keep_upper()
863 …inout_matrix->icols[i] = (PetscInt *)realloc((void *)inout_matrix->icols[i], inout_matrix->row_nnz… in spbas_keep_upper()
865 …if (inout_matrix->values) inout_matrix->values[i] = (PetscScalar *)realloc((void *)inout_matrix->v… in spbas_keep_upper()
866 inout_matrix->nnz -= jstart; in spbas_keep_upper()