Searched refs:Ht (Results 1 – 3 of 3) sorted by relevance
| /petsc/src/ksp/ksp/impls/gmres/ |
| H A D | gmreig.c | 119 PetscScalar *H, *Q, *Ht; /* H Hessenberg matrix; Q matrix of eigenvectors of H */ in KSPComputeRitz_GMRES() local
148 PetscCall(PetscMalloc1(bn * bn, &Ht)); in KSPComputeRitz_GMRES()
150 for (j = 0; j < bn; j++) Ht[i * bn + j] = PetscConj(H[j * bN + i]); in KSPComputeRitz_GMRES()
164 PetscCallBLAS("LAPACKgesv", LAPACKgesv_(&bn, &nrhs, Ht, &bn, ipiv, t, &bn, &info)); in KSPComputeRitz_GMRES()
167 PetscCall(PetscFree(Ht)); in KSPComputeRitz_GMRES()
|
| /petsc/src/ts/tutorials/power_grid/ |
| H A D | ex5.c | 44 PetscReal Ht; /* Turbine inertia constant */ member
144 user->Ht = 1.5; in SetWindTurbineParams()
198 f[1] = 2.0 * (user->Ht + user->Hm) * udot[1] - Pw / wm + user->Te; in IFunction()
|
| /petsc/src/ksp/ksp/impls/gmres/dgmres/ |
| H A D | dgmres.c | 665 PetscScalar *Ht; /* Transpose of the Hessenberg matrix */ in KSPDGMRESComputeSchurForm_DGMRES() local
697 PetscCall(PetscMalloc1(bn * bn, &Ht)); in KSPDGMRESComputeSchurForm_DGMRES()
699 for (j = 0; j < bn; j++) Ht[i * bn + j] = dgmres->hes_origin[j * ldA + i]; in KSPDGMRESComputeSchurForm_DGMRES()
710 PetscCallBLAS("LAPACKgesv", LAPACKgesv_(&bn, &nrhs, Ht, &bn, ipiv, t, &bn, &info)); in KSPDGMRESComputeSchurForm_DGMRES()
716 PetscCall(PetscFree(Ht)); in KSPDGMRESComputeSchurForm_DGMRES()
|