Lines Matching refs:nl
740 PetscInt *idxs2, diff, perm, nl, bs, st, en, in; in main() local
754 nl = en - st; in main()
759 nl = n / size; in main()
760 if (rank < n % size) nl++; in main()
766 nl = en - st; in main()
769 PetscCall(ISCreateStride(PETSC_COMM_WORLD, nl, st, in, &is)); in main()
770 PetscCall(ISGetLocalSize(is, &nl)); in main()
772 PetscCall(PetscMalloc1(nl, &idxs2)); in main()
773 for (i = 0; i < nl; i++) { in main()
776 idxs2[i] = rank % 2 ? idxs[i] : idxs[nl - i - 1]; in main()
779 idxs2[i] = rank % 2 ? idxs[nl - i - 1] : idxs[i]; in main()
787 PetscCall(ISCreateBlock(PETSC_COMM_WORLD, bs, nl, idxs2, PETSC_OWN_POINTER, &bis)); in main()
792 for (i = 0; i < nl; i++) { in main()
805 PetscCall(MatGetLocalSize(Bbd, &nl, NULL)); in main()
807 for (i = 0; i < nl / bs; i++) { in main()