1interface 2 subroutine PetscQuadratureRestoreData(q, dim, nc, np, p, w, ierr) 3 use, intrinsic :: ISO_C_binding 4 import tPetscQuadrature 5 PetscInt dim, nc, np 6 PetscReal, pointer :: p(:) 7 PetscReal, pointer :: w(:) 8 PetscErrorCode ierr 9 PetscQuadrature q 10 end subroutine 11end interface 12 13#if defined(_WIN32) && defined(PETSC_USE_SHARED_LIBRARIES) 14!DEC$ ATTRIBUTES DLLEXPORT::PetscQuadratureRestoreData 15#endif 16