Changeset 16802

Timestamp:

11/16/13 09:15:21 (11 years ago)

Author:

Mathieu Morlighem

Message:

NEW: implementing TransformLoad

Location:

issm/trunk-jpl/src/c/classes/Elements

Files:

• Penta.cpp (modified) (2 diffs)
• Penta.h (modified) (1 diff)

issm/trunk-jpl/src/c/classes/Elements/Penta.cpp

@@ -2510 +2510 @@
 }
 /*}}}*/
+/*FUNCTION Penta::NewElementVector{{{*/
+ElementVector* Penta::NewElementVector(int approximation_enum){
+        return new ElementVector(nodes,this->NumberofNodes(),this->parameters,approximation_enum);
+}
+/*}}}*/
+/*FUNCTION Penta::NodalFunctions{{{*/
+void Penta::NodalFunctions(IssmDouble* basis, Gauss* gauss){
+
+        _assert_(gauss->Enum()==GaussPentaEnum);
+        this->GetNodalFunctions(basis,(GaussPenta*)gauss);
+
+}
+/*}}}*/
 /*FUNCTION Penta::NumberofNodesPressure{{{*/
 int Penta::NumberofNodesPressure(void){
@@ -3036 +3049 @@
         return dt;
 }/*}}}*/
+/*FUNCTION Penta::TransformLoadVectorCoord{{{*/
+void Penta::TransformLoadVectorCoord(ElementVector* pe,int transformenum){
+
+        ::TransformLoadVectorCoord(pe,this->nodes,this->NumberofNodes(),transformenum);
+
+}
+/*}}}*/
+/*FUNCTION Penta::TransformLoadVectorCoord{{{*/
+void Penta::TransformLoadVectorCoord(ElementVector* pe,int* transformenum_list){
+
+        ::TransformLoadVectorCoord(pe,this->nodes,this->NumberofNodes(),transformenum_list);
+
+}
+/*}}}*/
 /*FUNCTION Penta::TransformSolutionCoord(IssmDouble* values,int transformenum){{{*/
 void Penta::TransformSolutionCoord(IssmDouble* values,int transformenum){

issm/trunk-jpl/src/c/classes/Elements/Penta.h

@@ -242 +242 @@
                 Gauss*         NewGauss(void);
                 Gauss*         NewGauss(int order);
-                ElementVector* NewElementVector(int approximation_enum){_error_("not implemented yet");};
-                void           NodalFunctions(IssmDouble* basis,Gauss* gauss){_error_("not implemented yet");};
+                ElementVector* NewElementVector(int approximation_enum);
+                void           NodalFunctions(IssmDouble* basis,Gauss* gauss);
                 IssmDouble     MinEdgeLength(IssmDouble xyz_list[6][3]);
                 void             SetClone(int* minranks);
                 Tria*            SpawnTria(int location);
                 void             SurfaceNormal(IssmDouble* surface_normal, IssmDouble xyz_list[3][3]);
-                void           TransformLoadVectorCoord(ElementVector* pe,int transformenum){_error_("not implemented yet");};
-                void           TransformLoadVectorCoord(ElementVector* pe,int* transformenum_list){_error_("not implemented yet");};
+                void           TransformLoadVectorCoord(ElementVector* pe,int transformenum);
+                void           TransformLoadVectorCoord(ElementVector* pe,int* transformenum_list);
                 void           TransformLoadVectorCoord(ElementVector* pe,int numnodes,int transformenum){_error_("not implemented yet");};      /*Tiling only*/
                 void           TransformLoadVectorCoord(ElementVector* pe,int numnodes,int* transformenum_list){_error_("not implemented yet");};/*Tiling only*/