1*02c639afSMartin Diehl interface 2*02c639afSMartin Diehl subroutine PetscQuadratureRestoreData(q, dim, nc, np, p, w, ierr) 3fe66ebccSMartin Diehl use, intrinsic :: ISO_C_binding 46dd63270SBarry Smith import tPetscQuadrature 56dd63270SBarry Smith PetscInt dim, nc, np 66dd63270SBarry Smith PetscReal, pointer :: p(:) 76dd63270SBarry Smith PetscReal, pointer :: w(:) 86dd63270SBarry Smith PetscErrorCode ierr 96dd63270SBarry Smith PetscQuadrature q 10*02c639afSMartin Diehl end subroutine 11*02c639afSMartin Diehl end interface 12