443   PetscScalar       *Farr;  in TaoSNESFunction_PDIPM()  local
452   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
556   PetscCall(VecGetArrayWrite(F, &Farr));  in TaoSNESFunction_PDIPM_residual()
561   PetscCall(VecPlaceArray(L1, Farr));  in TaoSNESFunction_PDIPM_residual()
568       PetscCall(VecPlaceArray(pdipm->z, Farr + pdipm->off_z));  in TaoSNESFunction_PDIPM_residual()
584       PetscCall(VecPlaceArray(pdipm->z, Farr + pdipm->off_z));  in TaoSNESFunction_PDIPM_residual()
589     PetscCall(VecPlaceArray(pdipm->ci, Farr + pdipm->off_lambdai));  in TaoSNESFunction_PDIPM_residual()
599     PetscCall(VecPlaceArray(pdipm->ce, Farr + pdipm->off_lambdae));  in TaoSNESFunction_PDIPM_residual()
604   PetscCall(VecRestoreArrayWrite(F, &Farr));  in TaoSNESFunction_PDIPM_residual()