102c639afSMartin Diehlinterface 202c639afSMartin 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(:) 8*0da4d79bSMartin Diehl PetscErrorCode, intent(out) :: ierr 96dd63270SBarry Smith PetscQuadrature q 1002c639afSMartin Diehl end subroutine 1102c639afSMartin Diehlend interface 123d1372b2SMartin Diehl 133d1372b2SMartin Diehl#if defined(_WIN32) && defined(PETSC_USE_SHARED_LIBRARIES) 143d1372b2SMartin Diehl!DEC$ ATTRIBUTES DLLEXPORT::PetscQuadratureRestoreData 153d1372b2SMartin Diehl#endif 16