Lines Matching refs:kk
284 PetscInt ii, jj, kk, l; in DeformationGradient() local
290 for (kk = 0; kk < NB; kk++) { in DeformationGradient()
293 PetscInt idx = ii + jj * NB + kk * NB * NB; in DeformationGradient()
311 …(PetscInt qi, PetscInt qj, PetscInt qk, PetscInt ii, PetscInt jj, PetscInt kk, PetscInt fld, Petsc… in DeformationGradientJacobian() argument
315 PetscInt idx = ii + jj * NB + kk * NB * NB; in DeformationGradientJacobian()
372 PetscInt i, j, k, ii, jj, kk; in FormElements() local
381 for (kk = 0; kk < NQ; kk++) { in FormElements()
384 … PetscInt idx = ii + NQ * jj + NQ * NQ * kk + NEQ * i + NEQ * NB * j + NEQ * NB * NB * k; in FormElements()
387 bz = pts[kk]; in FormElements()
419 PetscInt ii, jj, kk; in GatherElementData() local
421 for (kk = 0; kk < NB; kk++) { in GatherElementData()
424 PetscInt idx = ii + jj * NB + kk * NB * NB; in GatherElementData()
426 if (OnBoundary(i + ii, j + jj, k + kk, mx, my, mz)) { in GatherElementData()
427 BoundaryValue(i + ii, j + jj, k + kk, mx, my, mz, ex[idx], user); in GatherElementData()
429 for (m = 0; m < 3; m++) ex[idx][m] = x[k + kk][j + jj][i + ii][m]; in GatherElementData()
431 for (m = 0; m < 3; m++) ec[idx][m] = c[k + kk][j + jj][i + ii][m]; in GatherElementData()
439 PetscInt ii, jj, kk; in QuadraturePointGeometricJacobian() local
442 for (kk = 0; kk < NB; kk++) { in QuadraturePointGeometricJacobian()
445 PetscInt idx = ii + jj * NB + kk * NB * NB; in QuadraturePointGeometricJacobian()
468 PetscInt i, j, k, l, ii, jj, kk, ll, qi, qj, qk, m; in FormElementJacobian() local
496 for (kk = 0; kk < NB; kk++) { in FormElementJacobian()
499 PetscInt idx = ii + jj * NB + kk * NB * NB; in FormElementJacobian()
511 for (kk = 0; kk < NB; kk++) { in FormElementJacobian()
514 PetscInt idx = ii + jj * NB + kk * NB * NB; in FormElementJacobian()
536 for (kk = 0; kk < NB; kk++) { in FormElementJacobian()
539 PetscInt idx = ii + jj * NB + kk * NB * NB; in FormElementJacobian()
544 PetscInt teidx = ll + 3 * (ii + jj * NB + kk * NB * NB); in FormElementJacobian()
562 PetscInt ii, jj, kk, ll, ei, ej, ek, el; in ApplyBCsElement() local
563 for (kk = 0; kk < NB; kk++) { in ApplyBCsElement()
567 PetscInt tridx = ll + 3 * (ii + jj * NB + kk * NB * NB); in ApplyBCsElement()
572 …if (OnBoundary(i + ii, j + jj, k + kk, mx, my, mz) || OnBoundary(i + ei, j + ej, k + ek, mx, my, m… in ApplyBCsElement()
595 PetscInt ii, jj, kk; in FormJacobianLocal() local
637 for (kk = 0; kk < NB; kk++) { in FormJacobianLocal()
640 PetscInt idx = ii + jj * 2 + kk * 4; in FormJacobianLocal()
644 col[3 * idx + m].k = k + kk; in FormJacobianLocal()
646 …= xs && i + ii < xm + xs && j + jj >= ys && j + jj < ys + ym && k + kk >= zs && k + kk < zs + zm) { in FormJacobianLocal()
649 row[nrows].k = k + kk; in FormJacobianLocal()
704 PetscInt ii, jj, kk; in FormFunctionLocal() local
752 for (kk = 0; kk < NB; kk++) { in FormFunctionLocal()
755 PetscInt idx = ii + jj * NB + kk * NB * NB; in FormFunctionLocal()
756 …if (k + kk >= zs && j + jj >= ys && i + ii >= xs && k + kk < zs + zm && j + jj < ys + ym && i + ii… in FormFunctionLocal()
757 if (OnBoundary(i + ii, j + jj, k + kk, mx, my, mz)) { in FormFunctionLocal()
758 … for (l = 0; l < 3; l++) f[k + kk][j + jj][i + ii][l] = x[k + kk][j + jj][i + ii][l] - ex[idx][l]; in FormFunctionLocal()
760 for (l = 0; l < 3; l++) f[k + kk][j + jj][i + ii][l] += ef[idx][l]; in FormFunctionLocal()
784 PetscInt ii, jj, kk; in TangentLoad() local
840 for (kk = 0; kk < NB; kk++) { in TangentLoad()
843 PetscInt idx = ii + jj * NB + kk * NB * NB; in TangentLoad()
844 …if (k + kk >= zs && j + jj >= ys && i + ii >= xs && k + kk < zs + zm && j + jj < ys + ym && i + ii… in TangentLoad()
845 if (!OnBoundary(i + ii, j + jj, k + kk, mx, my, mz)) { in TangentLoad()
846 for (l = 0; l < 3; l++) q[k + kk][j + jj][i + ii][l] += eq[idx][l]; in TangentLoad()