Home
last modified time | relevance | path

Searched refs:iwa (Results 1 – 4 of 4) sorted by relevance

/petsc/src/mat/graphops/color/impls/minpack/
H A Ddsm.c7 … PetscInt *mingrp, PetscInt *info, PetscInt *ipntr, PetscInt *jpntr, PetscInt *iwa, PetscInt *liwa) in MINPACKdsm() argument
88 --iwa; in MINPACKdsm()
111 …PetscCall(MINPACKdegr(n, &indrow[1], &jpntr[1], &indcol[1], &ipntr[1], &iwa[*n * 5 + 1], &iwa[*n +… in MINPACKdsm()
116 …[1], &indcol[1], &ipntr[1], &iwa[*n * 5 + 1], &iwa[(*n << 2) + 1], &maxclq, &iwa[1], &iwa[*n + 1],… in MINPACKdsm()
117 …Kseq(n, &indrow[1], &jpntr[1], &indcol[1], &ipntr[1], &iwa[(*n << 2) + 1], &ngrp[1], maxgrp, &iwa[… in MINPACKdsm()
127 …[1], &indcol[1], &ipntr[1], &iwa[*n * 5 + 1], &iwa[(*n << 2) + 1], &maxclq, &iwa[1], &iwa[*n + 1],… in MINPACKdsm()
128 …Kseq(n, &indrow[1], &jpntr[1], &indcol[1], &ipntr[1], &iwa[(*n << 2) + 1], &iwa[1], &numgrp, &iwa[… in MINPACKdsm()
136 for (j = 1; j <= i__1; ++j) ngrp[j] = iwa[j]; in MINPACKdsm()
147 …PetscCall(MINPACKnumsrt(n, &i__1, &iwa[*n * 5 + 1], &c_n1, &iwa[(*n << 2) + 1], &iwa[(*n << 1) + 1… in MINPACKdsm()
148 …Kseq(n, &indrow[1], &jpntr[1], &indcol[1], &ipntr[1], &iwa[(*n << 2) + 1], &iwa[1], &numgrp, &iwa[… in MINPACKdsm()
[all …]
H A Dsetr.c5 …, PetscInt *n, PetscInt *indrow, PetscInt *jpntr, PetscInt *indcol, PetscInt *ipntr, PetscInt *iwa) in MINPACKsetr() argument
50 --iwa; in MINPACKsetr()
58 for (ir = 1; ir <= i__1; ++ir) iwa[ir] = 0; in MINPACKsetr()
61 for (jp = 1; jp <= i__1; ++jp) ++iwa[indrow[jp]]; in MINPACKsetr()
69 ipntr[ir + 1] = ipntr[ir] + iwa[ir]; in MINPACKsetr()
70 iwa[ir] = ipntr[ir]; in MINPACKsetr()
80 indcol[iwa[ir]] = jcol; in MINPACKsetr()
81 ++iwa[ir]; in MINPACKsetr()
H A Ddegr.c5 …onst PetscInt *jpntr, const PetscInt *indcol, const PetscInt *ipntr, PetscInt *ndeg, PetscInt *iwa) in MINPACKdegr() argument
54 --iwa; in MINPACKdegr()
65 iwa[jp] = 0; in MINPACKdegr()
74 iwa[jcol] = *n; in MINPACKdegr()
94 if (iwa[ic] < jcol) { in MINPACKdegr()
95 iwa[ic] = jcol; in MINPACKdegr()
H A Dseq.c5 …nt *indcol, const PetscInt *ipntr, PetscInt *list, PetscInt *ngrp, PetscInt *maxgrp, PetscInt *iwa) in MINPACKseq() argument
65 --iwa; in MINPACKseq()
78 iwa[jp] = 0; in MINPACKseq()
106 iwa[ngrp[ic]] = j; in MINPACKseq()
114 if (iwa[jp] != j) goto L50; in MINPACKseq()