197 PetscInt OnBoundary(PetscInt i, PetscInt j, PetscInt k, PetscInt mx, PetscInt my, PetscInt mz)  in OnBoundary()  argument
203 void BoundaryValue(PetscInt i, PetscInt j, PetscInt k, PetscInt mx, PetscInt my, PetscInt mz, Petsc…  in BoundaryValue()  argument
208   PetscReal p_z = ((PetscReal)k) / ((PetscReal)(mz - 1));  in BoundaryValue()
416 void GatherElementData(PetscInt mx, PetscInt my, PetscInt mz, Field ***x, CoordField ***c, PetscInt…  in GatherElementData()  argument
426         if (OnBoundary(i + ii, j + jj, k + kk, mx, my, mz)) {  in GatherElementData()
427           BoundaryValue(i + ii, j + jj, k + kk, mx, my, mz, ex[idx], user);  in GatherElementData()
560 void ApplyBCsElement(PetscInt mx, PetscInt my, PetscInt mz, PetscInt i, PetscInt j, PetscInt k, Pet…  in ApplyBCsElement()  argument
572 …if (OnBoundary(i + ii, j + jj, k + kk, mx, my, mz) || OnBoundary(i + ei, j + ej, k + ek, mx, my, m…  in ApplyBCsElement()
604   PetscInt      mx = info->mx, my = info->my, mz = info->mz;  in FormJacobianLocal()  local
629   if (zs + zm == mz) zee = zs + zm - 1;  in FormJacobianLocal()
633         GatherElementData(mx, my, mz, x, c, i, j, k, ex, ec, user);  in FormJacobianLocal()
635         ApplyBCsElement(mx, my, mz, i, j, k, ej);  in FormJacobianLocal()
679         if (OnBoundary(i, j, k, mx, my, mz)) {  in FormJacobianLocal()
713   PetscInt      mx = info->mx, my = info->my, mz = info->mz;  in FormFunctionLocal()  local
722   PetscCall(DMDAGetInfo(info->da, 0, &mx, &my, &mz, 0, 0, 0, 0, 0, 0, 0, 0, 0));  in FormFunctionLocal()
745   if (zs + zm == mz) zee = zs + zm - 1;  in FormFunctionLocal()
749         GatherElementData(mx, my, mz, x, c, i, j, k, ex, ec, user);  in FormFunctionLocal()
757                 if (OnBoundary(i + ii, j + jj, k + kk, mx, my, mz)) {  in FormFunctionLocal()
779   PetscInt mx, my, mz;  in TangentLoad()  local
810   PetscCall(DMDAGetInfo(da, 0, &mx, &my, &mz, 0, 0, 0, 0, 0, 0, 0, 0, 0));  in TangentLoad()
833   if (zs + zm == mz) zee = zs + zm - 1;  in TangentLoad()
837         GatherElementData(mx, my, mz, x, c, i, j, k, ex, ec, user);  in TangentLoad()
845                 if (!OnBoundary(i + ii, j + jj, k + kk, mx, my, mz)) {  in TangentLoad()
869   PetscInt      mx, my, mz;  in FormCoordinates()  local
876   PetscCall(DMDAGetInfo(da, 0, &mx, &my, &mz, 0, 0, 0, 0, 0, 0, 0, 0, 0));  in FormCoordinates()
884         PetscReal cz  = ((PetscReal)k) / ((PetscReal)(mz - 1));  in FormCoordinates()
902   PetscInt mx, my, mz;  in InitialGuess()  local
907   PetscCall(DMDAGetInfo(da, 0, &mx, &my, &mz, 0, 0, 0, 0, 0, 0, 0, 0, 0));  in InitialGuess()
916         PetscReal p_z = ((PetscReal)k) / ((PetscReal)(mz - 1));  in InitialGuess()
933   PetscInt mx, my, mz;  in FormRHS()  local
938   PetscCall(DMDAGetInfo(da, 0, &mx, &my, &mz, 0, 0, 0, 0, 0, 0, 0, 0, 0));  in FormRHS()
947         if (i == (mx - 1) / 2 && j == (my - 1)) x[k][j][i][1] = user->ploading / (mz - 1);  in FormRHS()
957   PetscInt      r, i, j = 0, k = 0, xs, xm, ys, ym, zs, zm, mx, my, mz;  in DisplayLine()  local
968   PetscCall(DMDAGetInfo(da, 0, &mx, &my, &mz, 0, 0, 0, 0, 0, 0, 0, 0, 0));  in DisplayLine()
972   k = mz / 2;  in DisplayLine()