Searched refs:q_p (Results 1 – 4 of 4) sorted by relevance
| /petsc/src/ts/tutorials/hamiltonian/ |
| H A D | ex3.c | 1153 PetscReal *E, m_p = 1., q_p = -1.; in RHSFunction() local
1169 g[(p * 2 + 1) * dim + d] = q_p * E[p * dim + d] / m_p; in RHSFunction()
1246 PetscReal *E, m_p, q_p; in RHSFunctionV() local
1259 q_p = user->charges[0] * param->q0; in RHSFunctionV()
1265 for (d = 0; d < dim; ++d) vres[p * dim + d] = q_p * E[p * dim + d] / m_p; in RHSFunctionV()
1367 PetscReal m_p = 1., q_p = -1.; in RHSFunctionG() local
1387 g[(p * 2 + 0) * dim + d] = -(q_p / m_p) * E[p * dim + d]; in RHSFunctionG()
|
| H A D | ex2.c | 1877 PetscReal *E, m_p = 1., q_p = -1.; in RHSFunction() local
1893 g[(p * 2 + 1) * dim + d] = q_p * E[p * dim + d] / m_p; in RHSFunction()
1970 PetscReal *E, m_p, q_p; in RHSFunctionV() local
1983 q_p = ctx->charges[0] * param->q0; in RHSFunctionV()
1989 for (d = 0; d < dim; ++d) vres[p * dim + d] = q_p * E[p * dim + d] / m_p; in RHSFunctionV()
2091 PetscReal m_p = 1., q_p = -1.; in RHSFunctionG() local
2111 g[(p * 2 + 0) * dim + d] = -(q_p / m_p) * E[p * dim + d]; in RHSFunctionG()
|
| H A D | ex4.c | 2482 PetscReal *E, m_p = 1., q_p = -1.; in RHSFunction() local
2498 g[(p * 2 + 1) * dim + d] = q_p * E[p * dim + d] / m_p; in RHSFunction()
2575 PetscReal *E, m_p, q_p; in RHSFunctionV() local
2588 q_p = ctx->charges[0] * param->q0; in RHSFunctionV()
2594 for (d = 0; d < dim; ++d) vres[p * dim + d] = q_p * E[p * dim + d] / m_p; in RHSFunctionV()
2696 PetscReal m_p = 1., q_p = -1.; in RHSFunctionG() local
2716 g[(p * 2 + 0) * dim + d] = -(q_p / m_p) * E[p * dim + d]; in RHSFunctionG()
|
| /petsc/src/dm/impls/swarm/tests/ |
| H A D | ex6.c | 690 PetscReal *vel, *coords, m_p = 1., q_p = -1.; in RHSObjectiveF() local
724 E += 0.5 * q_p * m_p * (v2) + 0.5 * PetscSqr(omega) * (x2); in RHSObjectiveF()
748 PetscReal *E, m_p = 1., q_p = -1.; in RHSFunctionG() local
771 …g[(p * 2 + 0) * dim + d] = -(q_p / m_p) * E[p * dim + d] + PetscSqr(omega) * u[(p * 2 + 0) * dim +… in RHSFunctionG()
|