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))