Home
last modified time | relevance | path

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

/petsc/src/mat/tests/
H A Dex118.c17 PetscBLASInt n, il = 1, iu = 5, *iblock, *isplit, *iwork, nevs, *ifail, cklvl = 2; in main()
38 PetscCall(PetscMalloc1(3 * n + 1, &iblock)); in main()
39 isplit = iblock + n; in main()
49 …tol, (PetscReal *)D, (PetscReal *)E, &nevs, &nsplit, (PetscReal *)evals, iblock, isplit, work, iwo… in main()
55 …LAPACKstein_(&n, (PetscReal *)D, (PetscReal *)E, &nevs, (PetscReal *)evals, iblock, isplit, evecs_… in main()
103 PetscCall(PetscFree(iblock)); in main()
/petsc/src/tao/pde_constrained/tutorials/
H A Delliptic.c539 PetscInt m, n, i, j, k, l, linear_index, is, js, ks, ls, istart, iend, iblock; in EllipticInitialize() local
802 iblock = i / (user->mx - 1); in EllipticInitialize()
803 j = iblock * user->mx + (i % (user->mx - 1)); in EllipticInitialize()
809 iblock = (i - m / 3) / (user->mx * (user->mx - 1)); in EllipticInitialize()
810 j = iblock * user->mx * user->mx + ((i - m / 3) % (user->mx * (user->mx - 1))); in EllipticInitialize()
836 iblock = i / (user->mx - 1); in EllipticInitialize()
837 j = iblock * user->mx + (i % (user->mx - 1)); in EllipticInitialize()
843 iblock = (i - m / 3) / (user->mx * (user->mx - 1)); in EllipticInitialize()
844 j = iblock * user->mx * user->mx + ((i - m / 3) % (user->mx * (user->mx - 1))); in EllipticInitialize()
869 iblock = i / (user->mx - 1); in EllipticInitialize()
[all …]
H A Dparabolic.c658 PetscInt m, n, i, j, k, linear_index, istart, iend, iblock, lo, hi, lo2, hi2; in ParabolicInitialize() local
788 iblock = i / (user->mx - 1); in ParabolicInitialize()
789 j = iblock * user->mx + (i % (user->mx - 1)); in ParabolicInitialize()
795 iblock = (i - m / 3) / (user->mx * (user->mx - 1)); in ParabolicInitialize()
796 j = iblock * user->mx * user->mx + ((i - m / 3) % (user->mx * (user->mx - 1))); in ParabolicInitialize()
822 iblock = i / (user->mx - 1); in ParabolicInitialize()
823 j = iblock * user->mx + (i % (user->mx - 1)); in ParabolicInitialize()
829 iblock = (i - m / 3) / (user->mx * (user->mx - 1)); in ParabolicInitialize()
830 j = iblock * user->mx * user->mx + ((i - m / 3) % (user->mx * (user->mx - 1))); in ParabolicInitialize()
858 iblock = i / (user->mx - 1); in ParabolicInitialize()
[all …]
H A Dhyperbolic.c675 PetscInt n, i, j, linear_index, istart, iend, iblock, lo, hi; in HyperbolicInitialize() local
707 iblock = i / user->mx; in HyperbolicInitialize()
708 j = iblock * user->mx + ((i + user->mx - 1) % user->mx); in HyperbolicInitialize()
710 j = iblock * user->mx + ((i + 1) % user->mx); in HyperbolicInitialize()
732 iblock = i / user->mx; in HyperbolicInitialize()
733 j = iblock * user->mx + ((i + user->mx - 1) % user->mx); in HyperbolicInitialize()
735 j = iblock * user->mx + ((i + 1) % user->mx); in HyperbolicInitialize()
774 iblock = i / user->mx; in HyperbolicInitialize()
775 j = iblock * user->mx + ((i + user->mx - 1) % user->mx); in HyperbolicInitialize()
777 j = iblock * user->mx + ((i + 1) % user->mx); in HyperbolicInitialize()
[all …]