Changeset 5674

Timestamp:

09/03/10 11:06:07 (15 years ago)

Author:

seroussi

Message:

minor PentaStokes

File:

• issm/trunk/src/c/objects/Elements/Penta.cpp (modified) (2 diffs)

issm/trunk/src/c/objects/Elements/Penta.cpp

@@ -3793 +3793 @@
         double     Pe_reduced[numdof]; //for the six nodes only
         double     Ke_gaussian[27][3];
-        double     L[3]; //for the three nodes of the bed
+        double     l1l6[6]; //for the six nodes of the penta
         double     l1l7[7]; //for the six nodes and the bubble 
         double     B[8][27];
@@ -3955 +3955 @@
 
                         /*Get L matrix : */
-                        tria->GetL(&L[0], &xyz_list[0][0], gauss_coord_tria,1);
+                        GetNodalFunctionsP1(l1l6, gauss);
 
                         /*Get water_pressure at gaussian point */