Home
last modified time | relevance | path

Searched refs:tmparr (Results 1 – 1 of 1) sorted by relevance

/petsc/src/tao/constrained/impls/ipm/
H A Dpdipm.c548 PetscScalar *Farr, *tmparr; in TaoSNESFunction_PDIPM_residual() local
570 PetscCall(VecGetArrayWrite(pdipm->z, &tmparr)); in TaoSNESFunction_PDIPM_residual()
571 for (i = 0; i < pdipm->nci; i++) tmparr[i] *= Xarr[pdipm->off_z + i]; in TaoSNESFunction_PDIPM_residual()
572 PetscCall(VecRestoreArrayWrite(pdipm->z, &tmparr)); in TaoSNESFunction_PDIPM_residual()
578 PetscCall(VecGetArrayWrite(pdipm->z, &tmparr)); in TaoSNESFunction_PDIPM_residual()
579 for (i = 0; i < pdipm->nci; i++) tmparr[i] /= Xarr[pdipm->off_z + i]; in TaoSNESFunction_PDIPM_residual()
580 PetscCall(VecRestoreArrayWrite(pdipm->z, &tmparr)); in TaoSNESFunction_PDIPM_residual()