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