| /petsc/src/mat/tests/ |
| H A D | ex177.c | 8 Mat A, B, TA; in main() local
46 PetscCall(MatCreateKAIJ(A, p, q, S, T, &TA)); in main()
50 PetscCall(MatConvert(TA, MATAIJ, MAT_INITIAL_MATRIX, &B)); in main()
53 PetscCall(MatKAIJGetScaledIdentity(TA, &flg)); in main()
56 PetscCall(MatMultEqual(TA, B, 10, &flg)); in main()
59 PetscCall(MatMultAddEqual(TA, B, 10, &flg)); in main()
62 PetscCall(MatDestroy(&TA)); in main()
68 PetscCall(MatCreateKAIJ(A, p, q, NULL, T, &TA)); in main()
72 PetscCall(MatConvert(TA, MATAIJ, MAT_INITIAL_MATRIX, &B)); in main()
75 PetscCall(MatKAIJGetScaledIdentity(TA, &flg)); in main()
[all …]
|
| H A D | ex70.c | 658 Mat TA; in main() local
660 PetscCall(MatCreateTranspose(A, &TA)); in main()
661 PetscCall(MatMatMult(TA, X, MAT_REUSE_MATRIX, PETSC_DETERMINE, &B)); in main()
663 PetscCall(MatMatMultEqual(TA, X, B, 10, &flg)); in main()
666 PetscCall(MatMatMult(TA, X, MAT_INITIAL_MATRIX, PETSC_DETERMINE, &T)); in main()
671 PetscCall(MatDestroy(&TA)); in main()
675 Mat TA; in main() local
677 PetscCall(MatCreateHermitianTranspose(A, &TA)); in main()
678 PetscCall(MatMatMult(TA, X, MAT_REUSE_MATRIX, PETSC_DETERMINE, &B)); in main()
680 PetscCall(MatMatMultEqual(TA, X, B, 10, &flg)); in main()
[all …]
|
| /petsc/src/mat/impls/dense/seq/cupm/hip/ |
| H A D | matseqdensehip.hip.cxx | 41 PetscErrorCode MatMatMultNumeric_SeqDenseHIP_SeqDenseHIP_Internal(Mat A, Mat B, Mat C, PetscBool TA… in MatMatMultNumeric_SeqDenseHIP_SeqDenseHIP_Internal() argument
44 PetscCall(impl::MatMatMultNumeric_SeqDenseCUPM_SeqDenseCUPM<DeviceType::HIP>(A, B, C, TA, TB)); in MatMatMultNumeric_SeqDenseHIP_SeqDenseHIP_Internal()
|
| /petsc/src/mat/impls/dense/seq/cupm/cuda/ |
| H A D | matseqdensecuda.cu | 41 …tMatMultNumeric_SeqDenseCUDA_SeqDenseCUDA_Internal(Mat A, Mat B, Mat C, PetscBool TA, PetscBool TB) in MatMatMultNumeric_SeqDenseCUDA_SeqDenseCUDA_Internal() argument
44 PetscCall(impl::MatMatMultNumeric_SeqDenseCUPM_SeqDenseCUPM<DeviceType::CUDA>(A, B, C, TA, TB)); in MatMatMultNumeric_SeqDenseCUDA_SeqDenseCUDA_Internal()
|
| /petsc/src/ksp/ksp/tutorials/ |
| H A D | ex74.c | 90 Mat Identity, J, TA, SC, R; in main() local
182 PetscCall(MatCreateKAIJ(J, nstages, nstages, A, B, &TA)); in main()
192 PetscCall(KSPSetOperators(ksp, TA, TA)); in main()
236 PetscCall(MatDestroy(&TA)); in main()
|
| /petsc/src/ts/tutorials/power_grid/stability_9bus/ |
| H A D | ex9bus.c | 74 const PetscScalar TA[3] = {0.2, 0.2, 0.2}; /* Voltage regulator time constant */ variable
168 … = PetscRealPart((VR - KA[i] * RF + KA[i] * KF[i] * Efd / TF[i] - KA[i] * (Vref[i] - Vm)) / TA[i]); in EventFunction()
173 … = PetscRealPart((VR - KA[i] * RF + KA[i] * KF[i] * Efd / TF[i] - KA[i] * (Vref[i] - Vm)) / TA[i]); in EventFunction()
250 fvalue = (VR - KA[i] * RF + KA[i] * KF[i] * Efd / TF[i] - KA[i] * (Vref[i] - Vm)) / TA[i]; in PostEventFunction()
257 fvalue = (VR - KA[i] * RF + KA[i] * KF[i] * Efd / TF[i] - KA[i] * (Vref[i] - Vm)) / TA[i]; in PostEventFunction()
516 … fgen[idx + 8] = (-VR + KA[i] * RF - KA[i] * KF[i] * Efd / TF[i] + KA[i] * (Vref[i] - Vm)) / TA[i]; in ResidualFunction()
894 val[0] = -(KA[i] * KF[i] / TF[i]) / TA[i]; in ResidualJacobian()
895 val[1] = KA[i] / TA[i]; in ResidualJacobian()
896 val[2] = -1 / TA[i]; in ResidualJacobian()
899 val[3] = -KA[i] * dVm_dVr / TA[i]; in ResidualJacobian()
[all …]
|
| H A D | ex9busdmnetwork.c | 46 PetscScalar TA; /* Voltage regulator time constant */ member
137 static const PetscScalar TA[3] = {0.2, 0.2, 0.2}; /* Voltage regulator time constant */ in read_data() local
227 exc[i * 3 + j].TA = TA[j]; in read_data()
660 PetscScalar k1, k2, KE, TE, TF, KA, KF, Vref, TA; /* Generator parameters */ in FormIFunction() local
678 TA = exc->TA; in FormIFunction()
686 …farr[offsetexc + 2] = (VR - KA * RF + KA * KF * Efd / TF - KA * (Vref - Vm)) / TA + xdotarr[offset… in FormIFunction()
|
| H A D | ex9busadj.c | 47 const PetscScalar TA[3] = {0.2, 0.2, 0.2}; /* Voltage regulator time constant */ variable
287 … fgen[idx + 8] = (VR - KA[i] * RF + KA[i] * KF[i] * Efd / TF[i] - KA[i] * (Vref[i] - Vm)) / TA[i]; in ResidualFunction()
623 val[0] = (KA[i] * KF[i] / TF[i]) / TA[i]; in ResidualJacobian()
624 val[1] = -KA[i] / TA[i]; in ResidualJacobian()
625 val[2] = 1 / TA[i]; in ResidualJacobian()
628 val[3] = KA[i] * dVm_dVr / TA[i]; in ResidualJacobian()
629 val[4] = KA[i] * dVm_dVi / TA[i]; in ResidualJacobian()
|
| H A D | ex9busoptfd.c | 44 const PetscScalar TA[3] = {0.2, 0.2, 0.2}; /* Voltage regulator time constant */ variable
288 … fgen[idx + 8] = (VR - KA[i] * RF + KA[i] * KF[i] * Efd / TF[i] - KA[i] * (Vref[i] - Vm)) / TA[i]; in ResidualFunction()
625 val[0] = (KA[i] * KF[i] / TF[i]) / TA[i]; in ResidualJacobian()
626 val[1] = -KA[i] / TA[i]; in ResidualJacobian()
627 val[2] = 1 / TA[i]; in ResidualJacobian()
630 val[3] = KA[i] * dVm_dVr / TA[i]; in ResidualJacobian()
631 val[4] = KA[i] * dVm_dVi / TA[i]; in ResidualJacobian()
|
| H A D | ex9busopt.c | 54 const PetscScalar TA[3] = {0.2, 0.2, 0.2}; /* Voltage regulator time constant */ variable
433 … fgen[idx + 8] = (VR - KA[i] * RF + KA[i] * KF[i] * Efd / TF[i] - KA[i] * (Vref[i] - Vm)) / TA[i]; in ResidualFunction()
767 val[0] = (KA[i] * KF[i] / TF[i]) / TA[i]; in ResidualJacobian()
768 val[1] = -KA[i] / TA[i]; in ResidualJacobian()
769 val[2] = 1 / TA[i]; in ResidualJacobian()
772 val[3] = KA[i] * dVm_dVr / TA[i]; in ResidualJacobian()
773 val[4] = KA[i] * dVm_dVi / TA[i]; in ResidualJacobian()
|
| /petsc/doc/overview/ |
| H A D | matrix_table.md | 146 * - Normal, :math:`A^TA`, virtual
|
| /petsc/src/ksp/pc/impls/bddc/ |
| H A D | bddcfetidp.c | 581 Mat T, TA, *pT; in PCBDDCSetupFETIDPMatContext() local
598 PetscCall(MatConvert(T, MATAIJ, MAT_INITIAL_MATRIX, &TA)); in PCBDDCSetupFETIDPMatContext()
601 PetscCall(MatCreateSubMatrices(TA, 1, &is, &is, MAT_INITIAL_MATRIX, &pT)); in PCBDDCSetupFETIDPMatContext()
602 PetscCall(MatDestroy(&TA)); in PCBDDCSetupFETIDPMatContext()
|
| /petsc/src/mat/impls/dense/seq/cupm/ |
| H A D | matseqdensecupm.hpp | 1917 inline PetscErrorCode MatMatMultNumeric_SeqDenseCUPM_SeqDenseCUPM(Mat A, Mat B, Mat C, PetscBool TA… in MatMatMultNumeric_SeqDenseCUPM_SeqDenseCUPM() argument
1920 if (TA) { in MatMatMultNumeric_SeqDenseCUPM_SeqDenseCUPM()
|