1
2 Interface
3 Subroutine PetscQuadratureRestoreData(q,dim,nc,np,p,w,ierr)
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