22 static PetscErrorCode sourlj1d(DMDALocalInfo *info, PetscScalar *in, Mat A, Mat m, void *ptr)  in sourlj1d()  argument
28   PetscCall(DMGetDMSNES(info->da, &sdm));  in sourlj1d()
30   PetscCallFortranVoidFunction((*func)(info, &in[info->dof * info->gxs], &A, &m, ctx, &ierr));  in sourlj1d()
34 static PetscErrorCode sourlj2d(DMDALocalInfo *info, PetscScalar **in, Mat A, Mat m, void *ptr)  in sourlj2d()  argument
40   PetscCall(DMGetDMSNES(info->da, &sdm));  in sourlj2d()
42 …PetscCallFortranVoidFunction((*func)(info, &in[info->gys][info->dof * info->gxs], &A, &m, ctx, &ie…  in sourlj2d()
46 static PetscErrorCode sourlj3d(DMDALocalInfo *info, PetscScalar ***in, Mat A, Mat m, void *ptr)  in sourlj3d()  argument
52   PetscCall(DMGetDMSNES(info->da, &sdm));  in sourlj3d()
54 …PetscCallFortranVoidFunction((*func)(info, &in[info->gzs][info->gys][info->dof * info->gxs], &A, &…  in sourlj3d()
84 static PetscErrorCode sourlf1d(DMDALocalInfo *info, PetscScalar *in, PetscScalar *out, void *ptr)  in sourlf1d()  argument
90   PetscCall(DMGetDMSNES(info->da, &sdm));  in sourlf1d()
92 …PetscCallFortranVoidFunction((*func)(info, &in[info->dof * info->gxs], &out[info->dof * info->xs],…  in sourlf1d()
96 static PetscErrorCode sourlf2d(DMDALocalInfo *info, PetscScalar **in, PetscScalar **out, void *ptr)  in sourlf2d()  argument
102   PetscCall(DMGetDMSNES(info->da, &sdm));  in sourlf2d()
104 …PetscCallFortranVoidFunction((*func)(info, &in[info->gys][info->dof * info->gxs], &out[info->ys][i…  in sourlf2d()
108 static PetscErrorCode sourlf3d(DMDALocalInfo *info, PetscScalar ***in, PetscScalar ***out, void *pt…  in sourlf3d()  argument
114   PetscCall(DMGetDMSNES(info->da, &sdm));  in sourlf3d()
116 …FortranVoidFunction((*func)(info, &in[info->gzs][info->gys][info->dof * info->gxs], &out[info->zs]…  in sourlf3d()