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(:) 86dd63270SBarry Smith PetscErrorCode ierr 96dd63270SBarry Smith PetscQuadrature q 1002c639afSMartin Diehl end subroutine 1102c639afSMartin Diehlend interface 12*3d1372b2SMartin Diehl 13*3d1372b2SMartin Diehl#if defined(_WIN32) && defined(PETSC_USE_SHARED_LIBRARIES) 14*3d1372b2SMartin Diehl!DEC$ ATTRIBUTES DLLEXPORT::PetscQuadratureRestoreData 15*3d1372b2SMartin Diehl#endif 16