Added mesh pointer fields for coarsen and refine
authorAaron Becker <abecker3@illinois.edu>
Wed, 26 Oct 2005 16:41:54 +0000 (16:41 +0000)
committerAaron Becker <abecker3@illinois.edu>
Wed, 26 Oct 2005 16:41:54 +0000 (16:41 +0000)
src/libs/ck-libs/fem/fem_adapt_if.h

index de061371e595510cff5d7814f39bb454d2b73da8..03b25673511943f0640cb356afe7d0e5eb36873b 100644 (file)
@@ -21,21 +21,27 @@ FDECL void FTN_NAME(FEM_ADAPT_INIT,fem_adapt_init)(int *meshID)
 }
 
 
 }
 
 
-void FEM_ADAPT_Refine(int qm, int method, double factor, double *sizes) {
-  CtvAccess(_adaptAlgs)->FEM_Refine(qm, method, factor, sizes);
+void FEM_ADAPT_Refine(int meshID, int qm, int method, double factor,
+        double *sizes) {
+    FEM_Mesh* mesh = FEM_Mesh_lookup(meshID, "FEM_ADAPT_Init");
+    mesh->getfmMM()->getfmAdaptAlgs()->FEM_Refine(qm, method, factor, sizes);
 }
 }
-FDECL void FTN_NAME(FEM_ADAPT_REFINE,fem_adapt_refine)(int *qm, int *method, double *factor, double *sizes)
+FDECL void FTN_NAME(FEM_ADAPT_REFINE,fem_adapt_refine)(int* meshID, 
+        int *qm, int *method, double *factor, double *sizes)
 {
 {
-  FEM_ADAPT_Refine(*qm, *method, *factor, sizes);
+  FEM_ADAPT_Refine(*meshID, *qm, *method, *factor, sizes);
 }
 
 
 }
 
 
-void FEM_ADAPT_Coarsen(int qm, int method, double factor, double *sizes) {
-  CtvAccess(_adaptAlgs)->FEM_Coarsen(qm, method, factor, sizes);
+void FEM_ADAPT_Coarsen(int meshID, int qm, int method, double factor, 
+        double *sizes) {
+    FEM_Mesh* mesh = FEM_Mesh_lookup(meshID, "FEM_ADAPT_Init");
+    mesh->getfmMM()->getfmAdaptAlgs()->FEM_Coarsen(qm, method, factor, sizes);
 }
 }
-FDECL void FTN_NAME(FEM_ADAPT_COARSEN,fem_adapt_coarsen)(int *qm, int *method, double *factor, double *sizes)
+FDECL void FTN_NAME(FEM_ADAPT_COARSEN,fem_adapt_coarsen)(int* meshID, 
+        int *qm, int *method, double *factor, double *sizes)
 {
 {
-  FEM_ADAPT_Coarsen(*qm, *method, *factor, sizes);
+  FEM_ADAPT_Coarsen(*meshID, *qm, *method, *factor, sizes);
 }
 
 
 }