Changeset 15772

Timestamp:

08/09/13 11:07:39 (12 years ago)

Author:

seroussi

Message:

BUG: minor fix

File:

• issm/trunk-jpl/src/c/classes/Elements/Penta.cpp (modified) (3 diffs)

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

@@ -7015 +7015 @@
         Friction*  friction=NULL;
         GaussPenta *gauss=NULL;
+        Node *node_list[20];
 
         /*If on water or not FS, skip stiffness: */
@@ -7024 +7025 @@
         int numnodes  = 2*vnumnodes-1+pnumnodes;
 
-        Node       *node_list[numnodes];
-        int         cs_list[numnodes];
+        int* cs_list = xNew<int>(numnodes);
 
         ElementMatrix* Ke1=new ElementMatrix(this->nodes,NUMVERTICES,this->parameters,SSAApproximationEnum);
@@ -8258 +8258 @@
         ElementVector* pe1=CreatePVectorCouplingHOFSViscous();
         ElementVector* pe2=CreatePVectorCouplingHOFSFriction();
+//      if(id==15){
+//      pe1->Echo();
+//      pe2->Echo();
+//      _error_("");
+//      }
         ElementVector* pe =new ElementVector(pe1,pe2);