Lines Matching refs:H
91 subroutine FormHessian(ta, X, H, PrecH, dummy, ierr) argument
96 type(tMat) H, PrecH local
119 PetscCall(MatAssembled(H, assembled, ierr))
120 if (assembled .eqv. PETSC_TRUE) PetscCall(MatZeroEntries(H, ierr))
135 PetscCall(MatSetValues(H, i2, ind, i2, ind, reshape(v, [i2*i2]), INSERT_VALUES, ierr))
144 PetscCall(MatAssemblyBegin(H, MAT_FINAL_ASSEMBLY, ierr))
145 PetscCall(MatAssemblyEnd(H, MAT_FINAL_ASSEMBLY, ierr))
165 type(tMat) H ! hessian matrix
197 PetscCallA(MatCreateSeqBAIJ(PETSC_COMM_SELF, i2, n, n, i1, PETSC_NULL_INTEGER_ARRAY, H, ierr))
199 PetscCallA(MatSetOption(H, MAT_SYMMETRIC, PETSC_TRUE, ierr))
209 PetscCallA(TaoSetHessian(ta, H, H, FormHessian, 0, ierr))
231 PetscCallA(MatDestroy(H, ierr))