Lines Matching refs:carr
55 PetscScalar *carr; in TaoPDIPMUpdateConstraints() local
66 PetscCall(VecGetArrayWrite(pdipm->ce, &carr)); in TaoPDIPMUpdateConstraints()
71 PetscCall(PetscArraycpy(carr, garr, pdipm->ng)); in TaoPDIPMUpdateConstraints()
81 carr[offset + k] = xarr[i] - xuarr[i]; in TaoPDIPMUpdateConstraints()
84 PetscCall(VecRestoreArrayWrite(pdipm->ce, &carr)); in TaoPDIPMUpdateConstraints()
87 PetscCall(VecGetArrayWrite(pdipm->ci, &carr)); in TaoPDIPMUpdateConstraints()
92 PetscCall(PetscArraycpy(carr, harr, pdipm->nh)); in TaoPDIPMUpdateConstraints()
102 carr[offset + k] = xuarr[i] - xarr[i]; in TaoPDIPMUpdateConstraints()
112 carr[offset + k] = xarr[i] - xlarr[i]; in TaoPDIPMUpdateConstraints()
123 carr[offset + k] = xuarr[i] - xarr[i]; in TaoPDIPMUpdateConstraints()
124 carr[offset1 + k] = xarr[i] - xlarr[i]; in TaoPDIPMUpdateConstraints()
127 PetscCall(VecRestoreArrayWrite(pdipm->ci, &carr)); in TaoPDIPMUpdateConstraints()
446 const PetscScalar *Xarr, *carr, *zarr, *larr; in TaoSNESFunction_PDIPM() local
504 PetscCall(VecGetArrayRead(pdipm->ce, &carr)); in TaoSNESFunction_PDIPM()
505 for (i = 0; i < pdipm->nce; i++) Farr[pdipm->off_lambdae + i] = carr[i]; in TaoSNESFunction_PDIPM()
506 PetscCall(VecRestoreArrayRead(pdipm->ce, &carr)); in TaoSNESFunction_PDIPM()
513 PetscCall(VecGetArrayRead(pdipm->ci, &carr)); in TaoSNESFunction_PDIPM()
517 Farr[pdipm->off_lambdai + i] = zarr[i] - carr[i]; in TaoSNESFunction_PDIPM()
520 PetscCall(VecRestoreArrayRead(pdipm->ci, &carr)); in TaoSNESFunction_PDIPM()
524 PetscCall(VecGetArrayRead(pdipm->ci, &carr)); in TaoSNESFunction_PDIPM()
528 Farr[pdipm->off_lambdai + i] = zarr[i] - carr[i]; in TaoSNESFunction_PDIPM()
531 PetscCall(VecRestoreArrayRead(pdipm->ci, &carr)); in TaoSNESFunction_PDIPM()