892   MultiSourceCtx       *source_ctx;  member
996   PetscCall(PetscNew(&options->source_ctx));  in ProcessOptions()
997   options->source_ctx->n = 1;  in ProcessOptions()
999 …Int("-source_num", "number of sources", __FILE__, options->source_ctx->n, &options->source_ctx->n,…  in ProcessOptions()
1000   tmp = options->source_ctx->n;  in ProcessOptions()
1001 … &options->source_ctx->x0, tmp, &options->source_ctx->w, tmp, &options->source_ctx->k, tmp, &optio…  in ProcessOptions()
1002   for (PetscInt i = 0; i < options->source_ctx->n; i++) {  in ProcessOptions()
1003 …  for (PetscInt d = 0; d < options->dim; d++) options->source_ctx->x0[options->dim * i + d] = 0.25;  in ProcessOptions()
1004     options->source_ctx->w[i] = 500;  in ProcessOptions()
1005     options->source_ctx->k[i] = 0;  in ProcessOptions()
1006     options->source_ctx->p[i] = 0;  in ProcessOptions()
1007     options->source_ctx->r[i] = 1;  in ProcessOptions()
1009   tmp = options->dim * options->source_ctx->n;  in ProcessOptions()
1010 …PetscCall(PetscOptionsRealArray("-source_x0", "source location", __FILE__, options->source_ctx->x0…  in ProcessOptions()
1011   tmp = options->source_ctx->n;  in ProcessOptions()
1012 …PetscCall(PetscOptionsRealArray("-source_w", "source factor", __FILE__, options->source_ctx->w, &t…  in ProcessOptions()
1013   tmp = options->source_ctx->n;  in ProcessOptions()
1014 …PetscCall(PetscOptionsRealArray("-source_k", "source frequency", __FILE__, options->source_ctx->k,…  in ProcessOptions()
1015   tmp = options->source_ctx->n;  in ProcessOptions()
1016 …PetscCall(PetscOptionsRealArray("-source_p", "source phase", __FILE__, options->source_ctx->p, &tm…  in ProcessOptions()
1017   tmp = options->source_ctx->n;  in ProcessOptions()
1018 …PetscCall(PetscOptionsRealArray("-source_r", "source scaling", __FILE__, options->source_ctx->r, &…  in ProcessOptions()
1338   ctxs[NUM_FIELDS]  = ctx->source_ctx;  in ProjectAuxDM()
2140   for (PetscInt i = 0; i < ctx->source_ctx->n; i++) {  in PreStage()
2141     if (ctx->source_ctx->k[i] != 0.0) {  in PreStage()
2271     PetscCall(PetscPrintf(comm, "  snum : %" PetscInt_FMT "\n", ctx->source_ctx->n));  in Run()
2272     for (PetscInt i = 0; i < ctx->source_ctx->n; i++) {  in Run()
2273       const PetscReal *x0 = ctx->source_ctx->x0 + ctx->dim * i;  in Run()
2274       const PetscReal  w  = ctx->source_ctx->w[i];  in Run()
2275       const PetscReal  k  = ctx->source_ctx->k[i];  in Run()
2276       const PetscReal  p  = ctx->source_ctx->p[i];  in Run()
2277       const PetscReal  r  = ctx->source_ctx->r[i];  in Run()
2406 …PetscCall(PetscFree5(ctx.source_ctx->x0, ctx.source_ctx->w, ctx.source_ctx->k, ctx.source_ctx->p, …  in main()
2407   PetscCall(PetscFree(ctx.source_ctx));  in main()