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