Searched refs:Farr (Results 1 – 1 of 1) sorted by relevance
443 PetscScalar *Farr; in TaoSNESFunction_PDIPM() local452 PetscCall(VecGetArrayWrite(F, &Farr)); in TaoSNESFunction_PDIPM()465 PetscCall(VecPlaceArray(L1, Farr)); /* L1 = 0.0 */ in TaoSNESFunction_PDIPM()505 for (i = 0; i < pdipm->nce; i++) Farr[pdipm->off_lambdae + i] = carr[i]; in TaoSNESFunction_PDIPM()517 Farr[pdipm->off_lambdai + i] = zarr[i] - carr[i]; in TaoSNESFunction_PDIPM()518 Farr[pdipm->off_z + i] = larr[i] - pdipm->mu / zarr[i]; in TaoSNESFunction_PDIPM()528 Farr[pdipm->off_lambdai + i] = zarr[i] - carr[i]; in TaoSNESFunction_PDIPM()529 Farr[pdipm->off_z + i] = zarr[i] * larr[i] - pdipm->mu; in TaoSNESFunction_PDIPM()536 PetscCall(VecRestoreArrayWrite(F, &Farr)); in TaoSNESFunction_PDIPM()548 PetscScalar *Farr, *tmparr; in TaoSNESFunction_PDIPM_residual() local[all …]