Author: renard
Date: Thu Jul 16 16:26:26 2015
New Revision: 5043
URL: http://svn.gna.org/viewcvs/getfem?rev=5043&view=rev
Log:
small fix
Modified:
trunk/getfem/interface/src/gf_mesh_fem_set.cc
Modified: trunk/getfem/interface/src/gf_mesh_fem_set.cc
URL:
http://svn.gna.org/viewcvs/getfem/trunk/getfem/interface/src/gf_mesh_fem_set.cc?rev=5043&r1=5042&r2=5043&view=diff
==============================================================================
--- trunk/getfem/interface/src/gf_mesh_fem_set.cc (original)
+++ trunk/getfem/interface/src/gf_mesh_fem_set.cc Thu Jul 16 16:26:26 2015
@@ -24,6 +24,7 @@
#include <getfemint_gsparse.h>
#include <getfem/getfem_partial_mesh_fem.h>
#include <gmm/gmm_range_basis.h>
+#include <getfem/getfem_mesh_fem_level_set.h>
using namespace getfemint;
@@ -257,6 +258,18 @@
ppmf->adapt(doflst, rcvlst);
);
+ /*@SET ('adapt')
+ For a @tmf levelset object only. Adapt the mesh_fem object to a
+ change of the levelset function. @*/
+ sub_command
+ ("adapt", 0, 0, 0, 0,
+ getfem::mesh_fem_level_set *mfls
+ = dynamic_cast<getfem::mesh_fem_level_set *>(mf);
+ if (!mfls) THROW_BADARG("The command 'adapt' can only be "
+ "applied to a mesh_fem_level_set object");
+ mfls->adapt();
+ );
+
}
_______________________________________________
Getfem-commits mailing list
[email protected]
https://mail.gna.org/listinfo/getfem-commits
