Home
last modified time | relevance | path

Searched refs:jcol (Results 1 – 6 of 6) sorted by relevance

/petsc/src/mat/graphops/color/impls/minpack/
H A Dido.c13 PetscInt jcol = 0, ncomp = 0, ic, ip, jp, ir, maxinc, numinc, numord, maxlst, numwgt, numlst; in MINPACKido() local
147 jcol = jp; in MINPACKido()
153 list[jcol] = numord; in MINPACKido()
169 if (!iwa2[jcol]) iwa1[maxinc] = iwa3[jcol]; in MINPACKido()
170 else iwa3[iwa2[jcol]] = iwa3[jcol]; in MINPACKido()
172 if (iwa3[jcol] > 0) iwa2[iwa3[jcol]] = iwa2[jcol]; in MINPACKido()
176 iwa4[jcol] = *n; in MINPACKido()
181 i__1 = jpntr[jcol + 1] - 1; in MINPACKido()
182 for (jp = jpntr[jcol]; jp <= i__1; ++jp) { in MINPACKido()
232 for (jcol = 1; jcol <= i__1; ++jcol) iwa2[list[jcol]] = jcol; in MINPACKido()
H A Ddegr.c11 PetscInt jcol, ic, ip, jp, ir; in MINPACKdegr() local
73 for (jcol = 2; jcol <= i__1; ++jcol) { in MINPACKdegr()
74 iwa[jcol] = *n; in MINPACKdegr()
79 i__2 = jpntr[jcol + 1] - 1; in MINPACKdegr()
80 for (jp = jpntr[jcol]; jp <= i__2; ++jp) { in MINPACKdegr()
94 if (iwa[ic] < jcol) { in MINPACKdegr()
95 iwa[ic] = jcol; in MINPACKdegr()
97 ++ndeg[jcol]; in MINPACKdegr()
H A Dslo.c11 PetscInt jcol, ic, ip, jp, ir, mindeg, numdeg, numord; in MINPACKslo() local
127 jcol = iwa1[mindeg]; in MINPACKslo()
128 if (jcol > 0) goto L50; in MINPACKslo()
132 list[jcol] = numord; in MINPACKslo()
146 iwa1[mindeg] = iwa3[jcol]; in MINPACKslo()
147 if (iwa3[jcol] > 0) iwa2[iwa3[jcol]] = 0; in MINPACKslo()
151 iwa4[jcol] = 0; in MINPACKslo()
156 i__1 = jpntr[jcol + 1] - 1; in MINPACKslo()
157 for (jp = jpntr[jcol]; jp <= i__1; ++jp) { in MINPACKslo()
207 for (jcol = 1; jcol <= i__1; ++jcol) iwa2[list[jcol]] = jcol; in MINPACKslo()
H A Dsetr.c11 PetscInt jcol, jp, ir; in MINPACKsetr() local
76 for (jcol = 1; jcol <= i__1; ++jcol) { in MINPACKsetr()
77 i__2 = jpntr[jcol + 1] - 1; in MINPACKsetr()
78 for (jp = jpntr[jcol]; jp <= i__2; ++jp) { in MINPACKsetr()
80 indcol[iwa[ir]] = jcol; in MINPACKsetr()
H A Dseq.c11 PetscInt jcol, j, ic, ip, jp, ir; in MINPACKseq() local
85 jcol = list[j]; in MINPACKseq()
92 i__2 = jpntr[jcol + 1] - 1; in MINPACKseq()
93 for (jp = jpntr[jcol]; jp <= i__2; ++jp) { in MINPACKseq()
118 ngrp[jcol] = jp; in MINPACKseq()
/petsc/src/mat/impls/aij/mpi/mkl_cpardiso/
H A Dmkl_cpardiso.c153 PetscInt colA_start, jB, jcol; in MatConvertToTriples_mpiaij_mpiaij_MKL_CPARDISO() local
191 jcol = garray[bjj[j]]; in MatConvertToTriples_mpiaij_mpiaij_MKL_CPARDISO()
192 if (jcol > colA_start) break; in MatConvertToTriples_mpiaij_mpiaij_MKL_CPARDISO()
193 col[nz] = jcol; in MatConvertToTriples_mpiaij_mpiaij_MKL_CPARDISO()
224 PetscInt colA_start, jB, jcol; in MatConvertToTriples_mpibaij_mpibaij_MKL_CPARDISO() local
262 jcol = garray[bjj[j]]; in MatConvertToTriples_mpibaij_mpibaij_MKL_CPARDISO()
263 if (jcol > colA_start) break; in MatConvertToTriples_mpibaij_mpibaij_MKL_CPARDISO()
264 col[nz++] = jcol + 1; in MatConvertToTriples_mpibaij_mpibaij_MKL_CPARDISO()