Lines Matching refs:il
310 PetscScalar bspl(PetscScalar *x, PetscScalar xx, PetscInt il, PetscInt iq, PetscInt nll[][2], Petsc… in bspl() argument
321 i1 = nll[il][iq1]; in bspl()
322 i2 = nll[il][iq2]; in bspl()
339 PetscInt i, j, jj, il, ip, ipp, ipq, iq, iquad, iqq; in femBg() local
368 for (il = 0; il < nz - 1; il++) { in femBg()
374 zquad[il][0] = zip; in femBg()
375 zquad[il][1] = (0.5) * (zip + zipq); in femBg()
376 zquad[il][2] = zipq; in femBg()
377 dlen[il] = PetscAbsScalar(dl); in femBg()
378 nli[il][0] = ip; in femBg()
379 nli[il][1] = ipq; in femBg()
382 for (il = 0; il < nz - 1; il++) { in femBg()
384 dd = (dlen[il]) * (qdwt[iquad]); in femBg()
385 zz = zquad[il][iquad]; in femBg()
388 ip = nli[il][iq]; in femBg()
389 b_z = bspl(z, zz, il, iq, nli, 2); in femBg()
394 ipp = nli[il][iqq]; in femBg()
395 bb_z = bspl(z, zz, il, iqq, nli, 2); in femBg()
419 PetscInt i, j, il, ip, ipp, ipq, iq, iquad, iqq; in femA() local
449 for (il = 0; il < nz - 1; il++) { in femA()
455 rquad[il][0] = zip; in femA()
456 rquad[il][1] = (0.5) * (zip + zipq); in femA()
457 rquad[il][2] = zipq; in femA()
458 dlen[il] = PetscAbsScalar(dl); in femA()
459 nli[il][0] = ip; in femA()
460 nli[il][1] = ipq; in femA()
463 for (il = 0; il < nz - 1; il++) { in femA()
465 dd = (dlen[il]) * (qdwt[iquad]); in femA()
466 zz = rquad[il][iquad]; in femA()
469 ip = nli[il][iq]; in femA()
470 bb = bspl(z, zz, il, iq, nli, 1); in femA()
474 ipp = nli[il][iqq]; in femA()
475 bbb = bspl(z, zz, il, iqq, nli, 1); in femA()