223   PetscScalar       *Xarr, *z, *lambdai;  in TaoPDIPMInitializeSolution()  local
240     PetscCall(VecSet(pdipm->lambdai, pdipm->push_init_lambdai));  in TaoPDIPMInitializeSolution()
244     PetscCall(VecGetArrayWrite(pdipm->lambdai, &lambdai));  in TaoPDIPMInitializeSolution()
250         if (pdipm->mu / z[i] > pdipm->push_init_lambdai) lambdai[i] = pdipm->mu / z[i];  in TaoPDIPMInitializeSolution()
254     PetscCall(VecRestoreArrayWrite(pdipm->lambdai, &lambdai));  in TaoPDIPMInitializeSolution()
708   PetscScalar       *Xarr, *z, *lambdai, dot, *taosolarr;  in SNESLineSearch_PDIPM()  local
726   lambdai  = Xarr + pdipm->off_lambdai;  in SNESLineSearch_PDIPM()
730 …if (lambdai[i] - dlambdai[i] < 0.0) alpha_d = PetscMin(0.9999 * lambdai[i] / dlambdai[i], alpha_d);  in SNESLineSearch_PDIPM()
762   if (pdipm->z) PetscCall(VecDot(pdipm->z, pdipm->lambdai, &dot));  in SNESLineSearch_PDIPM()
933 …ecCreateMPIWithArray(comm, 1, pdipm->nci, pdipm->Nci, Xarr + pdipm->off_lambdai, &pdipm->lambdai));  in TaoSetup_PDIPM()
1347   PetscCall(VecDestroy(&pdipm->lambdai)); /* Inequality constraints lagrangian multiplier*/  in TaoDestroy_PDIPM()