Searched refs:inout_matrix (Results 1 – 1 of 1) sorted by relevance
845 PetscErrorCode spbas_keep_upper(spbas_matrix *inout_matrix) in spbas_keep_upper() argument851 …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()[all …]