27   PetscInt     nz;               /* total number of grid points */  member
45   PetscInt    i, m, nz, steps, max_steps, k, nphase = 1;  in main()  local
63   nz        = num_z;  in main()
64   m         = nz - 2;  in main()
65   appctx.nz = nz;  in main()
69   appctx.max_probsz = nz;  in main()
95   PetscCall(PetscMalloc1(nz + 1, &z));  in main()
96   for (i = 0; i < nz; i++) z[i] = (i) * ((zFinal - zInitial) / (nz - 1));  in main()
98   PetscCall(femA(&appctx, nz, z));  in main()
113   for (i = 0; i < nz - 2; i++) {  in main()
163   stepsz[0] = 1.0 / (2.0 * (nz - 1) * (nz - 1)); /* (mesh_size)^2/2.0 */  in main()
337 PetscErrorCode femBg(PetscScalar btri[][3], PetscScalar *f, PetscInt nz, PetscScalar *z, PetscReal …  in femBg()  argument
346   for (i = 0; i < nz; i++) {  in femBg()
364   for (i = 0; i < nz - 1; i++) indx[i] = i - 1;  in femBg()
365   indx[nz - 1] = -1;  in femBg()
368   for (il = 0; il < nz - 1; il++) {  in femBg()
382   for (il = 0; il < nz - 1; il++) {  in femBg()
417 PetscErrorCode femA(AppCtx *obj, PetscInt nz, PetscScalar *z)  in femA()  argument
426   for (i = 0; i < nz; i++) {  in femA()
444   for (i = 0; i < nz - 1; i++) indx[i] = i - 1;  in femA()
445   indx[nz - 1] = -1;  in femA()
449   for (il = 0; il < nz - 1; il++) {  in femA()
463   for (il = 0; il < nz - 1; il++) {  in femA()
496 PetscErrorCode rhs(AppCtx *obj, PetscScalar *y, PetscInt nz, PetscScalar *z, PetscReal t)  in rhs()  argument
502   for (i = 0; i < nz - 2; i++) {  in rhs()
508   PetscCall(femBg(btri, g, nz, z, t));  in rhs()
511   for (i = 0; i < nz - 2; i++) {  in rhs()
516     if (i == nz - 2) je = 1;  in rhs()
546   PetscInt           i, nz = obj->nz;  in RHSfunction()  local
562   PetscCall(rhs(obj, soln, nz, obj->z, time)); /* setup of the By+g rhs */  in RHSfunction()