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