16dd63270SBarry Smith 26dd63270SBarry Smith Interface 36dd63270SBarry Smith Subroutine PetscQuadratureRestoreData(q,dim,nc,np,p,w,ierr) 4*fe66ebccSMartin Diehl use, intrinsic :: ISO_C_binding 56dd63270SBarry Smith import tPetscQuadrature 66dd63270SBarry Smith PetscInt dim, nc, np 76dd63270SBarry Smith PetscReal, pointer :: p(:) 86dd63270SBarry Smith PetscReal, pointer :: w(:) 96dd63270SBarry Smith PetscErrorCode ierr 106dd63270SBarry Smith PetscQuadrature q 116dd63270SBarry Smith End Subroutine 126dd63270SBarry Smith End Interface 13