Home
last modified time | relevance | path

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

/petsc/src/tao/matrix/
H A Dadamat.c7 Vec D1; member
24 if (ctx->D1) PetscCall(VecPointwiseMult(ctx->W, ctx->D1, ctx->W)); in MatMult_ADA()
66 PetscCall(VecDestroy(&ctx->D1)); in MatDestroy_ADA()
97 if (ctx->D1) { in MatDuplicate_ADA()
98 PetscCall(VecDuplicate(ctx->D1, &D1b)); in MatDuplicate_ADA()
99 PetscCall(VecCopy(ctx->D1, D1b)); in MatDuplicate_ADA()
104 if (ctx->D1) PetscCall(PetscObjectDereference((PetscObject)D1b)); in MatDuplicate_ADA()
118 if (*flg == PETSC_TRUE) PetscCall(VecEqual(ctx1->D1, ctx2->D1, flg)); in MatEqual_ADA()
129 PetscCall(VecScale(ctx->D1, a)); in MatScale_ADA()
164 PetscCall(VecDotBegin(ctx->D1, ctx->W, dtemp + i)); in MatADAComputeDiagonal()
[all …]
/petsc/src/ts/tests/
H A Dex24.c13 PetscReal D1, D2, gamma, kappa; member
89 entries[0] = appctx->D1 * sy; in RHSJacobian()
92 entries[1] = appctx->D1 * sy; in RHSJacobian()
95 entries[2] = appctx->D1 * sx; in RHSJacobian()
98 entries[3] = appctx->D1 * sx; in RHSJacobian()
101 entries[4] = -2.0 * appctx->D1 * (sx + sy) - vc * vc - appctx->gamma; in RHSJacobian()
195 appctx.D1 = 8.0e-5; in main()
/petsc/src/ts/tutorials/advection-diffusion-reaction/
H A Dreaction_diffusion.c77 f[j][i].u = appctx->D1 * (uxx + uyy) - uc * vc * vc + appctx->gamma * (1.0 - uc); in RHSFunction()
165 entries[0] = appctx->D1 * sy; in RHSJacobian()
168 entries[1] = appctx->D1 * sy; in RHSJacobian()
171 entries[2] = appctx->D1 * sx; in RHSJacobian()
174 entries[3] = appctx->D1 * sx; in RHSJacobian()
177 entries[4] = -2.0 * appctx->D1 * (sx + sy) - vc * vc - appctx->gamma; in RHSJacobian()
286 … f[j][i].u = udot[j][i].u - (appctx->D1 * (uxx + uyy) - uc * vc * vc + appctx->gamma * (1.0 - uc)); in IFunction()
375 entries[0] = -appctx->D1 * sy; in IJacobian()
378 entries[1] = -appctx->D1 * sy; in IJacobian()
381 entries[2] = -appctx->D1 * sx; in IJacobian()
[all …]
H A Dreaction_diffusion.h12 PetscReal D1, D2, gamma, kappa; member
H A Dex5adj_mf.c106 y[j][i].u = appctx->D1 * (uxx + uyy) - ucb * (vc * vc + appctx->gamma) + vc * vc * vcb; in MyRHSMatMultTranspose()
165 y[j][i].u = appctx->D1 * (uxx + uyy) - ucb * (vc * vc + appctx->gamma) + vc * vc * vcb; in MyIMatMultTranspose()
226 y[j][i].u = appctx->D1 * (uxx + uyy) - (vc * vc + appctx->gamma) * ucb - 2.0 * uc * vc * vcb; in MyIMatMult()
259 appctx.D1 = 8.0e-5; in main()
H A Dex5.c98 appctx.D1 = 8.0e-5; in main()
H A Dex5adj.c58 appctx.D1 = 8.0e-5; in main()
H A Dex5opt_ic.c222 appctx.D1 = 8.0e-5; in main()
/petsc/src/ts/tutorials/autodiff/
H A Dadr_ex5adj.cxx55 PetscReal D1, D2, gamma, kappa; member
98 appctx.D1 = 8.0e-5; in main()
388 … f[j][i].u = udot[j][i].u - appctx->D1 * (uxx + uyy) + uc * vc * vc - appctx->gamma * (1.0 - uc); in IFunctionLocalPassive()
484 … f_a[j][i].u = udot[j][i].u - appctx->D1 * (uxx + uyy) + uc * vc * vc - appctx->gamma * (1.0 - uc); in IFunctionActive()
580 f[j][i].u = appctx->D1 * (uxx + uyy) - uc * vc * vc + appctx->gamma * (1.0 - uc); in RHSFunctionPassive()
698 f_a[j][i].u = appctx->D1 * (uxx + uyy) - uc * vc * vc + appctx->gamma * (1.0 - uc); in RHSFunctionActive()
859 entries[0] = -appctx->D1 * sy; in IJacobianByHand()
862 entries[1] = -appctx->D1 * sy; in IJacobianByHand()
865 entries[2] = -appctx->D1 * sx; in IJacobianByHand()
868 entries[3] = -appctx->D1 * sx; in IJacobianByHand()
[all …]
H A Dadr_ex5adj_mf.cxx31 PetscReal D1, D2, gamma, kappa; member
60 appctx.D1 = 8.0e-5; in main()
276 … f[j][i].u = udot[j][i].u - appctx->D1 * (uxx + uyy) + uc * vc * vc - appctx->gamma * (1.0 - uc); in IFunctionLocalPassive()
372 … f_a[j][i].u = udot[j][i].u - appctx->D1 * (uxx + uyy) + uc * vc * vc - appctx->gamma * (1.0 - uc); in IFunctionActive()
/petsc/lib/petsc/bin/maint/abi-compliance-checker/modules/Internals/
H A DSysFiles.pm2330 my ($D1, $D2) = @_;
2331 if($D1 eq $D2) {
2335 my $U1 = index($D1, "/usr/");
2346 if(index($D2, $D1."/")==0) {
2353 my $DL = getDepth($D1);
2355 my @Dirs1 = ($D1);
2356 while($DL - getDepth($D1)<=2
2357 and getDepth($D1)>=4
2358 and $D1=~s/[\/\\]+[^\/\\]*?\Z//) {
2359 push(@Dirs1, $D1);
/petsc/share/petsc/matlab/
H A Dlaplacian.m443 eval(['D1' char(119 + i) '(1,1) = 1;'])
445 eval(['D1' char(119 + i) '(1,' num2str(u(i)) ') = D1'...
447 eval(['D1' char(119 + i) '(' num2str(u(i)) ',1) = D1'...
452 eval(['D1' char(119 + i)...
/petsc/lib/petsc/bin/maint/
H A Dtoclapack.sh2366 /* $ ( D1.EQ.A ).AND.( D2.EQ.A ) )LOOP */
4357 /* $ ( D1.EQ.A ).AND.( D2.EQ.A ) )LOOP */