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