Changeset 3966 for issm/trunk/src/c/modules/ComputeStrainRatex/ComputeStrainRatex.cpp

Timestamp:

05/27/10 08:49:46 (15 years ago)

Author:

Mathieu Morlighem

Message:

moved some Dataset methods to modules

File:

• issm/trunk/src/c/modules/ComputeStrainRatex/ComputeStrainRatex.cpp (modified) (2 diffs)

issm/trunk/src/c/modules/ComputeStrainRatex/ComputeStrainRatex.cpp

@@ -13 +13 @@
                         int analysis_type,int sub_analysis_type){
 
+        /*Intermediary*/
         int i;
-
-        int  found=0;
-        double numberofelements;
+        int      found=0;
+        double   numberofelements;
+        Element* element=NULL;
 
         /*output: */
@@ -28 +29 @@
 
         /*Get elements configured: */
-        elements->Configure(elements,loads, nodes,vertices, materials,parameters);
-        nodes->Configure(elements,loads, nodes,vertices, materials,parameters);
+        elements->  Configure(elements,loads, nodes,vertices, materials,parameters);
+        nodes->     Configure(elements,loads, nodes,vertices, materials,parameters);
         parameters->Configure(elements,loads, nodes,vertices, materials,parameters);
 
-        /*Call on dataset driver: */
-        elements->ComputeStrainRate(eps,analysis_type,sub_analysis_type);
+        /*Compute basal stress for each element: */
+        for (i=0;i<elements->Size();i++){
+                element=(Element*)elements->GetObjectByOffset(i);
+                element->ComputeStrainRate(eps,analysis_type,sub_analysis_type);
+        }
 
         /*Assemble vector: */