Changeset 10419 for issm

Timestamp:

11/01/11 16:51:53 (14 years ago)

Author:

Mathieu Morlighem

Message:

Simplified Stokes

File:

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

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

@@ -5908 +5908 @@
         double     D[8][8]={0.0};
         double     Ke_temp[27][27]={0.0}; //for the six nodes and the bubble 
-        double     Ke_gaussian[27][27];
         GaussPenta *gauss=NULL;
 
@@ -5943 +5942 @@
                                         &D[0][0],8,8,0,
                                         &B_prime[0][0],8,27,0,
-                                        &Ke_gaussian[0][0],0);
-
-                for(i=0;i<27;i++) for(j=0;j<27;j++) Ke_temp[i][j]+=Ke_gaussian[i][j];
+                                        &Ke_temp[0][0],1);
         }
 
@@ -6748 +6745 @@
                                         &D[0][0],8,8,0,
                                         &B_prime_bubble[0][0],8,3,0,
-                                        &Ke_gaussian[0][0],0);
-
-                for(i=0;i<numdofbubble;i++) for(j=0;j<NDOF3;j++) Ke_temp[i][j]+=Ke_gaussian[i][j];
+                                        &Ke_temp[0][0],1);
         }