Home
last modified time | relevance | path

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

/petsc/src/ts/tutorials/optimal_control/ !
H A Dex1.c101 PetscScalar dJpdP[2][2][2] = {{{0}}}; in RHSHessianProductPP() local
114 dJpdP[0][0][1] = -PetscSinReal(w[step]); in RHSHessianProductPP()
115 dJpdP[0][1][0] = -PetscSinReal(w[step]); in RHSHessianProductPP()
116 dJpdP[0][1][1] = -v[step] * PetscCosReal(w[step]); in RHSHessianProductPP()
117 dJpdP[1][0][1] = PetscCosReal(w[step]); in RHSHessianProductPP()
118 dJpdP[1][1][0] = PetscCosReal(w[step]); in RHSHessianProductPP()
119 dJpdP[1][1][1] = -v[step] * PetscSinReal(w[step]); in RHSHessianProductPP()
124 for (i = 0; i < 2; i++) vhv[2 * step + j] += vl[i] * dJpdP[i][j][k] * vr[2 * step + k]; in RHSHessianProductPP()