1
2
3
4
5
6
7
8
9
10
11
12
|
diff --unified --recursive --text petsc-3.13.1.orig/src/dm/dt/interface/f90-custom/zdtdsf90.c petsc-3.13.1.new/src/dm/dt/interface/f90-custom/zdtdsf90.c
--- petsc-3.13.1.orig/src/dm/dt/interface/f90-custom/zdtdsf90.c 2020-06-02 06:55:13.984780847 +0200
+++ petsc-3.13.1.new/src/dm/dt/interface/f90-custom/zdtdsf90.c 2020-06-02 06:55:34.188151947 +0200
@@ -29,7 +29,7 @@
*ierr = PetscQuadratureGetData(q, NULL, NULL, &Nq, NULL, NULL);if (*ierr) return;
*ierr = PetscDSGetTabulation(*prob, &T);if (*ierr) return;
*ierr = F90Array1dCreate((void *) T[*f]->T[0], MPIU_REAL, 1, Nq*Nb*Nc, ptrB PETSC_F90_2PTR_PARAM(ptrb));if (*ierr) return;
- *ierr = F90Array1dCreate((void *) T[*f]->T[0], MPIU_REAL, 1, Nq*Nb*Nc*dim, ptrD PETSC_F90_2PTR_PARAM(ptrd));
+ *ierr = F90Array1dCreate((void *) T[*f]->T[1], MPIU_REAL, 1, Nq*Nb*Nc*dim, ptrD PETSC_F90_2PTR_PARAM(ptrd));
}
PETSC_EXTERN void petscdsrestoretabulation_(PetscDS *prob, PetscInt *f, F90Array1d *ptrB, F90Array1d *ptrD, PetscErrorCode *ierr PETSC_F90_2PTR_PROTO(ptrb) PETSC_F90_2PTR_PROTO(ptrd))
|