Home
last modified time | relevance | path

Searched refs:nzr (Results 1 – 5 of 5) sorted by relevance

/petsc/src/mat/tests/ !
H A Dex260.c7 PetscInt n = 1000000, nzr = (PetscInt)((double)PETSC_INT_MAX) / (3.8 * n); in main() local
20 PetscCall(PetscMalloc4(n + 1, &ii, n * nzr, &jd, n * nzr, &jo, n * nzr, &a)); in main()
23 ii[i + 1] = ii[i] + nzr; in main()
24 for (PetscInt j = 0; j < nzr; j++) jd[ii[i] + j] = j; in main()
26 for (PetscInt j = 0; j < nzr; j++) jo[ii[i] + j] = n + j - 1; in main()
28 for (PetscInt j = 0; j < nzr; j++) jo[ii[i] + j] = j; in main()
/petsc/src/mat/impls/sbaij/seq/ !
H A Dsro.c42 PetscInt *nzr,nz,jmin,jmax,j,k,ajk,i; in MatReorderingSeqSBAIJ()
68 PetscCall(PetscMalloc1(mbs,&nzr)); in MatReorderingSeqSBAIJ()
70 for (i=0; i<mbs; i++) nzr[i] = 0; in MatReorderingSeqSBAIJ()
87 nzr[k]++; /* increment count of nonzeros in that row */ in MatReorderingSeqSBAIJ()
98 ai[i+1] = ai[i] + nzr[i]; in MatReorderingSeqSBAIJ()
99 nzr[i] = ai[i+1]; in MatReorderingSeqSBAIJ()
111 nzr[i]--; r[j] = nzr[i]; in MatReorderingSeqSBAIJ()
141 PetscCall(PetscFree(nzr)); in MatReorderingSeqSBAIJ()
/petsc/src/mat/impls/is/ !
H A Dmatis.c2962 IS nzr, nzc; in MatAssemblyEnd_IS() local
2967 PetscCall(MatFindNonzeroRowsOrCols_Basic(is->A, PETSC_FALSE, PETSC_SMALL, &nzr)); in MatAssemblyEnd_IS()
2968 if (!nzr) PetscCall(ISCreateStride(PetscObjectComm((PetscObject)is->A), nr, 0, 1, &nzr)); in MatAssemblyEnd_IS()
2971 PetscCall(ISGetSize(nzr, &nnzr)); in MatAssemblyEnd_IS()
2978 PetscCall(MatCreateSubMatrix(is->A, nzr, nzc, MAT_INITIAL_MATRIX, &newlA)); in MatAssemblyEnd_IS()
2992 PetscCall(ISComplement(nzr, 0, nr, &zr)); in MatAssemblyEnd_IS()
3013 PetscCall(ISDestroy(&nzr)); in MatAssemblyEnd_IS()
3024 PetscCall(ISDestroy(&nzr)); in MatAssemblyEnd_IS()
/petsc/src/ts/impls/arkimex/ !
H A Darkimex.c1830 PetscInt *nzr; in TSARKIMEXComputeAlgebraicIS() local
1847 PetscCall(PetscMalloc1(nz, &nzr)); in TSARKIMEXComputeAlgebraicIS()
1850 if (w[i] == 0.0) nzr[nz++] = i + st; in TSARKIMEXComputeAlgebraicIS()
1852 PetscCall(ISCreateGeneral(PetscObjectComm((PetscObject)dm), nz, nzr, PETSC_OWN_POINTER, alg_is)); in TSARKIMEXComputeAlgebraicIS()
/petsc/src/mat/interface/ !
H A Dmatrix.c264 PetscInt *nzr; in MatFindNonzeroRowsOrCols_Basic() local
265 PetscCall(PetscMalloc1(nz, &nzr)); in MatFindNonzeroRowsOrCols_Basic()
269 if (al[i] != 0.0) nzr[nz++] = i + st; in MatFindNonzeroRowsOrCols_Basic()
272 if (PetscAbsScalar(al[i]) > tol) nzr[nz++] = i + st; in MatFindNonzeroRowsOrCols_Basic()
275 …PetscCall(ISCreateGeneral(PetscObjectComm((PetscObject)mat), nz, nzr, PETSC_OWN_POINTER, nonzero)); in MatFindNonzeroRowsOrCols_Basic()