1 interface 2 subroutine PetscQuadratureRestoreData(q, dim, nc, np, p, w, ierr) 3 use, intrinsic :: ISO_C_binding 4 import tPetscQuadrature 5 PetscInt dim, nc, np 6 PetscReal, pointer :: p(:) 7 PetscReal, pointer :: w(:) 8 PetscErrorCode ierr 9 PetscQuadrature q 10 end subroutine 11 end interface 12