Lines Matching refs:len
60 PetscInt i, j, len, ilo, ihi, *Iidx, m, M; in PCDeflationGetSpaceHaar() local
65 len = pow(2, size); in PCDeflationGetSpaceHaar()
66 PetscCall(PetscMalloc2(len, &col, len, &Iidx)); in PCDeflationGetSpaceHaar()
68 for (i = 0; i < len; i++) col[i] = val; in PCDeflationGetSpaceHaar()
74 PetscCall(MatSetSizes(defl, m, PETSC_DECIDE, M, PetscCeilInt(M, len))); in PCDeflationGetSpaceHaar()
81 for (i = 0; i < len; i++) Iidx[i] = i + ilo * len; in PCDeflationGetSpaceHaar()
82 if (M % len && ihi == PetscCeilInt(M, len)) ihi -= 1; in PCDeflationGetSpaceHaar()
84 PetscCall(MatSetValues(defl, len, Iidx, 1, &i, col, INSERT_VALUES)); in PCDeflationGetSpaceHaar()
85 for (j = 0; j < len; j++) Iidx[j] += len; in PCDeflationGetSpaceHaar()
87 if (M % len && ihi + 1 == PetscCeilInt(M, len)) { in PCDeflationGetSpaceHaar()
88 len = M % len; in PCDeflationGetSpaceHaar()
89 val = 1. / pow(pow(2, len), 0.5); in PCDeflationGetSpaceHaar()
90 for (i = 0; i < len; i++) col[i] = val; in PCDeflationGetSpaceHaar()
91 PetscCall(MatSetValues(defl, len, Iidx, 1, &ihi, col, INSERT_VALUES)); in PCDeflationGetSpaceHaar()