[Getfem-commits] r5043 - /trunk/getfem/interface/src/gf_mesh_fem_set.cc

[Yves . Renard]

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);
        );
 
+    /address@hidden ('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();
+       );
+
   }