| /petsc/src/mat/tests/ |
| H A D | ex268.c | 23 Mat A, Ad, F, Fd, X, Xd, B; in main() local
68 PetscCall(MatGetFactor(Ad, MATSOLVERPETSC, i == 0 ? MAT_FACTOR_LU : MAT_FACTOR_CHOLESKY, &Fd)); in main()
75 PetscCall(MatLUFactorSymbolic(Fd, Ad, NULL, NULL, NULL)); in main()
76 PetscCall(MatLUFactorNumeric(Fd, Ad, NULL)); in main()
80 PetscCall(MatCholeskyFactorSymbolic(Fd, Ad, NULL, NULL)); in main()
81 PetscCall(MatCholeskyFactorNumeric(Fd, Ad, NULL)); in main()
84 PetscCall(MatMatSolve(Fd, B, Xd)); in main()
93 PetscCall(MatMatSolveTranspose(Fd, B, Xd)); in main()
103 PetscCall(MatSolve(Fd, b, xd)); in main()
110 PetscCall(MatSolveTranspose(Fd, b, xd)); in main()
[all …]
|
| /petsc/src/mat/impls/aij/mpi/kokkos/ |
| H A D | mpiaijkok.kokkos.cxx | 125 KokkosCsrMatrix Fd, Fo; // F in split form member
617 PetscCallCXX(mm->Fd = KokkosCsrMatrix("Fd", Fm, cend - cstart, Fdnz, Fda_d, Fdi_d, Fdj_d)); in MatMPIAIJKokkosReduceBegin()
678 auto &Fda = mm->Fd.values; in MatMPIAIJKokkosReduceEnd()
681 auto Fdnz = mm->Fd.nnz(); in MatMPIAIJKokkosReduceEnd()
930 PetscCallCXX(mm->Fd = KokkosCsrMatrix("Fd", Fm, cend - cstart, Fdnz, Fda_d, Fdi_d, Fdj_d)); in MatMPIAIJKokkosBcastBegin()
1004 const auto &Fd = mm->Fd; in MatMPIAIJKokkosBcastEnd() local
1006 const auto &Fdi = Fd.graph.row_map; in MatMPIAIJKokkosBcastEnd()
1008 auto &Fda = Fd.values; in MatMPIAIJKokkosBcastEnd()
1010 auto Fm = Fd.numRows(); in MatMPIAIJKokkosBcastEnd()
1121 PetscCallCXX(KokkosSparse::spadd_symbolic(&mm->kh1, mm->C1, mm->Fd, mm->Cd)); in MatProductSymbolic_MPIAIJKokkos_AtB()
[all …]
|
| /petsc/src/ts/tutorials/power_grid/stability_9bus/ |
| H A D | ex9busdmnetwork.c | 466 PetscErrorCode dq2ri(PetscScalar Fd, PetscScalar Fq, PetscScalar delta, PetscScalar *Fr, PetscScala… in dq2ri() argument
469 *Fr = Fd * PetscSinScalar(delta) + Fq * PetscCosScalar(delta); in dq2ri()
470 *Fi = -Fd * PetscCosScalar(delta) + Fq * PetscSinScalar(delta); in dq2ri()
475 PetscErrorCode ri2dq(PetscScalar Fr, PetscScalar Fi, PetscScalar delta, PetscScalar *Fd, PetscScala… in ri2dq() argument
478 *Fd = Fr * PetscSinScalar(delta) - Fi * PetscCosScalar(delta); in ri2dq()
|
| H A D | ex9busadj.c | 97 PetscErrorCode dq2ri(PetscScalar Fd, PetscScalar Fq, PetscScalar delta, PetscScalar *Fr, PetscScala… in dq2ri() argument
100 *Fr = Fd * PetscSinScalar(delta) + Fq * PetscCosScalar(delta); in dq2ri()
101 *Fi = -Fd * PetscCosScalar(delta) + Fq * PetscSinScalar(delta); in dq2ri()
106 PetscErrorCode ri2dq(PetscScalar Fr, PetscScalar Fi, PetscScalar delta, PetscScalar *Fd, PetscScala… in ri2dq() argument
109 *Fd = Fr * PetscSinScalar(delta) - Fi * PetscCosScalar(delta); in ri2dq()
|
| H A D | ex9busoptfd.c | 99 PetscErrorCode dq2ri(PetscScalar Fd, PetscScalar Fq, PetscScalar delta, PetscScalar *Fr, PetscScala… in dq2ri() argument
102 *Fr = Fd * PetscSinScalar(delta) + Fq * PetscCosScalar(delta); in dq2ri()
103 *Fi = -Fd * PetscCosScalar(delta) + Fq * PetscSinScalar(delta); in dq2ri()
108 PetscErrorCode ri2dq(PetscScalar Fr, PetscScalar Fi, PetscScalar delta, PetscScalar *Fd, PetscScala… in ri2dq() argument
111 *Fd = Fr * PetscSinScalar(delta) - Fi * PetscCosScalar(delta); in ri2dq()
|
| H A D | ex9bus.c | 297 PetscErrorCode dq2ri(PetscScalar Fd, PetscScalar Fq, PetscScalar delta, PetscScalar *Fr, PetscScala… in dq2ri() argument
300 *Fr = Fd * PetscSinScalar(delta) + Fq * PetscCosScalar(delta); in dq2ri()
301 *Fi = -Fd * PetscCosScalar(delta) + Fq * PetscSinScalar(delta); in dq2ri()
306 PetscErrorCode ri2dq(PetscScalar Fr, PetscScalar Fi, PetscScalar delta, PetscScalar *Fd, PetscScala… in ri2dq() argument
309 *Fd = Fr * PetscSinScalar(delta) - Fi * PetscCosScalar(delta); in ri2dq()
|
| H A D | ex9busopt.c | 111 PetscErrorCode dq2ri(PetscScalar Fd, PetscScalar Fq, PetscScalar delta, PetscScalar *Fr, PetscScala… in dq2ri() argument
114 *Fr = Fd * PetscSinScalar(delta) + Fq * PetscCosScalar(delta); in dq2ri()
115 *Fi = -Fd * PetscCosScalar(delta) + Fq * PetscSinScalar(delta); in dq2ri()
120 PetscErrorCode ri2dq(PetscScalar Fr, PetscScalar Fi, PetscScalar delta, PetscScalar *Fd, PetscScala… in ri2dq() argument
123 *Fd = Fr * PetscSinScalar(delta) - Fi * PetscCosScalar(delta); in ri2dq()
|